Source Code

This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure!

026117,000002:                                                                                                  ## Copyright:   Public domain.
026118,000003:                                                                                                  ## Filename:    P32-P35_P72-P75.agc
026119,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
026120,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
026121,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
026122,000007:                                                                                                  ## Assembler:   yaYUL
026123,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
026124,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
026125,000010:                                                                                                  ## Pages:       618-650
026126,000011:                                                                                                  ## Mod history: 2009-05-18 RSB  Adapted from the Luminary 131 file of the
026127,000012:                                                                                                  ##                              same name, as corrected from Luminary 099
026128,000013:                                                                                                  ##                              page images.
026129,000014:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
026130,000015:                                                                                                  ##              2016-12-14 RSB  VNP00H -> VNPOOH.
026131,000016:                                                                                                  ##              2016-12-14 RSB  Proofed text comments with octopus/ProoferComments
026132,000017:                                                                                                  ##                              and corrected the errors found.
026133,000018:                                                                                                  ##              2017-02-07 RSB  Comment-text corrections identified while 
026134,000019:                                                                                                  ##                              proofing Artemis 72.
026135,000020:                                                                                                  ##              2017-03-03 RSB  Snapshot of Luminary 99 Rev 1. 
026136,000021:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116.
026137,000022: 

Page 618

026139,000024:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
026140,000025: 
026141,000026:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
026142,000027:                                                                                                  #  MOD BY WHITE.P        DATE 1 JUNE 67
026143,000028: 
026144,000029:                                                                                                  #  PURPOSE
026145,000030: 
026146,000031:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
026147,000032:                                                                                                  #                CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
026148,000033:                                                                                                  #                INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
026149,000034:                                                                                                  #                (CDH) MANEUVER.
026150,000035: 
026151,000036:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
026152,000037:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
026153,000038: 
026154,000039:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
026155,000040:                                                                                                  #                ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
026156,000041:                                                                                                  #                APPROVAL BY THE ASTRONAUT/GROUND.
026157,000042: 
026158,000043:                                                                                                  #        (4)     TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
026159,000044:                                                                                                  #                THRUSTING PROGRAM.
026160,000045: 
026161,000046:                                                                                                  #  ASSUMPTIONS
026162,000047: 
026163,000048:                                                                                                  #        (1)     AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
026164,000049:                                                                                                  #                AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
026165,000050:                                                                                                  #                FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
026166,000051:                                                                                                  #                POSITION.
026167,000052: 
026168,000053:                                                                                                  #        (2)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
026169,000054:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
026170,000055:                                                                                                  #                COMPLETION OF THE PROGRAM.
026171,000056: 
026172,000057:                                                                                                  #        (3)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
026173,000058:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
026174,000059:                                                                                                  #                COMPLETION OF THE PROGRAM.
026175,000060: 
026176,000061:                                                                                                  #        (4)     CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
026177,000062:                                                                                                  #                ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
026178,000063: 
026179,000064:                                                                                                  #        (5)     CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
026180,000065:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
026181,000066:                                                                                                  #                IGNITION.
026182,000067: 
026183,000068:                                                                                                  #        (6)     THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
026184,000069:                                                                                                  #                MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
026185,000070:                                                                                                  #                ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
026186,000071: 
026187,000072:                                                                                                  #        (7)     THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
026188,000073:                                                                                                  #                PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW

Page 619

026190,000075:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
026191,000076:                                                                                                  #                OUT-OF-PLANE CSI MANEUVER.
026192,000077: 
026193,000078:                                                                                                  #        (8)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
026194,000079:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
026195,000080: 
026196,000081:                                                                                                  #        (9)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
026197,000082:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
026198,000083:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
026199,000084:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
026200,000085: 
026201,000086:                                                                                                  #        (10)    THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
026202,000087:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
026203,000088:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
026204,000089:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
026205,000090:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
026206,000091:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
026207,000092:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
026208,000093:                                                                                                  #                THRUSTING MANEUVER.
026209,000094: 
026210,000095:                                                                                                  #        (11)    THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
026211,000096: 
026212,000097:                                                                                                  #        (12)    THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
026213,000098: 
026214,000099:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
026215,000100:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
026216,000101:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
026217,000102:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
026218,000103: 
026219,000104:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
026220,000105:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
026221,000106:                                                                                                  #                        CYCLE.
026222,000107: 
026223,000108:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
026224,000109:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
026225,000110:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
026226,000111:                                                                                                  #                        PROGRAM.
026227,000112: 
026228,000113:                                                                                                  #        (13)    IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
026229,000114:                                                                                                  #                A THRUSTING MANEUVER.
026230,000115: 
026231,000116:                                                                                                  #        (14)    THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
026232,000117: 
026233,000118:                                                                                                  #                        P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
026234,000119: 
026235,000120:                                                                                                  #                        P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
026236,000121: 
026237,000122:                                                                                                  #  INPUT
026238,000123: 
026239,000124:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
026240,000125: 

Page 620

026242,000127:                                                                                                  #        (2)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
026243,000128:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
026244,000129:                                                                                                  #                                MANEUVER POINT
026245,000130:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
026246,000131:                                                                                                  #        (4)     TTPI            TIME OF THE TPI MANEUVER
026247,000132: 
026248,000133:                                                                                                  #  OUTPUT
026249,000134: 
026250,000135:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
026251,000136:                                                                                                  #        (2)     TTOGO           TIME TO GO
026252,000137:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
026253,000138:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
026254,000139:                                                                                                  #        (5)     T1TOT2          DELTA TIME FROM CSI TO CDH
026255,000140:                                                                                                  #        (6)     T2TOT3          DELTA TIME FROM CDH TO TPI
026256,000141:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
026257,000142:                                                                                                  #        (8)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
026258,000143: 
026259,000144:                                                                                                  #  DOWNLINK
026260,000145: 
026261,000146:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
026262,000147:                                                                                                  #        (2)     TCDH            TIME OF THE CDH MANEUVER
026263,000148:                                                                                                  #        (3)     TTPI            TIME OF THE TPI MANEUVER
026264,000149:                                                                                                  #        (4)     TIG             TIME OF THE CSI MANEUVER
026265,000150:                                                                                                  #        (5)     DELVEET1        DELTA VELOCITY AT CSI - REFERENCE COORDINATES
026266,000151:                                                                                                  #        (6)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
026267,000152:                                                                                                  #        (7)     DIFFALT         DELTA ALTITUDE AT CDH
026268,000153:                                                                                                  #        (8)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
026269,000154:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
026270,000155:                                                                                                  #                                MANEUVER POINT
026271,000156:                                                                                                  #        (9)     ELEV            DESIRED LOS ANGLE AT TPI
026272,000157: 
026273,000158:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
026274,000159: 
026275,000160:                                                                                                  #        (1)     TIG             TIME OF THE CSI MANEUVER
026276,000161:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
026277,000162:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
026278,000163:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
026279,000164:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
026280,000165:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CSI - REFERENCE COORDINATES
026281,000166:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CSI
026282,000167:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
026283,000168: 
026284,000169:                                                                                                  #  SUBROUTINES USED
026285,000170: 
026286,000171:                                                                                                  #        AVFLAGA
026287,000172:                                                                                                  #        AVFLAGP
026288,000173:                                                                                                  #        P20FLGON
026289,000174:                                                                                                  #        VARALARM
026290,000175:                                                                                                  #        BANKCALL
026291,000176:                                                                                                  #        GOFLASH
026292,000177:                                                                                                  #        GOTOPOOH

Page 621

026294,000179:                                                                                                  #        VNPOOH
026295,000180:                                                                                                  #        GOFLASHR
026296,000181:                                                                                                  #        BLANKET
026297,000182:                                                                                                  #        ENDOFJOB
026298,000183:                                                                                                  #        SELECTMU
026299,000184:                                                                                                  #        ADVANCE
026300,000185:                                                                                                  #        INTINT
026301,000186:                                                                                                  #        PASSIVE
026302,000187:                                                                                                  #        CSI/A
026303,000188:                                                                                                  #        S32/33.1
026304,000189:                                                                                                  #        DISDVLVC
026305,000190:                                                                                                  #        VN1645
026306,000191: 
026307,000192: 35,2027                                           BANK     35                                    
026308,000193: 35,2000                                           SETLOC   CSI/CDH                               
026309,000194: 35,2000                                           BANK                                           
026310,000195: 35,2027  E7,1470                                  EBANK=   SUBEXIT                               
026311,000196: 35,2027                                           COUNT*   $$/P3272                              
026312,000197: 35,2027           02347        P32                TC       AVFLAGA                               
026313,000198: 35,2030           02032                           TC       P32STRT                               
026314,000199: 35,2031           02354        P72                TC       AVFLAGP                               
026315,000200: 35,2032           00006        P32STRT            EXTEND                                         
026316,000201: 35,2033           32420                           DCA      P30ZERO                               
026317,000202: 35,2034           53621                           DXCH     CENTANG                               
026318,000203: 35,2035           02053                           TC       P32/P72A                              
026319,000204: 35,2036           77734        ALMXITA            SXA,2                                          
026320,000205: 35,2037           03613                                    CSIALRM                               
026321,000206: 35,2040           77740        ALMXIT             LXC,1                                          
026322,000207: 35,2041           03613                                    CSIALRM                               
026323,000208: 35,2042           77533                           SLOAD*   EXIT                                  
026324,000209: 35,2043           32423                                    ALARM/TB   -1,1                       
026325,000210: 35,2044           30154                           CA       MPAC                                  
026326,000211: 35,2045           05744                           TC       VARALARM                              
026327,000212: 35,2046           35006                           CAF      V05N09                                
026328,000213: 35,2047           04616                           TC       BANKCALL                              
026329,000214: 35,2050           20476                           CADR     GOFLASH                               
026330,000215: 35,2051           06001                           TC       GOTOPOOH                              
026331,000216: 35,2052           02046                           TC       -4                                    
026332,000217: 35,2053           02361        P32/P72A           TC       P20FLGON                              
026333,000218: 35,2054           32417                           CAF      P30ZERO                               
026334,000219: 35,2055           55467                           TS       NN         +1                         
026335,000220: 35,2056           55633                           TS       TCSI                                  
026336,000221: 35,2057           55634                           TS       TCSI       +1                         
026337,000222: 35,2060           32410        VN0611             CAF      V06N11                                #  TCSI
026338,000223: 35,2061           03712                           TC       VNPOOH                                
026339,000224: 35,2062           06037                           TC       INTPRET                               
026340,000225: 35,2063           57545                           DLOAD    DCOMP                                 
026341,000226: 35,2064           03634                                    TCSI                                  
026342,000227: 35,2065           71240                           BMN      DLOAD                                 
026343,000228: 35,2066           72113                                    VN0655                                

Page 622

026345,000230: 35,2067           01643                                    TETLEM                                
026346,000231: 35,2070           34041                           STCALL   TDEC1                                 
026347,000232: 35,2071           46360                                    PRECSET                               
026348,000233: 35,2072           53775                           VLOAD    VSR*                                  
026349,000234: 35,2073           03536                                    RACT3                                 
026350,000235: 35,2074           57176                                    0,2                                   
026351,000236: 35,2075           26655                           STOVL    RVEC                                  
026352,000237: 35,2076           03544                                    VACT3                                 
026353,000238: 35,2077           43057                           VSR*     SET                                   
026354,000239: 35,2100           57176                                    0,2                                   
026355,000240: 35,2101           03466                                    RVSW                                  
026356,000241: 35,2102           16744                           STODL    VVEC                                  
026357,000242: 35,2103           06530                                    DPPOSMAX                              
026358,000243: 35,2104           36756                           STCALL   RDESIRED                              
026359,000244: 35,2105           25547                                    TIMERAD                               
026360,000245: 35,2106           77615                           DAD                                            
026361,000246: 35,2107           03574                                    TDEC2                                 
026362,000247: 35,2110           03634                           STORE    TCSI                                  
026363,000248: 35,2111           77776                           EXIT                                           
026364,000249: 35,2112           02060                           TC       VN0611                                
026365,000250: 35,2113           77776        VN0655             EXIT                                           
026366,000251: 35,2114           33724                           CAF      V06N55                                #  NN, ELEV(RGLOS)
026367,000252: 35,2115           04616                           TC       BANKCALL                              
026368,000253: 35,2116           20476                           CADR     GOFLASH                               
026369,000254: 35,2117           06001                           TC       GOTOPOOH                              
026370,000255: 35,2120           02122                           TC       +2                                    
026371,000256: 35,2121           02114                           TC       -5                                    
026372,000257: 35,2122           33723                           CAF      V06N37                                #  TTPI
026373,000258: 35,2123           03712                           TC       VNPOOH                                
026374,000259: 35,2124           06037                           TC       INTPRET                               
026375,000260: 35,2125           77745                           DLOAD                                          
026376,000261: 35,2126           03634                                    TCSI                                  
026377,000262: 35,2127           37442                           STCALL   TIG                                   
026378,000263: 35,2130           20000                                    SELECTMU                              
026379,000264: 35,2131           77624        P32/P72B           CALL                                           
026380,000265: 35,2132           71016                                    ADVANCE                               
026381,000266: 35,2133           77201                           SETPD    VLOAD                                 
026382,000267: 35,2134           00001                                    0D                                    
026383,000268: 35,2135           03506                                    VPASS1                                
026384,000269: 35,2136           65315                           PDVL     PDDL                                  
026385,000270: 35,2137           03500                                    RPASS1                                
026386,000271: 35,2140           03634                                    TCSI                                  
026387,000272: 35,2141           65325                           PDDL     PDDL                                  
026388,000273: 35,2142           03636                                    TTPI                                  
026389,000274: 35,2143           33732                                    TWOPI                                 
026390,000275: 35,2144           45006                           PUSH     CALL                                  
026391,000276: 35,2145           73466                                    INTINT                                
026392,000277: 35,2146           77624                           CALL                                           
026393,000278: 35,2147           46412                                    PASSIVE                               
026394,000279: 35,2150           77624                           CALL                                           

Page 623

026396,000281: 35,2151           70113                                    CSI/A                                 
026397,000282: 35,2152           43014        P32/P72C           BON      SET                                   
026398,000283: 35,2153           01311                                    FINALFLG                              
026399,000284: 35,2154           72156                                    P32/P72D                              
026400,000285: 35,2155           00470                                    UPDATFLG                              
026401,000286: 35,2156           77745        P32/P72D           DLOAD                                          
026402,000287: 35,2157           02253                                    T1TOT2                                
026403,000288: 35,2160           02253        P32/P72E           STORE    T1TOT2                                
026404,000289: 35,2161           51025                           DSU      BPL                                   
026405,000290: 35,2162           32422                                    60MIN                                 
026406,000291: 35,2163           72160                                    P32/P72E                              
026407,000292: 35,2164           77745                           DLOAD                                          
026408,000293: 35,2165           02255                                    T2TOT3                                
026409,000294: 35,2166           02255        P32/P72F           STORE    T2TOT3                                
026410,000295: 35,2167           51025                           DSU      BPL                                   
026411,000296: 35,2170           32422                                    60MIN                                 
026412,000297: 35,2171           72166                                    P32/P72F                              
026413,000298: 35,2172           77776                           EXIT                                           
026414,000299: 35,2173           32412                           CAF      V06N75                                
026415,000300: 35,2174           03712                           TC       VNPOOH                                
026416,000301: 35,2175           06037                           TC       INTPRET                               
026417,000302: 35,2176           45175                           VLOAD    CALL                                  
026418,000303: 35,2177           02267                                    DELVEET1                              
026419,000304: 35,2200           71100                                    S32/33.1                              
026420,000305: 35,2201           26267                           STOVL    DELVEET1                              
026421,000306: 35,2202           02311                                    RACT2                                 
026422,000307: 35,2203           26303                           STOVL    RACT1                                 
026423,000308: 35,2204           02275                                    DELVEET2                              
026424,000309: 35,2205           45170                           AXT,1    CALL                                  
026425,000310: 35,2206           01522                           VN       0682                                  
026426,000311: 35,2207           72370                                    DISDVLVC                              
026427,000312: 35,2210           77745                           DLOAD                                          
026428,000313: 35,2211           03636                                    TTPI                                  
026429,000314: 35,2212           37640                           STCALL   TTPIO                                 
026430,000315: 35,2213           73606                                    VN1645                                
026431,000316: 35,2214           77650                           GOTO                                           
026432,000317: 35,2215           72131                                    P32/P72B                              
026433,000318: 

Page 624

026435,000320:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
026436,000321:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
026437,000322:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
026438,000323: 
026439,000324:                                                                                                  #  PURPOSE
026440,000325: 
026441,000326:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
026442,000327:                                                                                                  #                ALTITUDE MANEUVER (CDH).
026443,000328: 
026444,000329:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
026445,000330:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
026446,000331: 
026447,000332:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
026448,000333:                                                                                                  #                ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
026449,000334:                                                                                                  #                ASTRONAUT/GROUND.
026450,000335: 
026451,000336:                                                                                                  #        (4)     TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
026452,000337:                                                                                                  #                THRUSTING PROGRAM.
026453,000338: 
026454,000339:                                                                                                  #  ASSUMPTIONS
026455,000340: 
026456,000341:                                                                                                  #        (1)     THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
026457,000342:                                                                                                  #                CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
026458,000343:                                                                                                  #                THERFORE -
026459,000344: 
026460,000345:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
026461,000346:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
026462,000347:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
026463,000348:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
026464,000349: 
026465,000350:                                                                                                  #                (B)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
026466,000351:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
026467,000352: 
026468,000353:                                                                                                  #                (C)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
026469,000354:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
026470,000355: 
026471,000356:                                                                                                  #                (D)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
026472,000357:                                                                                                  #                        ORBITS WAS MINMIZED.
026473,000358: 
026474,000359:                                                                                                  #                (E)     CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
026475,000360:                                                                                                  #                        IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
026476,000361:                                                                                                  #                        POSITION AT CSI IGNITION.
026477,000362: 
026478,000363:                                                                                                  #                (F)     THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
026479,000364:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
026480,000365:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
026481,000366: 
026482,000367:                                                                                                  #                (G)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
026483,000368:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW

Page 625

026485,000370:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
026486,000371:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
026487,000372: 
026488,000373:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
026489,000374:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
026490,000375: 
026491,000376:                                                                                                  #        (3)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
026492,000377:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
026493,000378:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
026494,000379:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
026495,000380: 
026496,000381:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
026497,000382:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
026498,000383:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
026499,000384:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
026500,000385:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
026501,000386:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
026502,000387:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
026503,000388:                                                                                                  #                THRUSTING MANEUVER.
026504,000389: 
026505,000390:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
026506,000391: 
026507,000392:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
026508,000393: 
026509,000394:                                                                                                  #                        ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
026510,000395:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
026511,000396:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
026512,000397:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
026513,000398: 
026514,000399:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
026515,000400:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
026516,000401:                                                                                                  #                        CYCLE.
026517,000402: 
026518,000403:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
026519,000404:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
026520,000405:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
026521,000406:                                                                                                  #                        PROGRAM.
026522,000407: 
026523,000408:                                                                                                  #        (7)     IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
026524,000409:                                                                                                  #                A THRUSTING MANEUVER.
026525,000410: 
026526,000411:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
026527,000412: 
026528,000413:                                                                                                  #                        P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
026529,000414: 
026530,000415:                                                                                                  #                        P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
026531,000416: 
026532,000417:                                                                                                  #  INPUT
026533,000418: 
026534,000419:                                                                                                  #        (1)     TTPI0   TIME OF THE TPI MANEUVER - SAVED FROM P32/P72

Page 626

026536,000421:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
026537,000422:                                                                                                  #        (3)     TCDH    TIME OF THE CDH MANEUVER
026538,000423: 
026539,000424:                                                                                                  #  OUTPUT
026540,000425: 
026541,000426:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
026542,000427:                                                                                                  #        (2)     TTOGO           TIME TO GO
026543,000428:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
026544,000429:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
026545,000430:                                                                                                  #        (5)     T2TOT3          DELTA TIME FROM CDH TO COMPUTED TPI
026546,000431:                                                                                                  #        (6)     NOMTPI          DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
026547,000432:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
026548,000433: 
026549,000434:                                                                                                  #  DOWNLINK
026550,000435: 
026551,000436:                                                                                                  #        (1)     TCDH            TIME OF THE CDH MANEUVER
026552,000437:                                                                                                  #        (2)     TTPI            TIME OF THE TPI MANEUVER
026553,000438:                                                                                                  #        (3)     TIG             TIME OF THE CDH MANEUVER
026554,000439:                                                                                                  #        (4)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
026555,000440:                                                                                                  #        (5)     DIFFALT         DELTA ALTITUDE AT CDH
026556,000441:                                                                                                  #        (6)     ELEV            DESIRED LOS ANGLE AT TPI
026557,000442: 
026558,000443:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
026559,000444: 
026560,000445:                                                                                                  #        (1)     TIG             TIME OF THE CDH MANEUVER
026561,000446:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
026562,000447:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
026563,000448:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
026564,000449:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
026565,000450:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CDH - REFERENCE COORDINATES
026566,000451:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CDH
026567,000452:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
026568,000453: 
026569,000454:                                                                                                  #  SUBROUTINES USED
026570,000455: 
026571,000456:                                                                                                  #        AVFLAGA
026572,000457:                                                                                                  #        AVFLAGP
026573,000458:                                                                                                  #        P20FLGON
026574,000459:                                                                                                  #        VNPOOH
026575,000460:                                                                                                  #        SELECTMU
026576,000461:                                                                                                  #        ADVANCE
026577,000462:                                                                                                  #        CDHMVR
026578,000463:                                                                                                  #        INTINT3P
026579,000464:                                                                                                  #        ACTIVE
026580,000465:                                                                                                  #        PASSIVE
026581,000466:                                                                                                  #        S33/34.1
026582,000467:                                                                                                  #        ALARM
026583,000468:                                                                                                  #        BANKCALL
026584,000469:                                                                                                  #        GOFLASH
026585,000470:                                                                                                  #        GOTOPOOH
026586,000471:                                                                                                  #        S32/33.1

Page 627

026588,000473:                                                                                                  #        VN1645
026589,000474: 
026590,000475: 35,2216                                           COUNT*   $$/P3373                              
026591,000476: 35,2216           02347        P33                TC       AVFLAGA                               
026592,000477: 35,2217           02221                           TC       P33/P73A                              
026593,000478: 35,2220           02354        P73                TC       AVFLAGP                               
026594,000479: 35,2221           02361        P33/P73A           TC       P20FLGON                              
026595,000480: 35,2222           32411                           CAF      V06N13                                #  TCDH
026596,000481: 35,2223           03712                           TC       VNPOOH                                
026597,000482: 35,2224           06037                           TC       INTPRET                               
026598,000483: 35,2225           77745                           DLOAD                                          
026599,000484: 35,2226           03640                                    TTPIO                                 
026600,000485: 35,2227           17636                           STODL    TTPI                                  
026601,000486: 35,2230           01777                                    TCDH                                  
026602,000487: 35,2231           37442                           STCALL   TIG                                   
026603,000488: 35,2232           20000                                    SELECTMU                              
026604,000489: 35,2233           77624        P33/P73B           CALL                                           
026605,000490: 35,2234           71016                                    ADVANCE                               
026606,000491: 35,2235           77624                           CALL                                           
026607,000492: 35,2236           71133                                    CDHMVR                                
026608,000493: 35,2237           77201                           SETPD    VLOAD                                 
026609,000494: 35,2240           00001                                    0D                                    
026610,000495: 35,2241           03544                                    VACT3                                 
026611,000496: 35,2242           45115                           PDVL     CALL                                  
026612,000497: 35,2243           02311                                    RACT2                                 
026613,000498: 35,2244           71071                                    INTINT3P                              
026614,000499: 35,2245           77624                           CALL                                           
026615,000500: 35,2246           46402                                    ACTIVE                                
026616,000501: 35,2247           77201                           SETPD    VLOAD                                 
026617,000502: 35,2250           00001                                    0D                                    
026618,000503: 35,2251           03530                                    VPASS2                                
026619,000504: 35,2252           45115                           PDVL     CALL                                  
026620,000505: 35,2253           03522                                    RPASS2                                
026621,000506: 35,2254           71071                                    INTINT3P                              
026622,000507: 35,2255           77624                           CALL                                           
026623,000508: 35,2256           46412                                    PASSIVE                               
026624,000509: 35,2257           43145                           DLOAD    SET                                   
026625,000510: 35,2260           32420                                    P30ZERO                               
026626,000511: 35,2261           03460                                    ITSWICH                               
026627,000512: 35,2262           36317                           STCALL   NOMTPI                                
026628,000513: 35,2263           72764                                    S33/34.1                              
026629,000514: 35,2264           77454                           BZE      EXIT                                  
026630,000515: 35,2265           72302                                    P33/P73C                              
026631,000516: 35,2266           05567                           TC       ALARM                                 
026632,000517: 35,2267           00611                           OCT      611                                   
026633,000518: 35,2270           35006                           CAF      V05N09                                
026634,000519: 35,2271           04616                           TC       BANKCALL                              
026635,000520: 35,2272           20476                           CADR     GOFLASH                               
026636,000521: 35,2273           06001                           TC       GOTOPOOH                              
026637,000522: 35,2274           02276                           TC       +2                                    

Page 628

026639,000524: 35,2275           02221                           TC       P33/P73A                              
026640,000525: 35,2276           06037                           TC       INTPRET                               
026641,000526: 35,2277           77745                           DLOAD                                          
026642,000527: 35,2300           32420                                    P30ZERO                               
026643,000528: 35,2301           02317                           STORE    NOMTPI                                
026644,000529: 35,2302           43014        P33/P73C           BON      SET                                   
026645,000530: 35,2303           01311                                    FINALFLG                              
026646,000531: 35,2304           72306                                    P33/P73D                              
026647,000532: 35,2305           00470                                    UPDATFLG                              
026648,000533: 35,2306           43345        P33/P73D           DLOAD    DAD                                   
026649,000534: 35,2307           02317                                    NOMTPI                                
026650,000535: 35,2310           03636                                    TTPI                                  
026651,000536: 35,2311           03636                           STORE    TTPI                                  
026652,000537: 35,2312           77625                           DSU                                            
026653,000538: 35,2313           01777                                    TCDH                                  
026654,000539: 35,2314           51025        P33/P73E           DSU      BPL                                   
026655,000540: 35,2315           32422                                    60MIN                                 
026656,000541: 35,2316           72314                                    P33/P73E                              
026657,000542: 35,2317           77615                           DAD                                            
026658,000543: 35,2320           32422                                    60MIN                                 
026659,000544: 35,2321           16253                           STODL    T1TOT2                                
026660,000545: 35,2322           03636                                    TTPI                                  
026661,000546: 35,2323           41425                           DSU      PUSH                                  
026662,000547: 35,2324           03640                                    TTPIO                                 
026663,000548: 35,2325           45246        P33/P73F           ABS      DSU                                   
026664,000549: 35,2326           32422                                    60MIN                                 
026665,000550: 35,2327           43244                           BPL      DAD                                   
026666,000551: 35,2330           72325                                    P33/P73F                              
026667,000552: 35,2331           32422                                    60MIN                                 
026668,000553: 35,2332           45565                           SIGN     STADR                                 
026669,000554: 35,2333           75522                           STORE    T2TOT3                                
026670,000555: 35,2334           77776                           EXIT                                           
026671,000556: 35,2335           32412                           CAF      V06N75                                
026672,000557: 35,2336           03712                           TC       VNPOOH                                
026673,000558: 35,2337           06037                           TC       INTPRET                               
026674,000559: 35,2340           45175                           VLOAD    CALL                                  
026675,000560: 35,2341           02275                                    DELVEET2                              
026676,000561: 35,2342           71100                                    S32/33.1                              
026677,000562: 35,2343           36275                           STCALL   DELVEET2                              
026678,000563: 35,2344           73606                                    VN1645                                
026679,000564: 35,2345           77650                           GOTO                                           
026680,000565: 35,2346           72233                                    P33/P73B                              
026681,000566: 

Page 629

026683,000568:                                                                                                  #  ..... AVFLAGA/P .....
026684,000569: 
026685,000570:                                                                                                  #  SUBROUTINES USED
026686,000571: 
026687,000572:                                                                                                  #        UPFLAG
026688,000573:                                                                                                  #        DOWNFLAG
026689,000574: 
026690,000575: 35,2347           00006        AVFLAGA            EXTEND                                         #  AVFLAG = LEM
026691,000576: 35,2350           23470                           QXCH     SUBEXIT                               
026692,000577: 35,2351           05504                           TC       UPFLAG                                
026693,000578: 35,2352           00050                           ADRES    AVFLAG                                
026694,000579: 35,2353           01470                           TC       SUBEXIT                               
026695,000580: 35,2354           00006        AVFLAGP            EXTEND                                         #  AVFLAG = CSM
026696,000581: 35,2355           23470                           QXCH     SUBEXIT                               
026697,000582: 35,2356           05516                           TC       DOWNFLAG                              
026698,000583: 35,2357           00050                           ADRES    AVFLAG                                
026699,000584: 35,2360           01470                           TC       SUBEXIT                               
026700,000585: 35,2361           00006        P20FLGON           EXTEND                                         
026701,000586: 35,2362           23470                           QXCH     SUBEXIT                               
026702,000587: 35,2363           05504                           TC       UPFLAG                                
026703,000588: 35,2364           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG
026704,000589: 35,2365           05504                           TC       UPFLAG                                
026705,000590: 35,2366           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG
026706,000591: 35,2367           01470                           TC       SUBEXIT                               
026707,000592: 

Page 630

026709,000594:                                                                                                  #  ..... DISDVLVC .....
026710,000595: 
026711,000596:                                                                                                  #  SUBROUTINES USED
026712,000597: 
026713,000598:                                                                                                  #        S32/33.X
026714,000599:                                                                                                  #        VNPOOH
026715,000600: 
026716,000601: 35,2370           03434        DISDVLVC           STORE    DELVLVC                               
026717,000602: 35,2371           45020                           STQ      CALL                                  
026718,000603: 35,2372           03463                                    NORMEX                                
026719,000604: 35,2373           71120                                    S32/33.X                              
026720,000605: 35,2374           64375                           VLOAD    MXV                                   
026721,000606: 35,2375           03434                                    DELVLVC                               
026722,000607: 35,2376           00001                                    0D                                    
026723,000608: 35,2377           66172                           VSL1     SXA,1                                 
026724,000609: 35,2400           03615                                    VERBNOUN                              
026725,000610: 35,2401           03434                           STORE    DELVLVC                               
026726,000611: 35,2402           77776                           EXIT                                           
026727,000612: 35,2403           31615                           CA       VERBNOUN                              
026728,000613: 35,2404           03712                           TC       VNPOOH                                
026729,000614: 35,2405           06037                           TC       INTPRET                               
026730,000615: 35,2406           77650                           GOTO                                           
026731,000616: 35,2407           03463                                    NORMEX                                
026732,000617: 

Page 631

026734,000619:                                                                                                  #  ..... CONSTANTS .....
026735,000620: 
026736,000621: 35,2410           01413        V06N11             VN       0611                                  
026737,000622: 35,2411           01415        V06N13             VN       0613                                  
026738,000623: 35,2412           01513        V06N75             VN       0675                                  
026739,000624: 35,2413           77776 62460  SN359+             2DEC     -.000086601                            
026740,000625: 
026741,000626: 35,2415           17777 37776  CS359+             2DEC     +.499999992                            
026742,000627: 
026743,000628: 35,2417           00000 00000  P30ZERO            2DEC     0          B-28                       
026744,000629: 
026745,000630: 35,2421           00025 37100  60MIN              2DEC     360000     B-28                       
026746,000631: 
026747,000632: 35,2423           00600        ALARM/TB           OCT      00600                                 #  NO 1
026748,000633: 35,2424           00601                           OCT      00601                                 #     2
026749,000634: 35,2425           00602                           OCT      00602                                 #     3
026750,000635: 35,2426           00603                           OCT      00603                                 #     4
026751,000636: 35,2427           00604                           OCT      00604                                 #     5
026752,000637: 35,2430           00605                           OCT      00605                                 #     6
026753,000638: 35,2431           00606                           OCT      00606                                 #     7
026754,000639: 

Page 632

026756,000641:                                                                                                  #  ..... CSI/A .....
026757,000642: 
026758,000643:                                                                                                  #  SUBROUTINES USED
026759,000644: 
026760,000645:                                                                                                  #        VECSHIFT
026761,000646:                                                                                                  #        TIMETHET
026762,000647:                                                                                                  #        PERIAPO
026763,000648:                                                                                                  #        SHIFTR1
026764,000649:                                                                                                  #        INTINT2C
026765,000650:                                                                                                  #        CDHMVR
026766,000651:                                                                                                  #        PERIAPO1
026767,000652:                                                                                                  #        INTINT
026768,000653:                                                                                                  #        ACTIVE
026769,000654: 
026770,000655: 34,2057                                           BANK     34                                    
026771,000656: 34,2000                                           SETLOC   CSI/CDH1                              
026772,000657: 34,2000                                           BANK                                           
026773,000658: 34,2057  E7,1470                                  EBANK=   SUBEXIT                               
026774,000659: 34,2057                                           COUNT*   $$/CSI                                
026775,000660: 34,2057           00000 00020  LOOPMX             2DEC     16         B-28                       
026776,000661: 
026777,000662: 34,2061           00003 34661  INITST             2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
026778,000663: 
026779,000664: 34,2063           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #  MAXIMUM DV1 = 1000 FPS
026780,000665: 
026781,000666: 34,2065           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                 989 FPS
026782,000667: 
026783,000668: 34,2067           10000 00000  1DPB2              2DEC     1.0        B-2                        
026784,000669: 
026785,000670: 34,2071           00000 00001  1DPB28             2DEC     1          B-28                       
026786,000671: 
026787,000672: 34,2073           00004 31566  PMINE              2DEC     157420     B-29                       #  85 NM - MUST BE 8 WORDS BEFORE PMINM
026788,000673: 
026789,000674: 34,2075           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #  .1 FPS
026790,000675: 
026791,000676: 34,2077           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS (CHANGED FROM .05 FPS)
026792,000677: 
026793,000678: 34,2101           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #  50 FPS
026794,000679: 
026795,000680: 34,2103           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE
026796,000681: 
026797,000682: 34,2105           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #  200 FPS
026798,000683: 
026799,000684: 34,2107           00000 06433  ONETHTH            2DEC     .0001      B-3                        
026800,000685: 
026801,000686: 34,2111           00003 25140  TMIN               2DEC     60000      B-28                       #  10 MIN
026802,000687: 
026803,000688: 34,2113           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
026804,000689: 34,2114           03260                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
026805,000690: 34,2115           03061                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR

Page 633

026807,000692: 34,2116           43014                           CLEAR    SET                                   
026808,000693: 34,2117           03262                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
026809,000694: 34,2120           03063                                    S32.1F3B                              #  10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
026810,000695: 34,2121           77745                           DLOAD                                          
026811,000696: 34,2122           32420                                    P30ZERO                               
026812,000697: 34,2123           03606                           STORE    LOOPCT                                
026813,000698: 34,2124           03614                           STORE    CSIALRM                               
026814,000699: 34,2125           77201        CSI/B              SETPD    VLOAD                                 
026815,000700: 34,2126           00001                                    0D                                    
026816,000701: 34,2127           02303                                    RACT1                                 
026817,000702: 34,2130           41446                           ABVAL    PUSH                                  #  RA1                         B29 PL02D
026818,000703: 34,2131           70501                           NORM     SR1                                   
026819,000704: 34,2132           00050                                    X2                                    #                       B29-N2+ B1 PL04D
026820,000705: 34,2133           51515                           PDVL     ABVAL                                 
026821,000706: 34,2134           03552                                    RPASS3                                
026822,000707: 34,2135           55301                           NORM     BDDV                                  #  RA1/RP3                      B1 PL02D
026823,000708: 34,2136           00047                                    X1                                    
026824,000709: 34,2137           53664                           XSU,2    SR*                                   #                               B2
026825,000710: 34,2140           00046                                    X1                                    
026826,000711: 34,2141           57175                                    1,2                                   
026827,000712: 34,2142           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1      B29+B2=B31 PL00D
026828,000713: 34,2143           30070                                    1DPB2                                 
026829,000714: 34,2144           65301                           NORM     PDDL                                  #                                   PL02D
026830,000715: 34,2145           00047                                    X1                                    
026831,000716: 34,2146           02321                                    RTMU                                  
026832,000717: 34,2147           56342                           SR1      DDV                                   #                       B38-B31= B7 PL00D
026833,000718: 34,2150           75457                           SL*      SQRT                                  #                                B7
026834,000719: 34,2151           20172                                    0          -7,1                       
026835,000720: 34,2152           53515                           PDVL     UNIT                                  #                                   PL02D
026836,000721: 34,2153           02303                                    RACT1                                 
026837,000722: 34,2154           47315                           PDVL     VXV                                   
026838,000723: 34,2155           02261                                    UP1                                   
026839,000724: 34,2156           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
026840,000725: 34,2157           72441                           DOT      SL1                                   #  VA1 . UH1                     B7
026841,000726: 34,2160           03472                                    VACT1                                 
026842,000727: 34,2161           45421                           BDSU     STADR                                 #                                   PL00D
026843,000728: 34,2162           60203                           STODL    DELVCSI                               
026844,000729: 34,2163           30062                                    INITST                                #  10 FPS
026845,000730: 34,2164           03612                           STORE    DELDV                                 
026846,000731: 34,2165           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
026847,000732: 34,2166           03606                                    LOOPCT                                
026848,000733: 34,2167           30072                                    1DPB28                                
026849,000734: 34,2170           03606                           STORE    LOOPCT                                
026850,000735: 34,2171           77025                           DSU      AXT,2                                 
026851,000736: 34,2172           30060                                    LOOPMX                                
026852,000737: 34,2173           00006                                    6                                     
026853,000738: 34,2174           77644                           BPL                                            
026854,000739: 34,2175           70776                                    SCNDSOL                               
026855,000740: 34,2176           77601        CSI/B2             SETPD                                          
026856,000741: 34,2177           00001                                    0D                                    

Page 634

026858,000743: 34,2200           51545                           DLOAD    ABS                                   
026859,000744: 34,2201           03574                                    DELVCSI                               
026860,000745: 34,2202           50025                           DSU      BMN                                   
026861,000746: 34,2203           30064                                    DVMAX1                                
026862,000747: 34,2204           70224                                    CSI/B23                               
026863,000748: 34,2205           43174                           AXT,2    BON                                   
026864,000749: 34,2206           00007                                    7                                     
026865,000750: 34,2207           03300                                    S32.1F1                               
026866,000751: 34,2210           70776                                    SCNDSOL                               
026867,000752: 34,2211           43014                           BOFF     BON                                   
026868,000753: 34,2212           03342                                    S32.1F3A                              
026869,000754: 34,2213           70216                                    CSI/B22                               #  FLAG 3 NEQ 3
026870,000755: 34,2214           03303                                    S32.1F3B                              
026871,000756: 34,2215           70776                                    SCNDSOL                               
026872,000757: 34,2216           71214        CSI/B22            SET      DLOAD                                 
026873,000758: 34,2217           03060                                    S32.1F1                               
026874,000759: 34,2220           30066                                    DVMAX2                                
026875,000760: 34,2221           77765                           SIGN                                           
026876,000761: 34,2222           03574                                    DELVCSI                               
026877,000762: 34,2223           03574                           STORE    DELVCSI                               
026878,000763: 34,2224           41575        CSI/B23            VLOAD    PUSH                                  
026879,000764: 34,2225           02303                                    RACT1                                 
026880,000765: 34,2226           63256                           UNIT     PDVL                                  
026881,000766: 34,2227           02261                                    UP1                                   
026882,000767: 34,2230           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
026883,000768: 34,2231           76561                           VXSC     VSL1                                  
026884,000769: 34,2232           03574                                    DELVCSI                               
026885,000770: 34,2233           02267                           STORE    DELVEET1                              
026886,000771: 34,2234           40055                           VAD      BOV                                   
026887,000772: 34,2235           03472                                    VACT1                                 
026888,000773: 34,2236           70237                                    CSI/B23D                              
026889,000774: 34,2237           37566        CSI/B23D           STCALL   VACT4                                 
026890,000775: 34,2240           46416                                    VECSHIFT                              
026891,000776: 34,2241           26744                           STOVL    VVEC                                  
026892,000777: 34,2242           77614                           SET                                            
026893,000778: 34,2243           03466                                    RVSW                                  
026894,000779: 34,2244           26655                           STOVL    RVEC                                  
026895,000780: 34,2245           32414                                    SN359+                                
026896,000781: 34,2246           36730                           STCALL   SNTH                                  #  ALSO CSTH
026897,000782: 34,2247           24732                                    TIMETHET                              
026898,000783: 34,2250           72142                           SR1      LXA,1                                 
026899,000784: 34,2251           02776                                    RTX1                                  
026900,000785: 34,2252           37604                           STCALL   HAFPA1                                
026901,000786: 34,2253           46326                                    PERIAPO                               
026902,000787: 34,2254           77624                           CALL                                           
026903,000788: 34,2255           46426                                    SHIFTR1                               
026904,000789: 34,2256           17602                           STODL    POSTCSI                               
026905,000790: 34,2257           03621                                    CENTANG                               
026906,000791: 34,2260           52054                           BZE      GOTO                                  
026907,000792: 34,2261           70263                                    +2                                    

Page 635

026909,000794: 34,2262           70372                                    CIRCL                                 
026910,000795: 34,2263           77745                           DLOAD                                          
026911,000796: 34,2264           02752                                    ECC                                   
026912,000797: 34,2265           50025                           DSU      BMN                                   
026913,000798: 34,2266           30110                                    ONETHTH                               
026914,000799: 34,2267           70372                                    CIRCL                                 
026915,000800: 34,2270           45145                           DLOAD    CALL                                  
026916,000801: 34,2271           00041                                    R1                                    
026917,000802: 34,2272           46426                                    SHIFTR1                               
026918,000803: 34,2273           60201                           SETPD    NORM                                  
026919,000804: 34,2274           00003                                    2D                                    
026920,000805: 34,2275           00047                                    X1                                    
026921,000806: 34,2276           50315                           PDVL     DOT                                   #                                        PL04D
026922,000807: 34,2277           02303                                    RACT1                                 
026923,000808: 34,2300           03566                                    VACT4                                 
026924,000809: 34,2301           56246                           ABS      DDV                                   
026925,000810: 34,2302           00003                                    02D                                   #  (/RDOTV/)/R1             B36-B29= B7
026926,000811: 34,2303           45257                           SL*      DSU                                   
026927,000812: 34,2304           20201                                    0,1                                   
026928,000813: 34,2305           30100                                    NICKELDP                              
026929,000814: 34,2306           71240                           BMN      DLOAD                                 
026930,000815: 34,2307           70372                                    CIRCL                                 
026931,000816: 34,2310           02740                                    P                                     
026932,000817: 34,2311           45312                           SL2      DSU                                   
026933,000818: 34,2312           30070                                    1DPB2                                 
026934,000819: 34,2313           14017                           STODL    14D                                   
026935,000820: 34,2314           02317                                    RTSR1/MU                              
026936,000821: 34,2315           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1         B-16-B29 = B-45 PL02D
026937,000822: 34,2316           41325                           PDDL     DMP                                   
026938,000823: 34,2317           02740                                    P                                     
026939,000824: 34,2320           00041                                    R1                                    
026940,000825: 34,2321           77624                           CALL                                           
026941,000826: 34,2322           46426                                    SHIFTR1                               
026942,000827: 34,2323           72412                           SL4      SL1                                   
026943,000828: 34,2324           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1       B14+B-45 = B-31 PL02D
026944,000829: 34,2325           52414                           BOFF     SL3                                   
026945,000830: 34,2326           04343                                    CMOONFLG                              
026946,000831: 34,2327           70330                                    CSI/B3                                
026947,000832: 34,2330           50315        CSI/B3             PDVL     DOT                                   
026948,000833: 34,2331           02303                                    RACT1                                 
026949,000834: 34,2332           03566                                    VACT4                                 
026950,000835: 34,2333           03617                           STORE    RDOTV                                 
026951,000836: 34,2334           77646                           ABS                                            
026952,000837: 34,2335           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                  PL02D
026953,000838: 34,2336           00050                                    X2                                    
026954,000839: 34,2337           53660                           XSU,1    SL*                                   #                       B-31+B36-B3 = B2
026955,000840: 34,2340           00047                                    X2                                    
026956,000841: 34,2341           20204                                    3,1                                   
026957,000842: 34,2342           14015                           STODL    12D                                   
026958,000843: 34,2343           32420                                    P30ZERO                               

Page 636

026960,000845: 34,2344           00021                           STORE    16D                                   
026961,000846: 34,2345           53575                           VLOAD    UNIT                                  
026962,000847: 34,2346           00015                                    12D                                   
026963,000848: 34,2347           26730                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
026964,000849: 34,2350           02303                                    RACT1                                 
026965,000850: 34,2351           75315                           PDVL     SIGN                                  
026966,000851: 34,2352           03566                                    VACT4                                 
026967,000852: 34,2353           03617                                    RDOTV                                 
026968,000853: 34,2354           45076                           VCOMP    CALL                                  
026969,000854: 34,2355           46416                                    VECSHIFT                              
026970,000855: 34,2356           26744                           STOVL    VVEC                                  
026971,000856: 34,2357           77614                           SET                                            
026972,000857: 34,2360           03466                                    RVSW                                  
026973,000858: 34,2361           36655                           STCALL   RVEC                                  
026974,000859: 34,2362           24732                                    TIMETHET                              
026975,000860: 34,2363           51125                           PDDL     BPL                                   
026976,000861: 34,2364           03617                                    RDOTV                                 
026977,000862: 34,2365           70376                                    NTP/2                                 
026978,000863: 34,2366           45345                           DLOAD    DSU                                   
026979,000864: 34,2367           03604                                    HAFPA1                                
026980,000865: 34,2370           52006                           PUSH     GOTO                                  
026981,000866: 34,2371           70376                                    NTP/2                                 
026982,000867: 34,2372           71201        CIRCL              SETPD    DLOAD                                 
026983,000868: 34,2373           00001                                    00D                                   
026984,000869: 34,2374           32420                                    P30ZERO                               
026985,000870: 34,2375           77606                           PUSH                                           
026986,000871: 34,2376           41345        NTP/2              DLOAD    DMP                                   
026987,000872: 34,2377           03467                                    NN                                    
026988,000873: 34,2400           03604                                    HAFPA1                                
026989,000874: 34,2401           45261                           SL       DSU                                   
026990,000875: 34,2402           20217                                    14D                                   
026991,000876: 34,2403           77615                           DAD                                            
026992,000877: 34,2404           03634                                    TCSI                                  
026993,000878: 34,2405           01777                           STORE    TCDH                                  
026994,000879: 34,2406           77021                           BDSU     AXT,2                                 
026995,000880: 34,2407           03636                                    TTPI                                  
026996,000881: 34,2410           00005                                    5D                                    
026997,000882: 34,2411           40240                           BMN      SETPD                                 
026998,000883: 34,2412           70776                                    SCNDSOL                               
026999,000884: 34,2413           00001                                    0D                                    
027000,000885: 34,2414           63375                           VLOAD    PDVL                                  
027001,000886: 34,2415           03566                                    VACT4                                 
027002,000887: 34,2416           02303                                    RACT1                                 
027003,000888: 34,2417           77624                           CALL                                           
027004,000889: 34,2420           71062                                    INTINT2C                              
027005,000890: 34,2421           26311                           STOVL    RACT2                                 
027006,000891: 34,2422           00007                                    VATT                                  
027007,000892: 34,2423           27514                           STOVL    VACT2                                 
027008,000893: 34,2424           03506                                    VPASS1                                
027009,000894: 34,2425           63201                           SETPD    PDVL                                  

Page 637

027011,000896: 34,2426           00001                                    0D                                    
027012,000897: 34,2427           03500                                    RPASS1                                
027013,000898: 34,2430           77624                           CALL                                           
027014,000899: 34,2431           71062                                    INTINT2C                              
027015,000900: 34,2432           27522                           STOVL    RPASS2                                
027016,000901: 34,2433           00007                                    VATT                                  
027017,000902: 34,2434           37530                           STCALL   VPASS2                                
027018,000903: 34,2435           71133                                    CDHMVR                                
027019,000904: 34,2436           40375                           VLOAD    SETPD                                 
027020,000905: 34,2437           02311                                    RACT2                                 
027021,000906: 34,2440           00001                                    0D                                    
027022,000907: 34,2441           45115                           PDVL     CALL                                  
027023,000908: 34,2442           03544                                    VACT3                                 
027024,000909: 34,2443           46316                                    PERIAPO1                              
027025,000910: 34,2444           77624                           CALL                                           
027026,000911: 34,2445           46426                                    SHIFTR1                               
027027,000912: 34,2446           27604                           STOVL    POSTCDH                               
027028,000913: 34,2447           03544                                    VACT3                                 
027029,000914: 34,2450           63201                           SETPD    PDVL                                  
027030,000915: 34,2451           00001                                    0D                                    
027031,000916: 34,2452           02311                                    RACT2                                 
027032,000917: 34,2453           65325                           PDDL     PDDL                                  
027033,000918: 34,2454           01777                                    TCDH                                  
027034,000919: 34,2455           03636                                    TTPI                                  
027035,000920: 34,2456           41525                           PDDL     PUSH                                  
027036,000921: 34,2457           33732                                    TWOPI                                 
027037,000922: 34,2460           77624                           CALL                                           
027038,000923: 34,2461           73466                                    INTINT                                
027039,000924: 34,2462           77624                           CALL                                           
027040,000925: 34,2463           46402                                    ACTIVE                                
027041,000926: 34,2464           77745                           DLOAD                                          
027042,000927: 34,2465           02257                                    ELEV                                  
027043,000928: 34,2466           73401                           SETPD    SINE                                  
027044,000929: 34,2467           00007                                    6D                                    
027045,000930: 34,2470           53515                           PDVL     UNIT                                  
027046,000931: 34,2471           03536                                    RACT3                                 
027047,000932: 34,2472           00001                           STORE    00D                                   #  URA3 AT 00D
027048,000933: 34,2473           47315                           PDVL     VXV                                   #  PL14D, PL08D
027049,000934: 34,2474           02261                                    UP1                                   
027050,000935: 34,2475           77656                           UNIT                                           
027051,000936: 34,2476           71525                           PDDL     COSINE                                #  UNIT(URA3 X UVA3 X URA3) = UH3        B1 PL14D
027052,000937: 34,2477           02257                                    ELEV                                  
027053,000938: 34,2500           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                         B2 PL08D
027054,000939: 34,2501           77754                           STORE    18D                                   #        PLUS
027055,000940: 34,2502           74345                           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U                    B2 PL00D
027056,000941: 34,2503           76455                           VAD      VSL1                                  
027057,000942: 34,2504           00023                                    18D                                   #                                        B1
027058,000943: 34,2505           50206                           PUSH     DOT                                   #                                           PL06D
027059,000944: 34,2506           03536                                    RACT3                                 #  (U . RA3) = TEMP1           B1 +B29 = B30
027060,000945: 34,2507           41552                           SL1      PUSH                                  #                                       B29 PL08D

Page 638

027062,000947: 34,2510           72316                           DSQ      TLOAD                                 #  TEMP1**2                             B58
027063,000948: 34,2511           00155                                    MPAC                                  
027064,000949: 34,2512           50315                           PDVL     DOT                                   #                                           PL11D
027065,000950: 34,2513           03536                                    RACT3                                 
027066,000951: 34,2514           03536                                    RACT3                                 
027067,000952: 34,2515           57551                           TLOAD    DCOMP                                 #  RA3 . RA3
027068,000953: 34,2516           00155                                    MPAC                                  
027069,000954: 34,2517           50315                           PDVL     DOT                                   #  RP3 . RP3                            B58 PL14D
027070,000955: 34,2520           03552                                    RPASS3                                
027071,000956: 34,2521           03552                                    RPASS3                                #                                           PL11D
027072,000957: 34,2522           76371                           TAD      TAD                                   #  TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2     PL08D
027073,000958: 34,2523           71244                           BPL      DLOAD                                 
027074,000959: 34,2524           70542                                    K10RK2                                
027075,000960: 34,2525           03606                                    LOOPCT                                
027076,000961: 34,2526           77025                           DSU      AXT,2                                 
027077,000962: 34,2527           30072                                    1DPB28                                
027078,000963: 34,2530           00001                                    1D                                    
027079,000964: 34,2531           77654                           BZE                                            
027080,000965: 34,2532           72036                                    ALMXITA                               
027081,000966: 34,2533           70545                           DLOAD    SR1                                   
027082,000967: 34,2534           03612                                    DELDV                                 
027083,000968: 34,2535           03612                           STORE    DELDV                                 
027084,000969: 34,2536           77621                           BDSU                                           
027085,000970: 34,2537           03576                                    DVPREV                                
027086,000971: 34,2540           37574                           STCALL   DELVCSI                               
027087,000972: 34,2541           70165                                    CSI/B1                                
027088,000973: 34,2542           41566        K10RK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                    B29 PL10D
027089,000974: 34,2543           45276                           DCOMP    DSU                                   
027090,000975: 34,2544           00007                                    06D                                   #  -TEMP1-TEMP3 = K2 AT 10D
027091,000976: 34,2545           14013                           STODL    10D                                   #                                           PL08D
027092,000977: 34,2546           45425                           DSU      STADR                                 #                                           PL06D
027093,000978: 34,2547           77762                           STORE    12D                                   #  -TEMP1+TEMP3 = K1 AT 12D
027094,000979: 34,2550           77646                           ABS                                            
027095,000980: 34,2551           14017                           STODL    14D                                   
027096,000981: 34,2552           00013                                    10D                                   
027097,000982: 34,2553           45246                           ABS      DSU                                   
027098,000983: 34,2554           00017                                    14D                                   
027099,000984: 34,2555           71240                           BMN      DLOAD                                 
027100,000985: 34,2556           70561                                    K2.                                   
027101,000986: 34,2557           00015                                    12D                                   
027102,000987: 34,2560           00013                           STORE    10D                                   #  K = K1
027103,000988: 34,2561           77745        K2.                DLOAD                                          
027104,000989: 34,2562           00013                                    10D                                   
027105,000990: 34,2563           76561                           VXSC     VSL1                                  
027106,000991: 34,2564           53455                           VAD      UNIT                                  #  V = RA3 + KU UNIT                     B1
027107,000992: 34,2565           03536                                    RACT3                                 
027108,000993: 34,2566           53515                           PDVL     UNIT                                  
027109,000994: 34,2567           03552                                    RPASS3                                #                                           PL06D
027110,000995: 34,2570           53515                           PDVL     UNIT                                  
027111,000996: 34,2571           03560                                    VPASS3                                #                                           PL12D

Page 639

027113,000998: 34,2572           63235                           VXV      PDVL                                  #  UVP3 X URP3                              PL18D
027114,000999: 34,2573           00007                                    06D                                   
027115,001000: 34,2574           00007                                    06D                                   
027116,001001: 34,2575           50235                           VXV      DOT                                   
027117,001002: 34,2576           00001                                    00D                                   
027118,001003: 34,2577           77626                           STADR                                          #                                           PL12D
027119,001004: 34,2600           53762                           STOVL    12D                                   #  (URP3 X V).(UVP3 X URP3)=TEMP            PL06D
027120,001005: 34,2601           72441                           DOT      SL1                                   #                                           PL00D
027121,001006: 34,2602           75326                           ARCCOS   SIGN                                  
027122,001007: 34,2603           00015                                    12D                                   #                                        B0
027123,001008: 34,2604           41542                           SR1      PUSH                                  #  GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3)      PL02D
027124,001009: 34,2605           71214                           BON      DLOAD                                 
027125,001010: 34,2606           03301                                    S32.1F2                               
027126,001011: 34,2607           70644                                    FRSTPAS                               
027127,001012: 34,2610           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
027128,001013: 34,2611           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                         B1 PL04D
027129,001014: 34,2612           03610                                    GAMPREV                               
027130,001015: 34,2613           03574                                    DELVCSI                               
027131,001016: 34,2614           60225                           DSU      NORM                                  #                                        B7
027132,001017: 34,2615           03576                                    DVPREV                                
027133,001018: 34,2616           00047                                    X1                                    
027134,001019: 34,2617           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)          B-6+N1 PL06D
027135,001020: 34,2620           00003                                    02D                                   #        = SLOPE
027136,001021: 34,2621           03574                                    DELVCSI                               
027137,001022: 34,2622           03576                           STORE    DVPREV                                
027138,001023: 34,2623           43014                           BOFF     BOFF                                  
027139,001024: 34,2624           03342                                    S32.1F3A                              
027140,001025: 34,2625           70656                                    THRDCHK                               
027141,001026: 34,2626           03343                                    S32.1F3B                              
027142,001027: 34,2627           70656                                    THRDCHK                               
027143,001028: 34,2630           41345                           DLOAD    DMP                                   
027144,001029: 34,2631           00003                                    02D                                   
027145,001030: 34,2632           03610                                    GAMPREV                               
027146,001031: 34,2633           71244                           BPL      DLOAD                                 
027147,001032: 34,2634           70663                                    FIFTYFPS                              
027148,001033: 34,2635           30062                                    INITST                                
027149,001034: 34,2636           77765                           SIGN                                           
027150,001035: 34,2637           03612                                    DELDV                                 
027151,001036: 34,2640           03612                           STORE    DELDV                                 
027152,001037: 34,2641           43014                           SET      CLEAR                                 
027153,001038: 34,2642           03062                                    S32.1F3A                              
027154,001039: 34,2643           03263                                    S32.1F3B                              
027155,001040: 34,2644           77745        FRSTPAS            DLOAD                                          
027156,001041: 34,2645           00001                                    00D                                   
027157,001042: 34,2646           17610                           STODL    GAMPREV                               
027158,001043: 34,2647           03574                                    DELVCSI                               
027159,001044: 34,2650           03576                           STORE    DVPREV                                
027160,001045: 34,2651           43025                           DSU      CLEAR                                 
027161,001046: 34,2652           03612                                    DELDV                                 
027162,001047: 34,2653           03261                                    S32.1F2                               

Page 640

027164,001049: 34,2654           37574                           STCALL   DELVCSI                               
027165,001050: 34,2655           70165                                    CSI/B1                                
027166,001051: 34,2656           43014        THRDCHK            BON      BON                                   
027167,001052: 34,2657           03302                                    S32.1F3A                              
027168,001053: 34,2660           70702                                    NEWTN                                 
027169,001054: 34,2661           03303                                    S32.1F3B                              
027170,001055: 34,2662           70702                                    NEWTN                                 
027171,001056: 34,2663           75345        FIFTYFPS           DLOAD    SIGN                                  
027172,001057: 34,2664           30102                                    FIFPSDP                               
027173,001058: 34,2665           00005                                    04D                                   
027174,001059: 34,2666           77765                           SIGN                                           
027175,001060: 34,2667           03610                                    GAMPREV                               
027176,001061: 34,2670           03612                           STORE    DELDV                                 
027177,001062: 34,2671           43276                           DCOMP    DAD                                   
027178,001063: 34,2672           03574                                    DELVCSI                               
027179,001064: 34,2673           17574                           STODL    DELVCSI                               
027180,001065: 34,2674           00001                                    00D                                   
027181,001066: 34,2675           43014                           SET      SET                                   
027182,001067: 34,2676           03063                                    S32.1F3B                              
027183,001068: 34,2677           03062                                    S32.1F3A                              
027184,001069: 34,2700           37610                           STCALL   GAMPREV                               
027185,001070: 34,2701           70176                                    CSI/B2                                
027186,001071: 34,2702           60345        NEWTN              DLOAD    NORM                                  
027187,001072: 34,2703           00005                                    04D                                   
027188,001073: 34,2704           00050                                    X2                                    
027189,001074: 34,2705           54065                           BDDV     XSU,1                                 
027190,001075: 34,2706           00001                                    00D                                   
027191,001076: 34,2707           00047                                    X2                                    
027192,001077: 34,2710           77657                           SR*                                            
027193,001078: 34,2711           20601                                    0,1                                   
027194,001079: 34,2712           17612                           STODL    DELDV                                 
027195,001080: 34,2713           00001                                    00D                                   
027196,001081: 34,2714           03610                           STORE    GAMPREV                               
027197,001082: 34,2715           51545                           DLOAD    ABS                                   
027198,001083: 34,2716           03612                                    DELDV                                 #                                           PL08D
027199,001084: 34,2717           45206                           PUSH     DSU                                   
027200,001085: 34,2720           30076                                    EPSILN1                               
027201,001086: 34,2721           71240                           BMN      DLOAD                                 
027202,001087: 34,2722           70737                                    CSI/SOL                               
027203,001088: 34,2723           50025                           DSU      BMN                                   
027204,001089: 34,2724           30106                                    DELMAX1                               
027205,001090: 34,2725           70732                                    CSISTEP                               
027206,001091: 34,2726           75345                           DLOAD    SIGN                                  
027207,001092: 34,2727           30106                                    DELMAX1                               
027208,001093: 34,2730           03612                                    DELDV                                 
027209,001094: 34,2731           03612                           STORE    DELDV                                 
027210,001095: 34,2732           45345        CSISTEP            DLOAD    DSU                                   
027211,001096: 34,2733           03574                                    DELVCSI                               
027212,001097: 34,2734           03612                                    DELDV                                 
027213,001098: 34,2735           37574                           STCALL   DELVCSI                               

Page 641

027215,001100: 34,2736           70165                                    CSI/B1                                
027216,001101: 34,2737           77145        CSI/SOL            DLOAD    AXT,2                                 
027217,001102: 34,2740           03602                                    POSTCSI                               
027218,001103: 34,2741           00002                                    2                                     
027219,001104: 34,2742           77750                           LXA,1                                          
027220,001105: 34,2743           02776                                    RTX1                                  
027221,001106: 34,2744           50023                           DSU*     BMN                                   
027222,001107: 34,2745           30072                                    PMINE      -2,1                       
027223,001108: 34,2746           70776                                    SCNDSOL                               
027224,001109: 34,2747           71374                           AXT,2    DLOAD                                 
027225,001110: 34,2750           00003                                    3                                     
027226,001111: 34,2751           03604                                    POSTCDH                               
027227,001112: 34,2752           50023                           DSU*     BMN                                   
027228,001113: 34,2753           30072                                    PMINE      -2,1                       
027229,001114: 34,2754           70776                                    SCNDSOL                               
027230,001115: 34,2755           45345                           DLOAD    DSU                                   
027231,001116: 34,2756           01777                                    TCDH                                  
027232,001117: 34,2757           03634                                    TCSI                                  
027233,001118: 34,2760           02253                           STORE    T1TOT2                                
027234,001119: 34,2761           45374                           AXT,2    DSU                                   
027235,001120: 34,2762           00004                                    4                                     
027236,001121: 34,2763           30112                                    TMIN                                  
027237,001122: 34,2764           77040                           BMN      AXT,2                                 
027238,001123: 34,2765           70776                                    SCNDSOL                               
027239,001124: 34,2766           00005                                    5                                     
027240,001125: 34,2767           45345                           DLOAD    DSU                                   
027241,001126: 34,2770           03636                                    TTPI                                  
027242,001127: 34,2771           01777                                    TCDH                                  
027243,001128: 34,2772           02255                           STORE    T2TOT3                                
027244,001129: 34,2773           51025                           DSU      BPL                                   
027245,001130: 34,2774           30112                                    TMIN                                  
027246,001131: 34,2775           72152                                    P32/P72C                              
027247,001132: 34,2776           43014        SCNDSOL            BON      BOFF                                  
027248,001133: 34,2777           03302                                    S32.1F3A                              
027249,001134: 34,3000           72040                                    ALMXIT                                
027250,001135: 34,3001           03343                                    S32.1F3B                              
027251,001136: 34,3002           72040                                    ALMXIT                                
027252,001137: 34,3003           71334                           SXA,2    DLOAD                                 
027253,001138: 34,3004           03613                                    CSIALRM                               
027254,001139: 34,3005           32420                                    P30ZERO                               
027255,001140: 34,3006           43014                           CLEAR    SET                                   
027256,001141: 34,3007           03260                                    S32.1F1                               
027257,001142: 34,3010           03061                                    S32.1F2                               
027258,001143: 34,3011           43014                           CLEAR    CLEAR                                 
027259,001144: 34,3012           03262                                    S32.1F3A                              
027260,001145: 34,3013           03263                                    S32.1F3B                              
027261,001146: 34,3014           37606                           STCALL   LOOPCT                                
027262,001147: 34,3015           70125                                    CSI/B                                 
027263,001148: 

Page 642

027265,001150:                                                                                                  #  ..... ADVANCE .....
027266,001151: 
027267,001152:                                                                                                  #  SUBROUTINES USED
027268,001153:                                                                                                  #        PRECSET
027269,001154:                                                                                                  #        ROTATE
027270,001155: 
027271,001156: 34,3016           71220        ADVANCE            STQ      DLOAD                                 
027272,001157: 34,3017           03470                                    SUBEXIT                               
027273,001158: 34,3020           03442                                    TIG                                   
027274,001159: 34,3021           34041                           STCALL   TDEC1                                 
027275,001160: 34,3022           46360                                    PRECSET                               
027276,001161: 34,3023           77214                           SET      VLOAD                                 
027277,001162: 34,3024           01067                                    XDELVFLG                              
027278,001163: 34,3025           03560                                    VPASS3                                
027279,001164: 34,3026           03530                           STORE    VPASS2                                
027280,001165: 34,3027           27506                           STOVL    VPASS1                                
027281,001166: 34,3030           03552                                    RPASS3                                
027282,001167: 34,3031           03522                           STORE    RPASS2                                
027283,001168: 34,3032           03500                           STORE    RPASS1                                
027284,001169: 34,3033           47256                           UNIT     VXV                                   
027285,001170: 34,3034           03506                                    VPASS1                                
027286,001171: 34,3035           77656                           UNIT                                           
027287,001172: 34,3036           26261                           STOVL    UP1                                   
027288,001173: 34,3037           03536                                    RACT3                                 
027289,001174: 34,3040           37642                           STCALL   RTIG                                  
027290,001175: 34,3041           71052                                    ROTATE                                
027291,001176: 34,3042           02311                           STORE    RACT2                                 
027292,001177: 34,3043           26303                           STOVL    RACT1                                 
027293,001178: 34,3044           03544                                    VACT3                                 
027294,001179: 34,3045           37650                           STCALL   VTIG                                  
027295,001180: 34,3046           71052                                    ROTATE                                
027296,001181: 34,3047           03514                           STORE    VACT2                                 
027297,001182: 34,3050           37472                           STCALL   VACT1                                 
027298,001183: 34,3051           03470                                    SUBEXIT                               
027299,001184: 

Page 643

027301,001186:                                                                                                  #  ..... ROTATE .....
027302,001187: 
027303,001188: 34,3052           41406        ROTATE             PUSH     PUSH                                  
027304,001189: 34,3053           74241                           DOT      VXSC                                  
027305,001190: 34,3054           02261                                    UP1                                   
027306,001191: 34,3055           02261                                    UP1                                   
027307,001192: 34,3056           51352                           VSL2     BVSU                                  
027308,001193: 34,3057           63256                           UNIT     PDVL                                  
027309,001194: 34,3060           74246                           ABVAL    VXSC                                  
027310,001195: 34,3061           43572                           VSL1     RVQ                                   
027311,001196: 

Page 644

027313,001198:                                                                                                  #  ..... INTINTNA .....
027314,001199: 
027315,001200: 34,3062           65325        INTINT2C           PDDL     PDDL                                  
027316,001201: 34,3063           03634                                    TCSI                                  
027317,001202: 34,3064           01777                                    TCDH                                  
027318,001203: 34,3065           41525                           PDDL     PUSH                                  
027319,001204: 34,3066           33732                                    TWOPI                                 
027320,001205: 34,3067           77650                           GOTO                                           
027321,001206: 34,3070           73466                                    INTINT                                
027322,001207: 34,3071           65325        INTINT3P           PDDL     PDDL                                  
027323,001208: 34,3072           01777                                    TCDH                                  
027324,001209: 34,3073           03636                                    TTPI                                  
027325,001210: 34,3074           41525                           PDDL     PUSH                                  
027326,001211: 34,3075           32420                                    P30ZERO                               
027327,001212: 34,3076           77650                           GOTO                                           
027328,001213: 34,3077           73466                                    INTINT                                
027329,001214: 

Page 645

027331,001216:                                                                                                  #  ..... S32/33.1 .....
027332,001217: 
027333,001218:                                                                                                  #  SUBROUTINES USED
027334,001219:                                                                                                  #        S32/33.X
027335,001220: 
027336,001221: 34,3100           76020        S32/33.1           STQ      AXT,1                                 
027337,001222: 34,3101           03470                                    SUBEXIT                               
027338,001223: 34,3102           01521                           VN       0681                                  
027339,001224: 34,3103           77624                           CALL                                           
027340,001225: 34,3104           72370                                    DISDVLVC                              
027341,001226: 34,3105           77624                           CALL                                           
027342,001227: 34,3106           71120                                    S32/33.X                              
027343,001228: 34,3107           61375                           VLOAD    VXM                                   
027344,001229: 34,3110           03434                                    DELVLVC                               
027345,001230: 34,3111           00001                                    0D                                    
027346,001231: 34,3112           77772                           VSL1                                           
027347,001232: 34,3113           03656                           STORE    DELVSIN                               
027348,001233: 34,3114           51406                           PUSH     ABVAL                                 
027349,001234: 34,3115           27664                           STOVL    DELVSAB                               
027350,001235: 34,3116           77650                           GOTO                                           
027351,001236: 34,3117           03470                                    SUBEXIT                               
027352,001237: 

Page 646

027354,001239:                                                                                                  #  ..... S32/33.X .....
027355,001240: 
027356,001241: 34,3120           77201        S32/33.X           SETPD    VLOAD                                 
027357,001242: 34,3121           00007                                    6D                                    
027358,001243: 34,3122           02261                                    UP1                                   
027359,001244: 34,3123           63276                           VCOMP    PDVL                                  
027360,001245: 34,3124           02303                                    RACT1                                 
027361,001246: 34,3125           57456                           UNIT     VCOMP                                 
027362,001247: 34,3126           47206                           PUSH     VXV                                   
027363,001248: 34,3127           02261                                    UP1                                   
027364,001249: 34,3130           77772                           VSL1                                           
027365,001250: 34,3131           00001                           STORE    0D                                    
027366,001251: 34,3132           77616                           RVQ                                            
027367,001252: 

Page 647

027369,001254:                                                                                                  #  ..... CDHMVR .....
027370,001255: 
027371,001256:                                                                                                  #  SUBROUTINES USED
027372,001257:                                                                                                  #        VECSHIFT
027373,001258:                                                                                                  #        TIMETHET
027374,001259:                                                                                                  #        SHIFTR1
027375,001260: 
027376,001261: 34,3133           77220        CDHMVR             STQ      VLOAD                                 
027377,001262: 34,3134           03470                                    SUBEXIT                               
027378,001263: 34,3135           02311                                    RACT2                                 
027379,001264: 34,3136           53406                           PUSH     UNIT                                  
027380,001265: 34,3137           27544                           STOVL    UNVEC                                 #  UR SUB A
027381,001266: 34,3140           03522                                    RPASS2                                
027382,001267: 34,3141           50256                           UNIT     DOT                                   
027383,001268: 34,3142           03544                                    UNVEC                                 
027384,001269: 34,3143           72406                           PUSH     SL1                                   
027385,001270: 34,3144           16732                           STODL    CSTH                                  
027386,001271: 34,3145           65316                           DSQ      PDDL                                  
027387,001272: 34,3146           06512                                    DP1/4TH                               
027388,001273: 34,3147           45302                           SR2      DSU                                   
027389,001274: 34,3150           72566                           SQRT     SL1                                   
027390,001275: 34,3151           57515                           PDVL     VCOMP                                 
027391,001276: 34,3152           77635                           VXV                                            
027392,001277: 34,3153           03522                                    RPASS2                                
027393,001278: 34,3154           65241                           DOT      PDDL                                  
027394,001279: 34,3155           02261                                    UP1                                   
027395,001280: 34,3156           45565                           SIGN     STADR                                 
027396,001281: 34,3157           51047                           STOVL    SNTH                                  
027397,001282: 34,3160           03522                                    RPASS2                                
027398,001283: 34,3161           45115                           PDVL     CALL                                  
027399,001284: 34,3162           03530                                    VPASS2                                
027400,001285: 34,3163           46416                                    VECSHIFT                              
027401,001286: 34,3164           26744                           STOVL    VVEC                                  
027402,001287: 34,3165           77614                           CLEAR                                          
027403,001288: 34,3166           03666                                    RVSW                                  
027404,001289: 34,3167           36655                           STCALL   RVEC                                  
027405,001290: 34,3170           24732                                    TIMETHET                              
027406,001291: 34,3171           53754                           LXA,2    VSL*                                  
027407,001292: 34,3172           02777                                    RTX2                                  
027408,001293: 34,3173           57576                                    0,2                                   
027409,001294: 34,3174           00023                           STORE    18D                                   
027410,001295: 34,3175           76441                           DOT      SL1R                                  
027411,001296: 34,3176           03544                                    UNVEC                                 
027412,001297: 34,3177           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
027413,001298: 34,3200           63257                           SL*      PDVL                                  
027414,001299: 34,3201           57576                                    0,2                                   
027415,001300: 34,3202           02311                                    RACT2                                 
027416,001301: 34,3203           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
027417,001302: 34,3204           77625                           DSU                                            

Page 648

027419,001304: 34,3205           00003                                    02D                                   
027420,001305: 34,3206           17600                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
027421,001306: 34,3207           02742                                    R1A                                   
027422,001307: 34,3210           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
027423,001308: 34,3211           00047                                    X1                                    
027424,001309: 34,3212           00041                                    R1                                    
027425,001310: 34,3213           77624                           CALL                                           
027426,001311: 34,3214           46426                                    SHIFTR1                               
027427,001312: 34,3215           56362                           SR1R     DDV                                   
027428,001313: 34,3216           41457                           SL*      PUSH                                  
027429,001314: 34,3217           20174                                    0          -5,1                       
027430,001315: 34,3220           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
027431,001316: 34,3221           03600                                    DIFFALT                               
027432,001317: 34,3222           56302                           SR2      DDV                                   #  A SUB P                       B+31
027433,001318: 34,3223           00005                                    04D                                   #                                B+2
027434,001319: 34,3224           75406                           PUSH     SQRT                                  #  A SUB P/A SUB A                       06D
027435,001320: 34,3225           41275                           DMPR     DMP                                   
027436,001321: 34,3226           00007                                    06D                                   
027437,001322: 34,3227           00001                                    00D                                   
027438,001323: 34,3230           65272                           SL3R     PDDL                                  #  V SUB AV METERS/CS            B+7     08D
027439,001324: 34,3231           00003                                    02D                                   #  R SUB A MAGNITUDE             B+29
027440,001325: 34,3232           65301                           NORM     PDDL                                  
027441,001326: 34,3233           00047                                    X1                                    
027442,001327: 34,3234           02321                                    RTMU                                  
027443,001328: 34,3235           56342                           SR1      DDV                                   #  2MU                           B+38
027444,001329: 34,3236           65257                           SL*      PDDL                                  #  2 MU/R SUBAA                  B+14    10D
027445,001330: 34,3237           20174                                    0          -5,1                       
027446,001331: 34,3240           00005                                    04D                                   #  ASUBA                         B+29
027447,001332: 34,3241           65301                           NORM     PDDL                                  
027448,001333: 34,3242           00050                                    X2                                    
027449,001334: 34,3243           02321                                    RTMU                                  
027450,001335: 34,3244           56342                           SR1      DDV                                   
027451,001336: 34,3245           44257                           SL*      BDSU                                  
027452,001337: 34,3246           57604                                    0          -6,2                       #  2U/R - U/A            B+14 (METERS/CS)SQ
027453,001338: 34,3247           63525                           PDDL     DSQ                                   #                                        10D
027454,001339: 34,3250           00011                                    08D                                   
027455,001340: 34,3251           75421                           BDSU     SQRT                                  
027456,001341: 34,3252           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)  10D
027457,001342: 34,3253           02261                                    UP1                                   
027458,001343: 34,3254           03544                                    UNVEC                                 
027459,001344: 34,3255           74256                           UNIT     VXSC                                  
027460,001345: 34,3256           00013                                    10D                                   
027461,001346: 34,3257           74315                           PDVL     VXSC                                  
027462,001347: 34,3260           03544                                    UNVEC                                 
027463,001348: 34,3261           00011                                    08D                                   
027464,001349: 34,3262           76455                           VAD      VSL1                                  
027465,001350: 34,3263           77626                           STADR                                          
027466,001351: 34,3264           74233                           STORE    VACT3                                 
027467,001352: 34,3265           77651                           VSU                                            
027468,001353: 34,3266           03514                                    VACT2                                 

Page 649

027470,001355: 34,3267           36275                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
027471,001356: 34,3270           03470                                    SUBEXIT                               
027472,001357: 

Page 650

027474,001359:                                                                                                  #  ..... COMPTGO .....
027475,001360: 
027476,001361:                                                                                                  #  SUBROUTINES USED
027477,001362:                                                                                                  #        CLOKTASK
027478,001363:                                                                                                  #        2PHSCHNG
027479,001364: 
027480,001365: 35,2432                                           BANK     35                                    
027481,001366: 35,2000                                           SETLOC   CSI/CDH                               
027482,001367: 35,2000                                           BANK                                           
027483,001368: 
027484,001369: 35,2432  E7,1465                                  EBANK=   RTRN                                  
027485,001370: 
027486,001371: 35,2432                                           COUNT*   $$/P3575                              
027487,001372: 
027488,001373: 35,2432           00006        COMPTGO            EXTEND                                         
027489,001374: 35,2433           23465                           QXCH     RTRN                                  
027490,001375: 35,2434           34755                           CAF      ZERO                                  
027491,001376: 35,2435           55163                           TS       DISPDEX                               
027492,001377: 35,2436           34752                           CAF      BIT2                                  
027493,001378: 35,2437           00004                           INHINT                                         
027494,001379: 35,2440           05203                           TC       WAITLIST                              
027495,001380: 35,2441  E7,1455                                  EBANK=   WHICH                                 
027496,001381: 35,2441           02717 74067                     2CADR    CLOKTASK                              
027497,001382: 
027498,001383: 35,2443           05327                           TC       2PHSCHNG                              
027499,001384: 35,2444           40036                           OCT      40036                                 
027500,001385: 35,2445           05024                           OCT      05024                                 
027501,001386: 35,2446           13000                           OCT      13000                                 
027502,001387: 35,2447           01465                           TC       RTRN                                  
027503,001388: 

End of include-file P32-P35,_P72-P75.agc.  Parent file is MAIN.agc