Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. 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:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

024868,000002:                                                                                                  ## Copyright:   Public domain.
024869,000003:                                                                                                  ## Filename:    P20-P25.agc
024870,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
024871,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
024872,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
024873,000007:                                                                                                  ## Assembler:   yaYUL
024874,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
024875,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
024876,000010:                                                                                                  ## Pages:       562-534
024877,000011:                                                                                                  ## Mod history: 2009-05-10 RSB  Adapted from the Colossus249/ file 
024878,000012:                                                                                                  ##                              of the same name, using Comanche055 page 
024879,000013:                                                                                                  ##                              images. 
024880,000014:                                                                                                  ##              2009-05-20 RSB  Corrections:  P2OS -> P20S, STO -> STQ,
024881,000015:                                                                                                  ##                              GOTOPOOH -> GOTOPOOH, a duplicated EXTEND
024882,000016:                                                                                                  ##                              was fixed, P23.10 -> R23.10, 
024883,000017:                                                                                                  ##                              S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL,
024884,000018:                                                                                                  ##                              S22DPP -> S22DSPP, changed some instructions in
024885,000019:                                                                                                  ##                              P23.152.
024886,000020:                                                                                                  ##              2010-08-24 JL   Fixed page 627 number. Fixed some whitespace.
024887,000021:                                                                                                  ##              2016-12-10 RSB  All of the GOTOPOOH's should have been
024888,000022:                                                                                                  ##                              GOTOPOOH, and I've changed them back.
024889,000023:                                                                                                  ##              2016-12-10 RSB  Proofed comments with octopus/ProoferComments
024890,000024:                                                                                                  ##                              and fixed the errors found.
024891,000025:                                                                                                  ##              2017-01-16 RSB  Fixed comment-text errors noted while diff'ing
024892,000026:                                                                                                  ##                              vs Colossus 249.
024893,000027:                                                                                                  ##              2017-02-06 RSB  Fixed comment-text errors noted while proofing
024894,000028:                                                                                                  ##                              Artemis 72.
024895,000029:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified by 4-way diff'ing
024896,000030:                                                                                                  ##                              of Colossus 237 & 249, Comanche 55, and Artemis 72.
024897,000031: 
024898,000032:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
024899,000033:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
024900,000034:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
024901,000035:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
024902,000036:                                                                                                  ## consequent reduction in image quality as well) are available online at
024903,000037:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
024904,000038:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
024905,000039:                                                                                                  ## (much) higher-quality images which Paul actually created.
024906,000040:                                                                                                  ##
024907,000041:                                                                                                  ## Notations on the hardcopy document read, in part:
024908,000042:                                                                                                  ##
024909,000043:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
024910,000044:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
024911,000045:                                                                                                  ##
024912,000046:                                                                                                  ##      This AGC program shall also be referred to as
024913,000047:                                                                                                  ##                      Colossus 2A
024914,000048: 

Page 562

024916,000050:                                                                                                  #  RENDEZVOUS NAVIGATION PROGRAM 20
024917,000051: 
024918,000052:                                                                                                  #  PROGRAM DESCRIPTION
024919,000053: 
024920,000054:                                                                                                  #        MOD NO -1
024921,000055:                                                                                                  #        MOD BY - N.BRODEUR
024922,000056: 
024923,000057:                                                                                                  #  FUNCTIONAL DESCRIPTION
024924,000058: 
024925,000059:                                                                                                  #        TO CONTROL THE CSM ATTITUDE AND OPTICS TO ACQUIRE THE LEM IN THE S+T
024926,000060:                                                                                                  #        FIELD AND TO POINT THE CSM TRANSPONDER AT THE LEM.  TO UPDATE EITHER THE
024927,000061:                                                                                                  #        LEM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY THE DSKY
024928,000062:                                                                                                  #        ENTRY) ON THE BASIS OF OPTICAL TRACKING DATA (REQUESTED BY DSKY)
024929,000063: 
024930,000064:                                                                                                  #  CALLING SEQUENCE -
024931,000065: 
024932,000066:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V37E20E
024933,000067: 
024934,000068:                                                                                                  #  SUBROUTINES CALLED-
024935,000069: 
024936,000070:                                                                                                  #        R02BOTH (IMU STATUS CHECK)                              BANKCALL
024937,000071:                                                                                                  #        FLAGUP                          2PHSCHNG                LOADTIME
024938,000072:                                                                                                  #        R61CSM (PREFERRED TRACKING ATTITUDE)                    FLAGDOWN
024939,000073:                                                                                                  #        R52 (AUTO OPTICS POSITIONING ROUT)                      SETINTG
024940,000074:                                                                                                  #        R22 (REND TRACK DATA PROC ROUT)                         PRIOCHNG
024941,000075:                                                                                                  #        ENDOFJOB                        INTEGRV                 GRP2PC
024942,000076:                                                                                                  #        INTPRET                         MKRLEES                 FINDVAC
024943,000077: 
024944,000078:                                                                                                  #  NORMAL EXIT MODES -
024945,000079: 
024946,000080:                                                                                                  #        P20 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
024947,000081:                                                                                                  #        PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
024948,000082: 
024949,000083:                                                                                                  #  ALARM OR ABORT EXIT MODES -
024950,000084: 
024951,000085:                                                                                                  #        NONE DIRECTLY FROM P20
024952,000086: 
024953,000087:                                                                                                  #  OUTPUT
024954,000088: 
024955,000089:                                                                                                  #        TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
024956,000090:                                                                                                  #        VHFCNT = NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
024957,000091: 
024958,000092:                                                                                                  #  FLAGS SET + RESET
024959,000093: 
024960,000094:                                                                                                  #        RNDVZFLG,VEHUPFLG,UPDATFLG,TRACKFLG,TARG1FLG
024961,000095:                                                                                                  #        HOLDFLAG,WBODY,WBODY1,WBODY2,DELCDUX,DELCDUY,DELCDUZ
024962,000096:                                                                                                  #        STIKFLAG,PRFTRKAT,VINTFLAG,DIM0FLAG,R60FLAG,R61CNTR
024963,000097: 
024964,000098: 33,3776                                           BANK     33                                    
024965,000099: 37,2000                                           SETLOC   P20S                                  
024966,000100: 37,2000                                           BANK                                           
024967,000101: 
024968,000102: 37,2261  E6,1413                                  EBANK=   ESTROKER                              
024969,000103: 37,2261                                           COUNT*   $$/P20                                
024970,000104: 
024971,000105: 37,2261           04662        PROG20             TC       BANKCALL                              
024972,000106: 37,2262           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
024973,000107:                                                                                                  #  BLOCKING OF UPLINK IS DONE BY UPLINK PRG
024974,000108: 37,2263           35021                           CAF      ZERO                                  
024975,000109: 37,2264           55126                           TS       TRKMKCNT                              #  ZERO REND TRACKING MARK COUNTER
024976,000110: 37,2265           55125                           TS       VHFCNT                                #  ZERO REND VHF RNG MRK COUNTER
024977,000111: 37,2266           05546                           TC       UPFLAG                                #  SET PREF TRACK ATT FLAG
024978,000112: 37,2267           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
024979,000113: 37,2270           05560                           TC       DOWNFLAG                              #  LEM TO BE UPDATED.  VEHUPFLG RESET.
024980,000114: 37,2271           00026                           ADRES    VEHUPFLG                              #  BIT 8 FLAG 1

Page 563

024982,000116: 37,2272           05546                           TC       UPFLAG                                #  SET TRACKFLAG
024983,000117: 37,2273           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
024984,000118: 37,2274           05546                           TC       UPFLAG                                #  SET UPDATFLG
024985,000119: 37,2275           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
024986,000120: 37,2276           05546                           TC       UPFLAG                                #  SET RNDVZFLG
024987,000121: 37,2277           00010                           ADRES    RNDVZFLG                              #  BIT 7 FLAG 0
024988,000122: 37,2300           05372                           TC       2PHSCHNG                              
024989,000123: 37,2301           00004                           OCT      4                                     
024990,000124: 37,2302           05022                           OCT      05022                                 
024991,000125: 37,2303           26000                           OCT      26000                                 
024992,000126: 37,2304           06006                           TC       INTPRET                               
024993,000127: 37,2305           77634                           RTB                                            
024994,000128: 37,2306           45510                                    LOADTIME                              
024995,000129: 37,2307           35225                           STCALL   MARKTIME                              
024996,000130: 37,2310           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
024997,000131: 37,2311           43014                           BOFF     SET                                   
024998,000132: 37,2312           02756                                    RENDWFLG                              
024999,000133: 37,2313           76315                                    P20.1                                 
025000,000134: 37,2314           01476                                    DIM0FLAG                              #  SET TO INTEGRATE THE W MATRIX
025001,000135: 37,2315           43014        P20.1              BON      CLEAR                                 
025002,000136: 37,2316           00707                                    VEHUPFLG                              
025003,000137: 37,2317           76321                                    P20.2                                 
025004,000138: 37,2320           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
025005,000139: 37,2321           77624        P20.2              CALL                                           
025006,000140: 37,2322           27162                                    INTEGRV                               
025007,000141: 37,2323           77624                           CALL                                           
025008,000142: 37,2324           56750                                    GRP2PC                                #  GROUP 2 PHASE CHANGE
025009,000143: 37,2325           77624                           CALL                                           
025010,000144: 37,2326           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
025011,000145: 37,2327           43014                           BOFF     CLEAR                                 
025012,000146: 37,2330           00747                                    VEHUPFLG                              
025013,000147: 37,2331           76333                                    P20.3                                 
025014,000148: 37,2332           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
025015,000149: 37,2333           77624        P20.3              CALL                                           
025016,000150: 37,2334           27162                                    INTEGRV                               
025017,000151: 37,2335           77776                           EXIT                                           
025018,000152: 37,2336           37663                           CAF      PRIO26                                
025019,000153: 37,2337           05147                           TC       FINDVAC                               
025020,000154: 37,2340  E7,1734                                  EBANK=   MRKBUF2                               
025021,000155: 37,2340           02630 70067                     2CADR    R22                                   
025022,000156: 
025023,000157: 37,2342           05372                           TC       2PHSCHNG                              
025024,000158: 37,2343           00072                           OCT      00072                                 
025025,000159: 37,2344           00111                           OCT      00111                                 
025026,000160: 37,2345           35066        PIKUP20            CAF      PRIO14                                #  ALLOW HIGHER PRIO THAN LAMBERT
025027,000161: 37,2346           05210                           TC       PRIOCHNG                              
025028,000162: 37,2347           35013                           CAF      BIT5                                  #  IS TRACK FLAG SET
025029,000163: 37,2350           70075                           MASK     STATE      +1                         
025030,000164: 37,2351           00006                           EXTEND                                         
025031,000165: 37,2352           15217                           BZF      ENDOFJOB                              #  NO

Page 564

025033,000167: 37,2353           35003                           CAF      BIT13                                 
025034,000168: 37,2354           70077                           MASK     STATE      +3                         #  IS REFSMFLG SET
025035,000169: 37,2355           00006                           EXTEND                                         
025036,000170: 37,2356           15217                           BZF      ENDOFJOB                              
025037,000171: 37,2357           35021                           CAF      ZERO                                  
025038,000172: 37,2360           55775                           TS       R61CNTR                               #  INITIALIZE R61 COUNTER
025039,000173: 37,2361           04662                           TC       BANKCALL                              
025040,000174: 37,2362           76557                           CADR     R61CSM                                
025041,000175: 37,2363  E5,1777                                  EBANK=   QMIN                                  
025042,000176: 37,2363           35056                           CAF      EBANK5                                
025043,000177: 37,2364           54003                           TS       EBANK                                 
025044,000178: 37,2365           05546                           TC       UPFLAG                                #  SET TARGET FLAG TO LEM
025045,000179: 37,2366           00024                           ADRES    TARG1FLG                              #  BIT 10 FLAG 1
025046,000180: 37,2367           06006        P20R52JB           TC       INTPRET                               
025047,000181: 37,2370           77624                           CALL                                           
025048,000182: 37,2371           30011                                    R52                                   #  SET UP AUTO OPTICS JOB
025049,000183: 37,2372           77776                           EXIT                                           
025050,000184: 37,2373           04662                           TC       BANKCALL                              
025051,000185: 37,2374           16071                           CADR     MKRLEES                               
025052,000186: 37,2375           35017                           CAF      ONE                                   #  HOLD PRESENT ATTITUDE
025053,000187: 37,2376           55332                           TS       HOLDFLAG                              
025054,000188: 37,2377           05217                           TC       ENDOFJOB                              
025055,000189: 37,2400           00203        OCT203             OCT      00203                                 
025056,000190: 37,2401     7707               FIRST3             EQUALS   FURST3                                
025057,000191: 

Page 565

025059,000193:                                                                                                  #  ORBITAL NAVIGATION PROGRAM 22
025060,000194: 
025061,000195: 31,2332                                           BANK     31                                    
025062,000196: 30,2000                                           SETLOC   P20S1                                 
025063,000197: 30,2000                                           BANK                                           
025064,000198: 
025065,000199: 30,2000  E5,1751                                  EBANK=   LANDMARK                              
025066,000200: 30,2000                                           COUNT*   $$/P22                                
025067,000201: 
025068,000202: 30,2000           05560        PROG22             TC       DOWNFLAG                              #  RESET RNDVZFLG BIT 7 FLAG 0
025069,000203: 30,2001           00010                           ADRES    RNDVZFLG                              
025070,000204: 30,2002           04662                           TC       BANKCALL                              
025071,000205: 30,2003           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
025072,000206: 30,2004           06006                           TC       INTPRET                               #  COMPUTE ANGLE BETWEEN Y AND VXR SM
025073,000207: 30,2005           77634                           RTB                                            
025074,000208: 30,2006           45510                                    LOADTIME                              
025075,000209: 30,2007           34041                           STCALL   TDEC1                                 
025076,000210: 30,2010           27114                                    CSMCONIC                              #  INTEGRATE TO PRESENT TIME
025077,000211: 30,2011           47375                           VLOAD    VXV                                   #  CROSS PRODUCT BETWEEN V AND R
025078,000212: 30,2012           00007                                    VATT                                  
025079,000213: 30,2013           00001                                    RATT                                  
025080,000214: 30,2014           50256                           UNIT     DOT                                   
025081,000215: 30,2015           01744                                    REFSMMAT   +6                         
025082,000216: 30,2016           77646                           ABS                                            
025083,000217: 30,2017           65552                           SL1      ARCCOS                                
025084,000218: 30,2020           03626                           STORE    +MGA                                  
025085,000219: 30,2021           77414                           CLEAR    EXIT                                  
025086,000220: 30,2022           02676                                    RENDWFLG                              
025087,000221: 30,2023           32114                           CAF      V06N45B                               
025088,000222: 30,2024           04662                           TC       BANKCALL                              
025089,000223: 30,2025           21057                           CADR     GOFLASHR                              
025090,000224: 30,2026           04106                           TC       GOTOPOOH                              #  TERM P22
025091,000225: 30,2027           02034                           TC       PROG22A                               #  PROC
025092,000226: 30,2030           02023                           TC       -5                                    #  ENTER
025093,000227: 30,2031           36214                           CAF      THREE                                 
025094,000228: 30,2032           05526                           TC       BLANKET                               #  BLANK OUT R1 + R2
025095,000229: 30,2033           05217                           TC       ENDOFJOB                              
025096,000230: 30,2034           45063        PROG22A            CS       PRIO7                                 #  RESULT=70777  SET OFFSET NO.=0
025097,000231: 30,2035           71751                           MASK     LANDMARK                              
025098,000232: 30,2036           55751                           TS       LANDMARK                              
025099,000233: 30,2037           06006                           TC       INTPRET                               
025100,000234: 30,2040           77614                           CLEAR                                          
025101,000235: 30,2041           01664                                    P22MKFLG                              
025102,000236: 30,2042           43014                           SET      BOFF                                  
025103,000237: 30,2043           00462                                    ERADFLAG                              
025104,000238: 30,2044           04343                                    CMOONFLG                              
025105,000239: 30,2045           60055                                    PROG22B                               #  EARTH
025106,000240: 30,2046           77614                           SET                                            #  MOON
025107,000241: 30,2047           01463                                    LUNAFLAG                              
025108,000242: 30,2050           45145                           DLOAD    CALL                                  #  MPAC=V05N70,MPAC+1=NONZERO FOR N70
025109,000243: 30,2051           20116                                    V05N7022                              

Page 566

025111,000245: 30,2052           60175                                    S22N7071                              
025112,000246: 30,2053           77650                           GOTO                                           
025113,000247: 30,2054           60062                                    CALLR52                               
025114,000248: 30,2055           43014        PROG22B            CLEAR    SET                                   #  EARTH ORBIT
025115,000249: 30,2056           01663                                    LUNAFLAG                              
025116,000250: 30,2057           03067                                    KNOWNFLG                              
025117,000251: 30,2060           77624                           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
025118,000252: 30,2061           60143                                    P22SUBRB                              
025119,000253: 30,2062           77776        CALLR52            EXIT                                           
025120,000254: 30,2063           05372                           TC       2PHSCHNG                              
025121,000255: 30,2064           00004                           OCT      00004                                 
025122,000256: 30,2065           05022                           OCT      05022                                 
025123,000257: 30,2066           13000                           OCT      13000                                 
025124,000258: 30,2067           35022                           CAF      FIVE                                  
025125,000259: 30,2070           54301                           TS       MARKINDX                              #  SET MARK INDEX=5 FOR R52
025126,000260: 30,2071           05546                           TC       UPFLAG                                
025127,000261: 30,2072           00025                           ADRES    TARG2FLG                              #  SET FOR SIGHTING LMK
025128,000262: 30,2073           05560                           TC       DOWNFLAG                              
025129,000263: 30,2074           00024                           ADRES    TARG1FLG                              #  CLEAR FOR NON-LEM
025130,000264: 30,2075           06006                           TC       INTPRET                               
025131,000265: 30,2076           77624                           CALL                                           
025132,000266: 30,2077           30011                                    R52                                   
025133,000267: 30,2100           45135        DOV5N71            SLOAD    CALL                                  #  MPAC=V05N71,MPAC+1=0 FOR N71
025134,000268: 30,2101           20117                                    V05N7122                              
025135,000269: 30,2102           60175                                    S22N7071                              
025136,000270: 30,2103           66744        PROG22C            LXC,2    SLOAD*                                
025137,000271: 30,2104           01330                                    MARKSTAT                              
025138,000272: 30,2105           77724                                    QPRET,2                               
025139,000273: 30,2106           36750                           STCALL   8NN                                   
025140,000274: 30,2107           60312                                    S22.1                                 #  ESTABLISH LANDMARK - COMPUTE ORBITAL
025141,000275: 30,2110           77776        P22OVER            EXIT                                           
025142,000276: 30,2111           05412                           TC       PHASCHNG                              
025143,000277: 30,2112           04022                           OCT      04022                                 
025144,000278: 30,2113           02034                           TC       PROG22A                               #  POINT A ON GSOP
025145,000279: 30,2114           01455        V06N45B            VN       0645                                  
025146,000280: 30,2115           01306        V05N7022           VN       00570                                 
025147,000281: 30,2116           01307        V05N7122           VN       00571                                 
025148,000282: 37,2000                                           SETLOC   P20S                                  
025149,000283: 37,2000                                           BANK                                           
025150,000284: 
025151,000285: 30,2000                                           SETLOC   P20S1                                 
025152,000286: 30,2000                                           BANK                                           
025153,000287: 
025154,000288: 30,2117           77634        S22LSITE           RTB                                            #  CONVERT RLS FROM MOON-FIXED TO BASIC REF
025155,000289: 30,2120           45510                                    LOADTIME                              
025156,000290: 30,2121           24007                           STOVL    6D                                    #  6-7D= TIME
025157,000291: 30,2122           02026                                    RLS                                   
025158,000292: 30,2123           14001                           STODL    0D                                    #  0-5D= LANDING SITE VECTOR
025159,000293: 30,2124           15333                                    HIDPHALF                              #  MPAC= ANY NON-ZERO FOR MOON
025160,000294: 30,2125           77624                           CALL                                           

Page 567

025162,000296: 30,2126           55344                                    RP-TO-R                               #  RLS IN BASIC REF B-27 IN MPAC
025163,000297: 30,2127           77742                           VSR2                                           #  LUNAFLAG AND ERADFLAG SET ABOVE
025164,000298: 30,2130           02152                           STORE    ALPHAV                                #  SCALE RLS B-29 FOR LAT-LONG
025165,000299: 30,2131           77634                           RTB                                            
025166,000300: 30,2132           45510                                    LOADTIME                              #  SET PRESENT TIME IN MPAC FOR LAT-LONG
025167,000301: 30,2133           77624                           CALL                                           
025168,000302: 30,2134           26370                                    LAT-LONG                              
025169,000303: 30,2135           77650                           GOTO                                           
025170,000304: 30,2136           03667                                    S22TOFF                               #  EXIT
025171,000305: 30,2137           77624        OBTAINLL           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
025172,000306: 30,2140           60143                                    P22SUBRB                              
025173,000307: 30,2141           77650                           GOTO                                           
025174,000308: 30,2142           03667                                    S22TOFF                               #  EXIT
025175,000309: 30,2143           77420        P22SUBRB           STQ      EXIT                                  #  GET LAT/LONG/ALT FROM ASTRO
025176,000310: 30,2144           03670                                    S22TOFF    +1                         
025177,000311: 30,2145           33644                           CAF      V06N89B                               
025178,000312: 30,2146           04662                           TC       BANKCALL                              
025179,000313: 30,2147           20720                           CADR     GOFLASH                               
025180,000314: 30,2150           04106                           TC       GOTOPOOH                              #  TERMINATE
025181,000315: 30,2151           02153                           TC       +2                                    #  PROCEED
025182,000316: 30,2152           02145                           TC       -5                                    #  ENTER OR RECYCLE
025183,000317: 30,2153           06006                           TC       INTPRET                               
025184,000318: 30,2154           51545                           DLOAD    ABS                                   #  TEST LAT/LONG GREATER THAN 90
025185,000319: 30,2155           01104                                    LANDLAT                               
025186,000320: 30,2156           50021                           BDSU     BMN                                   #  1/4 REV - LAT
025187,000321: 30,2157           15325                                    DP1/4TH                               
025188,000322: 30,2160           60166                                    N89ERRX                               
025189,000323: 30,2161           51545                           DLOAD    ABS                                   
025190,000324: 30,2162           02360                                    LANDLONG                              
025191,000325: 30,2163           51021                           BDSU     BPL                                   
025192,000326: 30,2164           15325                                    DP1/4TH                               
025193,000327: 30,2165           60171                                    +4                                    
025194,000328: 
025195,000329: 30,2166           77776        N89ERRX            EXIT                                           
025196,000330: 30,2167           04400                           TC       FALTON                                
025197,000331: 30,2170           02145                           TC       P22SUBRB   +2                         #  LONG GR. THAN 90  REDISPLAY
025198,000332: 30,2171           77624                           CALL                                           
025199,000333: 30,2172           62374                                    LLASRDA                               
025200,000334: 30,2173           77650                           GOTO                                           
025201,000335: 30,2174           03670                                    S22TOFF    +1                         #  EXIT
025202,000336: 30,2175           02747        S22N7071           STORE    8KK                                   #  8KK=V05N71,V05N70 8KK+1=0 N71, NOT 0 N70
025203,000337: 30,2176           77420                           STQ      EXIT                                  
025204,000338: 30,2177           03667                                    S22TOFF                               
025205,000339: 30,2200           31746        S22DSPPA           CA       8KK                                   #  V05N70 OR V05N71
025206,000340: 30,2201           04662                           TC       BANKCALL                              
025207,000341: 30,2202           21057                           CADR     GOFLASHR                              
025208,000342: 30,2203           04106                           TC       GOTOPOOH                              #  V34E TERMINATE
025209,000343: 30,2204           02211                           TC       +5                                    #  V33E PROCEED
025210,000344: 30,2205           02200                           TC       -5                                    #  V32E RECYCLE
025211,000345: 30,2206           35022                           CAF      FIVE                                  #  IMMEDIATE RETURN BLANK OUT R1,R3
025212,000346: 30,2207           05526                           TC       BLANKET                               

Page 568

025214,000348: 30,2210           05217                           TC       ENDOFJOB                              
025215,000349: 30,2211           31751                           CA       LANDMARK                              
025216,000350: 30,2212           75063                           MASK     PRIO7                                 #  07000
025217,000351: 30,2213           55745                           TS       CXOFF                                 #  08000 = OFFSET INDICATOR
025218,000352: 30,2214           45061                           CS       PRIO5                                 #  5 8-5
025219,000353: 30,2215           61745                           AD       CXOFF                                 
025220,000354: 30,2216           00006                           EXTEND                                         
025221,000355: 30,2217           62221                           BZMF     +2                                    #  OFF=0 THRU 5 OK
025222,000356: 30,2220           02233                           TC       S22DSPP                               #  OFF=6,7 ILLEGAL REDISPLAY
025223,000357: 30,2221           05560                           TC       DOWNFLAG                              
025224,000358: 30,2222           00141                           ADRES    KNOWNFLG                              #  CLEAR KNOWNFLG
025225,000359: 30,2223           31751                           CA       LANDMARK                              #  MASK A FROM ABCDE
025226,000360: 30,2224           77707                           MASK     13,14,15                              
025227,000361: 30,2225           00006                           EXTEND                                         
025228,000362: 30,2226           62233                           BZMF     S22DSPP                               #  A=0,4,5,6,7  ILLEGAL REDISPLAY
025229,000363: 30,2227           55744                           TS       22SUBSCL                              #  TEMP
025230,000364: 30,2230           45002                           CS       BIT14                                 
025231,000365: 30,2231           61744                           AD       22SUBSCL                              
025232,000366: 30,2232           10000                           CCS      A                                     
025233,000367: 30,2233           04400        S22DSPP            TC       FALTON                                #  + A=3 ILLEGAL REDISPLAY
025234,000368: 30,2234           02200                           TC       S22DSPPA                              #  COMMON ERROR EXIT BACK TO DISPLAY
025235,000369: 30,2235           02237                           TC       +2                                    #  - A=1 KNOWN LMK  CHECK DE
025236,000370: 30,2236           02263                           TC       S22ABDE                               #  -0 A=2 UNKNOWN LMK, DE MEANINGLESS
025237,000371: 30,2237           05546                           TC       UPFLAG                                
025238,000372: 30,2240           00141                           ADRES    KNOWNFLG                              #  SET KNOWNFLG
025239,000373: 30,2241           47713                           CS       HIGH9                                 #  RESULT= 00077
025240,000374: 30,2242           71751                           MASK     LANDMARK                              
025241,000375: 30,2243           55744                           TS       22SUBSCL                              #  000DE
025242,000376: 30,2244           45017                           CS       BIT1                                  
025243,000377: 30,2245           61744                           AD       22SUBSCL                              
025244,000378: 30,2246           00006                           EXTEND                                         
025245,000379: 30,2247           62263                           BZMF     S22ABDE                               #  DE=0,1 OK FOR BOTH N70,N71
025246,000380: 30,2250           31747                           CA       8KK        +1                         #  =0 FOR N71, NOT =0 FOR N70
025247,000381: 30,2251           00006                           EXTEND                                         
025248,000382: 30,2252           12233                           BZF      S22DSPP                               #  N71 REDISPLAY  DE MUST= 0 OR 1
025249,000383: 30,2253           35013                           CA       BIT5                                  #  N70 TEST DE= 50-57 OCTAL FOR ADV. ORBIT
025250,000384: 30,2254           65033                           AD       OCT50                                 #  SUM=00070
025251,000385: 30,2255           71744                           MASK     22SUBSCL                              #  00D0
025252,000386: 30,2256           40000                           CS       A                                     
025253,000387: 30,2257           65033                           AD       OCT50                                 
025254,000388: 30,2260           00006                           EXTEND                                         
025255,000389: 30,2261           12273                           BZF      DE-GR-50                              #  D=5 OR DE=50-57, OK FOR N70
025256,000390: 30,2262           02233                           TC       S22DSPP                               #  DE NOT 50-57  ILLEGAL, REDISPLAY
025257,000391: 30,2263           06006        S22ABDE            TC       INTPRET                               
025258,000392: 30,2264           67214                           BOFF     SLOAD                                 
025259,000393: 30,2265           03347                                    KNOWNFLG                              #  UNKNOWN LMK, DE MEANINGLESS
025260,000394: 30,2266           03667                                    S22TOFF                               
025261,000395: 30,2267           02745                                    22SUBSCL                              #  =0 GET LLA FROM ASTRO, NOT=0 USE RLS
025262,000396: 30,2270           52030                           BHIZ     GOTO                                  
025263,000397: 30,2271           60137                                    OBTAINLL                              #  GET LAT/LONG/ALT FROM ASTRO  N89

Page 569

025265,000399: 30,2272           60117                                    S22LSITE                              #  GET LAT/LONG/ALT FROM RLS
025266,000400: 30,2273           05372        DE-GR-50           TC       2PHSCHNG                              
025267,000401: 30,2274           00004                           OCT      00004                                 
025268,000402: 30,2275           05022                           OCT      05022                                 
025269,000403: 30,2276           13000                           OCT      13000                                 
025270,000404: 30,2277           35022                           CA       FIVE                                  
025271,000405: 30,2300           54301                           TS       MARKINDX                              
025272,000406: 30,2301           05546                           TC       UPFLAG                                
025273,000407: 30,2302           00025                           ADRES    TARG2FLG                              
025274,000408: 30,2303           05560                           TC       DOWNFLAG                              
025275,000409: 30,2304           00024                           ADRES    TARG1FLG                              
025276,000410: 30,2305           06006                           TC       INTPRET                               
025277,000411: 30,2306           77624                           CALL                                           
025278,000412: 30,2307           30215                                    ADVORB                                
025279,000413: 30,2310           77650                           GOTO                                           
025280,000414: 30,2311           60100                                    DOV5N71                               
025281,000415: 

Page 570

025283,000417:                                                                                                  #  PROGRAM NAME-  OPTICS CALIBRATION ROUTINE
025284,000418:                                                                                                  #  MOD NO-  1
025285,000419:                                                                                                  #  MOD BY-  TOM KNATT
025286,000420: 
025287,000421:                                                                                                  #  FUNCTIONAL DESCRIPTION-  TO MEASURE THE EFFECT OF SOLAR RADIATION ON
025288,000422:                                                                                                  #        THE SXT TRUNNION ANGLE AND TO STORE THE MEASURED TRUNNION BIAS FOR P23
025289,000423: 
025290,000424:                                                                                                  #  CALLING SEQUENCE-     CALL
025291,000425:                                                                                                  #                                R57
025292,000426: 
025293,000427:                                                                                                  #  SUBROUTINES CALLED-  DISPLAY ROUTINES
025294,000428: 
025295,000429:                                                                                                  #  NORMAL EXIT MODES-  VIA EGRESS
025296,000430: 
025297,000431:                                                                                                  #  ALARMS-  NONE
025298,000432: 
025299,000433:                                                                                                  #  ABORT MODES-  P23 ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
025300,000434: 
025301,000435:                                                                                                  #  INPUT-  NONE REQUIRED, NORMALLY CALLED BY P23
025302,000436: 
025303,000437:                                                                                                  #  OUTPUT-  TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
025304,000438:                                                                                                  #        (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED.  THIS ANGLE
025305,000439:                                                                                                  #        MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS, FOR
025306,000440:                                                                                                  #        EXAMPLE.
025307,000441: 
025308,000442:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-  MRKBUF1, EXTVBACT
025309,000443: 
025310,000444:                                                                                                  #  DEBRIS-  RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS
025311,000445: 
025312,000446: 33,3776                                           BANK     33                                    
025313,000447: 37,2000                                           SETLOC   P20S                                  
025314,000448: 37,2000                                           BANK                                           
025315,000449: 37,2401                                           COUNT*   $$/R57                                
025316,000450: 37,2401  E7,1725                                  EBANK=   MRKBUF1                               
025317,000451: 37,2401           77420        R57                STQ      EXIT                                  
025318,000452: 37,2402           02317                                    EGRESS                                
025319,000453: 37,2403           35060                           CAF      EBANK7                                
025320,000454: 37,2404           54003                           TS       EBANK                                 
025321,000455: 37,2405           36211                           CAF      SIX                                   #  BIT2 = MARKING SYSTEM IN USE
025322,000456: 37,2406           71044                           MASK     EXTVBACT                              #  BIT3 = EXTENDED VERB IN PROGRESS
025323,000457: 37,2407           10000                           CCS      A                                     
025324,000458: 37,2410           02460                           TC       P23ABRT                               #  SET, THEREFORE ABORT
025325,000459: 37,2411           35016                           CAF      BIT2                                  #  NOT SET
025326,000460: 37,2412           27044                           ADS      EXTVBACT                              #  SET IT
025327,000461: 37,2413           05546        R57A               TC       UPFLAG                                #  SET V59FLAG (BIT 12 FLAG 5) TO INDICATE
025328,000462: 37,2414           00116                           ADRES    V59FLAG                               #  CALIBRATION MARK
025329,000463: 37,2415           32463                           CAF      V59NB                                 
025330,000464: 37,2416           04662                           TC       BANKCALL                              
025331,000465: 37,2417           20600                           CADR     GOMARKFR                              
025332,000466: 37,2420           04106                           TC       GOTOPOOH                              #  TERMINATE
025333,000467: 37,2421           02445                           TC       ENDR57                                
025334,000468: 37,2422           02445                           TC       ENDR57                                
025335,000469: 37,2423           35023                           CAF      SEVEN                                 

Page 571

025337,000471: 37,2424           05526                           TC       BLANKET                               #  BLANK OUT R1,R2,R3
025338,000472: 37,2425           05217                           TC       ENDOFJOB                              
025339,000473:                                                                                                  #  STORE TRUNNION ANGLE (OCDU)
025340,000474: 37,2426           32462        MARKDISP           CAF      V06N87NB                              
025341,000475: 37,2427           04662                           TC       BANKCALL                              
025342,000476: 37,2430           20600                           CADR     GOMARKFR                              
025343,000477: 37,2431           04106                           TC       GOTOPOOH                              #  TERMINATE
025344,000478: 37,2432           02437                           TC       R57B                                  #  PROCEED
025345,000479: 37,2433           02413                           TC       R57A                                  #  ENTER (RECYCLE)
025346,000480: 37,2434           35022                           CAF      FIVE                                  
025347,000481: 37,2435           05526                           TC       BLANKET                               #  BLANK OUT R1,R3
025348,000482: 37,2436           05217                           TC       ENDOFJOB                              
025349,000483: 37,2437           32465        R57B               CA       19.77DEG                              #  PUT FIXED INTO ERASABLE FOR MSU
025350,000484: 37,2440           54001                           TS       L                                     #  INSTRUCTION COMING UP
025351,000485: 37,2441           31732                           CA       MRKBUF1    +5                         #  CONTAINS TRUNNION
025352,000486: 37,2442           00006                           EXTEND                                         
025353,000487: 37,2443           20001                           MSU      L                                     #  CORRECTS TRUNBIAS FROM 2'S TO 1'S
025354,000488: 37,2444           55342                           TS       TRUNBIAS                              
025355,000489: 37,2445           05560        ENDR57             TC       DOWNFLAG                              #  RESET V59FLAG
025356,000490: 37,2446           00116                           ADRES    V59FLAG                               #  BIT 12 FLAG 5
025357,000491: 37,2447           35056                           CAF      EBANK5                                
025358,000492: 37,2450           54003                           TS       EBANK                                 
025359,000493: 37,2451           35066                           CAF      PRIO14                                
025360,000494: 37,2452           05134                           TC       NOVAC                                 #  THIS JOB CLEARS BIT IN
025361,000495: 37,2453     1330                                  EBANK=   MARKSTAT                              
025362,000496: 37,2453           05534 04062                     2CADR    ENDMARK                               #  MARKING IN R57 SO R53 CAN TAKE OVER
025363,000497: 
025364,000498: 37,2455           06006                           TC       INTPRET                               
025365,000499: 37,2456           77650                           GOTO                                           
025366,000500: 37,2457           02317                                    EGRESS                                
025367,000501: 37,2460           07755        P23ABRT            TC       BAILOUT                               
025368,000502: 37,2461           01211                           OCT      01211                                 
025369,000503: 37,2462           01527        V06N87NB           VN       0687                                  
025370,000504: 37,2463           16600        V59NB              VN       5900                                  
025371,000505: 37,2464           14600        V51NB              VN       5100                                  
025372,000506: 37,2465           61740        19.77DEG           OCT      61740                                 
025373,000507: 

Page 572

025375,000509:                                                                                                  #  PROGRAM DESCRIPTION
025376,000510:                                                                                                  #  MOD NO-  1
025377,000511:                                                                                                  #  MOD BY-  N. BRODEUR
025378,000512: 
025379,000513:                                                                                                  #  FUNCTIONAL DESCRIPTION
025380,000514: 
025381,000515:                                                                                                  #  TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
025382,000516:                                                                                                  #  ATION PROGRAM.  CALLED BY ASTRONAUT VIA EXTENDED VERB
025383,000517: 
025384,000518:                                                                                                  #  CALLING SEQUENCE-
025385,000519: 
025386,000520:                                                                                                  #        R21 VIA V57
025387,000521:                                                                                                  #        R23 VIA V 54
025388,000522: 
025389,000523:                                                                                                  #  SUBROUTINES CALLED-
025390,000524: 
025391,000525:                                                                                                  #        FLAGUP          FLAGDOWN        BANKCALL
025392,000526:                                                                                                  #        ENDOFJOB        GOMARK2         GOMARKF
025393,000527:                                                                                                  #        INTPRET         GENTRAN         KLEENEX
025394,000528:                                                                                                  #        ENDMARK
025395,000529: 
025396,000530:                                                                                                  #  NORMAL EXIT MODES-
025397,000531: 
025398,000532:                                                                                                  #  MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
025399,000533:                                                                                                  #  FOR USE BY R22.  WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
025400,000534:                                                                                                  #  PROCEED, R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
025401,000535:                                                                                                  #  TO MRKBUF2 FOR PROCESSING BY R22
025402,000536: 
025403,000537:                                                                                                  #  ALARM OR ABORT EXIT MODES-
025404,000538: 
025405,000539:                                                                                                  #        NONE
025406,000540: 
025407,000541:                                                                                                  #  OUTPUT-
025408,000542: 
025409,000543:                                                                                                  #        7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
025410,000544:                                                                                                  #        CDUX.
025411,000545: 
025412,000546:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
025413,000547: 
025414,000548:                                                                                                  #  FLAGS SET AND RESET
025415,000549:                                                                                                  #        R21MARK         (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 +2)
025416,000550:                                                                                                  #        R23FLG          INDICATES COAS MARKING
025417,000551: 
025418,000552:                                                                                                  #  DEBRIS
025419,000553: 
025420,000554: 37,2466  E7,1725                                  EBANK=   MRKBUF1                               
025421,000555: 37,2000                                           SETLOC   RENDEZ                                
025422,000556: 37,2000                                           BANK                                           
025423,000557: 
025424,000558: 37,2466                                           COUNT*   $$/R21                                
025425,000559: 
025426,000560: 37,2466           05546        R21CSM             TC       UPFLAG                                #  SET R21MARK
025427,000561: 37,2467           00037                           ADRES    R21MARK                               #  BIT 14 FLAG 2
025428,000562: 37,2470           37716        R23CSM             CA       NEGONE                                
025429,000563: 37,2471           55725                           TS       MRKBUF1                               
025430,000564: 37,2472           55734                           TS       MRKBUF2                               
025431,000565: 37,2473           30075                           CA       FLAGWRD1                              
025432,000566: 37,2474           75007                           MASK     R23BIT                                #  TEST R23FLG
025433,000567: 37,2475           00006                           EXTEND                                         
025434,000568: 37,2476           12531                           BZF      R21C1                                 #  NOT SET REGULAR R21 MARKING
025435,000569: 37,2477           32556                           CAF      V0694                                 #  R23 BACKUP MARKING
025436,000570: 37,2500           04662                           TC       BANKCALL                              #  DISPLAY SHAFT + TRUNNION
025437,000571: 37,2501           20561                           CADR     GOMARKF                               
025438,000572: 37,2502           02550                           TC       R21END                                #  TERM
025439,000573: 37,2503           02505                           TC       +2                                    #  PROC

Page 573

025441,000575: 37,2504           02477                           TC       -5                                    #  ENTER
025442,000576: 37,2505           32555        R23CSM1            CAF      V53                                   #  PERFORM ALT LOS SIGHT MARK
025443,000577: 37,2506           04662                           TC       BANKCALL                              
025444,000578: 37,2507           20564                           CADR     GOMARK2                               
025445,000579: 37,2510           02550                           TC       R21END                                #  V34- TERMINATE R23
025446,000580: 37,2511           12537                           TCF      R21CSMA                               #  PROCEED- END BACK UP MARKING (R23)
025447,000581: 37,2512           36211                           CAF      SIX                                   #  TRANSFER MRKBUF1 TO MRKBUF2
025448,000582: 37,2513           05606                           TC       GENTRAN                               
025449,000583: 37,2514           01725                           ADRES    MRKBUF1                               
025450,000584: 37,2515           01734                           ADRES    MRKBUF2                               
025451,000585: 37,2516           00006                           EXTEND                                         
025452,000586: 37,2517           30025                           DCA      TIME2                                 
025453,000587: 37,2520           53726                           DXCH     MRKBUF1                               #  READ TIME
025454,000588: 37,2521           30033                           CA       CDUY                                  #  READ CDU ANGLES
025455,000589: 37,2522           55727                           TS       MRKBUF1    +2                         
025456,000590: 37,2523           30034                           CA       CDUZ                                  
025457,000591: 37,2524           55731                           TS       MRKBUF1    +4                         
025458,000592: 37,2525           30032                           CA       CDUX                                  
025459,000593: 37,2526           55733                           TS       MRKBUF1    +6                         
025460,000594: 37,2527           00003                           RELINT                                         
025461,000595: 37,2530           02505                           TC       R23CSM1                               
025462,000596: 37,2531           32464        R21C1              CAF      V51NB                                 
025463,000597: 37,2532           04662                           TC       BANKCALL                              
025464,000598: 37,2533           20564                           CADR     GOMARK2                               
025465,000599: 37,2534           02550                           TC       R21END                                #  V34- TERMINATE R21
025466,000600: 37,2535           12537                           TCF      R21CSMA                               #  PROCEED- END R21
025467,000601: 37,2536           12531                           TCF      R21C1                                 #  RECYCLE
025468,000602: 
025469,000603: 37,2537           31725        R21CSMA            CA       MRKBUF1                               #  IF -1 NO MARK
025470,000604: 37,2540           65017                           AD       ONE                                   
025471,000605: 37,2541           00006                           EXTEND                                         
025472,000606: 37,2542           12550                           BZF      R21END                                #  ZERO = NO MARK
025473,000607: 37,2543           36211                           CAF      SIX                                   #  MARK THEREFORE TRANSFER IT TO MRKBUF2
025474,000608: 37,2544           05606        R21CSM1            TC       GENTRAN                               #  TRANSFER MRKBUF1 TO MRKBUF2
025475,000609: 37,2545           01725                           ADRES    MRKBUF1                               
025476,000610: 37,2546           01734                           ADRES    MRKBUF2                               
025477,000611: 37,2547           00003                           RELINT                                         
025478,000612: 37,2550           04662        R21END             TC       BANKCALL                              
025479,000613: 37,2551           20560                           CADR     KLEENEX                               
025480,000614: 37,2552           05560                           TC       DOWNFLAG                              #  RESET R21MARK
025481,000615: 37,2553           00037                           ADRES    R21MARK                               #  BIT 14 FLAG 2
025482,000616: 37,2554           05534                           TC       ENDMARK                               #  END MARKING AND ENDJOB
025483,000617: 37,2555           15200        V53                VN       5300                                  
025484,000618: 37,2556           01536        V0694              VN       0694                                  
025485,000619: 

Page 574

025487,000621:                                                                                                  #  PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
025488,000622: 
025489,000623:                                                                                                  #  PROGRAM DESCRIPTION
025490,000624:                                                                                                  #        MOD NO-  2
025491,000625:                                                                                                  #        MOD BY-  N. BRODEUR
025492,000626: 
025493,000627:                                                                                                  #  FUNCTIONAL DESCRIPTION-
025494,000628: 
025495,000629:                                                                                                  #        TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
025496,000630:                                                                                                  #        TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
025497,000631:                                                                                                  #        OR X-AXIS TRACKING ATTITUDE.
025498,000632: 
025499,000633:                                                                                                  #  CALLING SEQUENCE-
025500,000634: 
025501,000635:                                                                                                  #        TC      BANKCALL
025502,000636:                                                                                                  #        CADR    R61CSM
025503,000637: 
025504,000638:                                                                                                  #  SUBROUTINES CALLED
025505,000639: 
025506,000640:                                                                                                  #        MAKECADR        BANKCALL
025507,000641:                                                                                                  #        INTPRET         FLAGUP          FLAGDOWN
025508,000642:                                                                                                  #        BANKJUMP        CRS61.1         R60CSM
025509,000643:                                                                                                  #        PHASCHNG
025510,000644: 
025511,000645:                                                                                                  #  NORMAL EXIT MODES-
025512,000646: 
025513,000647:                                                                                                  #        NORMAL RETURN IS TO CALLER + 1
025514,000648: 
025515,000649:                                                                                                  #  OUTPUT-
025516,000650: 
025517,000651:                                                                                                  #        SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
025518,000652: 
025519,000653:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
025520,000654: 
025521,000655:                                                                                                  #        GENRET USED TO SAVE Q FOR RETURN
025522,000656:                                                                                                  #        R61CNTR MUST BE PRESET TO ZERO
025523,000657: 
025524,000658:                                                                                                  #  FLAGS SET + RESET
025525,000659: 
025526,000660:                                                                                                  #        3-AXIS FLAG
025527,000661: 
025528,000662:                                                                                                  #  DEBRIS
025529,000663: 
025530,000664:                                                                                                  #        SEE SUBROUTINES
025531,000665: 
025532,000666: 37,2557  E6,1770                                  EBANK=   GENRET                                
025533,000667: 37,2557                                           COUNT*   $$/R61                                #  ROUTINES - NAVIGATION - PREF. TR. 9TT=
025534,000668: 
025535,000669: 37,2557           35057        R61CSM             CAF      EBANK6                                #  SWITCH TO EBANK 6
025536,000670: 37,2560           56003                           XCH      EBANK                                 
025537,000671: 37,2561           55771                           TS       SAVBNK                                #  SAVE EBANK
025538,000672: 37,2562           04711                           TC       MAKECADR                              
025539,000673: 37,2563           55770                           TS       GENRET                                
025540,000674: 37,2564           11775                           CCS      R61CNTR                               #  TEST R61CNTR
025541,000675: 37,2565           02616                           TC       DECRM61                               #  NOT READY TO DO R61.
025542,000676: 37,2566           02570                           TC       +2                                    #  DO R61
025543,000677: 37,2567           02617                           TC       DECRM61    +1                         
025544,000678: 37,2570           06006                           TC       INTPRET                               
025545,000679: 37,2571           77624                           CALL                                           
025546,000680: 37,2572           71343                                    CRS61.1                               #  LOS DETERMINATION + VEH ATTITUDE
025547,000681: 37,2573           77776                           EXIT                                           
025548,000682: 37,2574           50154                           INDEX    MPAC                                  
025549,000683: 37,2575           02576                           TC       +1                                    
025550,000684: 37,2576           02615                           TC       R61END                                #  SUBROUTINE DRIVING DAP        (EXIT R61)
025551,000685:                                                                                                  #  OR AUTO MODE NOT SET          (EXIT R61)
025552,000686:                                                                                                  #  OR STIKFLAG SET               (EXIT R61)
025553,000687: 37,2577           05560        R61C1              TC       DOWNFLAG                              #  RESET 3-AXIS FLAG
025554,000688: 37,2600           00124                           ADRES    3AXISFLG                              #  BIT 6 FLAG 5

Page 575

025556,000690: 37,2601           45017                           CS       ONE                                   #  SET R61CNTR NEG. TO INDICATE KALCMANU
025557,000691: 37,2602           55775                           TS       R61CNTR                               
025558,000692: 
025559,000693: 37,2603           05546                           TC       UPFLAG                                #  SET FLAG FOR PROIRITY DISPLAYS FOR R60
025560,000694: 37,2604           00077                           ADRES    PDSPFLAG                              #  BIT 12 FLAG 4
025561,000695: 37,2605           04662                           TC       BANKCALL                              
025562,000696: 37,2606           56000                           CADR     R60CSM                                
025563,000697: 37,2607           05560                           TC       DOWNFLAG                              #  RESET FLAG FOR PRIORITY DISPLAYS IN R60
025564,000698: 37,2610           00077                           ADRES    PDSPFLAG                              #  BIT 12 FLAG 4
025565,000699: 37,2611           05412                           TC       PHASCHNG                              
025566,000700: 37,2612           00111                           OCT      00111                                 
025567,000701: 37,2613           35021                           CAF      ZERO                                  
025568,000702: 37,2614           02616                           TC       DECRM61                               
025569,000703: 37,2615           36214        R61END             CAF      THREE                                 
025570,000704: 
025571,000705: 37,2616           55775        DECRM61            TS       R61CNTR                               
025572,000706: 
025573,000707: 37,2617           31770                           CAE      GENRET                                
025574,000708: 37,2620           22000                           LXCH     A                                     #  RETURN IS IN L
025575,000709: 37,2621           31771                           CA       SAVBNK                                #  RESTORE EBANK
025576,000710: 37,2622           56003                           XCH      EBANK                                 
025577,000711: 37,2623           22000                           LXCH     A                                     #  RETURN IS NOW BACK IN A
025578,000712: 37,2624           04704                           TC       BANKJUMP                              #  EXIT R61
025579,000713: 13,2231                                           BANK     13                                    
025580,000714: 23,2000                                           SETLOC   P20S2                                 
025581,000715: 23,2000                                           BANK                                           
025582,000716: 
025583,000717: 23,3043  E7,1725                                  EBANK=   MRKBUF1                               

Page 576

025585,000719:                                                                                                  #  BVECTOR PERFORMS COMPUTATIONS FOR
025586,000720: 
025587,000721:                                                                                                  #        DELTAQ, THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
025588,000722:                                                                                                  #        M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
025589,000723: 
025590,000724:                                                                                                  #        US, THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
025591,000725:                                                                                                  #        GEOMETRY VECTOR B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
025592,000726: 
025593,000727:                                                                                                  #  INPUT
025594,000728: 
025595,000729:                                                                                                  #        UM, 1/2 UNIT VECTOR ALONG THE CSM-LM LINE OF SIGHT (BASIC REF. SYSTEM)
025596,000730: 
025597,000731:                                                                                                  #        USTAR, FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
025598,000732: 
025599,000733:                                                                                                  #        RCLP, RELATIVE CSM TO LM POSITION VECTOR
025600,000734: 
025601,000735:                                                                                                  #  OUTPUT
025602,000736: 
025603,000737:                                                                                                  #        USTAR, MODIFIED FICTITOUS STAR DIRECTION (1/2 UNIT VECTOR)
025604,000738: 
025605,000739:                                                                                                  #        BVECTOR = 9 DIMENSIONAL BVECTOR (1/2 UNIT VEC.)
025606,000740: 
025607,000741:                                                                                                  #        DELTAQ = MEASURED DEVIATION
025608,000742: 
025609,000743:                                                                                                  #  CALLING SEQUENCE
025610,000744: 
025611,000745:                                                                                                  #        L       CALL BVECTORS
025612,000746: 
025613,000747:                                                                                                  #  NORMAL EXIT
025614,000748: 
025615,000749:                                                                                                  #        L+1 OF CALLING SEQUENCE
025616,000750: 
025617,000751: 23,3043                                           COUNT    23/20SUB                              
025618,000752: 
025619,000753: 23,3043           77620        BVECTORS           STQ                                            
025620,000754: 23,3044           02317                                    EGRESS                                
025621,000755: 23,3045           53575                           VLOAD    UNIT                                  
025622,000756: 23,3046           03531                                    RCLP                                  #  RELATIVE POSITION VECTOR
025623,000757: 23,3047           14033                           STODL    26D                                   #  RCLP UNIT VEC
025624,000758: 23,3050           00045                                    36D                                   #  RCLP ABS VALUE
025625,000759: 23,3051           25301                           STOVL    TEMPOR1                               #  MOVE TO SAFE LOCATION
025626,000760: 23,3052           01245                                    USTAR                                 
025627,000761: 23,3053           53435                           VXV      UNIT                                  
025628,000762: 23,3054           00033                                    26D                                   #  USTAR = UNIT(US X UCL)
025629,000763: 23,3055           37502                           STCALL   BVECTOR                               
025630,000764: 23,3056           56750                                    GRP2PC                                #  PHASE CHANGE
025631,000765: 23,3057           77775                           VLOAD                                          
025632,000766: 23,3060           03502                                    BVECTOR                               
025633,000767: 23,3061           01245                           STORE    USTAR                                 
025634,000768: 23,3062           72441                           DOT      SL1                                   
025635,000769: 23,3063           01235                                    UM                                    #  USTAR DOT UM
025636,000770: 23,3064           45326                           ACOS     DSU                                   
025637,000771: 23,3065           15325                                    DP1/4TH                               
025638,000772: 23,3066           41301                           NORM     DMP                                   
025639,000773: 23,3067           00047                                    X1                                    
025640,000774: 23,3070           07103                                    PI/4.0                                
025641,000775: 23,3071           53605                           DMP      SRR*                                  
025642,000776: 23,3072           01301                                    TEMPOR1                               #  RCLP ABS VALUE
025643,000777: 23,3073           21576                                    0          -3,1                       #  ADJUST SCALING
025644,000778: 23,3074           27524                           STOVL    DELTAQ                                
025645,000779: 23,3075           15335                                    ZEROVECS                              
025646,000780: 23,3076           03510                           STORE    BVECTOR    +6                         
025647,000781: 23,3077           03516                           STORE    BVECTOR    +12D                       
025648,000782: 23,3100           77650                           GOTO                                           

Page 577

025650,000784: 23,3101           02317                                    EGRESS                                
025651,000785: 23,3102           31103 36652  PI/4.0             2DEC     .785398164                            
025652,000786: 

Page 578

025654,000788:                                                                                                  #   GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
025655,000789:                                                                                                  #  E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
025656,000790:                                                                                                  #  U GIMBAL ANGLES.
025657,000791: 
025658,000792:                                                                                                  #  INPUT
025659,000793: 
025660,000794:                                                                                                  #        MARKDATA, BASE ADDRESS OF MARK DATA
025661,000795:                                                                                                  #        REFSMMAT, ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF. COORD. SYSTEM
025662,000796: 
025663,000797:                                                                                                  #  SUBROUTINES CALLED-
025664,000798: 
025665,000799:                                                                                                  #        SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025666,000800:                                                                                                  #        NBSM - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
025667,000801: 
025668,000802:                                                                                                  #  OUTPUT
025669,000803: 
025670,000804:                                                                                                  #        MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
025671,000805: 
025672,000806:                                                                                                  #  CALLING SEQUENCE
025673,000807: 
025674,000808:                                                                                                  #        L       CALL GETUM
025675,000809: 
025676,000810:                                                                                                  #  NORMAL EXIT
025677,000811: 
025678,000812:                                                                                                  #        L+1 OF CALLING SEQUENCE
025679,000813: 
025680,000814: 23,3104           40220        GETUM              STQ      SETPD                                 
025681,000815: 23,3105           02317                                    EGRESS                                
025682,000816: 23,3106           00001                                    0                                     
025683,000817: 23,3107           76740                           LXC,1    VLOAD*                                
025684,000818: 23,3110           01242                                    MARKDATA                              #  CONTAINS ADDRESS OF MARK DATA
025685,000819: 23,3111           00002                                    1,1                                   
025686,000820: 23,3112           23676                           STODL*   MARKDOWN   +1                         #  TRANSFER DATA FROM WORKING STORAGE
025687,000821: 23,3113           00001                                    0,1                                   #  TO MARKDOWN ARRAY FOR DOWNLINK
025688,000822: 23,3114           03675                           STORE    MARKDOWN                              
025689,000823: 23,3115           77774                           AXT,2                                          
025690,000824: 23,3116           00002                                    2                                     
025691,000825: 23,3117           67064                           XSU,2    SXA,2                                 
025692,000826: 23,3120           00046                                    X1                                    #  X1 = MARKDATA
025693,000827: 23,3121           00050                                    S1                                    #  S1 = MARKDATA(ADR) +2
025694,000828: 23,3122           77624                           CALL                                           
025695,000829: 23,3123           46000                                    SXTNB                                 #  SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025696,000830: 23,3124           77624                           CALL                                           
025697,000831: 23,3125           47606                                    NBSM                                  #  TRANSFORM FROM NAV. BASE TO STABLE MEM.
025698,000832: 23,3126           76505                           VXM      VSL1                                  
025699,000833: 23,3127           01736                                    REFSMMAT                              
025700,000834: 23,3130           77650                           GOTO                                           #  MPAC = (UM) LINE OF SIGHT VECTOR
025701,000835: 23,3131           02317                                    EGRESS                                #  EXIT
025702,000836: 

Page 579

025704,000838:                                                                                                  #  RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
025705,000839: 
025706,000840:                                                                                                  #  PURPOSE       (1) TO PROCESS RENDEZVOUS SIGHTING MARK DATA TO UPDATE THE STATE VECTOR OF EITHER THE CSM OR LM AS
025707,000841:                                                                                                  #                DEFINED BY THE RENDEZVOUS NAVIGATION PROGRAM (P20).
025708,000842: 
025709,000843:                                                                                                  #  ASSUMPTIONS   (1) THIS ROUTINE IS MANUALLY SELECTED BY THE ASTRONAUT BY V55E WHENEVER RENDEZVOUS SIGHTING MARKS
025710,000844:                                                                                                  #                ARE DESIRED.  ITS SELECTION HOWEVER IS LIMITED TO PERIODS WHEN THE CMC IS HOLDING FOR A V/N FLASHING
025711,000845:                                                                                                  #                DATA DISPLAY.  THIS ROUTINE RETURNS TO THE ORIGINAL PROGRAM AT THE INTERRUPTED DISPLAY.
025712,000846: 
025713,000847: 34,2630                                           BANK     34                                    
025714,000848: 34,2000                                           SETLOC   P20S3                                 
025715,000849: 34,2000                                           BANK                                           
025716,000850: 
025717,000851: 34,2630                                           COUNT    34/R22                                
025718,000852: 
025719,000853: 34,2630           37663        R22                CAF      PRIO26                                
025720,000854: 34,2631           55056                           TS       PHSPRDT2                              
025721,000855: 34,2632           05210                           TC       PRIOCHNG                              
025722,000856: 34,2633           37714                           CA       NEG3                                  
025723,000857: 34,2634           55734                           TS       MRKBUF2                               
025724,000858: 34,2635           06006                           TC       INTPRET                               
025725,000859: 34,2636           77634                           RTB                                            
025726,000860: 34,2637           45510                                    LOADTIME                              
025727,000861: 34,2640           01152                           STORE    VHFTIME                               #  PRESENT TIME
025728,000862: 34,2641           77624        REND1              CALL                                           
025729,000863: 34,2642           56750                                    GRP2PC                                
025730,000864: 34,2643           77624                           CALL                                           
025731,000865: 34,2644           56404                                    WAITONE                               
025732,000866: 34,2645           77776        REND1A             EXIT                                           
025733,000867: 34,2646           31734                           CA       MRKBUF2                               
025734,000868: 34,2647           00006                           EXTEND                                         
025735,000869: 34,2650           12653                           BZF      REND2                                 
025736,000870: 34,2651           00006                           EXTEND                                         
025737,000871: 34,2652           62672                           BZMF     REND3A                                
025738,000872: 34,2653           36211        REND2              CAF      SIX                                   
025739,000873: 34,2654           05606                           TC       GENTRAN                               
025740,000874: 34,2655           01734                           ADRES    MRKBUF2                               
025741,000875: 34,2656           01224                           ADRES    MARKTIME                              #  MARKTIME MUST BE CONTIGUOUS WITH VTEMP
025742,000876: 34,2657           37714                           CAF      NEG3                                  #  NEG VALUE TO INDICATE VALUES USED
025743,000877: 34,2660           55734                           TS       MRKBUF2                               
025744,000878: 34,2661           00003                           RELINT                                         
025745,000879: 34,2662           06006                           TC       INTPRET                               
025746,000880: 34,2663           45014                           CLEAR    CALL                                  
025747,000881: 34,2664           04667                                    SOURCFLG                              #  0 = OPTICS DATA
025748,000882: 34,2665           56750                                    GRP2PC                                #  PHASE CHANGE
025749,000883: 34,2666           52131                           SSP      GOTO                                  
025750,000884: 34,2667           01243                                    MARKDATA                              
025751,000885: 34,2670           01224                           ECADR    VTEMP      -2                         
025752,000886: 34,2671           70715                                    REND4                                 
025753,000887: 34,2672           06006        REND3A             TC       INTPRET                               
025754,000888: 34,2673           77624        REND3              CALL                                           

Page 580

025756,000890: 34,2674           56750                                    GRP2PC                                
025757,000891: 34,2675           77624                           CALL                                           
025758,000892: 34,2676           56404                                    WAITONE                               
025759,000893: 34,2677           77614                           BOFF                                           
025760,000894: 34,2700           04746                                    VHFRFLAG                              
025761,000895: 34,2701           70645                                    REND1A                                
025762,000896: 34,2702           77634                           RTB                                            
025763,000897: 34,2703           45510                                    LOADTIME                              #  PRESENT TIME
025764,000898: 34,2704           45225                           DSU      DSU                                   
025765,000899: 34,2705           14650                                    60SECDP                               #  1 MIN
025766,000900: 34,2706           01152                                    VHFTIME                               #  LAST READING OF RADAR
025767,000901: 34,2707           45040                           BMN      CALL                                  
025768,000902: 34,2710           70645                                    REND1A                                
025769,000903: 34,2711           56415                                    RANGERD                               #  READ RADAR RANGE
025770,000904: 34,2712           77745                           DLOAD                                          
025771,000905: 34,2713           01225                                    MARKTIME                              
025772,000906: 34,2714           01152                           STORE    VHFTIME                               #  FOR DOWNLINK
025773,000907: 34,2715           77624        REND4              CALL                                           
025774,000908: 34,2716           56343                                    SETINTG                               #  SET INTEGRV FLAGS
025775,000909: 34,2717           45014                           BON      CALL                                  
025776,000910: 34,2720           00707                                    VEHUPFLG                              
025777,000911: 34,2721           71152                                    CSMUPP                                #  BRANCH IF CSM UPDATE
025778,000912: 34,2722           27162                                    INTEGRV                               
025779,000913: 34,2723           77624                           CALL                                           
025780,000914: 34,2724           56750                                    GRP2PC                                #  PHASE CHANGE
025781,000915: 34,2725           77624                           CALL                                           
025782,000916: 34,2726           56343                                    SETINTG                               #  SET INTEGRV FLAGS
025783,000917: 34,2727           77614                           CLEAR                                          
025784,000918: 34,2730           01674                                    VINTFLAG                              #  SET INTEGRATION VEHICLE TO LM
025785,000919: 34,2731           43014        REND5              BOFF     SET                                   
025786,000920: 34,2732           02756                                    RENDWFLG                              
025787,000921: 34,2733           70735                                    REND5A                                #  DO NOT INTEGRATE W IF FLAG = 0
025788,000922: 34,2734           01476                                    DIM0FLAG                              
025789,000923: 34,2735           77624        REND5A             CALL                                           
025790,000924: 34,2736           27162                                    INTEGRV                               
025791,000925: 34,2737           77624                           CALL                                           
025792,000926: 34,2740           56547                                    SHIFTNDX                              #  SET EARTH MOON SCALING INDEX
025793,000927: 34,2741           77624                           CALL                                           
025794,000928: 34,2742           71241                                    CMPOS                                 #  SET CSM POSITION
025795,000929: 34,2743           45014                           SET      CALL                                  
025796,000930: 34,2744           02464                                    INCORFLG                              #  SET FOR 1ST PASS
025797,000931: 34,2745           71250                                    LMPOS                                 #  SET LM POSITION
025798,000932: 34,2746           43014                           CLEAR    BON                                   
025799,000933: 34,2747           01671                                    ORBWFLAG                              #  CLEAR FOR ORBITAL AND CISLUNAR
025800,000934: 34,2750           02716                                    RENDWFLG                              
025801,000935: 34,2751           70761                                    REND6                                 
025802,000936: 34,2752           77745                           DLOAD                                          
025803,000937: 34,2753           02001                                    WRENDPOS                              
025804,000938: 34,2754           34001                           STCALL   0                                     #  0 = WRENDPOS  1 = WRENDVEL
025805,000939: 34,2755           56565                                    INITIALW                              #  INITIALIZE W MATRIX

Page 581

025807,000941: 34,2756           77745                           DLOAD                                          
025808,000942: 34,2757           15335                                    ZEROVECS                              
025809,000943: 34,2760           01126                           STORE    VHFCNT                                #  ZERO OUT VHFCNT AND TRKMKCNT
025810,000944: 34,2761           77614        REND6              SET                                            
025811,000945: 34,2762           02476                                    RENDWFLG                              
025812,000946: 34,2763           52375                           VLOAD    VSU                                   
025813,000947: 34,2764           01215                                    LEMPOS                                
025814,000948: 34,2765           01207                                    CSMPOS                                
025815,000949: 34,2766           03531                           STORE    RCLP                                  #  LM - CSM
025816,000950: 34,2767           43056        REND7              UNIT     BON                                   
025817,000951: 34,2770           04707                                    SOURCFLG                              
025818,000952: 34,2771           71163                                    REND14                                #  BRANCH IF DATA IS RADAR
025819,000953: 34,2772           01273                           STORE    UCL                                   
025820,000954: 34,2773           45014                           BOFF     CALL                                  
025821,000955: 34,2774           02744                                    INCORFLG                              
025822,000956: 34,2775           71007                                    REND9                                 
025823,000957: 34,2776           47104                                    GETUM                                 #  CALCULATE UM LINE OF SIGHT
025824,000958: 34,2777           25235                           STOVL    UM                                    
025825,000959: 34,3000           01273                                    UCL                                   
025826,000960: 34,3001           40035                           VXV      BOV                                   
025827,000961: 34,3002           01235                                    UM                                    #  UCL X UM
025828,000962: 34,3003           71004                                    REND8                                 
025829,000963: 34,3004           40056        REND8              UNIT     BOV                                   
025830,000964: 34,3005           70673                                    REND3                                 #  BRANCH IF OVERFLOW IGNORE MARK
025831,000965: 34,3006           01245                           STORE    USTAR                                 
025832,000966: 34,3007           77624        REND9              CALL                                           
025833,000967: 34,3010           47043                                    BVECTORS                              
025834,000968: 34,3011           77214                           BON      VLOAD                                 
025835,000969: 34,3012           00707                                    VEHUPFLG                              
025836,000970: 34,3013           71017                                    REND9A                                
025837,000971: 34,3014           03502                                    BVECTOR                               
025838,000972: 34,3015           77676                           VCOMP                                          
025839,000973: 34,3016           03502                           STORE    BVECTOR                               
025840,000974: 34,3017           77624        REND9A             CALL                                           
025841,000975: 34,3020           56750                                    GRP2PC                                
025842,000976: 34,3021           77614                           BON                                            
025843,000977: 34,3022           00706                                    R23FLG                                
025844,000978: 34,3023           71214                                    REND15                                #  BRANCH IF BACKUP OPTICS (R23 WORKING)
025845,000979: 34,3024           43345                           DLOAD    DAD                                   
025846,000980: 34,3025           31336                                    SXTVAR                                
025847,000981: 34,3026           31340                                    IMUVAR                                
025848,000982: 34,3027           27526        REND10             STOVL    VARIANCE                              #  TEMP STORAGE FOR VARIANCE CALC.
025849,000983: 34,3030           03531                                    RCLP                                  
025850,000984: 34,3031           60246                           ABVAL    NORM                                  
025851,000985: 34,3032           00047                                    X1                                    
025852,000986: 34,3033           41316                           DSQ      DMP                                   
025853,000987: 34,3034           03526                                    VARIANCE                              
025854,000988: 34,3035           45070                           XAD,1    CALL                                  
025855,000989: 34,3036           00046                                    X1                                    
025856,000990: 34,3037           56547                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX

Page 582

025858,000992: 34,3040           56070                           XAD,1    XAD,1                                 
025859,000993: 34,3041           00047                                    X2                                    
025860,000994: 34,3042           00047                                    X2                                    
025861,000995: 34,3043           72257                           SR*      TLOAD                                 
025862,000996: 34,3044           20577                                    0          -2,1                       #  ADJUST SCALING TO B-40
025863,000997: 34,3045           00155                                    MPAC                                  
025864,000998: 34,3046           03526                           STORE    VARIANCE                              
025865,000999: 34,3047           54335                           SLOAD    SR                                    
025866,001000: 34,3050           02400                                    INTVAR                                #  INTEGRATION VARIANCE SCALED B-15
025867,001001: 34,3051           20632                                    25D                                   #  SCALE IT B-40
025868,001002: 34,3052           47171                           TAD      RTB                                   
025869,001003: 34,3053           03526                                    VARIANCE                              
025870,001004: 34,3054           45565                                    TPMODE                                
025871,001005: 34,3055           03526                           STORE    VARIANCE                              
025872,001006: 34,3056           76214                           BOFF     TAD                                   
025873,001007: 34,3057           04747                                    SOURCFLG                              #  BRANCH IF NOT VHF RADAR
025874,001008: 34,3060           71067                                    REND10A                               
025875,001009: 34,3061           03005                                    RVARMIN                               #  VHF RADAR MIN. VARIANCE
025876,001010: 34,3062           72244                           BPL      TLOAD                                 
025877,001011: 34,3063           71067                                    REND10A                               
025878,001012: 34,3064           03005                                    RVARMIN                               
025879,001013: 34,3065           77646                           ABS                                            #  MIN. VALUE WAS STORED AS NEG.
025880,001014: 34,3066           03526                           STORE    VARIANCE                              #  STORE MIN. VALUE
025881,001015: 34,3067           45014        REND10A            CLEAR    CALL                                  
025882,001016: 34,3070           02666                                    DMENFLG                               #  CLEAR FOR 6 X 6 W MATRIX
025883,001017: 34,3071           75254                                    INCORP1                               #  CALCULATE UPDATE
025884,001018: 34,3072           77624                           CALL                                           
025885,001019: 34,3073           56750                                    GRP2PC                                
025886,001020: 34,3074           45014                           BOFF     CALL                                  
025887,001021: 34,3075           02744                                    INCORFLG                              
025888,001022: 34,3076           71124                                    REND12                                
025889,001023: 34,3077           56547                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025890,001024: 34,3100           51575                           VLOAD    ABVAL                                 
025891,001025: 34,3101           01265                                    DELTAX     +6                         
025892,001026: 34,3102           77657                           SR*                                            
025893,001027: 34,3103           57176                                    0,2                                   
025894,001028: 34,3104           27504                           STOVL    N49DISP    +2                         
025895,001029: 34,3105           01257                                    DELTAX                                
025896,001030: 34,3106           53646                           ABVAL    SR*                                   
025897,001031: 34,3107           57176                                    0,2                                   
025898,001032: 34,3110           03502                           STORE    N49DISP                               
025899,001033: 34,3111           77735                           SLOAD                                          
025900,001034: 34,3112           02003                                    RMAX                                  
025901,001035: 34,3113           45261                           SR       DSU                                   
025902,001036: 34,3114           20613                                    10D                                   
025903,001037: 34,3115           03502                                    N49DISP                               
025904,001038: 34,3116           67240                           BMN      SLOAD                                 
025905,001039: 34,3117           71257                                    RENDISP                               #  BRANCH IF POS UP. GREATER THAN MAX.
025906,001040: 34,3120           02004                                    VMAX                                  
025907,001041: 34,3121           50025                           DSU      BMN                                   

Page 583

025909,001043: 34,3122           03504                                    N49DISP    +2                         
025910,001044: 34,3123           71257                                    RENDISP                               #  BRANCH IF VEL. UPDATE GREATER THAN MAX.
025911,001045: 34,3124           77624        REND12             CALL                                           
025912,001046: 34,3125           75466                                    INCORP2                               #  INCORPORATE UPDATE VALUES INTO STATE VEC
025913,001047: 34,3126           43014                           BON      BOFF                                  
025914,001048: 34,3127           04707                                    SOURCFLG                              
025915,001049: 34,3130           71221                                    REND16                                #  BRANCH IF DATA IS RADAR
025916,001050: 34,3131           02744                                    INCORFLG                              
025917,001051: 34,3132           71227                                    REND17                                
025918,001052: 34,3133           77624                           CALL                                           
025919,001053: 34,3134           56547                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025920,001054: 34,3135           45014                           BON      CALL                                  
025921,001055: 34,3136           00707                                    VEHUPFLG                              
025922,001056: 34,3137           71235                                    REND18                                #  BRANCH IF CSM UPDATE
025923,001057: 34,3140           71250                                    LMPOS                                 #  GET LM POSITION
025924,001058: 34,3141           77624        REND13             CALL                                           
025925,001059: 34,3142           56750                                    GRP2PC                                #  PHASE CHANGE
025926,001060: 34,3143           52375                           VLOAD    VSU                                   
025927,001061: 34,3144           01215                                    LEMPOS                                
025928,001062: 34,3145           01207                                    CSMPOS                                
025929,001063: 34,3146           03531                           STORE    RCLP                                  #  LM - CSM
025930,001064: 34,3147           77614                           CLRGO                                          
025931,001065: 34,3150           02624                                    INCORFLG                              
025932,001066: 34,3151           70767                                    REND7                                 #  BRANCH FOR 2ND PASS THIS OPTICS MARK
025933,001067: 34,3152           45014        CSMUPP             CLEAR    CALL                                  
025934,001068: 34,3153           01674                                    VINTFLAG                              #  SET INTEGRATION VEHICLE EQ LM
025935,001069: 34,3154           27162                                    INTEGRV                               
025936,001070: 34,3155           77624                           CALL                                           
025937,001071: 34,3156           56750                                    GRP2PC                                #  PHASE CHANGE
025938,001072: 34,3157           77624                           CALL                                           
025939,001073: 34,3160           56343                                    SETINTG                               #  SET FLAGS FOR INTEGRATION
025940,001074: 34,3161           77650                           GOTO                                           
025941,001075: 34,3162           70731                                    REND5                                 
025942,001076: 34,3163           27502        REND14             STOVL    BVECTOR                               #  VHF RADAR BVECTOR
025943,001077: 34,3164           15335                                    ZEROVECS                              
025944,001078: 34,3165           03510                           STORE    BVECTOR    +6                         
025945,001079: 34,3166           27516                           STOVL    BVECTOR    +12D                       
025946,001080: 34,3167           03531                                    RCLP                                  
025947,001081: 34,3170           71256                           UNIT     DLOAD                                 
025948,001082: 34,3171           01257                                    VHFRANGE                              #  VHFRANGE SCALED B-27
025949,001083: 34,3172           60414                           BON      SR2                                   
025950,001084: 34,3173           04303                                    MOONTHIS                              
025951,001085: 34,3174           71175                                    +1                                    
025952,001086: 34,3175           43025                           DSU      SET                                   
025953,001087: 34,3176           00045                                    36D                                   #  ABVAL (RCLP)
025954,001088: 34,3177           02464                                    INCORFLG                              
025955,001089: 34,3200           03524                           STORE    DELTAQ                                
025956,001090: 34,3201           77214                           BOFF     VLOAD                                 
025957,001091: 34,3202           00747                                    VEHUPFLG                              
025958,001092: 34,3203           71207                                    REND14A                               

Page 584

025960,001094: 34,3204           03502                                    BVECTOR                               
025961,001095: 34,3205           77676                           VCOMP                                          
025962,001096: 34,3206           03502                           STORE    BVECTOR                               
025963,001097: 34,3207           77624        REND14A            CALL                                           
025964,001098: 34,3210           56750                                    GRP2PC                                
025965,001099: 34,3211           52145                           DLOAD    GOTO                                  
025966,001100: 34,3212           03003                                    RVAR                                  
025967,001101: 34,3213           71027                                    REND10                                
025968,001102: 34,3214           43335        REND15             SLOAD    DAD                                   #  GET ALT LOS VARIANCE
025969,001103: 34,3215           01357                                    ALTVAR                                #  BACKUP OPTICS
025970,001104: 34,3216           31340                                    IMUVAR                                #  IMU VARIANCE
025971,001105: 34,3217           77650                           GOTO                                           
025972,001106: 34,3220           71027                                    REND10                                
025973,001107: 34,3221           62150        REND16             LXA,1    INCR,1                                
025974,001108: 34,3222           01125                                    VHFCNT                                #  VHF RADAR UPDATE COUNT
025975,001109: 34,3223           00001                           DEC      1          B-14                       
025976,001110: 34,3224           52130                           SXA,1    GOTO                                  
025977,001111: 34,3225           01125                                    VHFCNT                                #  UPDATE COUNT
025978,001112: 34,3226           70641                                    REND1                                 
025979,001113: 34,3227           62150        REND17             LXA,1    INCR,1                                
025980,001114: 34,3230           01126                                    TRKMKCNT                              #  OPTICS MARK COUNT
025981,001115: 34,3231           00001                           DEC      1          B-14                       
025982,001116: 34,3232           52130                           SXA,1    GOTO                                  
025983,001117: 34,3233           01126                                    TRKMKCNT                              #  UPDATE COUNT
025984,001118: 34,3234           70673                                    REND3                                 
025985,001119: 34,3235           77624        REND18             CALL                                           
025986,001120: 34,3236           71241                                    CMPOS                                 #  GET CSM POSITION
025987,001121: 34,3237           77650                           GOTO                                           
025988,001122: 34,3240           71141                                    REND13                                
025989,001123: 34,3241           53775        CMPOS              VLOAD    VSR*                                  
025990,001124: 34,3242           01573                                    DELTACSM                              
025991,001125: 34,3243           57167                                    7,2                                   
025992,001126: 34,3244           77655                           VAD                                            
025993,001127: 34,3245           01607                                    RCVCSM                                
025994,001128: 34,3246           01207                           STORE    CSMPOS                                #  CSM POSITION SCALED B-27 OR B-29
025995,001129: 34,3247           77616                           RVQ                                            
025996,001130: 34,3250           53775        LMPOS              VLOAD    VSR*                                  
025997,001131: 34,3251           01645                                    DELTALEM                              
025998,001132: 34,3252           57167                                    7,2                                   
025999,001133: 34,3253           77655                           VAD                                            
026000,001134: 34,3254           01661                                    RCVLEM                                
026001,001135: 34,3255           01215                           STORE    LEMPOS                                #  LM POSITION SCALED B-27 OR B-29
026002,001136: 34,3256           77616                           RVQ                                            
026003,001137: 34,3257           77776        RENDISP            EXIT                                           
026004,001138: 34,3260           30105                           CA       FLAGWRD9                              
026005,001139: 34,3261           75010                           MASK     SOURCBIT                              
026006,001140: 34,3262           00006                           EXTEND                                         
026007,001141: 34,3263           13266                           BZF      +3                                    
026008,001142: 34,3264           35016                           CA       BIT2                                  
026009,001143: 34,3265           03267                           TC       +2                                    

Page 585

026011,001145: 34,3266           35017                           CA       BIT1                                  
026012,001146: 34,3267           55505                           TS       N49DISP    +4                         
026013,001147: 34,3270           35021                           CAF      ZERO                                  #  SET TEMPOR1 > ZERO TO INDICATE
026014,001148: 34,3271           55300                           TS       TEMPOR1                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
026015,001149: 34,3272           05412                           TC       PHASCHNG                              
026016,001150: 34,3273           04022                           OCT      04022                                 
026017,001151: 34,3274           37664                           CAF      PRIO27                                #  SET UP DISPLAY JOB WITH HIGHER PRIORITY
026018,001152: 34,3275           05134                           TC       NOVAC                                 
026019,001153: 34,3276  E7,1725                                  EBANK=   MRKBUF1                               #  THAN PRESENT JOB
026020,001154: 34,3276           03310 70067                     2CADR    RENDISP2                              
026021,001155: 
026022,001156: 34,3300           06006        RENDISP7           TC       INTPRET                               
026023,001157: 34,3301           00155                           STORE    MPAC                                  
026024,001158: 34,3302           53135                           SLOAD    BZE                                   
026025,001159: 34,3303           01301                                    TEMPOR1                               
026026,001160: 34,3304           71301                                    RENDISP7   +1                         #  DISPLAY HAS NOT BEEN ANSWERED YET
026027,001161: 34,3305           52040                           BMN      GOTO                                  
026028,001162: 34,3306           71124                                    REND12                                #  NEG INDICATES PROCEED
026029,001163: 34,3307           71317                                    RENDISP3                              #  POS INDICATES RECYCLE
026030,001164: 34,3310           33341        RENDISP2           CAF      V06N49                                
026031,001165: 34,3311           04662                           TC       BANKCALL                              
026032,001166: 34,3312           20731                           CADR     PRIODSP                               
026033,001167: 34,3313           04622                           TC       GOTOV56                               #  TERM EXIT P20 VIA V56
026034,001168: 34,3314           45017                           CS       ONE                                   #  NEG INDICATES PROCEED RENDISP7 JOB
026035,001169: 34,3315           55300                           TS       TEMPOR1                               #  POS INDICATES RECYCLE RENDISP7 JOB
026036,001170: 34,3316           05217                           TC       ENDOFJOB                              #  GO COMPLETE ABOVE JOB
026037,001171: 34,3317           77614        RENDISP3           BON                                            
026038,001172: 34,3320           04707                                    SOURCFLG                              
026039,001173: 34,3321           70641                                    REND1                                 #  DATA WAS RADAR GO LOOK FOR OPTICS NEXT
026040,001174: 34,3322           77776                           EXIT                                           
026041,001175: 34,3323  E7,1725                                  EBANK=   MRKBUF1                               
026042,001176: 34,3323           00004                           INHINT                                         
026043,001177: 34,3324           33342                           CAF      BUFBANK                               
026044,001178: 34,3325           54006                           TS       BBANK                                 
026045,001179: 34,3326           37716                           CA       NEGONE                                
026046,001180: 34,3327           55725                           TS       MRKBUF1                               #  ERASE MARK ONE BUFFER
026047,001181: 34,3330           55734                           TS       MRKBUF2                               #  ERASE MARK TWO BUFFER
026048,001182: 34,3331           00003                           RELINT                                         
026049,001183: 34,3332           06006        RENDISP4           TC       INTPRET                               
026050,001184: 34,3333           77650                           GOTO                                           
026051,001185: 34,3334           70673                                    REND3                                 
026052,001186: 34,3335           00052 36307  SXTVAR             2DEC     0.04       E-6        B+16            #  SXT ERROR VARIANCE = .04 (MR)SQ
026053,001187: 34,3337           00052 36307  IMUVAR             2DEC     0.04       E-6        B+16            #  IMU ERROR VARIANCE = .04 (MR)SQ
026054,001188: 34,3341           01461        V06N49             VN       0649                                  
026055,001189: 34,3342  E7,1725                                  EBANK=   MRKBUF1                               
026056,001190: 34,3342           70067        BUFBANK            BBCON    RENDISP3                              
026057,001191: 31,2332                                           BANK     31                                    
026058,001192: 27,2000                                           SETLOC   R22S1                                 

Page 586

026060,001194: 27,2000                                           BANK                                           
026061,001195: 27,2343           45020        SETINTG            STQ      CALL                                  
026062,001196: 27,2344           02317                                    EGRESS                                
026063,001197: 27,2345           27442                                    INTSTALL                              #  RESERVE INTEGRATION
026064,001198: 27,2346           43145                           DLOAD    SET                                   
026065,001199: 27,2347           01225                                    MARKTIME                              
026066,001200: 27,2350           01472                                    STATEFLG                              
026067,001201: 27,2351           00041                           STORE    TDEC1                                 #  MARKTIME
026068,001202: 27,2352           43014                           CLEAR    CLEAR                                 
026069,001203: 27,2353           01673                                    INTYPFLG                              #  PRECISION INTEGRATION
026070,001204: 27,2354           01676                                    DIM0FLAG                              
026071,001205: 27,2355           43014                           SET      CLRGO                                 
026072,001206: 27,2356           01474                                    VINTFLAG                              #  SET VEHICLE EQ. CSM
026073,001207: 27,2357           01635                                    D6OR9FLG                              #  SET W MATRIX DIM. EQ 6
026074,001208: 27,2360           02317                                    EGRESS                                #  EXIT
026075,001209: 27,2361           77620        CNTCHK             STQ                                            
026076,001210: 27,2362           01150                                    POINTEX                               
026077,001211: 27,2363           77614        CONTCHK            BOFF                                           
026078,001212: 27,2364           01742                                    REFSMFLG                              #  BRANCH TO END OF JOB IF REFSMMAT NO GOOD
026079,001213: 27,2365           30156                                    ENDPLAC                               
026080,001214: 27,2366           50135                           SLOAD    BMN                                   
026081,001215: 27,2367           03376                                    R61CNTR                               
026082,001216: 27,2370           56406                                    WAITONE1                              
026083,001217: 27,2371           43014                           BON      BOFF                                  #  IS TRACK FLAG SET
026084,001218: 27,2372           00710                                    UPDATFLG                              
026085,001219: 27,2373           01150                                    POINTEX                               
026086,001220: 27,2374           00752                                    TRACKFLG                              
026087,001221: 27,2375           30156                                    ENDPLAC                               
026088,001222: 27,2376           77776                           EXIT                                           
026089,001223: 27,2377           05412        REDOR22            TC       PHASCHNG                              
026090,001224: 27,2400           00132                           OCT      00132                                 
026091,001225: 27,2401           37663                           CAF      PRIO26                                
026092,001226: 27,2402           05210                           TC       PRIOCHNG                              
026093,001227: 27,2403           02407                           TC       WAITONE    +3                         
026094,001228: 27,2404           77620        WAITONE            STQ                                            
026095,001229: 27,2405           01150                                    POINTEX                               
026096,001230: 27,2406           77776        WAITONE1           EXIT                                           
026097,001231: 27,2407           35045                           CAF      4SECS                                 #  WAIT 4 SECS.
026098,001232: 27,2410           04662                           TC       BANKCALL                              
026099,001233: 27,2411           01732                           CADR     DELAYJOB                              
026100,001234: 27,2412           06006                           TC       INTPRET                               
026101,001235: 27,2413           77650                           GOTO                                           
026102,001236: 27,2414           56363                                    CONTCHK                               #  CHECK AGAIN NOW
026103,001237: 27,2415           77776        RANGERD            EXIT                                           
026104,001238: 27,2416           00004                           INHINT                                         
026105,001239: 27,2417           42500                           CS       OCT17                                 
026106,001240: 27,2420           00006                           EXTEND                                         
026107,001241: 27,2421           03013                           WAND     CHAN13                                #  ZERO OUT BITS 1-4 OF CHANNEL 13
026108,001242: 27,2422           34334                           CAF      OCT11                                 
026109,001243: 27,2423           00006                           EXTEND                                         

Page 587

026111,001245: 27,2424           05013                           WOR      CHAN13                                #  GENERATE SHIFT PULSES TO RADR, SET R. BIT
026112,001246: 27,2425           00003                           RELINT                                         
026113,001247: 27,2426           00006                           EXTEND                                         
026114,001248: 27,2427           30025                           DCA      TIME2                                 
026115,001249: 27,2430           53225                           DXCH     MARKTIME                              #  READ PRESENT TIME
026116,001250: 27,2431           05560                           TC       DOWNFLAG                              
026117,001251: 27,2432           00043                           ADRES    SKIPVHF                               #  CLEAR VHF RESTART FLAG
026118,001252: 27,2433           04662                           TC       BANKCALL                              
026119,001253: 27,2434           17575                           CADR     RADSTALL                              #  WAIT FOR RANGE COMPLETE
026120,001254: 27,2435           02464                           TC       LIGHTON                               #  BAD DATA GOOD BIT
026121,001255: 27,2436           05631                           TC       TRFAILOF                              #  TURN TRACKER LIGHT OFF
026122,001256: 27,2437           11703        RANGERD1           CCS      RM                                    #  15 BIT UNSIGNED RANGE
026123,001257: 27,2440           02444                           TC       RANGERD4                              #  GR + 0
026124,001258: 27,2441           02470                           TC       LIGHTON    +4                         #  = + 0
026125,001259: 27,2442           02453                           TC       RANGERD3                              #  L - 0
026126,001260: 27,2443           02453                           TC       RANGERD3                              #  = - 0
026127,001261: 27,2444           06006        RANGERD4           TC       INTPRET                               
026128,001262: 27,2445           41335                           SLOAD    DMP                                   
026129,001263: 27,2446           03704                                    RM                                    
026130,001264: 27,2447           16503                                    CONVRNGE                              #  CONVERT RANGE TO METERS B-27
026131,001265: 27,2450           01257        RANGERD2           STORE    VHFRANGE                              
026132,001266: 27,2451           43414                           SET      RVQ                                   
026133,001267: 27,2452           04467                                    SOURCFLG                              #  SOURCE OF DATA TO VHF RADAR
026134,001268: 27,2453           31703        RANGERD3           CA       RM                                    
026135,001269: 27,2454           74777                           MASK     POSMAX                                
026136,001270: 27,2455           54154                           TS       MPAC                                  #  MASK OUT NEG. SIGN BIT
026137,001271: 27,2456           06006                           TC       INTPRET                               
026138,001272: 27,2457           77605                           DMP                                            
026139,001273: 27,2460           16503                                    CONVRNGE                              #  CONVERT FROM NM TO METERS AND SCALE B-27
026140,001274: 27,2461           52015                           DAD      GOTO                                  
026141,001275: 27,2462           16477                                    RANGEB14                              #  VALUE IN METERS OF SIGN BIT SCALED B-27
026142,001276: 27,2463           56450                                    RANGERD2                              
026143,001277: 27,2464           31256        LIGHTON            CA       VHFRANGE                              
026144,001278: 27,2465           00006                           EXTEND                                         
026145,001279: 27,2466           12470                           BZF      +2                                    
026146,001280: 27,2467           05643                           TC       TRFAILON                              
026147,001281: 27,2470           06006                           TC       INTPRET                               
026148,001282: 27,2471           77745                           DLOAD                                          
026149,001283: 27,2472           01225                                    MARKTIME                              
026150,001284: 27,2473           01152                           STORE    VHFTIME                               
026151,001285: 27,2474           77650                           GOTO                                           
026152,001286: 27,2475           70641                                    REND1                                 
026153,001287: 27,2476           00045 01217  RANGEB14           2DEC     303431.7   B-27                       #  16384 X 18.52 SCALED B-27
026154,001288: 27,2500           00017        OCT17              OCT      00017                                 
026155,001289: 27,2501           40200        OC40200            OCT      40200                                 
026156,001290: 27,2502           00045 01217  CONVRNGE           2DEC     18.52      B-13                       #  VHF INPUT RANGE CONV. FROM .01 NM TO M
026157,001291: 
026158,001292: 27,2504           00006        VHFREAD            EXTEND                                         
026159,001293: 27,2505           04007                           ROR      SUPERBNK                              #  MUST SAVE SBANK BECAUSE OF RUPT

Page 588

026161,001295: 27,2506           54016                           TS       BANKRUPT                              #  EXITS VIA TASKOVER BADEND OR GOODEND
026162,001296: 27,2507           45021                           CS       ZERO                                  
026163,001297: 27,2510           54734                           TS       RUPTAGN                               
026164,001298: 27,2511           00006                           EXTEND                                         
026165,001299: 27,2512           22012                           QXCH     QRUPT                                 
026166,001300: 27,2513           40076                           CS       STATE      +2                         
026167,001301: 27,2514           75006                           MASK     SKIPVBIT                              #  SKIPVHF FLAG
026168,001302: 27,2515           00006                           EXTEND                                         
026169,001303: 27,2516           15324                           BZF      TASKOVER                              #  BRANCH IF VHF RESTART BIT SET
026170,001304: 27,2517           35011                           CAF      UPDATBIT                              
026171,001305: 27,2520           70075                           MASK     STATE      +1                         #  UPDATEFLG
026172,001306: 27,2521           00006                           EXTEND                                         
026173,001307: 27,2522           12542                           BZF      BYPASS1                               
026174,001308: 27,2523           40100                           CS       STATE      +4                         
026175,001309: 27,2524           75004                           MASK     PDSPFBIT                              #  PDSPFLAG
026176,001310: 27,2525           00006                           EXTEND                                         
026177,001311: 27,2526           12542                           BZF      BYPASS1                               
026178,001312: 27,2527           30046                           CA       RNRAD                                 
026179,001313: 27,2530           55703                           TS       RM                                    #  SAVE RANGE
026180,001314: 27,2531           35016                           CAF      BIT2                                  
026181,001315: 27,2532           00006                           EXTEND                                         
026182,001316: 27,2533           02033                           RAND     CHAN33                                #  READ DATA GOOD BIT
026183,001317: 27,2534           00006                           EXTEND                                         
026184,001318: 27,2535           12544                           BZF      VHFGOOD                               #  BRANCH IF DATA GOOD BIT EQUALS GOOD
026185,001319: 27,2536           55256        BYPASS             TS       VHFRANGE                              #  STORE NON ZERO VALUE
026186,001320: 27,2537           35016                           CAF      TWO                                   
026187,001321: 27,2540           04701                           TC       POSTJUMP                              
026188,001322: 27,2541           17545                           CADR     BADEND                                
026189,001323: 27,2542           35021        BYPASS1            CAF      ZERO                                  
026190,001324: 27,2543           02536                           TC       BYPASS                                
026191,001325: 27,2544           35016        VHFGOOD            CAF      TWO                                   
026192,001326: 27,2545           04701                           TC       POSTJUMP                              
026193,001327: 27,2546           17550                           CADR     GOODEND                               
026194,001328: 27,2547           43174        SHIFTNDX           AXT,2    BON                                   
026195,001329: 27,2550           00000                                    0                                     
026196,001330: 27,2551           00707                                    VEHUPFLG                              
026197,001331: 27,2552           56560                                    SHIFTA                                #  VEHICLE IS CSM
026198,001332: 27,2553           43414                           BON      RVQ                                   
026199,001333: 27,2554           04304                                    LMOONFLG                              
026200,001334: 27,2555           56556                                    +1                                    
026201,001335: 27,2556           43514                           INCR,2   RVQ                                   
026202,001336: 27,2557           77775                           DEC      -2         B-14                       
026203,001337: 27,2560           43414        SHIFTA             BON      RVQ                                   
026204,001338: 27,2561           04303                                    CMOONFLG                              
026205,001339: 27,2562           56563                                    +1                                    #  MOON ORB.
026206,001340: 27,2563           43514                           INCR,2   RVQ                                   
026207,001341: 27,2564           77775                           DEC      -2         B-14                       
026208,001342: 27,2565           66370        INITIALW           AXT,1    SSP                                   
026209,001343: 27,2566           00044                                    36D                                   
026210,001344: 27,2567           00051                                    S1                                    

Page 589

026212,001346: 27,2570           00006                                    6                                     
026213,001347: 27,2571           77775                           VLOAD                                          
026214,001348: 27,2572           15335                                    ZEROVECS                              
026215,001349: 27,2573           06445        INITA              STORE    W          +36D,1                     #  CLEAR 0 - 35
026216,001350: 27,2574           76100                           TIX,1    AXT,1                                 
026217,001351: 27,2575           56573                                    INITA                                 
026218,001352: 27,2576           00044                                    36D                                   
026219,001353: 27,2577           06533        INITB              STORE    W          +90D,1                     #  CLEAR 54 - 89
026220,001354: 27,2600           67300                           TIX,1    SLOAD                                 
026221,001355: 27,2601           56577                                    INITB                                 
026222,001356: 27,2602           00001                                    0                                     #  POSITION VALUE
026223,001357: 27,2603           02401                           STORE    W                                     #  INITIALIZE DIAGONAL W POSITION
026224,001358: 27,2604           02411                           STORE    W          +8D                        
026225,001359: 27,2605           02421                           STORE    W          +16D                       
026226,001360: 27,2606           77735                           SLOAD                                          
026227,001361: 27,2607           00002                                    1                                     #  VELOCITY VALUE
026228,001362: 27,2610           02511                           STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
026229,001363: 27,2611           02521                           STORE    W          +80D                       
026230,001364: 27,2612           02531                           STORE    W          +88D                       
026231,001365: 27,2613           77616                           RVQ                                            

Page 590

026233,001367:                                                                                                  #  CRS61.1       4/10/68
026234,001368: 
026235,001369:                                                                                                  #  TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
026236,001370:                                                                                                  #  OPTICS TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
026237,001371:                                                                                                  #  AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
026238,001372:                                                                                                  #  COAS TRACKING OF THE LM.
026239,001373: 
026240,001374:                                                                                                  #  TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE 
026241,001375:                                                                                                  #  MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
026242,001376:                                                                                                  #  GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET.
026243,001377: 
026244,001378:                                                                                                  #        (1)     EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
026245,001379:                                                                                                  #                CONIC EQUATIONS.
026246,001380: 
026247,001381:                                                                                                  #        (2)     CALCULATE LOS FROM CSM TO LM = RL - RC.
026248,001382: 
026249,001383:                                                                                                  #        (3)     THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
026250,001384:                                                                                                  #                THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM.  THE
026251,001385:                                                                                                  #                TRACK AXIS (I) IS DEFINED AS:
026252,001386: 
026253,001387:                                                                                                  #                UNIT(I)=UNIT(Z  )COS55  &  UNIT(X  )SIN55
026254,001388:                                                                                                  #                     -       -SC                -SC
026255,001389: 
026256,001390:                                                                                                  #        (4)     COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
026257,001391: 

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

026259,001393:                                                                                                  #        (7)     FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
026260,001394:                                                                                                  #                IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
026261,001395:                                                                                                  #                GROSS MANEUVER IS REQUIRED.  SIGNAL R61 (SET MPAC=1) TO
026262,001396:                                                                                                  #                OPERATE KALCMANU AND EXIT CRS61.1.
026263,001397:                                                                                                  #                IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
026264,001398: 
026265,001399:                                                                                                  #        (8)     CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
026266,001400: 
026267,001401:                                                                                                  #                OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
026268,001402: 
026269,001403:                                                                                                  #                CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
026270,001404:                                                                                                  #                APPLIED TO YIELD UNITS OF REVS/SEC.  SCALE IS CARRIED AS
026271,001405:                                                                                                  #                B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
026272,001406:                                                                                                  #                THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
026273,001407:                                                                                                  #                TO AVOID OVFLOW ON DIVIDE.
026274,001408: 
026275,001409:                                                                                                  #                UNITLOS = UNIT( RL - RC ) B1.
026276,001410:                                                                                                  #                UNITDY  = UNIT( VL - VC ) B1.
026277,001411:                                                                                                  #                ABSLOS  = LENGTH OF LOS, METERS B29.
026278,001412:                                                                                                  #                ABSDV   = LENGTH OF DV, METERS/CSEC B7.
026279,001413: 
026280,001414:                                                                                                  #        (9)     OBTAIN RATE IN SM COORDS.
026281,001415: 
026282,001416:                                                                                                  #                OMEGATHSM = (REFSMMAT)(OMEGATH).
026283,001417: 
026284,001418:                                                                                                  #        (10)    OBTAIN GIMBAL ANGLE INCREMENTS FOR 0.1 SECOND.
026285,001419: 
026286,001420:                                                                                                  #                DTHETASM = (0.1)(OMEGATHSM)
026287,001421: 
026288,001422:                                                                                                  #        (11)    OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.

Page 591

026290,001424:                                                                                                  #                INPUT CONSISTS OF
026291,001425: 
026292,001426:                                                                                                  #                (A)     VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
026293,001427:                                                                                                  #                        IN V(DTHETASM).
026294,001428:                                                                                                  #                (B)     SIN,COS CDUX,Y,Z FROM SUBR CDUTRIG.
026295,001429: 
026296,001430:                                                                                                  #                TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
026297,001431: 
026298,001432:                                                                                                  #        (12)    CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
026299,001433: 
026300,001434:                                                                                                  #                OMEGANB = (SMNB)(OMEGATHSM)
026301,001435: 
026302,001436:                                                                                                  #                SUBR SMNB REQUIRES OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
026303,001437:                                                                                                  #                (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
026304,001438:                                                                                                  #                OF CDUS (FIXLOC + 20D).
026305,001439: 
026306,001440:                                                                                                  #        (13)    CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
026307,001441: 
026308,001442:                                                                                                  #                WBODY = (MBDYTCTL)(OMEGANB)     UNITS=REVS/SEC(B0).
026309,001443: 
026310,001444:                                                                                                  #                               ( 0.5       0              0      )   BODY TO
026311,001445:                                                                                                  #                MBDYTCTL(B1) = (  0   COS(7.25)B1   -SIN(7.25)B1 ) = CONTROL
026312,001446:                                                                                                  #                               (  0   SIN(7.25)B1    COS(7.25)B1 )   AXES
026313,001447:                                                                                                  #                                                                     CONVERSION
026314,001448:                                                                                                  #                                                                     MATRIX
026315,001449: 
026316,001450:                                                                                                  #        (14)    RESCALE WBODY TO UNITS OF 450 DEG/SEC BY APPLYING FACTOR
026317,001451:                                                                                                  #                OF 0.8 TO REVS/SEC.
026318,001452: 
026319,001453:                                                                                                  #        (15)    ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
026320,001454: 
026321,001455:                                                                                                  #                TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FROM T(SAVEDCDU)
026322,001456:                                                                                                  #                TO V(CDUXD).
026323,001457: 
026324,001458:                                                                                                  #                TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
026325,001459:                                                                                                  #                TO V(DELCDUX).
026326,001460: 
026327,001461:                                                                                                  #                TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC, FROM V(MPAC)
026328,001462:                                                                                                  #                TO V(WBODY).
026329,001463: 
026330,001464:                                                                                                  #                RELINT, SET MPAC=0, EXIT CRS61.1
026331,001465: 
026332,001466:                                                                                                  #  CALL          L       CALL    CRS61.1
026333,001467: 
026334,001468:                                                                                                  #  RETURNS       ALL TO L+1.
026335,001469: 
026336,001470:                                                                                                  #                (1)     S(MPAC)=0.  NORMAL EXIT.  3 SETS OF INPUTS FED TO DAP.
026337,001471:                                                                                                  #                (2)     S(MPAC)=1.  CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
026338,001472:                                                                                                  #                        FOR KALCMANU.  ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
026339,001473:                                                                                                  #                (3)     S(MPAC)=2.  GNCS AUTO MODE NOT SELECTED (BIT10=1).
026340,001474:                                                                                                  #                (4)     S(MPAC)=3.  DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.

Page 592

026342,001476: 
026343,001477:                                                                                                  #  INPUT         (1)     TIME2,TIME1.  COMPUTER CLOCK TIME,DP, CENTISEC B28.
026344,001478:                                                                                                  #                (2)     CDUX,Y,Z.  PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
026345,001479:                                                                                                  #                (3)     M(REFSMMAT), STABLE MEMBER COORDS B1.
026346,001480: 
026347,001481:                                                                                                  #  OUTPUT        NORMAL.  EXIT WITH S(MPAC) = 0.
026348,001482: 
026349,001483:                                                                                                  #                (1)     CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
026350,001484:                                                                                                  #                        DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
026351,001485:                                                                                                  #                (2)     DELCDUX,DELCDUY,DELCDUZ.  0.1 SEC DCU ANGULAR INCREMENTS,
026352,001486:                                                                                                  #                        DP, 1S COMPL, SCALED 180 DEG.
026353,001487:                                                                                                  #                (3)     WBODY,WBODY1,WBODY2.  LOS ANGULAR RATE IN CONTROL COORDS,
026354,001488:                                                                                                  #                        DP, 1S COMPL, SCALED 450 DEG/SEC.
026355,001489: 
026356,001490:                                                                                                  #                SPECIAL.  EXIT WITH S(MPAC) = 1.
026357,001491: 
026358,001492:                                                                                                  #                (1)     CPHI,CTHETA,CPSI.  DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
026359,001493:                                                                                                  #                        SP, 2S COMPL, SCALED 180 DEGREES.
026360,001494: 
026361,001495:                                                                                                  #  EXTERNAL SUBROUTINES USED     (B)=BASIC
026362,001496: 
026363,001497:                                                                                                  #                (1) CALCGA              (5) LOADTIME(B)         (9) SMNB
026364,001498:                                                                                                  #                (2) CDUTRIG             (6) MATMOVE
026365,001499:                                                                                                  #                (3) CSMCONIC            (7) RDCDUS(B)
026366,001500:                                                                                                  #                (4) LEMCONIC            (8) SMCDURES
026367,001501: 
026368,001502:                                                                                                  #  ERASABLE      (1) S(Q611),EBANK7      CRS61.1 EXIT.
026369,001503:                                                                                                  #                (2) S(Q6111)EBANK7      CALCDCDU EXIT.
026370,001504:                                                                                                  #                (3) T(SAVEDCDU) E6      SP VECTOR OF CDUDS.
026371,001505:                                                                                                  #                (4) V(SAVEPOS)  E7      CSM POS VEC AND D(SAVEPOS)= LENGTH OF LOS.
026372,001506:                                                                                                  #                (5) V(SAVEVEL) E7       CSM VEL VEC.
026373,001507: 
026374,001508:                                                                                                  #  FLAGWDS       HOLDFLAG.  USED, NOT SET.
026375,001509: 
026376,001510:                                                                                                  #  MISC          (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
026377,001511:                                                                                                  #                (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
026378,001512:                                                                                                  #                (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
026379,001513: 
026380,001514:                                                                                                  #  DEBRIS -      CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
026381,001515: 
026382,001516: 24,2002                                           BANK     24                                    
026383,001517: 34,2000                                           SETLOC   P20S4                                 
026384,001518: 34,2000                                           BANK                                           
026385,001519: 
026386,001520: 34,3343  E6,1646                                  EBANK=   CDUXD                                 
026387,001521: 34,3343                                           COUNT*   $/CRS61                               
026388,001522: 
026389,001523: 34,3343           40220        CRS61.1            STQ      SETPD                                 
026390,001524: 34,3344           03704                                    Q611                                  
026391,001525: 34,3345           00001                                    0                                     
026392,001526: 34,3346           77634                           RTB                                            

Page 593

026394,001528: 34,3347           45510                                    LOADTIME                              #  LOAD CLOCK TIME2,1 INTO MPAC.
026395,001529: 
026396,001530: 34,3350           36316        STORT              STCALL   P21TIME                               #  STORE CLOCK TIME FOR SUBR R63
026397,001531: 34,3351           71572                                    R63                                   #  SUBR TO CALC DCDU (T=PRESENT,PASS1)
026398,001532: 34,3352           77751                           TLOAD                                          
026399,001533: 34,3353           01156                                    THETAD                                #  SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
026400,001534: 34,3354           03373                           STORE    SAVEDCDU                              
026401,001535: 
026402,001536: 34,3355           77776                           EXIT                                           
026403,001537: 34,3356           03377                           TC       STEP2CK                               
026404,001538: 34,3357           34371        AUTOCK             CAF      PRIO30                                
026405,001539: 34,3360           00006                           EXTEND                                         
026406,001540: 34,3361           06031                           RXOR     CHAN31                                
026407,001541: 34,3362           77707                           MASK     FURST3                                
026408,001542: 34,3363           00006                           EXTEND                                         #  AUTO MODE SELECTED (BITS 15-13=011)
026409,001543: 34,3364           13366                           BZF      DAPCK                                 #        YES-CONTINUE.
026410,001544: 34,3365           03372                           TC       ASET                                  
026411,001545: 
026412,001546: 34,3366           40075        DAPCK              CS       FLAGWRD1                              #  IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
026413,001547: 34,3367           75002                           MASK     STIKBIT                               
026414,001548: 34,3370           10000                           CCS      A                                     
026415,001549: 34,3371           03432                           TC       STEP3CK                               
026416,001550: 34,3372           35021        ASET               CAF      ZERO                                  
026417,001551: 34,3373           54154                           TS       MPAC                                  
026418,001552: 34,3374           06006                           TC       INTPRET                               #  EXIT CRS61.1
026419,001553: 34,3375           77650                           GOTO                                           
026420,001554: 34,3376           03704                                    Q611                                  
026421,001555: 
026422,001556: 34,3377           04662        STEP2CK            TC       BANKCALL                              
026423,001557: 34,3400           57757                           CADR     UPACTOFF                              
026424,001558: 
026425,001559: 34,3401           35016                           CAF      TWO                                   #  SET TEMPORARY INDEX DTHETASM = 2
026426,001560: 34,3402           55611        CDULOOP            TS       DTHETASM                              
026427,001561: 34,3403           51611                           INDEX    DTHETASM                              
026428,001562: 34,3404           30032                           CA       CDUX                                  #  SET A = ACTUAL CDU (ACDU).
026429,001563: 34,3405           00006                           EXTEND                                         
026430,001564: 34,3406           51611                           INDEX    DTHETASM                              #  SET INDEX TO ACCESS DESIRED CDU (DCDU).
026431,001565: 34,3407           21155                           MSU      THETAD                                #  A = DIFF = ACDU - DCDU.
026432,001566: 34,3410           54154                           TS       MPAC                                  #  RETURN TO INTERPRETER FOR 10 DEGREE CK.
026433,001567: 34,3411           06006                           TC       INTPRET                               #  (DP APPROX SP OK FOR ROUGH CHECK)
026434,001568: 34,3412           45246                           ABS      DSU                                   
026435,001569: 34,3413           31661                                    DEGREE10                              #  IS (ACDU - DCDU) MORE THAN 10 DEGREES.
026436,001570: 34,3414           77444                           BPL      EXIT                                  #  NO - OK, CONTINUE CHECKING OTHER ANGLES.
026437,001571: 34,3415           71421                                    STKTEST                               #  TEST STICK FLAG
026438,001572: 34,3416           11611                           CCS      DTHETASM                              #  HAVE ALL 3 ANGLE DIFFS BEEN CHECKED.
026439,001573: 34,3417           03402                           TC       CDULOOP                               #  NO - DIM COUNT, CHECK NEXT ANGLE DIFF.
026440,001574: 34,3420           03357                           TC       AUTOCK                                
026441,001575: 34,3421           77776        STKTEST            EXIT                                           
026442,001576: 34,3422           40075                           CS       FLAGWRD1                              
026443,001577: 34,3423           75002                           MASK     STIKBIT                               

Page 594

026445,001579: 34,3424           10000                           CCS      A                                     
026446,001580: 34,3425           03563                           TC       MANUEXIS                              #  STIKFLAG IS NOT SET (DO R63)
026447,001581: 34,3426           35015                           CAF      BIT3                                  
026448,001582: 34,3427           00006                           EXTEND                                         #  STIKFLG IS SET
026449,001583: 34,3430           05011                           WOR      DSALMOUT                              #  TURN ON UPACTY LIGHT
026450,001584: 
026451,001585: 34,3431           03372                           TC       ASET                                  #  EXIT AND SET R61CNTR
026452,001586: 34,3432           06006        STEP3CK            TC       INTPRET                               
026453,001587: 34,3433           77601                           SETPD                                          
026454,001588: 34,3434           00001                                    0                                     #  *
026455,001589:                                                                                                  #  NOW HAVE DCDUS STORED IN T(SAVEDCDU).
026456,001590:                                                                                                  #  GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
026457,001591: 34,3435           52375        CRS61.2            VLOAD    VSU                                   
026458,001592: 34,3436           03204                                    DCDU                                  
026459,001593: 34,3437           03715                                    SAVEVEL                               #  DV = VL - VC
026460,001594: 34,3440           57456                           UNIT     VCOMP                                 #  V(MPAC)=-UNITDV. VAC36D=ABSDV.
026461,001595: 34,3441           74235                           VXV      VXSC                                  #  (-UNITDV)CROSS(UNITLOS).
026462,001596: 34,3442           03707                                    SAVEPOS                               
026463,001597: 34,3443           31662                                    RVCS/RDS                              #  (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
026464,001598: 34,3444           77606                           PUSH                                           #  HOLD CROSS IN PUSHLIST0.  SCALED B6.
026465,001599: 34,3445           60345                           DLOAD    NORM                                  #  OBTAIN ABS VALUE OF LOS.
026466,001600: 34,3446           02316                                    P21TIME                               #  P21TIME IS TEMP STORE FOR ABSLOS.
026467,001601: 34,3447           00047                                    X1                                    
026468,001602: 34,3450           77606                           PUSH                                           #  NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
026469,001603: 
026470,001604: 34,3451           60345                           DLOAD    NORM                                  
026471,001605: 34,3452           00045                                    36D                                   #  NORM ABS VALUE OF DV(NUM).
026472,001606: 34,3453           00051                                    S1                                    
026473,001607: 
026474,001608: 34,3454           70460                           XSU,1    SR1                                   #  X1 = X1(N DENOM)-S1(N NUM).
026475,001609: 34,3455           00050                                    S1                                    #  SR1 TO AVOID OFLOW ON DDV.
026476,001610: 34,3456           74271                           DDV      VXSC                                  #  ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
026477,001611: 34,3457           77730                           SXA,1                                          #  QUOT(MPAC) X CROSS(PUSH0)
026478,001612: 34,3460           03705                                    Q6111                                 #  SAVE SCALE OF RESULT (R-15,1X).
026479,001613:                                                                                                  #  X1= NORM OF QUOT. QUOT SCALE B7-B29=B-22
026480,001614:                                                                                                  #  CROSS IS SCALED B6.  NEED SL1 TO RECOVER
026481,001615:                                                                                                  #  SR1 SO THAT -22+6+1=-15.  MPAC NOW HOLDS
026482,001616:                                                                                                  #  ORTHO LOS RATE (OMEGA TH, B-15,X1).
026483,001617: 34,3461           76521                           MXV      VSL1                                  #  OBTAIN RATE IN SM COORDS (OMEGTHSM) AND
026484,001618: 34,3462           01736                                    REFSMMAT                              #  ADJUST FOR REFSMMAT SCALE OF B1.
026485,001619: 34,3463           00025                           STORE    20D                                   #  OMEGTHSM = VAC20D
026486,001620:                                                                                                  #  DELTA THETA SM = OMEGTHSM * .1B-3.
026487,001621: 34,3464           77761                           VXSC                                           
026488,001622: 34,3465           31664                                    TENTH                                 
026489,001623: 34,3466           03212                           STORE    DTHETASM                              #  STORE SM INCREM ANGLES FOR SMCDURES.
026490,001624: 34,3467           77624                           CALL                                           
026491,001625: 34,3470           47477                                    CDUTRIG                               #  OBTAIN SIN,COSCDUS FOR SMCDURES.
026492,001626: 34,3471           45001                           SETPD    CALL                                  #  SMCDURES USES PUSH
026493,001627: 34,3472           00001                                    0                                     
026494,001628: 34,3473           47742                                    SMCDURES                              #  OBTAIN DELCDU IN V(DCDU).

Page 595

026496,001630: 34,3474           77750                           LXA,1                                          #  RELOAD X1
026497,001631: 34,3475           03705                                    Q6111                                 
026498,001632: 34,3476           53775                           VLOAD    VSL*                                  #  RECOVER SCALE.
026499,001633: 34,3477           03204                                    DCDU                                  #  (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
026500,001634: 34,3500           20160                                    0          -17D,1                     #  EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
026501,001635: 34,3501           00017                           STORE    14D                                   #  HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
026502,001636: 
026503,001637: 34,3502           77624                           CALL                                           #  COMPUTES SINES AND COSINES FOR *SMNB*
026504,001638: 34,3503           47477                                    CDUTRIG                               
026505,001639: 34,3504           45175                           VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
026506,001640: 34,3505           00025                                    20D                                   #  VECTOR FOR TRG*SMNB INTO MPAC
026507,001641: 34,3506           47644                                    *SMNB*                                #  OBTAIN ANG. RATE REFERRED TO NB (BODY)
026508,001642: 34,3507           77721                           MXV                                            
026509,001643: 34,3510           31670                                    MBDYTCTL                              #  CONVERT RATE(OMEGA) TO CONTROL COORDS.
026510,001644: 34,3511           77761                           VXSC                                           #  MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
026511,001645: 34,3512           15271                                    POINT8                                #  RECOVER SCALE.
026512,001646: 34,3513           53750                           LXA,1    VSL*                                  #  RELOAD X1 TO RECOVER NORMALIZ.
026513,001647: 34,3514           03705                                    Q6111                                 #  (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
026514,001648: 34,3515           20163                                    0          -14D,1                     #  OBTAIN REVS SCALED AT 450 DEGREES.
026515,001649: 
026516,001650: 34,3516           77776        CRS61.2A           EXIT                                           
026517,001651: 34,3517           00004                           INHINT                                         
026518,001652: 34,3520           35021                           CAF      ZERO                                  #  TRANSFER DESIRED GIMBAL ANGLES
026519,001653: 34,3521           55647                           TS       CDUXD      +1                         #  FROM T(SAVEDCDU) TO V(CDUXD).
026520,001654: 34,3522           55651                           TS       CDUYD      +1                         
026521,001655: 34,3523           55653                           TS       CDUZD      +1                         
026522,001656: 34,3524           31772                           CA       SAVEDCDU                              
026523,001657: 34,3525           55646                           TS       CDUXD                                 
026524,001658: 34,3526           31773                           CA       SAVEDCDU   +1                         
026525,001659: 34,3527           55650                           TS       CDUYD                                 
026526,001660: 34,3530           31774                           CA       SAVEDCDU   +2                         
026527,001661: 34,3531           55652                           TS       CDUZD                                 
026528,001662: 
026529,001663: 34,3532           00006                           EXTEND                                         #  TRANSFER OMEGA CONTROL (ANG. LOS RATE)
026530,001664: 34,3533           30155                           DCA      MPAC                                  #  FROM V(MPAC) TO V(WBODY).
026531,001665: 34,3534           53526                           DXCH     WBODY                                 
026532,001666: 34,3535           00006                           EXTEND                                         
026533,001667: 34,3536           30160                           DCA      MPAC       +3                         
026534,001668: 34,3537           53530                           DXCH     WBODY1                                
026535,001669: 34,3540           00006                           EXTEND                                         
026536,001670: 34,3541           30162                           DCA      MPAC       +5                         
026537,001671: 34,3542           53532                           DXCH     WBODY2                                
026538,001672: 
026539,001673: 34,3543           00006                           EXTEND                                         #  TRANSFER CDU INCREMENTS
026540,001674: 34,3544           50120                           INDEX    FIXLOC                                #  FROM V(VAC14D) TO V(DELCDUX).
026541,001675: 34,3545           30017                           DCA      14D                                   
026542,001676: 34,3546           53576                           DXCH     DELCDUX                               
026543,001677: 34,3547           00006                           EXTEND                                         
026544,001678: 34,3550           50120                           INDEX    FIXLOC                                
026545,001679: 34,3551           30021                           DCA      16D                                   

Page 596

026547,001681: 34,3552           53600                           DXCH     DELCDUY                               
026548,001682: 34,3553           00006                           EXTEND                                         
026549,001683: 34,3554           50120                           INDEX    FIXLOC                                
026550,001684: 34,3555           30023                           DCA      18D                                   
026551,001685: 34,3556           53602                           DXCH     DELCDUZ                               
026552,001686: 34,3557           45017                           CS       ONE                                   #  NOW DAP VARIABLES LOADED.  SET HOLDFLAG.
026553,001687: 34,3560           55332                           TS       HOLDFLAG                              #  TO -1.
026554,001688: 34,3561           00003                           RELINT                                         
026555,001689: 34,3562           03372                           TC       ASET                                  
026556,001690: 34,3563           06006        MANUEXIS           TC       INTPRET                               
026557,001691: 34,3564           77751        MANUEXIT           TLOAD                                          #  ENTER FROM STEP2.  ACDU-DCDU EXCEEDS
026558,001692: 34,3565           03373                                    SAVEDCDU                              #  10 DEG. STORE DCDU(T) IN CPHI,CTHETA,
026559,001693: 34,3566           01156                           STORE    CPHI                                  #  CPSI FOR KALCMANU.
026560,001694: 34,3567           52135                           SLOAD    GOTO                                  #  SPECIAL RETURN (MPAC+0 = 1
026561,001695: 34,3570           31712                                    LOONE                                 #  OCTAL 00001
026562,001696: 34,3571           03704                                    Q611                                  
026563,001697: 
026564,001698: 34,3572           71220        R63                STQ      DLOAD                                 #  SUBR TO CALC DCDUS(T)
026565,001699: 34,3573           03705                                    Q6111                                 
026566,001700: 34,3574           02316                                    P21TIME                               
026567,001701: 34,3575           34041                           STCALL   TDEC1                                 
026568,001702: 34,3576           27114                                    CSMCONIC                              
026569,001703: 34,3577           77775        HOLDATT            VLOAD                                          #  HOLD EXTRAPOLATED CSM POSITION AND
026570,001704: 34,3600           00001                                    RATT                                  #  VELOCITY
026571,001705: 34,3601           27707                           STOVL    SAVEPOS                               
026572,001706: 34,3602           00007                                    VATT                                  
026573,001707: 34,3603           03715                           STORE    SAVEVEL                               
026574,001708: 34,3604           77745        CALCLEM            DLOAD                                          #  EXTRAPOLATE LEM STATE VECTOR TO SAME
026575,001709: 34,3605           02316                                    P21TIME                               #  TIME AS CSM USING LEMCONIC.
026576,001710: 34,3606           34041                           STCALL   TDEC1                                 
026577,001711: 34,3607           27126                                    LEMCONIC                              
026578,001712: 34,3610           77775                           VLOAD                                          
026579,001713: 34,3611           00007                                    VATT                                  
026580,001714: 34,3612           27204                           STOVL    DCDU                                  #  STORE VATT IN DCDU TEMPORARILY
026581,001715: 34,3613           00001                                    RATT                                  #  LOS = RL RC
026582,001716: 34,3614           53451                           VSU      UNIT                                  
026583,001717: 34,3615           03707                                    SAVEPOS                               
026584,001718: 34,3616           03707                           STORE    SAVEPOS                               #  SAVE UNITLOS FOR CRS61.2 RATE CALC.
026585,001719: 34,3617           76521                           MXV      VSL1                                  
026586,001720: 34,3620           01736                                    REFSMMAT                              #  CONVERT TO STABLE MEMBER
026587,001721: 34,3621           17357                           STODL    POINTVSM                              
026588,001722: 34,3622           00045                                    36D                                   #  HOLD ABS VAL OF LOS (VAC 36D)
026589,001723: 34,3623           02316                           STORE    P21TIME                               #  IN D(P21TIME) FOR CRS61.2 RATE CALC.
026590,001724: 34,3624           77775                           VLOAD                                          
026591,001725: 34,3625           15333                                    UNITX                                 
026592,001726: 34,3626           37351                           STCALL   SCAXIS                                #  TRACK AXIS UNIT VECTOR
026593,001727: 34,3627           56126                                    VECPOINT                              #  FOR +X-AXIS TRACKING ATTITUDE
026594,001728: 34,3630           01334                           STORE    CPHIX                                 #  STORE ANGLES FOR N96 DISPLAY
026595,001729: 34,3631           77775                           VLOAD                                          
026596,001730: 34,3632           31653                                    PRFUNIT                               

Page 597

026598,001732: 34,3633           37351                           STCALL   SCAXIS                                
026599,001733: 34,3634           56126                                    VECPOINT                              
026600,001734: 34,3635           03723                           STORE    PRAXIS                                #  STORE ANGLES FOR N95 DISPLAY
026601,001735: 34,3636           77614                           BOFF                                           
026602,001736: 34,3637           02745                                    PRFTRKAT                              
026603,001737: 34,3640           71644                                    CRSTOR1                               
026604,001738: 34,3641           01156        CRSTOR             STORE    THETAD                                #  STORE ANGLES FOR N18 DISPLAY
026605,001739: 34,3642           77650                           GOTO                                           
026606,001740: 34,3643           03705                                    Q6111                                 
026607,001741: 34,3644           77775        CRSTOR1            VLOAD                                          
026608,001742: 34,3645           15333                                    UNITX                                 
026609,001743: 34,3646           03351                           STORE    SCAXIS                                
026610,001744: 34,3647           52151                           TLOAD    GOTO                                  
026611,001745: 34,3650           01334                                    CPHIX                                 
026612,001746: 34,3651           71641                                    CRSTOR                                
026613,001747: 34,3652           15066 17626  PRFUNIT            2DEC     .40957602                             #  55 DEG TRACK AXIS UNIT VECTOR
026614,001748: 34,3654           00000 00000                     2DEC     0.0                                   #  FOR USE WITH VECPOINT
026615,001749: 34,3656           11132 27477                     2DEC     .28678822                             
026616,001750: 34,3660           01616        DEGREE10           DEC      .05556                                #  10 DEG IN REVS                STEP2
026617,001751: 34,3661           37651 16721  RVCS/RDS           2DEC     15.915494  B-4                        #  100/2PI REV-CSEC/RAD-SEC.
026618,001752: 34,3663           31463 06315  TENTH              2DEC     .1         B+3                        #  .1 B-3 (TO SCALE ANG. RATE TO .1 INREMS)
026619,001753: 34,3665           20000 00000  MAT1B1             2DEC     1.0        B-1                        
026620,001754: 34,3667           20000 00000  MBDYTCTL           2DEC     .5                                    #                7.25 DEG NEGATIVE
026621,001755: 34,3671           00000 00000                     2DEC     0          B-28                       #                X-AXIS ROTATION MATRIX
026622,001756: 34,3673           00000 00000                     2DEC     0          B-28                       #                CONVERTS BODY TO CTL
026623,001757: 34,3675           00000 00000                     2DEC     0          B-28                       #                AXES.  SAME AS QUADROT
026624,001758: 34,3677           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1    BUT SCALED B1
026625,001759: 34,3701           75766 45544                     2DEC     -.12619897 B-1                        #  -SIN7.25 B1
026626,001760: 34,3703           00000 00000                     2DEC     0          B-28                       
026627,001761: 34,3705           02011 32233                     2DEC     .12619897  B-1                        #  SIN7.25 B1
026628,001762: 34,3707           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1
026629,001763: 34,3711           00001        LOONE              OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
026630,001764: 34,3712     7707               FURST3             EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
026631,001765: 

Page 598

026633,001767:                                                                                                  #  ..... S22.1 ORBITAL NAVIGATION ROUTINE
026634,001768:                                                                                                  #  MOD 1
026635,001769: 
026636,001770:                                                                                                  #  FUNCTIONAL DESCRIPTION
026637,001771:                                                                                                  #        1.  UPDATE CSM STATE VECTOR
026638,001772:                                                                                                  #        2.  UPDATE LANDMARK POSITION
026639,001773:                                                                                                  #        3.  CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
026640,001774: 
026641,001775:                                                                                                  #  SUBROUTINES CALLED
026642,001776:                                                                                                  #        INTSTALL,INTEGRV,GETUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
026643,001777:                                                                                                  #        LALOTORV,S22F2410,LAT-LONG,ROWDOT
026644,001778: 
026645,001779:                                                                                                  #  ERASABLE INITIALIZATION
026646,001780:                                                                                                  #        W=9X9 MATRIX
026647,001781:                                                                                                  #        ORBWFLAG=0 FOR INVALID W MATRIX, =1 FOR VALID W MATRIX
026648,001782:                                                                                                  #        ASTRONAUT ENTRY OF KNOWN,L,OFF
026649,001783:                                                                                                  #        8NN= NUMBER OF MARKS  DECIMAL INTEGER B-14
026650,001784:                                                                                                  #        REFSMMAT= TRANSFORMATION MATRIX
026651,001785:                                                                                                  #        MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
026652,001786:                                                                                                  #                  STORED AS FOLLOWS,  TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
026653,001787:                                                                                                  #                  PRECISION, ALL OTHERS ARE IN SINGLE PRECISION
026654,001788:                                                                                                  #        CSM STATE VECTOR
026655,001789: 
026656,001790:                                                                                                  #  OUTPUT
026657,001791:                                                                                                  #        UPDATED CSM STATE VECTOR
026658,001792:                                                                                                  #        UPDATED LANDMARK POSITION
026659,001793:                                                                                                  #        NEW 6 DIMENSIONAL W MATRIX
026660,001794: 
026661,001795:                                                                                                  #  DEBRIS
026662,001796:                                                                                                  #        PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
026663,001797:                                                                                                  #        S22LOC,SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LONG,ALT,
026664,001798:                                                                                                  #        TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
026665,001799: 
026666,001800: 13,2231                                           BANK     13                                    
026667,001801: 
026668,001802: 30,2000                                           SETLOC   P20S6                                 
026669,001803: 30,2000                                           BANK                                           
026670,001804: 
026671,001805: 30,2312  E5,1751                                  EBANK=   LANDMARK                              
026672,001806: 30,2312                                           COUNT    35/LUORB                              
026673,001807: 
026674,001808: 30,2312           66220        S22.1              STQ      SSP                                   
026675,001809: 30,2313           03703                                    S22RTNEX                              
026676,001810: 30,2314           00051                                    S1                                    
026677,001811: 30,2315           00006                           DEC      6          B-14                       
026678,001812: 30,2316           66331                           SSP      SSP                                   #  SET I=1       ITEM 8KK IS I
026679,001813: 30,2317           02747                                    8KK                                   
026680,001814: 30,2320           00001                           DEC      1          B-14                       
026681,001815: 30,2321           02751                                    S22LOC                                
026682,001816: 30,2322           03537                           ECADR    SVMRKDAT                              #  SET MARK DATA ADDRESS INTO S22LOC

Page 599

026684,001818: 30,2323           76144                           LXC,2    AXT,1                                 
026685,001819: 30,2324           01330                                    MARKSTAT                              
026686,001820: 30,2325           00044                           DEC      36         B-14                       
026687,001821: 30,2326           77773        S22.111            VLOAD*                                         #  MOVE MARK DATA (5 SETS) FROM ADDR. IN
026688,001822: 30,2327           77776                                    0,2                                   #  MARKSTAT TO SVMRKDAT TABLE TO AVOID LOSS
026689,001823: 30,2330           07604                           STORE    SVMRKDAT   +36D,1                     #  IF RESTART OCCURS
026690,001824: 30,2331           60114                           INCR,2   TIX,1                                 
026691,001825: 30,2332           77771                           DEC      -6         B-14                       
026692,001826: 30,2333           60326                                    S22.111                               
026693,001827: 30,2334           77414                           SET      EXIT                                  
026694,001828: 30,2335           01464                                    P22MKFLG                              #  DOWNLINKED SVMRKDAT HOLDS PRESENT MARKS
026695,001829: 30,2336           04662                           TC       BANKCALL                              #  RELEASE VAC AREA WHERE MARK DATA WAS
026696,001830: 30,2337           16063                           CADR     MKRELEAS                              
026697,001831: 30,2340           05372                           TC       2PHSCHNG                              
026698,001832: 30,2341           00004                           OCT      00004                                 
026699,001833: 30,2342           05022                           OCT      05022                                 
026700,001834: 30,2343           13000                           OCT      13000                                 
026701,001835: 30,2344           06006                           TC       INTPRET                               
026702,001836: 30,2345           43170                           AXT,1    BOFF                                  
026703,001837: 30,2346           00000                                    0D                                    
026704,001838: 30,2347           04343                                    CMOONFLG                              #  =0 EARTH, =1 MOON
026705,001839: 30,2350           60353                                    S22SHIFT                              
026706,001840: 30,2351           77710                           INCR,1                                         
026707,001841: 30,2352           77775                           DEC      -2         B-14                       
026708,001842: 30,2353           40330        S22SHIFT           SXA,1    SETPD                                 
026709,001843: 30,2354           03673                                    S22EORM                               #  SET =0 EARTH, =-2 MOON FOR SHIFTING
026710,001844: 30,2355           00001                                    0D                                    
026711,001845: 30,2356           77624        FIG2EXIT           CALL                                           
026712,001846: 30,2357           27442                                    INTSTALL                              
026713,001847: 30,2360           77624                           CALL                                           
026714,001848: 30,2361           62355                                    S22FLGS                               
026715,001849:                                                                                                  #        FLOWCHART D=0   THEN DIM0FLAG=0  D6OR9FLG NOT TESTED
026716,001850:                                                                                                  #        FLOWCHART D=6   THEN DIM0FLAG=1  D6OR9FLG=0
026717,001851:                                                                                                  #        FLOWCHART D=9   THEN DIM0FLAG=1  D6OR9FLG=1
026718,001852: 
026719,001853: 30,2362           43014                           BOFF     CLRGO                                 
026720,001854: 30,2363           01751                                    ORBWFLAG                              
026721,001855: 30,2364           60367                                    SETWW5D                               #  BRANCH TO SET W0-W5,ORBWFLAG,D
026722,001856: 30,2365           01635                                    D6OR9FLG                              #  FLOWCHART D=6 PATH
026723,001857: 30,2366           60414                                    SETVANDI                              
026724,001858: 30,2367           77614        SETWW5D            CLEAR                                          
026725,001859: 30,2370           01676                                    DIM0FLAG                              #  FLOWCHART D=0 PATH
026726,001860: 30,2371           66370                           AXT,1    SSP                                   
026727,001861: 30,2372           00154                           DEC      108        B-14                       
026728,001862: 30,2373           00051                                    S1                                    
026729,001863: 30,2374           00006                           DEC      6          B-14                       
026730,001864: 30,2375           77214                           CLEAR    VLOAD                                 
026731,001865: 30,2376           02676                                    RENDWFLG                              #  GSOP CHANGE 8/18/67
026732,001866: 30,2377           15335                                    ZEROVECS                              
026733,001867: 30,2400           06555        CLEARWW5           STORE    W          +108D,1                    

Page 600

026735,001869: 30,2401           67300                           TIX,1    SLOAD                                 
026736,001870: 30,2402           60400                                    CLEARWW5                              
026737,001871: 30,2403           02005                                    WORBPOS                               
026738,001872: 30,2404           02401                           STORE    W                                     #  SET DIAGONALS OF W0
026739,001873: 30,2405           02411                           STORE    W          +8D                        
026740,001874: 30,2406           02421                           STORE    W          +16D                       
026741,001875: 30,2407           77735                           SLOAD                                          
026742,001876: 30,2410           02006                                    WORBVEL                               
026743,001877: 30,2411           02511                           STORE    W          +72D                       #  SET DIAGONALS OF W4
026744,001878: 30,2412           02521                           STORE    W          +80D                       
026745,001879: 30,2413           02531                           STORE    W          +88D                       
026746,001880: 30,2414           77614        SETVANDI           CLEAR                                          
026747,001881: 30,2415           02666                                    DMENFLG                               #  0=6X6W, 1=9X9W
026748,001882: 30,2416           77624        S22NXTIN           CALL                                           
026749,001883: 30,2417           62351                                    GETTF                                 
026750,001884: 30,2420           34041                           STCALL   TDEC1                                 
026751,001885: 30,2421           27162                                    INTEGRV                               
026752,001886: 30,2422           77624                           CALL                                           
026753,001887: 30,2423           61332                                    S22CALRC                              #  CALC. RC B-29 OR B-27 (CSMPOS)
026754,001888: 30,2424           66150                           LXA,1    SXA,1                                 
026755,001889: 30,2425           02750                                    S22LOC                                #  SETUP ADDR. OF MARK DATA FOR GETUM SUBR.
026756,001890: 30,2426           01242                                    MARKDATA                              
026757,001891: 30,2427           77624                           CALL                                           #  COMPUTE UM
026758,001892: 30,2430           47104        S2GETUM                     GETUM                                 
026759,001893: 30,2431           01235                           STORE    UM                                    
026760,001894: 30,2432           41535        DMPINTEG           SLOAD    PUSH                                  #  TEST OFF=I
026761,001895: 30,2433           02747                                    8KK                                   
026762,001896: 30,2434           50535                           SLOAD    SR3                                   #  CXOFF SCALED B-5, MUST MOVE TO B-14
026763,001897: 30,2435           02746                                    CXOFF                                 #  BEFORE SUBT.
026764,001898: 30,2436           50442                           SR3      SR3                                   
026765,001899: 30,2437           77625                           DSU                                            
026766,001900: 30,2440           43030                           BHIZ     BON                                   
026767,001901: 30,2441           60755                                    S22OFF=I                              #  BRANCH HERE IF OFF=I
026768,001902: 30,2442           02706                                    DMENFLG                               #  0=6X6W, 1=9X9W
026769,001903: 30,2443           60763                                    S22D=9                                
026770,001904: 30,2444           77624                           CALL                                           
026771,001905: 30,2445           56750                                    GRP2PC                                
026772,001906: 30,2446           77614                           SET                                            
026773,001907: 30,2447           01471                                    ORBWFLAG                              
026774,001908: 30,2450           43014                           SET      SET                                   
026775,001909: 30,2451           02466                                    DMENFLG                               #  =0 ON FIRST PASS THRU HERE FOR D=0, OR 6
026776,001910: 30,2452           01062                                    22DSPFLG                              #  =1 TO DISPLAY DR,DV ON FIRST PASS
026777,001911: 30,2453           43014                           SET      BON                                   
026778,001912: 30,2454           00462                                    ERADFLAG                              #  =1 TO COMPUTE FISCHER RADIUS
026779,001913: 30,2455           03307                                    KNOWNFLG                              
026780,001914: 30,2456           61123                                    S22BOX22                              
026781,001915: 30,2457           53575                           VLOAD    UNIT                                  #  UNIT ALSO PUTS ABVAL(RC) IN 36D
026782,001916: 30,2460           01207                                    CSMPOS                                
026783,001917: 30,2461           02152                           STORE    ALPHAV                                #  ALPHAV +4=SINL FOR SETRE
026784,001918: 30,2462           43014                           CLEAR    BOFF                                  

Page 601

026786,001920: 30,2463           01663                                    LUNAFLAG                              
026787,001921: 30,2464           04343                                    CMOONFLG                              
026788,001922: 30,2465           60470                                    S22C=I                                
026789,001923: 30,2466           77614                           SET                                            
026790,001924: 30,2467           01463                                    LUNAFLAG                              
026791,001925: 30,2470           77624        S22C=I             CALL                                           #  ERADM= R0 METERS B-29 BOTH EARTH/MOON
026792,001926: 30,2471           26601                                    SETRE                                 
026793,001927: 30,2472           77624                           CALL                                           #  COMPUTE RL FROM EQUATION 2.4.10
026794,001928: 30,2473           61277                                    S22F2410                              #  STORED IN X789,MPAC B-27,B-29
026795,001929: 30,2474           70414                           BOFF     VSR2                                  #  SCALE RL B-29 FOR BOTH EARTH/MOON
026796,001930: 30,2475           04343                                    CMOONFLG                              
026797,001931: 30,2476           60477                                    +1                                    
026798,001932: 30,2477           02635                           STORE    S22RL                                 
026799,001933: 30,2500           72441                           DOT      SL1                                   
026800,001934: 30,2501           01235                                    UM                                    
026801,001935: 30,2502           24037                           STOVL    S22D                                  #  D= UM.RL B-29
026802,001936: 30,2503           15335                                    ZEROVECS                              
026803,001937: 30,2504           41401                           SETPD    PUSH                                  
026804,001938: 30,2505           00001                                    0D                                    
026805,001939: 30,2506           65206                           PUSH     PDDL                                  #  SET 0-18D = I BACKWARDS
026806,001940: 30,2507           15333                                    HIDPHALF                              #  PD 18
026807,001941: 30,2510           77702                           SR2                                            #  B-3
026808,001942: 30,2511           00005                           STORE    4D                                    
026809,001943: 30,2512           00011                           STORE    8D                                    
026810,001944: 30,2513           24015                           STOVL    12D                                   
026811,001945: 30,2514           01235                                    UM                                    #  B-1
026812,001946: 30,2515           24023                           STOVL    S223X1                                
026813,001947: 30,2516           02635                                    S22RL                                 #  B-29
026814,001948: 30,2517           77624                           CALL                                           #  (UM)(RL T) B-30 STORED IN S22UMRL THRU
026815,001949: 30,2520           62332                                    S2231X13                              #  S22UMRL +17D
026816,001950: 30,2521           66370                           AXT,1    SSP                                   
026817,001951: 30,2522           00022                           DEC      18         B-14                       
026818,001952: 30,2523           00051                                    S1                                    
026819,001953: 30,2524           00006                           DEC      6          B-14                       
026820,001954: 30,2525           70573        S22NXTU            VLOAD*   VSR2                                  #  (UM)(RL T) B-32
026821,001955: 30,2526           03524                                    S22UMRL    +18D,1                     
026822,001956: 30,2527           77741                           V/SC                                           
026823,001957: 30,2530           00037                                    S22D                                  #  D B-29
026824,001958: 30,2531           45445                           BVSU     STADR                                 #  SUBTRACT FROM I B-3
026825,001959: 30,2532           70253                           STORE    S22UMRL    +18D,1                     #  U MATRIX B-3
026826,001960: 30,2533           76100                           TIX,1    AXT,1                                 #  PD 0 AFTER TIX
026827,001961: 30,2534           60525                                    S22NXTU                               
026828,001962: 30,2535           00044                           DEC      36         B-14                       #  S1 STILL 6 FROM ABOVE
026829,001963: 30,2536           64373        S22NXTWI           VLOAD*   MXV                                   
026830,001964: 30,2537           02445                                    W          +36D,1                     #  B-19
026831,001965: 30,2540           03502                                    S22UMRL                               #  B-3
026832,001966: 30,2541           77732                           VSL3                                           
026833,001967: 30,2542           06621                           STORE    W          +144D,1                    #  W(I+18)= UW(I) B-19
026834,001968: 30,2543           71300                           TIX,1    DLOAD                                 
026835,001969: 30,2544           60536                                    S22NXTWI                              

Page 602

026837,001971: 30,2545           00041                                    S22RHO                                #  B-28,B-30
026838,001972: 30,2546           60414                           BOFF     SR2                                   #  MAKE RHO B-30
026839,001973: 30,2547           04343                                    CMOONFLG                              
026840,001974: 30,2550           60551                                    +1                                    
026841,001975: 30,2551           57101                           NORM     XAD,2                                 
026842,001976: 30,2552           00050                                    X2                                    
026843,001977: 30,2553           00047                                    X2                                    
026844,001978: 30,2554           41316                           DSQ      DMP                                   
026845,001979: 30,2555           21636                                    SCTVAR                                #  B+18
026846,001980: 30,2556           77742                           SR1                                            #  ACCOUNTS FOR 1/2 IN NEXT FORMULA
026847,001981: 30,2557           00041                           STORE    S22RHO                                #  1/2(RHO SQ)(VARSCT)
026848,001982: 30,2560           77770                           AXT,1                                          
026849,001983: 30,2561           00022                           DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
026850,001984: 30,2562           64373        S22NXXA            VLOAD*   MXV                                   
026851,001985: 30,2563           03524                                    S22UMRL    +18D,1                     #  B-3
026852,001986: 30,2564           03502                                    S22UMRL                               #  B-3
026853,001987: 30,2565           53761                           VXSC     VSR*                                  
026854,001988: 30,2566           00041                                    S22RHO                                
026855,001989: 30,2567           57212                                    0          -12D,2                     #  WITH VARRP SCALED B-28
026856,001990: 30,2570           05301                           STORE    S22UUT     +18D,1                     #  1/2(RHO SQ)(VARSCT)(U)(U T)
026857,001991: 30,2571           77300                           TIX,1    VLOAD                                 
026858,001992: 30,2572           60562                                    S22NXXA                               
026859,001993: 30,2573           01235                                    UM                                    
026860,001994: 30,2574           34023                           STCALL   S223X1                                #  UM ALSO IN MPAC FOR S2231X13 SUBR.
026861,001995: 30,2575           62332                                    S2231X13                              #  (UM)(UM T) B-2 IN S22UMRL,P17D
026862,001996: 30,2576           50545                           DLOAD    SR3                                   
026863,001997: 30,2577           02241                                    ERADM                                 #  R0 B-29
026864,001998: 30,2600           63471                           DDV      DSQ                                   
026865,001999: 30,2601           00037                                    S22D                                  #  B-29
026866,002000: 30,2602           77605                           DMP                                            
026867,002001: 30,2603           02010                                    RPVAR                                 #  ***** METERS SQ
026868,002002: 30,2604           00041                           STORE    S22RHO                                #  TEMP (VARRP)(R0/D)
026869,002003: 30,2605           77770                           AXT,1                                          
026870,002004: 30,2606           00022                           DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
026871,002005: 30,2607           74373        S22NXXB            VLOAD*   VXSC                                  
026872,002006: 30,2610           03524                                    S22UMRL    +18D,1                     #  (UM)(UM T) B-2
026873,002007: 30,2611           00041                                    S22RHO                                
026874,002008: 30,2612           77653                           VAD*                                           
026875,002009: 30,2613           01301                                    S22UUT     +18D,1                     
026876,002010: 30,2614           05301                           STORE    S22UUT     +18D,1                     #  SMALL E MATRIX
026877,002011: 30,2615           77775                           VLOAD                                          
026878,002012: 30,2616           15335                                    ZEROVECS                              
026879,002013: 30,2617           06643                           STORE    W          +162D,1                    #  CLEAR W8
026880,002014: 30,2620           40100                           TIX,1    BOV                                   
026881,002015: 30,2621           60607                                    S22NXXB                               
026882,002016: 30,2622           60623                                    +1                                    
026883,002017: 30,2623           50145                           DLOAD    BMN                                   
026884,002018: 30,2624           01277                                    S22UUT     +16D                       #  E5
026885,002019: 30,2625           60644                                    S22W76X                               
026886,002020: 30,2626           53166                           SQRT     BZE                                   

Page 603

026888,002022: 30,2627           60644                                    S22W76X                               
026889,002023: 30,2630           16625                           STODL    W          +148D                      #  W74= SQ ROOT E5
026890,002024: 30,2631           01275                                    S22UUT     +14D                       #  E4
026891,002025: 30,2632           40071                           DDV      BOV                                   
026892,002026: 30,2633           02625                                    W          +148D                      
026893,002027: 30,2634           60636                                    S22W72X                               
026894,002028: 30,2635           02623                           STORE    W          +146D                      #  W73= E4/W74
026895,002029: 30,2636           56345        S22W72X            DLOAD    DDV                                   
026896,002030: 30,2637           01273                                    S22UUT     +12D                       #  E3
026897,002031: 30,2640           02625                                    W          +148D                      
026898,002032: 30,2641           77600                           BOV                                            
026899,002033: 30,2642           60644                                    S22W76X                               
026900,002034: 30,2643           02621                           STORE    W          +144D                      #  W72= E4/W74
026901,002035: 30,2644           63545        S22W76X            DLOAD    DSQ                                   
026902,002036: 30,2645           02623                                    W          +146D                      #  W73
026903,002037: 30,2646           50021                           BDSU     BMN                                   
026904,002038: 30,2647           01267                                    S22UUT     +8D                        #  E2
026905,002039: 30,2650           60664                                    S22W78X                               
026906,002040: 30,2651           53166                           SQRT     BZE                                   
026907,002041: 30,2652           60664                                    S22W78X                               
026908,002042: 30,2653           16631                           STODL    W          +152D                      #  W76= SQ ROOT (E2-W73 SQ)
026909,002043: 30,2654           02621                                    W          +144D                      #  W72
026910,002044: 30,2655           44205                           DMP      BDSU                                  
026911,002045: 30,2656           02623                                    W          +146D                      #  W73
026912,002046: 30,2657           01265                                    S22UUT     +6D                        #  E1
026913,002047: 30,2660           40071                           DDV      BOV                                   
026914,002048: 30,2661           02631                                    W          +152D                      #  W76
026915,002049: 30,2662           60664                                    S22W78X                               
026916,002050: 30,2663           02627                           STORE    W          +150D                      #  W75= (E1-W72W73)/W76
026917,002051: 30,2664           63545        S22W78X            DLOAD    DSQ                                   
026918,002052: 30,2665           02627                                    W          +150D                      
026919,002053: 30,2666           63525                           PDDL     DSQ                                   
026920,002054: 30,2667           02621                                    W          +144D                      #  W72
026921,002055: 30,2670           77615                           DAD                                            
026922,002056: 30,2671           50021                           BDSU     BMN                                   
026923,002057: 30,2672           01257                                    S22UUT                                #  E0
026924,002058: 30,2673           60676                                    S22SCLW                               
026925,002059: 30,2674           77766                           SQRT                                           
026926,002060: 30,2675           02635                           STORE    W          +156D                      #  W78= SQ RT(E0-W72 SQ-W75 SQ)
026927,002061: 30,2676           74575        S22SCLW            VLOAD    VSR1                                  #  SCALE W6 METERS B-19
026928,002062: 30,2677           02621                                    W          +144D                      
026929,002063: 30,2700           26621                           STOVL    W          +144D                      
026930,002064: 30,2701           02627                                    W          +150D                      
026931,002065: 30,2702           77762                           VSR1                                           
026932,002066: 30,2703           26627                           STOVL    W          +150D                      
026933,002067: 30,2704           02635                                    W          +156D                      
026934,002068: 30,2705           77762                           VSR1                                           
026935,002069: 30,2706           02635                           STORE    W          +156D                      
026936,002070: 30,2707           77624        S22SAVET           CALL                                           
026937,002071: 30,2710           62351                                    GETTF                                 

Page 604

026939,002073: 30,2711           03672                           STORE    S22TPRIM                              #  SAVE PRESENT TIME FOR PIOS
026940,002074: 30,2712           77776        S22I=N             EXIT                                           #  TEST I=N
026941,002075: 30,2713           05412                           TC       PHASCHNG                              
026942,002076: 30,2714           04022                           OCT      04022                                 
026943,002077: 30,2715           41746                           CS       8KK                                   
026944,002078: 30,2716           61747                           AD       8NN                                   
026945,002079: 30,2717           00006                           EXTEND                                         
026946,002080: 30,2720           63161                           BZMF     S22F244X                              #  EXIT TO FIGURE 2.4-4
026947,002081: 30,2721           31746                           CA       8KK                                   #  I=I+1
026948,002082: 30,2722           65017                           AD       ONE                                   
026949,002083: 30,2723           55300                           TS       TEMPOR1                               
026950,002084: 30,2724           31750                           CA       S22LOC                                #  ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
026951,002085: 30,2725           65023                           AD       SEVEN                                 
026952,002086: 30,2726           55301                           TS       TEMPOR1    +1                         
026953,002087: 30,2727           05412                           TC       PHASCHNG                              
026954,002088: 30,2730           04022                           OCT      04022                                 
026955,002089: 30,2731           31300                           CA       TEMPOR1                               
026956,002090: 30,2732           55746                           TS       8KK                                   
026957,002091: 30,2733           31301                           CA       TEMPOR1    +1                         
026958,002092: 30,2734           55750                           TS       S22LOC                                
026959,002093: 30,2735           06006                           TC       INTPRET                               
026960,002094: 30,2736           77624                           CALL                                           #  FOR ALL INTEGRATIONS OTHER THAN FIRST
026961,002095: 30,2737           27442        S2INTS1                     INTSTALL                              
026962,002096: 30,2740           77624                           CALL                                           
026963,002097: 30,2741           62355                                    S22FLGS                               
026964,002098: 30,2742           43014                           BON      CLEAR                                 
026965,002099: 30,2743           02706                                    DMENFLG                               
026966,002100: 30,2744           60416                                    S22NXTIN                              #  RETURN ALWAYS EXCEPT OFFSET POINT MARK 1
026967,002101: 30,2745           01676                                    DIM0FLAG                              
026968,002102: 30,2746           43014                           BOFF     SET                                   
026969,002103: 30,2747           01751                                    ORBWFLAG                              
026970,002104: 30,2750           60416                                    S22NXTIN                              #  OFFSET POINT MARK 1, NO W INTEGRATION
026971,002105: 30,2751           01476                                    DIM0FLAG                              
026972,002106: 30,2752           77614                           CLRGO                                          
026973,002107: 30,2753           01635                                    D6OR9FLG                              
026974,002108: 30,2754           60416                                    S22NXTIN                              #  OFFSET POINT MARK 1, INTEGRATE W 6X6
026975,002109: 30,2755           77624        S22OFF=I           CALL                                           
026976,002110: 30,2756           62351                                    GETTF                                 
026977,002111: 30,2757           27670                           STOVL    S22TOFF                               #  TIME SUB OFF
026978,002112: 30,2760           01235                                    UM                                    
026979,002113: 30,2761           35215                           STCALL   S22UOFF                               #  U SUB OFF
026980,002114: 30,2762           60712                                    S22I=N                                #  TEST I=N
026981,002115: 30,2763           77775        S22D=9             VLOAD                                          #  D=9 PATH
026982,002116: 30,2764           01701                                    X789                                  
026983,002117: 30,2765           14001                           STODL    0D                                    #  CALL PIOS TWICE TO TRANSFORM RL TO TIME
026984,002118: 30,2766           03672                                    S22TPRIM                              #  T(SUB F) FROM TIME T PRIME
026985,002119: 30,2767           00007                           STORE    6D                                    
026986,002120: 30,2770           45135                           SLOAD    CALL                                  
026987,002121: 30,2771           03674                                    S22EORM                               #  0=EARTH, NON-ZERO=MOON
026988,002122: 30,2772           55371        S2RTRP                      R-TO-RP                               

Page 605

026990,002124: 30,2773           45006                           PUSH     CALL                                  #  R-TO-RP LEAVES PUSHLOC AT 0
026991,002125: 30,2774           62351                                    GETTF                                 
026992,002126: 30,2775           00007                           STORE    6D                                    
026993,002127: 30,2776           45135                           SLOAD    CALL                                  
026994,002128: 30,2777           03674                                    S22EORM                               
026995,002129: 30,3000           55344        S2RPTR                      RP-TO-R                               
026996,002130: 30,3001           01701        S22BOX32           STORE    X789                                  
026997,002131: 30,3002           40014                           SET      BOV                                   
026998,002132: 30,3003           02464                                    INCORFLG                              #  FLAG=1
026999,002133: 30,3004           61005                                    +1                                    #  CLEAR OVERFLOW
027000,002134: 30,3005           77651                           VSU                                            
027001,002135: 30,3006           01207                                    CSMPOS                                
027002,002136: 30,3007           03531                           STORE    RCLP                                  #  RCL=RL-RC
027003,002137: 30,3010           47256                           UNIT     VXV                                   #  USTAR=UNIT(UNIT(RCL)XUM)
027004,002138: 30,3011           01235                                    UM                                    
027005,002139: 30,3012           40056                           UNIT     BOV                                   
027006,002140: 30,3013           60707                                    S22SAVET                              #  COMPUTATION OVERFLOW, SAVE TF
027007,002141: 30,3014           01245                           STORE    USTAR                                 
027008,002142: 30,3015           43014        S22BOX12           SET      SET                                   
027009,002143: 30,3016           02466                                    DMENFLG                               #  =1 FOR 9X9 W
027010,002144: 30,3017           00467                                    VEHUPFLG                              #  =1 FOR CSM
027011,002145: 30,3020           43345                           DLOAD    DAD                                   
027012,002146: 30,3021           21636                                    SCTVAR                                #  B+18
027013,002147: 30,3022           21640                                    IMUVARR                               #  B+18
027014,002148: 30,3023           27526                           STOVL    VARIANCE                              
027015,002149: 30,3024           03531                                    RCLP                                  #  B-29 OR B-27
027016,002150: 30,3025           60246                           ABVAL    NORM                                  
027017,002151: 30,3026           00047                                    X1                                    
027018,002152: 30,3027           41316                           DSQ      DMP                                   
027019,002153: 30,3030           03526                                    VARIANCE                              
027020,002154: 30,3031           56070                           XAD,1    XAD,1                                 
027021,002155: 30,3032           00046                                    X1                                    #  DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
027022,002156: 30,3033           03673                                    S22EORM                               #  DOUBLE EARTH OR MOON SHIFT, SAME REASON
027023,002157: 30,3034           53670                           XAD,1    SR*                                   
027024,002158: 30,3035           03673                                    S22EORM                               
027025,002159: 30,3036           20601                                    0,1                                   #  SCALE VARIANCE B-40 FOR BOTH EARTH, MOON
027026,002160: 30,3037           77751                           TLOAD                                          #  CHANGE MODE TO TRIPLE
027027,002161: 30,3040           00155                                    MPAC                                  
027028,002162: 30,3041           37526                           STCALL   VARIANCE                              #  CALC B0,B1,DELTAQ, NEW USTAR
027029,002163: 30,3042           47043        S2BVTRS                     BVECTORS                              
027030,002164: 30,3043           57575                           VLOAD    VCOMP                                 
027031,002165: 30,3044           03502                                    BVECTOR                               
027032,002166: 30,3045           37516                           STCALL   BVECTOR    +12D                       #  B2=-B0
027033,002167: 30,3046           75254        S2INCP1                     INCORP1                               
027034,002168: 30,3047           77624                           CALL                                           
027035,002169: 30,3050           56750                                    GRP2PC                                
027036,002170: 30,3051           43014                           BOFF     CLEAR                                 
027037,002171: 30,3052           01342                                    22DSPFLG                              #  =1 DISPLAY DELTA R,V    =0 DO NOT
027038,002172: 30,3053           61104                                    S22BOX42                              
027039,002173: 30,3054           01262                                    22DSPFLG                              

Page 606

027041,002175: 30,3055           77624                           CALL                                           
027042,002176: 30,3056           56750                                    GRP2PC                                
027043,002177: 30,3057           51575                           VLOAD    ABVAL                                 
027044,002178: 30,3060           01257                                    DELTAX                                #  DELTA R
027045,002179: 30,3061           53750                           LXA,1    SR*                                   
027046,002180: 30,3062           03673                                    S22EORM                               #  SCALE DELTA R ALWAYS METERS B-29
027047,002181: 30,3063           20601                                    0,1                                   
027048,002182: 30,3064           27502                           STOVL    N49DISP                               
027049,002183: 30,3065           01265                                    DELTAX     +6                         #  DELTA V
027050,002184: 30,3066           53646                           ABVAL    SR*                                   #  DELTA V=METERS/CSEC B-7 ALWAYS
027051,002185: 30,3067           20601                                    0,1                                   
027052,002186: 30,3070           03504                           STORE    N49DISP    +2                         
027053,002187: 30,3071           77776                           EXIT                                           
027054,002188: 30,3072           33643                           CAF      V06N49EE                              
027055,002189: 30,3073           04662                           TC       BANKCALL                              
027056,002190: 30,3074           21057                           CADR     GOFLASHR                              
027057,002191: 30,3075           04106                           TC       GOTOPOOH                              #  V34E TERMINATE
027058,002192: 30,3076           03103                           TC       +5                                    #  INCORPORATE CHANGES
027059,002193: 30,3077           03267                           TC       S22EXEX                               #  V32E RECYCLE
027060,002194: 30,3100           35015                           CAF      BIT3                                  
027061,002195: 30,3101           05526                           TC       BLANKET                               
027062,002196: 30,3102           05217                           TC       ENDOFJOB                              
027063,002197: 30,3103           06006                           TC       INTPRET                               
027064,002198: 30,3104           77624        S22BOX42           CALL                                           
027065,002199: 30,3105           75466                                    INCORP2                               
027066,002200: 30,3106           77624                           CALL                                           #  CSMPOS=RC B-29 OR B-27
027067,002201: 30,3107           61332                                    S22CALRC                              
027068,002202: 30,3110           45014        DMPINCP2           BOFF     CALL                                  
027069,002203: 30,3111           02744                                    INCORFLG                              
027070,002204: 30,3112           60707                                    S22SAVET                              #  SAVE TF AND TEST I=N
027071,002205: 30,3113           56750                                    GRP2PC                                
027072,002206: 30,3114           77214                           CLEAR    VLOAD                                 
027073,002207: 30,3115           02664                                    INCORFLG                              #  FLAG=0
027074,002208: 30,3116           01701                                    X789                                  
027075,002209: 30,3117           77651                           VSU                                            
027076,002210: 30,3120           01207                                    CSMPOS                                
027077,002211: 30,3121           37531                           STCALL   RCLP                                  #  RCL=RL-RC
027078,002212: 30,3122           61015                                    S22BOX12                              
027079,002213: 30,3123           66370        S22BOX22           AXT,1    SSP                                   #  CLEAR W6,W7,W8  (27 ELEMENTS 54 REGS)
027080,002214: 30,3124           00066                           DEC      54         B-14                       
027081,002215: 30,3125           00051                                    S1                                    
027082,002216: 30,3126           00006                           DEC      6          B-14                       
027083,002217: 30,3127           77775                           VLOAD                                          
027084,002218: 30,3130           15335                                    ZEROVECS                              
027085,002219: 30,3131           06643        CLRW678            STORE    W          +162D,1                    
027086,002220: 30,3132           67300                           TIX,1    SLOAD                                 
027087,002221: 30,3133           61131                                    CLRW678                               
027088,002222: 30,3134           02007                                    S22WSUBL                              
027089,002223: 30,3135           02621                           STORE    W          +144D                      
027090,002224: 30,3136           02631                           STORE    W          +152D                      

Page 607

027092,002226: 30,3137           02641                           STORE    W          +160D                      
027093,002227: 30,3140           43014                           CLEAR    BOFF                                  #  SET LUNAFLAG, TIME FOR LALOTORV
027094,002228: 30,3141           01663                                    LUNAFLAG                              #  ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
027095,002229: 30,3142           04343                                    CMOONFLG                              #  CHECK SCALING OF ITEMS,ALT INPUT AND
027096,002230: 30,3143           61146                                    S22BX22A                              #  RL OUTPUT IN ALPHAV BOTH B-29
027097,002231: 30,3144           77614                           SET                                            
027098,002232: 30,3145           01463                                    LUNAFLAG                              
027099,002233: 30,3146           77624        S22BX22A           CALL                                           
027100,002234: 30,3147           62351                                    GETTF                                 
027101,002235: 30,3150           77624                           CALL                                           #  COMPUTE RL
027102,002236: 30,3151           26441                                    LALOTORV                              
027103,002237: 30,3152           43175                           VLOAD    BOFF                                  
027104,002238: 30,3153           02152                                    ALPHAV                                #  RL B-29
027105,002239: 30,3154           04343                                    CMOONFLG                              
027106,002240: 30,3155           61157                                    S22BX22B                              
027107,002241: 30,3156           77752                           VSL2                                           #  SCALE RL B-27 FOR MOON
027108,002242: 30,3157           77650        S22BX22B           GOTO                                           
027109,002243: 30,3160           61001                                    S22BOX32                              
027110,002244: 30,3161           06006        S22F244X           TC       INTPRET                               
027111,002245: 30,3162           46135        S22F244            SLOAD    BHIZ                                  #  FIG 2.4-4     TEST OFF=0
027112,002246: 30,3163           02746                                    CXOFF                                 
027113,002247: 30,3164           61220                                    S22BOX44                              
027114,002248: 30,3165           77661                           SR                                             #  SCALE OFFSET B-14 THEN TEST GR. 8NN
027115,002249: 30,3166           20612                                    9D                                    
027116,002250: 30,3167           02152                           STORE    ALPHAV                                #  TEMP
027117,002251: 30,3170           45335                           SLOAD    DSU                                   
027118,002252: 30,3171           02750                                    8NN                                   
027119,002253: 30,3172           02152                                    ALPHAV                                
027120,002254: 30,3173           45040                           BMN      CALL                                  #  OFFSET GR. NO. MARKS.  FORGET IT
027121,002255: 30,3174           61220                                    S22BOX44                              
027122,002256: 30,3175           56750                                    GRP2PC                                #  GROUP 2 PHASE CHANGE
027123,002257: 30,3176           77745                           DLOAD                                          
027124,002258: 30,3177           03670                                    S22TOFF                               
027125,002259: 30,3200           34041                           STCALL   TDEC1                                 #  CALC RC AT OFFSET TIME
027126,002260: 30,3201           27071                                    CSMPREC                               
027127,002261: 30,3202           77775                           VLOAD                                          
027128,002262: 30,3203           00017                                    RATT1                                 #  RC METERS B-29 OR B-27
027129,002263: 30,3204           25207                           STOVL    CSMPOS                                
027130,002264: 30,3205           01215                                    S22UOFF                               
027131,002265: 30,3206           25235                           STOVL    UM                                    #  U=UOFF
027132,002266: 30,3207           01701                                    X789                                  
027133,002267: 30,3210           43046                           ABVAL    BOFF                                  
027134,002268: 30,3211           04343                                    CMOONFLG                              
027135,002269: 30,3212           61214                                    +2                                    
027136,002270: 30,3213           77702                           SR2                                            #  SCALE MOON R0 B-29 FOR S22F2410 SUBR
027137,002271: 30,3214           36241                           STCALL   ERADM                                 
027138,002272: 30,3215           61277                                    S22F2410                              
027139,002273: 30,3216           77650                           GOTO                                           
027140,002274: 30,3217           61223                                    S22BX44A                              
027141,002275: 30,3220           77624        S22BOX44           CALL                                           

Page 608

027143,002277: 30,3221           62351                                    GETTF                                 
027144,002278: 30,3222           03670                           STORE    S22TOFF                               #  PRESENT TIME FOR LAT-LONG SETUP
027145,002279: 30,3223           77214        S22BX44A           CLEAR    VLOAD                                 
027146,002280: 30,3224           01663                                    LUNAFLAG                              
027147,002281: 30,3225           01701                                    X789                                  
027148,002282: 30,3226           43014                           BOFF     SET                                   
027149,002283: 30,3227           04343                                    CMOONFLG                              
027150,002284: 30,3230           61233                                    S22BX44B                              
027151,002285: 30,3231           01463                                    LUNAFLAG                              #  SET = 1 FOR LAT-LONG
027152,002286: 30,3232           77742                           VSR2                                           #  SCALE RL MOON B-29 FOR LAT-LONG
027153,002287: 30,3233           16152        S22BX44B           STODL    ALPHAV                                #  RL SCALED B-29 FOR LAT-LONG
027154,002288: 30,3234           03670                                    S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
027155,002289: 30,3235           77624                           CALL                                           
027156,002290: 30,3236           26370                                    LAT-LONG                              #  **** ALT OUTPUT ALWAYS B-29
027157,002291: 30,3237           77624                           CALL                                           #  DISPLAY LAT/LONG/ALT
027158,002292: 30,3240           62365                                    LLASRD                                
027159,002293: 30,3241           77776                           EXIT                                           
027160,002294: 30,3242           33644                           CAF      V06N89B                               
027161,002295: 30,3243           04662                           TC       BANKCALL                              
027162,002296: 30,3244           20720                           CADR     GOFLASH                               
027163,002297: 30,3245           03272                           TC       S22GTP                                #  V34E TERMINATE
027164,002298: 30,3246           03250                           TC       +2                                    #  PROCEED       SAVE LANDING SITE COORD
027165,002299: 30,3247           03263                           TC       S22.981X                              #  RECYCLE       POINT A IN GSOP
027166,002300: 30,3250           06006                           TC       INTPRET                               
027167,002301: 30,3251           77745                           DLOAD                                          
027168,002302: 30,3252           03670                                    S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
027169,002303: 30,3253           24007                           STOVL    6D                                    #  6-7D= LANDING SITE TIME FOR R-TO-RP
027170,002304: 30,3254           01701                                    X789                                  
027171,002305: 30,3255           00001                           STORE    0D                                    #  0-5D= LANDING SITE VEC FOR R-TO-RP
027172,002306: 30,3256           45135                           SLOAD    CALL                                  
027173,002307: 30,3257           15333                                    HIDPHALF                              #  ANY NON-ZERO FOR MOON
027174,002308: 30,3260           55371                                    R-TO-RP                               #  CONVERT RLS TO MOON-FIXED COORD
027175,002309: 30,3261           02026                           STORE    RLS                                   #  LANDING SITE VECTOR
027176,002310: 30,3262           77776                           EXIT                                           
027177,002311: 30,3263           06006        S22.981X           TC       INTPRET                               
027178,002312: 30,3264           77624                           CALL                                           
027179,002313: 30,3265           61342                                    9DWTO6DW                              
027180,002314: 30,3266           77776                           EXIT                                           #  GO TO POINT A IN CHAPTER 5
027181,002315: 30,3267           06006        S22EXEX            TC       INTPRET                               #  WITHOUT CONVERTING W
027182,002316: 30,3270           77650                           GOTO                                           
027183,002317: 30,3271           03703                                    S22RTNEX                              
027184,002318: 
027185,002319: 30,3272           06006        S22GTP             TC       INTPRET                               #  CONVERT W BEFORE TC GOTOPOOH
027186,002320: 30,3273           77624                           CALL                                           
027187,002321: 30,3274           61342                                    9DWTO6DW                              
027188,002322: 30,3275           77776                           EXIT                                           
027189,002323: 30,3276           04106                           TC       GOTOPOOH                              
027190,002324: 30,3277           77201        S22F2410           SETPD    VLOAD                                 #  COMPUTE FORMULA 2.4.10
027191,002325: 30,3300           00001                                    0D                                    
027192,002326: 30,3301           01207                                    CSMPOS                                #  RC B-29 EARTH, B-27 MOON

Page 609

027194,002328: 30,3302           50256                           UNIT     DOT                                   #  UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
027195,002329: 30,3303           01235                                    UM                                    
027196,002330: 30,3304           57552                           SL1      DCOMP                                 #  GSOP CHANGE 8/18/67
027197,002331: 30,3305           77606                           PUSH                                           #  PD 2D 0D=COSA=-(UM.RC)/ABVAL(RC)      B-1
027198,002332: 30,3306           44316                           DSQ      BDSU                                  
027199,002333: 30,3307           21642                                    DEC1B2                                
027200,002334: 30,3310           43125                           PDDL     BOFF                                  #  PD 4D 2D=1-COSA SQ=SINA SQ            B-2
027201,002335: 30,3311           02241                                    ERADM                                 #  R0 ALWAYS B-29 FROM SETRE
027202,002336: 30,3312           04343                                    CMOONFLG                              
027203,002337: 30,3313           61315                                    +2                                    
027204,002338: 30,3314           77712                           SL2                                            #  SCALE R0 B-27 FOR MOON
027205,002339: 30,3315           56362                           SR1R     DDV                                   #  (R0/RC)       B-1
027206,002340: 30,3316           00045                                    36D                                   
027207,002341: 30,3317           45316                           DSQ      DSU                                   #  PD 2D (R0/RC) SQ - SINA SQ            B-2
027208,002342: 30,3320           44366                           SQRT     BDSU                                  #  PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ)    B-1
027209,002343: 30,3321           77605                           DMP                                            #  DMP RESULT B-28 MOON, B-30 EARTH
027210,002344: 30,3322           00045                                    36D                                   #  VXSC RESULT B-29 MOON, B-31 EARTH
027211,002345: 30,3323           00041                           STORE    S22RHO                                #  RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
027212,002346: 30,3324           77761                           VXSC                                           
027213,002347: 30,3325           01235                                    UM                                    
027214,002348: 30,3326           53352                           VSL2     VAD                                   #  SCALE B-27 MOON, B-29 EARTH AND ADD RC
027215,002349: 30,3327           01207                                    CSMPOS                                
027216,002350: 30,3330           01701                           STORE    X789                                  
027217,002351: 30,3331           77616                           RVQ                                            #  B-27 FOR EARTH OR B-29 FOR MOON
027218,002352: 30,3332           77350        S22CALRC           LXA,1    VLOAD                                 #  COMPUTE RC B-29 OR B-27
027219,002353: 30,3333           03673                                    S22EORM                               #  =0 FOR EARTH, -2 FOR MOON
027220,002354: 30,3334           01573                                    DELTACSM                              
027221,002355: 30,3335           53257                           VSR*     VAD                                   
027222,002356: 30,3336           20610                                    7,1                                   
027223,002357: 30,3337           01607                                    RCVCSM                                
027224,002358: 30,3340           01207                           STORE    CSMPOS                                
027225,002359: 30,3341           77616                           RVQ                                            
027226,002360: 31,2000                                           SETLOC   P22S                                  
027227,002361: 31,2000                                           BANK                                           
027228,002362: 
027229,002363: 31,2332           00031        S2231X13           STORE    S221X3                                #  MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN
027230,002364: 31,2333           77131                           SSP      AXT,2                                 #  S22UMRL - S22UMRL+17D
027231,002365: 31,2334           00052                                    S2                                    
027232,002366: 31,2335           00002                           DEC      2          B-14                       
027233,002367: 31,2336           00006                           DEC      6          B-14                       
027234,002368: 31,2337           77770                           AXT,1                                          
027235,002369: 31,2340           00022                           DEC      18         B-14                       
027236,002370: 31,2341           73775        S2231NXT           VLOAD    VXSC*                                 
027237,002371: 31,2342           00031                                    S221X3                                
027238,002372: 31,2343           77746                                    S223X1     +6,2                       
027239,002373: 31,2344           07524                           STORE    S22UMRL    +18D,1                     
027240,002374: 31,2345           61110                           INCR,1   TIX,2                                 
027241,002375: 31,2346           77771                           DEC      -6         B-14                       
027242,002376: 31,2347           62341                                    S2231NXT                              
027243,002377: 31,2350           77616                           RVQ                                            

Page 610

027245,002379: 31,2351           70740        GETTF              LXC,1    DLOAD*                                #  SET MPAC= TF
027246,002380: 31,2352           02750                                    S22LOC                                
027247,002381: 31,2353           00001                                    0,1                                   
027248,002382: 31,2354           77616                           RVQ                                            
027249,002383: 31,2355           43014        S22FLGS            SET      SET                                   #  INTEGRATION FLAGS
027250,002384: 31,2356           01476                                    DIM0FLAG                              
027251,002385: 31,2357           01475                                    D6OR9FLG                              
027252,002386: 31,2360           43014                           SET      SET                                   
027253,002387: 31,2361           01474                                    VINTFLAG                              
027254,002388: 31,2362           01472                                    STATEFLG                              
027255,002389: 31,2363           43414                           CLEAR    RVQ                                   
027256,002390: 31,2364           01673                                    INTYPFLG                              
027257,002391: 
027258,002392:                                                                                                  #  SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
027259,002393:                                                                                                  #  PRIOR TO DISPLAY.
027260,002394: 
027261,002395: 31,2365           77745        LLASRD             DLOAD                                          #  ALT, LANDALT METERS B-29
027262,002396: 31,2366           01110                                    ALT                                   
027263,002397: 31,2367           16362                           STODL    LANDALT                               
027264,002398: 31,2370           01106                                    LONG                                  
027265,002399: 31,2371           77742                           SR1                                            
027266,002400: 31,2372           02360                           STORE    LANDLONG                              
027267,002401: 31,2373           77616                           RVQ                                            
027268,002402: 
027269,002403:                                                                                                  #  SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
027270,002404:                                                                                                  #  LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
027271,002405: 
027272,002406: 31,2374           77745        LLASRDA            DLOAD                                          #  ALT, LANDALT METERS B-29
027273,002407: 31,2375           02362                                    LANDALT                               
027274,002408: 31,2376           15110                           STODL    ALT                                   
027275,002409: 31,2377           02360                                    LANDLONG                              
027276,002410: 31,2400           77752                           SL1                                            
027277,002411: 31,2401           01106                           STORE    LONG                                  
027278,002412: 31,2402           77616                           RVQ                                            
027279,002413: 30,2000                                           SETLOC   P20S6                                 
027280,002414: 30,2000                                           BANK                                           
027281,002415: 
027282,002416: 30,3342           40220        9DWTO6DW           STQ      SETPD                                 
027283,002417: 30,3343           01214                                    9DWXX                                 
027284,002418: 30,3344           00001                                    0D                                    
027285,002419: 30,3345           41575                           VLOAD    PUSH                                  #  CLEAR WORKING AREA OF PUSHLIST
027286,002420: 30,3346           15335                                    HI6ZEROS                              #  INCLUDING P
027287,002421: 30,3347           41406                           PUSH     PUSH                                  #  PD 18D
027288,002422: 30,3350           77731                           SSP                                            
027289,002423: 30,3351           00017                                    9DWJ                                  #  J=29  USE 2*29 FOR DP WORDS
027290,002424: 30,3352           00072                           DEC      58         B-14                       
027291,002425: 30,3353           66150        9DWI=J             LXA,1    SXA,1                                 #  SET I=J
027292,002426: 30,3354           00016                                    9DWJ                                  
027293,002427: 30,3355           00012                                    9DWI                                  
027294,002428: 30,3356           77624        9DWEPCAL           CALL                                           

Page 611

027296,002430: 30,3357           61574                                    ROWDOT                                
027297,002431: 30,3360           77750                           LXA,1                                          #  P VARIES 0-20 INSTEAD OF 20-0
027298,002432: 30,3361           00010                                    9DWP                                  
027299,002433: 30,3362           06641                           STORE    EMATRIX    +40D,1                     
027300,002434: 30,3363           66110                           INCR,1   SXA,1                                 
027301,002435: 30,3364           00002                           DEC      2          B-14                       
027302,002436: 30,3365           00010                                    9DWP                                  
027303,002437: 30,3366           46135                           SLOAD    BHIZ                                  #  TEST I=0
027304,002438: 30,3367           00013                                    9DWI                                  
027305,002439: 30,3370           61405                                    9DWTESTJ                              
027306,002440: 30,3371           77625                           DSU                                            #  I=I-1
027307,002441: 30,3372           21634                                    9DWID                                 
027308,002442: 30,3373           00013                           STORE    9DWI                                  
027309,002443: 30,3374           46025                           DSU      BHIZ                                  #  TEST I=26
027310,002444: 30,3375           21632                                    9DW26D                                
027311,002445: 30,3376           61401                                    9DWSETI2                              
027312,002446: 30,3377           77650                           GOTO                                           #  NEXT E SUB P
027313,002447: 30,3400           61356                                    9DWEPCAL                              
027314,002448: 30,3401           52131        9DWSETI2           SSP      GOTO                                  #  I=2
027315,002449: 30,3402           00013                                    9DWI                                  
027316,002450: 30,3403           00004                           DEC      4          B-14                       
027317,002451: 30,3404           61356                                    9DWEPCAL                              
027318,002452: 30,3405           46135        9DWTESTJ           SLOAD    BHIZ                                  #  TEST J=0
027319,002453: 30,3406           00017                                    9DWJ                                  
027320,002454: 30,3407           61424                                    9DWFIG6                               
027321,002455: 30,3410           77625                           DSU                                            
027322,002456: 30,3411           21634                                    9DWID                                 
027323,002457: 30,3412           00017                           STORE    9DWJ                                  #  J=J-1
027324,002458: 30,3413           46025                           DSU      BHIZ                                  #  TEST J=26
027325,002459: 30,3414           21632                                    9DW26D                                
027326,002460: 30,3415           61420                                    9DWSETJ2                              
027327,002461: 30,3416           77650                           GOTO                                           
027328,002462: 30,3417           61353                                    9DWI=J                                
027329,002463: 30,3420           52131        9DWSETJ2           SSP      GOTO                                  #  SET J=2
027330,002464: 30,3421           00017                                    9DWJ                                  
027331,002465: 30,3422           00004                           DEC      4          B-14                       
027332,002466: 30,3423           61353                                    9DWI=J                                
027333,002467: 30,3424           77624        9DWFIG6            CALL                                           
027334,002468: 30,3425           56750                                    GRP2PC                                
027335,002469: 30,3426           77331                           SSP      VLOAD                                 #  START OF FIGURE 2.4-6
027336,002470: 30,3427           00017                                    9DWJ                                  #  J=29
027337,002471: 30,3430           00072                           DEC      58         B-14                       
027338,002472: 30,3431           15335                                    HI6ZEROS                              
027339,002473: 30,3432           00011                           STORE    9DWP                                  #  P,N,I=0
027340,002474: 30,3433           66370                           AXT,1    SSP                                   
027341,002475: 30,3434           00154                           DEC      108        B-14                       #  CLEAR WO TO W54
027342,002476: 30,3435           00051                                    S1                                    
027343,002477: 30,3436           00006                                    6                                     
027344,002478: 30,3437           06555        CLEARW54           STORE    W          +108D,1                    
027345,002479: 30,3440           77700                           TIX,1                                          

Page 612

027347,002481: 30,3441           61437                                    CLEARW54                              
027348,002482: 30,3442           66150        9DWI=JA            LXA,1    SXA,1                                 #  I=J
027349,002483: 30,3443           00016                                    9DWJ                                  
027350,002484: 30,3444           00012                                    9DWI                                  
027351,002485: 30,3445           77624                           CALL                                           
027352,002486: 30,3446           61574                                    ROWDOT                                
027353,002487: 30,3447           43750                           LXA,1    BDSU*                                 
027354,002488: 30,3450           00010                                    9DWP                                  
027355,002489: 30,3451           02641                                    EMATRIX    +40D,1                     
027356,002490: 30,3452           66110                           INCR,1   SXA,1                                 #  -(P+1)
027357,002491: 30,3453           00002                                    2                                     
027358,002492: 30,3454           00010                                    9DWP                                  
027359,002493: 30,3455           54140                           LXC,1    XSU,1                                 #  -(I+N)
027360,002494: 30,3456           00012                                    9DWI                                  
027361,002495: 30,3457           00014                                    9DWN                                  
027362,002496: 30,3460           71244                           BPL      DLOAD                                 #  TEST WSQ LTE 0
027363,002497: 30,3461           61465                                    9DWAAA                                
027364,002498: 30,3462           15335                                    HI6ZEROS                              #  W=0
027365,002499: 30,3463           77650                           GOTO                                           
027366,002500: 30,3464           61466                                    9DWAAB                                
027367,002501: 30,3465           77766        9DWAAA             SQRT                                           #  W= SQRT(WSQ)
027368,002502: 30,3466           06401        9DWAAB             STORE    W,1                                   
027369,002503: 30,3467           14001                           STODL    WORKW                                 
027370,002504: 30,3470           00017                                    9DWJ                                  #  TEST J=0
027371,002505: 30,3471           77630                           BHIZ                                           
027372,002506: 30,3472           61560                                    9DWEXITX                              #  EXIT
027373,002507: 30,3473           46135        TST2I=0            SLOAD    BHIZ                                  #  TEST I=0
027374,002508: 30,3474           00013                                    9DWI                                  
027375,002509: 30,3475           61536                                    9DWN=N+3                              
027376,002510: 30,3476           77625                           DSU                                            
027377,002511: 30,3477           21634                                    9DWID                                 
027378,002512: 30,3500           00013                           STORE    9DWI                                  #  I=I-1
027379,002513: 30,3501           46025                           DSU      BHIZ                                  #  TEST I=26
027380,002514: 30,3502           21632                                    9DW26D                                
027381,002515: 30,3503           61506                                    9DWAAC                                
027382,002516: 30,3504           77650                           GOTO                                           
027383,002517: 30,3505           61511                                    9DWNEXEP                              
027384,002518: 30,3506           77731        9DWAAC             SSP                                            #  I=2
027385,002519: 30,3507           00013                                    9DWI                                  
027386,002520: 30,3510           00004                                    4                                     
027387,002521: 30,3511           77624        9DWNEXEP           CALL                                           
027388,002522: 30,3512           61574                                    ROWDOT                                
027389,002523: 30,3513           43750                           LXA,1    BDSU*                                 #  (EP-ROWI*ROWJ)/W
027390,002524: 30,3514           00010                                    9DWP                                  
027391,002525: 30,3515           02641                                    EMATRIX    +40D,1                     
027392,002526: 30,3516           62071                           DDV      INCR,1                                #  P=P+1
027393,002527: 30,3517           00001                                    WORKW                                 
027394,002528: 30,3520           00002                                    2                                     
027395,002529: 30,3521           70130                           SXA,1    LXC,1                                 
027396,002530: 30,3522           00010                                    9DWP                                  

Page 613

027398,002532: 30,3523           00012                                    9DWI                                  
027399,002533: 30,3524           40060                           XSU,1    BOV                                   #  -(I+N)
027400,002534: 30,3525           00014                                    9DWN                                  
027401,002535: 30,3526           61531                                    SETWIN=0                              
027402,002536: 30,3527           77650                           GOTO                                           
027403,002537: 30,3530           61533                                    9DWSETWX                              
027404,002538: 30,3531           77745        SETWIN=0           DLOAD                                          #  W(I+N)=0
027405,002539: 30,3532           15335                                    HI6ZEROS                              
027406,002540: 30,3533           06401        9DWSETWX           STORE    W,1                                   
027407,002541: 30,3534           77650                           GOTO                                           
027408,002542: 30,3535           61473                                    TST2I=0                               
027409,002543: 30,3536           62150        9DWN=N+3           LXA,1    INCR,1                                #  N=N+3
027410,002544: 30,3537           00014                                    9DWN                                  
027411,002545: 30,3540           00006                                    6                                     
027412,002546: 30,3541           67330                           SXA,1    SLOAD                                 #  J=J-1
027413,002547: 30,3542           00014                                    9DWN                                  
027414,002548: 30,3543           00017                                    9DWJ                                  
027415,002549: 30,3544           77625                           DSU                                            
027416,002550: 30,3545           21634                                    9DWID                                 
027417,002551: 30,3546           00017                           STORE    9DWJ                                  
027418,002552: 30,3547           46025                           DSU      BHIZ                                  #  TEST J=26
027419,002553: 30,3550           21632                                    9DW26D                                
027420,002554: 30,3551           61554                                    SETJ=2A                               
027421,002555: 30,3552           77650                           GOTO                                           
027422,002556: 30,3553           61442                                    9DWI=JA                               
027423,002557: 30,3554           52131        SETJ=2A            SSP      GOTO                                  #  J=2
027424,002558: 30,3555           00017                                    9DWJ                                  
027425,002559: 30,3556           00004                                    4                                     
027426,002560: 30,3557           61442                                    9DWI=JA                               
027427,002561: 30,3560           77624        9DWEXITX           CALL                                           
027428,002562: 30,3561           56750                                    GRP2PC                                
027429,002563: 30,3562           66370                           AXT,1    SSP                                   #  CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
027430,002564: 30,3563           00066                           DEC      54         B-14                       
027431,002565: 30,3564           00051                                    S1                                    
027432,002566: 30,3565           00006                                    6                                     
027433,002567: 30,3566           77775                           VLOAD                                          
027434,002568: 30,3567           15335                                    HI6ZEROS                              
027435,002569: 30,3570           06643        9DWEXXXA           STORE    W          +162D,1                    
027436,002570: 30,3571           52100                           TIX,1    GOTO                                  
027437,002571: 30,3572           61570                                    9DWEXXXA                              
027438,002572: 30,3573           01214                                    9DWXX                                 
027439,002573: 30,3574           40131        ROWDOT             SSP      BOV                                   
027440,002574: 30,3575           00007                                    XTMP1                                 
027441,002575: 30,3576           00377                           OCT      377                                   
027442,002576: 30,3577           61600                                    +1                                    
027443,002577: 30,3600           71140                           LXC,1    LXC,2                                 
027444,002578: 30,3601           00012                                    9DWI                                  
027445,002579: 30,3602           00016                                    9DWJ                                  
027446,002580: 30,3603           41545                           DLOAD    PUSH                                  
027447,002581: 30,3604           15335                                    HI6ZEROS                              

Page 614

027449,002583: 30,3605           56743        ROWDOT1            DLOAD*   DMPR*                                 
027450,002584: 30,3606           02401                                    W,1                                   
027451,002585: 30,3607           75376                                    W,2                                   
027452,002586: 30,3610           41415                           DAD      PUSH                                  
027453,002587: 30,3611           62000                           BOV      INCR,1                                
027454,002588: 30,3612           61626                                    ROWDOT3                               
027455,002589: 30,3613           77771                           DEC      -6         B-14                       
027456,002590: 30,3614           67314                           INCR,2   SLOAD                                 
027457,002591: 30,3615           77771                           DEC      -6         B-14                       
027458,002592: 30,3616           00007                                    XTMP1                                 
027459,002593: 30,3617           70430                           BHIZ     SR1                                   
027460,002594: 30,3620           61624                                    ROWDOT2                               
027461,002595: 30,3621           00007                           STORE    XTMP1                                 
027462,002596: 30,3622           77650                           GOTO                                           
027463,002597: 30,3623           61605                                    ROWDOT1                               
027464,002598: 30,3624           77745        ROWDOT2            DLOAD                                          
027465,002599: 30,3625           77616                           RVQ                                            
027466,002600: 30,3626           77614        ROWDOT3            CLRGO                                          
027467,002601: 30,3627           01631                                    ORBWFLAG                              
027468,002602: 30,3630           61624                                    ROWDOT2                               
027469,002603: 30,3631                        WORKW              =        0D                                    
027470,002604: 30,3631                        XTMP1              =        6D                                    
027471,002605: 30,3631                        9DWP               =        8D                                    #  P
027472,002606: 30,3631                        9DWI               =        10D                                   #  I
027473,002607: 30,3631                        9DWN               =        12D                                   #  N
027474,002608: 30,3631                        9DWJ               =        14D                                   #  J
027475,002609: 30,3631     1214               9DWXX              =        S22UOFF                               
027476,002610: 30,3631  E7,1501               S22UMRL            =        BVECTOR                               #  18
027477,002611: 30,3631     1256               S22UUT             =        DELTAX                                #  18
027478,002612: 30,3631                        S223X1             =        18D                                   #  6
027479,002613: 30,3631                        S221X3             =        24D                                   #  6
027480,002614: 30,3631                        S22D               =        30D                                   #  2
027481,002615: 30,3631                        S22RHO             =        32D                                   #  2
027482,002616: 30,3631  E5,1634               S22RL              =        W          +156D                      #  6
027483,002617: 30,3631           00064 00000  9DW26D             2DEC     52         B-14                       
027484,002618: 30,3633           00002 00000  9DWID              2DEC     2          B-14                       
027485,002619: 30,3635           10306 36750  SCTVAR             2DEC     1.0        E-6        B+18            
027486,002620: 30,3637           00253 31436  IMUVARR            2DEC     0.04       E-6        B+18            
027487,002621: 30,3641           10000 00000  DEC1B2             2DEC     1          B-2                        
027488,002622: 30,3643           01461        V06N49EE           VN       00649                                 
027489,002623: 30,3644           01531        V06N89B            VN       00689                                 
027490,002624: 30,3645     1214               S22UOFF            =        LEMPOS                                #  6     U SUB OFF
027491,002625: 23,2000                                           SETLOC   P20S2                                 
027492,002626: 23,2000                                           BANK                                           

Page 615 Nothing on this page. — RSB 2009.

027495,002629: 

Page 616

027497,002631:                                                                                                  #  SUBROUTINE NAME:  V89CALL
027498,002632:                                                                                                  #  MOD NO:  0                                    DATE: 8 FEB 1968
027499,002633:                                                                                                  #  MOD BY:  DIGITAL DEVEL GROUP                  LOG SECTION:  P20-P25
027500,002634: 
027501,002635:                                                                                                  #  FUNCTIONAL DESCRIPTION:
027502,002636: 
027503,002637:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 USED.  CALCULATES AND
027504,002638:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
027505,002639:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
027506,002640: 
027507,002641:                                                                                                  #  1. KEY IN V89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
027508,002642:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
027509,002643: 
027510,002644:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH).  IF IMU ON AND ITS
027511,002645:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
027512,002646: 
027513,002647:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
027514,002648:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS.  (R2=1).
027515,002649:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V22 E 2 E.  CONTINUE
027516,002650:                                                                                                  #  AFTER KEYING IN PROCEED.
027517,002651: 
027518,002652:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED.  SET FLAG
027519,002653:                                                                                                  #  FOR PREFERRED AXIS.  RESET FLAG FOR X AXIS.
027520,002654: 
027521,002655:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
027522,002656: 
027523,002657:                                                                                                  #        R63COMP JOB:
027524,002658:                                                                                                  #        
027525,002659:                                                                                                  #                UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
027526,002660: 
027527,002661:                                                                                                  #                CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM.
027528,002662: 
027529,002663:                                                                                                  #                DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
027530,002664:                                                                                                  #                ARE STORED FOR LATER R60CSM CALL.
027531,002665: 
027532,002666:                                                                                                  #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
027533,002667: 
027534,002668:                                                                                                  #  7. RECYCLE-  RETURN TO STEP 5.
027535,002669:                                                                                                  #     TERMINATE- EXIT R63 ROUTINE
027536,002670:                                                                                                  #     PROCEED-  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
027537,002671: 
027538,002672:                                                                                                  #  CALLING SEQUENCE:     V 89 E
027539,002673: 
027540,002674:                                                                                                  #  SUBROUTINES CALLED:  CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
027541,002675: 
027542,002676:                                                                                                  #  ALARMS        1.  OPERATOR ERROR IF NOT IN P00
027543,002677:                                                                                                  #                2.  PROGRAM ALARM IF IMU IS OFF
027544,002678:                                                                                                  #                3.  PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN

Page 617

027546,002680: 
027547,002681:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:  NONE
027548,002682: 
027549,002683:                                                                                                  #  DEBRIS:  OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG), P21TIME, 3AXISFLG
027550,002684: 
027551,002685: 23,3132           00000 13560  DP1MIN             2DEC     6000       B-28                       
027552,002686: 23,3134  E4,1715                                  EBANK=   P21TIME                               
027553,002687: 34,3712                                           BANK     34                                    
027554,002688: 34,2000                                           SETLOC   P20S4                                 
027555,002689: 34,2000                                           BANK                                           
027556,002690: 34,3712                                           COUNT*   $$/R63                                
027557,002691: 
027558,002692: 34,3712           04662        V89CALL            TC       BANKCALL                              #  IMU STATUS CHECK. RETURNS IF ORIENTATION
027559,002693: 34,3713           17653                           CADR     R02BOTH                               #  KNOWN.  ALARMS IF NOT.
027560,002694: 34,3714           36214                           CAF      THREE                                 #  ALLOW ASTRONAUT TO SELECT DESIRED
027561,002695: 34,3715           55131                           TS       OPTION1                               #  TRACKING ATTITUDE AXIS.
027562,002696: 34,3716           35017                           CAF      ONE                                   
027563,002697: 34,3717           55132                           TS       OPTION1    +1                         
027564,002698: 34,3720           33761                           CAF      VB04N06                               #  V 04 N 06
027565,002699: 34,3721           04662                           TC       BANKCALL                              
027566,002700: 34,3722           20720                           CADR     GOFLASH                               
027567,002701: 34,3723           05534                           TC       ENDEXT                                #  TERMINATE
027568,002702: 34,3724           03726                           TC       +2                                    #  PROCEED
027569,002703: 34,3725           03720                           TC       -5                                    #  DATA IN.  OPTION1 +1 = 1 FOR PREF AXIS
027570,002704:                                                                                                  #                       = 2 FOR X AXIS
027571,002705: 34,3726           41132                           CS       OPTION1    +1                         #  1 FOR PREF AXIS.  2 FOR X AXIS.
027572,002706: 34,3727           65017                           AD       ONE                                   
027573,002707: 34,3730           00006                           EXTEND                                         
027574,002708: 34,3731           13756                           BZF      SETPAF                                
027575,002709: 34,3732           05560        RSTPAF             TC       DOWNFLAG                              #  RESET PREF ATT FLAG FOR R63COMP
027576,002710: 34,3733           00120                           ADRES    RNGSCFLG                              #  TO DO X AXIS.  RESET BIT 10 FLAG 5
027577,002711: 34,3734           06006        V89RECL            TC       INTPRET                               
027578,002712: 34,3735           43234                           RTB      DAD                                   
027579,002713: 34,3736           45510                                    LOADTIME                              #  READ PRESENT TIME
027580,002714: 34,3737           07133                                    DP1MIN                                #  INTEGRATE TO 1 MIN FROM NOW
027581,002715: 34,3740           36316                           STCALL   P21TIME                               #  STORE TIME FOR CALL TO R63COMP.  R63COMP
027582,002716: 34,3741           71572                                    R63COMP                               #  LEAVES DESIRED GIM ANGS IN THETAD, LOS IN
027583,002717: 34,3742           77776                           EXIT                                           #  POINTVSM, AND SELECTED AXIS IN SCAXIS.
027584,002718: 34,3743           33762                           CAF      VB06N18                               #  V 06 N 18
027585,002719: 34,3744           04662                           TC       BANKCALL                              #  NOUN 18 REFERS TO THE DESIRED GIMBAL
027586,002720: 34,3745           20720                           CADR     GOFLASH                               
027587,002721: 34,3746           05534                           TC       ENDEXT                                #  TERMINATE
027588,002722: 34,3747           03751                           TC       +2                                    #  PROCEED
027589,002723: 34,3750           03734                           TC       V89RECL                               #  RECYCLE
027590,002724: 34,3751           05560                           TC       DOWNFLAG                              #  RESET 3 AXIS FLAG
027591,002725: 34,3752           00124                           ADRES    3AXISFLG                              #  RESET BIT 6 FLAG 5

Page 618

027593,002727: 34,3753           04662                           TC       BANKCALL                              #  PERFORMS CSM MANEUVER TO ALIGN SELECTED
027594,002728: 34,3754           56000                           CADR     R60CSM                                #  SPACECRAFT AXIS TO LOS.
027595,002729: 34,3755           15534                           TCF      ENDEXT                                
027596,002730: 
027597,002731: 34,3756           05546        SETPAF             TC       UPFLAG                                #  SET PREFERRED ATT FLAG FOR R63COMP
027598,002732: 34,3757           00120                           ADRES    RNGSCFLG                              #  TO DO PREF AXIS.  SET BIT 10 FLAG 5.
027599,002733: 34,3760           03734                           TC       V89RECL                               
027600,002734: 
027601,002735: 34,3761           01006        VB04N06            VN       0406                                  
027602,002736: 34,3762           01422        VB06N18            VN       0618                                  
027603,002737: 
027604,002738: 34,3763  34,3572               R63COMP            EQUALS   R63                                   
027605,002739: 

Page 619

027607,002741:                                                                                                  #  PROGRAM NAME-  P23 CISLUNAR MIDCOURSE NAVIGATION
027608,002742:                                                                                                  #  MOD NO
027609,002743:                                                                                                  #  MOD BY-  TOM KNATT
027610,002744:                                                                                                  #  FUNCTIONAL DESCRIPTION-  DO MIDCOURSE NAVIGATION BY INCORPORATION OF STAR
027611,002745:                                                                                                  #  /EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
027612,002746:                                                                                                  #  CALLING SEQUENCE-  ASTRONAUT OPERATED
027613,002747:                                                                                                  #  SUBROUTINES CALLED-  R52,R53,R57,R60,ORBITAL INTEGRATION (INTEGRV)
027614,002748:                                                                                                  #  INCORP1,INCORP2,LALOTORV,LUNLMKLD, AND DISPLAY INTERFACE ROUTINES.
027615,002749:                                                                                                  #  NORMAL EXIT MODES-  VIA ROO
027616,002750:                                                                                                  #  ALARMS-  NONE
027617,002751:                                                                                                  #  ABORT MODES-  NONE
027618,002752:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-  PAD-LOADED ERASABLES, ORBWFLAG RESET,
027619,002753:                                                                                                  #  REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ON
027620,002754:                                                                                                  #  INPUTS BY USER REQUIRED-  STAR NUMBER, LANDMARK LAT, LONG/2, ALT OR ID NUMB.
027621,002755:                                                                                                  #  IF LANDMARK IS USED, NEAR OR FAR HORIZON IF HORIZON IS USED, AND 
027622,002756:                                                                                                  #  BODY TO BE MARKED ON (EARTH OR MOON).  SEE GSOP CHAPT 4.
027623,002757:                                                                                                  #  OUTPUT-  UPDATED CMC STATE VECTOR.  VECTOR FROM S/C TO HORIZON OR LANDMARK
027624,002758:                                                                                                  #  IN POINTAXS.  POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
027625,002759:                                                                                                  #  P23 IF DESIRED.
027626,002760:                                                                                                  #  DEBRIS-  NO USABLE DEBRIS IS GENERATED.  RENDWFLG IS RESET FOR P20 UPON
027627,002761:                                                                                                  #  COMPLETION OF P23.  RUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS
027628,002762: 
027629,002763: 31,2403                                           BANK     31                                    
027630,002764: 31,2000                                           SETLOC   RT23                                  
027631,002765: 31,2000                                           BANK                                           
027632,002766: 31,2403                                           COUNT    31/S23                                
027633,002767: 31,2403  E5,1400                                  EBANK=   W                                     
027634,002768: 31,2403           05560        P23                TC       DOWNFLAG                              
027635,002769: 31,2404           00010                           ADRES    RNDVZFLG                              
027636,002770: 
027637,002771: 31,2405           05372                           TC       2PHSCHNG                              
027638,002772: 31,2406           00004                           OCT      00004                                 #  LEAVE GROUP 4
027639,002773: 31,2407           00012                           OCT      00012                                 #  ENTER GROUP 2
027640,002774: 31,2410           35065                           CAF      PRIO13                                
027641,002775: 31,2411           55056                           TS       PHSPRDT2                              
027642,002776: 31,2412           06006                           TC       INTPRET                               
027643,002777: 31,2413           43131                           SSP      CLEAR                                 
027644,002778: 31,2414           00302                                    MARKINDX                              
027645,002779: 31,2415           00001                                    1                                     
027646,002780: 31,2416           00666                                    TARG2FLG                              #  TARGET FLAG USED BY R52 AND R53
027647,002781: 31,2417           66214                           CLEAR    SSP                                   
027648,002782: 31,2420           00665                                    TARG1FLG                              
027649,002783: 31,2421           00305                                    STARIND                               
027650,002784: 31,2422           00000                                    0                                     
027651,002785: 31,2423           43131                           SSP      CLEAR                                 
027652,002786: 31,2424           00303                                    BESTI                                 
027653,002787: 31,2425           00000                                    0                                     
027654,002788: 31,2426           03267                                    R57FLAG                               #  SET = DO NOT REPERFORM R57
027655,002789: 31,2427           77414                           CLEAR    EXIT                                  
027656,002790: 31,2430           04664                                    V94FLAG                               #  SET = ALLOW V94
027657,002791: 31,2431           06006        P23.00             TC       INTPRET                               

Page 620

027659,002793: 31,2432           45014                           BON      CALL                                  
027660,002794: 31,2433           01702                                    REFSMFLG                              #  SET NOW AS INPUT, NORMALLY EXTERNAL CONT
027661,002795: 31,2434           62442                                    P23.05                                #  WHEN ALIGNED, PERFORM MEASUREMENT
027662,002796: 31,2435           76401                                    R57                                   #  DO OPTICS CALIBRATION IF IMU NOT ALIGNED
027663,002797: 31,2436           77624                           CALL                                           
027664,002798: 31,2437           31300                                    R53                                   
027665,002799: 31,2440           77650                           GOTO                                           
027666,002800: 31,2441           62641                                    P23.60                                
027667,002801: 31,2442           77414        P23.05             CLEAR    EXIT                                  
027668,002802: 31,2443           04665                                    SAVECFLG                              #  USED TO SAVE SPACE IN P23.65
027669,002803: 31,2444           33456        P23.06             CAF      V05N70                                
027670,002804: 31,2445           04662                           TC       BANKCALL                              #  IDENTIFICATION-STAR,HOR  IDENT.
027671,002805: 31,2446           20720                           CADR     GOFLASH                               
027672,002806: 31,2447           04106                           TC       GOTOPOOH                              #  TERMINATE
027673,002807: 31,2450           02452                           TC       P23.15                                
027674,002808: 31,2451           02444                           TC       -5                                    #  REDISPLAY
027675,002809: 31,2452           31751        P23.15             CA       LANDMARK                              #  IF C=2, LUNAFLAG=1.  IF C=1, LUNAFLAG=0
027676,002810: 31,2453           00006                           EXTEND                                         
027677,002811: 31,2454           12463                           BZF      P23.151                               
027678,002812: 31,2455           31752                           CA       HORIZON                               
027679,002813: 31,2456           00006                           EXTEND                                         
027680,002814: 31,2457           12461                           BZF      +2                                    
027681,002815: 31,2460           03134                           TC       R23.10                                #  OPERATOR DSKY ERROR
027682,002816: 31,2461           31751                           CA       LANDMARK                              
027683,002817: 31,2462           02466                           TC       P23.152                               
027684,002818: 31,2463           31752        P23.151            CA       HORIZON                               
027685,002819: 31,2464           00006                           EXTEND                                         
027686,002820: 31,2465           13134                           BZF      R23.10                                
027687,002821: 31,2466           73473        P23.152            MASK     BITS7-9                               #  IS C EQUAL TO 1 OR 2
027688,002822: 31,2467           65234                           AD       NEG100                                
027689,002823: 31,2470           00006                           EXTEND                                         
027690,002824: 31,2471           12501                           BZF      P23.16                                
027691,002825: 31,2472           65234                           AD       NEG100                                
027692,002826: 31,2473           00006                           EXTEND                                         
027693,002827: 31,2474           12476                           BZF      +2                                    
027694,002828: 31,2475           03134                           TC       R23.10                                
027695,002829: 31,2476           05546                           TC       UPFLAG                                
027696,002830: 31,2477           00060                           ADRES    LUNAFLAG                              
027697,002831: 31,2500           12503                           TCF      +3                                    
027698,002832: 31,2501           05560        P23.16             TC       DOWNFLAG                              
027699,002833: 31,2502           00060                           ADRES    LUNAFLAG                              
027700,002834: 31,2503           30735                           CA       STARCODE                              #  IS STARCODE GREATER THAN OR
027701,002835: 31,2504           00006                           EXTEND                                         #  EQUAL TO 0 AND LESS THAN 37
027702,002836: 31,2505           12532                           BZF      P23.176                               
027703,002837: 31,2506           00006                           EXTEND                                         
027704,002838: 31,2507           63134                           BZMF     R23.10                                
027705,002839: 31,2510           63472                           AD       NEG37                                 
027706,002840: 31,2511           00006                           EXTEND                                         
027707,002841: 31,2512           62514                           BZMF     +2                                    
027708,002842: 31,2513           03134                           TC       R23.10                                

Page 621

027710,002844: 
027711,002845: 31,2514           06006                           TC       INTPRET                               
027712,002846: 31,2515           53135        P23.17             SLOAD    BZE                                   
027713,002847: 31,2516           00736                                    STARCODE                              
027714,002848: 31,2517           62531                                    P23.175                               
027715,002849: 31,2520           77606                           PUSH                                           
027716,002850: 31,2521           41335                           SLOAD    DMP                                   
027717,002851: 31,2522           23463                                    SPSIX                                 
027718,002852: 31,2523           66150                           LXA,1    SXA,1                                 
027719,002853: 31,2524           00155                                    MPAC       +1                         
027720,002854: 31,2525           00302                                    BESTI                                 #  BESTI = 6 X STAR NUMBER
027721,002855: 31,2526           77624                           CALL                                           
027722,002856: 31,2527           30000                                    LOWMEMRY                              #  NEEDED TO RETRIEVE STAR VECTOR FROM LOW
027723,002857: 31,2530           02617                           STORE    STARSAV2                              #  STORE FOR R53,P23.  US(IN P23)=STARSAV2
027724,002858: 31,2531           77776        P23.175            EXIT                                           
027725,002859: 31,2532           31752        P23.176            CA       HORIZON                               
027726,002860: 31,2533           00006                           EXTEND                                         
027727,002861: 31,2534           12553                           BZF      P23.20                                
027728,002862: 31,2535           73474                           MASK     BITS4-6                               
027729,002863: 31,2536           66171                           AD       -OCT10                                
027730,002864: 31,2537           00006                           EXTEND                                         
027731,002865: 31,2540           12550                           BZF      P23.18                                
027732,002866: 31,2541           66171                           AD       -OCT10                                
027733,002867: 31,2542           00006                           EXTEND                                         
027734,002868: 31,2543           12545                           BZF      +2                                    
027735,002869: 31,2544           03134                           TC       R23.10                                
027736,002870: 31,2545           05546                           TC       UPFLAG                                
027737,002871: 31,2546           00004                           ADRES    NORFHOR                               
027738,002872: 31,2547           02557                           TC       P23.30                                
027739,002873: 31,2550           05560        P23.18             TC       DOWNFLAG                              
027740,002874: 31,2551           00004                           ADRES    NORFHOR                               
027741,002875: 31,2552           02557                           TC       P23.30                                
027742,002876: 31,2553           06006        P23.20             TC       INTPRET                               
027743,002877: 31,2554           77624                           CALL                                           
027744,002878: 31,2555           60143                                    P22SUBRB                              
027745,002879: 31,2556           77776                           EXIT                                           
027746,002880: 31,2557           06006        P23.30             TC       INTPRET                               
027747,002881: 31,2560           53135                           SLOAD    BZE                                   
027748,002882: 31,2561           00736                                    STARCODE                              
027749,002883: 31,2562           34000                                    LDPLANET                              
027750,002884: 31,2563           77414        P23.31             BON      EXIT                                  
027751,002885: 31,2564           04705                                    SAVECFLG                              
027752,002886: 31,2565           62700                                    P23.85                                
027753,002887: 31,2566           33461                           CAF      V50N25P                               
027754,002888: 31,2567           04662                           TC       BANKCALL                              
027755,002889: 31,2570           21045                           CADR     GOPERF1                               #  GOPERF1 BLANKS OUT R2 AND R3.
027756,002890: 31,2571           04106                           TC       GOTOPOOH                              
027757,002891: 31,2572           02576                           TC       V94ENTER                              #  PROCEED.  AUTOCONTROL CMC
027758,002892: 31,2573           06006        P23.55             TC       INTPRET                               
027759,002893: 31,2574           77650                           GOTO                                           
027760,002894: 31,2575           62627                                    P23.56                                

Page 622

027762,002896: 
027763,002897:                                                                                                  #  VERB 94 BEGINS HERE
027764,002898: 31,2576           06006        V94ENTER           TC       INTPRET                               
027765,002899: 31,2577           77634                           RTB                                            
027766,002900: 31,2600           45510                                    LOADTIME                              #  READ CLOCK
027767,002901: 31,2601           35225                           STCALL   MARKTIME                              
027768,002902: 31,2602           62705                                    POINTAXS                              #  RETURN LOS IN RCLL AND MPAC
027769,002903: 31,2603           53521                           MXV      UNIT                                  
027770,002904: 31,2604           01736                                    REFSMMAT                              
027771,002905: 31,2605           27357                           STOVL    POINTVSM                              
027772,002906: 31,2606           23464                                    JCAXIS                                
027773,002907: 31,2607           03351                           STORE    SCAXIS                                
027774,002908: 31,2610           77776                           EXIT                                           
027775,002909: 31,2611           05560                           TC       DOWNFLAG                              #  CLEAR AND GO TO VECPOINT IN R60
027776,002910: 31,2612           00124                           ADRES    3AXISFLG                              #  BIT 6 FLAG 5
027777,002911: 31,2613           33471                           CAF      R60ADRS                               
027778,002912: 31,2614           54374                           TS       TEMPFLSH                              
027779,002913: 31,2615           05412                           TC       PHASCHNG                              
027780,002914: 31,2616           00012                           OCT      00012                                 
027781,002915: 31,2617           04662        R60CALL            TC       BANKCALL                              
027782,002916: 31,2620           56000                           CADR     R60CSM                                
027783,002917: 31,2621           05412                           TC       PHASCHNG                              
027784,002918: 31,2622           04022                           OCT      04022                                 
027785,002919: 31,2623           06006                           TC       INTPRET                               
027786,002920: 31,2624           77614                           BON                                            
027787,002921: 31,2625           03307                                    R57FLAG                               
027788,002922: 31,2626           62631                                    P23.57                                #  DO NOT REPERFORM R57
027789,002923: 31,2627           77624        P23.56             CALL                                           
027790,002924: 31,2630           76401                                    R57                                   
027791,002925: 31,2631           43014        P23.57             SET      SET                                   
027792,002926: 31,2632           04464                                    V94FLAG                               
027793,002927: 31,2633           03067                                    R57FLAG                               
027794,002928: 31,2634           77624                           CALL                                           
027795,002929: 31,2635           30011                                    R52                                   
027796,002930: 31,2636           43014                           CLEAR    CLEAR                                 
027797,002931: 31,2637           04664                                    V94FLAG                               
027798,002932: 31,2640           03267                                    R57FLAG                               
027799,002933: 31,2641           77776        P23.60             EXIT                                           
027800,002934: 31,2642           00004                           INHINT                                         
027801,002935: 31,2643           31330                           CA       MARKSTAT                              
027802,002936: 31,2644           75054                           MASK     LOW10                                 
027803,002937: 31,2645           55242                           TS       MARKDATA                              
027804,002938: 31,2646           00006                           EXTEND                                         
027805,002939: 31,2647           51242                           INDEX    MARKDATA                              
027806,002940: 31,2650           30001                           DCA      0                                     
027807,002941: 31,2651           53225                           DXCH     MARKTIME                              
027808,002942: 31,2652           51242                           INDEX    MARKDATA                              
027809,002943: 31,2653           30005                           CA       5                                     
027810,002944: 31,2654           57754                           XCH      TRUNION                               
027811,002945: 31,2655           00003                           RELINT                                         
027812,002946: 31,2656           06006                           TC       INTPRET                               

Page 623

027814,002948: 31,2657           76740                           LXC,1    VLOAD*                                
027815,002949: 31,2660           01242                                    MARKDATA                              
027816,002950: 31,2661           00002                                    1,1                                   
027817,002951: 31,2662           23676                           STODL*   MARKDOWN   +1                         
027818,002952: 31,2663           00001                                    0,1                                   
027819,002953: 31,2664           03675                           STORE    MARKDOWN                              
027820,002954: 31,2665           77776                           EXIT                                           
027821,002955: 31,2666           33457                           CAF      V05N71                                
027822,002956: 31,2667           04662                           TC       BANKCALL                              
027823,002957: 31,2670           20720                           CADR     GOFLASH                               
027824,002958: 31,2671           04106                           TC       GOTOPOOH                              #  TERMINATE
027825,002959: 31,2672           02674                           TC       P23.65                                #  STORE DATA
027826,002960: 31,2673           02666                           TC       -5                                    #  REDISPLAY
027827,002961: 31,2674           06006        P23.65             TC       INTPRET                               
027828,002962: 31,2675           77414                           SET      EXIT                                  
027829,002963: 31,2676           04465                                    SAVECFLG                              
027830,002964: 31,2677           02452                           TC       P23.15                                
027831,002965: 31,2700           45014        P23.85             CLEAR    CALL                                  
027832,002966: 31,2701           02676                                    RENDWFLG                              
027833,002967: 31,2702           62705                                    POINTAXS                              
027834,002968: 31,2703           77650                           GOTO                                           
027835,002969: 31,2704           62771                                    R23.55                                
027836,002970: 
027837,002971:                                                                                                  #  WE BEGIN CALCULATIONS HERE
027838,002972:                                                                                                  #  POINTAXIS SUBROUTINE
027839,002973: 
027840,002974: 31,2705           77620        POINTAXS           STQ                                            
027841,002975: 31,2706           01150                                    POINTEX                               
027842,002976: 31,2707           71214        R23.05             BON      DLOAD                                 
027843,002977: 31,2710           01711                                    ORBWFLAG                              
027844,002978: 31,2711           62715                                    R23.1                                 
027845,002979: 31,2712           03001                                    WMIDPOS                               
027846,002980: 31,2713           34001                           STCALL   0                                     
027847,002981: 31,2714           56565                                    INITIALW                              #  INITIALIZE W-MATRIX FIRST PASS IN P23
027848,002982: 31,2715           77624        R23.1              CALL                                           
027849,002983: 31,2716           56343                                    SETINTG                               #  SETUP FOR CSM INTEGRATION
027850,002984: 31,2717           43014                           BOF      SET                                   
027851,002985: 31,2720           01751                                    ORBWFLAG                              
027852,002986: 31,2721           62723                                    R23.2                                 
027853,002987: 31,2722           01476                                    DIM0FLAG                              
027854,002988: 31,2723           45014        R23.2              SET      CALL                                  
027855,002989: 31,2724           01471                                    ORBWFLAG                              
027856,002990: 31,2725           27162                                    INTEGRV                               #  INTEGRATE CSM STATE VEC. TO MARKTIME
027857,002991: 31,2726           77776                           EXIT                                           
027858,002992: 31,2727           05412                           TC       PHASCHNG                              
027859,002993: 31,2730           04022                           OCT      04022                                 
027860,002994: 31,2731           06006                           TC       INTPRET                               
027861,002995: 31,2732           77624                           CALL                                           
027862,002996: 31,2733           63376                                    RECT.1                                #  PICKUP CSM STATE VECTOR FROM PERM
027863,002997: 31,2734           77614                           BOFF                                           
027864,002998: 31,2735           00345                                    ZMEASURE                              #  IN SPHERE OF INFLUENCE OF PRIMARY BODY
027865,002999: 31,2736           62750                                    R23.3                                 

Page 624

027867,003001: 31,2737           45145                           DLOAD    CALL                                  
027868,003002: 31,2740           01225                                    MARKTIME                              
027869,003003: 31,2741           54115                                    LUNPOS                                
027870,003004: 31,2742           57414                           BON      VCOMP                                 
027871,003005: 31,2743           04303                                    CMOONFLG                              
027872,003006: 31,2744           62745                                    +1                                    
027873,003007: 31,2745           77655                           VAD                                            
027874,003008: 31,2746           03627                                    RZC                                   
027875,003009: 31,2747           03627                           STORE    RZC                                   
027876,003010: 31,2750           46135        R23.3              SLOAD    BHIZ                                  
027877,003011: 31,2751           02752                                    LANDMARK                              #  IF LANDMARK = 0, USE HORIZ SUBR
027878,003012: 31,2752           62762                                    R23.4                                 
027879,003013: 31,2753           77614                           SET                                            
027880,003014: 31,2754           00462                                    ERADFLAG                              
027881,003015: 31,2755           45145                           DLOAD    CALL                                  
027882,003016: 31,2756           01225                                    MARKTIME                              
027883,003017: 31,2757           26441                                    LALOTORV                              
027884,003018: 31,2760           77650                           GOTO                                           
027885,003019: 31,2761           62764                                    R23.5                                 
027886,003020: 31,2762           77624        R23.4              CALL                                           
027887,003021: 31,2763           63136                                    HORIZ                                 
027888,003022: 31,2764           40251        R23.5              VSU      SETPD                                 
027889,003023: 31,2765           03627                                    RZC                                   
027890,003024: 31,2766           00001                                    0                                     
027891,003025: 31,2767           77650                           GOTO                                           
027892,003026: 31,2770           01150                                    POINTEX                               

Page 625

027894,003028: 31,2771           41456        R23.55             UNIT     PUSH                                  #  RCLL IS IN MPAC
027895,003029: 31,2772           77775                           VLOAD                                          
027896,003030: 31,2773           00043                                    34D                                   #  RCLL * RCLL
027897,003031: 31,2774           24037                           STOVL    30D                                   #  PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
027898,003032: 31,2775           03635                                    VZC                                   
027899,003033: 31,2776           54361                           VXSC     VSR                                   
027900,003034: 31,2777           23437                                    ONE/C                                 
027901,003035: 31,3000           20620                                    15D                                   
027902,003036: 31,3001           77655                           VAD                                            #  PUSH UP RCLL(UNIT)
027903,003037: 31,3002           77656                           UNIT                                           
027904,003038: 31,3003           27643                           STOVL    UCLSTAR                               
027905,003039: 31,3004           03635                                    VZC                                   
027906,003040: 31,3005           52342                           VSR2     VSU                                   
027907,003041: 31,3006           02141                                    VESO                                  
027908,003042: 31,3007           54361                           VXSC     VSR                                   
027909,003043: 31,3010           23437                                    ONE/C                                 
027910,003044: 31,3011           20616                                    13D                                   
027911,003045: 31,3012           53455                           VAD      UNIT                                  
027912,003046: 31,3013           02617                                    US                                    
027913,003047: 31,3014           03651                           STORE    USSTAR                                
027914,003048: 31,3015           72441                           DOT      SL1                                   
027915,003049: 31,3016           03643                                    UCLSTAR                               
027916,003050: 31,3017           77206                           PUSH     VLOAD                                 #  PD 0,1 = USSTAR(DOT)UCLSTAR
027917,003051: 31,3020           03643                                    UCLSTAR                               
027918,003052: 31,3021           57561                           VXSC     VCOMP                                 
027919,003053: 31,3022           53372                           VSL1     VAD                                   
027920,003054: 31,3023           03651                                    USSTAR                                
027921,003055: 31,3024           77656                           UNIT                                           
027922,003056: 31,3025           27502                           STOVL    BVECTOR                               #  USSTAR - COSQ(UCLSTAR
027923,003057: 31,3026           15335                                    ZEROVECS                              
027924,003058: 31,3027           03510                           STORE    BVECTOR    +6                         
027925,003059: 31,3030           17516                           STODL    BVECTOR    +12D                       
027926,003060: 31,3031           00001                                    0                                     
027927,003061: 31,3032           57526                           ACOS     DCOMP                                 
027928,003062: 31,3033           71206                           PUSH     DLOAD                                 
027929,003063: 31,3034           15335                                    ZEROVECS                              
027930,003064: 31,3035           77776                           EXIT                                           
027931,003065: 31,3036           33450                           CA       VARSUBL                               #  PUT FIXED INTO ERASABLE FOR MSU
027932,003066: 31,3037           54001                           TS       L                                     #  INSTRUCTION COMING UP
027933,003067: 31,3040           31754                           CA       TRUNION                               #  REQUIRED TO CHANGE 2:S COMPLEMENT
027934,003068: 31,3041           00006                           EXTEND                                         #  TRUNION TO 1:S COMPLEMENT
027935,003069: 31,3042           20001                           MSU      L                                     #  TRUNION (2'S)-00000 CONVERTS TRUNION TO
027936,003070: 31,3043           54154                           TS       MPAC                                  #  1:S.  VARSUBL=00000
027937,003071: 31,3044           06006                           TC       INTPRET                               
027938,003072: 31,3045           67206                           PUSH     SLOAD                                 #  PUSH IS DP.  WHEN BDSU IS EXECUTED, 2ND
027939,003073: 31,3046           01343                                    TRUNBIAS                              #  HALF OF PUSHLIST IS GUARANTEED ZERO FROM
027940,003074: 31,3047           77621                           BDSU                                           #  DLOAD ZEROVECS ABOVE
027941,003075: 31,3050           43242                           SR3      DAD                                   
027942,003076: 31,3051           41215                           DAD      DMP                                   

Page 626

027944,003078: 31,3052           23445                                    TRUN19                                
027945,003079: 31,3053           00041                                    32D                                   
027946,003080: 31,3054           52405                           DMP      SL3                                   
027947,003081: 31,3055           07103                                    PI/4.0                                
027948,003082: 31,3056           62414                           BOFF     SL2                                   
027949,003083: 31,3057           04343                                    CMOONFLG                              
027950,003084: 31,3060           63061                                    R23.51                                
027951,003085: 31,3061           17524        R23.51             STODL    DELTAQ                                
027952,003086: 31,3062           00037                                    30D                                   #  RCLL * RCLL
027953,003087: 31,3063           47005                           DMP      RTB                                   
027954,003088: 31,3064           23454                                    TRUNVAR                               
027955,003089: 31,3065           45565                                    TPMODE                                
027956,003090: 31,3066           77771                           TAD                                            
027957,003091: 31,3067           23451                                    VARSUBL                               
027958,003092: 31,3070           03526                           STORE    VARIANCE                              
027959,003093: 31,3071           45014                           CLEAR    CALL                                  
027960,003094: 31,3072           02666                                    DMENFLG                               
027961,003095: 31,3073           75254                                    INCORP1                               
027962,003096: 31,3074           77624                           CALL                                           
027963,003097: 31,3075           56750                                    GRP2PC                                
027964,003098: 31,3076           51575                           VLOAD    ABVAL                                 
027965,003099: 31,3077           01265                                    DELTAX     +6                         
027966,003100: 31,3100           60414                           BOF      SR2                                   #  DISPLAY IS 2-27 IF IN LUNAR SPHERE
027967,003101: 31,3101           04343                                    CMOONFLG                              
027968,003102: 31,3102           63103                                    R23.52                                
027969,003103: 31,3103           27504        R23.52             STOVL    N49DISP    +2                         
027970,003104: 31,3104           01257                                    DELTAX                                
027971,003105: 31,3105           77646                           ABVAL                                          
027972,003106: 31,3106           60414                           BOF      SR2                                   
027973,003107: 31,3107           04343                                    CMOONFLG                              
027974,003108: 31,3110           63111                                    R23.53                                
027975,003109: 31,3111           03502        R23.53             STORE    N49DISP                               
027976,003110: 31,3112           77776                           EXIT                                           
027977,003111: 31,3113           33455        R23.6              CAF      V6N49                                 
027978,003112: 31,3114           04662                           TC       BANKCALL                              
027979,003113: 31,3115           21057                           CADR     GOFLASHR                              
027980,003114: 31,3116           04106                           TC       GOTOPOOH                              
027981,003115: 31,3117           03126                           TC       R23.7                                 #  INCORPORATE DATA
027982,003116: 31,3120           04106                           TC       GOTOPOOH                              
027983,003117: 31,3121           35015                           CAF      BIT3                                  #  BLANK OUT R3
027984,003118: 31,3122           05526                           TC       BLANKET                               
027985,003119: 31,3123           05412                           TC       PHASCHNG                              
027986,003120: 31,3124           00012                           OCT      00012                                 
027987,003121: 31,3125           05217                           TC       ENDOFJOB                              
027988,003122: 31,3126           06006        R23.7              TC       INTPRET                               
027989,003123: 31,3127           45014        R23.8              SET      CALL                                  
027990,003124: 31,3130           00467                                    VEHUPFLG                              
027991,003125: 31,3131           75466                                    INCORP2                               
027992,003126: 31,3132           77776                           EXIT                                           
027993,003127: 31,3133           04106        R23.END            TC       GOTOPOOH                              
027994,003128: 

Page 627

027996,003130: 31,3134           04400        R23.10             TC       FALTON                                
027997,003131: 31,3135           02444                           TC       P23.06                                
027998,003132: 31,3136           40220        HORIZ              STQ      SETPD                                 
027999,003133: 31,3137           03656                                    SRRETURN                              
028000,003134: 31,3140           00001                                    0                                     
028001,003135: 31,3141           65345                           DLOAD    PDDL                                  #  PUSH 0-1 = -AYO SCALED B0
028002,003136: 31,3142           01714                                    -AYO                                  
028003,003137: 31,3143           01716                                    AXO                                   
028004,003138: 31,3144           63325                           PDDL     PDVL                                  #  PUSH 2-3 = +AX SCALED B0
028005,003139: 31,3145           15343                                    DPPOSMAX                              
028006,003140: 31,3146           02617                                    US                                    
028007,003141: 31,3147           53435                           VXV      UNIT                                  
028008,003142: 31,3150           03627                                    RZC                                   
028009,003143: 31,3151           27621                           STOVL    UBAR2                                 
028010,003144: 31,3152           53435                           VXV      UNIT                                  #  PUSH UP
028011,003145: 31,3153           03621                                    UBAR2                                 
028012,003146: 31,3154           27605                           STOVL    UBAR0                                 
028013,003147: 31,3155           03621                                    UBAR2                                 
028014,003148: 31,3156           53435                           VXV      UNIT                                  
028015,003149: 31,3157           03605                                    UBAR0                                 
028016,003150: 31,3160           03613                           STORE    UBAR1                                 
028017,003151: 31,3161           50214                           BON      DOT                                   
028018,003152: 31,3162           01703                                    LUNAFLAG                              
028019,003153: 31,3163           63361                                    HORIZ.6                               
028020,003154: 31,3164           00001                                    0                                     #  UBAR1 DOT UZ
028021,003155: 31,3165           36156                           STCALL   ALPHAV     +4                         
028022,003156: 31,3166           26505                                    GETERAD                               
028023,003157: 31,3167           65215                           DAD      PDDL                                  #  MPAC HAS RADIUS OF FISHER SLLIPSOID
028024,003158: 31,3170           01355                                    HORIZALT                              #  PUSH 0-1 = BH SCALED B29
028025,003159: 31,3171           23441                                    AEARTH                                
028026,003160: 31,3172           41415                           DAD      PUSH                                  #  PUSH 2-3 = AH B29
028027,003161: 31,3173           01355                                    HORIZALT                              
028028,003162: 31,3174           64375        HORIZ.1            VLOAD    MXV                                   
028029,003163: 31,3175           03627                                    RZC                                   #  B29
028030,003164: 31,3176           03605                                    UBAR0                                 #  B1
028031,003165: 31,3177           63372                           VSL1     PDVL                                  #  PUSH 4-9 = RH(XH,YH,ZH) B29
028032,003166: 31,3200           02617                                    US                                    
028033,003167: 31,3201           76521                           MXV      VSL1                                  
028034,003168: 31,3202           03605                                    UBAR0                                 
028035,003169: 31,3203           77725                           PDDL                                           #  PUSH 10-15 = USH B1
028036,003170: 31,3204           00003                                    2                                     #  AH
028037,003171: 31,3205           14043                           STODL    34D                                   
028038,003172: 31,3206           00005                                    4                                     #  XH
028039,003173: 31,3207           77624                           CALL                                           
028040,003174: 31,3210           63365                                    DIVIDE                                
028041,003175: 31,3211           41257                           SR*      DMP                                   
028042,003176: 31,3212           20611                                    8D,1                                  #  NOW SCALED B9
028043,003177: 31,3213           00155                                    MPAC                                  
028044,003178: 31,3214           14037                           STODL    30D                                   
028045,003179: 31,3215           00001                                    0                                     

Page 628

028047,003181: 31,3216           14043                           STODL    34D                                   
028048,003182: 31,3217           00007                                    6                                     #  YH
028049,003183: 31,3220           77624                           CALL                                           
028050,003184: 31,3221           63365                                    DIVIDE                                
028051,003185: 31,3222           41257                           SR*      DMP                                   
028052,003186: 31,3223           20611                                    8D,1                                  #  B9
028053,003187: 31,3224           00155                                    MPAC                                  #  B18
028054,003188: 31,3225           41415                           DAD      PUSH                                  #  PUSH 16-17 =A SCALED B18
028055,003189: 31,3226           00037                                    30D                                   
028056,003190: 31,3227           75425                           DSU      SQRT                                  
028057,003191: 31,3230           23447                                    1.0B18                                
028058,003192: 31,3231           77725                           PDDL                                           #  PUSH 18-19 SQRT(A-1) B9
028059,003193: 31,3232           00021                                    16D                                   
028060,003194: 31,3233           14043                           STODL    34D                                   
028061,003195: 31,3234           00005                                    4                                     #  XH
028062,003196: 31,3235           77624                           CALL                                           
028063,003197: 31,3236           63365                                    DIVIDE                                
028064,003198: 31,3237           65257                           SR*      PDDL                                  
028065,003199: 31,3240           20622                                    17D,1                                 #  PUSH 20-21 = XH/A B29
028066,003200: 31,3241           00007                                    6                                     #  YH
028067,003201: 31,3242           77624                           CALL                                           
028068,003202: 31,3243           63365                                    DIVIDE                                
028069,003203: 31,3244           65257                           SR*      PDDL                                  
028070,003204: 31,3245           20622                                    17D,1                                 #  PUSH 22-23 = YH/A B29
028071,003205: 31,3246           00021                                    16D                                   #  A
028072,003206: 31,3247           14043                           STODL    34D                                   
028073,003207: 31,3250           00023                                    18D                                   #  SQRT(A-1)
028074,003208: 31,3251           77624                           CALL                                           
028075,003209: 31,3252           63365                                    DIVIDE                                
028076,003210: 31,3253           77657                           SR*                                            
028077,003211: 31,3254           20611                                    8D,1                                  
028078,003212: 31,3255           14035                           STODL    28D                                   
028079,003213: 31,3256           00001                                    0                                     #  BH
028080,003214: 31,3257           14043                           STODL    34D                                   
028081,003215: 31,3260           00003                                    2                                     #  AH
028082,003216: 31,3261           77624                           CALL                                           
028083,003217: 31,3262           63365                                    DIVIDE                                
028084,003218: 31,3263           41257                           SR*      DMP                                   #  AH/BH SCALED B1
028085,003219: 31,3264           20601                                    0,1                                   
028086,003220: 31,3265           00035                                    28D                                   #  SQRT(A-1)/A
028087,003221: 31,3266           72405                           DMP      SL1                                   
028088,003222: 31,3267           00007                                    6                                     #  YH
028089,003223: 31,3270           77725                           PDDL                                           
028090,003224: 31,3271           00003                                    2                                     #  AH
028091,003225: 31,3272           14043                           STODL    34D                                   
028092,003226: 31,3273           00001                                    0                                     
028093,003227: 31,3274           77624                           CALL                                           
028094,003228: 31,3275           63365                                    DIVIDE                                
028095,003229: 31,3276           41257                           SR*      DMP                                   #  BH/AH SCALED B1
028096,003230: 31,3277           20601                                    0,1                                   

Page 629

028098,003232: 31,3300           00035                                    28D                                   #  SQRT (A-1)/A
028099,003233: 31,3301           72405                           DMP      SL1                                   
028100,003234: 31,3302           00005                                    4                                     #  XH
028101,003235: 31,3303           43325                           PDDL     DAD                                   
028102,003236: 31,3304           00025                                    20D                                   #  XH/A
028103,003237: 31,3305           00031                                    24D                                   #  ALPHA
028104,003238: 31,3306           45325                           PDDL     DSU                                   
028105,003239: 31,3307           00027                                    22D                                   #  YH/A
028106,003240: 31,3310           00033                                    26D                                   #  BETA
028107,003241: 31,3311           40206                           PUSH     SETPD                                 
028108,003242: 31,3312           00021                                    16D                                   
028109,003243: 31,3313           45345                           DLOAD    DSU                                   
028110,003244: 31,3314           00025                                    20D                                   #  XH/A
028111,003245: 31,3315           00031                                    24D                                   #  ALPHA
028112,003246: 31,3316           43325                           PDDL     DAD                                   
028113,003247: 31,3317           00027                                    22D                                   #  YH/A
028114,003248: 31,3320           00033                                    26D                                   #  BETA
028115,003249: 31,3321           41525                           PDDL     PUSH                                  
028116,003250: 31,3322           15335                                    ZEROVECS                              
028117,003251: 31,3323           24041                           STOVL    32D                                   #  ZERO THIRD COMP. OF T-0 VECTOR
028118,003252: 31,3324           00035                                    28D                                   
028119,003253: 31,3325           53451                           VSU      UNIT                                  
028120,003254: 31,3326           00005                                    4                                     #  RH VECTOR
028121,003255: 31,3327           63241                           DOT      PDVL                                  #  PUSH 22-23 A-SUB-ZERO
028122,003256: 31,3330           00013                                    10D                                   #  USH VECTOR
028123,003257: 31,3331           00021                                    16D                                   #  T1 VECTOR
028124,003258: 31,3332           53451                           VSU      UNIT                                  
028125,003259: 31,3333           00005                                    4                                     #  RH VECTOR
028126,003260: 31,3334           41441                           DOT      PUSH                                  #  PUSH 24-25 A-SUB-ONE
028127,003261: 31,3335           00013                                    10D                                   
028128,003262: 31,3336           50021                           BDSU     BMN                                   
028129,003263: 31,3337           00027                                    22D                                   #  A-SUB-ZERO
028130,003264: 31,3340           63347                                    HORIZ.3                               
028131,003265: 31,3341           77614                           BON                                            
028132,003266: 31,3342           00304                                    NORFHOR                               
028133,003267: 31,3343           63353                                    HORIZ.4                               
028134,003268: 31,3344           52175        HORIZ.2            VLOAD    GOTO                                  
028135,003269: 31,3345           00035                                    28D                                   #  T-0 VECTOR
028136,003270: 31,3346           63355                                    HORIZ.5                               
028137,003271: 31,3347           52014        HORIZ.3            BON      GOTO                                  
028138,003272: 31,3350           00304                                    NORFHOR                               
028139,003273: 31,3351           63344                                    HORIZ.2                               
028140,003274: 31,3352           63353                                    HORIZ.4                               
028141,003275: 31,3353           77775        HORIZ.4            VLOAD                                          
028142,003276: 31,3354           00021                                    16D                                   #  T1 VECTOR
028143,003277: 31,3355           76505        HORIZ.5            VXM      VSL1                                  
028144,003278: 31,3356           03605                                    UBAR0                                 
028145,003279: 31,3357           77650                           GOTO                                           
028146,003280: 31,3360           03656                                    SRRETURN                              
028147,003281: 31,3361           41545        HORIZ.6            DLOAD    PUSH                                  

Page 630

028149,003283: 31,3362           23443                                    RADMOON                               
028150,003284: 31,3363           52006                           PUSH     GOTO                                  
028151,003285: 31,3364           63174                                    HORIZ.1                               
028152,003286: 31,3365           70501        DIVIDE             NORM     SR1                                   
028153,003287: 31,3366           00047                                    X1                                    
028154,003288: 31,3367           14045                           STODL    36D                                   
028155,003289: 31,3370           00043                                    34D                                   
028156,003290: 31,3371           55301                           NORM     BDDV                                  
028157,003291: 31,3372           00051                                    S1                                    
028158,003292: 31,3373           00045                                    36D                                   
028159,003293: 31,3374           43460                           XSU,1    RVQ                                   
028160,003294: 31,3375           00050                                    S1                                    
028161,003295: 31,3376           77014        RECT.1             BOFF     AXT,2                                 #  SR TO SET ZMEASURE = 0 IF MEASUREMENT
028162,003296: 31,3377           04343                                    CMOONFLG                              #    PLANET AND PRIMARY PLANET ARE THE SAME
028163,003297: 31,3400           63410                                    RECT.3                                #      OTHERWISE = 1
028164,003298: 31,3401           77775                           DEC      -2         B-14                       
028165,003299: 31,3402           77614                           BOFF                                           #        VEC. AND SCALE B29 AND B7
028166,003300: 31,3403           01743                                    LUNAFLAG                              
028167,003301: 31,3404           63414                                    RECT.4                                
028168,003302: 31,3405           52014        RECT.2             CLEAR    GOTO                                  
028169,003303: 31,3406           00265                                    ZMEASURE                              
028170,003304: 31,3407           63416                                    RECT.5                                
028171,003305: 31,3410           43174        RECT.3             AXT,2    BOFF                                  
028172,003306: 31,3411           00000                                    0                                     
028173,003307: 31,3412           01743                                    LUNAFLAG                              
028174,003308: 31,3413           63405                                    RECT.2                                
028175,003309: 31,3414           77614        RECT.4             SET                                            
028176,003310: 31,3415           00065                                    ZMEASURE                              
028177,003311: 31,3416           44575        RECT.5             VLOAD    VSR7                                  
028178,003312: 31,3417           01573                                    DELTACSM                              #  SCALED B22 OR B18
028179,003313: 31,3420           53257                           VSR*     VAD                                   
028180,003314: 31,3421           57176                                    0,2                                   
028181,003315: 31,3422           01607                                    RCVCSM                                #  SCALED B29 OR B27
028182,003316: 31,3423           77657                           VSR*                                           
028183,003317: 31,3424           57176                                    0,2                                   
028184,003318: 31,3425           27627                           STOVL    RZC                                   #  NOW SCALED B29
028185,003319: 31,3426           01601                                    NUVCSM                                #  SCALED B3 OR B-1
028186,003320: 31,3427           53702                           VSR4     VSR*                                  
028187,003321: 31,3430           57176                                    0,2                                   
028188,003322: 31,3431           53655                           VAD      VSR*                                  
028189,003323: 31,3432           01615                                    VCVCSM                                #  SCALED B7 OR B5
028190,003324: 31,3433           57176                                    0,2                                   
028191,003325: 31,3434           03635                           STORE    VZC                                   #  NOW SCALED B7
028192,003326: 31,3435           77616                           RVQ                                            
028193,003327: 31,3436           26305 05432  ONE/C              2DEC*    .333564049 E-6        B+21*           
028194,003328: 31,3440           00302 24533  AEARTH             2DEC     6378166    B-29                       #  A AXIS OF EARTH (METERS B-29)
028195,003329: 31,3442           00065 01265  RADMOON            2DEC     1738090    B-29                       #  RADIUS OF MOON IN METERS
028196,003330: 

Page 631

028198,003332: 
028199,003333: 31,3444           01604        TRUN19             OCT      01604                                 
028200,003334: 31,3445           00000        TRUN19A            OCT      00000                                 
028201,003335: 31,3446           00000 02000  1.0B18             2DEC     1.0        B-18                       
028202,003336: 31,3450           00000        VARSUBL            DEC      0          B-14                       
028203,003337: 31,3451           01505 14100  VARSUBL3           2DEC*    3.4299040  E+6        B-26*           
028204,003338: 31,3453           00012 27462  TRUNVAR            2DEC     2.5        E-9        B+18            
028205,003339: 31,3455           01461        V6N49              VN       0649                                  
028206,003340: 31,3456           01306        V05N70             VN       0570                                  
028207,003341: 31,3457           01307        V05N71             VN       0571                                  
028208,003342: 31,3460           00077        OCT00077           OCT      00077                                 
028209,003343: 31,3461           00202        V50N25P            OCT      00202                                 
028210,003344: 31,3462           00006        SPSIX              OCT      00006                                 
028211,003345: 31,3463           10464 12467  JCAXIS             2DEC     .2688190620                            #  1/2(SIN 32.523 DEG)  TRACK AXIS
028212,003346: 31,3465           00000 00000                     2DEC     0          B-28                       
028213,003347: 31,3467           15373 11346                     2DEC     .4215878460                            #  1/2(COS 32.523 DEG)
028214,003348: 31,3471           62622        R60ADRS            CADR     R60CALL    +3                         
028215,003349: 31,3472           77732        NEG37              DEC      -37        B-14                       
028216,003350: 31,3473           00700        BITS7-9            OCT      700                                   
028217,003351: 31,3474           00070        BITS4-6            OCT      70                                    
028218,003352: 14,2000                                           SETLOC   RT53                                  
028219,003353: 14,2000                                           BANK                                           
028220,003354: 14,2000           43573        LOWMEMRY           VLOAD*   RVQ                                   
028221,003355: 14,2001           31761                                    CATLOG,1                              
028222,003356: 37,2625                                           BANK     37                                    
028223,003357: 16,2000                                           SETLOC   P23S1                                 
028224,003358: 16,2000                                           BANK                                           
028225,003359: 16,2000           77776        LDPLANET           EXIT                                           #  KEEP THIS OPEN SUBROUTINE IN EBANK=5
028226,003360: 16,2001           32017                           CAF      VNPLAN23                              #  BECAUSE STAR IS EBANK=5
028227,003361: 16,2002           04662                           TC       BANKCALL                              #  LDPLANET ALLOWS VECTOR TO PLANET TO BE
028228,003362: 16,2003           20720                           CADR     GOFLASH                               #  STORED IN STARSAV2 IF STORED STARS ARE
028229,003363: 16,2004           04106                           TC       GOTOPOOH                              #  NOT VISIBLE.
028230,003364: 16,2005           02007                           TC       +2                                    
028231,003365: 16,2006           02001                           TC       -5                                    
028232,003366: 16,2007           06006                           TC       INTPRET                               
028233,003367: 16,2010           77775                           VLOAD                                          
028234,003368: 16,2011           03705                                    STARSAV3                              
028235,003369: 16,2012           53561                           VXSC     UNIT                                  
028236,003370: 16,2013           32433                                    1/SQR3                                
028237,003371: 16,2014           02617                           STORE    STARSAV2                              
028238,003372: 16,2015           77650                           GOTO                                           
028239,003373: 16,2016           62563                                    P23.31                                
028240,003374: 16,2017           01530        VNPLAN23           VN       0688                                  
028241,003375:    4622                                           BLOCK    02                                    
028242,003376:    4622           00006        GOTOV56            EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF

Page 632

028244,003378:    4623           34626                           DCA      VB56CADR                              #        GOTOPOOH
028245,003379:    4624           15227                           TCF      SUPDXCHZ                              
028246,003380:    4625  E7,1777                                  EBANK=   WHOCARES                              
028247,003381:    4625           02653 66107  VB56CADR           2CADR    TRACKTRM                              
028248,003382: 
028249,003383:    4000                                           SETLOC   FFTAG2                                
028250,003384:    4000                                           BANK                                           
028251,003385:    4627                                           COUNT*   $$/P20                                
028252,003386: 40,3624                                           BANK     40                                    
028253,003387: 40,3600                                           SETLOC   ENDPINS1                              
028254,003388: 40,3600                                           BANK                                           
028255,003389: 40,3624                                           COUNT*   $$/EXTVB                              
028256,003390: 40,3624           06006        V67CALL            TC       INTPRET                               
028257,003391: 40,3625           77624                           CALL                                           
028258,003392: 40,3626           61701                                    V67WW                                 
028259,003393: 40,3627           77776                           EXIT                                           
028260,003394: 40,3630           33763        V06N99DS           CAF      V06N99A                               
028261,003395: 40,3631           04662                           TC       BANKCALL                              
028262,003396: 40,3632           20561                           CADR     GOXDSPF                               
028263,003397: 40,3633           15534                           TCF      ENDEXT                                
028264,003398: 40,3634           03636                           TC       V06N9933                              
028265,003399: 40,3635           03630                           TC       V06N99DS                              
028266,003400: 40,3636           06006        V06N9933           TC       INTPRET                               
028267,003401: 40,3637           46135                           SLOAD    BHIZ                                  #  IF R3 OF V67 = 0 EXIT
028268,003402: 40,3640           02325                                    WWOPT                                 
028269,003403: 40,3641           61644                                    +3                                    
028270,003404: 40,3642           77650                           GOTO                                           
028271,003405: 40,3643           61646                                    V6N99INP                              
028272,003406: 40,3644           77776                           EXIT                                           
028273,003407: 40,3645           15534                           TCF      ENDEXT                                
028274,003408: 40,3646           73150        V6N99INP           LXA,1    LXA,2                                 
028275,003409: 40,3647           02320                                    WWPOS                                 
028276,003410: 40,3650           02322                                    WWVEL                                 
028277,003411: 40,3651           45335                           SLOAD    DSU                                   
028278,003412: 40,3652           02325                                    WWOPT                                 
028279,003413: 40,3653           21767                                    V67DEC2                               
028280,003414: 40,3654           51030                           BHIZ     BPL                                   
028281,003415: 40,3655           61664                                    V67WORB                               
028282,003416: 40,3656           61671                                    V67WMID                               
028283,003417: 40,3657           67130                           SXA,1    SXA,2                                 
028284,003418: 40,3660           02000                                    WRENDPOS                              
028285,003419: 40,3661           02001                                    WRENDVEL                              
028286,003420: 40,3662           77650                           GOTO                                           
028287,003421: 40,3663           61674                                    V67EXITX                              
028288,003422: 40,3664           67130        V67WORB            SXA,1    SXA,2                                 
028289,003423: 40,3665           02004                                    WORBPOS                               
028290,003424: 40,3666           02005                                    WORBVEL                               
028291,003425: 40,3667           77650                           GOTO                                           
028292,003426: 40,3670           61674                                    V67EXITX                              
028293,003427: 40,3671           67130        V67WMID            SXA,1    SXA,2                                 

Page 633

028295,003429: 40,3672           03000                                    WMIDPOS                               
028296,003430: 40,3673           03001                                    WMIDVEL                               
028297,003431: 40,3674           43014        V67EXITX           CLEAR    CLEAR                                 
028298,003432: 40,3675           01671                                    ORBWFLAG                              
028299,003433: 40,3676           02676                                    RENDWFLG                              
028300,003434: 40,3677           77776                           EXIT                                           
028301,003435: 40,3700           15534                           TCF      ENDEXT                                
028302,003436: 40,3701           40020        V67WW              STQ      BOV                                   
028303,003437: 40,3702           00051                                    S2                                    
028304,003438: 40,3703           61704                                    +1                                    
028305,003439: 40,3704           77624                           CALL                                           
028306,003440: 40,3705           27442                                    INTSTALL                              
028307,003441: 40,3706           71331                           SSP      DLOAD                                 
028308,003442: 40,3707           00051                                    S1                                    
028309,003443: 40,3710           00006                           DEC      6          B-14                       
028310,003444: 40,3711           15335                                    ZEROVECS                              
028311,003445: 40,3712           02321                           STORE    WWPOS                                 
028312,003446: 40,3713           02323                           STORE    WWVEL                                 
028313,003447: 40,3714           02325                           STORE    WWOPT                                 
028314,003448: 40,3715           77770                           AXT,1                                          
028315,003449: 40,3716           00044                           DEC      36         B-14                       
028316,003450: 40,3717           47573        NXPOSVEL           VLOAD*   VSQ                                   
028317,003451: 40,3720           02445                                    W          +36D,1                     
028318,003452: 40,3721           77615                           DAD                                            
028319,003453: 40,3722           02321                                    WWPOS                                 
028320,003454: 40,3723           02321                           STORE    WWPOS                                 
028321,003455: 40,3724           47573                           VLOAD*   VSQ                                   
028322,003456: 40,3725           02533                                    W          +90D,1                     
028323,003457: 40,3726           77615                           DAD                                            
028324,003458: 40,3727           02323                                    WWVEL                                 
028325,003459: 40,3730           02323                           STORE    WWVEL                                 
028326,003460: 40,3731           75500                           TIX,1    SQRT                                  
028327,003461: 40,3732           61717                                    NXPOSVEL                              
028328,003462: 40,3733           16323                           STODL    WWVEL                                 
028329,003463: 40,3734           02321                                    WWPOS                                 
028330,003464: 40,3735           77766                           SQRT                                           
028331,003465: 40,3736           02321                           STORE    WWPOS                                 
028332,003466: 40,3737           52000                           BOV      GOTO                                  
028333,003467: 40,3740           61742                                    +2                                    
028334,003468: 40,3741           61746                                    V67XXX                                
028335,003469: 40,3742           77745                           DLOAD                                          
028336,003470: 40,3743           15343                                    DPPOSMAX                              
028337,003471: 40,3744           02321                           STORE    WWPOS                                 
028338,003472: 40,3745           02323                           STORE    WWVEL                                 
028339,003473: 40,3746           45345        V67XXX             DLOAD    DSU                                   
028340,003474: 40,3747           02321                                    WWPOS                                 
028341,003475: 40,3750           21765                                    FT99999                               
028342,003476: 40,3751           71240                           BMN      DLOAD                                 
028343,003477: 40,3752           61755                                    +3                                    
028344,003478: 40,3753           21765                                    FT99999                               

Page 634

028346,003480: 40,3754           02321                           STORE    WWPOS                                 
028347,003481: 40,3755           66150                           LXA,1    SXA,1                                 
028348,003482: 40,3756           00051                                    S2                                    
028349,003483: 40,3757           00052                                    QPRET                                 
028350,003484: 40,3760           77776                           EXIT                                           
028351,003485: 40,3761           04701                           TC       POSTJUMP                              
028352,003486: 40,3762           27457                           CADR     INTWAKE                               
028353,003487: 40,3763  E4,1720               WWPOS              =        RANGE                                 
028354,003488: 40,3763  E4,1722               WWVEL              =        RRATE                                 
028355,003489: 40,3763  E4,1724               WWOPT              =        RTHETA                                
028356,003490: 40,3763           01543        V06N99A            VN       0699                                  
028357,003491: 40,3764           01670 17000  FT99999            2DEC     30479      B-19                       
028358,003492: 40,3766           00002 00000  V67DEC2            2DEC     2          B-14                       
028359,003493: 40,3770  30,2000                                  SBANK=   LOWSUPER                              

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