Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

026500,000002:                                                                                                  ## Copyright:   Public domain.
026501,000003:                                                                                                  ## Filename:    P32-P35,_P72-P75.agc
026502,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
026503,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM) 
026504,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
026505,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
026506,000008:                                                                                                  ##              that the code format has been changed to conform to the
026507,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
026508,000010:                                                                                                  ##              original YUL assembler.
026509,000011:                                                                                                  ## Reference:   pp. 621-653
026510,000012:                                                                                                  ## Assembler:   yaYUL
026511,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
026512,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
026513,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
026514,000016:                                                                                                  ##              2017-02-07 RSB  Comment-text corrections identified while 
026515,000017:                                                                                                  ##                              proofing Artemis 72.
026516,000018:                                                                                                  ##              2017-03-09 RSB  Transcribed, and then proofed comment-text using
026517,000019:                                                                                                  ##                              3-way diff vs Luminary 99 and Luminary 131.
026518,000020:                                                                                                  ##                              (Admittedly, the former is more for detecting errors
026519,000021:                                                                                                  ##                              in Luminary 99 than the other way around.)
026520,000022:                                                                                                  ##              2017-03-14 RSB  Proofed comment text via 3-way diff vs
026521,000023:                                                                                                  ##                              Luminary 99 and 131 ... no problems found.
026522,000024: 

Page 621

026524,000026:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
026525,000027: 
026526,000028:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
026527,000029:                                                                                                  #  MOD BY WHITE.P        DATE 1 JUNE 67
026528,000030: 
026529,000031:                                                                                                  #  PURPOSE
026530,000032: 
026531,000033:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
026532,000034:                                                                                                  #                CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
026533,000035:                                                                                                  #                INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
026534,000036:                                                                                                  #                (CDH) MANEUVER.
026535,000037: 
026536,000038:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
026537,000039:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
026538,000040: 
026539,000041:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
026540,000042:                                                                                                  #                ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
026541,000043:                                                                                                  #                APPROVAL BY THE ASTRONAUT/GROUND.
026542,000044: 
026543,000045:                                                                                                  #        (4)     TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
026544,000046:                                                                                                  #                THRUSTING PROGRAM.
026545,000047: 
026546,000048:                                                                                                  #  ASSUMPTIONS
026547,000049: 
026548,000050:                                                                                                  #        (1)     AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
026549,000051:                                                                                                  #                AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
026550,000052:                                                                                                  #                FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
026551,000053:                                                                                                  #                POSITION.
026552,000054: 
026553,000055:                                                                                                  #        (2)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
026554,000056:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
026555,000057:                                                                                                  #                COMPLETION OF THE PROGRAM.
026556,000058: 
026557,000059:                                                                                                  #        (3)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
026558,000060:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
026559,000061:                                                                                                  #                COMPLETION OF THE PROGRAM.
026560,000062: 
026561,000063:                                                                                                  #        (4)     CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
026562,000064:                                                                                                  #                ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
026563,000065: 
026564,000066:                                                                                                  #        (5)     CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
026565,000067:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
026566,000068:                                                                                                  #                IGNITION.
026567,000069: 
026568,000070:                                                                                                  #        (6)     THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
026569,000071:                                                                                                  #                MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
026570,000072:                                                                                                  #                ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
026571,000073: 
026572,000074:                                                                                                  #        (7)     THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
026573,000075:                                                                                                  #                PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW

Page 622

026575,000077:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
026576,000078:                                                                                                  #                OUT-OF-PLANE CSI MANEUVER.
026577,000079: 
026578,000080:                                                                                                  #        (8)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
026579,000081:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
026580,000082: 
026581,000083:                                                                                                  #        (9)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
026582,000084:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
026583,000085:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
026584,000086:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
026585,000087: 
026586,000088:                                                                                                  #        (10)    THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
026587,000089:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
026588,000090:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
026589,000091:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
026590,000092:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
026591,000093:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
026592,000094:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
026593,000095:                                                                                                  #                THRUSTING MANEUVER.
026594,000096: 
026595,000097:                                                                                                  #        (11)    THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
026596,000098: 
026597,000099:                                                                                                  #        (12)    THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
026598,000100: 
026599,000101:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
026600,000102:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
026601,000103:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
026602,000104:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
026603,000105: 
026604,000106:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
026605,000107:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
026606,000108:                                                                                                  #                        CYCLE.
026607,000109: 
026608,000110:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
026609,000111:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
026610,000112:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
026611,000113:                                                                                                  #                        PROGRAM.
026612,000114: 
026613,000115:                                                                                                  #        (13)    IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
026614,000116:                                                                                                  #                A THRUSTING MANEUVER.
026615,000117: 
026616,000118:                                                                                                  #        (14)    THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
026617,000119: 
026618,000120:                                                                                                  #                        P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
026619,000121: 
026620,000122:                                                                                                  #                        P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
026621,000123: 
026622,000124:                                                                                                  #  INPUT
026623,000125: 
026624,000126:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
026625,000127: 

Page 623

026627,000129:                                                                                                  #        (2)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
026628,000130:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
026629,000131:                                                                                                  #                                MANEUVER POINT
026630,000132:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
026631,000133:                                                                                                  #        (4)     TTPI            TIME OF THE TPI MANEUVER
026632,000134: 
026633,000135:                                                                                                  #  OUTPUT
026634,000136: 
026635,000137:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
026636,000138:                                                                                                  #        (2)     TTOGO           TIME TO GO
026637,000139:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
026638,000140:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
026639,000141:                                                                                                  #        (5)     T1TOT2          DELTA TIME FROM CSI TO CDH
026640,000142:                                                                                                  #        (6)     T2TOT3          DELTA TIME FROM CDH TO TPI
026641,000143:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
026642,000144:                                                                                                  #        (8)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
026643,000145: 
026644,000146:                                                                                                  #  DOWNLINK
026645,000147: 
026646,000148:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
026647,000149:                                                                                                  #        (2)     TCDH            TIME OF THE CDH MANEUVER
026648,000150:                                                                                                  #        (3)     TTPI            TIME OF THE TPI MANEUVER
026649,000151:                                                                                                  #        (4)     TIG             TIME OF THE CSI MANEUVER
026650,000152:                                                                                                  #        (5)     DELVEET1        DELTA VELOCITY AT CSI - REFERENCE COORDINATES
026651,000153:                                                                                                  #        (6)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
026652,000154:                                                                                                  #        (7)     DIFFALT         DELTA ALTITUDE AT CDH
026653,000155:                                                                                                  #        (8)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
026654,000156:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
026655,000157:                                                                                                  #                                MANEUVER POINT
026656,000158:                                                                                                  #        (9)     ELEV            DESIRED LOS ANGLE AT TPI
026657,000159: 
026658,000160:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
026659,000161: 
026660,000162:                                                                                                  #        (1)     TIG             TIME OF THE CSI MANEUVER
026661,000163:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
026662,000164:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
026663,000165:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
026664,000166:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
026665,000167:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CSI - REFERENCE COORDINATES
026666,000168:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CSI
026667,000169:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
026668,000170: 
026669,000171:                                                                                                  #  SUBROUTINES USED
026670,000172: 
026671,000173:                                                                                                  #        AVFLAGA
026672,000174:                                                                                                  #        AVFLAGP
026673,000175:                                                                                                  #        P20FLGON
026674,000176:                                                                                                  #        VARALARM
026675,000177:                                                                                                  #        BANKCALL
026676,000178:                                                                                                  #        GOFLASH
026677,000179:                                                                                                  #        GOTOPOOH

Page 624

026679,000181:                                                                                                  #        VNPOOH
026680,000182:                                                                                                  #        GOFLASHR
026681,000183:                                                                                                  #        BLANKET
026682,000184:                                                                                                  #        ENDOFJOB
026683,000185:                                                                                                  #        SELECTMU
026684,000186:                                                                                                  #        ADVANCE
026685,000187:                                                                                                  #        INTINT
026686,000188:                                                                                                  #        PASSIVE
026687,000189:                                                                                                  #        CSI/A
026688,000190:                                                                                                  #        S32/33.1
026689,000191:                                                                                                  #        DISDVLVC
026690,000192:                                                                                                  #        VN1645
026691,000193: 
026692,000194: 35,2034                                           BANK     35                                    
026693,000195: 35,2000                                           SETLOC   CSI/CDH                               
026694,000196: 35,2000                                           BANK                                           
026695,000197: 35,2034  E7,1470                                  EBANK=   SUBEXIT                               
026696,000198: 35,2034                                           COUNT*   $$/P3272                              
026697,000199: 35,2034           02354        P32                TC       AVFLAGA                               
026698,000200: 35,2035           02037                           TC       P32STRT                               
026699,000201: 35,2036           02361        P72                TC       AVFLAGP                               
026700,000202: 35,2037           00006        P32STRT            EXTEND                                         
026701,000203: 35,2040           32425                           DCA      P30ZERO                               
026702,000204: 35,2041           53621                           DXCH     CENTANG                               
026703,000205: 35,2042           02060                           TC       P32/P72A                              
026704,000206: 35,2043           77734        ALMXITA            SXA,2                                          
026705,000207: 35,2044           03613                                    CSIALRM                               
026706,000208: 35,2045           77740        ALMXIT             LXC,1                                          
026707,000209: 35,2046           03613                                    CSIALRM                               
026708,000210: 35,2047           77533                           SLOAD*   EXIT                                  
026709,000211: 35,2050           32430                                    ALARM/TB   -1,1                       
026710,000212: 35,2051           30154                           CA       MPAC                                  
026711,000213: 35,2052           05734                           TC       VARALARM                              
026712,000214: 35,2053           35006                           CAF      V05N09                                
026713,000215: 35,2054           04616                           TC       BANKCALL                              
026714,000216: 35,2055           20477                           CADR     GOFLASH                               
026715,000217: 35,2056           06001                           TC       GOTOPOOH                              
026716,000218: 35,2057           02053                           TC       -4                                    
026717,000219: 35,2060           02366        P32/P72A           TC       P20FLGON                              
026718,000220: 35,2061           32424                           CAF      P30ZERO                               
026719,000221: 35,2062           55467                           TS       NN         +1                         
026720,000222: 35,2063           55633                           TS       TCSI                                  
026721,000223: 35,2064           55634                           TS       TCSI       +1                         
026722,000224: 35,2065           32415        VN0611             CAF      V06N11                                #  TCSI
026723,000225: 35,2066           03621                           TC       VNPOOH                                
026724,000226: 35,2067           06042                           TC       INTPRET                               
026725,000227: 35,2070           57545                           DLOAD    DCOMP                                 
026726,000228: 35,2071           03634                                    TCSI                                  
026727,000229: 35,2072           71240                           BMN      DLOAD                                 
026728,000230: 35,2073           72120                                    VN0655                                

Page 625

026730,000232: 35,2074           01643                                    TETLEM                                
026731,000233: 35,2075           34041                           STCALL   TDEC1                                 
026732,000234: 35,2076           46403                                    PRECSET                               
026733,000235: 35,2077           53775                           VLOAD    VSR*                                  
026734,000236: 35,2100           03536                                    RACT3                                 
026735,000237: 35,2101           57176                                    0,2                                   
026736,000238: 35,2102           26655                           STOVL    RVEC                                  
026737,000239: 35,2103           03544                                    VACT3                                 
026738,000240: 35,2104           43057                           VSR*     SET                                   
026739,000241: 35,2105           57176                                    0,2                                   
026740,000242: 35,2106           03466                                    RVSW                                  
026741,000243: 35,2107           16744                           STODL    VVEC                                  
026742,000244: 35,2110           06532                                    DPPOSMAX                              
026743,000245: 35,2111           36756                           STCALL   RDESIRED                              
026744,000246: 35,2112           25557                                    TIMERAD                               
026745,000247: 35,2113           77615                           DAD                                            
026746,000248: 35,2114           03574                                    TDEC2                                 
026747,000249: 35,2115           03634                           STORE    TCSI                                  
026748,000250: 35,2116           77776                           EXIT                                           
026749,000251: 35,2117           02065                           TC       VN0611                                
026750,000252: 35,2120           77776        VN0655             EXIT                                           
026751,000253: 35,2121           33633                           CAF      V06N55                                #  NN, ELEV(RGLOS)
026752,000254: 35,2122           04616                           TC       BANKCALL                              
026753,000255: 35,2123           20477                           CADR     GOFLASH                               
026754,000256: 35,2124           06001                           TC       GOTOPOOH                              
026755,000257: 35,2125           02127                           TC       +2                                    
026756,000258: 35,2126           02121                           TC       -5                                    
026757,000259: 35,2127           33632                           CAF      V06N37                                #  TTPI
026758,000260: 35,2130           03621                           TC       VNPOOH                                
026759,000261: 35,2131           06042                           TC       INTPRET                               
026760,000262: 35,2132           77745                           DLOAD                                          
026761,000263: 35,2133           03634                                    TCSI                                  
026762,000264: 35,2134           37442                           STCALL   TIG                                   
026763,000265: 35,2135           20000                                    SELECTMU                              
026764,000266: 35,2136           77624        P32/P72B           CALL                                           
026765,000267: 35,2137           71016                                    ADVANCE                               
026766,000268: 35,2140           77201                           SETPD    VLOAD                                 
026767,000269: 35,2141           00001                                    0D                                    
026768,000270: 35,2142           03506                                    VPASS1                                
026769,000271: 35,2143           65315                           PDVL     PDDL                                  
026770,000272: 35,2144           03500                                    RPASS1                                
026771,000273: 35,2145           03634                                    TCSI                                  
026772,000274: 35,2146           65325                           PDDL     PDDL                                  
026773,000275: 35,2147           03636                                    TTPI                                  
026774,000276: 35,2150           33641                                    TWOPI                                 
026775,000277: 35,2151           45006                           PUSH     CALL                                  
026776,000278: 35,2152           73376                                    INTINT                                
026777,000279: 35,2153           77624                           CALL                                           
026778,000280: 35,2154           46435                                    PASSIVE                               
026779,000281: 35,2155           77624                           CALL                                           

Page 626

026781,000283: 35,2156           70113                                    CSI/A                                 
026782,000284: 35,2157           43014        P32/P72C           BON      SET                                   
026783,000285: 35,2160           01311                                    FINALFLG                              
026784,000286: 35,2161           72163                                    P32/P72D                              
026785,000287: 35,2162           00470                                    UPDATFLG                              
026786,000288: 35,2163           77745        P32/P72D           DLOAD                                          
026787,000289: 35,2164           02253                                    T1TOT2                                
026788,000290: 35,2165           02253        P32/P72E           STORE    T1TOT2                                
026789,000291: 35,2166           51025                           DSU      BPL                                   
026790,000292: 35,2167           32427                                    60MIN                                 
026791,000293: 35,2170           72165                                    P32/P72E                              
026792,000294: 35,2171           77745                           DLOAD                                          
026793,000295: 35,2172           02255                                    T2TOT3                                
026794,000296: 35,2173           02255        P32/P72F           STORE    T2TOT3                                
026795,000297: 35,2174           51025                           DSU      BPL                                   
026796,000298: 35,2175           32427                                    60MIN                                 
026797,000299: 35,2176           72173                                    P32/P72F                              
026798,000300: 35,2177           77776                           EXIT                                           
026799,000301: 35,2200           32417                           CAF      V06N75                                
026800,000302: 35,2201           03621                           TC       VNPOOH                                
026801,000303: 35,2202           06042                           TC       INTPRET                               
026802,000304: 35,2203           45175                           VLOAD    CALL                                  
026803,000305: 35,2204           02267                                    DELVEET1                              
026804,000306: 35,2205           71100                                    S32/33.1                              
026805,000307: 35,2206           26267                           STOVL    DELVEET1                              
026806,000308: 35,2207           02311                                    RACT2                                 
026807,000309: 35,2210           26303                           STOVL    RACT1                                 
026808,000310: 35,2211           02275                                    DELVEET2                              
026809,000311: 35,2212           45170                           AXT,1    CALL                                  
026810,000312: 35,2213           01522                           VN       0682                                  
026811,000313: 35,2214           72375                                    DISDVLVC                              
026812,000314: 35,2215           77745                           DLOAD                                          
026813,000315: 35,2216           03636                                    TTPI                                  
026814,000316: 35,2217           37640                           STCALL   TTPIO                                 
026815,000317: 35,2220           73515                                    VN1645                                
026816,000318: 35,2221           77650                           GOTO                                           
026817,000319: 35,2222           72136                                    P32/P72B                              
026818,000320: 

Page 627

026820,000322:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
026821,000323:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
026822,000324:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
026823,000325: 
026824,000326:                                                                                                  #  PURPOSE
026825,000327: 
026826,000328:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
026827,000329:                                                                                                  #                ALTITUDE MANEUVER (CDH).
026828,000330: 
026829,000331:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
026830,000332:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
026831,000333: 
026832,000334:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
026833,000335:                                                                                                  #                ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
026834,000336:                                                                                                  #                ASTRONAUT/GROUND.
026835,000337: 
026836,000338:                                                                                                  #        (4)     TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
026837,000339:                                                                                                  #                THRUSTING PROGRAM.
026838,000340: 
026839,000341:                                                                                                  #  ASSUMPTIONS
026840,000342: 
026841,000343:                                                                                                  #        (1)     THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
026842,000344:                                                                                                  #                CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
026843,000345:                                                                                                  #                THERFORE -
026844,000346: 
026845,000347:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
026846,000348:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
026847,000349:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
026848,000350:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
026849,000351: 
026850,000352:                                                                                                  #                (B)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
026851,000353:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
026852,000354: 
026853,000355:                                                                                                  #                (C)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
026854,000356:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
026855,000357: 
026856,000358:                                                                                                  #                (D)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
026857,000359:                                                                                                  #                        ORBITS WAS MINMIZED.
026858,000360: 
026859,000361:                                                                                                  #                (E)     CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
026860,000362:                                                                                                  #                        IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
026861,000363:                                                                                                  #                        POSITION AT CSI IGNITION.
026862,000364: 
026863,000365:                                                                                                  #                (F)     THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
026864,000366:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
026865,000367:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
026866,000368: 
026867,000369:                                                                                                  #                (G)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
026868,000370:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW

Page 628

026870,000372:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
026871,000373:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
026872,000374: 
026873,000375:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
026874,000376:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
026875,000377: 
026876,000378:                                                                                                  #        (3)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
026877,000379:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
026878,000380:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
026879,000381:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
026880,000382: 
026881,000383:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
026882,000384:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
026883,000385:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
026884,000386:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
026885,000387:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
026886,000388:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
026887,000389:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
026888,000390:                                                                                                  #                THRUSTING MANEUVER.
026889,000391: 
026890,000392:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
026891,000393: 
026892,000394:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
026893,000395: 
026894,000396:                                                                                                  #                        ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
026895,000397:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
026896,000398:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
026897,000399:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
026898,000400: 
026899,000401:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
026900,000402:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
026901,000403:                                                                                                  #                        CYCLE.
026902,000404: 
026903,000405:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
026904,000406:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
026905,000407:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
026906,000408:                                                                                                  #                        PROGRAM.
026907,000409: 
026908,000410:                                                                                                  #        (7)     IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
026909,000411:                                                                                                  #                A THRUSTING MANEUVER.
026910,000412: 
026911,000413:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
026912,000414: 
026913,000415:                                                                                                  #                        P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
026914,000416: 
026915,000417:                                                                                                  #                        P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
026916,000418: 
026917,000419:                                                                                                  #  INPUT
026918,000420: 
026919,000421:                                                                                                  #        (1)     TTPI0   TIME OF THE TPI MANEUVER - SAVED FROM P32/P72

Page 629

026921,000423:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
026922,000424:                                                                                                  #        (3)     TCDH    TIME OF THE CDH MANEUVER
026923,000425: 
026924,000426:                                                                                                  #  OUTPUT
026925,000427: 
026926,000428:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
026927,000429:                                                                                                  #        (2)     TTOGO           TIME TO GO
026928,000430:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
026929,000431:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
026930,000432:                                                                                                  #        (5)     T2TOT3          DELTA TIME FROM CDH TO COMPUTED TPI
026931,000433:                                                                                                  #        (6)     NOMTPI          DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
026932,000434:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
026933,000435: 
026934,000436:                                                                                                  #  DOWNLINK
026935,000437: 
026936,000438:                                                                                                  #        (1)     TCDH            TIME OF THE CDH MANEUVER
026937,000439:                                                                                                  #        (2)     TTPI            TIME OF THE TPI MANEUVER
026938,000440:                                                                                                  #        (3)     TIG             TIME OF THE CDH MANEUVER
026939,000441:                                                                                                  #        (4)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
026940,000442:                                                                                                  #        (5)     DIFFALT         DELTA ALTITUDE AT CDH
026941,000443:                                                                                                  #        (6)     ELEV            DESIRED LOS ANGLE AT TPI
026942,000444: 
026943,000445:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
026944,000446: 
026945,000447:                                                                                                  #        (1)     TIG             TIME OF THE CDH MANEUVER
026946,000448:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
026947,000449:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
026948,000450:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
026949,000451:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
026950,000452:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CDH - REFERENCE COORDINATES
026951,000453:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CDH
026952,000454:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
026953,000455: 
026954,000456:                                                                                                  #  SUBROUTINES USED
026955,000457: 
026956,000458:                                                                                                  #        AVFLAGA
026957,000459:                                                                                                  #        AVFLAGP
026958,000460:                                                                                                  #        P20FLGON
026959,000461:                                                                                                  #        VNPOOH
026960,000462:                                                                                                  #        SELECTMU
026961,000463:                                                                                                  #        ADVANCE
026962,000464:                                                                                                  #        CDHMVR
026963,000465:                                                                                                  #        INTINT3P
026964,000466:                                                                                                  #        ACTIVE
026965,000467:                                                                                                  #        PASSIVE
026966,000468:                                                                                                  #        S33/34.1
026967,000469:                                                                                                  #        ALARM
026968,000470:                                                                                                  #        BANKCALL
026969,000471:                                                                                                  #        GOFLASH
026970,000472:                                                                                                  #        GOTOPOOH
026971,000473:                                                                                                  #        S32/33.1

Page 630

026973,000475:                                                                                                  #        VN1645
026974,000476: 
026975,000477: 35,2223                                           COUNT*   $$/P3373                              
026976,000478: 35,2223           02354        P33                TC       AVFLAGA                               
026977,000479: 35,2224           02226                           TC       P33/P73A                              
026978,000480: 35,2225           02361        P73                TC       AVFLAGP                               
026979,000481: 35,2226           02366        P33/P73A           TC       P20FLGON                              
026980,000482: 35,2227           32416                           CAF      V06N13                                #  TCDH
026981,000483: 35,2230           03621                           TC       VNPOOH                                
026982,000484: 35,2231           06042                           TC       INTPRET                               
026983,000485: 35,2232           77745                           DLOAD                                          
026984,000486: 35,2233           03640                                    TTPIO                                 
026985,000487: 35,2234           17636                           STODL    TTPI                                  
026986,000488: 35,2235           01777                                    TCDH                                  
026987,000489: 35,2236           37442                           STCALL   TIG                                   
026988,000490: 35,2237           20000                                    SELECTMU                              
026989,000491: 35,2240           77624        P33/P73B           CALL                                           
026990,000492: 35,2241           71016                                    ADVANCE                               
026991,000493: 35,2242           77624                           CALL                                           
026992,000494: 35,2243           71133                                    CDHMVR                                
026993,000495: 35,2244           77201                           SETPD    VLOAD                                 
026994,000496: 35,2245           00001                                    0D                                    
026995,000497: 35,2246           03544                                    VACT3                                 
026996,000498: 35,2247           45115                           PDVL     CALL                                  
026997,000499: 35,2250           02311                                    RACT2                                 
026998,000500: 35,2251           71071                                    INTINT3P                              
026999,000501: 35,2252           77624                           CALL                                           
027000,000502: 35,2253           46425                                    ACTIVE                                
027001,000503: 35,2254           77201                           SETPD    VLOAD                                 
027002,000504: 35,2255           00001                                    0D                                    
027003,000505: 35,2256           03530                                    VPASS2                                
027004,000506: 35,2257           45115                           PDVL     CALL                                  
027005,000507: 35,2260           03522                                    RPASS2                                
027006,000508: 35,2261           71071                                    INTINT3P                              
027007,000509: 35,2262           77624                           CALL                                           
027008,000510: 35,2263           46435                                    PASSIVE                               
027009,000511: 35,2264           43145                           DLOAD    SET                                   
027010,000512: 35,2265           32425                                    P30ZERO                               
027011,000513: 35,2266           03460                                    ITSWICH                               
027012,000514: 35,2267           36317                           STCALL   NOMTPI                                
027013,000515: 35,2270           72674                                    S33/34.1                              
027014,000516: 35,2271           77454                           BZE      EXIT                                  
027015,000517: 35,2272           72307                                    P33/P73C                              
027016,000518: 35,2273           05567                           TC       ALARM                                 
027017,000519: 35,2274           00611                           OCT      611                                   
027018,000520: 35,2275           35006                           CAF      V05N09                                
027019,000521: 35,2276           04616                           TC       BANKCALL                              
027020,000522: 35,2277           20477                           CADR     GOFLASH                               
027021,000523: 35,2300           06001                           TC       GOTOPOOH                              
027022,000524: 35,2301           02303                           TC       +2                                    

Page 631

027024,000526: 35,2302           02226                           TC       P33/P73A                              
027025,000527: 35,2303           06042                           TC       INTPRET                               
027026,000528: 35,2304           77745                           DLOAD                                          
027027,000529: 35,2305           32425                                    P30ZERO                               
027028,000530: 35,2306           02317                           STORE    NOMTPI                                
027029,000531: 35,2307           43014        P33/P73C           BON      SET                                   
027030,000532: 35,2310           01311                                    FINALFLG                              
027031,000533: 35,2311           72313                                    P33/P73D                              
027032,000534: 35,2312           00470                                    UPDATFLG                              
027033,000535: 35,2313           43345        P33/P73D           DLOAD    DAD                                   
027034,000536: 35,2314           02317                                    NOMTPI                                
027035,000537: 35,2315           03636                                    TTPI                                  
027036,000538: 35,2316           03636                           STORE    TTPI                                  
027037,000539: 35,2317           77625                           DSU                                            
027038,000540: 35,2320           01777                                    TCDH                                  
027039,000541: 35,2321           51025        P33/P73E           DSU      BPL                                   
027040,000542: 35,2322           32427                                    60MIN                                 
027041,000543: 35,2323           72321                                    P33/P73E                              
027042,000544: 35,2324           77615                           DAD                                            
027043,000545: 35,2325           32427                                    60MIN                                 
027044,000546: 35,2326           16253                           STODL    T1TOT2                                
027045,000547: 35,2327           03636                                    TTPI                                  
027046,000548: 35,2330           41425                           DSU      PUSH                                  
027047,000549: 35,2331           03640                                    TTPIO                                 
027048,000550: 35,2332           45246        P33/P73F           ABS      DSU                                   
027049,000551: 35,2333           32427                                    60MIN                                 
027050,000552: 35,2334           43244                           BPL      DAD                                   
027051,000553: 35,2335           72332                                    P33/P73F                              
027052,000554: 35,2336           32427                                    60MIN                                 
027053,000555: 35,2337           45565                           SIGN     STADR                                 
027054,000556: 35,2340           75522                           STORE    T2TOT3                                
027055,000557: 35,2341           77776                           EXIT                                           
027056,000558: 35,2342           32417                           CAF      V06N75                                
027057,000559: 35,2343           03621                           TC       VNPOOH                                
027058,000560: 35,2344           06042                           TC       INTPRET                               
027059,000561: 35,2345           45175                           VLOAD    CALL                                  
027060,000562: 35,2346           02275                                    DELVEET2                              
027061,000563: 35,2347           71100                                    S32/33.1                              
027062,000564: 35,2350           36275                           STCALL   DELVEET2                              
027063,000565: 35,2351           73515                                    VN1645                                
027064,000566: 35,2352           77650                           GOTO                                           
027065,000567: 35,2353           72240                                    P33/P73B                              
027066,000568: 

Page 632

027068,000570:                                                                                                  #  ..... AVFLAGA/P .....
027069,000571: 
027070,000572:                                                                                                  #  SUBROUTINES USED
027071,000573: 
027072,000574:                                                                                                  #        UPFLAG
027073,000575:                                                                                                  #        DOWNFLAG
027074,000576: 
027075,000577: 35,2354           00006        AVFLAGA            EXTEND                                         #  AVFLAG = LEM
027076,000578: 35,2355           23470                           QXCH     SUBEXIT                               
027077,000579: 35,2356           05504                           TC       UPFLAG                                
027078,000580: 35,2357           00050                           ADRES    AVFLAG                                
027079,000581: 35,2360           01470                           TC       SUBEXIT                               
027080,000582: 35,2361           00006        AVFLAGP            EXTEND                                         #  AVFLAG = CSM
027081,000583: 35,2362           23470                           QXCH     SUBEXIT                               
027082,000584: 35,2363           05516                           TC       DOWNFLAG                              
027083,000585: 35,2364           00050                           ADRES    AVFLAG                                
027084,000586: 35,2365           01470                           TC       SUBEXIT                               
027085,000587: 35,2366           00006        P20FLGON           EXTEND                                         
027086,000588: 35,2367           23470                           QXCH     SUBEXIT                               
027087,000589: 35,2370           05504                           TC       UPFLAG                                
027088,000590: 35,2371           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG
027089,000591: 35,2372           05504                           TC       UPFLAG                                
027090,000592: 35,2373           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG
027091,000593: 35,2374           01470                           TC       SUBEXIT                               
027092,000594: 

Page 633

027094,000596:                                                                                                  #  ..... DISDVLVC .....
027095,000597: 
027096,000598:                                                                                                  #  SUBROUTINES USED
027097,000599: 
027098,000600:                                                                                                  #        S32/33.X
027099,000601:                                                                                                  #        VNPOOH
027100,000602: 
027101,000603: 35,2375           03434        DISDVLVC           STORE    DELVLVC                               
027102,000604: 35,2376           45020                           STQ      CALL                                  
027103,000605: 35,2377           03463                                    NORMEX                                
027104,000606: 35,2400           71120                                    S32/33.X                              
027105,000607: 35,2401           64375                           VLOAD    MXV                                   
027106,000608: 35,2402           03434                                    DELVLVC                               
027107,000609: 35,2403           00001                                    0D                                    
027108,000610: 35,2404           66172                           VSL1     SXA,1                                 
027109,000611: 35,2405           03615                                    VERBNOUN                              
027110,000612: 35,2406           03434                           STORE    DELVLVC                               
027111,000613: 35,2407           77776                           EXIT                                           
027112,000614: 35,2410           31615                           CA       VERBNOUN                              
027113,000615: 35,2411           03621                           TC       VNPOOH                                
027114,000616: 35,2412           06042                           TC       INTPRET                               
027115,000617: 35,2413           77650                           GOTO                                           
027116,000618: 35,2414           03463                                    NORMEX                                
027117,000619: 

Page 634

027119,000621:                                                                                                  #  ..... CONSTANTS .....
027120,000622: 
027121,000623: 35,2415           01413        V06N11             VN       0611                                  
027122,000624: 35,2416           01415        V06N13             VN       0613                                  
027123,000625: 35,2417           01513        V06N75             VN       0675                                  
027124,000626: 35,2420           77776 62460  SN359+             2DEC     -.000086601                            
027125,000627: 
027126,000628: 35,2422           17777 37776  CS359+             2DEC     +.499999992                            
027127,000629: 
027128,000630: 35,2424           00000 00000  P30ZERO            2DEC     0          B-28                       
027129,000631: 
027130,000632: 35,2426           00025 37100  60MIN              2DEC     360000     B-28                       
027131,000633: 
027132,000634: 35,2430           00600        ALARM/TB           OCT      00600                                 #  NO 1
027133,000635: 35,2431           00601                           OCT      00601                                 #     2
027134,000636: 35,2432           00602                           OCT      00602                                 #     3
027135,000637: 35,2433           00603                           OCT      00603                                 #     4
027136,000638: 35,2434           00604                           OCT      00604                                 #     5
027137,000639: 35,2435           00605                           OCT      00605                                 #     6
027138,000640: 35,2436           00606                           OCT      00606                                 #     7
027139,000641: 

Page 635

027141,000643:                                                                                                  #  ..... CSI/A .....
027142,000644: 
027143,000645:                                                                                                  #  SUBROUTINES USED
027144,000646: 
027145,000647:                                                                                                  #        VECSHIFT
027146,000648:                                                                                                  #        TIMETHET
027147,000649:                                                                                                  #        PERIAPO
027148,000650:                                                                                                  #        SHIFTR1
027149,000651:                                                                                                  #        INTINT2C
027150,000652:                                                                                                  #        CDHMVR
027151,000653:                                                                                                  #        PERIAPO1
027152,000654:                                                                                                  #        INTINT
027153,000655:                                                                                                  #        ACTIVE
027154,000656: 
027155,000657: 34,2057                                           BANK     34                                    
027156,000658: 34,2000                                           SETLOC   CSI/CDH1                              
027157,000659: 34,2000                                           BANK                                           
027158,000660: 34,2057  E7,1470                                  EBANK=   SUBEXIT                               
027159,000661: 34,2057                                           COUNT*   $$/CSI                                
027160,000662: 34,2057           00000 00020  LOOPMX             2DEC     16         B-28                       
027161,000663: 
027162,000664: 34,2061           00003 34661  INITST             2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
027163,000665: 
027164,000666: 34,2063           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #  MAXIMUM DV1 = 1000 FPS
027165,000667: 
027166,000668: 34,2065           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                 989 FPS
027167,000669: 
027168,000670: 34,2067           10000 00000  1DPB2              2DEC     1.0        B-2                        
027169,000671: 
027170,000672: 34,2071           00000 00001  1DPB28             2DEC     1          B-28                       
027171,000673: 
027172,000674: 34,2073           00004 31566  PMINE              2DEC     157420     B-29                       #  85 NM - MUST BE 8 WORDS BEFORE PMINM
027173,000675: 
027174,000676: 34,2075           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #  .1 FPS
027175,000677: 
027176,000678: 34,2077           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS (CHANGED FROM .05 FPS)
027177,000679: 
027178,000680: 34,2101           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #  50 FPS
027179,000681: 
027180,000682: 34,2103           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE
027181,000683: 
027182,000684: 34,2105           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #  200 FPS
027183,000685: 
027184,000686: 34,2107           00000 06433  ONETHTH            2DEC     .0001      B-3                        
027185,000687: 
027186,000688: 34,2111           00003 25140  TMIN               2DEC     60000      B-28                       #  10 MIN
027187,000689: 
027188,000690: 34,2113           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
027189,000691: 34,2114           03260                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
027190,000692: 34,2115           03061                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR

Page 636

027192,000694: 34,2116           43014                           CLEAR    SET                                   
027193,000695: 34,2117           03262                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
027194,000696: 34,2120           03063                                    S32.1F3B                              #  10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
027195,000697: 34,2121           77745                           DLOAD                                          
027196,000698: 34,2122           32425                                    P30ZERO                               
027197,000699: 34,2123           03606                           STORE    LOOPCT                                
027198,000700: 34,2124           03614                           STORE    CSIALRM                               
027199,000701: 34,2125           77201        CSI/B              SETPD    VLOAD                                 
027200,000702: 34,2126           00001                                    0D                                    
027201,000703: 34,2127           02303                                    RACT1                                 
027202,000704: 34,2130           41446                           ABVAL    PUSH                                  #  RA1                         B29 PL02D
027203,000705: 34,2131           70501                           NORM     SR1                                   
027204,000706: 34,2132           00050                                    X2                                    #                       B29-N2+ B1 PL04D
027205,000707: 34,2133           51515                           PDVL     ABVAL                                 
027206,000708: 34,2134           03552                                    RPASS3                                
027207,000709: 34,2135           55301                           NORM     BDDV                                  #  RA1/RP3                      B1 PL02D
027208,000710: 34,2136           00047                                    X1                                    
027209,000711: 34,2137           53664                           XSU,2    SR*                                   #                               B2
027210,000712: 34,2140           00046                                    X1                                    
027211,000713: 34,2141           57175                                    1,2                                   
027212,000714: 34,2142           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1      B29+B2=B31 PL00D
027213,000715: 34,2143           30070                                    1DPB2                                 
027214,000716: 34,2144           65301                           NORM     PDDL                                  #                                   PL02D
027215,000717: 34,2145           00047                                    X1                                    
027216,000718: 34,2146           02321                                    RTMU                                  
027217,000719: 34,2147           56342                           SR1      DDV                                   #                       B38-B31= B7 PL00D
027218,000720: 34,2150           75457                           SL*      SQRT                                  #                                B7
027219,000721: 34,2151           20172                                    0          -7,1                       
027220,000722: 34,2152           53515                           PDVL     UNIT                                  #                                   PL02D
027221,000723: 34,2153           02303                                    RACT1                                 
027222,000724: 34,2154           47315                           PDVL     VXV                                   
027223,000725: 34,2155           02261                                    UP1                                   
027224,000726: 34,2156           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
027225,000727: 34,2157           72441                           DOT      SL1                                   #  VA1 . UH1                     B7
027226,000728: 34,2160           03472                                    VACT1                                 
027227,000729: 34,2161           45421                           BDSU     STADR                                 #                                   PL00D
027228,000730: 34,2162           60203                           STODL    DELVCSI                               
027229,000731: 34,2163           30062                                    INITST                                #  10 FPS
027230,000732: 34,2164           03612                           STORE    DELDV                                 
027231,000733: 34,2165           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
027232,000734: 34,2166           03606                                    LOOPCT                                
027233,000735: 34,2167           30072                                    1DPB28                                
027234,000736: 34,2170           03606                           STORE    LOOPCT                                
027235,000737: 34,2171           77025                           DSU      AXT,2                                 
027236,000738: 34,2172           30060                                    LOOPMX                                
027237,000739: 34,2173           00006                                    6                                     
027238,000740: 34,2174           77644                           BPL                                            
027239,000741: 34,2175           70776                                    SCNDSOL                               
027240,000742: 34,2176           77601        CSI/B2             SETPD                                          
027241,000743: 34,2177           00001                                    0D                                    

Page 637

027243,000745: 34,2200           51545                           DLOAD    ABS                                   
027244,000746: 34,2201           03574                                    DELVCSI                               
027245,000747: 34,2202           50025                           DSU      BMN                                   
027246,000748: 34,2203           30064                                    DVMAX1                                
027247,000749: 34,2204           70224                                    CSI/B23                               
027248,000750: 34,2205           43174                           AXT,2    BON                                   
027249,000751: 34,2206           00007                                    7                                     
027250,000752: 34,2207           03300                                    S32.1F1                               
027251,000753: 34,2210           70776                                    SCNDSOL                               
027252,000754: 34,2211           43014                           BOFF     BON                                   
027253,000755: 34,2212           03342                                    S32.1F3A                              
027254,000756: 34,2213           70216                                    CSI/B22                               #  FLAG 3 NEQ 3
027255,000757: 34,2214           03303                                    S32.1F3B                              
027256,000758: 34,2215           70776                                    SCNDSOL                               
027257,000759: 34,2216           71214        CSI/B22            SET      DLOAD                                 
027258,000760: 34,2217           03060                                    S32.1F1                               
027259,000761: 34,2220           30066                                    DVMAX2                                
027260,000762: 34,2221           77765                           SIGN                                           
027261,000763: 34,2222           03574                                    DELVCSI                               
027262,000764: 34,2223           03574                           STORE    DELVCSI                               
027263,000765: 34,2224           41575        CSI/B23            VLOAD    PUSH                                  
027264,000766: 34,2225           02303                                    RACT1                                 
027265,000767: 34,2226           63256                           UNIT     PDVL                                  
027266,000768: 34,2227           02261                                    UP1                                   
027267,000769: 34,2230           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
027268,000770: 34,2231           76561                           VXSC     VSL1                                  
027269,000771: 34,2232           03574                                    DELVCSI                               
027270,000772: 34,2233           02267                           STORE    DELVEET1                              
027271,000773: 34,2234           40055                           VAD      BOV                                   
027272,000774: 34,2235           03472                                    VACT1                                 
027273,000775: 34,2236           70237                                    CSI/B23D                              
027274,000776: 34,2237           37566        CSI/B23D           STCALL   VACT4                                 
027275,000777: 34,2240           46441                                    VECSHIFT                              
027276,000778: 34,2241           26744                           STOVL    VVEC                                  
027277,000779: 34,2242           77614                           SET                                            
027278,000780: 34,2243           03466                                    RVSW                                  
027279,000781: 34,2244           26655                           STOVL    RVEC                                  
027280,000782: 34,2245           32421                                    SN359+                                
027281,000783: 34,2246           36730                           STCALL   SNTH                                  #  ALSO CSTH
027282,000784: 34,2247           24732                                    TIMETHET                              
027283,000785: 34,2250           72142                           SR1      LXA,1                                 
027284,000786: 34,2251           02776                                    RTX1                                  
027285,000787: 34,2252           37604                           STCALL   HAFPA1                                
027286,000788: 34,2253           46351                                    PERIAPO                               
027287,000789: 34,2254           77624                           CALL                                           
027288,000790: 34,2255           46451                                    SHIFTR1                               
027289,000791: 34,2256           17602                           STODL    POSTCSI                               
027290,000792: 34,2257           03621                                    CENTANG                               
027291,000793: 34,2260           52054                           BZE      GOTO                                  
027292,000794: 34,2261           70263                                    +2                                    

Page 638

027294,000796: 34,2262           70372                                    CIRCL                                 
027295,000797: 34,2263           77745                           DLOAD                                          
027296,000798: 34,2264           02752                                    ECC                                   
027297,000799: 34,2265           50025                           DSU      BMN                                   
027298,000800: 34,2266           30110                                    ONETHTH                               
027299,000801: 34,2267           70372                                    CIRCL                                 
027300,000802: 34,2270           45145                           DLOAD    CALL                                  
027301,000803: 34,2271           00041                                    R1                                    
027302,000804: 34,2272           46451                                    SHIFTR1                               
027303,000805: 34,2273           60201                           SETPD    NORM                                  
027304,000806: 34,2274           00003                                    2D                                    
027305,000807: 34,2275           00047                                    X1                                    
027306,000808: 34,2276           50315                           PDVL     DOT                                   #                                        PL04D
027307,000809: 34,2277           02303                                    RACT1                                 
027308,000810: 34,2300           03566                                    VACT4                                 
027309,000811: 34,2301           56246                           ABS      DDV                                   
027310,000812: 34,2302           00003                                    02D                                   #  (/RDOTV/)/R1             B36-B29= B7
027311,000813: 34,2303           45257                           SL*      DSU                                   
027312,000814: 34,2304           20201                                    0,1                                   
027313,000815: 34,2305           30100                                    NICKELDP                              
027314,000816: 34,2306           71240                           BMN      DLOAD                                 
027315,000817: 34,2307           70372                                    CIRCL                                 
027316,000818: 34,2310           02740                                    P                                     
027317,000819: 34,2311           45312                           SL2      DSU                                   
027318,000820: 34,2312           30070                                    1DPB2                                 
027319,000821: 34,2313           14017                           STODL    14D                                   
027320,000822: 34,2314           02317                                    RTSR1/MU                              
027321,000823: 34,2315           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1         B-16-B29 = B-45 PL02D
027322,000824: 34,2316           41325                           PDDL     DMP                                   
027323,000825: 34,2317           02740                                    P                                     
027324,000826: 34,2320           00041                                    R1                                    
027325,000827: 34,2321           77624                           CALL                                           
027326,000828: 34,2322           46451                                    SHIFTR1                               
027327,000829: 34,2323           72412                           SL4      SL1                                   
027328,000830: 34,2324           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1       B14+B-45 = B-31 PL02D
027329,000831: 34,2325           52414                           BOFF     SL3                                   
027330,000832: 34,2326           04343                                    CMOONFLG                              
027331,000833: 34,2327           70330                                    CSI/B3                                
027332,000834: 34,2330           50315        CSI/B3             PDVL     DOT                                   
027333,000835: 34,2331           02303                                    RACT1                                 
027334,000836: 34,2332           03566                                    VACT4                                 
027335,000837: 34,2333           03617                           STORE    RDOTV                                 
027336,000838: 34,2334           77646                           ABS                                            
027337,000839: 34,2335           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                  PL02D
027338,000840: 34,2336           00050                                    X2                                    
027339,000841: 34,2337           53660                           XSU,1    SL*                                   #                       B-31+B36-B3 = B2
027340,000842: 34,2340           00047                                    X2                                    
027341,000843: 34,2341           20204                                    3,1                                   
027342,000844: 34,2342           14015                           STODL    12D                                   
027343,000845: 34,2343           32425                                    P30ZERO                               

Page 639

027345,000847: 34,2344           00021                           STORE    16D                                   
027346,000848: 34,2345           53575                           VLOAD    UNIT                                  
027347,000849: 34,2346           00015                                    12D                                   
027348,000850: 34,2347           26730                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
027349,000851: 34,2350           02303                                    RACT1                                 
027350,000852: 34,2351           75315                           PDVL     SIGN                                  
027351,000853: 34,2352           03566                                    VACT4                                 
027352,000854: 34,2353           03617                                    RDOTV                                 
027353,000855: 34,2354           45076                           VCOMP    CALL                                  
027354,000856: 34,2355           46441                                    VECSHIFT                              
027355,000857: 34,2356           26744                           STOVL    VVEC                                  
027356,000858: 34,2357           77614                           SET                                            
027357,000859: 34,2360           03466                                    RVSW                                  
027358,000860: 34,2361           36655                           STCALL   RVEC                                  
027359,000861: 34,2362           24732                                    TIMETHET                              
027360,000862: 34,2363           51125                           PDDL     BPL                                   
027361,000863: 34,2364           03617                                    RDOTV                                 
027362,000864: 34,2365           70376                                    NTP/2                                 
027363,000865: 34,2366           45345                           DLOAD    DSU                                   
027364,000866: 34,2367           03604                                    HAFPA1                                
027365,000867: 34,2370           52006                           PUSH     GOTO                                  
027366,000868: 34,2371           70376                                    NTP/2                                 
027367,000869: 34,2372           71201        CIRCL              SETPD    DLOAD                                 
027368,000870: 34,2373           00001                                    00D                                   
027369,000871: 34,2374           32425                                    P30ZERO                               
027370,000872: 34,2375           77606                           PUSH                                           
027371,000873: 34,2376           41345        NTP/2              DLOAD    DMP                                   
027372,000874: 34,2377           03467                                    NN                                    
027373,000875: 34,2400           03604                                    HAFPA1                                
027374,000876: 34,2401           45261                           SL       DSU                                   
027375,000877: 34,2402           20217                                    14D                                   
027376,000878: 34,2403           77615                           DAD                                            
027377,000879: 34,2404           03634                                    TCSI                                  
027378,000880: 34,2405           01777                           STORE    TCDH                                  
027379,000881: 34,2406           77021                           BDSU     AXT,2                                 
027380,000882: 34,2407           03636                                    TTPI                                  
027381,000883: 34,2410           00005                                    5D                                    
027382,000884: 34,2411           40240                           BMN      SETPD                                 
027383,000885: 34,2412           70776                                    SCNDSOL                               
027384,000886: 34,2413           00001                                    0D                                    
027385,000887: 34,2414           63375                           VLOAD    PDVL                                  
027386,000888: 34,2415           03566                                    VACT4                                 
027387,000889: 34,2416           02303                                    RACT1                                 
027388,000890: 34,2417           77624                           CALL                                           
027389,000891: 34,2420           71062                                    INTINT2C                              
027390,000892: 34,2421           26311                           STOVL    RACT2                                 
027391,000893: 34,2422           00007                                    VATT                                  
027392,000894: 34,2423           27514                           STOVL    VACT2                                 
027393,000895: 34,2424           03506                                    VPASS1                                
027394,000896: 34,2425           63201                           SETPD    PDVL                                  

Page 640

027396,000898: 34,2426           00001                                    0D                                    
027397,000899: 34,2427           03500                                    RPASS1                                
027398,000900: 34,2430           77624                           CALL                                           
027399,000901: 34,2431           71062                                    INTINT2C                              
027400,000902: 34,2432           27522                           STOVL    RPASS2                                
027401,000903: 34,2433           00007                                    VATT                                  
027402,000904: 34,2434           37530                           STCALL   VPASS2                                
027403,000905: 34,2435           71133                                    CDHMVR                                
027404,000906: 34,2436           40375                           VLOAD    SETPD                                 
027405,000907: 34,2437           02311                                    RACT2                                 
027406,000908: 34,2440           00001                                    0D                                    
027407,000909: 34,2441           45115                           PDVL     CALL                                  
027408,000910: 34,2442           03544                                    VACT3                                 
027409,000911: 34,2443           46341                                    PERIAPO1                              
027410,000912: 34,2444           77624                           CALL                                           
027411,000913: 34,2445           46451                                    SHIFTR1                               
027412,000914: 34,2446           27604                           STOVL    POSTCDH                               
027413,000915: 34,2447           03544                                    VACT3                                 
027414,000916: 34,2450           63201                           SETPD    PDVL                                  
027415,000917: 34,2451           00001                                    0D                                    
027416,000918: 34,2452           02311                                    RACT2                                 
027417,000919: 34,2453           65325                           PDDL     PDDL                                  
027418,000920: 34,2454           01777                                    TCDH                                  
027419,000921: 34,2455           03636                                    TTPI                                  
027420,000922: 34,2456           41525                           PDDL     PUSH                                  
027421,000923: 34,2457           33641                                    TWOPI                                 
027422,000924: 34,2460           77624                           CALL                                           
027423,000925: 34,2461           73376                                    INTINT                                
027424,000926: 34,2462           77624                           CALL                                           
027425,000927: 34,2463           46425                                    ACTIVE                                
027426,000928: 34,2464           77745                           DLOAD                                          
027427,000929: 34,2465           02257                                    ELEV                                  
027428,000930: 34,2466           73401                           SETPD    SINE                                  
027429,000931: 34,2467           00007                                    6D                                    
027430,000932: 34,2470           53515                           PDVL     UNIT                                  
027431,000933: 34,2471           03536                                    RACT3                                 
027432,000934: 34,2472           00001                           STORE    00D                                   #  URA3 AT 00D
027433,000935: 34,2473           47315                           PDVL     VXV                                   #  PL14D, PL08D
027434,000936: 34,2474           02261                                    UP1                                   
027435,000937: 34,2475           77656                           UNIT                                           
027436,000938: 34,2476           71525                           PDDL     COSINE                                #  UNIT(URA3 X UVA3 X URA3) = UH3        B1 PL14D
027437,000939: 34,2477           02257                                    ELEV                                  
027438,000940: 34,2500           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                         B2 PL08D
027439,000941: 34,2501           77754                           STORE    18D                                   #        PLUS
027440,000942: 34,2502           74345                           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U                    B2 PL00D
027441,000943: 34,2503           76455                           VAD      VSL1                                  
027442,000944: 34,2504           00023                                    18D                                   #                                        B1
027443,000945: 34,2505           50206                           PUSH     DOT                                   #                                           PL06D
027444,000946: 34,2506           03536                                    RACT3                                 #  (U . RA3) = TEMP1           B1 +B29 = B30
027445,000947: 34,2507           41552                           SL1      PUSH                                  #                                       B29 PL08D

Page 641

027447,000949: 34,2510           72316                           DSQ      TLOAD                                 #  TEMP1**2                             B58
027448,000950: 34,2511           00155                                    MPAC                                  
027449,000951: 34,2512           50315                           PDVL     DOT                                   #                                           PL11D
027450,000952: 34,2513           03536                                    RACT3                                 
027451,000953: 34,2514           03536                                    RACT3                                 
027452,000954: 34,2515           57551                           TLOAD    DCOMP                                 #  RA3 . RA3
027453,000955: 34,2516           00155                                    MPAC                                  
027454,000956: 34,2517           50315                           PDVL     DOT                                   #  RP3 . RP3                            B58 PL14D
027455,000957: 34,2520           03552                                    RPASS3                                
027456,000958: 34,2521           03552                                    RPASS3                                #                                           PL11D
027457,000959: 34,2522           76371                           TAD      TAD                                   #  TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2     PL08D
027458,000960: 34,2523           71244                           BPL      DLOAD                                 
027459,000961: 34,2524           70542                                    K10RK2                                
027460,000962: 34,2525           03606                                    LOOPCT                                
027461,000963: 34,2526           77025                           DSU      AXT,2                                 
027462,000964: 34,2527           30072                                    1DPB28                                
027463,000965: 34,2530           00001                                    1D                                    
027464,000966: 34,2531           77654                           BZE                                            
027465,000967: 34,2532           72043                                    ALMXITA                               
027466,000968: 34,2533           70545                           DLOAD    SR1                                   
027467,000969: 34,2534           03612                                    DELDV                                 
027468,000970: 34,2535           03612                           STORE    DELDV                                 
027469,000971: 34,2536           77621                           BDSU                                           
027470,000972: 34,2537           03576                                    DVPREV                                
027471,000973: 34,2540           37574                           STCALL   DELVCSI                               
027472,000974: 34,2541           70165                                    CSI/B1                                
027473,000975: 34,2542           41566        K10RK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                    B29 PL10D
027474,000976: 34,2543           45276                           DCOMP    DSU                                   
027475,000977: 34,2544           00007                                    06D                                   #  -TEMP1-TEMP3 = K2 AT 10D
027476,000978: 34,2545           14013                           STODL    10D                                   #                                           PL08D
027477,000979: 34,2546           45425                           DSU      STADR                                 #                                           PL06D
027478,000980: 34,2547           77762                           STORE    12D                                   #  -TEMP1+TEMP3 = K1 AT 12D
027479,000981: 34,2550           77646                           ABS                                            
027480,000982: 34,2551           14017                           STODL    14D                                   
027481,000983: 34,2552           00013                                    10D                                   
027482,000984: 34,2553           45246                           ABS      DSU                                   
027483,000985: 34,2554           00017                                    14D                                   
027484,000986: 34,2555           71240                           BMN      DLOAD                                 
027485,000987: 34,2556           70561                                    K2.                                   
027486,000988: 34,2557           00015                                    12D                                   
027487,000989: 34,2560           00013                           STORE    10D                                   #  K = K1
027488,000990: 34,2561           77745        K2.                DLOAD                                          
027489,000991: 34,2562           00013                                    10D                                   
027490,000992: 34,2563           76561                           VXSC     VSL1                                  
027491,000993: 34,2564           53455                           VAD      UNIT                                  #  V = RA3 + KU UNIT                     B1
027492,000994: 34,2565           03536                                    RACT3                                 
027493,000995: 34,2566           53515                           PDVL     UNIT                                  
027494,000996: 34,2567           03552                                    RPASS3                                #                                           PL06D
027495,000997: 34,2570           53515                           PDVL     UNIT                                  
027496,000998: 34,2571           03560                                    VPASS3                                #                                           PL12D

Page 642

027498,001000: 34,2572           63235                           VXV      PDVL                                  #  UVP3 X URP3                              PL18D
027499,001001: 34,2573           00007                                    06D                                   
027500,001002: 34,2574           00007                                    06D                                   
027501,001003: 34,2575           50235                           VXV      DOT                                   
027502,001004: 34,2576           00001                                    00D                                   
027503,001005: 34,2577           77626                           STADR                                          #                                           PL12D
027504,001006: 34,2600           53762                           STOVL    12D                                   #  (URP3 X V).(UVP3 X URP3)=TEMP            PL06D
027505,001007: 34,2601           72441                           DOT      SL1                                   #                                           PL00D
027506,001008: 34,2602           75326                           ARCCOS   SIGN                                  
027507,001009: 34,2603           00015                                    12D                                   #                                        B0
027508,001010: 34,2604           41542                           SR1      PUSH                                  #  GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3)      PL02D
027509,001011: 34,2605           71214                           BON      DLOAD                                 
027510,001012: 34,2606           03301                                    S32.1F2                               
027511,001013: 34,2607           70644                                    FRSTPAS                               
027512,001014: 34,2610           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
027513,001015: 34,2611           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                         B1 PL04D
027514,001016: 34,2612           03610                                    GAMPREV                               
027515,001017: 34,2613           03574                                    DELVCSI                               
027516,001018: 34,2614           60225                           DSU      NORM                                  #                                        B7
027517,001019: 34,2615           03576                                    DVPREV                                
027518,001020: 34,2616           00047                                    X1                                    
027519,001021: 34,2617           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)          B-6+N1 PL06D
027520,001022: 34,2620           00003                                    02D                                   #        = SLOPE
027521,001023: 34,2621           03574                                    DELVCSI                               
027522,001024: 34,2622           03576                           STORE    DVPREV                                
027523,001025: 34,2623           43014                           BOFF     BOFF                                  
027524,001026: 34,2624           03342                                    S32.1F3A                              
027525,001027: 34,2625           70656                                    THRDCHK                               
027526,001028: 34,2626           03343                                    S32.1F3B                              
027527,001029: 34,2627           70656                                    THRDCHK                               
027528,001030: 34,2630           41345                           DLOAD    DMP                                   
027529,001031: 34,2631           00003                                    02D                                   
027530,001032: 34,2632           03610                                    GAMPREV                               
027531,001033: 34,2633           71244                           BPL      DLOAD                                 
027532,001034: 34,2634           70663                                    FIFTYFPS                              
027533,001035: 34,2635           30062                                    INITST                                
027534,001036: 34,2636           77765                           SIGN                                           
027535,001037: 34,2637           03612                                    DELDV                                 
027536,001038: 34,2640           03612                           STORE    DELDV                                 
027537,001039: 34,2641           43014                           SET      CLEAR                                 
027538,001040: 34,2642           03062                                    S32.1F3A                              
027539,001041: 34,2643           03263                                    S32.1F3B                              
027540,001042: 34,2644           77745        FRSTPAS            DLOAD                                          
027541,001043: 34,2645           00001                                    00D                                   
027542,001044: 34,2646           17610                           STODL    GAMPREV                               
027543,001045: 34,2647           03574                                    DELVCSI                               
027544,001046: 34,2650           03576                           STORE    DVPREV                                
027545,001047: 34,2651           43025                           DSU      CLEAR                                 
027546,001048: 34,2652           03612                                    DELDV                                 
027547,001049: 34,2653           03261                                    S32.1F2                               

Page 643

027549,001051: 34,2654           37574                           STCALL   DELVCSI                               
027550,001052: 34,2655           70165                                    CSI/B1                                
027551,001053: 34,2656           43014        THRDCHK            BON      BON                                   
027552,001054: 34,2657           03302                                    S32.1F3A                              
027553,001055: 34,2660           70702                                    NEWTN                                 
027554,001056: 34,2661           03303                                    S32.1F3B                              
027555,001057: 34,2662           70702                                    NEWTN                                 
027556,001058: 34,2663           75345        FIFTYFPS           DLOAD    SIGN                                  
027557,001059: 34,2664           30102                                    FIFPSDP                               
027558,001060: 34,2665           00005                                    04D                                   
027559,001061: 34,2666           77765                           SIGN                                           
027560,001062: 34,2667           03610                                    GAMPREV                               
027561,001063: 34,2670           03612                           STORE    DELDV                                 
027562,001064: 34,2671           43276                           DCOMP    DAD                                   
027563,001065: 34,2672           03574                                    DELVCSI                               
027564,001066: 34,2673           17574                           STODL    DELVCSI                               
027565,001067: 34,2674           00001                                    00D                                   
027566,001068: 34,2675           43014                           SET      SET                                   
027567,001069: 34,2676           03063                                    S32.1F3B                              
027568,001070: 34,2677           03062                                    S32.1F3A                              
027569,001071: 34,2700           37610                           STCALL   GAMPREV                               
027570,001072: 34,2701           70176                                    CSI/B2                                
027571,001073: 34,2702           60345        NEWTN              DLOAD    NORM                                  
027572,001074: 34,2703           00005                                    04D                                   
027573,001075: 34,2704           00050                                    X2                                    
027574,001076: 34,2705           54065                           BDDV     XSU,1                                 
027575,001077: 34,2706           00001                                    00D                                   
027576,001078: 34,2707           00047                                    X2                                    
027577,001079: 34,2710           77657                           SR*                                            
027578,001080: 34,2711           20601                                    0,1                                   
027579,001081: 34,2712           17612                           STODL    DELDV                                 
027580,001082: 34,2713           00001                                    00D                                   
027581,001083: 34,2714           03610                           STORE    GAMPREV                               
027582,001084: 34,2715           51545                           DLOAD    ABS                                   
027583,001085: 34,2716           03612                                    DELDV                                 #                                           PL08D
027584,001086: 34,2717           45206                           PUSH     DSU                                   
027585,001087: 34,2720           30076                                    EPSILN1                               
027586,001088: 34,2721           71240                           BMN      DLOAD                                 
027587,001089: 34,2722           70737                                    CSI/SOL                               
027588,001090: 34,2723           50025                           DSU      BMN                                   
027589,001091: 34,2724           30106                                    DELMAX1                               
027590,001092: 34,2725           70732                                    CSISTEP                               
027591,001093: 34,2726           75345                           DLOAD    SIGN                                  
027592,001094: 34,2727           30106                                    DELMAX1                               
027593,001095: 34,2730           03612                                    DELDV                                 
027594,001096: 34,2731           03612                           STORE    DELDV                                 
027595,001097: 34,2732           45345        CSISTEP            DLOAD    DSU                                   
027596,001098: 34,2733           03574                                    DELVCSI                               
027597,001099: 34,2734           03612                                    DELDV                                 
027598,001100: 34,2735           37574                           STCALL   DELVCSI                               

Page 644

027600,001102: 34,2736           70165                                    CSI/B1                                
027601,001103: 34,2737           77145        CSI/SOL            DLOAD    AXT,2                                 
027602,001104: 34,2740           03602                                    POSTCSI                               
027603,001105: 34,2741           00002                                    2                                     
027604,001106: 34,2742           77750                           LXA,1                                          
027605,001107: 34,2743           02776                                    RTX1                                  
027606,001108: 34,2744           50023                           DSU*     BMN                                   
027607,001109: 34,2745           30072                                    PMINE      -2,1                       
027608,001110: 34,2746           70776                                    SCNDSOL                               
027609,001111: 34,2747           71374                           AXT,2    DLOAD                                 
027610,001112: 34,2750           00003                                    3                                     
027611,001113: 34,2751           03604                                    POSTCDH                               
027612,001114: 34,2752           50023                           DSU*     BMN                                   
027613,001115: 34,2753           30072                                    PMINE      -2,1                       
027614,001116: 34,2754           70776                                    SCNDSOL                               
027615,001117: 34,2755           45345                           DLOAD    DSU                                   
027616,001118: 34,2756           01777                                    TCDH                                  
027617,001119: 34,2757           03634                                    TCSI                                  
027618,001120: 34,2760           02253                           STORE    T1TOT2                                
027619,001121: 34,2761           45374                           AXT,2    DSU                                   
027620,001122: 34,2762           00004                                    4                                     
027621,001123: 34,2763           30112                                    TMIN                                  
027622,001124: 34,2764           77040                           BMN      AXT,2                                 
027623,001125: 34,2765           70776                                    SCNDSOL                               
027624,001126: 34,2766           00005                                    5                                     
027625,001127: 34,2767           45345                           DLOAD    DSU                                   
027626,001128: 34,2770           03636                                    TTPI                                  
027627,001129: 34,2771           01777                                    TCDH                                  
027628,001130: 34,2772           02255                           STORE    T2TOT3                                
027629,001131: 34,2773           51025                           DSU      BPL                                   
027630,001132: 34,2774           30112                                    TMIN                                  
027631,001133: 34,2775           72157                                    P32/P72C                              
027632,001134: 34,2776           43014        SCNDSOL            BON      BOFF                                  
027633,001135: 34,2777           03302                                    S32.1F3A                              
027634,001136: 34,3000           72045                                    ALMXIT                                
027635,001137: 34,3001           03343                                    S32.1F3B                              
027636,001138: 34,3002           72045                                    ALMXIT                                
027637,001139: 34,3003           71334                           SXA,2    DLOAD                                 
027638,001140: 34,3004           03613                                    CSIALRM                               
027639,001141: 34,3005           32425                                    P30ZERO                               
027640,001142: 34,3006           43014                           CLEAR    SET                                   
027641,001143: 34,3007           03260                                    S32.1F1                               
027642,001144: 34,3010           03061                                    S32.1F2                               
027643,001145: 34,3011           43014                           CLEAR    CLEAR                                 
027644,001146: 34,3012           03262                                    S32.1F3A                              
027645,001147: 34,3013           03263                                    S32.1F3B                              
027646,001148: 34,3014           37606                           STCALL   LOOPCT                                
027647,001149: 34,3015           70125                                    CSI/B                                 
027648,001150: 

Page 645

027650,001152:                                                                                                  #  ..... ADVANCE .....
027651,001153: 
027652,001154:                                                                                                  #  SUBROUTINES USED
027653,001155:                                                                                                  #        PRECSET
027654,001156:                                                                                                  #        ROTATE
027655,001157: 
027656,001158: 34,3016           71220        ADVANCE            STQ      DLOAD                                 
027657,001159: 34,3017           03470                                    SUBEXIT                               
027658,001160: 34,3020           03442                                    TIG                                   
027659,001161: 34,3021           34041                           STCALL   TDEC1                                 
027660,001162: 34,3022           46403                                    PRECSET                               
027661,001163: 34,3023           77214                           SET      VLOAD                                 
027662,001164: 34,3024           01067                                    XDELVFLG                              
027663,001165: 34,3025           03560                                    VPASS3                                
027664,001166: 34,3026           03530                           STORE    VPASS2                                
027665,001167: 34,3027           27506                           STOVL    VPASS1                                
027666,001168: 34,3030           03552                                    RPASS3                                
027667,001169: 34,3031           03522                           STORE    RPASS2                                
027668,001170: 34,3032           03500                           STORE    RPASS1                                
027669,001171: 34,3033           47256                           UNIT     VXV                                   
027670,001172: 34,3034           03506                                    VPASS1                                
027671,001173: 34,3035           77656                           UNIT                                           
027672,001174: 34,3036           26261                           STOVL    UP1                                   
027673,001175: 34,3037           03536                                    RACT3                                 
027674,001176: 34,3040           37642                           STCALL   RTIG                                  
027675,001177: 34,3041           71052                                    ROTATE                                
027676,001178: 34,3042           02311                           STORE    RACT2                                 
027677,001179: 34,3043           26303                           STOVL    RACT1                                 
027678,001180: 34,3044           03544                                    VACT3                                 
027679,001181: 34,3045           37650                           STCALL   VTIG                                  
027680,001182: 34,3046           71052                                    ROTATE                                
027681,001183: 34,3047           03514                           STORE    VACT2                                 
027682,001184: 34,3050           37472                           STCALL   VACT1                                 
027683,001185: 34,3051           03470                                    SUBEXIT                               
027684,001186: 

Page 646

027686,001188:                                                                                                  #  ..... ROTATE .....
027687,001189: 
027688,001190: 34,3052           41406        ROTATE             PUSH     PUSH                                  
027689,001191: 34,3053           74241                           DOT      VXSC                                  
027690,001192: 34,3054           02261                                    UP1                                   
027691,001193: 34,3055           02261                                    UP1                                   
027692,001194: 34,3056           51352                           VSL2     BVSU                                  
027693,001195: 34,3057           63256                           UNIT     PDVL                                  
027694,001196: 34,3060           74246                           ABVAL    VXSC                                  
027695,001197: 34,3061           43572                           VSL1     RVQ                                   
027696,001198: 

Page 647

027698,001200:                                                                                                  #  ..... INTINTNA .....
027699,001201: 
027700,001202: 34,3062           65325        INTINT2C           PDDL     PDDL                                  
027701,001203: 34,3063           03634                                    TCSI                                  
027702,001204: 34,3064           01777                                    TCDH                                  
027703,001205: 34,3065           41525                           PDDL     PUSH                                  
027704,001206: 34,3066           33641                                    TWOPI                                 
027705,001207: 34,3067           77650                           GOTO                                           
027706,001208: 34,3070           73376                                    INTINT                                
027707,001209: 34,3071           65325        INTINT3P           PDDL     PDDL                                  
027708,001210: 34,3072           01777                                    TCDH                                  
027709,001211: 34,3073           03636                                    TTPI                                  
027710,001212: 34,3074           41525                           PDDL     PUSH                                  
027711,001213: 34,3075           32425                                    P30ZERO                               
027712,001214: 34,3076           77650                           GOTO                                           
027713,001215: 34,3077           73376                                    INTINT                                
027714,001216: 

Page 648

027716,001218:                                                                                                  #  ..... S32/33.1 .....
027717,001219: 
027718,001220:                                                                                                  #  SUBROUTINES USED
027719,001221:                                                                                                  #        S32/33.X
027720,001222: 
027721,001223: 34,3100           76020        S32/33.1           STQ      AXT,1                                 
027722,001224: 34,3101           03470                                    SUBEXIT                               
027723,001225: 34,3102           01521                           VN       0681                                  
027724,001226: 34,3103           77624                           CALL                                           
027725,001227: 34,3104           72375                                    DISDVLVC                              
027726,001228: 34,3105           77624                           CALL                                           
027727,001229: 34,3106           71120                                    S32/33.X                              
027728,001230: 34,3107           61375                           VLOAD    VXM                                   
027729,001231: 34,3110           03434                                    DELVLVC                               
027730,001232: 34,3111           00001                                    0D                                    
027731,001233: 34,3112           77772                           VSL1                                           
027732,001234: 34,3113           03656                           STORE    DELVSIN                               
027733,001235: 34,3114           51406                           PUSH     ABVAL                                 
027734,001236: 34,3115           27664                           STOVL    DELVSAB                               
027735,001237: 34,3116           77650                           GOTO                                           
027736,001238: 34,3117           03470                                    SUBEXIT                               
027737,001239: 

Page 649

027739,001241:                                                                                                  #  ..... S32/33.X .....
027740,001242: 
027741,001243: 34,3120           77201        S32/33.X           SETPD    VLOAD                                 
027742,001244: 34,3121           00007                                    6D                                    
027743,001245: 34,3122           02261                                    UP1                                   
027744,001246: 34,3123           63276                           VCOMP    PDVL                                  
027745,001247: 34,3124           02303                                    RACT1                                 
027746,001248: 34,3125           57456                           UNIT     VCOMP                                 
027747,001249: 34,3126           47206                           PUSH     VXV                                   
027748,001250: 34,3127           02261                                    UP1                                   
027749,001251: 34,3130           77772                           VSL1                                           
027750,001252: 34,3131           00001                           STORE    0D                                    
027751,001253: 34,3132           77616                           RVQ                                            
027752,001254: 

Page 650

027754,001256:                                                                                                  #  ..... CDHMVR .....
027755,001257: 
027756,001258:                                                                                                  #  SUBROUTINES USED
027757,001259:                                                                                                  #        VECSHIFT
027758,001260:                                                                                                  #        TIMETHET
027759,001261:                                                                                                  #        SHIFTR1
027760,001262: 
027761,001263: 34,3133           77220        CDHMVR             STQ      VLOAD                                 
027762,001264: 34,3134           03470                                    SUBEXIT                               
027763,001265: 34,3135           02311                                    RACT2                                 
027764,001266: 34,3136           53406                           PUSH     UNIT                                  
027765,001267: 34,3137           27544                           STOVL    UNVEC                                 #  UR SUB A
027766,001268: 34,3140           03522                                    RPASS2                                
027767,001269: 34,3141           50256                           UNIT     DOT                                   
027768,001270: 34,3142           03544                                    UNVEC                                 
027769,001271: 34,3143           72406                           PUSH     SL1                                   
027770,001272: 34,3144           16732                           STODL    CSTH                                  
027771,001273: 34,3145           65316                           DSQ      PDDL                                  
027772,001274: 34,3146           06514                                    DP1/4TH                               
027773,001275: 34,3147           45302                           SR2      DSU                                   
027774,001276: 34,3150           72566                           SQRT     SL1                                   
027775,001277: 34,3151           57515                           PDVL     VCOMP                                 
027776,001278: 34,3152           77635                           VXV                                            
027777,001279: 34,3153           03522                                    RPASS2                                
027778,001280: 34,3154           65241                           DOT      PDDL                                  
027779,001281: 34,3155           02261                                    UP1                                   
027780,001282: 34,3156           45565                           SIGN     STADR                                 
027781,001283: 34,3157           51047                           STOVL    SNTH                                  
027782,001284: 34,3160           03522                                    RPASS2                                
027783,001285: 34,3161           45115                           PDVL     CALL                                  
027784,001286: 34,3162           03530                                    VPASS2                                
027785,001287: 34,3163           46441                                    VECSHIFT                              
027786,001288: 34,3164           26744                           STOVL    VVEC                                  
027787,001289: 34,3165           77614                           CLEAR                                          
027788,001290: 34,3166           03666                                    RVSW                                  
027789,001291: 34,3167           36655                           STCALL   RVEC                                  
027790,001292: 34,3170           24732                                    TIMETHET                              
027791,001293: 34,3171           53754                           LXA,2    VSL*                                  
027792,001294: 34,3172           02777                                    RTX2                                  
027793,001295: 34,3173           57576                                    0,2                                   
027794,001296: 34,3174           00023                           STORE    18D                                   
027795,001297: 34,3175           76441                           DOT      SL1R                                  
027796,001298: 34,3176           03544                                    UNVEC                                 
027797,001299: 34,3177           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
027798,001300: 34,3200           63257                           SL*      PDVL                                  
027799,001301: 34,3201           57576                                    0,2                                   
027800,001302: 34,3202           02311                                    RACT2                                 
027801,001303: 34,3203           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
027802,001304: 34,3204           77625                           DSU                                            

Page 651

027804,001306: 34,3205           00003                                    02D                                   
027805,001307: 34,3206           17600                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
027806,001308: 34,3207           02742                                    R1A                                   
027807,001309: 34,3210           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
027808,001310: 34,3211           00047                                    X1                                    
027809,001311: 34,3212           00041                                    R1                                    
027810,001312: 34,3213           77624                           CALL                                           
027811,001313: 34,3214           46451                                    SHIFTR1                               
027812,001314: 34,3215           56362                           SR1R     DDV                                   
027813,001315: 34,3216           41457                           SL*      PUSH                                  
027814,001316: 34,3217           20174                                    0          -5,1                       
027815,001317: 34,3220           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
027816,001318: 34,3221           03600                                    DIFFALT                               
027817,001319: 34,3222           56302                           SR2      DDV                                   #  A SUB P                       B+31
027818,001320: 34,3223           00005                                    04D                                   #                                B+2
027819,001321: 34,3224           75406                           PUSH     SQRT                                  #  A SUB P/A SUB A                       06D
027820,001322: 34,3225           41275                           DMPR     DMP                                   
027821,001323: 34,3226           00007                                    06D                                   
027822,001324: 34,3227           00001                                    00D                                   
027823,001325: 34,3230           65272                           SL3R     PDDL                                  #  V SUB AV METERS/CS            B+7     08D
027824,001326: 34,3231           00003                                    02D                                   #  R SUB A MAGNITUDE             B+29
027825,001327: 34,3232           65301                           NORM     PDDL                                  
027826,001328: 34,3233           00047                                    X1                                    
027827,001329: 34,3234           02321                                    RTMU                                  
027828,001330: 34,3235           56342                           SR1      DDV                                   #  2MU                           B+38
027829,001331: 34,3236           65257                           SL*      PDDL                                  #  2 MU/R SUBAA                  B+14    10D
027830,001332: 34,3237           20174                                    0          -5,1                       
027831,001333: 34,3240           00005                                    04D                                   #  ASUBA                         B+29
027832,001334: 34,3241           65301                           NORM     PDDL                                  
027833,001335: 34,3242           00050                                    X2                                    
027834,001336: 34,3243           02321                                    RTMU                                  
027835,001337: 34,3244           56342                           SR1      DDV                                   
027836,001338: 34,3245           44257                           SL*      BDSU                                  
027837,001339: 34,3246           57604                                    0          -6,2                       #  2U/R - U/A            B+14 (METERS/CS)SQ
027838,001340: 34,3247           63525                           PDDL     DSQ                                   #                                        10D
027839,001341: 34,3250           00011                                    08D                                   
027840,001342: 34,3251           75421                           BDSU     SQRT                                  
027841,001343: 34,3252           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)  10D
027842,001344: 34,3253           02261                                    UP1                                   
027843,001345: 34,3254           03544                                    UNVEC                                 
027844,001346: 34,3255           74256                           UNIT     VXSC                                  
027845,001347: 34,3256           00013                                    10D                                   
027846,001348: 34,3257           74315                           PDVL     VXSC                                  
027847,001349: 34,3260           03544                                    UNVEC                                 
027848,001350: 34,3261           00011                                    08D                                   
027849,001351: 34,3262           76455                           VAD      VSL1                                  
027850,001352: 34,3263           77626                           STADR                                          
027851,001353: 34,3264           74233                           STORE    VACT3                                 
027852,001354: 34,3265           77651                           VSU                                            
027853,001355: 34,3266           03514                                    VACT2                                 

Page 652

027855,001357: 34,3267           36275                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
027856,001358: 34,3270           03470                                    SUBEXIT                               
027857,001359: 

Page 653

027859,001361:                                                                                                  #  ..... COMPTGO .....
027860,001362: 
027861,001363:                                                                                                  #  SUBROUTINES USED
027862,001364:                                                                                                  #        CLOKTASK
027863,001365:                                                                                                  #        2PHSCHNG
027864,001366: 
027865,001367: 35,2437                                           BANK     35                                    
027866,001368: 35,2000                                           SETLOC   CSI/CDH                               
027867,001369: 35,2000                                           BANK                                           
027868,001370: 
027869,001371: 35,2437  E7,1465                                  EBANK=   RTRN                                  
027870,001372: 
027871,001373: 35,2437                                           COUNT*   $$/P3575                              
027872,001374: 
027873,001375: 35,2437           00006        COMPTGO            EXTEND                                         
027874,001376: 35,2440           23465                           QXCH     RTRN                                  
027875,001377: 35,2441           34755                           CAF      ZERO                                  
027876,001378: 35,2442           55162                           TS       DISPDEX                               
027877,001379: 35,2443           34752                           CAF      BIT2                                  
027878,001380: 35,2444           00004                           INHINT                                         
027879,001381: 35,2445           05203                           TC       WAITLIST                              
027880,001382: 35,2446  E7,1455                                  EBANK=   WHICH                                 
027881,001383: 35,2446           02723 74067                     2CADR    CLOKTASK                              
027882,001384: 
027883,001385: 35,2450           05327                           TC       2PHSCHNG                              
027884,001386: 35,2451           40036                           OCT      40036                                 
027885,001387: 35,2452           05024                           OCT      05024                                 
027886,001388: 35,2453           13000                           OCT      13000                                 
027887,001389: 35,2454           01465                           TC       RTRN                                  
027888,001390: 

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