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.

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

Page 624

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

Page 625

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

Page 626

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

Page 627

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

Page 628

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

Page 629

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

Page 630

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

Page 631

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

Page 632

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

Page 633

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

Page 634

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

Page 635

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

Page 636

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

Page 637

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

Page 638

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

Page 639

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

Page 640

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

Page 641

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

Page 642

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

Page 643

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

Page 644

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

Page 645

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

Page 646

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

Page 647

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

Page 648

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

Page 649

028600,001186:                                                                                                  #  ..... ROTATE     .....
028601,001187: 
028602,001188: 34,3052           41406        ROTATE             PUSH     PUSH                                  
028603,001189: 34,3053           74241                           DOT      VXSC                                  
028604,001190: 34,3054           02252                                    UP1                                   
028605,001191: 34,3055           02252                                    UP1                                   
028606,001192: 34,3056           51352                           VSL2     BVSU                                  
028607,001193: 34,3057           63256                           UNIT     PDVL                                  
028608,001194: 34,3060           74246                           ABVAL    VXSC                                  
028609,001195: 34,3061           43572                           VSL1     RVQ                                   
028610,001196: 

Page 650

028612,001198:                                                                                                  #  ..... INTINTNA   .....
028613,001199: 
028614,001200: 34,3062           65325        INTINT2C           PDDL     PDDL                                  
028615,001201: 34,3063           03634                                    TCSI                                  
028616,001202: 34,3064           01775                                    TCDH                                  
028617,001203: 34,3065           41525                           PDDL     PUSH                                  
028618,001204: 34,3066           33642                                    TWOPI                                 
028619,001205: 34,3067           77650                           GOTO                                           
028620,001206: 34,3070           73404                                    INTINT                                
028621,001207: 34,3071           65325        INTINT3P           PDDL     PDDL                                  
028622,001208: 34,3072           01775                                    TCDH                                  
028623,001209: 34,3073           03636                                    TTPI                                  
028624,001210: 34,3074           41525                           PDDL     PUSH                                  
028625,001211: 34,3075           32425                                    P30ZERO                               
028626,001212: 34,3076           77650                           GOTO                                           
028627,001213: 34,3077           73404                                    INTINT                                
028628,001214: 

Page 651

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

Page 652

028654,001240:                                                                                                  #  ..... S32/33.X  .....
028655,001241: 
028656,001242: 34,3120           77201        S32/33.X           SETPD    VLOAD                                 
028657,001243: 34,3121           00007                                    6D                                    
028658,001244: 34,3122           02252                                    UP1                                   
028659,001245: 34,3123           63276                           VCOMP    PDVL                                  
028660,001246: 34,3124           02274                                    RACT1                                 
028661,001247: 34,3125           57456                           UNIT     VCOMP                                 
028662,001248: 34,3126           47206                           PUSH     VXV                                   
028663,001249: 34,3127           02252                                    UP1                                   
028664,001250: 34,3130           77772                           VSL1                                           
028665,001251: 34,3131           00001                           STORE    0D                                    
028666,001252: 34,3132           77616                           RVQ                                            
028667,001253: 

Page 653

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

Page 654

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

Page 655

028772,001358: 34,3267           36266                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
028773,001359: 34,3270           03470                                    SUBEXIT                               
028774,001360: 

Page 656

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

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