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.

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

Page 562

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

Page 563

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

Page 564

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

Page 565

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

Page 566

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

Page 567

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

Page 568

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

Page 569

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

Page 570

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

Page 571

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

Page 572

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

Page 573

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

Page 574

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

Page 575

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

Page 576

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

Page 577

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

Page 578

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

Page 579

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

Page 580

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

Page 581

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

Page 582

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

Page 583

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

Page 584

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

Page 585

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

Page 586

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

Page 587

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

Page 588

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

Page 589

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

Page 590

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

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

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

Page 591

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

Page 592

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

Page 593

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

Page 594

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

Page 595

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

Page 596

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

Page 597

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

Page 598

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

Page 599

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

Page 600

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

Page 601

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

Page 602

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

Page 603

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

Page 604

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

Page 605

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

Page 606

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

Page 607

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

Page 608

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

Page 609

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

Page 610

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

Page 611

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

Page 612

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

Page 613

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

Page 614

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

Page 615 Nothing on this page. — RSB 2009.

027496,002629: 

Page 616

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

Page 617

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

Page 618

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

Page 619

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

Page 620

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

Page 621

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

Page 622

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

Page 623

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

Page 624

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

Page 625

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

Page 626

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

Page 627

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

Page 628

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

Page 629

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

Page 630

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

Page 631

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

Page 632

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

Page 633

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

Page 634

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

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