Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

027345,000002:                                                                                                  ## Copyright:   Public domain.
027346,000003:                                                                                                  ## Filename:    P32-P35,_P72-P75.agc
027347,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
027348,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
027349,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
027350,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
027351,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
027352,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
027353,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
027354,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
027355,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
027356,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
027357,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
027358,000015:                                                                                                  ## Reference:   pp. 616-648
027359,000016:                                                                                                  ## Assembler:   yaYUL
027360,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027361,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
027362,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
027363,000020:                                                                                                  ##              2017-08-25 RSB  Transcribed.
027364,000021: 

Page 616

027366,000023:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
027367,000024: 
027368,000025:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
027369,000026:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
027370,000027: 
027371,000028:                                                                                                  #  PURPOSE
027372,000029: 
027373,000030:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
027374,000031:                                                                                                  #            CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
027375,000032:                                                                                                  #            INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
027376,000033:                                                                                                  #            (CDH) MANEUVER.
027377,000034: 
027378,000035:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027379,000036:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027380,000037: 
027381,000038:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027382,000039:                                                                                                  #            ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
027383,000040:                                                                                                  #            APPROVAL BY THE ASTRONAUT/GROUND.
027384,000041: 
027385,000042:                                                                                                  #        (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
027386,000043:                                                                                                  #            THRUSTING PROGRAM.
027387,000044: 
027388,000045:                                                                                                  #  ASSUMPTIONS
027389,000046: 
027390,000047:                                                                                                  #        (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
027391,000048:                                                                                                  #            AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
027392,000049:                                                                                                  #            FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
027393,000050:                                                                                                  #            POSITION.
027394,000051: 
027395,000052:                                                                                                  #        (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
027396,000053:                                                                                                  #            COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027397,000054:                                                                                                  #            COMPLETION OF THE PROGRAM.
027398,000055: 
027399,000056:                                                                                                  #        (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
027400,000057:                                                                                                  #            COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027401,000058:                                                                                                  #            COMPLETION OF THE PROGRAM.
027402,000059: 
027403,000060:                                                                                                  #        (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
027404,000061:                                                                                                  #            ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
027405,000062: 
027406,000063:                                                                                                  #        (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
027407,000064:                                                                                                  #            HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
027408,000065:                                                                                                  #            IGNITION.
027409,000066: 
027410,000067:                                                                                                  #        (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
027411,000068:                                                                                                  #            MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
027412,000069:                                                                                                  #            ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
027413,000070: 
027414,000071:                                                                                                  #        (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
027415,000072:                                                                                                  #            PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW

Page 617

027417,000074:                                                                                                  #            MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
027418,000075:                                                                                                  #            OUT-OF-PLANE CSI MANEUVER.
027419,000076: 
027420,000077:                                                                                                  #        (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027421,000078:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
027422,000079: 
027423,000080:                                                                                                  #        (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027424,000081:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
027425,000082:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027426,000083:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027427,000084: 
027428,000085:                                                                                                  #       (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027429,000086:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027430,000087:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027431,000088:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027432,000089:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027433,000090:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027434,000091:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027435,000092:                                                                                                  #            THRUSTING MANEUVER.
027436,000093: 
027437,000094:                                                                                                  #       (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027438,000095: 
027439,000096:                                                                                                  #       (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027440,000097: 
027441,000098:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027442,000099:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027443,000100:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027444,000101:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027445,000102: 
027446,000103:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027447,000104:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027448,000105:                                                                                                  #                CYCLE.
027449,000106: 
027450,000107:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027451,000108:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027452,000109:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027453,000110:                                                                                                  #                PROGRAM.
027454,000111: 
027455,000112:                                                                                                  #       (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027456,000113:                                                                                                  #            A THRUSTING MANEUVER.
027457,000114: 
027458,000115:                                                                                                  #       (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027459,000116: 
027460,000117:                                                                                                  #                P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
027461,000118: 
027462,000119:                                                                                                  #                P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
027463,000120: 
027464,000121:                                                                                                  #  INPUT
027465,000122: 
027466,000123:                                                                                                  #        (1) TCSI     TIME OF THE CSI MANEUVER
027467,000124: 

Page 618

027469,000126:                                                                                                  #        (2) NN       NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027470,000127:                                                                                                  #                     VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027471,000128:                                                                                                  #                     MANEUVER POINT
027472,000129:                                                                                                  #        (3) ELEV     DESIRED LOS ANGLE AT TPI
027473,000130:                                                                                                  #        (4) TTPI     TIME OF THE TPI MANEUVER
027474,000131:                                                                                                  #  OUTPUT
027475,000132: 
027476,000133:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
027477,000134:                                                                                                  #        (2) TTOGO    TIME TO GO
027478,000135:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
027479,000136:                                                                                                  #        (4) DIFFALT  DELTA ALTITUDE AT CDH
027480,000137:                                                                                                  #        (5) T1TOT2   DELTA TIME FROM CSI TO CDH
027481,000138:                                                                                                  #        (6) T2TOT3   DELTA TIME FROM CDH TO TPI
027482,000139:                                                                                                  #        (7) DELVLVC  DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
027483,000140:                                                                                                  #        (8) DELVLVC  DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027484,000141: 
027485,000142:                                                                                                  #  DOWNLINK
027486,000143: 
027487,000144:                                                                                                  #        (1) TCSI     TIME OF THE CSI MANEUVER
027488,000145:                                                                                                  #        (2) TCDH     TIME OF THE CDH MANEUVER
027489,000146:                                                                                                  #        (3) TTPI     TIME OF THE TPI MANEUVER
027490,000147:                                                                                                  #        (4) TIG      TIME OF THE CSI MANEUVER
027491,000148:                                                                                                  #        (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027492,000149:                                                                                                  #        (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027493,000150:                                                                                                  #        (7) DIFFALT  DELTA ALTITUDE AT CDH
027494,000151:                                                                                                  #        (8) NN       NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027495,000152:                                                                                                  #                     VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027496,000153:                                                                                                  #                     MANEUVER POINT
027497,000154:                                                                                                  #        (9) ELEV     DESIRED LOS ANGLE AT TPI
027498,000155: 
027499,000156:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
027500,000157: 
027501,000158:                                                                                                  #        (1) TIG      TIME OF THE CSI MANEUVER
027502,000159:                                                                                                  #        (2) RTIG     POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
027503,000160:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027504,000161:                                                                                                  #        (3) VTIG     VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
027505,000162:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027506,000163:                                                                                                  #        (4) DELVSIN  DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027507,000164:                                                                                                  #        (5) DELVSAB  MAGNITUDE OF DELTA VELOCITY AT CSI
027508,000165:                                                                                                  #        (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027509,000166: 
027510,000167:                                                                                                  #  SUBROUTINES USED
027511,000168: 
027512,000169:                                                                                                  #        AVFLAGA
027513,000170:                                                                                                  #        AVFLAGP
027514,000171:                                                                                                  #        P20FLGON
027515,000172:                                                                                                  #        VARALARM
027516,000173:                                                                                                  #        BANKCALL
027517,000174:                                                                                                  #        GOFLASH
027518,000175:                                                                                                  #        GOTOPOOH

Page 619

027520,000177:                                                                                                  #        VNPOOH
027521,000178:                                                                                                  #        GOFLASHR
027522,000179:                                                                                                  #        BLANKET
027523,000180:                                                                                                  #        ENDOFJOB
027524,000181:                                                                                                  #        SELECTMU
027525,000182:                                                                                                  #        ADVANCE
027526,000183:                                                                                                  #        INTINT
027527,000184:                                                                                                  #        PASSIVE
027528,000185:                                                                                                  #        CSI/A
027529,000186:                                                                                                  #        S32/33.1
027530,000187:                                                                                                  #        DISDVLVC
027531,000188:                                                                                                  #        VN1645
027532,000189: 
027533,000190: 35,2034                                           BANK     35                                    
027534,000191: 35,2000                                           SETLOC   CSI/CDH                               
027535,000192: 35,2000                                           BANK                                           
027536,000193: 35,2034  E7,1470                                  EBANK=   SUBEXIT                               
027537,000194: 35,2034                                           COUNT*   $$/P3272                              
027538,000195: 35,2034           02354        P32                TC       AVFLAGA                               
027539,000196: 35,2035           02037                           TC       P32STRT                               
027540,000197: 35,2036           02361        P72                TC       AVFLAGP                               
027541,000198: 35,2037           00006        P32STRT            EXTEND                                         
027542,000199: 35,2040           32425                           DCA      P30ZERO                               
027543,000200: 35,2041           53621                           DXCH     CENTANG                               
027544,000201: 35,2042           02060                           TC       P32/P72A                              
027545,000202: 35,2043           77734        ALMXITA            SXA,2                                          
027546,000203: 35,2044           03613                                    CSIALRM                               
027547,000204: 35,2045           77740        ALMXIT             LXC,1                                          
027548,000205: 35,2046           03613                                    CSIALRM                               
027549,000206: 35,2047           77533                           SLOAD*   EXIT                                  
027550,000207: 35,2050           32430                                    ALARM/TB   -1,1                       
027551,000208: 35,2051           30154                           CA       MPAC                                  
027552,000209: 35,2052           05745                           TC       VARALARM                              
027553,000210: 35,2053           35006                           CAF      V05N09                                
027554,000211: 35,2054           04616                           TC       BANKCALL                              
027555,000212: 35,2055           20477                           CADR     GOFLASH                               
027556,000213: 35,2056           06001                           TC       GOTOPOOH                              
027557,000214: 35,2057           02053                           TC       -4                                    
027558,000215: 35,2060           02366        P32/P72A           TC       P20FLGON                              
027559,000216: 35,2061           32424                           CAF      P30ZERO                               
027560,000217: 35,2062           55467                           TS       NN         +1                         
027561,000218: 35,2063           55633                           TS       TCSI                                  
027562,000219: 35,2064           55634                           TS       TCSI       +1                         
027563,000220: 35,2065           32415        VN0611             CAF      V06N11                                #  TCSI
027564,000221: 35,2066           03627                           TC       VNPOOH                                
027565,000222: 35,2067           06051                           TC       INTPRET                               
027566,000223: 35,2070           57545                           DLOAD    DCOMP                                 
027567,000224: 35,2071           03634                                    TCSI                                  
027568,000225: 35,2072           71240                           BMN      DLOAD                                 
027569,000226: 35,2073           72120                                    VN0655                                

Page 620

027571,000228: 35,2074           01643                                    TETLEM                                
027572,000229: 35,2075           34041                           STCALL   TDEC1                                 
027573,000230: 35,2076           46401                                    PRECSET                               
027574,000231: 35,2077           53775                           VLOAD    VSR*                                  
027575,000232: 35,2100           03536                                    RACT3                                 
027576,000233: 35,2101           57176                                    0,2                                   
027577,000234: 35,2102           26655                           STOVL    RVEC                                  
027578,000235: 35,2103           03544                                    VACT3                                 
027579,000236: 35,2104           43057                           VSR*     SET                                   
027580,000237: 35,2105           57176                                    0,2                                   
027581,000238: 35,2106           03466                                    RVSW                                  
027582,000239: 35,2107           16744                           STODL    VVEC                                  
027583,000240: 35,2110           06526                                    DPPOSMAX                              
027584,000241: 35,2111           36756                           STCALL   RDESIRED                              
027585,000242: 35,2112           25557                                    TIMERAD                               
027586,000243: 35,2113           77615                           DAD                                            
027587,000244: 35,2114           03574                                    TDEC2                                 
027588,000245: 35,2115           03634                           STORE    TCSI                                  
027589,000246: 35,2116           77776                           EXIT                                           
027590,000247: 35,2117           02065                           TC       VN0611                                
027591,000248: 35,2120           77776        VN0655             EXIT                                           
027592,000249: 35,2121           33641                           CAF      V06N55                                #  NN, ELEV(RGLOS)
027593,000250: 35,2122           04616                           TC       BANKCALL                              
027594,000251: 35,2123           20477                           CADR     GOFLASH                               
027595,000252: 35,2124           06001                           TC       GOTOPOOH                              
027596,000253: 35,2125           02127                           TC       +2                                    
027597,000254: 35,2126           02121                           TC       -5                                    
027598,000255: 35,2127           33640                           CAF      V06N37                                #  TTPI
027599,000256: 35,2130           03627                           TC       VNPOOH                                
027600,000257: 35,2131           06051                           TC       INTPRET                               
027601,000258: 35,2132           77745                           DLOAD                                          
027602,000259: 35,2133           03634                                    TCSI                                  
027603,000260: 35,2134           37442                           STCALL   TIG                                   
027604,000261: 35,2135           20000                                    SELECTMU                              
027605,000262: 35,2136           77624        P32/P72B           CALL                                           
027606,000263: 35,2137           71076                                    ADVANCE                               
027607,000264: 35,2140           77201                           SETPD    VLOAD                                 
027608,000265: 35,2141           00001                                    0D                                    
027609,000266: 35,2142           03506                                    VPASS1                                
027610,000267: 35,2143           65315                           PDVL     PDDL                                  
027611,000268: 35,2144           03500                                    RPASS1                                
027612,000269: 35,2145           03634                                    TCSI                                  
027613,000270: 35,2146           65325                           PDDL     PDDL                                  
027614,000271: 35,2147           03636                                    TTPI                                  
027615,000272: 35,2150           33647                                    TWOPI                                 
027616,000273: 35,2151           45006                           PUSH     CALL                                  
027617,000274: 35,2152           73404                                    INTINT                                
027618,000275: 35,2153           77624                           CALL                                           
027619,000276: 35,2154           46433                                    PASSIVE                               
027620,000277: 35,2155           77624                           CALL                                           
027621,000278: 

Page 621

027623,000280: 35,2156           70173                                    CSI/A                                 
027624,000281: 35,2157           43014        P32/P72C           BON      SET                                   
027625,000282: 35,2160           01311                                    FINALFLG                              
027626,000283: 35,2161           72163                                    P32/P72D                              
027627,000284: 35,2162           00470                                    UPDATFLG                              
027628,000285: 35,2163           77745        P32/P72D           DLOAD                                          
027629,000286: 35,2164           02244                                    T1TOT2                                
027630,000287: 35,2165           02244        P32/P72E           STORE    T1TOT2                                
027631,000288: 35,2166           51025                           DSU      BPL                                   
027632,000289: 35,2167           32427                                    60MIN                                 
027633,000290: 35,2170           72165                                    P32/P72E                              
027634,000291: 35,2171           77745                           DLOAD                                          
027635,000292: 35,2172           02246                                    T2TOT3                                
027636,000293: 35,2173           02246        P32/P72F           STORE    T2TOT3                                
027637,000294: 35,2174           51025                           DSU      BPL                                   
027638,000295: 35,2175           32427                                    60MIN                                 
027639,000296: 35,2176           72173                                    P32/P72F                              
027640,000297: 35,2177           77776                           EXIT                                           
027641,000298: 35,2200           32417                           CAF      V06N75                                
027642,000299: 35,2201           03627                           TC       VNPOOH                                
027643,000300: 35,2202           06051                           TC       INTPRET                               
027644,000301: 35,2203           45175                           VLOAD    CALL                                  
027645,000302: 35,2204           02260                                    DELVEET1                              
027646,000303: 35,2205           71160                                    S32/33.1                              
027647,000304: 35,2206           26260                           STOVL    DELVEET1                              
027648,000305: 35,2207           02302                                    RACT2                                 
027649,000306: 35,2210           26274                           STOVL    RACT1                                 
027650,000307: 35,2211           02266                                    DELVEET2                              
027651,000308: 35,2212           45170                           AXT,1    CALL                                  
027652,000309: 35,2213           01522                           VN       0682                                  
027653,000310: 35,2214           72375                                    DISDVLVC                              
027654,000311: 35,2215           77745                           DLOAD                                          
027655,000312: 35,2216           03636                                    TTPI                                  
027656,000313: 35,2217           37640                           STCALL   TTPIO                                 
027657,000314: 35,2220           73523                                    VN1645                                
027658,000315: 35,2221           77650                           GOTO                                           
027659,000316: 35,2222           72136                                    P32/P72B                              
027660,000317: 

Page 622

027662,000319:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
027663,000320: 
027664,000321:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
027665,000322:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
027666,000323:                                                                                                  #  PURPOSE
027667,000324: 
027668,000325:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
027669,000326:                                                                                                  #            ALTITUDE MANEUVER (CDH).
027670,000327: 
027671,000328:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027672,000329:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027673,000330: 
027674,000331:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027675,000332:                                                                                                  #            ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
027676,000333:                                                                                                  #            ASTRONAUT/GROUND.
027677,000334: 
027678,000335:                                                                                                  #        (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
027679,000336:                                                                                                  #            THRUSTING PROGRAM.
027680,000337: 
027681,000338:                                                                                                  #  ASSUMPTIONS
027682,000339: 
027683,000340:                                                                                                  #        (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
027684,000341:                                                                                                  #            CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
027685,000342:                                                                                                  #            THERFORE -
027686,000343: 
027687,000344:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027688,000345:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027689,000346:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027690,000347:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027691,000348: 
027692,000349:                                                                                                  #            (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
027693,000350:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
027694,000351: 
027695,000352:                                                                                                  #            (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027696,000353:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
027697,000354: 
027698,000355:                                                                                                  #            (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
027699,000356:                                                                                                  #                ORBITS WAS MINMIZED.
027700,000357: 
027701,000358:                                                                                                  #            (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
027702,000359:                                                                                                  #                IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
027703,000360: 
027704,000361:                                                                                                  #                POSITION AT CSI IGNITION.
027705,000362: 
027706,000363:                                                                                                  #            (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
027707,000364:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
027708,000365:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
027709,000366: 
027710,000367:                                                                                                  #            (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027711,000368:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
027712,000369: 

Page 623

027714,000371:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027715,000372:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
027716,000373: 
027717,000374:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027718,000375:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
027719,000376: 
027720,000377:                                                                                                  #        (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027721,000378:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
027722,000379:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027723,000380:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027724,000381: 
027725,000382:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027726,000383:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027727,000384:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027728,000385:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027729,000386:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027730,000387:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027731,000388:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027732,000389:                                                                                                  #            THRUSTING MANEUVER.
027733,000390: 
027734,000391:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027735,000392: 
027736,000393:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027737,000394: 
027738,000395:                                                                                                  #                ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027739,000396:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027740,000397:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027741,000398:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027742,000399: 
027743,000400:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027744,000401:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027745,000402:                                                                                                  #                CYCLE.
027746,000403: 
027747,000404:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027748,000405:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027749,000406:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027750,000407:                                                                                                  #                PROGRAM.
027751,000408: 
027752,000409:                                                                                                  #        (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027753,000410:                                                                                                  #            A THRUSTING MANEUVER.
027754,000411: 
027755,000412:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027756,000413: 
027757,000414:                                                                                                  #                P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
027758,000415: 
027759,000416:                                                                                                  #                P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
027760,000417: 
027761,000418:                                                                                                  #  INPUT
027762,000419: 
027763,000420:                                                                                                  #        (1) TTPI0    TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
027764,000421: 

Page 624

027766,000423:                                                                                                  #        (2) ELEV     DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
027767,000424:                                                                                                  #        (3) TCDH     TIME OF THE CDH MANEUVER
027768,000425: 
027769,000426:                                                                                                  #  OUTPUT
027770,000427: 
027771,000428:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
027772,000429:                                                                                                  #        (2) TTOGO    TIME TO GO
027773,000430:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
027774,000431:                                                                                                  #        (4) DIFFALT  DELTA ALTITUDE AT CDH
027775,000432:                                                                                                  #        (5) T2TOT3   DELTA TIME FROM CDH TO COMPUTED TPI
027776,000433:                                                                                                  #        (6) NOMTPI   DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
027777,000434:                                                                                                  #        (7) DELVLVC  DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027778,000435: 
027779,000436:                                                                                                  #  DOWNLINK
027780,000437: 
027781,000438:                                                                                                  #        (1) TCDH     TIME OF THE CDH MANEUVER
027782,000439:                                                                                                  #        (2) TTPI     TIME OF THE TPI MANEUVER
027783,000440:                                                                                                  #        (3) TIG      TIME OF THE CDH MANEUVER
027784,000441:                                                                                                  #        (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027785,000442:                                                                                                  #        (5) DIFFALT  DELTA ALTITUDE AT CDH
027786,000443:                                                                                                  #        (6) ELEV     DESIRED LOS ANGLE AT TPI
027787,000444:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
027788,000445: 
027789,000446:                                                                                                  #        (1) TIG      TIME OF THE CDH MANEUVER
027790,000447:                                                                                                  #        (2) RTIG     POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027791,000448:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027792,000449:                                                                                                  #        (3) VTIG     VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027793,000450:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027794,000451:                                                                                                  #        (4) DELVSIN  DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027795,000452:                                                                                                  #        (5) DELVSAB  MAGNITUDE OF DELTA VELOCITY AT CDH
027796,000453:                                                                                                  #        (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027797,000454: 
027798,000455:                                                                                                  #  SUBROUTINES USED
027799,000456: 
027800,000457:                                                                                                  #        AVFLAGA
027801,000458:                                                                                                  #        AVFLAGP
027802,000459:                                                                                                  #        P20FLGON
027803,000460:                                                                                                  #        VNPOOH
027804,000461:                                                                                                  #        SELECTMU
027805,000462:                                                                                                  #        ADVANCE
027806,000463:                                                                                                  #        CDHMVR
027807,000464:                                                                                                  #        INTINT3P
027808,000465:                                                                                                  #        ACTIVE
027809,000466:                                                                                                  #        PASSIVE
027810,000467:                                                                                                  #        S33/34.1
027811,000468:                                                                                                  #        ALARM
027812,000469:                                                                                                  #        BANKCALL
027813,000470:                                                                                                  #        GOFLASH
027814,000471:                                                                                                  #        GOTOPOOH
027815,000472:                                                                                                  #        S32/33.1

Page 625

027817,000474:                                                                                                  #        VN1645
027818,000475: 
027819,000476: 35,2223                                           COUNT*   $$/P3373                              
027820,000477: 35,2223           02354        P33                TC       AVFLAGA                               
027821,000478: 35,2224           02226                           TC       P33/P73A                              
027822,000479: 35,2225           02361        P73                TC       AVFLAGP                               
027823,000480: 35,2226           02366        P33/P73A           TC       P20FLGON                              
027824,000481: 35,2227           32416                           CAF      V06N13                                #  TCDH
027825,000482: 35,2230           03627                           TC       VNPOOH                                
027826,000483: 35,2231           06051                           TC       INTPRET                               
027827,000484: 35,2232           77745                           DLOAD                                          
027828,000485: 35,2233           03640                                    TTPIO                                 
027829,000486: 35,2234           17636                           STODL    TTPI                                  
027830,000487: 35,2235           01775                                    TCDH                                  
027831,000488: 35,2236           37442                           STCALL   TIG                                   
027832,000489: 35,2237           20000                                    SELECTMU                              
027833,000490: 35,2240           77624        P33/P73B           CALL                                           
027834,000491: 35,2241           71076                                    ADVANCE                               
027835,000492: 35,2242           77624                           CALL                                           
027836,000493: 35,2243           71213                                    CDHMVR                                
027837,000494: 35,2244           77201                           SETPD    VLOAD                                 
027838,000495: 35,2245           00001                                    0D                                    
027839,000496: 35,2246           03544                                    VACT3                                 
027840,000497: 35,2247           45115                           PDVL     CALL                                  
027841,000498: 35,2250           02302                                    RACT2                                 
027842,000499: 35,2251           71151                                    INTINT3P                              
027843,000500: 35,2252           77624                           CALL                                           
027844,000501: 35,2253           46423                                    ACTIVE                                
027845,000502: 35,2254           77201                           SETPD    VLOAD                                 
027846,000503: 35,2255           00001                                    0D                                    
027847,000504: 35,2256           03530                                    VPASS2                                
027848,000505: 35,2257           45115                           PDVL     CALL                                  
027849,000506: 35,2260           03522                                    RPASS2                                
027850,000507: 35,2261           71151                                    INTINT3P                              
027851,000508: 35,2262           77624                           CALL                                           
027852,000509: 35,2263           46433                                    PASSIVE                               
027853,000510: 35,2264           43145                           DLOAD    SET                                   
027854,000511: 35,2265           32425                                    P30ZERO                               
027855,000512: 35,2266           03460                                    ITSWICH                               
027856,000513: 35,2267           36310                           STCALL   NOMTPI                                
027857,000514: 35,2270           72702                                    S33/34.1                              
027858,000515: 35,2271           77454                           BZE      EXIT                                  
027859,000516: 35,2272           72307                                    P33/P73C                              
027860,000517: 35,2273           05600                           TC       ALARM                                 
027861,000518: 35,2274           00611                           OCT      611                                   
027862,000519: 35,2275           35006                           CAF      V05N09                                
027863,000520: 35,2276           04616                           TC       BANKCALL                              
027864,000521: 35,2277           20477                           CADR     GOFLASH                               
027865,000522: 35,2300           06001                           TC       GOTOPOOH                              
027866,000523: 35,2301           02303                           TC       +2                                    
027867,000524: 

Page 626

027869,000526: 35,2302           02226                           TC       P33/P73A                              
027870,000527: 35,2303           06051                           TC       INTPRET                               
027871,000528: 35,2304           77745                           DLOAD                                          
027872,000529: 35,2305           32425                                    P30ZERO                               
027873,000530: 35,2306           02310                           STORE    NOMTPI                                
027874,000531: 35,2307           43014        P33/P73C           BON      SET                                   
027875,000532: 35,2310           01311                                    FINALFLG                              
027876,000533: 35,2311           72313                                    P33/P73D                              
027877,000534: 35,2312           00470                                    UPDATFLG                              
027878,000535: 35,2313           43345        P33/P73D           DLOAD    DAD                                   
027879,000536: 35,2314           02310                                    NOMTPI                                
027880,000537: 35,2315           03636                                    TTPI                                  
027881,000538: 35,2316           03636                           STORE    TTPI                                  
027882,000539: 35,2317           77625                           DSU                                            
027883,000540: 35,2320           01775                                    TCDH                                  
027884,000541: 35,2321           51025        P33/P73E           DSU      BPL                                   
027885,000542: 35,2322           32427                                    60MIN                                 
027886,000543: 35,2323           72321                                    P33/P73E                              
027887,000544: 35,2324           77615                           DAD                                            
027888,000545: 35,2325           32427                                    60MIN                                 
027889,000546: 35,2326           16244                           STODL    T1TOT2                                
027890,000547: 35,2327           03636                                    TTPI                                  
027891,000548: 35,2330           41425                           DSU      PUSH                                  
027892,000549: 35,2331           03640                                    TTPIO                                 
027893,000550: 35,2332           45246        P33/P73F           ABS      DSU                                   
027894,000551: 35,2333           32427                                    60MIN                                 
027895,000552: 35,2334           43244                           BPL      DAD                                   
027896,000553: 35,2335           72332                                    P33/P73F                              
027897,000554: 35,2336           32427                                    60MIN                                 
027898,000555: 35,2337           45565                           SIGN     STADR                                 
027899,000556: 35,2340           75531                           STORE    T2TOT3                                
027900,000557: 35,2341           77776                           EXIT                                           
027901,000558: 35,2342           32417                           CAF      V06N75                                
027902,000559: 35,2343           03627                           TC       VNPOOH                                
027903,000560: 35,2344           06051                           TC       INTPRET                               
027904,000561: 35,2345           45175                           VLOAD    CALL                                  
027905,000562: 35,2346           02266                                    DELVEET2                              
027906,000563: 35,2347           71160                                    S32/33.1                              
027907,000564: 35,2350           36266                           STCALL   DELVEET2                              
027908,000565: 35,2351           73523                                    VN1645                                
027909,000566: 35,2352           77650                           GOTO                                           
027910,000567: 35,2353           72240                                    P33/P73B                              
027911,000568: 

Page 627

027913,000570:                                                                                                  #  ..... AVFLAGA/P .....
027914,000571: 
027915,000572:                                                                                                  #  SUBROUTINES USED
027916,000573: 
027917,000574:                                                                                                  #           UPFLAG
027918,000575:                                                                                                  #           DOWNFLAG
027919,000576: 
027920,000577: 35,2354           00006        AVFLAGA            EXTEND                                         #  AVFLAG = LEM
027921,000578: 35,2355           23470                           QXCH     SUBEXIT                               
027922,000579: 35,2356           05515                           TC       UPFLAG                                
027923,000580: 35,2357           00050                           ADRES    AVFLAG                                
027924,000581: 35,2360           01470                           TC       SUBEXIT                               
027925,000582: 35,2361           00006        AVFLAGP            EXTEND                                         #  AVFLAG = CSM
027926,000583: 35,2362           23470                           QXCH     SUBEXIT                               
027927,000584: 35,2363           05527                           TC       DOWNFLAG                              
027928,000585: 35,2364           00050                           ADRES    AVFLAG                                
027929,000586: 35,2365           01470                           TC       SUBEXIT                               
027930,000587: 35,2366           00006        P20FLGON           EXTEND                                         
027931,000588: 35,2367           23470                           QXCH     SUBEXIT                               
027932,000589: 35,2370           05515                           TC       UPFLAG                                
027933,000590: 35,2371           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG
027934,000591: 35,2372           05515                           TC       UPFLAG                                
027935,000592: 35,2373           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG
027936,000593: 35,2374           01470                           TC       SUBEXIT                               
027937,000594: 

Page 628

027939,000596:                                                                                                  #  ..... DISDVLVC  .....
027940,000597: 
027941,000598:                                                                                                  #  SUBROUTINES USED
027942,000599: 
027943,000600:                                                                                                  #        S32/33.X
027944,000601:                                                                                                  #         VNPOOH
027945,000602: 
027946,000603: 35,2375           03434        DISDVLVC           STORE    DELVLVC                               
027947,000604: 35,2376           45020                           STQ      CALL                                  
027948,000605: 35,2377           03463                                    NORMEX                                
027949,000606: 35,2400           71200                                    S32/33.X                              
027950,000607: 35,2401           64375                           VLOAD    MXV                                   
027951,000608: 35,2402           03434                                    DELVLVC                               
027952,000609: 35,2403           00001                                    0D                                    
027953,000610: 35,2404           66172                           VSL1     SXA,1                                 
027954,000611: 35,2405           03615                                    VERBNOUN                              
027955,000612: 35,2406           03434                           STORE    DELVLVC                               
027956,000613: 35,2407           77776                           EXIT                                           
027957,000614: 35,2410           31615                           CA       VERBNOUN                              
027958,000615: 35,2411           03627                           TC       VNPOOH                                
027959,000616: 35,2412           06051                           TC       INTPRET                               
027960,000617: 35,2413           77650                           GOTO                                           
027961,000618: 35,2414           03463                                    NORMEX                                
027962,000619: 

Page 629

027964,000621:                                                                                                  #  ..... CONSTANTS .....
027965,000622: 
027966,000623: 35,2415           01413        V06N11             VN       0611                                  
027967,000624: 35,2416           01415        V06N13             VN       0613                                  
027968,000625: 35,2417           01513        V06N75             VN       0675                                  
027969,000626: 35,2420           77776 62460  SN359+             2DEC     -.000086601                            
027970,000627: 35,2422           17777 37776  CS359+             2DEC     +.499999992                            
027971,000628: 35,2424           00000 00000  P30ZERO            2DEC     0          B-28                       
027972,000629: 35,2426           00025 37100  60MIN              2DEC     360000     B-28                       
027973,000630: 
027974,000631: 35,2430           00600        ALARM/TB           OCT      00600                                 #  NO 1
027975,000632: 35,2431           00601                           OCT      00601                                 #     2
027976,000633: 35,2432           00602                           OCT      00602                                 #     3
027977,000634: 35,2433           00603                           OCT      00603                                 #     4
027978,000635: 35,2434           00604                           OCT      00604                                 #     5
027979,000636: 35,2435           00605                           OCT      00605                                 #     6
027980,000637: 35,2436           00606                           OCT      00606                                 #     7
027981,000638: 

Page 630

027983,000640:                                                                                                  #  ..... CSI/A     .....
027984,000641: 
027985,000642:                                                                                                  #  SUBROUTINES USED
027986,000643: 
027987,000644:                                                                                                  #        VECSHIFT
027988,000645:                                                                                                  #        TIMETHET
027989,000646:                                                                                                  #        PERIAPO
027990,000647:                                                                                                  #        SHIFTR1
027991,000648:                                                                                                  #        INTINT2C
027992,000649:                                                                                                  #        CDHMVR
027993,000650:                                                                                                  #        PERIAPO1
027994,000651:                                                                                                  #        INTINT
027995,000652:                                                                                                  #        ACTIVE
027996,000653: 
027997,000654: 34,2137                                           BANK     34                                    
027998,000655: 34,2000                                           SETLOC   CSI/CDH1                              
027999,000656: 34,2000                                           BANK                                           
028000,000657: 34,2137  E7,1470                                  EBANK=   SUBEXIT                               
028001,000658: 34,2137                                           COUNT*   $$/CSI                                
028002,000659: 34,2137           00000 00020  LOOPMX             2DEC     16         B-28                       
028003,000660: 34,2141           00003 34661  INITST             2DEC     .03048     B-7                        #       INITIAL DELDV = 10 FPS
028004,000661: 34,2143           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #       MAXIMUM DV1 = 1000 FPS
028005,000662: 34,2145           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                      989 FPS
028006,000663: 34,2147           10000 00000  1DPB2              2DEC     1.0        B-2                        
028007,000664: 34,2151           00000 00001  1DPB28             2DEC     1          B-28                       
028008,000665: 34,2153           00004 31566  PMINE              2DEC     157420     B-29                       #  85 NM    - MUST BE 8 WORDS BEFORE PMINM
028009,000666: 34,2155           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #       .1 FPS
028010,000667: 34,2157           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS (CHANGED FROM .05 FPS)
028011,000668: 34,2161           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #       50  FPS
028012,000669: 34,2163           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE
028013,000670: 34,2165           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #       200 FPS
028014,000671: 34,2167           00000 06433  ONETHTH            2DEC     .0001      B-3                        
028015,000672: 34,2171           00003 25140  TMIN               2DEC     60000      B-28                       #  10 MIN
028016,000673: 
028017,000674: 34,2173           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
028018,000675: 34,2174           03260                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
028019,000676: 34,2175           03061                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR
028020,000677: 

Page 631

028022,000679: 34,2176           43014                           CLEAR    SET                                   
028023,000680: 34,2177           03262                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
028024,000681: 34,2200           03063                                    S32.1F3B                              #  10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
028025,000682: 34,2201           77745                           DLOAD                                          
028026,000683: 34,2202           32425                                    P30ZERO                               
028027,000684: 34,2203           03606                           STORE    LOOPCT                                
028028,000685: 34,2204           03614                           STORE    CSIALRM                               
028029,000686: 34,2205           77201        CSI/B              SETPD    VLOAD                                 
028030,000687: 34,2206           00001                                    0D                                    
028031,000688: 34,2207           02274                                    RACT1                                 
028032,000689: 34,2210           41446                           ABVAL    PUSH                                  #  RA1                           B29 PL02D
028033,000690: 34,2211           70501                           NORM     SR1                                   
028034,000691: 34,2212           00050                                    X2                                    #                         B29-N2+ B1 PL04D
028035,000692: 34,2213           51515                           PDVL     ABVAL                                 
028036,000693: 34,2214           03552                                    RPASS3                                
028037,000694: 34,2215           55301                           NORM     BDDV                                  #  RA1/RP3                        B1 PL02D
028038,000695: 34,2216           00047                                    X1                                    
028039,000696: 34,2217           53664                           XSU,2    SR*                                   #                                 B2
028040,000697: 34,2220           00046                                    X1                                    
028041,000698: 34,2221           57175                                    1,2                                   
028042,000699: 34,2222           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1       B29+B2=B31 PL00D
028043,000700: 34,2223           30150                                    1DPB2                                 
028044,000701: 34,2224           65301                           NORM     PDDL                                  #                                    PL02D
028045,000702: 34,2225           00047                                    X1                                    
028046,000703: 34,2226           02312                                    RTMU                                  
028047,000704: 34,2227           56342                           SR1      DDV                                   #                        B38-B31= B7 PL00D
028048,000705: 34,2230           75457                           SL*      SQRT                                  #                                 B7
028049,000706: 34,2231           20172                                    0          -7,1                       
028050,000707: 34,2232           53515                           PDVL     UNIT                                  #                                    PL02D
028051,000708: 34,2233           02274                                    RACT1                                 
028052,000709: 34,2234           47315                           PDVL     VXV                                   
028053,000710: 34,2235           02252                                    UP1                                   
028054,000711: 34,2236           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
028055,000712: 34,2237           72441                           DOT      SL1                                   #  VA1 . UH1                      B7
028056,000713: 34,2240           03472                                    VACT1                                 
028057,000714: 34,2241           45421                           BDSU     STADR                                 #                                    PL00D
028058,000715: 34,2242           60203                           STODL    DELVCSI                               
028059,000716: 34,2243           30142                                    INITST                                #  10 FPS
028060,000717: 34,2244           03612                           STORE    DELDV                                 
028061,000718: 34,2245           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
028062,000719: 34,2246           03606                                    LOOPCT                                
028063,000720: 34,2247           30152                                    1DPB28                                
028064,000721: 34,2250           03606                           STORE    LOOPCT                                
028065,000722: 34,2251           77025                           DSU      AXT,2                                 
028066,000723: 34,2252           30140                                    LOOPMX                                
028067,000724: 34,2253           00006                                    6                                     
028068,000725: 34,2254           77644                           BPL                                            
028069,000726: 34,2255           71056                                    SCNDSOL                               
028070,000727: 34,2256           77601        CSI/B2             SETPD                                          
028071,000728: 34,2257           00001                                    0D                                    
028072,000729: 

Page 632

028074,000731: 34,2260           51545                           DLOAD    ABS                                   
028075,000732: 34,2261           03574                                    DELVCSI                               
028076,000733: 34,2262           50025                           DSU      BMN                                   
028077,000734: 34,2263           30144                                    DVMAX1                                
028078,000735: 34,2264           70304                                    CSI/B23                               
028079,000736: 34,2265           43174                           AXT,2    BON                                   
028080,000737: 34,2266           00007                                    7                                     
028081,000738: 34,2267           03300                                    S32.1F1                               
028082,000739: 34,2270           71056                                    SCNDSOL                               
028083,000740: 34,2271           43014                           BOFF     BON                                   
028084,000741: 34,2272           03342                                    S32.1F3A                              
028085,000742: 34,2273           70276                                    CSI/B22                               #  FLAG 3 NEQ 3
028086,000743: 34,2274           03303                                    S32.1F3B                              
028087,000744: 34,2275           71056                                    SCNDSOL                               
028088,000745: 34,2276           71214        CSI/B22            SET      DLOAD                                 
028089,000746: 34,2277           03060                                    S32.1F1                               
028090,000747: 34,2300           30146                                    DVMAX2                                
028091,000748: 34,2301           77765                           SIGN                                           
028092,000749: 34,2302           03574                                    DELVCSI                               
028093,000750: 34,2303           03574                           STORE    DELVCSI                               
028094,000751: 34,2304           41575        CSI/B23            VLOAD    PUSH                                  
028095,000752: 34,2305           02274                                    RACT1                                 
028096,000753: 34,2306           63256                           UNIT     PDVL                                  
028097,000754: 34,2307           02252                                    UP1                                   
028098,000755: 34,2310           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
028099,000756: 34,2311           76561                           VXSC     VSL1                                  
028100,000757: 34,2312           03574                                    DELVCSI                               
028101,000758: 34,2313           02260                           STORE    DELVEET1                              
028102,000759: 34,2314           40055                           VAD      BOV                                   
028103,000760: 34,2315           03472                                    VACT1                                 
028104,000761: 34,2316           70317                                    CSI/B23D                              
028105,000762: 34,2317           37566        CSI/B23D           STCALL   VACT4                                 
028106,000763: 34,2320           46437                                    VECSHIFT                              
028107,000764: 34,2321           26744                           STOVL    VVEC                                  
028108,000765: 34,2322           77614                           SET                                            
028109,000766: 34,2323           03466                                    RVSW                                  
028110,000767: 34,2324           26655                           STOVL    RVEC                                  
028111,000768: 34,2325           32421                                    SN359+                                
028112,000769: 34,2326           36730                           STCALL   SNTH                                  #  ALSO CSTH
028113,000770: 34,2327           24732                                    TIMETHET                              
028114,000771: 34,2330           72142                           SR1      LXA,1                                 
028115,000772: 34,2331           02776                                    RTX1                                  
028116,000773: 34,2332           37604                           STCALL   HAFPA1                                
028117,000774: 34,2333           46347                                    PERIAPO                               
028118,000775: 34,2334           77624                           CALL                                           
028119,000776: 34,2335           46447                                    SHIFTR1                               
028120,000777: 34,2336           17602                           STODL    POSTCSI                               
028121,000778: 34,2337           03621                                    CENTANG                               
028122,000779: 34,2340           52054                           BZE      GOTO                                  
028123,000780: 34,2341           70343                                    +2                                    
028124,000781: 

Page 633

028126,000783: 34,2342           70452                                    CIRCL                                 
028127,000784: 34,2343           77745                           DLOAD                                          
028128,000785: 34,2344           02752                                    ECC                                   
028129,000786: 34,2345           50025                           DSU      BMN                                   
028130,000787: 34,2346           30170                                    ONETHTH                               
028131,000788: 34,2347           70452                                    CIRCL                                 
028132,000789: 34,2350           45145                           DLOAD    CALL                                  
028133,000790: 34,2351           00041                                    R1                                    
028134,000791: 34,2352           46447                                    SHIFTR1                               
028135,000792: 34,2353           60201                           SETPD    NORM                                  
028136,000793: 34,2354           00003                                    2D                                    
028137,000794: 34,2355           00047                                    X1                                    
028138,000795: 34,2356           50315                           PDVL     DOT                                   #                                        PL04D
028139,000796: 34,2357           02274                                    RACT1                                 
028140,000797: 34,2360           03566                                    VACT4                                 
028141,000798: 34,2361           56246                           ABS      DDV                                   
028142,000799: 34,2362           00003                                    02D                                   #  (/RDOTV/)/R1              B36-B29= B7
028143,000800: 34,2363           45257                           SL*      DSU                                   
028144,000801: 34,2364           20201                                    0,1                                   
028145,000802: 34,2365           30160                                    NICKELDP                              
028146,000803: 34,2366           71240                           BMN      DLOAD                                 
028147,000804: 34,2367           70452                                    CIRCL                                 
028148,000805: 34,2370           02740                                    P                                     
028149,000806: 34,2371           45312                           SL2      DSU                                   
028150,000807: 34,2372           30150                                    1DPB2                                 
028151,000808: 34,2373           14017                           STODL    14D                                   
028152,000809: 34,2374           02310                                    RTSR1/MU                              
028153,000810: 34,2375           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1         B-16-B29 = B-45 PL02D
028154,000811: 34,2376           41325                           PDDL     DMP                                   
028155,000812: 34,2377           02740                                    P                                     
028156,000813: 34,2400           00041                                    R1                                    
028157,000814: 34,2401           77624                           CALL                                           
028158,000815: 34,2402           46447                                    SHIFTR1                               
028159,000816: 34,2403           72412                           SL4      SL1                                   
028160,000817: 34,2404           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1       B14+B-45 = B-31 PL02D
028161,000818: 34,2405           52414                           BOFF     SL3                                   
028162,000819: 34,2406           04343                                    CMOONFLG                              
028163,000820: 34,2407           70410                                    CSI/B3                                
028164,000821: 34,2410           50315        CSI/B3             PDVL     DOT                                   
028165,000822: 34,2411           02274                                    RACT1                                 
028166,000823: 34,2412           03566                                    VACT4                                 
028167,000824: 34,2413           03617                           STORE    RDOTV                                 
028168,000825: 34,2414           77646                           ABS                                            
028169,000826: 34,2415           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                  PL02D
028170,000827: 34,2416           00050                                    X2                                    
028171,000828: 34,2417           53660                           XSU,1    SL*                                   #                   B-31+B36-B3 = B2
028172,000829: 34,2420           00047                                    X2                                    
028173,000830: 34,2421           20204                                    3,1                                   
028174,000831: 34,2422           14015                           STODL    12D                                   
028175,000832: 34,2423           32425                                    P30ZERO                               
028176,000833: 

Page 634

028178,000835: 34,2424           00021                           STORE    16D                                   
028179,000836: 34,2425           53575                           VLOAD    UNIT                                  
028180,000837: 34,2426           00015                                    12D                                   
028181,000838: 34,2427           26730                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
028182,000839: 34,2430           02274                                    RACT1                                 
028183,000840: 34,2431           75315                           PDVL     SIGN                                  
028184,000841: 34,2432           03566                                    VACT4                                 
028185,000842: 34,2433           03617                                    RDOTV                                 
028186,000843: 34,2434           45076                           VCOMP    CALL                                  
028187,000844: 34,2435           46437                                    VECSHIFT                              
028188,000845: 34,2436           26744                           STOVL    VVEC                                  
028189,000846: 34,2437           77614                           SET                                            
028190,000847: 34,2440           03466                                    RVSW                                  
028191,000848: 34,2441           36655                           STCALL   RVEC                                  
028192,000849: 34,2442           24732                                    TIMETHET                              
028193,000850: 34,2443           51125                           PDDL     BPL                                   
028194,000851: 34,2444           03617                                    RDOTV                                 
028195,000852: 34,2445           70456                                    NTP/2                                 
028196,000853: 34,2446           45345                           DLOAD    DSU                                   
028197,000854: 34,2447           03604                                    HAFPA1                                
028198,000855: 34,2450           52006                           PUSH     GOTO                                  
028199,000856: 34,2451           70456                                    NTP/2                                 
028200,000857: 34,2452           71201        CIRCL              SETPD    DLOAD                                 
028201,000858: 34,2453           00001                                    00D                                   
028202,000859: 34,2454           32425                                    P30ZERO                               
028203,000860: 34,2455           77606                           PUSH                                           
028204,000861: 34,2456           41345        NTP/2              DLOAD    DMP                                   
028205,000862: 34,2457           03467                                    NN                                    
028206,000863: 34,2460           03604                                    HAFPA1                                
028207,000864: 34,2461           45261                           SL       DSU                                   
028208,000865: 34,2462           20217                                    14D                                   
028209,000866: 34,2463           77615                           DAD                                            
028210,000867: 34,2464           03634                                    TCSI                                  
028211,000868: 34,2465           01775                           STORE    TCDH                                  
028212,000869: 34,2466           77021                           BDSU     AXT,2                                 
028213,000870: 34,2467           03636                                    TTPI                                  
028214,000871: 34,2470           00005                                    5D                                    
028215,000872: 34,2471           40240                           BMN      SETPD                                 
028216,000873: 34,2472           71056                                    SCNDSOL                               
028217,000874: 34,2473           00001                                    0D                                    
028218,000875: 34,2474           63375                           VLOAD    PDVL                                  
028219,000876: 34,2475           03566                                    VACT4                                 
028220,000877: 34,2476           02274                                    RACT1                                 
028221,000878: 34,2477           77624                           CALL                                           
028222,000879: 34,2500           71142                                    INTINT2C                              
028223,000880: 34,2501           26302                           STOVL    RACT2                                 
028224,000881: 34,2502           00007                                    VATT                                  
028225,000882: 34,2503           27514                           STOVL    VACT2                                 
028226,000883: 34,2504           03506                                    VPASS1                                
028227,000884: 34,2505           63201                           SETPD    PDVL                                  
028228,000885: 

Page 635

028230,000887: 34,2506           00001                                    0D                                    
028231,000888: 34,2507           03500                                    RPASS1                                
028232,000889: 34,2510           77624                           CALL                                           
028233,000890: 34,2511           71142                                    INTINT2C                              
028234,000891: 34,2512           27522                           STOVL    RPASS2                                
028235,000892: 34,2513           00007                                    VATT                                  
028236,000893: 34,2514           37530                           STCALL   VPASS2                                
028237,000894: 34,2515           71213                                    CDHMVR                                
028238,000895: 34,2516           40375                           VLOAD    SETPD                                 
028239,000896: 34,2517           02302                                    RACT2                                 
028240,000897: 34,2520           00001                                    0D                                    
028241,000898: 34,2521           45115                           PDVL     CALL                                  
028242,000899: 34,2522           03544                                    VACT3                                 
028243,000900: 34,2523           46337                                    PERIAPO1                              
028244,000901: 34,2524           77624                           CALL                                           
028245,000902: 34,2525           46447                                    SHIFTR1                               
028246,000903: 34,2526           27604                           STOVL    POSTCDH                               
028247,000904: 34,2527           03544                                    VACT3                                 
028248,000905: 34,2530           63201                           SETPD    PDVL                                  
028249,000906: 34,2531           00001                                    0D                                    
028250,000907: 34,2532           02302                                    RACT2                                 
028251,000908: 34,2533           65325                           PDDL     PDDL                                  
028252,000909: 34,2534           01775                                    TCDH                                  
028253,000910: 34,2535           03636                                    TTPI                                  
028254,000911: 34,2536           41525                           PDDL     PUSH                                  
028255,000912: 34,2537           33647                                    TWOPI                                 
028256,000913: 34,2540           77624                           CALL                                           
028257,000914: 34,2541           73404                                    INTINT                                
028258,000915: 34,2542           77624                           CALL                                           
028259,000916: 34,2543           46423                                    ACTIVE                                
028260,000917: 34,2544           77745                           DLOAD                                          
028261,000918: 34,2545           02250                                    ELEV                                  
028262,000919: 34,2546           73401                           SETPD    SINE                                  
028263,000920: 34,2547           00007                                    6D                                    
028264,000921: 34,2550           53515                           PDVL     UNIT                                  
028265,000922: 34,2551           03536                                    RACT3                                 
028266,000923: 34,2552           00001                           STORE    00D                                   #  URA3 AT 00D
028267,000924: 34,2553           47315                           PDVL     VXV                                   #  PL14D,PL08D
028268,000925: 34,2554           02252                                    UP1                                   
028269,000926: 34,2555           77656                           UNIT                                           
028270,000927: 34,2556           71525                           PDDL     COSINE                                #  UNIT(URA3XUVA3XURA3) = UH3       B1 PL14D
028271,000928: 34,2557           02250                                    ELEV                                  
028272,000929: 34,2560           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                    B2 PL08D
028273,000930: 34,2561           77754                           STORE    18D                                   #      PLUS
028274,000931: 34,2562           74345                           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U               B2 PL00D
028275,000932: 34,2563           76455                           VAD      VSL1                                  
028276,000933: 34,2564           00023                                    18D                                   #                                   B1
028277,000934: 34,2565           50206                           PUSH     DOT                                   #                                      PL06D
028278,000935: 34,2566           03536                                    RACT3                                 #  (U . RA3) = TEMP1     B1 +B29 = B30
028279,000936: 34,2567           41552                           SL1      PUSH                                  #                                  B29 PL08D
028280,000937: 

Page 636

028282,000939: 34,2570           72316                           DSQ      TLOAD                                 #  TEMP1**2                        B58
028283,000940: 34,2571           00155                                    MPAC                                  
028284,000941: 34,2572           50315                           PDVL     DOT                                   #                                      PL11D
028285,000942: 34,2573           03536                                    RACT3                                 
028286,000943: 34,2574           03536                                    RACT3                                 
028287,000944: 34,2575           57551                           TLOAD    DCOMP                                 #  RA3.RA3
028288,000945: 34,2576           00155                                    MPAC                                  
028289,000946: 34,2577           50315                           PDVL     DOT                                   #  RP3.RP3                         B58 PL14D
028290,000947: 34,2600           03552                                    RPASS3                                
028291,000948: 34,2601           03552                                    RPASS3                                #                                        PL11D
028292,000949: 34,2602           76371                           TAD      TAD                                   #  TEMP1**2+RA3.RA3+RP3.RP3=TEMP2        PL08D
028293,000950: 34,2603           71244                           BPL      DLOAD                                 
028294,000951: 34,2604           70622                                    K10RK2                                
028295,000952: 34,2605           03606                                    LOOPCT                                
028296,000953: 34,2606           77025                           DSU      AXT,2                                 
028297,000954: 34,2607           30152                                    1DPB28                                
028298,000955: 34,2610           00001                                    1D                                    
028299,000956: 34,2611           77654                           BZE                                            
028300,000957: 34,2612           72043                                    ALMXITA                               
028301,000958: 34,2613           70545                           DLOAD    SR1                                   
028302,000959: 34,2614           03612                                    DELDV                                 
028303,000960: 34,2615           03612                           STORE    DELDV                                 
028304,000961: 34,2616           77621                           BDSU                                           
028305,000962: 34,2617           03576                                    DVPREV                                
028306,000963: 34,2620           37574                           STCALL   DELVCSI                               
028307,000964: 34,2621           70245                                    CSI/B1                                
028308,000965: 34,2622           41566        K10RK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                B29 PL10D
028309,000966: 34,2623           45276                           DCOMP    DSU                                   
028310,000967: 34,2624           00007                                    06D                                   #  -TEMP1-TEMP3 =K2 AT 10D
028311,000968: 34,2625           14013                           STODL    10D                                   #                                       PL08D
028312,000969: 34,2626           45425                           DSU      STADR                                 #                                       PL06D
028313,000970: 34,2627           77762                           STORE    12D                                   #  -TEMP1+TEMP3 =K1 AT 12D
028314,000971: 34,2630           77646                           ABS                                            
028315,000972: 34,2631           14017                           STODL    14D                                   
028316,000973: 34,2632           00013                                    10D                                   
028317,000974: 34,2633           45246                           ABS      DSU                                   
028318,000975: 34,2634           00017                                    14D                                   
028319,000976: 34,2635           71240                           BMN      DLOAD                                 
028320,000977: 34,2636           70641                                    K2.                                   
028321,000978: 34,2637           00015                                    12D                                   
028322,000979: 34,2640           00013                           STORE    10D                                   #  K=K1
028323,000980: 34,2641           77745        K2.                DLOAD                                          
028324,000981: 34,2642           00013                                    10D                                   
028325,000982: 34,2643           76561                           VXSC     VSL1                                  
028326,000983: 34,2644           53455                           VAD      UNIT                                  #  V=RA3+KU UNIT                    B1
028327,000984: 34,2645           03536                                    RACT3                                 
028328,000985: 34,2646           53515                           PDVL     UNIT                                  
028329,000986: 34,2647           03552                                    RPASS3                                #                                       PL06D
028330,000987: 34,2650           53515                           PDVL     UNIT                                  
028331,000988: 34,2651           03560                                    VPASS3                                #                                       PL12D
028332,000989: 

Page 637

028334,000991: 34,2652           63235                           VXV      PDVL                                  #  UVP3 X URP3                          PL18D
028335,000992: 34,2653           00007                                    06D                                   
028336,000993: 34,2654           00007                                    06D                                   
028337,000994: 34,2655           50235                           VXV      DOT                                   
028338,000995: 34,2656           00001                                    00D                                   
028339,000996: 34,2657           77626                           STADR                                          #                                      PL12D
028340,000997: 34,2660           53762                           STOVL    12D                                   #  (URP3XV).(UVP3XURP3)=TEMP           PL06D
028341,000998: 34,2661           72441                           DOT      SL1                                   #                                      PL00D
028342,000999: 34,2662           75326                           ARCCOS   SIGN                                  
028343,001000: 34,2663           00015                                    12D                                   #                                  B0
028344,001001: 34,2664           41542                           SR1      PUSH                                  #  GAMMA=SIGN(TEMP)ARCOS(UNITV.URP3)   PL02D
028345,001002: 34,2665           71214                           BON      DLOAD                                 
028346,001003: 34,2666           03301                                    S32.1F2                               
028347,001004: 34,2667           70724                                    FRSTPAS                               
028348,001005: 34,2670           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
028349,001006: 34,2671           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                    B1 PL04D
028350,001007: 34,2672           03610                                    GAMPREV                               
028351,001008: 34,2673           03574                                    DELVCSI                               
028352,001009: 34,2674           60225                           DSU      NORM                                  #                                   B7
028353,001010: 34,2675           03576                                    DVPREV                                
028354,001011: 34,2676           00047                                    X1                                    
028355,001012: 34,2677           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)    B-6+N1 PL06D
028356,001013: 34,2700           00003                                    02D                                   #          = SLOPE
028357,001014: 34,2701           03574                                    DELVCSI                               
028358,001015: 34,2702           03576                           STORE    DVPREV                                
028359,001016: 34,2703           43014                           BOFF     BOFF                                  
028360,001017: 34,2704           03342                                    S32.1F3A                              
028361,001018: 34,2705           70736                                    THRDCHK                               
028362,001019: 34,2706           03343                                    S32.1F3B                              
028363,001020: 34,2707           70736                                    THRDCHK                               
028364,001021: 34,2710           41345                           DLOAD    DMP                                   
028365,001022: 34,2711           00003                                    02D                                   
028366,001023: 34,2712           03610                                    GAMPREV                               
028367,001024: 34,2713           71244                           BPL      DLOAD                                 
028368,001025: 34,2714           70743                                    FIFTYFPS                              
028369,001026: 34,2715           30142                                    INITST                                
028370,001027: 34,2716           77765                           SIGN                                           
028371,001028: 34,2717           03612                                    DELDV                                 
028372,001029: 34,2720           03612                           STORE    DELDV                                 
028373,001030: 34,2721           43014                           SET      CLEAR                                 
028374,001031: 34,2722           03062                                    S32.1F3A                              
028375,001032: 34,2723           03263                                    S32.1F3B                              
028376,001033: 34,2724           77745        FRSTPAS            DLOAD                                          
028377,001034: 34,2725           00001                                    00D                                   
028378,001035: 34,2726           17610                           STODL    GAMPREV                               
028379,001036: 34,2727           03574                                    DELVCSI                               
028380,001037: 34,2730           03576                           STORE    DVPREV                                
028381,001038: 34,2731           43025                           DSU      CLEAR                                 
028382,001039: 34,2732           03612                                    DELDV                                 
028383,001040: 34,2733           03261                                    S32.1F2                               
028384,001041: 

Page 638

028386,001043: 34,2734           37574                           STCALL   DELVCSI                               
028387,001044: 34,2735           70245                                    CSI/B1                                
028388,001045: 34,2736           43014        THRDCHK            BON      BON                                   
028389,001046: 34,2737           03302                                    S32.1F3A                              
028390,001047: 34,2740           70762                                    NEWTN                                 
028391,001048: 34,2741           03303                                    S32.1F3B                              
028392,001049: 34,2742           70762                                    NEWTN                                 
028393,001050: 34,2743           75345        FIFTYFPS           DLOAD    SIGN                                  
028394,001051: 34,2744           30162                                    FIFPSDP                               
028395,001052: 34,2745           00005                                    04D                                   
028396,001053: 34,2746           77765                           SIGN                                           
028397,001054: 34,2747           03610                                    GAMPREV                               
028398,001055: 34,2750           03612                           STORE    DELDV                                 
028399,001056: 34,2751           43276                           DCOMP    DAD                                   
028400,001057: 34,2752           03574                                    DELVCSI                               
028401,001058: 34,2753           17574                           STODL    DELVCSI                               
028402,001059: 34,2754           00001                                    00D                                   
028403,001060: 34,2755           43014                           SET      SET                                   
028404,001061: 34,2756           03063                                    S32.1F3B                              
028405,001062: 34,2757           03062                                    S32.1F3A                              
028406,001063: 34,2760           37610                           STCALL   GAMPREV                               
028407,001064: 34,2761           70256                                    CSI/B2                                
028408,001065: 34,2762           60345        NEWTN              DLOAD    NORM                                  
028409,001066: 34,2763           00005                                    04D                                   
028410,001067: 34,2764           00050                                    X2                                    
028411,001068: 34,2765           54065                           BDDV     XSU,1                                 
028412,001069: 34,2766           00001                                    00D                                   
028413,001070: 34,2767           00047                                    X2                                    
028414,001071: 34,2770           77657                           SR*                                            
028415,001072: 34,2771           20601                                    0,1                                   
028416,001073: 34,2772           17612                           STODL    DELDV                                 
028417,001074: 34,2773           00001                                    00D                                   
028418,001075: 34,2774           03610                           STORE    GAMPREV                               
028419,001076: 34,2775           51545                           DLOAD    ABS                                   
028420,001077: 34,2776           03612                                    DELDV                                 
028421,001078: 34,2777           45206                           PUSH     DSU                                   #                                        PL08D
028422,001079: 34,3000           30156                                    EPSILN1                               
028423,001080: 34,3001           71240                           BMN      DLOAD                                 
028424,001081: 34,3002           71017                                    CSI/SOL                               
028425,001082: 34,3003           50025                           DSU      BMN                                   
028426,001083: 34,3004           30166                                    DELMAX1                               
028427,001084: 34,3005           71012                                    CSISTEP                               
028428,001085: 34,3006           75345                           DLOAD    SIGN                                  
028429,001086: 34,3007           30166                                    DELMAX1                               
028430,001087: 34,3010           03612                                    DELDV                                 
028431,001088: 34,3011           03612                           STORE    DELDV                                 
028432,001089: 34,3012           45345        CSISTEP            DLOAD    DSU                                   
028433,001090: 34,3013           03574                                    DELVCSI                               
028434,001091: 34,3014           03612                                    DELDV                                 
028435,001092: 34,3015           37574                           STCALL   DELVCSI                               
028436,001093: 

Page 639

028438,001095: 34,3016           70245                                    CSI/B1                                
028439,001096: 34,3017           77145        CSI/SOL            DLOAD    AXT,2                                 
028440,001097: 34,3020           03602                                    POSTCSI                               
028441,001098: 34,3021           00002                                    2                                     
028442,001099: 34,3022           77750                           LXA,1                                          
028443,001100: 34,3023           02776                                    RTX1                                  
028444,001101: 34,3024           50023                           DSU*     BMN                                   
028445,001102: 34,3025           30152                                    PMINE      -2,1                       
028446,001103: 34,3026           71056                                    SCNDSOL                               
028447,001104: 34,3027           71374                           AXT,2    DLOAD                                 
028448,001105: 34,3030           00003                                    3                                     
028449,001106: 34,3031           03604                                    POSTCDH                               
028450,001107: 34,3032           50023                           DSU*     BMN                                   
028451,001108: 34,3033           30152                                    PMINE      -2,1                       
028452,001109: 34,3034           71056                                    SCNDSOL                               
028453,001110: 34,3035           45345                           DLOAD    DSU                                   
028454,001111: 34,3036           01775                                    TCDH                                  
028455,001112: 34,3037           03634                                    TCSI                                  
028456,001113: 34,3040           02244                           STORE    T1TOT2                                
028457,001114: 34,3041           45374                           AXT,2    DSU                                   
028458,001115: 34,3042           00004                                    4                                     
028459,001116: 34,3043           30172                                    TMIN                                  
028460,001117: 34,3044           77040                           BMN      AXT,2                                 
028461,001118: 34,3045           71056                                    SCNDSOL                               
028462,001119: 34,3046           00005                                    5                                     
028463,001120: 34,3047           45345                           DLOAD    DSU                                   
028464,001121: 34,3050           03636                                    TTPI                                  
028465,001122: 34,3051           01775                                    TCDH                                  
028466,001123: 34,3052           02246                           STORE    T2TOT3                                
028467,001124: 34,3053           51025                           DSU      BPL                                   
028468,001125: 34,3054           30172                                    TMIN                                  
028469,001126: 34,3055           72157                                    P32/P72C                              
028470,001127: 34,3056           43014        SCNDSOL            BON      BOFF                                  
028471,001128: 34,3057           03302                                    S32.1F3A                              
028472,001129: 34,3060           72045                                    ALMXIT                                
028473,001130: 34,3061           03343                                    S32.1F3B                              
028474,001131: 34,3062           72045                                    ALMXIT                                
028475,001132: 34,3063           71334                           SXA,2    DLOAD                                 
028476,001133: 34,3064           03613                                    CSIALRM                               
028477,001134: 34,3065           32425                                    P30ZERO                               
028478,001135: 34,3066           43014                           CLEAR    SET                                   
028479,001136: 34,3067           03260                                    S32.1F1                               
028480,001137: 34,3070           03061                                    S32.1F2                               
028481,001138: 34,3071           43014                           CLEAR    CLEAR                                 
028482,001139: 34,3072           03262                                    S32.1F3A                              
028483,001140: 34,3073           03263                                    S32.1F3B                              
028484,001141: 34,3074           37606                           STCALL   LOOPCT                                
028485,001142: 34,3075           70205                                    CSI/B                                 
028486,001143: 

Page 640

028488,001145:                                                                                                  #  ..... ADVANCE    .....
028489,001146: 
028490,001147:                                                                                                  #  SUBROUTINES USED
028491,001148: 
028492,001149:                                                                                                  #        PRECSET
028493,001150:                                                                                                  #        ROTATE
028494,001151: 
028495,001152: 34,3076           71220        ADVANCE            STQ      DLOAD                                 
028496,001153: 34,3077           03470                                    SUBEXIT                               
028497,001154: 34,3100           03442                                    TIG                                   
028498,001155: 34,3101           34041                           STCALL   TDEC1                                 
028499,001156: 34,3102           46401                                    PRECSET                               
028500,001157: 34,3103           77214                           SET      VLOAD                                 
028501,001158: 34,3104           01067                                    XDELVFLG                              
028502,001159: 34,3105           03560                                    VPASS3                                
028503,001160: 34,3106           03530                           STORE    VPASS2                                
028504,001161: 34,3107           27506                           STOVL    VPASS1                                
028505,001162: 34,3110           03552                                    RPASS3                                
028506,001163: 34,3111           03522                           STORE    RPASS2                                
028507,001164: 34,3112           03500                           STORE    RPASS1                                
028508,001165: 34,3113           47256                           UNIT     VXV                                   
028509,001166: 34,3114           03506                                    VPASS1                                
028510,001167: 34,3115           77656                           UNIT                                           
028511,001168: 34,3116           26252                           STOVL    UP1                                   
028512,001169: 34,3117           03536                                    RACT3                                 
028513,001170: 34,3120           37642                           STCALL   RTIG                                  
028514,001171: 34,3121           71132                                    ROTATE                                
028515,001172: 34,3122           02302                           STORE    RACT2                                 
028516,001173: 34,3123           26274                           STOVL    RACT1                                 
028517,001174: 34,3124           03544                                    VACT3                                 
028518,001175: 34,3125           37650                           STCALL   VTIG                                  
028519,001176: 34,3126           71132                                    ROTATE                                
028520,001177: 34,3127           03514                           STORE    VACT2                                 
028521,001178: 34,3130           37472                           STCALL   VACT1                                 
028522,001179: 34,3131           03470                                    SUBEXIT                               
028523,001180: 

Page 641

028525,001182:                                                                                                  #  ..... ROTATE     .....
028526,001183: 
028527,001184: 34,3132           41406        ROTATE             PUSH     PUSH                                  
028528,001185: 34,3133           74241                           DOT      VXSC                                  
028529,001186: 34,3134           02252                                    UP1                                   
028530,001187: 34,3135           02252                                    UP1                                   
028531,001188: 34,3136           51352                           VSL2     BVSU                                  
028532,001189: 34,3137           63256                           UNIT     PDVL                                  
028533,001190: 34,3140           74246                           ABVAL    VXSC                                  
028534,001191: 34,3141           43572                           VSL1     RVQ                                   
028535,001192: 

Page 642

028537,001194:                                                                                                  #  ..... INTINTNA   .....
028538,001195: 
028539,001196: 34,3142           65325        INTINT2C           PDDL     PDDL                                  
028540,001197: 34,3143           03634                                    TCSI                                  
028541,001198: 34,3144           01775                                    TCDH                                  
028542,001199: 34,3145           41525                           PDDL     PUSH                                  
028543,001200: 34,3146           33647                                    TWOPI                                 
028544,001201: 34,3147           77650                           GOTO                                           
028545,001202: 34,3150           73404                                    INTINT                                
028546,001203: 34,3151           65325        INTINT3P           PDDL     PDDL                                  
028547,001204: 34,3152           01775                                    TCDH                                  
028548,001205: 34,3153           03636                                    TTPI                                  
028549,001206: 34,3154           41525                           PDDL     PUSH                                  
028550,001207: 34,3155           32425                                    P30ZERO                               
028551,001208: 34,3156           77650                           GOTO                                           
028552,001209: 34,3157           73404                                    INTINT                                
028553,001210: 

Page 643

028555,001212:                                                                                                  #  ..... S32/33.1  .....
028556,001213: 
028557,001214:                                                                                                  #  SUBROUTINES USED
028558,001215: 
028559,001216:                                                                                                  #        S32/33.X
028560,001217: 
028561,001218: 34,3160           76020        S32/33.1           STQ      AXT,1                                 
028562,001219: 34,3161           03470                                    SUBEXIT                               
028563,001220: 34,3162           01521                           VN       0681                                  
028564,001221: 34,3163           77624                           CALL                                           
028565,001222: 34,3164           72375                                    DISDVLVC                              
028566,001223: 34,3165           77624                           CALL                                           
028567,001224: 34,3166           71200                                    S32/33.X                              
028568,001225: 34,3167           61375                           VLOAD    VXM                                   
028569,001226: 34,3170           03434                                    DELVLVC                               
028570,001227: 34,3171           00001                                    0D                                    
028571,001228: 34,3172           77772                           VSL1                                           
028572,001229: 34,3173           03656                           STORE    DELVSIN                               
028573,001230: 34,3174           51406                           PUSH     ABVAL                                 
028574,001231: 34,3175           27664                           STOVL    DELVSAB                               
028575,001232: 34,3176           77650                           GOTO                                           
028576,001233: 34,3177           03470                                    SUBEXIT                               
028577,001234: 

Page 644

028579,001236:                                                                                                  #  ..... S32/33.X  .....
028580,001237: 
028581,001238: 34,3200           77201        S32/33.X           SETPD    VLOAD                                 
028582,001239: 34,3201           00007                                    6D                                    
028583,001240: 34,3202           02252                                    UP1                                   
028584,001241: 34,3203           63276                           VCOMP    PDVL                                  
028585,001242: 34,3204           02274                                    RACT1                                 
028586,001243: 34,3205           57456                           UNIT     VCOMP                                 
028587,001244: 34,3206           47206                           PUSH     VXV                                   
028588,001245: 34,3207           02252                                    UP1                                   
028589,001246: 34,3210           77772                           VSL1                                           
028590,001247: 34,3211           00001                           STORE    0D                                    
028591,001248: 34,3212           77616                           RVQ                                            
028592,001249: 

Page 645

028594,001251:                                                                                                  #  ..... CDHMVR     .....
028595,001252: 
028596,001253:                                                                                                  #  SUBROUTINES USED
028597,001254: 
028598,001255:                                                                                                  #        VECSHIFT
028599,001256:                                                                                                  #        TIMETHET
028600,001257:                                                                                                  #        SHIFTR1
028601,001258: 
028602,001259: 34,3213           77220        CDHMVR             STQ      VLOAD                                 
028603,001260: 34,3214           03470                                    SUBEXIT                               
028604,001261: 34,3215           02302                                    RACT2                                 
028605,001262: 34,3216           53406                           PUSH     UNIT                                  
028606,001263: 34,3217           27544                           STOVL    UNVEC                                 #  UR SUB A
028607,001264: 34,3220           03522                                    RPASS2                                
028608,001265: 34,3221           50256                           UNIT     DOT                                   
028609,001266: 34,3222           03544                                    UNVEC                                 
028610,001267: 34,3223           72406                           PUSH     SL1                                   
028611,001268: 34,3224           16732                           STODL    CSTH                                  
028612,001269: 34,3225           65316                           DSQ      PDDL                                  
028613,001270: 34,3226           06510                                    DP1/4TH                               
028614,001271: 34,3227           45302                           SR2      DSU                                   
028615,001272: 34,3230           72566                           SQRT     SL1                                   
028616,001273: 34,3231           57515                           PDVL     VCOMP                                 
028617,001274: 34,3232           77635                           VXV                                            
028618,001275: 34,3233           03522                                    RPASS2                                
028619,001276: 34,3234           65241                           DOT      PDDL                                  
028620,001277: 34,3235           02252                                    UP1                                   
028621,001278: 34,3236           45565                           SIGN     STADR                                 
028622,001279: 34,3237           51047                           STOVL    SNTH                                  
028623,001280: 34,3240           03522                                    RPASS2                                
028624,001281: 34,3241           45115                           PDVL     CALL                                  
028625,001282: 34,3242           03530                                    VPASS2                                
028626,001283: 34,3243           46437                                    VECSHIFT                              
028627,001284: 34,3244           26744                           STOVL    VVEC                                  
028628,001285: 34,3245           77614                           CLEAR                                          
028629,001286: 34,3246           03666                                    RVSW                                  
028630,001287: 34,3247           36655                           STCALL   RVEC                                  
028631,001288: 34,3250           24732                                    TIMETHET                              
028632,001289: 34,3251           53754                           LXA,2    VSL*                                  
028633,001290: 34,3252           02777                                    RTX2                                  
028634,001291: 34,3253           57576                                    0,2                                   
028635,001292: 34,3254           00023                           STORE    18D                                   
028636,001293: 34,3255           76441                           DOT      SL1R                                  
028637,001294: 34,3256           03544                                    UNVEC                                 
028638,001295: 34,3257           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
028639,001296: 34,3260           63257                           SL*      PDVL                                  
028640,001297: 34,3261           57576                                    0,2                                   
028641,001298: 34,3262           02302                                    RACT2                                 
028642,001299: 34,3263           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
028643,001300: 34,3264           77625                           DSU                                            
028644,001301: 

Page 646

028646,001303: 34,3265           00003                                    02D                                   
028647,001304: 34,3266           17600                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
028648,001305: 34,3267           02742                                    R1A                                   
028649,001306: 34,3270           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
028650,001307: 34,3271           00047                                    X1                                    
028651,001308: 34,3272           00041                                    R1                                    
028652,001309: 34,3273           77624                           CALL                                           
028653,001310: 34,3274           46447                                    SHIFTR1                               
028654,001311: 34,3275           56362                           SR1R     DDV                                   
028655,001312: 34,3276           41457                           SL*      PUSH                                  
028656,001313: 34,3277           20174                                    0          -5,1                       
028657,001314: 34,3300           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
028658,001315: 34,3301           03600                                    DIFFALT                               
028659,001316: 34,3302           56302                           SR2      DDV                                   #  A SUB P                      B+31
028660,001317: 34,3303           00005                                    04D                                   #                               B+2
028661,001318: 34,3304           75406                           PUSH     SQRT                                  #     A SUB P/A SUB A             06D
028662,001319: 34,3305           41275                           DMPR     DMP                                   
028663,001320: 34,3306           00007                                    06D                                   
028664,001321: 34,3307           00001                                    00D                                   
028665,001322: 34,3310           65272                           SL3R     PDDL                                  #  V SUB A V METERS/CS           B+7     08D
028666,001323: 34,3311           00003                                    02D                                   #  R SUB A MAGNITUDE    B+29
028667,001324: 34,3312           65301                           NORM     PDDL                                  
028668,001325: 34,3313           00047                                    X1                                    
028669,001326: 34,3314           02312                                    RTMU                                  
028670,001327: 34,3315           56342                           SR1      DDV                                   #  2MU  B+38
028671,001328: 34,3316           65257                           SL*      PDDL                                  #     2 MU/R SUBAA      B+14       10D
028672,001329: 34,3317           20174                                    0          -5,1                       
028673,001330: 34,3320           00005                                    04D                                   #  ASUBA                        B+29
028674,001331: 34,3321           65301                           NORM     PDDL                                  
028675,001332: 34,3322           00050                                    X2                                    
028676,001333: 34,3323           02312                                    RTMU                                  
028677,001334: 34,3324           56342                           SR1      DDV                                   
028678,001335: 34,3325           44257                           SL*      BDSU                                  
028679,001336: 34,3326           57604                                    0          -6,2                       #  2U/R - U/A    B+14 (METERS/CS)SQ
028680,001337: 34,3327           63525                           PDDL     DSQ                                   #                                        10D
028681,001338: 34,3330           00011                                    08D                                   
028682,001339: 34,3331           75421                           BDSU     SQRT                                  
028683,001340: 34,3332           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)10D
028684,001341: 34,3333           02252                                    UP1                                   
028685,001342: 34,3334           03544                                    UNVEC                                 
028686,001343: 34,3335           74256                           UNIT     VXSC                                  
028687,001344: 34,3336           00013                                    10D                                   
028688,001345: 34,3337           74315                           PDVL     VXSC                                  
028689,001346: 34,3340           03544                                    UNVEC                                 
028690,001347: 34,3341           00011                                    08D                                   
028691,001348: 34,3342           76455                           VAD      VSL1                                  
028692,001349: 34,3343           77626                           STADR                                          
028693,001350: 34,3344           74233                           STORE    VACT3                                 
028694,001351: 34,3345           77651                           VSU                                            
028695,001352: 34,3346           03514                                    VACT2                                 

Page 647

028697,001354: 34,3347           36266                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
028698,001355: 34,3350           03470                                    SUBEXIT                               
028699,001356: 

Page 648

028701,001358:                                                                                                  #  ..... COMPTGO   .....
028702,001359: 
028703,001360:                                                                                                  #  SUBROUTINES USED
028704,001361: 
028705,001362:                                                                                                  #           CLOKTASK
028706,001363:                                                                                                  #           2PHSCHNG
028707,001364: 
028708,001365: 35,2437                                           BANK     35                                    
028709,001366: 35,2000                                           SETLOC   CSI/CDH                               
028710,001367: 35,2000                                           BANK                                           
028711,001368: 
028712,001369: 35,2437  E7,1465                                  EBANK=   RTRN                                  
028713,001370: 
028714,001371: 35,2437                                           COUNT*   $$/P3575                              
028715,001372: 
028716,001373: 35,2437           00006        COMPTGO            EXTEND                                         
028717,001374: 35,2440           23465                           QXCH     RTRN                                  
028718,001375: 35,2441           34755                           CAF      ZERO                                  
028719,001376: 35,2442           55162                           TS       DISPDEX                               
028720,001377: 35,2443           34752                           CAF      BIT2                                  
028721,001378: 35,2444           00004                           INHINT                                         
028722,001379: 35,2445           05214                           TC       WAITLIST                              
028723,001380: 35,2446  E7,1455                                  EBANK=   WHICH                                 
028724,001381: 35,2446           02716 74067                     2CADR    CLOKTASK                              
028725,001382: 
028726,001383: 35,2450           05340                           TC       2PHSCHNG                              
028727,001384: 35,2451           40036                           OCT      40036                                 
028728,001385: 35,2452           05024                           OCT      05024                                 
028729,001386: 35,2453           13000                           OCT      13000                                 
028730,001387: 35,2454           01465                           TC       RTRN                                  

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