Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, 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 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

027423,000002:                                                                                                  ## Copyright:   Public domain.
027424,000003:                                                                                                  ## Filename:    P32-P35,_P72-P75.agc
027425,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
027426,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
027427,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
027428,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
027429,000008:                                                                                                  ##              that the code format has been changed to conform to the
027430,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
027431,000010:                                                                                                  ##              original YUL assembler.
027432,000011:                                                                                                  ## Reference:   pp. 624-656
027433,000012:                                                                                                  ## Assembler:   yaYUL
027434,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027435,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
027436,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
027437,000016:                                                                                                  ##              2016-11-29 HG   Transcribed
027438,000017:                                                                                                  ##              2012-12-07 HG   fix P00 -> POO
027439,000018:                                                                                                  ##              2016-12-25 RSB  Comment-text proofed using ProoferComments
027440,000019:                                                                                                  ##                              and corrected errors found.
027441,000020:                                                                                                  ##              2017-02-07 RSB  Comment-text corrections identified while 
027442,000021:                                                                                                  ##                              proofing Artemis 72.
027443,000022:                                                                                                  ##              2017-08-25 RSB  Corrected a misprint (00 -> 0D) identified in ZERLINA 56.
027444,000023: 

Page 624

027446,000025:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
027447,000026: 
027448,000027:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
027449,000028:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
027450,000029: 
027451,000030:                                                                                                  #  PURPOSE
027452,000031: 
027453,000032:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
027454,000033:                                                                                                  #            CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
027455,000034:                                                                                                  #            INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
027456,000035:                                                                                                  #            (CDH) MANEUVER.
027457,000036: 
027458,000037:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027459,000038:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027460,000039: 
027461,000040:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027462,000041:                                                                                                  #            ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
027463,000042:                                                                                                  #            APPROVAL BY THE ASTRONAUT/GROUND.
027464,000043: 
027465,000044:                                                                                                  #        (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
027466,000045:                                                                                                  #            THRUSTING PROGRAM.
027467,000046: 
027468,000047:                                                                                                  #  ASSUMPTIONS
027469,000048: 
027470,000049:                                                                                                  #        (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
027471,000050:                                                                                                  #            AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
027472,000051:                                                                                                  #            FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
027473,000052:                                                                                                  #            POSITION.
027474,000053: 
027475,000054:                                                                                                  #        (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
027476,000055:                                                                                                  #            COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027477,000056:                                                                                                  #            COMPLETION OF THE PROGRAM.
027478,000057: 
027479,000058:                                                                                                  #        (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
027480,000059:                                                                                                  #            COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027481,000060:                                                                                                  #            COMPLETION OF THE PROGRAM.
027482,000061: 
027483,000062:                                                                                                  #        (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
027484,000063:                                                                                                  #            ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
027485,000064: 
027486,000065:                                                                                                  #        (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
027487,000066:                                                                                                  #            HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
027488,000067:                                                                                                  #            IGNITION.
027489,000068: 
027490,000069:                                                                                                  #        (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
027491,000070:                                                                                                  #            MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
027492,000071:                                                                                                  #            ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
027493,000072: 
027494,000073:                                                                                                  #        (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
027495,000074:                                                                                                  #            PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW
027496,000075: 

Page 625

027498,000077:                                                                                                  #            MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
027499,000078:                                                                                                  #            OUT-OF-PLANE CSI MANEUVER.
027500,000079: 
027501,000080:                                                                                                  #        (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027502,000081:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
027503,000082: 
027504,000083:                                                                                                  #        (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027505,000084:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
027506,000085:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027507,000086:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027508,000087: 
027509,000088:                                                                                                  #       (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027510,000089:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027511,000090:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027512,000091:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027513,000092:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027514,000093:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027515,000094:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027516,000095:                                                                                                  #            THRUSTING MANEUVER.
027517,000096: 
027518,000097:                                                                                                  #       (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027519,000098: 
027520,000099:                                                                                                  #       (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027521,000100: 
027522,000101:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027523,000102:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027524,000103:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027525,000104:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027526,000105: 
027527,000106:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027528,000107:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027529,000108:                                                                                                  #                CYCLE.
027530,000109: 
027531,000110:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027532,000111:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027533,000112:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027534,000113:                                                                                                  #                PROGRAM.
027535,000114: 
027536,000115:                                                                                                  #       (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027537,000116:                                                                                                  #            A THRUSTING MANEUVER.
027538,000117: 
027539,000118:                                                                                                  #       (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027540,000119: 
027541,000120:                                                                                                  #                P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
027542,000121: 
027543,000122:                                                                                                  #                P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
027544,000123: 
027545,000124:                                                                                                  #  INPUT
027546,000125: 
027547,000126:                                                                                                  #        (1) TCSI     TIME OF THE CSI MANEUVER
027548,000127: 

Page 626

027550,000129:                                                                                                  #        (2) NN       NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027551,000130:                                                                                                  #                     VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027552,000131:                                                                                                  #                     MANEUVER POINT
027553,000132:                                                                                                  #        (3) ELEV     DESIRED LOS ANGLE AT TPI
027554,000133:                                                                                                  #        (4) TTPI     TIME OF THE TPI MANEUVER
027555,000134:                                                                                                  #  OUTPUT
027556,000135: 
027557,000136:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
027558,000137:                                                                                                  #        (2) TTOGO    TIME TO GO
027559,000138:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
027560,000139:                                                                                                  #        (4) DIFFALT  DELTA ALTITUDE AT CDH
027561,000140:                                                                                                  #        (5) T1TOT2   DELTA TIME FROM CSI TO CDH
027562,000141:                                                                                                  #        (6) T2TOT3   DELTA TIME FROM CDH TO TPI
027563,000142:                                                                                                  #        (7) DELVLVC  DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
027564,000143:                                                                                                  #        (8) DELVLVC  DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027565,000144: 
027566,000145:                                                                                                  #  DOWNLINK
027567,000146: 
027568,000147:                                                                                                  #        (1) TCSI     TIME OF THE CSI MANEUVER
027569,000148:                                                                                                  #        (2) TCDH     TIME OF THE CDH MANEUVER
027570,000149:                                                                                                  #        (3) TTPI     TIME OF THE TPI MANEUVER
027571,000150:                                                                                                  #        (4) TIG      TIME OF THE CSI MANEUVER
027572,000151:                                                                                                  #        (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027573,000152:                                                                                                  #        (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027574,000153:                                                                                                  #        (7) DIFFALT  DELTA ALTITUDE AT CDH
027575,000154:                                                                                                  #        (8) NN       NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027576,000155:                                                                                                  #                     VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027577,000156:                                                                                                  #                     MANEUVER POINT
027578,000157:                                                                                                  #        (9) ELEV     DESIRED LOS ANGLE AT TPI
027579,000158: 
027580,000159:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
027581,000160: 
027582,000161:                                                                                                  #        (1) TIG      TIME OF THE CSI MANEUVER
027583,000162:                                                                                                  #        (2) RTIG     POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
027584,000163:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027585,000164:                                                                                                  #        (3) VTIG     VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
027586,000165:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027587,000166:                                                                                                  #        (4) DELVSIN  DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027588,000167:                                                                                                  #        (5) DELVSAB  MAGNITUDE OF DELTA VELOCITY AT CSI
027589,000168:                                                                                                  #        (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027590,000169: 
027591,000170:                                                                                                  #  SUBROUTINES USED
027592,000171: 
027593,000172:                                                                                                  #        AVFLAGA
027594,000173:                                                                                                  #        AVFLAGP
027595,000174:                                                                                                  #        P20FLGON
027596,000175:                                                                                                  #        VARALARM
027597,000176:                                                                                                  #        BANKCALL
027598,000177:                                                                                                  #        GOFLASH
027599,000178:                                                                                                  #        GOTOPOOH
027600,000179: 

Page 627

027602,000181:                                                                                                  #        VNPOOH
027603,000182:                                                                                                  #        GOFLASHR
027604,000183:                                                                                                  #        BLANKET
027605,000184:                                                                                                  #        ENDOFJOB
027606,000185:                                                                                                  #        SELECTMU
027607,000186:                                                                                                  #        ADVANCE
027608,000187:                                                                                                  #        INTINT
027609,000188:                                                                                                  #        PASSIVE
027610,000189:                                                                                                  #        CSI/A
027611,000190:                                                                                                  #        S32/33.1
027612,000191:                                                                                                  #        DISDVLVC
027613,000192:                                                                                                  #        VN1645
027614,000193: 
027615,000194: 35,2034                                           BANK     35                                    
027616,000195: 35,2000                                           SETLOC   CSI/CDH                               
027617,000196: 35,2000                                           BANK                                           
027618,000197: 35,2034  E7,1470                                  EBANK=   SUBEXIT                               
027619,000198: 35,2034                                           COUNT*   $$/P3272                              
027620,000199: 35,2034           02354        P32                TC       AVFLAGA                               
027621,000200: 35,2035           02037                           TC       P32STRT                               
027622,000201: 35,2036           02361        P72                TC       AVFLAGP                               
027623,000202: 35,2037           00006        P32STRT            EXTEND                                         
027624,000203: 35,2040           32425                           DCA      P30ZERO                               
027625,000204: 35,2041           53621                           DXCH     CENTANG                               
027626,000205: 35,2042           02060                           TC       P32/P72A                              
027627,000206: 35,2043           77734        ALMXITA            SXA,2                                          
027628,000207: 35,2044           03613                                    CSIALRM                               
027629,000208: 35,2045           77740        ALMXIT             LXC,1                                          
027630,000209: 35,2046           03613                                    CSIALRM                               
027631,000210: 35,2047           77533                           SLOAD*   EXIT                                  
027632,000211: 35,2050           32430                                    ALARM/TB   -1,1                       
027633,000212: 35,2051           30154                           CA       MPAC                                  
027634,000213: 35,2052           05740                           TC       VARALARM                              
027635,000214: 35,2053           34777                           CAF      V05N09                                
027636,000215: 35,2054           04607                           TC       BANKCALL                              
027637,000216: 35,2055           20471                           CADR     GOFLASH                               
027638,000217: 35,2056           06001                           TC       GOTOPOOH                              
027639,000218: 35,2057           02053                           TC       -4                                    
027640,000219: 35,2060           02366        P32/P72A           TC       P20FLGON                              
027641,000220: 35,2061           32424                           CAF      P30ZERO                               
027642,000221: 35,2062           55467                           TS       NN         +1                         
027643,000222: 35,2063           55633                           TS       TCSI                                  
027644,000223: 35,2064           55634                           TS       TCSI       +1                         
027645,000224: 35,2065           32415        VN0611             CAF      V06N11                                #  TCSI
027646,000225: 35,2066           03622                           TC       VNPOOH                                
027647,000226: 35,2067           06060                           TC       INTPRET                               
027648,000227: 35,2070           57545                           DLOAD    DCOMP                                 
027649,000228: 35,2071           03634                                    TCSI                                  
027650,000229: 35,2072           71240                           BMN      DLOAD                                 
027651,000230: 35,2073           72120                                    VN0655                                

Page 628

027653,000232: 35,2074           01643                                    TETLEM                                
027654,000233: 35,2075           34041                           STCALL   TDEC1                                 
027655,000234: 35,2076           46401                                    PRECSET                               
027656,000235: 35,2077           53775                           VLOAD    VSR*                                  
027657,000236: 35,2100           03536                                    RACT3                                 
027658,000237: 35,2101           57176                                    0,2                                   
027659,000238: 35,2102           26655                           STOVL    RVEC                                  
027660,000239: 35,2103           03544                                    VACT3                                 
027661,000240: 35,2104           43057                           VSR*     SET                                   
027662,000241: 35,2105           57176                                    0,2                                   
027663,000242: 35,2106           03466                                    RVSW                                  
027664,000243: 35,2107           16744                           STODL    VVEC                                  
027665,000244: 35,2110           06513                                    DPPOSMAX                              
027666,000245: 35,2111           36756                           STCALL   RDESIRED                              
027667,000246: 35,2112           25557                                    TIMERAD                               
027668,000247: 35,2113           77615                           DAD                                            
027669,000248: 35,2114           03574                                    TDEC2                                 
027670,000249: 35,2115           03634                           STORE    TCSI                                  
027671,000250: 35,2116           77776                           EXIT                                           
027672,000251: 35,2117           02065                           TC       VN0611                                
027673,000252: 35,2120           77776        VN0655             EXIT                                           
027674,000253: 35,2121           33634                           CAF      V06N55                                #  NN, ELEV(RGLOS)
027675,000254: 35,2122           04607                           TC       BANKCALL                              
027676,000255: 35,2123           20471                           CADR     GOFLASH                               
027677,000256: 35,2124           06001                           TC       GOTOPOOH                              
027678,000257: 35,2125           02127                           TC       +2                                    
027679,000258: 35,2126           02121                           TC       -5                                    
027680,000259: 35,2127           33633                           CAF      V06N37                                #  TTPI
027681,000260: 35,2130           03622                           TC       VNPOOH                                
027682,000261: 35,2131           06060                           TC       INTPRET                               
027683,000262: 35,2132           77745                           DLOAD                                          
027684,000263: 35,2133           03634                                    TCSI                                  
027685,000264: 35,2134           37442                           STCALL   TIG                                   
027686,000265: 35,2135           20000                                    SELECTMU                              
027687,000266: 35,2136           77624        P32/P72B           CALL                                           
027688,000267: 35,2137           71016                                    ADVANCE                               
027689,000268: 35,2140           77201                           SETPD    VLOAD                                 
027690,000269: 35,2141           00001                                    0D                                    
027691,000270: 35,2142           03506                                    VPASS1                                
027692,000271: 35,2143           65315                           PDVL     PDDL                                  
027693,000272: 35,2144           03500                                    RPASS1                                
027694,000273: 35,2145           03634                                    TCSI                                  
027695,000274: 35,2146           65325                           PDDL     PDDL                                  
027696,000275: 35,2147           03636                                    TTPI                                  
027697,000276: 35,2150           33642                                    TWOPI                                 
027698,000277: 35,2151           45006                           PUSH     CALL                                  
027699,000278: 35,2152           73404                                    INTINT                                
027700,000279: 35,2153           77624                           CALL                                           
027701,000280: 35,2154           46433                                    PASSIVE                               
027702,000281: 35,2155           77624                           CALL                                           
027703,000282: 

Page 629

027705,000284: 35,2156           70113                                    CSI/A                                 
027706,000285: 35,2157           43014        P32/P72C           BON      SET                                   
027707,000286: 35,2160           01311                                    FINALFLG                              
027708,000287: 35,2161           72163                                    P32/P72D                              
027709,000288: 35,2162           00470                                    UPDATFLG                              
027710,000289: 35,2163           77745        P32/P72D           DLOAD                                          
027711,000290: 35,2164           02244                                    T1TOT2                                
027712,000291: 35,2165           02244        P32/P72E           STORE    T1TOT2                                
027713,000292: 35,2166           51025                           DSU      BPL                                   
027714,000293: 35,2167           32427                                    60MIN                                 
027715,000294: 35,2170           72165                                    P32/P72E                              
027716,000295: 35,2171           77745                           DLOAD                                          
027717,000296: 35,2172           02246                                    T2TOT3                                
027718,000297: 35,2173           02246        P32/P72F           STORE    T2TOT3                                
027719,000298: 35,2174           51025                           DSU      BPL                                   
027720,000299: 35,2175           32427                                    60MIN                                 
027721,000300: 35,2176           72173                                    P32/P72F                              
027722,000301: 35,2177           77776                           EXIT                                           
027723,000302: 35,2200           32417                           CAF      V06N75                                
027724,000303: 35,2201           03622                           TC       VNPOOH                                
027725,000304: 35,2202           06060                           TC       INTPRET                               
027726,000305: 35,2203           45175                           VLOAD    CALL                                  
027727,000306: 35,2204           02260                                    DELVEET1                              
027728,000307: 35,2205           71100                                    S32/33.1                              
027729,000308: 35,2206           26260                           STOVL    DELVEET1                              
027730,000309: 35,2207           02302                                    RACT2                                 
027731,000310: 35,2210           26274                           STOVL    RACT1                                 
027732,000311: 35,2211           02266                                    DELVEET2                              
027733,000312: 35,2212           45170                           AXT,1    CALL                                  
027734,000313: 35,2213           01522                           VN       0682                                  
027735,000314: 35,2214           72375                                    DISDVLVC                              
027736,000315: 35,2215           77745                           DLOAD                                          
027737,000316: 35,2216           03636                                    TTPI                                  
027738,000317: 35,2217           37640                           STCALL   TTPIO                                 
027739,000318: 35,2220           73516                                    VN1645                                
027740,000319: 35,2221           77650                           GOTO                                           
027741,000320: 35,2222           72136                                    P32/P72B                              
027742,000321: 

Page 630

027744,000323:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
027745,000324: 
027746,000325:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
027747,000326:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
027748,000327:                                                                                                  #  PURPOSE
027749,000328: 
027750,000329:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
027751,000330:                                                                                                  #            ALTITUDE MANEUVER (CDH).
027752,000331: 
027753,000332:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027754,000333:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027755,000334: 
027756,000335:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027757,000336:                                                                                                  #            ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
027758,000337:                                                                                                  #            ASTRONAUT/GROUND.
027759,000338: 
027760,000339:                                                                                                  #        (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
027761,000340:                                                                                                  #            THRUSTING PROGRAM.
027762,000341: 
027763,000342:                                                                                                  #  ASSUMPTIONS
027764,000343: 
027765,000344:                                                                                                  #        (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
027766,000345:                                                                                                  #            CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
027767,000346:                                                                                                  #            THERFORE -
027768,000347: 
027769,000348:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027770,000349:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027771,000350:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027772,000351:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027773,000352: 
027774,000353:                                                                                                  #            (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
027775,000354:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
027776,000355: 
027777,000356:                                                                                                  #            (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027778,000357:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
027779,000358: 
027780,000359:                                                                                                  #            (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
027781,000360:                                                                                                  #                ORBITS WAS MINMIZED.
027782,000361: 
027783,000362:                                                                                                  #            (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
027784,000363:                                                                                                  #                IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
027785,000364: 
027786,000365:                                                                                                  #                POSITION AT CSI IGNITION.
027787,000366: 
027788,000367:                                                                                                  #            (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
027789,000368:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
027790,000369:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
027791,000370: 
027792,000371:                                                                                                  #            (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027793,000372:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
027794,000373: 

Page 631

027796,000375:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027797,000376:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
027798,000377: 
027799,000378:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027800,000379:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
027801,000380: 
027802,000381:                                                                                                  #        (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027803,000382:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
027804,000383:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027805,000384:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027806,000385: 
027807,000386:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027808,000387:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027809,000388:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027810,000389:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027811,000390:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027812,000391:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027813,000392:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027814,000393:                                                                                                  #            THRUSTING MANEUVER.
027815,000394: 
027816,000395:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027817,000396: 
027818,000397:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027819,000398: 
027820,000399:                                                                                                  #                ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027821,000400:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027822,000401:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027823,000402:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027824,000403: 
027825,000404:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027826,000405:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027827,000406:                                                                                                  #                CYCLE.
027828,000407: 
027829,000408:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027830,000409:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027831,000410:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027832,000411:                                                                                                  #                PROGRAM.
027833,000412: 
027834,000413:                                                                                                  #        (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027835,000414:                                                                                                  #            A THRUSTING MANEUVER.
027836,000415: 
027837,000416:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027838,000417: 
027839,000418:                                                                                                  #                P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
027840,000419: 
027841,000420:                                                                                                  #                P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
027842,000421: 
027843,000422:                                                                                                  #  INPUT
027844,000423: 
027845,000424:                                                                                                  #        (1) TTPI0     TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
027846,000425: 

Page 632

027848,000427:                                                                                                  #        (2) ELEV      DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
027849,000428:                                                                                                  #        (3) TCDH      TIME OF THE CDH MANEUVER
027850,000429: 
027851,000430:                                                                                                  #  OUTPUT
027852,000431: 
027853,000432:                                                                                                  #        (1) TRKMKCNT  NUMBER OF MARKS
027854,000433:                                                                                                  #        (2) TTOGO     TIME TO GO
027855,000434:                                                                                                  #        (3) +MGA      MIDDLE GIMBAL ANGLE
027856,000435:                                                                                                  #        (4) DIFFALT   DELTA ALTITUDE AT CDH
027857,000436:                                                                                                  #        (5) T2TOT3    DELTA TIME FROM CDH TO COMPUTED TPI
027858,000437:                                                                                                  #        (6) NOMTPI    DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
027859,000438:                                                                                                  #        (7) DELVLVC   DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027860,000439: 
027861,000440:                                                                                                  #  DOWNLINK
027862,000441: 
027863,000442:                                                                                                  #        (1) TCDH      TIME OF THE CDH MANEUVER
027864,000443:                                                                                                  #        (2) TTPI      TIME OF THE TPI MANEUVER
027865,000444:                                                                                                  #        (3) TIG       TIME OF THE CDH MANEUVER
027866,000445:                                                                                                  #        (4) DELVEET2  DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027867,000446:                                                                                                  #        (5) DIFFALT   DELTA ALTITUDE AT CDH
027868,000447:                                                                                                  #        (6) ELEV      DESIRED LOS ANGLE AT TPI
027869,000448:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
027870,000449: 
027871,000450:                                                                                                  #        (1) TIG       TIME OF THE CDH MANEUVER
027872,000451:                                                                                                  #        (2) RTIG      POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027873,000452:                                                                                                  #                      INTO PLANE OF PASSIVE VEHICLE
027874,000453:                                                                                                  #        (3) VTIG      VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027875,000454:                                                                                                  #                      INTO PLANE OF PASSIVE VEHICLE
027876,000455:                                                                                                  #        (4) DELVSIN   DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027877,000456:                                                                                                  #        (5) DELVSAB   MAGNITUDE OF DELTA VELOCITY AT CDH
027878,000457:                                                                                                  #        (6) XDELVFLG  SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027879,000458: 
027880,000459:                                                                                                  #  SUBROUTINES USED
027881,000460: 
027882,000461:                                                                                                  #        AVFLAGA
027883,000462:                                                                                                  #        AVFLAGP
027884,000463:                                                                                                  #        P20FLGON
027885,000464:                                                                                                  #        VNPOOH
027886,000465:                                                                                                  #        SELECTMU
027887,000466:                                                                                                  #        ADVANCE
027888,000467:                                                                                                  #        CDHMVR
027889,000468:                                                                                                  #        INTINT3P
027890,000469:                                                                                                  #        ACTIVE
027891,000470:                                                                                                  #        PASSIVE
027892,000471:                                                                                                  #        S33/34.1
027893,000472:                                                                                                  #        ALARM
027894,000473:                                                                                                  #        BANKCALL
027895,000474:                                                                                                  #        GOFLASH
027896,000475:                                                                                                  #        GOTOPOOH
027897,000476:                                                                                                  #        S32/33.1
027898,000477: 

Page 633

027900,000479:                                                                                                  #        VN1645
027901,000480: 
027902,000481: 35,2223                                           COUNT*   $$/P3373                              
027903,000482: 35,2223           02354        P33                TC       AVFLAGA                               
027904,000483: 35,2224           02226                           TC       P33/P73A                              
027905,000484: 35,2225           02361        P73                TC       AVFLAGP                               
027906,000485: 35,2226           02366        P33/P73A           TC       P20FLGON                              
027907,000486: 35,2227           32416                           CAF      V06N13                                #  TCDH
027908,000487: 35,2230           03622                           TC       VNPOOH                                
027909,000488: 35,2231           06060                           TC       INTPRET                               
027910,000489: 35,2232           77745                           DLOAD                                          
027911,000490: 35,2233           03640                                    TTPIO                                 
027912,000491: 35,2234           17636                           STODL    TTPI                                  
027913,000492: 35,2235           01775                                    TCDH                                  
027914,000493: 35,2236           37442                           STCALL   TIG                                   
027915,000494: 35,2237           20000                                    SELECTMU                              
027916,000495: 35,2240           77624        P33/P73B           CALL                                           
027917,000496: 35,2241           71016                                    ADVANCE                               
027918,000497: 35,2242           77624                           CALL                                           
027919,000498: 35,2243           71133                                    CDHMVR                                
027920,000499: 35,2244           77201                           SETPD    VLOAD                                 
027921,000500: 35,2245           00001                                    0D                                    
027922,000501: 35,2246           03544                                    VACT3                                 
027923,000502: 35,2247           45115                           PDVL     CALL                                  
027924,000503: 35,2250           02302                                    RACT2                                 
027925,000504: 35,2251           71071                                    INTINT3P                              
027926,000505: 35,2252           77624                           CALL                                           
027927,000506: 35,2253           46423                                    ACTIVE                                
027928,000507: 35,2254           77201                           SETPD    VLOAD                                 
027929,000508: 35,2255           00001                                    0D                                    
027930,000509: 35,2256           03530                                    VPASS2                                
027931,000510: 35,2257           45115                           PDVL     CALL                                  
027932,000511: 35,2260           03522                                    RPASS2                                
027933,000512: 35,2261           71071                                    INTINT3P                              
027934,000513: 35,2262           77624                           CALL                                           
027935,000514: 35,2263           46433                                    PASSIVE                               
027936,000515: 35,2264           43145                           DLOAD    SET                                   
027937,000516: 35,2265           32425                                    P30ZERO                               
027938,000517: 35,2266           03460                                    ITSWICH                               
027939,000518: 35,2267           36310                           STCALL   NOMTPI                                
027940,000519: 35,2270           72702                                    S33/34.1                              
027941,000520: 35,2271           77454                           BZE      EXIT                                  
027942,000521: 35,2272           72307                                    P33/P73C                              
027943,000522: 35,2273           05571                           TC       ALARM                                 
027944,000523: 35,2274           00611                           OCT      611                                   
027945,000524: 35,2275           34777                           CAF      V05N09                                
027946,000525: 35,2276           04607                           TC       BANKCALL                              
027947,000526: 35,2277           20471                           CADR     GOFLASH                               
027948,000527: 35,2300           06001                           TC       GOTOPOOH                              
027949,000528: 35,2301           02303                           TC       +2                                    
027950,000529: 

Page 634

027952,000531: 35,2302           02226                           TC       P33/P73A                              
027953,000532: 35,2303           06060                           TC       INTPRET                               
027954,000533: 35,2304           77745                           DLOAD                                          
027955,000534: 35,2305           32425                                    P30ZERO                               
027956,000535: 35,2306           02310                           STORE    NOMTPI                                
027957,000536: 35,2307           43014        P33/P73C           BON      SET                                   
027958,000537: 35,2310           01311                                    FINALFLG                              
027959,000538: 35,2311           72313                                    P33/P73D                              
027960,000539: 35,2312           00470                                    UPDATFLG                              
027961,000540: 35,2313           43345        P33/P73D           DLOAD    DAD                                   
027962,000541: 35,2314           02310                                    NOMTPI                                
027963,000542: 35,2315           03636                                    TTPI                                  
027964,000543: 35,2316           03636                           STORE    TTPI                                  
027965,000544: 35,2317           77625                           DSU                                            
027966,000545: 35,2320           01775                                    TCDH                                  
027967,000546: 35,2321           51025        P33/P73E           DSU      BPL                                   
027968,000547: 35,2322           32427                                    60MIN                                 
027969,000548: 35,2323           72321                                    P33/P73E                              
027970,000549: 35,2324           77615                           DAD                                            
027971,000550: 35,2325           32427                                    60MIN                                 
027972,000551: 35,2326           16244                           STODL    T1TOT2                                
027973,000552: 35,2327           03636                                    TTPI                                  
027974,000553: 35,2330           41425                           DSU      PUSH                                  
027975,000554: 35,2331           03640                                    TTPIO                                 
027976,000555: 35,2332           45246        P33/P73F           ABS      DSU                                   
027977,000556: 35,2333           32427                                    60MIN                                 
027978,000557: 35,2334           43244                           BPL      DAD                                   
027979,000558: 35,2335           72332                                    P33/P73F                              
027980,000559: 35,2336           32427                                    60MIN                                 
027981,000560: 35,2337           45565                           SIGN     STADR                                 
027982,000561: 35,2340           75531                           STORE    T2TOT3                                
027983,000562: 35,2341           77776                           EXIT                                           
027984,000563: 35,2342           32417                           CAF      V06N75                                
027985,000564: 35,2343           03622                           TC       VNPOOH                                
027986,000565: 35,2344           06060                           TC       INTPRET                               
027987,000566: 35,2345           45175                           VLOAD    CALL                                  
027988,000567: 35,2346           02266                                    DELVEET2                              
027989,000568: 35,2347           71100                                    S32/33.1                              
027990,000569: 35,2350           36266                           STCALL   DELVEET2                              
027991,000570: 35,2351           73516                                    VN1645                                
027992,000571: 35,2352           77650                           GOTO                                           
027993,000572: 35,2353           72240                                    P33/P73B                              
027994,000573: 

Page 635

027996,000575:                                                                                                  #  ..... AVFLAGA/P .....
027997,000576: 
027998,000577:                                                                                                  #  SUBROUTINES USED
027999,000578: 
028000,000579:                                                                                                  #           UPFLAG
028001,000580:                                                                                                  #           DOWNFLAG
028002,000581: 
028003,000582: 35,2354           00006        AVFLAGA            EXTEND                                         #  AVFLAG = LEM
028004,000583: 35,2355           23470                           QXCH     SUBEXIT                               
028005,000584: 35,2356           05506                           TC       UPFLAG                                
028006,000585: 35,2357           00050                           ADRES    AVFLAG                                
028007,000586: 35,2360           01470                           TC       SUBEXIT                               
028008,000587: 35,2361           00006        AVFLAGP            EXTEND                                         #  AVFLAG = CSM
028009,000588: 35,2362           23470                           QXCH     SUBEXIT                               
028010,000589: 35,2363           05520                           TC       DOWNFLAG                              
028011,000590: 35,2364           00050                           ADRES    AVFLAG                                
028012,000591: 35,2365           01470                           TC       SUBEXIT                               
028013,000592: 35,2366           00006        P20FLGON           EXTEND                                         
028014,000593: 35,2367           23470                           QXCH     SUBEXIT                               
028015,000594: 35,2370           05506                           TC       UPFLAG                                
028016,000595: 35,2371           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG
028017,000596: 35,2372           05506                           TC       UPFLAG                                
028018,000597: 35,2373           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG
028019,000598: 35,2374           01470                           TC       SUBEXIT                               
028020,000599: 

Page 636

028022,000601:                                                                                                  #  ..... DISDVLVC .....
028023,000602: 
028024,000603:                                                                                                  #  SUBROUTINES USED
028025,000604: 
028026,000605:                                                                                                  #        S32/33.X
028027,000606:                                                                                                  #         VNPOOH
028028,000607: 
028029,000608: 35,2375           03434        DISDVLVC           STORE    DELVLVC                               
028030,000609: 35,2376           45020                           STQ      CALL                                  
028031,000610: 35,2377           03463                                    NORMEX                                
028032,000611: 35,2400           71120                                    S32/33.X                              
028033,000612: 35,2401           64375                           VLOAD    MXV                                   
028034,000613: 35,2402           03434                                    DELVLVC                               
028035,000614: 35,2403           00001                                    0D                                    
028036,000615: 35,2404           66172                           VSL1     SXA,1                                 
028037,000616: 35,2405           03615                                    VERBNOUN                              
028038,000617: 35,2406           03434                           STORE    DELVLVC                               
028039,000618: 35,2407           77776                           EXIT                                           
028040,000619: 35,2410           31615                           CA       VERBNOUN                              
028041,000620: 35,2411           03622                           TC       VNPOOH                                
028042,000621: 35,2412           06060                           TC       INTPRET                               
028043,000622: 35,2413           77650                           GOTO                                           
028044,000623: 35,2414           03463                                    NORMEX                                
028045,000624: 

Page 637

028047,000626:                                                                                                  #  ..... CONSTANTS .....
028048,000627: 
028049,000628: 35,2415           01413        V06N11             VN       0611                                  
028050,000629: 35,2416           01415        V06N13             VN       0613                                  
028051,000630: 35,2417           01513        V06N75             VN       0675                                  
028052,000631: 35,2420           77776 62460  SN359+             2DEC     -.000086601                            
028053,000632: 35,2422           17777 37776  CS359+             2DEC     +.499999992                            
028054,000633: 35,2424           00000 00000  P30ZERO            2DEC     0          B-28                       
028055,000634: 35,2426           00025 37100  60MIN              2DEC     360000     B-28                       
028056,000635: 
028057,000636: 35,2430           00600        ALARM/TB           OCT      00600                                 #  NO 1
028058,000637: 35,2431           00601                           OCT      00601                                 #     2
028059,000638: 35,2432           00602                           OCT      00602                                 #     3
028060,000639: 35,2433           00603                           OCT      00603                                 #     4
028061,000640: 35,2434           00604                           OCT      00604                                 #     5
028062,000641: 35,2435           00605                           OCT      00605                                 #     6
028063,000642: 35,2436           00606                           OCT      00606                                 #     7
028064,000643: 

Page 638

028066,000645:                                                                                                  #  ..... CSI/A     .....
028067,000646: 
028068,000647:                                                                                                  #  SUBROUTINES USED
028069,000648: 
028070,000649:                                                                                                  #        VECSHIFT
028071,000650:                                                                                                  #        TIMETHET
028072,000651:                                                                                                  #        PERIAPO
028073,000652:                                                                                                  #        SHIFTR1
028074,000653:                                                                                                  #        INTINT2C
028075,000654:                                                                                                  #        CDHMVR
028076,000655:                                                                                                  #        PERIAPO1
028077,000656:                                                                                                  #        INTINT
028078,000657:                                                                                                  #        ACTIVE
028079,000658: 
028080,000659: 34,2057                                           BANK     34                                    
028081,000660: 34,2000                                           SETLOC   CSI/CDH1                              
028082,000661: 34,2000                                           BANK                                           
028083,000662: 34,2057  E7,1470                                  EBANK=   SUBEXIT                               
028084,000663: 34,2057                                           COUNT*   $$/CSI                                
028085,000664: 34,2057           00000 00020  LOOPMX             2DEC     16         B-28                       
028086,000665: 34,2061           00003 34661  INITST             2DEC     .03048     B-7                        #      INITIAL DELDV = 10 FPS
028087,000666: 34,2063           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #      MAXIMUM DV1 = 1000 FPS
028088,000667: 34,2065           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                     989 FPS
028089,000668: 34,2067           10000 00000  1DPB2              2DEC     1.0        B-2                        
028090,000669: 34,2071           00000 00001  1DPB28             2DEC     1          B-28                       
028091,000670: 34,2073           00004 31566  PMINE              2DEC     157420     B-29                       #  85 NM    - MUST BE 8 WORDS BEFORE PMINM
028092,000671: 34,2075           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #       .1 FPS
028093,000672: 34,2077           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS (CHANGED FROM .05 FPS)
028094,000673: 34,2101           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #       50 FPS
028095,000674: 34,2103           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE
028096,000675: 34,2105           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #       200 FPS
028097,000676: 34,2107           00000 06433  ONETHTH            2DEC     .0001      B-3                        
028098,000677: 34,2111           00003 25140  TMIN               2DEC     60000      B-28                       #  10 MIN
028099,000678: 
028100,000679: 34,2113           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
028101,000680: 34,2114           03260                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
028102,000681: 34,2115           03061                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR
028103,000682: 

Page 639

028105,000684: 34,2116           43014                           CLEAR    SET                                   
028106,000685: 34,2117           03262                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
028107,000686: 34,2120           03063                                    S32.1F3B                              #  10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
028108,000687: 34,2121           77745                           DLOAD                                          
028109,000688: 34,2122           32425                                    P30ZERO                               
028110,000689: 34,2123           03606                           STORE    LOOPCT                                
028111,000690: 34,2124           03614                           STORE    CSIALRM                               
028112,000691: 34,2125           77201        CSI/B              SETPD    VLOAD                                 
028113,000692: 34,2126           00001                                    0D                                    
028114,000693: 34,2127           02274                                    RACT1                                 
028115,000694: 34,2130           41446                           ABVAL    PUSH                                  #  RA1                           B29 PL02D
028116,000695: 34,2131           70501                           NORM     SR1                                   
028117,000696: 34,2132           00050                                    X2                                    #                         B29-N2+ B1 PL04D
028118,000697: 34,2133           51515                           PDVL     ABVAL                                 
028119,000698: 34,2134           03552                                    RPASS3                                
028120,000699: 34,2135           55301                           NORM     BDDV                                  #  RA1/RP3                        B1 PL02D
028121,000700: 34,2136           00047                                    X1                                    
028122,000701: 34,2137           53664                           XSU,2    SR*                                   #                                 B2
028123,000702: 34,2140           00046                                    X1                                    
028124,000703: 34,2141           57175                                    1,2                                   
028125,000704: 34,2142           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1       B29+B2=B31 PL00D
028126,000705: 34,2143           30070                                    1DPB2                                 
028127,000706: 34,2144           65301                           NORM     PDDL                                  #                                    PL02D
028128,000707: 34,2145           00047                                    X1                                    
028129,000708: 34,2146           02312                                    RTMU                                  
028130,000709: 34,2147           56342                           SR1      DDV                                   #                        B38-B31= B7 PL00D
028131,000710: 34,2150           75457                           SL*      SQRT                                  #                                 B7
028132,000711: 34,2151           20172                                    0          -7,1                       
028133,000712: 34,2152           53515                           PDVL     UNIT                                  #                                    PL02D
028134,000713: 34,2153           02274                                    RACT1                                 
028135,000714: 34,2154           47315                           PDVL     VXV                                   
028136,000715: 34,2155           02252                                    UP1                                   
028137,000716: 34,2156           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
028138,000717: 34,2157           72441                           DOT      SL1                                   #  VA1 . UH1                      B7
028139,000718: 34,2160           03472                                    VACT1                                 
028140,000719: 34,2161           45421                           BDSU     STADR                                 #                                    PL00D
028141,000720: 34,2162           60203                           STODL    DELVCSI                               
028142,000721: 34,2163           30062                                    INITST                                #  10 FPS
028143,000722: 34,2164           03612                           STORE    DELDV                                 
028144,000723: 34,2165           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
028145,000724: 34,2166           03606                                    LOOPCT                                
028146,000725: 34,2167           30072                                    1DPB28                                
028147,000726: 34,2170           03606                           STORE    LOOPCT                                
028148,000727: 34,2171           77025                           DSU      AXT,2                                 
028149,000728: 34,2172           30060                                    LOOPMX                                
028150,000729: 34,2173           00006                                    6                                     
028151,000730: 34,2174           77644                           BPL                                            
028152,000731: 34,2175           70776                                    SCNDSOL                               
028153,000732: 34,2176           77601        CSI/B2             SETPD                                          
028154,000733: 34,2177           00001                                    0D                                    
028155,000734: 

Page 640

028157,000736: 34,2200           51545                           DLOAD    ABS                                   
028158,000737: 34,2201           03574                                    DELVCSI                               
028159,000738: 34,2202           50025                           DSU      BMN                                   
028160,000739: 34,2203           30064                                    DVMAX1                                
028161,000740: 34,2204           70224                                    CSI/B23                               
028162,000741: 34,2205           43174                           AXT,2    BON                                   
028163,000742: 34,2206           00007                                    7                                     
028164,000743: 34,2207           03300                                    S32.1F1                               
028165,000744: 34,2210           70776                                    SCNDSOL                               
028166,000745: 34,2211           43014                           BOFF     BON                                   
028167,000746: 34,2212           03342                                    S32.1F3A                              
028168,000747: 34,2213           70216                                    CSI/B22                               #  FLAG 3 NEQ 3
028169,000748: 34,2214           03303                                    S32.1F3B                              
028170,000749: 34,2215           70776                                    SCNDSOL                               
028171,000750: 34,2216           71214        CSI/B22            SET      DLOAD                                 
028172,000751: 34,2217           03060                                    S32.1F1                               
028173,000752: 34,2220           30066                                    DVMAX2                                
028174,000753: 34,2221           77765                           SIGN                                           
028175,000754: 34,2222           03574                                    DELVCSI                               
028176,000755: 34,2223           03574                           STORE    DELVCSI                               
028177,000756: 34,2224           41575        CSI/B23            VLOAD    PUSH                                  
028178,000757: 34,2225           02274                                    RACT1                                 
028179,000758: 34,2226           63256                           UNIT     PDVL                                  
028180,000759: 34,2227           02252                                    UP1                                   
028181,000760: 34,2230           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
028182,000761: 34,2231           76561                           VXSC     VSL1                                  
028183,000762: 34,2232           03574                                    DELVCSI                               
028184,000763: 34,2233           02260                           STORE    DELVEET1                              
028185,000764: 34,2234           40055                           VAD      BOV                                   
028186,000765: 34,2235           03472                                    VACT1                                 
028187,000766: 34,2236           70237                                    CSI/B23D                              
028188,000767: 34,2237           37566        CSI/B23D           STCALL   VACT4                                 
028189,000768: 34,2240           46437                                    VECSHIFT                              
028190,000769: 34,2241           26744                           STOVL    VVEC                                  
028191,000770: 34,2242           77614                           SET                                            
028192,000771: 34,2243           03466                                    RVSW                                  
028193,000772: 34,2244           26655                           STOVL    RVEC                                  
028194,000773: 34,2245           32421                                    SN359+                                
028195,000774: 34,2246           36730                           STCALL   SNTH                                  #  ALSO CSTH
028196,000775: 34,2247           24732                                    TIMETHET                              
028197,000776: 34,2250           72142                           SR1      LXA,1                                 
028198,000777: 34,2251           02776                                    RTX1                                  
028199,000778: 34,2252           37604                           STCALL   HAFPA1                                
028200,000779: 34,2253           46347                                    PERIAPO                               
028201,000780: 34,2254           77624                           CALL                                           
028202,000781: 34,2255           46447                                    SHIFTR1                               
028203,000782: 34,2256           17602                           STODL    POSTCSI                               
028204,000783: 34,2257           03621                                    CENTANG                               
028205,000784: 34,2260           52054                           BZE      GOTO                                  
028206,000785: 34,2261           70263                                    +2                                    
028207,000786: 

Page 641

028209,000788: 34,2262           70372                                    CIRCL                                 
028210,000789: 34,2263           77745                           DLOAD                                          
028211,000790: 34,2264           02752                                    ECC                                   
028212,000791: 34,2265           50025                           DSU      BMN                                   
028213,000792: 34,2266           30110                                    ONETHTH                               
028214,000793: 34,2267           70372                                    CIRCL                                 
028215,000794: 34,2270           45145                           DLOAD    CALL                                  
028216,000795: 34,2271           00041                                    R1                                    
028217,000796: 34,2272           46447                                    SHIFTR1                               
028218,000797: 34,2273           60201                           SETPD    NORM                                  
028219,000798: 34,2274           00003                                    2D                                    
028220,000799: 34,2275           00047                                    X1                                    
028221,000800: 34,2276           50315                           PDVL     DOT                                   #                                        PL04D
028222,000801: 34,2277           02274                                    RACT1                                 
028223,000802: 34,2300           03566                                    VACT4                                 
028224,000803: 34,2301           56246                           ABS      DDV                                   
028225,000804: 34,2302           00003                                    02D                                   #  (/RDOTV/)/R1              B36-B29= B7
028226,000805: 34,2303           45257                           SL*      DSU                                   
028227,000806: 34,2304           20201                                    0,1                                   
028228,000807: 34,2305           30100                                    NICKELDP                              
028229,000808: 34,2306           71240                           BMN      DLOAD                                 
028230,000809: 34,2307           70372                                    CIRCL                                 
028231,000810: 34,2310           02740                                    P                                     
028232,000811: 34,2311           45312                           SL2      DSU                                   
028233,000812: 34,2312           30070                                    1DPB2                                 
028234,000813: 34,2313           14017                           STODL    14D                                   
028235,000814: 34,2314           02310                                    RTSR1/MU                              
028236,000815: 34,2315           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1         B-16-B29 = B-45 PL02D
028237,000816: 34,2316           41325                           PDDL     DMP                                   
028238,000817: 34,2317           02740                                    P                                     
028239,000818: 34,2320           00041                                    R1                                    
028240,000819: 34,2321           77624                           CALL                                           
028241,000820: 34,2322           46447                                    SHIFTR1                               
028242,000821: 34,2323           72412                           SL4      SL1                                   
028243,000822: 34,2324           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1       B14+B-45 = B-31 PL02D
028244,000823: 34,2325           52414                           BOFF     SL3                                   
028245,000824: 34,2326           04343                                    CMOONFLG                              
028246,000825: 34,2327           70330                                    CSI/B3                                
028247,000826: 34,2330           50315        CSI/B3             PDVL     DOT                                   
028248,000827: 34,2331           02274                                    RACT1                                 
028249,000828: 34,2332           03566                                    VACT4                                 
028250,000829: 34,2333           03617                           STORE    RDOTV                                 
028251,000830: 34,2334           77646                           ABS                                            
028252,000831: 34,2335           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                  PL02D
028253,000832: 34,2336           00050                                    X2                                    
028254,000833: 34,2337           53660                           XSU,1    SL*                                   #                   B-31+B36-B3 = B2
028255,000834: 34,2340           00047                                    X2                                    
028256,000835: 34,2341           20204                                    3,1                                   
028257,000836: 34,2342           14015                           STODL    12D                                   
028258,000837: 34,2343           32425                                    P30ZERO                               
028259,000838: 

Page 642

028261,000840: 34,2344           00021                           STORE    16D                                   
028262,000841: 34,2345           53575                           VLOAD    UNIT                                  
028263,000842: 34,2346           00015                                    12D                                   
028264,000843: 34,2347           26730                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
028265,000844: 34,2350           02274                                    RACT1                                 
028266,000845: 34,2351           75315                           PDVL     SIGN                                  
028267,000846: 34,2352           03566                                    VACT4                                 
028268,000847: 34,2353           03617                                    RDOTV                                 
028269,000848: 34,2354           45076                           VCOMP    CALL                                  
028270,000849: 34,2355           46437                                    VECSHIFT                              
028271,000850: 34,2356           26744                           STOVL    VVEC                                  
028272,000851: 34,2357           77614                           SET                                            
028273,000852: 34,2360           03466                                    RVSW                                  
028274,000853: 34,2361           36655                           STCALL   RVEC                                  
028275,000854: 34,2362           24732                                    TIMETHET                              
028276,000855: 34,2363           51125                           PDDL     BPL                                   
028277,000856: 34,2364           03617                                    RDOTV                                 
028278,000857: 34,2365           70376                                    NTP/2                                 
028279,000858: 34,2366           45345                           DLOAD    DSU                                   
028280,000859: 34,2367           03604                                    HAFPA1                                
028281,000860: 34,2370           52006                           PUSH     GOTO                                  
028282,000861: 34,2371           70376                                    NTP/2                                 
028283,000862: 34,2372           71201        CIRCL              SETPD    DLOAD                                 
028284,000863: 34,2373           00001                                    00D                                   
028285,000864: 34,2374           32425                                    P30ZERO                               
028286,000865: 34,2375           77606                           PUSH                                           
028287,000866: 34,2376           41345        NTP/2              DLOAD    DMP                                   
028288,000867: 34,2377           03467                                    NN                                    
028289,000868: 34,2400           03604                                    HAFPA1                                
028290,000869: 34,2401           45261                           SL       DSU                                   
028291,000870: 34,2402           20217                                    14D                                   
028292,000871: 34,2403           77615                           DAD                                            
028293,000872: 34,2404           03634                                    TCSI                                  
028294,000873: 34,2405           01775                           STORE    TCDH                                  
028295,000874: 34,2406           77021                           BDSU     AXT,2                                 
028296,000875: 34,2407           03636                                    TTPI                                  
028297,000876: 34,2410           00005                                    5D                                    
028298,000877: 34,2411           40240                           BMN      SETPD                                 
028299,000878: 34,2412           70776                                    SCNDSOL                               
028300,000879: 34,2413           00001                                    0D                                    
028301,000880: 34,2414           63375                           VLOAD    PDVL                                  
028302,000881: 34,2415           03566                                    VACT4                                 
028303,000882: 34,2416           02274                                    RACT1                                 
028304,000883: 34,2417           77624                           CALL                                           
028305,000884: 34,2420           71062                                    INTINT2C                              
028306,000885: 34,2421           26302                           STOVL    RACT2                                 
028307,000886: 34,2422           00007                                    VATT                                  
028308,000887: 34,2423           27514                           STOVL    VACT2                                 
028309,000888: 34,2424           03506                                    VPASS1                                
028310,000889: 34,2425           63201                           SETPD    PDVL                                  
028311,000890: 

Page 643

028313,000892: 34,2426           00001                                    0D                                    
028314,000893: 34,2427           03500                                    RPASS1                                
028315,000894: 34,2430           77624                           CALL                                           
028316,000895: 34,2431           71062                                    INTINT2C                              
028317,000896: 34,2432           27522                           STOVL    RPASS2                                
028318,000897: 34,2433           00007                                    VATT                                  
028319,000898: 34,2434           37530                           STCALL   VPASS2                                
028320,000899: 34,2435           71133                                    CDHMVR                                
028321,000900: 34,2436           40375                           VLOAD    SETPD                                 
028322,000901: 34,2437           02302                                    RACT2                                 
028323,000902: 34,2440           00001                                    0D                                    
028324,000903: 34,2441           45115                           PDVL     CALL                                  
028325,000904: 34,2442           03544                                    VACT3                                 
028326,000905: 34,2443           46337                                    PERIAPO1                              
028327,000906: 34,2444           77624                           CALL                                           
028328,000907: 34,2445           46447                                    SHIFTR1                               
028329,000908: 34,2446           27604                           STOVL    POSTCDH                               
028330,000909: 34,2447           03544                                    VACT3                                 
028331,000910: 34,2450           63201                           SETPD    PDVL                                  
028332,000911: 34,2451           00001                                    0D                                    
028333,000912: 34,2452           02302                                    RACT2                                 
028334,000913: 34,2453           65325                           PDDL     PDDL                                  
028335,000914: 34,2454           01775                                    TCDH                                  
028336,000915: 34,2455           03636                                    TTPI                                  
028337,000916: 34,2456           41525                           PDDL     PUSH                                  
028338,000917: 34,2457           33642                                    TWOPI                                 
028339,000918: 34,2460           77624                           CALL                                           
028340,000919: 34,2461           73404                                    INTINT                                
028341,000920: 34,2462           77624                           CALL                                           
028342,000921: 34,2463           46423                                    ACTIVE                                
028343,000922: 34,2464           77745                           DLOAD                                          
028344,000923: 34,2465           02250                                    ELEV                                  
028345,000924: 34,2466           73401                           SETPD    SINE                                  
028346,000925: 34,2467           00007                                    6D                                    
028347,000926: 34,2470           53515                           PDVL     UNIT                                  
028348,000927: 34,2471           03536                                    RACT3                                 
028349,000928: 34,2472           00001                           STORE    00D                                   #  URA3 AT 00D
028350,000929: 34,2473           47315                           PDVL     VXV                                   #  PL14D,PL08D
028351,000930: 34,2474           02252                                    UP1                                   
028352,000931: 34,2475           77656                           UNIT                                           
028353,000932: 34,2476           71525                           PDDL     COSINE                                #  UNIT(URA3XUVA3XURA3) = UH3       B1 PL14D
028354,000933: 34,2477           02250                                    ELEV                                  
028355,000934: 34,2500           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                    B2 PL08D
028356,000935: 34,2501           77754                           STORE    18D                                   #      PLUS
028357,000936: 34,2502           74345                           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U               B2 PL00D
028358,000937: 34,2503           76455                           VAD      VSL1                                  
028359,000938: 34,2504           00023                                    18D                                   #                                   B1
028360,000939: 34,2505           50206                           PUSH     DOT                                   #                                      PL06D
028361,000940: 34,2506           03536                                    RACT3                                 #  (U . RA3) = TEMP1     B1 +B29 = B30
028362,000941: 34,2507           41552                           SL1      PUSH                                  #                                  B29 PL08D
028363,000942: 

Page 644

028365,000944: 34,2510           72316                           DSQ      TLOAD                                 #  TEMP1**2                        B58
028366,000945: 34,2511           00155                                    MPAC                                  
028367,000946: 34,2512           50315                           PDVL     DOT                                   #                                      PL11D
028368,000947: 34,2513           03536                                    RACT3                                 
028369,000948: 34,2514           03536                                    RACT3                                 
028370,000949: 34,2515           57551                           TLOAD    DCOMP                                 #  RA3.RA3
028371,000950: 34,2516           00155                                    MPAC                                  
028372,000951: 34,2517           50315                           PDVL     DOT                                   #  RP3.RP3                         B58 PL14D
028373,000952: 34,2520           03552                                    RPASS3                                
028374,000953: 34,2521           03552                                    RPASS3                                #                                        PL11D
028375,000954: 34,2522           76371                           TAD      TAD                                   #  TEMP1**2+RA3.RA3+RP3.RP3=TEMP2        PL08D
028376,000955: 34,2523           71244                           BPL      DLOAD                                 
028377,000956: 34,2524           70542                                    K10RK2                                
028378,000957: 34,2525           03606                                    LOOPCT                                
028379,000958: 34,2526           77025                           DSU      AXT,2                                 
028380,000959: 34,2527           30072                                    1DPB28                                
028381,000960: 34,2530           00001                                    1D                                    
028382,000961: 34,2531           77654                           BZE                                            
028383,000962: 34,2532           72043                                    ALMXITA                               
028384,000963: 34,2533           70545                           DLOAD    SR1                                   
028385,000964: 34,2534           03612                                    DELDV                                 
028386,000965: 34,2535           03612                           STORE    DELDV                                 
028387,000966: 34,2536           77621                           BDSU                                           
028388,000967: 34,2537           03576                                    DVPREV                                
028389,000968: 34,2540           37574                           STCALL   DELVCSI                               
028390,000969: 34,2541           70165                                    CSI/B1                                
028391,000970: 34,2542           41566        K10RK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                B29 PL10D
028392,000971: 34,2543           45276                           DCOMP    DSU                                   
028393,000972: 34,2544           00007                                    06D                                   #  -TEMP1-TEMP3 =K2 AT 10D
028394,000973: 34,2545           14013                           STODL    10D                                   #                                       PL08D
028395,000974: 34,2546           45425                           DSU      STADR                                 #                                       PL06D
028396,000975: 34,2547           77762                           STORE    12D                                   #  -TEMP1+TEMP3 =K1 AT 12D
028397,000976: 34,2550           77646                           ABS                                            
028398,000977: 34,2551           14017                           STODL    14D                                   
028399,000978: 34,2552           00013                                    10D                                   
028400,000979: 34,2553           45246                           ABS      DSU                                   
028401,000980: 34,2554           00017                                    14D                                   
028402,000981: 34,2555           71240                           BMN      DLOAD                                 
028403,000982: 34,2556           70561                                    K2.                                   
028404,000983: 34,2557           00015                                    12D                                   
028405,000984: 34,2560           00013                           STORE    10D                                   #  K=K1
028406,000985: 34,2561           77745        K2.                DLOAD                                          
028407,000986: 34,2562           00013                                    10D                                   
028408,000987: 34,2563           76561                           VXSC     VSL1                                  
028409,000988: 34,2564           53455                           VAD      UNIT                                  #  V=RA3+KU UNIT                    B1
028410,000989: 34,2565           03536                                    RACT3                                 
028411,000990: 34,2566           53515                           PDVL     UNIT                                  
028412,000991: 34,2567           03552                                    RPASS3                                #                                       PL06D
028413,000992: 34,2570           53515                           PDVL     UNIT                                  
028414,000993: 34,2571           03560                                    VPASS3                                #                                       PL12D
028415,000994: 

Page 645

028417,000996: 34,2572           63235                           VXV      PDVL                                  #  UVP3 X URP3                          PL18D
028418,000997: 34,2573           00007                                    06D                                   
028419,000998: 34,2574           00007                                    06D                                   
028420,000999: 34,2575           50235                           VXV      DOT                                   
028421,001000: 34,2576           00001                                    00D                                   
028422,001001: 34,2577           77626                           STADR                                          #                                      PL12D
028423,001002: 34,2600           53762                           STOVL    12D                                   #  (URP3XV).(UVP3XURP3)=TEMP           PL06D
028424,001003: 34,2601           72441                           DOT      SL1                                   #                                      PL00D
028425,001004: 34,2602           75326                           ARCCOS   SIGN                                  
028426,001005: 34,2603           00015                                    12D                                   #                                  B0
028427,001006: 34,2604           41542                           SR1      PUSH                                  #  GAMMA=SIGN(TEMP)ARCOS(UNITV.URP3)   PL02D
028428,001007: 34,2605           71214                           BON      DLOAD                                 
028429,001008: 34,2606           03301                                    S32.1F2                               
028430,001009: 34,2607           70644                                    FRSTPAS                               
028431,001010: 34,2610           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
028432,001011: 34,2611           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                    B1 PL04D
028433,001012: 34,2612           03610                                    GAMPREV                               
028434,001013: 34,2613           03574                                    DELVCSI                               
028435,001014: 34,2614           60225                           DSU      NORM                                  #                                   B7
028436,001015: 34,2615           03576                                    DVPREV                                
028437,001016: 34,2616           00047                                    X1                                    
028438,001017: 34,2617           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)    B-6+N1 PL06D
028439,001018: 34,2620           00003                                    02D                                   #          = SLOPE
028440,001019: 34,2621           03574                                    DELVCSI                               
028441,001020: 34,2622           03576                           STORE    DVPREV                                
028442,001021: 34,2623           43014                           BOFF     BOFF                                  
028443,001022: 34,2624           03342                                    S32.1F3A                              
028444,001023: 34,2625           70656                                    THRDCHK                               
028445,001024: 34,2626           03343                                    S32.1F3B                              
028446,001025: 34,2627           70656                                    THRDCHK                               
028447,001026: 34,2630           41345                           DLOAD    DMP                                   
028448,001027: 34,2631           00003                                    02D                                   
028449,001028: 34,2632           03610                                    GAMPREV                               
028450,001029: 34,2633           71244                           BPL      DLOAD                                 
028451,001030: 34,2634           70663                                    FIFTYFPS                              
028452,001031: 34,2635           30062                                    INITST                                
028453,001032: 34,2636           77765                           SIGN                                           
028454,001033: 34,2637           03612                                    DELDV                                 
028455,001034: 34,2640           03612                           STORE    DELDV                                 
028456,001035: 34,2641           43014                           SET      CLEAR                                 
028457,001036: 34,2642           03062                                    S32.1F3A                              
028458,001037: 34,2643           03263                                    S32.1F3B                              
028459,001038: 34,2644           77745        FRSTPAS            DLOAD                                          
028460,001039: 34,2645           00001                                    00D                                   
028461,001040: 34,2646           17610                           STODL    GAMPREV                               
028462,001041: 34,2647           03574                                    DELVCSI                               
028463,001042: 34,2650           03576                           STORE    DVPREV                                
028464,001043: 34,2651           43025                           DSU      CLEAR                                 
028465,001044: 34,2652           03612                                    DELDV                                 
028466,001045: 34,2653           03261                                    S32.1F2                               
028467,001046: 

Page 646

028469,001048: 34,2654           37574                           STCALL   DELVCSI                               
028470,001049: 34,2655           70165                                    CSI/B1                                
028471,001050: 34,2656           43014        THRDCHK            BON      BON                                   
028472,001051: 34,2657           03302                                    S32.1F3A                              
028473,001052: 34,2660           70702                                    NEWTN                                 
028474,001053: 34,2661           03303                                    S32.1F3B                              
028475,001054: 34,2662           70702                                    NEWTN                                 
028476,001055: 34,2663           75345        FIFTYFPS           DLOAD    SIGN                                  
028477,001056: 34,2664           30102                                    FIFPSDP                               
028478,001057: 34,2665           00005                                    04D                                   
028479,001058: 34,2666           77765                           SIGN                                           
028480,001059: 34,2667           03610                                    GAMPREV                               
028481,001060: 34,2670           03612                           STORE    DELDV                                 
028482,001061: 34,2671           43276                           DCOMP    DAD                                   
028483,001062: 34,2672           03574                                    DELVCSI                               
028484,001063: 34,2673           17574                           STODL    DELVCSI                               
028485,001064: 34,2674           00001                                    00D                                   
028486,001065: 34,2675           43014                           SET      SET                                   
028487,001066: 34,2676           03063                                    S32.1F3B                              
028488,001067: 34,2677           03062                                    S32.1F3A                              
028489,001068: 34,2700           37610                           STCALL   GAMPREV                               
028490,001069: 34,2701           70176                                    CSI/B2                                
028491,001070: 34,2702           60345        NEWTN              DLOAD    NORM                                  
028492,001071: 34,2703           00005                                    04D                                   
028493,001072: 34,2704           00050                                    X2                                    
028494,001073: 34,2705           54065                           BDDV     XSU,1                                 
028495,001074: 34,2706           00001                                    00D                                   
028496,001075: 34,2707           00047                                    X2                                    
028497,001076: 34,2710           77657                           SR*                                            
028498,001077: 34,2711           20601                                    0,1                                   
028499,001078: 34,2712           17612                           STODL    DELDV                                 
028500,001079: 34,2713           00001                                    00D                                   
028501,001080: 34,2714           03610                           STORE    GAMPREV                               
028502,001081: 34,2715           51545                           DLOAD    ABS                                   
028503,001082: 34,2716           03612                                    DELDV                                 
028504,001083: 34,2717           45206                           PUSH     DSU                                   #                                        PL08D
028505,001084: 34,2720           30076                                    EPSILN1                               
028506,001085: 34,2721           71240                           BMN      DLOAD                                 
028507,001086: 34,2722           70737                                    CSI/SOL                               
028508,001087: 34,2723           50025                           DSU      BMN                                   
028509,001088: 34,2724           30106                                    DELMAX1                               
028510,001089: 34,2725           70732                                    CSISTEP                               
028511,001090: 34,2726           75345                           DLOAD    SIGN                                  
028512,001091: 34,2727           30106                                    DELMAX1                               
028513,001092: 34,2730           03612                                    DELDV                                 
028514,001093: 34,2731           03612                           STORE    DELDV                                 
028515,001094: 34,2732           45345        CSISTEP            DLOAD    DSU                                   
028516,001095: 34,2733           03574                                    DELVCSI                               
028517,001096: 34,2734           03612                                    DELDV                                 
028518,001097: 34,2735           37574                           STCALL   DELVCSI                               
028519,001098: 

Page 647

028521,001100: 34,2736           70165                                    CSI/B1                                
028522,001101: 34,2737           77145        CSI/SOL            DLOAD    AXT,2                                 
028523,001102: 34,2740           03602                                    POSTCSI                               
028524,001103: 34,2741           00002                                    2                                     
028525,001104: 34,2742           77750                           LXA,1                                          
028526,001105: 34,2743           02776                                    RTX1                                  
028527,001106: 34,2744           50023                           DSU*     BMN                                   
028528,001107: 34,2745           30072                                    PMINE      -2,1                       
028529,001108: 34,2746           70776                                    SCNDSOL                               
028530,001109: 34,2747           71374                           AXT,2    DLOAD                                 
028531,001110: 34,2750           00003                                    3                                     
028532,001111: 34,2751           03604                                    POSTCDH                               
028533,001112: 34,2752           50023                           DSU*     BMN                                   
028534,001113: 34,2753           30072                                    PMINE      -2,1                       
028535,001114: 34,2754           70776                                    SCNDSOL                               
028536,001115: 34,2755           45345                           DLOAD    DSU                                   
028537,001116: 34,2756           01775                                    TCDH                                  
028538,001117: 34,2757           03634                                    TCSI                                  
028539,001118: 34,2760           02244                           STORE    T1TOT2                                
028540,001119: 34,2761           45374                           AXT,2    DSU                                   
028541,001120: 34,2762           00004                                    4                                     
028542,001121: 34,2763           30112                                    TMIN                                  
028543,001122: 34,2764           77040                           BMN      AXT,2                                 
028544,001123: 34,2765           70776                                    SCNDSOL                               
028545,001124: 34,2766           00005                                    5                                     
028546,001125: 34,2767           45345                           DLOAD    DSU                                   
028547,001126: 34,2770           03636                                    TTPI                                  
028548,001127: 34,2771           01775                                    TCDH                                  
028549,001128: 34,2772           02246                           STORE    T2TOT3                                
028550,001129: 34,2773           51025                           DSU      BPL                                   
028551,001130: 34,2774           30112                                    TMIN                                  
028552,001131: 34,2775           72157                                    P32/P72C                              
028553,001132: 34,2776           43014        SCNDSOL            BON      BOFF                                  
028554,001133: 34,2777           03302                                    S32.1F3A                              
028555,001134: 34,3000           72045                                    ALMXIT                                
028556,001135: 34,3001           03343                                    S32.1F3B                              
028557,001136: 34,3002           72045                                    ALMXIT                                
028558,001137: 34,3003           71334                           SXA,2    DLOAD                                 
028559,001138: 34,3004           03613                                    CSIALRM                               
028560,001139: 34,3005           32425                                    P30ZERO                               
028561,001140: 34,3006           43014                           CLEAR    SET                                   
028562,001141: 34,3007           03260                                    S32.1F1                               
028563,001142: 34,3010           03061                                    S32.1F2                               
028564,001143: 34,3011           43014                           CLEAR    CLEAR                                 
028565,001144: 34,3012           03262                                    S32.1F3A                              
028566,001145: 34,3013           03263                                    S32.1F3B                              
028567,001146: 34,3014           37606                           STCALL   LOOPCT                                
028568,001147: 34,3015           70125                                    CSI/B                                 
028569,001148: 

Page 648

028571,001150:                                                                                                  #  ..... ADVANCE    .....
028572,001151: 
028573,001152:                                                                                                  #  SUBROUTINES USED
028574,001153: 
028575,001154:                                                                                                  #        PRECSET
028576,001155:                                                                                                  #        ROTATE
028577,001156: 
028578,001157: 34,3016           71220        ADVANCE            STQ      DLOAD                                 
028579,001158: 34,3017           03470                                    SUBEXIT                               
028580,001159: 34,3020           03442                                    TIG                                   
028581,001160: 34,3021           34041                           STCALL   TDEC1                                 
028582,001161: 34,3022           46401                                    PRECSET                               
028583,001162: 34,3023           77214                           SET      VLOAD                                 
028584,001163: 34,3024           01067                                    XDELVFLG                              
028585,001164: 34,3025           03560                                    VPASS3                                
028586,001165: 34,3026           03530                           STORE    VPASS2                                
028587,001166: 34,3027           27506                           STOVL    VPASS1                                
028588,001167: 34,3030           03552                                    RPASS3                                
028589,001168: 34,3031           03522                           STORE    RPASS2                                
028590,001169: 34,3032           03500                           STORE    RPASS1                                
028591,001170: 34,3033           47256                           UNIT     VXV                                   
028592,001171: 34,3034           03506                                    VPASS1                                
028593,001172: 34,3035           77656                           UNIT                                           
028594,001173: 34,3036           26252                           STOVL    UP1                                   
028595,001174: 34,3037           03536                                    RACT3                                 
028596,001175: 34,3040           37642                           STCALL   RTIG                                  
028597,001176: 34,3041           71052                                    ROTATE                                
028598,001177: 34,3042           02302                           STORE    RACT2                                 
028599,001178: 34,3043           26274                           STOVL    RACT1                                 
028600,001179: 34,3044           03544                                    VACT3                                 
028601,001180: 34,3045           37650                           STCALL   VTIG                                  
028602,001181: 34,3046           71052                                    ROTATE                                
028603,001182: 34,3047           03514                           STORE    VACT2                                 
028604,001183: 34,3050           37472                           STCALL   VACT1                                 
028605,001184: 34,3051           03470                                    SUBEXIT                               
028606,001185: 

Page 649

028608,001187:                                                                                                  #  ..... ROTATE     .....
028609,001188: 
028610,001189: 34,3052           41406        ROTATE             PUSH     PUSH                                  
028611,001190: 34,3053           74241                           DOT      VXSC                                  
028612,001191: 34,3054           02252                                    UP1                                   
028613,001192: 34,3055           02252                                    UP1                                   
028614,001193: 34,3056           51352                           VSL2     BVSU                                  
028615,001194: 34,3057           63256                           UNIT     PDVL                                  
028616,001195: 34,3060           74246                           ABVAL    VXSC                                  
028617,001196: 34,3061           43572                           VSL1     RVQ                                   
028618,001197: 

Page 650

028620,001199:                                                                                                  #  ..... INTINTNA   .....
028621,001200: 
028622,001201: 34,3062           65325        INTINT2C           PDDL     PDDL                                  
028623,001202: 34,3063           03634                                    TCSI                                  
028624,001203: 34,3064           01775                                    TCDH                                  
028625,001204: 34,3065           41525                           PDDL     PUSH                                  
028626,001205: 34,3066           33642                                    TWOPI                                 
028627,001206: 34,3067           77650                           GOTO                                           
028628,001207: 34,3070           73404                                    INTINT                                
028629,001208: 34,3071           65325        INTINT3P           PDDL     PDDL                                  
028630,001209: 34,3072           01775                                    TCDH                                  
028631,001210: 34,3073           03636                                    TTPI                                  
028632,001211: 34,3074           41525                           PDDL     PUSH                                  
028633,001212: 34,3075           32425                                    P30ZERO                               
028634,001213: 34,3076           77650                           GOTO                                           
028635,001214: 34,3077           73404                                    INTINT                                
028636,001215: 

Page 651

028638,001217:                                                                                                  #  ..... S32/33.1  .....
028639,001218: 
028640,001219:                                                                                                  #  SUBROUTINES USED
028641,001220: 
028642,001221:                                                                                                  #        S32/33.X
028643,001222: 
028644,001223: 34,3100           76020        S32/33.1           STQ      AXT,1                                 
028645,001224: 34,3101           03470                                    SUBEXIT                               
028646,001225: 34,3102           01521                           VN       0681                                  
028647,001226: 34,3103           77624                           CALL                                           
028648,001227: 34,3104           72375                                    DISDVLVC                              
028649,001228: 34,3105           77624                           CALL                                           
028650,001229: 34,3106           71120                                    S32/33.X                              
028651,001230: 34,3107           61375                           VLOAD    VXM                                   
028652,001231: 34,3110           03434                                    DELVLVC                               
028653,001232: 34,3111           00001                                    0D                                    
028654,001233: 34,3112           77772                           VSL1                                           
028655,001234: 34,3113           03656                           STORE    DELVSIN                               
028656,001235: 34,3114           51406                           PUSH     ABVAL                                 
028657,001236: 34,3115           27664                           STOVL    DELVSAB                               
028658,001237: 34,3116           77650                           GOTO                                           
028659,001238: 34,3117           03470                                    SUBEXIT                               
028660,001239: 

Page 652

028662,001241:                                                                                                  #  ..... S32/33.X  .....
028663,001242: 
028664,001243: 34,3120           77201        S32/33.X           SETPD    VLOAD                                 
028665,001244: 34,3121           00007                                    6D                                    
028666,001245: 34,3122           02252                                    UP1                                   
028667,001246: 34,3123           63276                           VCOMP    PDVL                                  
028668,001247: 34,3124           02274                                    RACT1                                 
028669,001248: 34,3125           57456                           UNIT     VCOMP                                 
028670,001249: 34,3126           47206                           PUSH     VXV                                   
028671,001250: 34,3127           02252                                    UP1                                   
028672,001251: 34,3130           77772                           VSL1                                           
028673,001252: 34,3131           00001                           STORE    0D                                    
028674,001253: 34,3132           77616                           RVQ                                            
028675,001254: 

Page 653

028677,001256:                                                                                                  #  ..... CDHMVR     .....
028678,001257: 
028679,001258:                                                                                                  #  SUBROUTINES USED
028680,001259: 
028681,001260:                                                                                                  #        VECSHIFT
028682,001261:                                                                                                  #        TIMETHET
028683,001262:                                                                                                  #        SHIFTR1
028684,001263: 
028685,001264: 34,3133           77220        CDHMVR             STQ      VLOAD                                 
028686,001265: 34,3134           03470                                    SUBEXIT                               
028687,001266: 34,3135           02302                                    RACT2                                 
028688,001267: 34,3136           53406                           PUSH     UNIT                                  
028689,001268: 34,3137           27544                           STOVL    UNVEC                                 #  UR SUB A
028690,001269: 34,3140           03522                                    RPASS2                                
028691,001270: 34,3141           50256                           UNIT     DOT                                   
028692,001271: 34,3142           03544                                    UNVEC                                 
028693,001272: 34,3143           72406                           PUSH     SL1                                   
028694,001273: 34,3144           16732                           STODL    CSTH                                  
028695,001274: 34,3145           65316                           DSQ      PDDL                                  
028696,001275: 34,3146           06475                                    DP1/4TH                               
028697,001276: 34,3147           45302                           SR2      DSU                                   
028698,001277: 34,3150           72566                           SQRT     SL1                                   
028699,001278: 34,3151           57515                           PDVL     VCOMP                                 
028700,001279: 34,3152           77635                           VXV                                            
028701,001280: 34,3153           03522                                    RPASS2                                
028702,001281: 34,3154           65241                           DOT      PDDL                                  
028703,001282: 34,3155           02252                                    UP1                                   
028704,001283: 34,3156           45565                           SIGN     STADR                                 
028705,001284: 34,3157           51047                           STOVL    SNTH                                  
028706,001285: 34,3160           03522                                    RPASS2                                
028707,001286: 34,3161           45115                           PDVL     CALL                                  
028708,001287: 34,3162           03530                                    VPASS2                                
028709,001288: 34,3163           46437                                    VECSHIFT                              
028710,001289: 34,3164           26744                           STOVL    VVEC                                  
028711,001290: 34,3165           77614                           CLEAR                                          
028712,001291: 34,3166           03666                                    RVSW                                  
028713,001292: 34,3167           36655                           STCALL   RVEC                                  
028714,001293: 34,3170           24732                                    TIMETHET                              
028715,001294: 34,3171           53754                           LXA,2    VSL*                                  
028716,001295: 34,3172           02777                                    RTX2                                  
028717,001296: 34,3173           57576                                    0,2                                   
028718,001297: 34,3174           00023                           STORE    18D                                   
028719,001298: 34,3175           76441                           DOT      SL1R                                  
028720,001299: 34,3176           03544                                    UNVEC                                 
028721,001300: 34,3177           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
028722,001301: 34,3200           63257                           SL*      PDVL                                  
028723,001302: 34,3201           57576                                    0,2                                   
028724,001303: 34,3202           02302                                    RACT2                                 
028725,001304: 34,3203           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
028726,001305: 34,3204           77625                           DSU                                            
028727,001306: 

Page 654

028729,001308: 34,3205           00003                                    02D                                   
028730,001309: 34,3206           17600                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
028731,001310: 34,3207           02742                                    R1A                                   
028732,001311: 34,3210           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
028733,001312: 34,3211           00047                                    X1                                    
028734,001313: 34,3212           00041                                    R1                                    
028735,001314: 34,3213           77624                           CALL                                           
028736,001315: 34,3214           46447                                    SHIFTR1                               
028737,001316: 34,3215           56362                           SR1R     DDV                                   
028738,001317: 34,3216           41457                           SL*      PUSH                                  
028739,001318: 34,3217           20174                                    0          -5,1                       
028740,001319: 34,3220           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
028741,001320: 34,3221           03600                                    DIFFALT                               
028742,001321: 34,3222           56302                           SR2      DDV                                   #  A SUB P                      B+31
028743,001322: 34,3223           00005                                    04D                                   #                               B+2
028744,001323: 34,3224           75406                           PUSH     SQRT                                  #     A SUB P/A SUB A             06D
028745,001324: 34,3225           41275                           DMPR     DMP                                   
028746,001325: 34,3226           00007                                    06D                                   
028747,001326: 34,3227           00001                                    00D                                   
028748,001327: 34,3230           65272                           SL3R     PDDL                                  #  V SUB A V METERS/CS           B+7     08D
028749,001328: 34,3231           00003                                    02D                                   #  R SUB A MAGNITUDE    B+29
028750,001329: 34,3232           65301                           NORM     PDDL                                  
028751,001330: 34,3233           00047                                    X1                                    
028752,001331: 34,3234           02312                                    RTMU                                  
028753,001332: 34,3235           56342                           SR1      DDV                                   #  2MU  B+38
028754,001333: 34,3236           65257                           SL*      PDDL                                  #     2 MU/R SUBAA      B+14       10D
028755,001334: 34,3237           20174                                    0          -5,1                       
028756,001335: 34,3240           00005                                    04D                                   #  ASUBA                        B+29
028757,001336: 34,3241           65301                           NORM     PDDL                                  
028758,001337: 34,3242           00050                                    X2                                    
028759,001338: 34,3243           02312                                    RTMU                                  
028760,001339: 34,3244           56342                           SR1      DDV                                   
028761,001340: 34,3245           44257                           SL*      BDSU                                  
028762,001341: 34,3246           57604                                    0          -6,2                       #  2U/R - U/A    B+14 (METERS/CS)SQ
028763,001342: 34,3247           63525                           PDDL     DSQ                                   #                                        10D
028764,001343: 34,3250           00011                                    08D                                   
028765,001344: 34,3251           75421                           BDSU     SQRT                                  
028766,001345: 34,3252           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)10D
028767,001346: 34,3253           02252                                    UP1                                   
028768,001347: 34,3254           03544                                    UNVEC                                 
028769,001348: 34,3255           74256                           UNIT     VXSC                                  
028770,001349: 34,3256           00013                                    10D                                   
028771,001350: 34,3257           74315                           PDVL     VXSC                                  
028772,001351: 34,3260           03544                                    UNVEC                                 
028773,001352: 34,3261           00011                                    08D                                   
028774,001353: 34,3262           76455                           VAD      VSL1                                  
028775,001354: 34,3263           77626                           STADR                                          
028776,001355: 34,3264           74233                           STORE    VACT3                                 
028777,001356: 34,3265           77651                           VSU                                            
028778,001357: 34,3266           03514                                    VACT2                                 

Page 655

028780,001359: 34,3267           36266                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
028781,001360: 34,3270           03470                                    SUBEXIT                               
028782,001361: 

Page 656

028784,001363:                                                                                                  #  ..... COMPTGO   .....
028785,001364: 
028786,001365:                                                                                                  #  SUBROUTINES USED
028787,001366: 
028788,001367:                                                                                                  #           CLOKTASK
028789,001368:                                                                                                  #           2PHSCHNG
028790,001369: 
028791,001370: 35,2437                                           BANK     35                                    
028792,001371: 35,2000                                           SETLOC   CSI/CDH                               
028793,001372: 35,2000                                           BANK                                           
028794,001373: 
028795,001374: 35,2437  E7,1465                                  EBANK=   RTRN                                  
028796,001375: 
028797,001376: 35,2437                                           COUNT*   $$/P3575                              
028798,001377: 
028799,001378: 35,2437           00006        COMPTGO            EXTEND                                         
028800,001379: 35,2440           23465                           QXCH     RTRN                                  
028801,001380: 35,2441           34746                           CAF      ZERO                                  
028802,001381: 35,2442           55162                           TS       DISPDEX                               
028803,001382: 35,2443           34743                           CAF      BIT2                                  
028804,001383: 35,2444           00004                           INHINT                                         
028805,001384: 35,2445           05205                           TC       WAITLIST                              
028806,001385: 35,2446  E7,1455                                  EBANK=   WHICH                                 
028807,001386: 35,2446           02716 74067                     2CADR    CLOKTASK                              
028808,001387: 
028809,001388: 35,2450           05331                           TC       2PHSCHNG                              
028810,001389: 35,2451           40036                           OCT      40036                                 
028811,001390: 35,2452           05024                           OCT      05024                                 
028812,001391: 35,2453           13000                           OCT      13000                                 
028813,001392: 35,2454           01465                           TC       RTRN                                  

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