Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

027064,000002:                                                                                                  ## Copyright:   Public domain.
027065,000003:                                                                                                  ## Filename:    P32-P35,_P72-P75.agc
027066,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
027067,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the second release
027068,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
027069,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
027070,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
027071,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
027072,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
027073,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
027074,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
027075,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
027076,000014:                                                                                                  ##              the original YUL assembler.
027077,000015:                                                                                                  ##
027078,000016:                                                                                                  ## Assembler:   yaYUL
027079,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027080,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
027081,000019:                                                                                                  ## Pages:       618-650
027082,000020:                                                                                                  ## Mod history: 2009-05-18 RSB  Adapted from the Luminary 131 file of the
027083,000021:                                                                                                  ##                              same name, as corrected from Luminary 099
027084,000022:                                                                                                  ##                              page images.
027085,000023:                                                                                                  ##              2016-12-13 RSB  GOTOP00H -> GOTOPOOH
027086,000024:                                                                                                  ##              2016-12-14 RSB  VNP00H -> VNPOOH.
027087,000025:                                                                                                  ##              2016-12-14 RSB  Proofed text comments with octopus/ProoferComments
027088,000026:                                                                                                  ##                              and corrected the errors found.
027089,000027:                                                                                                  ##              2017-02-07 RSB  Comment-text corrections identified while 
027090,000028:                                                                                                  ##                              proofing Artemis 72.
027091,000029:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116.
027092,000030:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
027093,000031: 
027094,000032:                                                                                                  ## This source code has been transcribed or otherwise adapted from
027095,000033:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
027096,000034:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
027097,000035:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
027098,000036:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
027099,000037:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
027100,000038:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
027101,000039:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
027102,000040:                                                                                                  ## actually created.
027103,000041:                                                                                                  ##
027104,000042:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
027105,000043:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
027106,000044:                                                                                                  ## the listing from which it was transcribed. It has been verified to
027107,000045:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
027108,000046:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
027109,000047:                                                                                                  ##
027110,000048:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
027111,000049:                                                                                                  ##
027112,000050:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
027113,000051: 

Page 618

027115,000053:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
027116,000054: 
027117,000055:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
027118,000056:                                                                                                  #  MOD BY WHITE.P        DATE 1 JUNE 67
027119,000057: 
027120,000058:                                                                                                  #  PURPOSE
027121,000059: 
027122,000060:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
027123,000061:                                                                                                  #                CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
027124,000062:                                                                                                  #                INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
027125,000063:                                                                                                  #                (CDH) MANEUVER.
027126,000064: 
027127,000065:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027128,000066:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027129,000067: 
027130,000068:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027131,000069:                                                                                                  #                ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
027132,000070:                                                                                                  #                APPROVAL BY THE ASTRONAUT/GROUND.
027133,000071: 
027134,000072:                                                                                                  #        (4)     TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
027135,000073:                                                                                                  #                THRUSTING PROGRAM.
027136,000074: 
027137,000075:                                                                                                  #  ASSUMPTIONS
027138,000076: 
027139,000077:                                                                                                  #        (1)     AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
027140,000078:                                                                                                  #                AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
027141,000079:                                                                                                  #                FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
027142,000080:                                                                                                  #                POSITION.
027143,000081: 
027144,000082:                                                                                                  #        (2)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
027145,000083:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027146,000084:                                                                                                  #                COMPLETION OF THE PROGRAM.
027147,000085: 
027148,000086:                                                                                                  #        (3)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
027149,000087:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027150,000088:                                                                                                  #                COMPLETION OF THE PROGRAM.
027151,000089: 
027152,000090:                                                                                                  #        (4)     CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
027153,000091:                                                                                                  #                ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
027154,000092: 
027155,000093:                                                                                                  #        (5)     CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
027156,000094:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
027157,000095:                                                                                                  #                IGNITION.
027158,000096: 
027159,000097:                                                                                                  #        (6)     THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
027160,000098:                                                                                                  #                MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
027161,000099:                                                                                                  #                ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
027162,000100: 
027163,000101:                                                                                                  #        (7)     THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
027164,000102:                                                                                                  #                PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW

Page 619

027166,000104:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
027167,000105:                                                                                                  #                OUT-OF-PLANE CSI MANEUVER.
027168,000106: 
027169,000107:                                                                                                  #        (8)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027170,000108:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
027171,000109: 
027172,000110:                                                                                                  #        (9)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027173,000111:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
027174,000112:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027175,000113:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027176,000114: 
027177,000115:                                                                                                  #        (10)    THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027178,000116:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027179,000117:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027180,000118:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027181,000119:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027182,000120:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027183,000121:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027184,000122:                                                                                                  #                THRUSTING MANEUVER.
027185,000123: 
027186,000124:                                                                                                  #        (11)    THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027187,000125: 
027188,000126:                                                                                                  #        (12)    THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027189,000127: 
027190,000128:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027191,000129:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027192,000130:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027193,000131:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027194,000132: 
027195,000133:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027196,000134:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027197,000135:                                                                                                  #                        CYCLE.
027198,000136: 
027199,000137:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027200,000138:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027201,000139:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027202,000140:                                                                                                  #                        PROGRAM.
027203,000141: 
027204,000142:                                                                                                  #        (13)    IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027205,000143:                                                                                                  #                A THRUSTING MANEUVER.
027206,000144: 
027207,000145:                                                                                                  #        (14)    THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027208,000146: 
027209,000147:                                                                                                  #                        P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
027210,000148: 
027211,000149:                                                                                                  #                        P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
027212,000150: 
027213,000151:                                                                                                  #  INPUT
027214,000152: 
027215,000153:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
027216,000154: 

Page 620

027218,000156:                                                                                                  #        (2)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027219,000157:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027220,000158:                                                                                                  #                                MANEUVER POINT
027221,000159:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
027222,000160:                                                                                                  #        (4)     TTPI            TIME OF THE TPI MANEUVER
027223,000161: 
027224,000162:                                                                                                  #  OUTPUT
027225,000163: 
027226,000164:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
027227,000165:                                                                                                  #        (2)     TTOGO           TIME TO GO
027228,000166:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
027229,000167:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
027230,000168:                                                                                                  #        (5)     T1TOT2          DELTA TIME FROM CSI TO CDH
027231,000169:                                                                                                  #        (6)     T2TOT3          DELTA TIME FROM CDH TO TPI
027232,000170:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
027233,000171:                                                                                                  #        (8)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027234,000172: 
027235,000173:                                                                                                  #  DOWNLINK
027236,000174: 
027237,000175:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
027238,000176:                                                                                                  #        (2)     TCDH            TIME OF THE CDH MANEUVER
027239,000177:                                                                                                  #        (3)     TTPI            TIME OF THE TPI MANEUVER
027240,000178:                                                                                                  #        (4)     TIG             TIME OF THE CSI MANEUVER
027241,000179:                                                                                                  #        (5)     DELVEET1        DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027242,000180:                                                                                                  #        (6)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027243,000181:                                                                                                  #        (7)     DIFFALT         DELTA ALTITUDE AT CDH
027244,000182:                                                                                                  #        (8)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027245,000183:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027246,000184:                                                                                                  #                                MANEUVER POINT
027247,000185:                                                                                                  #        (9)     ELEV            DESIRED LOS ANGLE AT TPI
027248,000186: 
027249,000187:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
027250,000188: 
027251,000189:                                                                                                  #        (1)     TIG             TIME OF THE CSI MANEUVER
027252,000190:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
027253,000191:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
027254,000192:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
027255,000193:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
027256,000194:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027257,000195:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CSI
027258,000196:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027259,000197: 
027260,000198:                                                                                                  #  SUBROUTINES USED
027261,000199: 
027262,000200:                                                                                                  #        AVFLAGA
027263,000201:                                                                                                  #        AVFLAGP
027264,000202:                                                                                                  #        P20FLGON
027265,000203:                                                                                                  #        VARALARM
027266,000204:                                                                                                  #        BANKCALL
027267,000205:                                                                                                  #        GOFLASH
027268,000206:                                                                                                  #        GOTOPOOH

Page 621

027270,000208:                                                                                                  #        VNPOOH
027271,000209:                                                                                                  #        GOFLASHR
027272,000210:                                                                                                  #        BLANKET
027273,000211:                                                                                                  #        ENDOFJOB
027274,000212:                                                                                                  #        SELECTMU
027275,000213:                                                                                                  #        ADVANCE
027276,000214:                                                                                                  #        INTINT
027277,000215:                                                                                                  #        PASSIVE
027278,000216:                                                                                                  #        CSI/A
027279,000217:                                                                                                  #        S32/33.1
027280,000218:                                                                                                  #        DISDVLVC
027281,000219:                                                                                                  #        VN1645
027282,000220: 
027283,000221: 35,2027                                           BANK     35                                    
027284,000222: 35,2000                                           SETLOC   CSI/CDH                               
027285,000223: 35,2000                                           BANK                                           
027286,000224: 35,2027  E7,1470                                  EBANK=   SUBEXIT                               
027287,000225: 35,2027                                           COUNT*   $$/P3272                              
027288,000226: 35,2027           02347        P32                TC       AVFLAGA                               
027289,000227: 35,2030           02032                           TC       P32STRT                               
027290,000228: 35,2031           02354        P72                TC       AVFLAGP                               
027291,000229: 35,2032           00006        P32STRT            EXTEND                                         
027292,000230: 35,2033           32420                           DCA      P30ZERO                               
027293,000231: 35,2034           53621                           DXCH     CENTANG                               
027294,000232: 35,2035           02053                           TC       P32/P72A                              
027295,000233: 35,2036           77734        ALMXITA            SXA,2                                          
027296,000234: 35,2037           03613                                    CSIALRM                               
027297,000235: 35,2040           77740        ALMXIT             LXC,1                                          
027298,000236: 35,2041           03613                                    CSIALRM                               
027299,000237: 35,2042           77533                           SLOAD*   EXIT                                  
027300,000238: 35,2043           32423                                    ALARM/TB   -1,1                       
027301,000239: 35,2044           30154                           CA       MPAC                                  
027302,000240: 35,2045           05744                           TC       VARALARM                              
027303,000241: 35,2046           35006                           CAF      V05N09                                
027304,000242: 35,2047           04616                           TC       BANKCALL                              
027305,000243: 35,2050           20476                           CADR     GOFLASH                               
027306,000244: 35,2051           06001                           TC       GOTOPOOH                              
027307,000245: 35,2052           02046                           TC       -4                                    
027308,000246: 35,2053           02361        P32/P72A           TC       P20FLGON                              
027309,000247: 35,2054           32417                           CAF      P30ZERO                               
027310,000248: 35,2055           55467                           TS       NN         +1                         
027311,000249: 35,2056           55633                           TS       TCSI                                  
027312,000250: 35,2057           55634                           TS       TCSI       +1                         
027313,000251: 35,2060           32410        VN0611             CAF      V06N11                                #  TCSI
027314,000252: 35,2061           03712                           TC       VNPOOH                                
027315,000253: 35,2062           06037                           TC       INTPRET                               
027316,000254: 35,2063           57545                           DLOAD    DCOMP                                 
027317,000255: 35,2064           03634                                    TCSI                                  
027318,000256: 35,2065           71240                           BMN      DLOAD                                 
027319,000257: 35,2066           72113                                    VN0655                                

Page 622

027321,000259: 35,2067           01643                                    TETLEM                                
027322,000260: 35,2070           34041                           STCALL   TDEC1                                 
027323,000261: 35,2071           46360                                    PRECSET                               
027324,000262: 35,2072           53775                           VLOAD    VSR*                                  
027325,000263: 35,2073           03536                                    RACT3                                 
027326,000264: 35,2074           57176                                    0,2                                   
027327,000265: 35,2075           26655                           STOVL    RVEC                                  
027328,000266: 35,2076           03544                                    VACT3                                 
027329,000267: 35,2077           43057                           VSR*     SET                                   
027330,000268: 35,2100           57176                                    0,2                                   
027331,000269: 35,2101           03466                                    RVSW                                  
027332,000270: 35,2102           16744                           STODL    VVEC                                  
027333,000271: 35,2103           06530                                    DPPOSMAX                              
027334,000272: 35,2104           36756                           STCALL   RDESIRED                              
027335,000273: 35,2105           25547                                    TIMERAD                               
027336,000274: 35,2106           77615                           DAD                                            
027337,000275: 35,2107           03574                                    TDEC2                                 
027338,000276: 35,2110           03634                           STORE    TCSI                                  
027339,000277: 35,2111           77776                           EXIT                                           
027340,000278: 35,2112           02060                           TC       VN0611                                
027341,000279: 35,2113           77776        VN0655             EXIT                                           
027342,000280: 35,2114           33724                           CAF      V06N55                                #  NN, ELEV(RGLOS)
027343,000281: 35,2115           04616                           TC       BANKCALL                              
027344,000282: 35,2116           20476                           CADR     GOFLASH                               
027345,000283: 35,2117           06001                           TC       GOTOPOOH                              
027346,000284: 35,2120           02122                           TC       +2                                    
027347,000285: 35,2121           02114                           TC       -5                                    
027348,000286: 35,2122           33723                           CAF      V06N37                                #  TTPI
027349,000287: 35,2123           03712                           TC       VNPOOH                                
027350,000288: 35,2124           06037                           TC       INTPRET                               
027351,000289: 35,2125           77745                           DLOAD                                          
027352,000290: 35,2126           03634                                    TCSI                                  
027353,000291: 35,2127           37442                           STCALL   TIG                                   
027354,000292: 35,2130           20000                                    SELECTMU                              
027355,000293: 35,2131           77624        P32/P72B           CALL                                           
027356,000294: 35,2132           71016                                    ADVANCE                               
027357,000295: 35,2133           77201                           SETPD    VLOAD                                 
027358,000296: 35,2134           00001                                    0D                                    
027359,000297: 35,2135           03506                                    VPASS1                                
027360,000298: 35,2136           65315                           PDVL     PDDL                                  
027361,000299: 35,2137           03500                                    RPASS1                                
027362,000300: 35,2140           03634                                    TCSI                                  
027363,000301: 35,2141           65325                           PDDL     PDDL                                  
027364,000302: 35,2142           03636                                    TTPI                                  
027365,000303: 35,2143           33732                                    TWOPI                                 
027366,000304: 35,2144           45006                           PUSH     CALL                                  
027367,000305: 35,2145           73466                                    INTINT                                
027368,000306: 35,2146           77624                           CALL                                           
027369,000307: 35,2147           46412                                    PASSIVE                               
027370,000308: 35,2150           77624                           CALL                                           

Page 623

027372,000310: 35,2151           70113                                    CSI/A                                 
027373,000311: 35,2152           43014        P32/P72C           BON      SET                                   
027374,000312: 35,2153           01311                                    FINALFLG                              
027375,000313: 35,2154           72156                                    P32/P72D                              
027376,000314: 35,2155           00470                                    UPDATFLG                              
027377,000315: 35,2156           77745        P32/P72D           DLOAD                                          
027378,000316: 35,2157           02253                                    T1TOT2                                
027379,000317: 35,2160           02253        P32/P72E           STORE    T1TOT2                                
027380,000318: 35,2161           51025                           DSU      BPL                                   
027381,000319: 35,2162           32422                                    60MIN                                 
027382,000320: 35,2163           72160                                    P32/P72E                              
027383,000321: 35,2164           77745                           DLOAD                                          
027384,000322: 35,2165           02255                                    T2TOT3                                
027385,000323: 35,2166           02255        P32/P72F           STORE    T2TOT3                                
027386,000324: 35,2167           51025                           DSU      BPL                                   
027387,000325: 35,2170           32422                                    60MIN                                 
027388,000326: 35,2171           72166                                    P32/P72F                              
027389,000327: 35,2172           77776                           EXIT                                           
027390,000328: 35,2173           32412                           CAF      V06N75                                
027391,000329: 35,2174           03712                           TC       VNPOOH                                
027392,000330: 35,2175           06037                           TC       INTPRET                               
027393,000331: 35,2176           45175                           VLOAD    CALL                                  
027394,000332: 35,2177           02267                                    DELVEET1                              
027395,000333: 35,2200           71100                                    S32/33.1                              
027396,000334: 35,2201           26267                           STOVL    DELVEET1                              
027397,000335: 35,2202           02311                                    RACT2                                 
027398,000336: 35,2203           26303                           STOVL    RACT1                                 
027399,000337: 35,2204           02275                                    DELVEET2                              
027400,000338: 35,2205           45170                           AXT,1    CALL                                  
027401,000339: 35,2206           01522                           VN       0682                                  
027402,000340: 35,2207           72370                                    DISDVLVC                              
027403,000341: 35,2210           77745                           DLOAD                                          
027404,000342: 35,2211           03636                                    TTPI                                  
027405,000343: 35,2212           37640                           STCALL   TTPIO                                 
027406,000344: 35,2213           73606                                    VN1645                                
027407,000345: 35,2214           77650                           GOTO                                           
027408,000346: 35,2215           72131                                    P32/P72B                              
027409,000347: 

Page 624

027411,000349:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
027412,000350:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
027413,000351:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
027414,000352: 
027415,000353:                                                                                                  #  PURPOSE
027416,000354: 
027417,000355:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
027418,000356:                                                                                                  #                ALTITUDE MANEUVER (CDH).
027419,000357: 
027420,000358:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027421,000359:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027422,000360: 
027423,000361:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027424,000362:                                                                                                  #                ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
027425,000363:                                                                                                  #                ASTRONAUT/GROUND.
027426,000364: 
027427,000365:                                                                                                  #        (4)     TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
027428,000366:                                                                                                  #                THRUSTING PROGRAM.
027429,000367: 
027430,000368:                                                                                                  #  ASSUMPTIONS
027431,000369: 
027432,000370:                                                                                                  #        (1)     THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
027433,000371:                                                                                                  #                CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
027434,000372:                                                                                                  #                THERFORE -
027435,000373: 
027436,000374:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027437,000375:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027438,000376:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027439,000377:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027440,000378: 
027441,000379:                                                                                                  #                (B)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
027442,000380:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
027443,000381: 
027444,000382:                                                                                                  #                (C)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027445,000383:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
027446,000384: 
027447,000385:                                                                                                  #                (D)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
027448,000386:                                                                                                  #                        ORBITS WAS MINMIZED.
027449,000387: 
027450,000388:                                                                                                  #                (E)     CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
027451,000389:                                                                                                  #                        IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
027452,000390:                                                                                                  #                        POSITION AT CSI IGNITION.
027453,000391: 
027454,000392:                                                                                                  #                (F)     THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
027455,000393:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
027456,000394:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
027457,000395: 
027458,000396:                                                                                                  #                (G)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027459,000397:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW

Page 625

027461,000399:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027462,000400:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
027463,000401: 
027464,000402:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027465,000403:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
027466,000404: 
027467,000405:                                                                                                  #        (3)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027468,000406:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
027469,000407:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027470,000408:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027471,000409: 
027472,000410:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027473,000411:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027474,000412:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027475,000413:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027476,000414:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027477,000415:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027478,000416:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027479,000417:                                                                                                  #                THRUSTING MANEUVER.
027480,000418: 
027481,000419:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027482,000420: 
027483,000421:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027484,000422: 
027485,000423:                                                                                                  #                        ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027486,000424:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027487,000425:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027488,000426:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027489,000427: 
027490,000428:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027491,000429:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027492,000430:                                                                                                  #                        CYCLE.
027493,000431: 
027494,000432:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027495,000433:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027496,000434:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027497,000435:                                                                                                  #                        PROGRAM.
027498,000436: 
027499,000437:                                                                                                  #        (7)     IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027500,000438:                                                                                                  #                A THRUSTING MANEUVER.
027501,000439: 
027502,000440:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027503,000441: 
027504,000442:                                                                                                  #                        P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
027505,000443: 
027506,000444:                                                                                                  #                        P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
027507,000445: 
027508,000446:                                                                                                  #  INPUT
027509,000447: 
027510,000448:                                                                                                  #        (1)     TTPI0   TIME OF THE TPI MANEUVER - SAVED FROM P32/P72

Page 626

027512,000450:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
027513,000451:                                                                                                  #        (3)     TCDH    TIME OF THE CDH MANEUVER
027514,000452: 
027515,000453:                                                                                                  #  OUTPUT
027516,000454: 
027517,000455:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
027518,000456:                                                                                                  #        (2)     TTOGO           TIME TO GO
027519,000457:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
027520,000458:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
027521,000459:                                                                                                  #        (5)     T2TOT3          DELTA TIME FROM CDH TO COMPUTED TPI
027522,000460:                                                                                                  #        (6)     NOMTPI          DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
027523,000461:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027524,000462: 
027525,000463:                                                                                                  #  DOWNLINK
027526,000464: 
027527,000465:                                                                                                  #        (1)     TCDH            TIME OF THE CDH MANEUVER
027528,000466:                                                                                                  #        (2)     TTPI            TIME OF THE TPI MANEUVER
027529,000467:                                                                                                  #        (3)     TIG             TIME OF THE CDH MANEUVER
027530,000468:                                                                                                  #        (4)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027531,000469:                                                                                                  #        (5)     DIFFALT         DELTA ALTITUDE AT CDH
027532,000470:                                                                                                  #        (6)     ELEV            DESIRED LOS ANGLE AT TPI
027533,000471: 
027534,000472:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
027535,000473: 
027536,000474:                                                                                                  #        (1)     TIG             TIME OF THE CDH MANEUVER
027537,000475:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027538,000476:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
027539,000477:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027540,000478:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
027541,000479:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027542,000480:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CDH
027543,000481:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027544,000482: 
027545,000483:                                                                                                  #  SUBROUTINES USED
027546,000484: 
027547,000485:                                                                                                  #        AVFLAGA
027548,000486:                                                                                                  #        AVFLAGP
027549,000487:                                                                                                  #        P20FLGON
027550,000488:                                                                                                  #        VNPOOH
027551,000489:                                                                                                  #        SELECTMU
027552,000490:                                                                                                  #        ADVANCE
027553,000491:                                                                                                  #        CDHMVR
027554,000492:                                                                                                  #        INTINT3P
027555,000493:                                                                                                  #        ACTIVE
027556,000494:                                                                                                  #        PASSIVE
027557,000495:                                                                                                  #        S33/34.1
027558,000496:                                                                                                  #        ALARM
027559,000497:                                                                                                  #        BANKCALL
027560,000498:                                                                                                  #        GOFLASH
027561,000499:                                                                                                  #        GOTOPOOH
027562,000500:                                                                                                  #        S32/33.1

Page 627

027564,000502:                                                                                                  #        VN1645
027565,000503: 
027566,000504: 35,2216                                           COUNT*   $$/P3373                              
027567,000505: 35,2216           02347        P33                TC       AVFLAGA                               
027568,000506: 35,2217           02221                           TC       P33/P73A                              
027569,000507: 35,2220           02354        P73                TC       AVFLAGP                               
027570,000508: 35,2221           02361        P33/P73A           TC       P20FLGON                              
027571,000509: 35,2222           32411                           CAF      V06N13                                #  TCDH
027572,000510: 35,2223           03712                           TC       VNPOOH                                
027573,000511: 35,2224           06037                           TC       INTPRET                               
027574,000512: 35,2225           77745                           DLOAD                                          
027575,000513: 35,2226           03640                                    TTPIO                                 
027576,000514: 35,2227           17636                           STODL    TTPI                                  
027577,000515: 35,2230           01777                                    TCDH                                  
027578,000516: 35,2231           37442                           STCALL   TIG                                   
027579,000517: 35,2232           20000                                    SELECTMU                              
027580,000518: 35,2233           77624        P33/P73B           CALL                                           
027581,000519: 35,2234           71016                                    ADVANCE                               
027582,000520: 35,2235           77624                           CALL                                           
027583,000521: 35,2236           71133                                    CDHMVR                                
027584,000522: 35,2237           77201                           SETPD    VLOAD                                 
027585,000523: 35,2240           00001                                    0D                                    
027586,000524: 35,2241           03544                                    VACT3                                 
027587,000525: 35,2242           45115                           PDVL     CALL                                  
027588,000526: 35,2243           02311                                    RACT2                                 
027589,000527: 35,2244           71071                                    INTINT3P                              
027590,000528: 35,2245           77624                           CALL                                           
027591,000529: 35,2246           46402                                    ACTIVE                                
027592,000530: 35,2247           77201                           SETPD    VLOAD                                 
027593,000531: 35,2250           00001                                    0D                                    
027594,000532: 35,2251           03530                                    VPASS2                                
027595,000533: 35,2252           45115                           PDVL     CALL                                  
027596,000534: 35,2253           03522                                    RPASS2                                
027597,000535: 35,2254           71071                                    INTINT3P                              
027598,000536: 35,2255           77624                           CALL                                           
027599,000537: 35,2256           46412                                    PASSIVE                               
027600,000538: 35,2257           43145                           DLOAD    SET                                   
027601,000539: 35,2260           32420                                    P30ZERO                               
027602,000540: 35,2261           03460                                    ITSWICH                               
027603,000541: 35,2262           36317                           STCALL   NOMTPI                                
027604,000542: 35,2263           72764                                    S33/34.1                              
027605,000543: 35,2264           77454                           BZE      EXIT                                  
027606,000544: 35,2265           72302                                    P33/P73C                              
027607,000545: 35,2266           05567                           TC       ALARM                                 
027608,000546: 35,2267           00611                           OCT      611                                   
027609,000547: 35,2270           35006                           CAF      V05N09                                
027610,000548: 35,2271           04616                           TC       BANKCALL                              
027611,000549: 35,2272           20476                           CADR     GOFLASH                               
027612,000550: 35,2273           06001                           TC       GOTOPOOH                              
027613,000551: 35,2274           02276                           TC       +2                                    

Page 628

027615,000553: 35,2275           02221                           TC       P33/P73A                              
027616,000554: 35,2276           06037                           TC       INTPRET                               
027617,000555: 35,2277           77745                           DLOAD                                          
027618,000556: 35,2300           32420                                    P30ZERO                               
027619,000557: 35,2301           02317                           STORE    NOMTPI                                
027620,000558: 35,2302           43014        P33/P73C           BON      SET                                   
027621,000559: 35,2303           01311                                    FINALFLG                              
027622,000560: 35,2304           72306                                    P33/P73D                              
027623,000561: 35,2305           00470                                    UPDATFLG                              
027624,000562: 35,2306           43345        P33/P73D           DLOAD    DAD                                   
027625,000563: 35,2307           02317                                    NOMTPI                                
027626,000564: 35,2310           03636                                    TTPI                                  
027627,000565: 35,2311           03636                           STORE    TTPI                                  
027628,000566: 35,2312           77625                           DSU                                            
027629,000567: 35,2313           01777                                    TCDH                                  
027630,000568: 35,2314           51025        P33/P73E           DSU      BPL                                   
027631,000569: 35,2315           32422                                    60MIN                                 
027632,000570: 35,2316           72314                                    P33/P73E                              
027633,000571: 35,2317           77615                           DAD                                            
027634,000572: 35,2320           32422                                    60MIN                                 
027635,000573: 35,2321           16253                           STODL    T1TOT2                                
027636,000574: 35,2322           03636                                    TTPI                                  
027637,000575: 35,2323           41425                           DSU      PUSH                                  
027638,000576: 35,2324           03640                                    TTPIO                                 
027639,000577: 35,2325           45246        P33/P73F           ABS      DSU                                   
027640,000578: 35,2326           32422                                    60MIN                                 
027641,000579: 35,2327           43244                           BPL      DAD                                   
027642,000580: 35,2330           72325                                    P33/P73F                              
027643,000581: 35,2331           32422                                    60MIN                                 
027644,000582: 35,2332           45565                           SIGN     STADR                                 
027645,000583: 35,2333           75522                           STORE    T2TOT3                                
027646,000584: 35,2334           77776                           EXIT                                           
027647,000585: 35,2335           32412                           CAF      V06N75                                
027648,000586: 35,2336           03712                           TC       VNPOOH                                
027649,000587: 35,2337           06037                           TC       INTPRET                               
027650,000588: 35,2340           45175                           VLOAD    CALL                                  
027651,000589: 35,2341           02275                                    DELVEET2                              
027652,000590: 35,2342           71100                                    S32/33.1                              
027653,000591: 35,2343           36275                           STCALL   DELVEET2                              
027654,000592: 35,2344           73606                                    VN1645                                
027655,000593: 35,2345           77650                           GOTO                                           
027656,000594: 35,2346           72233                                    P33/P73B                              
027657,000595: 

Page 629

027659,000597:                                                                                                  #  ..... AVFLAGA/P .....
027660,000598: 
027661,000599:                                                                                                  #  SUBROUTINES USED
027662,000600: 
027663,000601:                                                                                                  #        UPFLAG
027664,000602:                                                                                                  #        DOWNFLAG
027665,000603: 
027666,000604: 35,2347           00006        AVFLAGA            EXTEND                                         #  AVFLAG = LEM
027667,000605: 35,2350           23470                           QXCH     SUBEXIT                               
027668,000606: 35,2351           05504                           TC       UPFLAG                                
027669,000607: 35,2352           00050                           ADRES    AVFLAG                                
027670,000608: 35,2353           01470                           TC       SUBEXIT                               
027671,000609: 35,2354           00006        AVFLAGP            EXTEND                                         #  AVFLAG = CSM
027672,000610: 35,2355           23470                           QXCH     SUBEXIT                               
027673,000611: 35,2356           05516                           TC       DOWNFLAG                              
027674,000612: 35,2357           00050                           ADRES    AVFLAG                                
027675,000613: 35,2360           01470                           TC       SUBEXIT                               
027676,000614: 35,2361           00006        P20FLGON           EXTEND                                         
027677,000615: 35,2362           23470                           QXCH     SUBEXIT                               
027678,000616: 35,2363           05504                           TC       UPFLAG                                
027679,000617: 35,2364           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG
027680,000618: 35,2365           05504                           TC       UPFLAG                                
027681,000619: 35,2366           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG
027682,000620: 35,2367           01470                           TC       SUBEXIT                               
027683,000621: 

Page 630

027685,000623:                                                                                                  #  ..... DISDVLVC .....
027686,000624: 
027687,000625:                                                                                                  #  SUBROUTINES USED
027688,000626: 
027689,000627:                                                                                                  #        S32/33.X
027690,000628:                                                                                                  #        VNPOOH
027691,000629: 
027692,000630: 35,2370           03434        DISDVLVC           STORE    DELVLVC                               
027693,000631: 35,2371           45020                           STQ      CALL                                  
027694,000632: 35,2372           03463                                    NORMEX                                
027695,000633: 35,2373           71120                                    S32/33.X                              
027696,000634: 35,2374           64375                           VLOAD    MXV                                   
027697,000635: 35,2375           03434                                    DELVLVC                               
027698,000636: 35,2376           00001                                    0D                                    
027699,000637: 35,2377           66172                           VSL1     SXA,1                                 
027700,000638: 35,2400           03615                                    VERBNOUN                              
027701,000639: 35,2401           03434                           STORE    DELVLVC                               
027702,000640: 35,2402           77776                           EXIT                                           
027703,000641: 35,2403           31615                           CA       VERBNOUN                              
027704,000642: 35,2404           03712                           TC       VNPOOH                                
027705,000643: 35,2405           06037                           TC       INTPRET                               
027706,000644: 35,2406           77650                           GOTO                                           
027707,000645: 35,2407           03463                                    NORMEX                                
027708,000646: 

Page 631

027710,000648:                                                                                                  #  ..... CONSTANTS .....
027711,000649: 
027712,000650: 35,2410           01413        V06N11             VN       0611                                  
027713,000651: 35,2411           01415        V06N13             VN       0613                                  
027714,000652: 35,2412           01513        V06N75             VN       0675                                  
027715,000653: 35,2413           77776 62460  SN359+             2DEC     -.000086601                            
027716,000654: 
027717,000655: 35,2415           17777 37776  CS359+             2DEC     +.499999992                            
027718,000656: 
027719,000657: 35,2417           00000 00000  P30ZERO            2DEC     0          B-28                       
027720,000658: 
027721,000659: 35,2421           00025 37100  60MIN              2DEC     360000     B-28                       
027722,000660: 
027723,000661: 35,2423           00600        ALARM/TB           OCT      00600                                 #  NO 1
027724,000662: 35,2424           00601                           OCT      00601                                 #     2
027725,000663: 35,2425           00602                           OCT      00602                                 #     3
027726,000664: 35,2426           00603                           OCT      00603                                 #     4
027727,000665: 35,2427           00604                           OCT      00604                                 #     5
027728,000666: 35,2430           00605                           OCT      00605                                 #     6
027729,000667: 35,2431           00606                           OCT      00606                                 #     7
027730,000668: 

Page 632

027732,000670:                                                                                                  #  ..... CSI/A .....
027733,000671: 
027734,000672:                                                                                                  #  SUBROUTINES USED
027735,000673: 
027736,000674:                                                                                                  #        VECSHIFT
027737,000675:                                                                                                  #        TIMETHET
027738,000676:                                                                                                  #        PERIAPO
027739,000677:                                                                                                  #        SHIFTR1
027740,000678:                                                                                                  #        INTINT2C
027741,000679:                                                                                                  #        CDHMVR
027742,000680:                                                                                                  #        PERIAPO1
027743,000681:                                                                                                  #        INTINT
027744,000682:                                                                                                  #        ACTIVE
027745,000683: 
027746,000684: 34,2057                                           BANK     34                                    
027747,000685: 34,2000                                           SETLOC   CSI/CDH1                              
027748,000686: 34,2000                                           BANK                                           
027749,000687: 34,2057  E7,1470                                  EBANK=   SUBEXIT                               
027750,000688: 34,2057                                           COUNT*   $$/CSI                                
027751,000689: 34,2057           00000 00020  LOOPMX             2DEC     16         B-28                       
027752,000690: 
027753,000691: 34,2061           00003 34661  INITST             2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
027754,000692: 
027755,000693: 34,2063           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #  MAXIMUM DV1 = 1000 FPS
027756,000694: 
027757,000695: 34,2065           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                 989 FPS
027758,000696: 
027759,000697: 34,2067           10000 00000  1DPB2              2DEC     1.0        B-2                        
027760,000698: 
027761,000699: 34,2071           00000 00001  1DPB28             2DEC     1          B-28                       
027762,000700: 
027763,000701: 34,2073           00004 31566  PMINE              2DEC     157420     B-29                       #  85 NM - MUST BE 8 WORDS BEFORE PMINM
027764,000702: 
027765,000703: 34,2075           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #  .1 FPS
027766,000704: 
027767,000705: 34,2077           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS (CHANGED FROM .05 FPS)
027768,000706: 
027769,000707: 34,2101           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #  50 FPS
027770,000708: 
027771,000709: 34,2103           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE
027772,000710: 
027773,000711: 34,2105           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #  200 FPS
027774,000712: 
027775,000713: 34,2107           00000 06433  ONETHTH            2DEC     .0001      B-3                        
027776,000714: 
027777,000715: 34,2111           00003 25140  TMIN               2DEC     60000      B-28                       #  10 MIN
027778,000716: 
027779,000717: 34,2113           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
027780,000718: 34,2114           03260                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
027781,000719: 34,2115           03061                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR

Page 633

027783,000721: 34,2116           43014                           CLEAR    SET                                   
027784,000722: 34,2117           03262                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
027785,000723: 34,2120           03063                                    S32.1F3B                              #  10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
027786,000724: 34,2121           77745                           DLOAD                                          
027787,000725: 34,2122           32420                                    P30ZERO                               
027788,000726: 34,2123           03606                           STORE    LOOPCT                                
027789,000727: 34,2124           03614                           STORE    CSIALRM                               
027790,000728: 34,2125           77201        CSI/B              SETPD    VLOAD                                 
027791,000729: 34,2126           00001                                    0D                                    
027792,000730: 34,2127           02303                                    RACT1                                 
027793,000731: 34,2130           41446                           ABVAL    PUSH                                  #  RA1                         B29 PL02D
027794,000732: 34,2131           70501                           NORM     SR1                                   
027795,000733: 34,2132           00050                                    X2                                    #                       B29-N2+ B1 PL04D
027796,000734: 34,2133           51515                           PDVL     ABVAL                                 
027797,000735: 34,2134           03552                                    RPASS3                                
027798,000736: 34,2135           55301                           NORM     BDDV                                  #  RA1/RP3                      B1 PL02D
027799,000737: 34,2136           00047                                    X1                                    
027800,000738: 34,2137           53664                           XSU,2    SR*                                   #                               B2
027801,000739: 34,2140           00046                                    X1                                    
027802,000740: 34,2141           57175                                    1,2                                   
027803,000741: 34,2142           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1      B29+B2=B31 PL00D
027804,000742: 34,2143           30070                                    1DPB2                                 
027805,000743: 34,2144           65301                           NORM     PDDL                                  #                                   PL02D
027806,000744: 34,2145           00047                                    X1                                    
027807,000745: 34,2146           02321                                    RTMU                                  
027808,000746: 34,2147           56342                           SR1      DDV                                   #                       B38-B31= B7 PL00D
027809,000747: 34,2150           75457                           SL*      SQRT                                  #                                B7
027810,000748: 34,2151           20172                                    0          -7,1                       
027811,000749: 34,2152           53515                           PDVL     UNIT                                  #                                   PL02D
027812,000750: 34,2153           02303                                    RACT1                                 
027813,000751: 34,2154           47315                           PDVL     VXV                                   
027814,000752: 34,2155           02261                                    UP1                                   
027815,000753: 34,2156           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
027816,000754: 34,2157           72441                           DOT      SL1                                   #  VA1 . UH1                     B7
027817,000755: 34,2160           03472                                    VACT1                                 
027818,000756: 34,2161           45421                           BDSU     STADR                                 #                                   PL00D
027819,000757: 34,2162           60203                           STODL    DELVCSI                               
027820,000758: 34,2163           30062                                    INITST                                #  10 FPS
027821,000759: 34,2164           03612                           STORE    DELDV                                 
027822,000760: 34,2165           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
027823,000761: 34,2166           03606                                    LOOPCT                                
027824,000762: 34,2167           30072                                    1DPB28                                
027825,000763: 34,2170           03606                           STORE    LOOPCT                                
027826,000764: 34,2171           77025                           DSU      AXT,2                                 
027827,000765: 34,2172           30060                                    LOOPMX                                
027828,000766: 34,2173           00006                                    6                                     
027829,000767: 34,2174           77644                           BPL                                            
027830,000768: 34,2175           70776                                    SCNDSOL                               
027831,000769: 34,2176           77601        CSI/B2             SETPD                                          
027832,000770: 34,2177           00001                                    0D                                    

Page 634

027834,000772: 34,2200           51545                           DLOAD    ABS                                   
027835,000773: 34,2201           03574                                    DELVCSI                               
027836,000774: 34,2202           50025                           DSU      BMN                                   
027837,000775: 34,2203           30064                                    DVMAX1                                
027838,000776: 34,2204           70224                                    CSI/B23                               
027839,000777: 34,2205           43174                           AXT,2    BON                                   
027840,000778: 34,2206           00007                                    7                                     
027841,000779: 34,2207           03300                                    S32.1F1                               
027842,000780: 34,2210           70776                                    SCNDSOL                               
027843,000781: 34,2211           43014                           BOFF     BON                                   
027844,000782: 34,2212           03342                                    S32.1F3A                              
027845,000783: 34,2213           70216                                    CSI/B22                               #  FLAG 3 NEQ 3
027846,000784: 34,2214           03303                                    S32.1F3B                              
027847,000785: 34,2215           70776                                    SCNDSOL                               
027848,000786: 34,2216           71214        CSI/B22            SET      DLOAD                                 
027849,000787: 34,2217           03060                                    S32.1F1                               
027850,000788: 34,2220           30066                                    DVMAX2                                
027851,000789: 34,2221           77765                           SIGN                                           
027852,000790: 34,2222           03574                                    DELVCSI                               
027853,000791: 34,2223           03574                           STORE    DELVCSI                               
027854,000792: 34,2224           41575        CSI/B23            VLOAD    PUSH                                  
027855,000793: 34,2225           02303                                    RACT1                                 
027856,000794: 34,2226           63256                           UNIT     PDVL                                  
027857,000795: 34,2227           02261                                    UP1                                   
027858,000796: 34,2230           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
027859,000797: 34,2231           76561                           VXSC     VSL1                                  
027860,000798: 34,2232           03574                                    DELVCSI                               
027861,000799: 34,2233           02267                           STORE    DELVEET1                              
027862,000800: 34,2234           40055                           VAD      BOV                                   
027863,000801: 34,2235           03472                                    VACT1                                 
027864,000802: 34,2236           70237                                    CSI/B23D                              
027865,000803: 34,2237           37566        CSI/B23D           STCALL   VACT4                                 
027866,000804: 34,2240           46416                                    VECSHIFT                              
027867,000805: 34,2241           26744                           STOVL    VVEC                                  
027868,000806: 34,2242           77614                           SET                                            
027869,000807: 34,2243           03466                                    RVSW                                  
027870,000808: 34,2244           26655                           STOVL    RVEC                                  
027871,000809: 34,2245           32414                                    SN359+                                
027872,000810: 34,2246           36730                           STCALL   SNTH                                  #  ALSO CSTH
027873,000811: 34,2247           24732                                    TIMETHET                              
027874,000812: 34,2250           72142                           SR1      LXA,1                                 
027875,000813: 34,2251           02776                                    RTX1                                  
027876,000814: 34,2252           37604                           STCALL   HAFPA1                                
027877,000815: 34,2253           46326                                    PERIAPO                               
027878,000816: 34,2254           77624                           CALL                                           
027879,000817: 34,2255           46426                                    SHIFTR1                               
027880,000818: 34,2256           17602                           STODL    POSTCSI                               
027881,000819: 34,2257           03621                                    CENTANG                               
027882,000820: 34,2260           52054                           BZE      GOTO                                  
027883,000821: 34,2261           70263                                    +2                                    

Page 635

027885,000823: 34,2262           70372                                    CIRCL                                 
027886,000824: 34,2263           77745                           DLOAD                                          
027887,000825: 34,2264           02752                                    ECC                                   
027888,000826: 34,2265           50025                           DSU      BMN                                   
027889,000827: 34,2266           30110                                    ONETHTH                               
027890,000828: 34,2267           70372                                    CIRCL                                 
027891,000829: 34,2270           45145                           DLOAD    CALL                                  
027892,000830: 34,2271           00041                                    R1                                    
027893,000831: 34,2272           46426                                    SHIFTR1                               
027894,000832: 34,2273           60201                           SETPD    NORM                                  
027895,000833: 34,2274           00003                                    2D                                    
027896,000834: 34,2275           00047                                    X1                                    
027897,000835: 34,2276           50315                           PDVL     DOT                                   #                                        PL04D
027898,000836: 34,2277           02303                                    RACT1                                 
027899,000837: 34,2300           03566                                    VACT4                                 
027900,000838: 34,2301           56246                           ABS      DDV                                   
027901,000839: 34,2302           00003                                    02D                                   #  (/RDOTV/)/R1             B36-B29= B7
027902,000840: 34,2303           45257                           SL*      DSU                                   
027903,000841: 34,2304           20201                                    0,1                                   
027904,000842: 34,2305           30100                                    NICKELDP                              
027905,000843: 34,2306           71240                           BMN      DLOAD                                 
027906,000844: 34,2307           70372                                    CIRCL                                 
027907,000845: 34,2310           02740                                    P                                     
027908,000846: 34,2311           45312                           SL2      DSU                                   
027909,000847: 34,2312           30070                                    1DPB2                                 
027910,000848: 34,2313           14017                           STODL    14D                                   
027911,000849: 34,2314           02317                                    RTSR1/MU                              
027912,000850: 34,2315           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1         B-16-B29 = B-45 PL02D
027913,000851: 34,2316           41325                           PDDL     DMP                                   
027914,000852: 34,2317           02740                                    P                                     
027915,000853: 34,2320           00041                                    R1                                    
027916,000854: 34,2321           77624                           CALL                                           
027917,000855: 34,2322           46426                                    SHIFTR1                               
027918,000856: 34,2323           72412                           SL4      SL1                                   
027919,000857: 34,2324           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1       B14+B-45 = B-31 PL02D
027920,000858: 34,2325           52414                           BOFF     SL3                                   
027921,000859: 34,2326           04343                                    CMOONFLG                              
027922,000860: 34,2327           70330                                    CSI/B3                                
027923,000861: 34,2330           50315        CSI/B3             PDVL     DOT                                   
027924,000862: 34,2331           02303                                    RACT1                                 
027925,000863: 34,2332           03566                                    VACT4                                 
027926,000864: 34,2333           03617                           STORE    RDOTV                                 
027927,000865: 34,2334           77646                           ABS                                            
027928,000866: 34,2335           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                  PL02D
027929,000867: 34,2336           00050                                    X2                                    
027930,000868: 34,2337           53660                           XSU,1    SL*                                   #                       B-31+B36-B3 = B2
027931,000869: 34,2340           00047                                    X2                                    
027932,000870: 34,2341           20204                                    3,1                                   
027933,000871: 34,2342           14015                           STODL    12D                                   
027934,000872: 34,2343           32420                                    P30ZERO                               

Page 636

027936,000874: 34,2344           00021                           STORE    16D                                   
027937,000875: 34,2345           53575                           VLOAD    UNIT                                  
027938,000876: 34,2346           00015                                    12D                                   
027939,000877: 34,2347           26730                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
027940,000878: 34,2350           02303                                    RACT1                                 
027941,000879: 34,2351           75315                           PDVL     SIGN                                  
027942,000880: 34,2352           03566                                    VACT4                                 
027943,000881: 34,2353           03617                                    RDOTV                                 
027944,000882: 34,2354           45076                           VCOMP    CALL                                  
027945,000883: 34,2355           46416                                    VECSHIFT                              
027946,000884: 34,2356           26744                           STOVL    VVEC                                  
027947,000885: 34,2357           77614                           SET                                            
027948,000886: 34,2360           03466                                    RVSW                                  
027949,000887: 34,2361           36655                           STCALL   RVEC                                  
027950,000888: 34,2362           24732                                    TIMETHET                              
027951,000889: 34,2363           51125                           PDDL     BPL                                   
027952,000890: 34,2364           03617                                    RDOTV                                 
027953,000891: 34,2365           70376                                    NTP/2                                 
027954,000892: 34,2366           45345                           DLOAD    DSU                                   
027955,000893: 34,2367           03604                                    HAFPA1                                
027956,000894: 34,2370           52006                           PUSH     GOTO                                  
027957,000895: 34,2371           70376                                    NTP/2                                 
027958,000896: 34,2372           71201        CIRCL              SETPD    DLOAD                                 
027959,000897: 34,2373           00001                                    00D                                   
027960,000898: 34,2374           32420                                    P30ZERO                               
027961,000899: 34,2375           77606                           PUSH                                           
027962,000900: 34,2376           41345        NTP/2              DLOAD    DMP                                   
027963,000901: 34,2377           03467                                    NN                                    
027964,000902: 34,2400           03604                                    HAFPA1                                
027965,000903: 34,2401           45261                           SL       DSU                                   
027966,000904: 34,2402           20217                                    14D                                   
027967,000905: 34,2403           77615                           DAD                                            
027968,000906: 34,2404           03634                                    TCSI                                  
027969,000907: 34,2405           01777                           STORE    TCDH                                  
027970,000908: 34,2406           77021                           BDSU     AXT,2                                 
027971,000909: 34,2407           03636                                    TTPI                                  
027972,000910: 34,2410           00005                                    5D                                    
027973,000911: 34,2411           40240                           BMN      SETPD                                 
027974,000912: 34,2412           70776                                    SCNDSOL                               
027975,000913: 34,2413           00001                                    0D                                    
027976,000914: 34,2414           63375                           VLOAD    PDVL                                  
027977,000915: 34,2415           03566                                    VACT4                                 
027978,000916: 34,2416           02303                                    RACT1                                 
027979,000917: 34,2417           77624                           CALL                                           
027980,000918: 34,2420           71062                                    INTINT2C                              
027981,000919: 34,2421           26311                           STOVL    RACT2                                 
027982,000920: 34,2422           00007                                    VATT                                  
027983,000921: 34,2423           27514                           STOVL    VACT2                                 
027984,000922: 34,2424           03506                                    VPASS1                                
027985,000923: 34,2425           63201                           SETPD    PDVL                                  

Page 637

027987,000925: 34,2426           00001                                    0D                                    
027988,000926: 34,2427           03500                                    RPASS1                                
027989,000927: 34,2430           77624                           CALL                                           
027990,000928: 34,2431           71062                                    INTINT2C                              
027991,000929: 34,2432           27522                           STOVL    RPASS2                                
027992,000930: 34,2433           00007                                    VATT                                  
027993,000931: 34,2434           37530                           STCALL   VPASS2                                
027994,000932: 34,2435           71133                                    CDHMVR                                
027995,000933: 34,2436           40375                           VLOAD    SETPD                                 
027996,000934: 34,2437           02311                                    RACT2                                 
027997,000935: 34,2440           00001                                    0D                                    
027998,000936: 34,2441           45115                           PDVL     CALL                                  
027999,000937: 34,2442           03544                                    VACT3                                 
028000,000938: 34,2443           46316                                    PERIAPO1                              
028001,000939: 34,2444           77624                           CALL                                           
028002,000940: 34,2445           46426                                    SHIFTR1                               
028003,000941: 34,2446           27604                           STOVL    POSTCDH                               
028004,000942: 34,2447           03544                                    VACT3                                 
028005,000943: 34,2450           63201                           SETPD    PDVL                                  
028006,000944: 34,2451           00001                                    0D                                    
028007,000945: 34,2452           02311                                    RACT2                                 
028008,000946: 34,2453           65325                           PDDL     PDDL                                  
028009,000947: 34,2454           01777                                    TCDH                                  
028010,000948: 34,2455           03636                                    TTPI                                  
028011,000949: 34,2456           41525                           PDDL     PUSH                                  
028012,000950: 34,2457           33732                                    TWOPI                                 
028013,000951: 34,2460           77624                           CALL                                           
028014,000952: 34,2461           73466                                    INTINT                                
028015,000953: 34,2462           77624                           CALL                                           
028016,000954: 34,2463           46402                                    ACTIVE                                
028017,000955: 34,2464           77745                           DLOAD                                          
028018,000956: 34,2465           02257                                    ELEV                                  
028019,000957: 34,2466           73401                           SETPD    SINE                                  
028020,000958: 34,2467           00007                                    6D                                    
028021,000959: 34,2470           53515                           PDVL     UNIT                                  
028022,000960: 34,2471           03536                                    RACT3                                 
028023,000961: 34,2472           00001                           STORE    00D                                   #  URA3 AT 00D
028024,000962: 34,2473           47315                           PDVL     VXV                                   #  PL14D, PL08D
028025,000963: 34,2474           02261                                    UP1                                   
028026,000964: 34,2475           77656                           UNIT                                           
028027,000965: 34,2476           71525                           PDDL     COSINE                                #  UNIT(URA3 X UVA3 X URA3) = UH3        B1 PL14D
028028,000966: 34,2477           02257                                    ELEV                                  
028029,000967: 34,2500           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                         B2 PL08D
028030,000968: 34,2501           77754                           STORE    18D                                   #        PLUS
028031,000969: 34,2502           74345                           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U                    B2 PL00D
028032,000970: 34,2503           76455                           VAD      VSL1                                  
028033,000971: 34,2504           00023                                    18D                                   #                                        B1
028034,000972: 34,2505           50206                           PUSH     DOT                                   #                                           PL06D
028035,000973: 34,2506           03536                                    RACT3                                 #  (U . RA3) = TEMP1           B1 +B29 = B30
028036,000974: 34,2507           41552                           SL1      PUSH                                  #                                       B29 PL08D

Page 638

028038,000976: 34,2510           72316                           DSQ      TLOAD                                 #  TEMP1**2                             B58
028039,000977: 34,2511           00155                                    MPAC                                  
028040,000978: 34,2512           50315                           PDVL     DOT                                   #                                           PL11D
028041,000979: 34,2513           03536                                    RACT3                                 
028042,000980: 34,2514           03536                                    RACT3                                 
028043,000981: 34,2515           57551                           TLOAD    DCOMP                                 #  RA3 . RA3
028044,000982: 34,2516           00155                                    MPAC                                  
028045,000983: 34,2517           50315                           PDVL     DOT                                   #  RP3 . RP3                            B58 PL14D
028046,000984: 34,2520           03552                                    RPASS3                                
028047,000985: 34,2521           03552                                    RPASS3                                #                                           PL11D
028048,000986: 34,2522           76371                           TAD      TAD                                   #  TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2     PL08D
028049,000987: 34,2523           71244                           BPL      DLOAD                                 
028050,000988: 34,2524           70542                                    K10RK2                                
028051,000989: 34,2525           03606                                    LOOPCT                                
028052,000990: 34,2526           77025                           DSU      AXT,2                                 
028053,000991: 34,2527           30072                                    1DPB28                                
028054,000992: 34,2530           00001                                    1D                                    
028055,000993: 34,2531           77654                           BZE                                            
028056,000994: 34,2532           72036                                    ALMXITA                               
028057,000995: 34,2533           70545                           DLOAD    SR1                                   
028058,000996: 34,2534           03612                                    DELDV                                 
028059,000997: 34,2535           03612                           STORE    DELDV                                 
028060,000998: 34,2536           77621                           BDSU                                           
028061,000999: 34,2537           03576                                    DVPREV                                
028062,001000: 34,2540           37574                           STCALL   DELVCSI                               
028063,001001: 34,2541           70165                                    CSI/B1                                
028064,001002: 34,2542           41566        K10RK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                    B29 PL10D
028065,001003: 34,2543           45276                           DCOMP    DSU                                   
028066,001004: 34,2544           00007                                    06D                                   #  -TEMP1-TEMP3 = K2 AT 10D
028067,001005: 34,2545           14013                           STODL    10D                                   #                                           PL08D
028068,001006: 34,2546           45425                           DSU      STADR                                 #                                           PL06D
028069,001007: 34,2547           77762                           STORE    12D                                   #  -TEMP1+TEMP3 = K1 AT 12D
028070,001008: 34,2550           77646                           ABS                                            
028071,001009: 34,2551           14017                           STODL    14D                                   
028072,001010: 34,2552           00013                                    10D                                   
028073,001011: 34,2553           45246                           ABS      DSU                                   
028074,001012: 34,2554           00017                                    14D                                   
028075,001013: 34,2555           71240                           BMN      DLOAD                                 
028076,001014: 34,2556           70561                                    K2.                                   
028077,001015: 34,2557           00015                                    12D                                   
028078,001016: 34,2560           00013                           STORE    10D                                   #  K = K1
028079,001017: 34,2561           77745        K2.                DLOAD                                          
028080,001018: 34,2562           00013                                    10D                                   
028081,001019: 34,2563           76561                           VXSC     VSL1                                  
028082,001020: 34,2564           53455                           VAD      UNIT                                  #  V = RA3 + KU UNIT                     B1
028083,001021: 34,2565           03536                                    RACT3                                 
028084,001022: 34,2566           53515                           PDVL     UNIT                                  
028085,001023: 34,2567           03552                                    RPASS3                                #                                           PL06D
028086,001024: 34,2570           53515                           PDVL     UNIT                                  
028087,001025: 34,2571           03560                                    VPASS3                                #                                           PL12D

Page 639

028089,001027: 34,2572           63235                           VXV      PDVL                                  #  UVP3 X URP3                              PL18D
028090,001028: 34,2573           00007                                    06D                                   
028091,001029: 34,2574           00007                                    06D                                   
028092,001030: 34,2575           50235                           VXV      DOT                                   
028093,001031: 34,2576           00001                                    00D                                   
028094,001032: 34,2577           77626                           STADR                                          #                                           PL12D
028095,001033: 34,2600           53762                           STOVL    12D                                   #  (URP3 X V).(UVP3 X URP3)=TEMP            PL06D
028096,001034: 34,2601           72441                           DOT      SL1                                   #                                           PL00D
028097,001035: 34,2602           75326                           ARCCOS   SIGN                                  
028098,001036: 34,2603           00015                                    12D                                   #                                        B0
028099,001037: 34,2604           41542                           SR1      PUSH                                  #  GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3)      PL02D
028100,001038: 34,2605           71214                           BON      DLOAD                                 
028101,001039: 34,2606           03301                                    S32.1F2                               
028102,001040: 34,2607           70644                                    FRSTPAS                               
028103,001041: 34,2610           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
028104,001042: 34,2611           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                         B1 PL04D
028105,001043: 34,2612           03610                                    GAMPREV                               
028106,001044: 34,2613           03574                                    DELVCSI                               
028107,001045: 34,2614           60225                           DSU      NORM                                  #                                        B7
028108,001046: 34,2615           03576                                    DVPREV                                
028109,001047: 34,2616           00047                                    X1                                    
028110,001048: 34,2617           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)          B-6+N1 PL06D
028111,001049: 34,2620           00003                                    02D                                   #        = SLOPE
028112,001050: 34,2621           03574                                    DELVCSI                               
028113,001051: 34,2622           03576                           STORE    DVPREV                                
028114,001052: 34,2623           43014                           BOFF     BOFF                                  
028115,001053: 34,2624           03342                                    S32.1F3A                              
028116,001054: 34,2625           70656                                    THRDCHK                               
028117,001055: 34,2626           03343                                    S32.1F3B                              
028118,001056: 34,2627           70656                                    THRDCHK                               
028119,001057: 34,2630           41345                           DLOAD    DMP                                   
028120,001058: 34,2631           00003                                    02D                                   
028121,001059: 34,2632           03610                                    GAMPREV                               
028122,001060: 34,2633           71244                           BPL      DLOAD                                 
028123,001061: 34,2634           70663                                    FIFTYFPS                              
028124,001062: 34,2635           30062                                    INITST                                
028125,001063: 34,2636           77765                           SIGN                                           
028126,001064: 34,2637           03612                                    DELDV                                 
028127,001065: 34,2640           03612                           STORE    DELDV                                 
028128,001066: 34,2641           43014                           SET      CLEAR                                 
028129,001067: 34,2642           03062                                    S32.1F3A                              
028130,001068: 34,2643           03263                                    S32.1F3B                              
028131,001069: 34,2644           77745        FRSTPAS            DLOAD                                          
028132,001070: 34,2645           00001                                    00D                                   
028133,001071: 34,2646           17610                           STODL    GAMPREV                               
028134,001072: 34,2647           03574                                    DELVCSI                               
028135,001073: 34,2650           03576                           STORE    DVPREV                                
028136,001074: 34,2651           43025                           DSU      CLEAR                                 
028137,001075: 34,2652           03612                                    DELDV                                 
028138,001076: 34,2653           03261                                    S32.1F2                               

Page 640

028140,001078: 34,2654           37574                           STCALL   DELVCSI                               
028141,001079: 34,2655           70165                                    CSI/B1                                
028142,001080: 34,2656           43014        THRDCHK            BON      BON                                   
028143,001081: 34,2657           03302                                    S32.1F3A                              
028144,001082: 34,2660           70702                                    NEWTN                                 
028145,001083: 34,2661           03303                                    S32.1F3B                              
028146,001084: 34,2662           70702                                    NEWTN                                 
028147,001085: 34,2663           75345        FIFTYFPS           DLOAD    SIGN                                  
028148,001086: 34,2664           30102                                    FIFPSDP                               
028149,001087: 34,2665           00005                                    04D                                   
028150,001088: 34,2666           77765                           SIGN                                           
028151,001089: 34,2667           03610                                    GAMPREV                               
028152,001090: 34,2670           03612                           STORE    DELDV                                 
028153,001091: 34,2671           43276                           DCOMP    DAD                                   
028154,001092: 34,2672           03574                                    DELVCSI                               
028155,001093: 34,2673           17574                           STODL    DELVCSI                               
028156,001094: 34,2674           00001                                    00D                                   
028157,001095: 34,2675           43014                           SET      SET                                   
028158,001096: 34,2676           03063                                    S32.1F3B                              
028159,001097: 34,2677           03062                                    S32.1F3A                              
028160,001098: 34,2700           37610                           STCALL   GAMPREV                               
028161,001099: 34,2701           70176                                    CSI/B2                                
028162,001100: 34,2702           60345        NEWTN              DLOAD    NORM                                  
028163,001101: 34,2703           00005                                    04D                                   
028164,001102: 34,2704           00050                                    X2                                    
028165,001103: 34,2705           54065                           BDDV     XSU,1                                 
028166,001104: 34,2706           00001                                    00D                                   
028167,001105: 34,2707           00047                                    X2                                    
028168,001106: 34,2710           77657                           SR*                                            
028169,001107: 34,2711           20601                                    0,1                                   
028170,001108: 34,2712           17612                           STODL    DELDV                                 
028171,001109: 34,2713           00001                                    00D                                   
028172,001110: 34,2714           03610                           STORE    GAMPREV                               
028173,001111: 34,2715           51545                           DLOAD    ABS                                   
028174,001112: 34,2716           03612                                    DELDV                                 #                                           PL08D
028175,001113: 34,2717           45206                           PUSH     DSU                                   
028176,001114: 34,2720           30076                                    EPSILN1                               
028177,001115: 34,2721           71240                           BMN      DLOAD                                 
028178,001116: 34,2722           70737                                    CSI/SOL                               
028179,001117: 34,2723           50025                           DSU      BMN                                   
028180,001118: 34,2724           30106                                    DELMAX1                               
028181,001119: 34,2725           70732                                    CSISTEP                               
028182,001120: 34,2726           75345                           DLOAD    SIGN                                  
028183,001121: 34,2727           30106                                    DELMAX1                               
028184,001122: 34,2730           03612                                    DELDV                                 
028185,001123: 34,2731           03612                           STORE    DELDV                                 
028186,001124: 34,2732           45345        CSISTEP            DLOAD    DSU                                   
028187,001125: 34,2733           03574                                    DELVCSI                               
028188,001126: 34,2734           03612                                    DELDV                                 
028189,001127: 34,2735           37574                           STCALL   DELVCSI                               

Page 641

028191,001129: 34,2736           70165                                    CSI/B1                                
028192,001130: 34,2737           77145        CSI/SOL            DLOAD    AXT,2                                 
028193,001131: 34,2740           03602                                    POSTCSI                               
028194,001132: 34,2741           00002                                    2                                     
028195,001133: 34,2742           77750                           LXA,1                                          
028196,001134: 34,2743           02776                                    RTX1                                  
028197,001135: 34,2744           50023                           DSU*     BMN                                   
028198,001136: 34,2745           30072                                    PMINE      -2,1                       
028199,001137: 34,2746           70776                                    SCNDSOL                               
028200,001138: 34,2747           71374                           AXT,2    DLOAD                                 
028201,001139: 34,2750           00003                                    3                                     
028202,001140: 34,2751           03604                                    POSTCDH                               
028203,001141: 34,2752           50023                           DSU*     BMN                                   
028204,001142: 34,2753           30072                                    PMINE      -2,1                       
028205,001143: 34,2754           70776                                    SCNDSOL                               
028206,001144: 34,2755           45345                           DLOAD    DSU                                   
028207,001145: 34,2756           01777                                    TCDH                                  
028208,001146: 34,2757           03634                                    TCSI                                  
028209,001147: 34,2760           02253                           STORE    T1TOT2                                
028210,001148: 34,2761           45374                           AXT,2    DSU                                   
028211,001149: 34,2762           00004                                    4                                     
028212,001150: 34,2763           30112                                    TMIN                                  
028213,001151: 34,2764           77040                           BMN      AXT,2                                 
028214,001152: 34,2765           70776                                    SCNDSOL                               
028215,001153: 34,2766           00005                                    5                                     
028216,001154: 34,2767           45345                           DLOAD    DSU                                   
028217,001155: 34,2770           03636                                    TTPI                                  
028218,001156: 34,2771           01777                                    TCDH                                  
028219,001157: 34,2772           02255                           STORE    T2TOT3                                
028220,001158: 34,2773           51025                           DSU      BPL                                   
028221,001159: 34,2774           30112                                    TMIN                                  
028222,001160: 34,2775           72152                                    P32/P72C                              
028223,001161: 34,2776           43014        SCNDSOL            BON      BOFF                                  
028224,001162: 34,2777           03302                                    S32.1F3A                              
028225,001163: 34,3000           72040                                    ALMXIT                                
028226,001164: 34,3001           03343                                    S32.1F3B                              
028227,001165: 34,3002           72040                                    ALMXIT                                
028228,001166: 34,3003           71334                           SXA,2    DLOAD                                 
028229,001167: 34,3004           03613                                    CSIALRM                               
028230,001168: 34,3005           32420                                    P30ZERO                               
028231,001169: 34,3006           43014                           CLEAR    SET                                   
028232,001170: 34,3007           03260                                    S32.1F1                               
028233,001171: 34,3010           03061                                    S32.1F2                               
028234,001172: 34,3011           43014                           CLEAR    CLEAR                                 
028235,001173: 34,3012           03262                                    S32.1F3A                              
028236,001174: 34,3013           03263                                    S32.1F3B                              
028237,001175: 34,3014           37606                           STCALL   LOOPCT                                
028238,001176: 34,3015           70125                                    CSI/B                                 
028239,001177: 

Page 642

028241,001179:                                                                                                  #  ..... ADVANCE .....
028242,001180: 
028243,001181:                                                                                                  #  SUBROUTINES USED
028244,001182:                                                                                                  #        PRECSET
028245,001183:                                                                                                  #        ROTATE
028246,001184: 
028247,001185: 34,3016           71220        ADVANCE            STQ      DLOAD                                 
028248,001186: 34,3017           03470                                    SUBEXIT                               
028249,001187: 34,3020           03442                                    TIG                                   
028250,001188: 34,3021           34041                           STCALL   TDEC1                                 
028251,001189: 34,3022           46360                                    PRECSET                               
028252,001190: 34,3023           77214                           SET      VLOAD                                 
028253,001191: 34,3024           01067                                    XDELVFLG                              
028254,001192: 34,3025           03560                                    VPASS3                                
028255,001193: 34,3026           03530                           STORE    VPASS2                                
028256,001194: 34,3027           27506                           STOVL    VPASS1                                
028257,001195: 34,3030           03552                                    RPASS3                                
028258,001196: 34,3031           03522                           STORE    RPASS2                                
028259,001197: 34,3032           03500                           STORE    RPASS1                                
028260,001198: 34,3033           47256                           UNIT     VXV                                   
028261,001199: 34,3034           03506                                    VPASS1                                
028262,001200: 34,3035           77656                           UNIT                                           
028263,001201: 34,3036           26261                           STOVL    UP1                                   
028264,001202: 34,3037           03536                                    RACT3                                 
028265,001203: 34,3040           37642                           STCALL   RTIG                                  
028266,001204: 34,3041           71052                                    ROTATE                                
028267,001205: 34,3042           02311                           STORE    RACT2                                 
028268,001206: 34,3043           26303                           STOVL    RACT1                                 
028269,001207: 34,3044           03544                                    VACT3                                 
028270,001208: 34,3045           37650                           STCALL   VTIG                                  
028271,001209: 34,3046           71052                                    ROTATE                                
028272,001210: 34,3047           03514                           STORE    VACT2                                 
028273,001211: 34,3050           37472                           STCALL   VACT1                                 
028274,001212: 34,3051           03470                                    SUBEXIT                               
028275,001213: 

Page 643

028277,001215:                                                                                                  #  ..... ROTATE .....
028278,001216: 
028279,001217: 34,3052           41406        ROTATE             PUSH     PUSH                                  
028280,001218: 34,3053           74241                           DOT      VXSC                                  
028281,001219: 34,3054           02261                                    UP1                                   
028282,001220: 34,3055           02261                                    UP1                                   
028283,001221: 34,3056           51352                           VSL2     BVSU                                  
028284,001222: 34,3057           63256                           UNIT     PDVL                                  
028285,001223: 34,3060           74246                           ABVAL    VXSC                                  
028286,001224: 34,3061           43572                           VSL1     RVQ                                   
028287,001225: 

Page 644

028289,001227:                                                                                                  #  ..... INTINTNA .....
028290,001228: 
028291,001229: 34,3062           65325        INTINT2C           PDDL     PDDL                                  
028292,001230: 34,3063           03634                                    TCSI                                  
028293,001231: 34,3064           01777                                    TCDH                                  
028294,001232: 34,3065           41525                           PDDL     PUSH                                  
028295,001233: 34,3066           33732                                    TWOPI                                 
028296,001234: 34,3067           77650                           GOTO                                           
028297,001235: 34,3070           73466                                    INTINT                                
028298,001236: 34,3071           65325        INTINT3P           PDDL     PDDL                                  
028299,001237: 34,3072           01777                                    TCDH                                  
028300,001238: 34,3073           03636                                    TTPI                                  
028301,001239: 34,3074           41525                           PDDL     PUSH                                  
028302,001240: 34,3075           32420                                    P30ZERO                               
028303,001241: 34,3076           77650                           GOTO                                           
028304,001242: 34,3077           73466                                    INTINT                                
028305,001243: 

Page 645

028307,001245:                                                                                                  #  ..... S32/33.1 .....
028308,001246: 
028309,001247:                                                                                                  #  SUBROUTINES USED
028310,001248:                                                                                                  #        S32/33.X
028311,001249: 
028312,001250: 34,3100           76020        S32/33.1           STQ      AXT,1                                 
028313,001251: 34,3101           03470                                    SUBEXIT                               
028314,001252: 34,3102           01521                           VN       0681                                  
028315,001253: 34,3103           77624                           CALL                                           
028316,001254: 34,3104           72370                                    DISDVLVC                              
028317,001255: 34,3105           77624                           CALL                                           
028318,001256: 34,3106           71120                                    S32/33.X                              
028319,001257: 34,3107           61375                           VLOAD    VXM                                   
028320,001258: 34,3110           03434                                    DELVLVC                               
028321,001259: 34,3111           00001                                    0D                                    
028322,001260: 34,3112           77772                           VSL1                                           
028323,001261: 34,3113           03656                           STORE    DELVSIN                               
028324,001262: 34,3114           51406                           PUSH     ABVAL                                 
028325,001263: 34,3115           27664                           STOVL    DELVSAB                               
028326,001264: 34,3116           77650                           GOTO                                           
028327,001265: 34,3117           03470                                    SUBEXIT                               
028328,001266: 

Page 646

028330,001268:                                                                                                  #  ..... S32/33.X .....
028331,001269: 
028332,001270: 34,3120           77201        S32/33.X           SETPD    VLOAD                                 
028333,001271: 34,3121           00007                                    6D                                    
028334,001272: 34,3122           02261                                    UP1                                   
028335,001273: 34,3123           63276                           VCOMP    PDVL                                  
028336,001274: 34,3124           02303                                    RACT1                                 
028337,001275: 34,3125           57456                           UNIT     VCOMP                                 
028338,001276: 34,3126           47206                           PUSH     VXV                                   
028339,001277: 34,3127           02261                                    UP1                                   
028340,001278: 34,3130           77772                           VSL1                                           
028341,001279: 34,3131           00001                           STORE    0D                                    
028342,001280: 34,3132           77616                           RVQ                                            
028343,001281: 

Page 647

028345,001283:                                                                                                  #  ..... CDHMVR .....
028346,001284: 
028347,001285:                                                                                                  #  SUBROUTINES USED
028348,001286:                                                                                                  #        VECSHIFT
028349,001287:                                                                                                  #        TIMETHET
028350,001288:                                                                                                  #        SHIFTR1
028351,001289: 
028352,001290: 34,3133           77220        CDHMVR             STQ      VLOAD                                 
028353,001291: 34,3134           03470                                    SUBEXIT                               
028354,001292: 34,3135           02311                                    RACT2                                 
028355,001293: 34,3136           53406                           PUSH     UNIT                                  
028356,001294: 34,3137           27544                           STOVL    UNVEC                                 #  UR SUB A
028357,001295: 34,3140           03522                                    RPASS2                                
028358,001296: 34,3141           50256                           UNIT     DOT                                   
028359,001297: 34,3142           03544                                    UNVEC                                 
028360,001298: 34,3143           72406                           PUSH     SL1                                   
028361,001299: 34,3144           16732                           STODL    CSTH                                  
028362,001300: 34,3145           65316                           DSQ      PDDL                                  
028363,001301: 34,3146           06512                                    DP1/4TH                               
028364,001302: 34,3147           45302                           SR2      DSU                                   
028365,001303: 34,3150           72566                           SQRT     SL1                                   
028366,001304: 34,3151           57515                           PDVL     VCOMP                                 
028367,001305: 34,3152           77635                           VXV                                            
028368,001306: 34,3153           03522                                    RPASS2                                
028369,001307: 34,3154           65241                           DOT      PDDL                                  
028370,001308: 34,3155           02261                                    UP1                                   
028371,001309: 34,3156           45565                           SIGN     STADR                                 
028372,001310: 34,3157           51047                           STOVL    SNTH                                  
028373,001311: 34,3160           03522                                    RPASS2                                
028374,001312: 34,3161           45115                           PDVL     CALL                                  
028375,001313: 34,3162           03530                                    VPASS2                                
028376,001314: 34,3163           46416                                    VECSHIFT                              
028377,001315: 34,3164           26744                           STOVL    VVEC                                  
028378,001316: 34,3165           77614                           CLEAR                                          
028379,001317: 34,3166           03666                                    RVSW                                  
028380,001318: 34,3167           36655                           STCALL   RVEC                                  
028381,001319: 34,3170           24732                                    TIMETHET                              
028382,001320: 34,3171           53754                           LXA,2    VSL*                                  
028383,001321: 34,3172           02777                                    RTX2                                  
028384,001322: 34,3173           57576                                    0,2                                   
028385,001323: 34,3174           00023                           STORE    18D                                   
028386,001324: 34,3175           76441                           DOT      SL1R                                  
028387,001325: 34,3176           03544                                    UNVEC                                 
028388,001326: 34,3177           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
028389,001327: 34,3200           63257                           SL*      PDVL                                  
028390,001328: 34,3201           57576                                    0,2                                   
028391,001329: 34,3202           02311                                    RACT2                                 
028392,001330: 34,3203           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
028393,001331: 34,3204           77625                           DSU                                            

Page 648

028395,001333: 34,3205           00003                                    02D                                   
028396,001334: 34,3206           17600                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
028397,001335: 34,3207           02742                                    R1A                                   
028398,001336: 34,3210           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
028399,001337: 34,3211           00047                                    X1                                    
028400,001338: 34,3212           00041                                    R1                                    
028401,001339: 34,3213           77624                           CALL                                           
028402,001340: 34,3214           46426                                    SHIFTR1                               
028403,001341: 34,3215           56362                           SR1R     DDV                                   
028404,001342: 34,3216           41457                           SL*      PUSH                                  
028405,001343: 34,3217           20174                                    0          -5,1                       
028406,001344: 34,3220           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
028407,001345: 34,3221           03600                                    DIFFALT                               
028408,001346: 34,3222           56302                           SR2      DDV                                   #  A SUB P                       B+31
028409,001347: 34,3223           00005                                    04D                                   #                                B+2
028410,001348: 34,3224           75406                           PUSH     SQRT                                  #  A SUB P/A SUB A                       06D
028411,001349: 34,3225           41275                           DMPR     DMP                                   
028412,001350: 34,3226           00007                                    06D                                   
028413,001351: 34,3227           00001                                    00D                                   
028414,001352: 34,3230           65272                           SL3R     PDDL                                  #  V SUB AV METERS/CS            B+7     08D
028415,001353: 34,3231           00003                                    02D                                   #  R SUB A MAGNITUDE             B+29
028416,001354: 34,3232           65301                           NORM     PDDL                                  
028417,001355: 34,3233           00047                                    X1                                    
028418,001356: 34,3234           02321                                    RTMU                                  
028419,001357: 34,3235           56342                           SR1      DDV                                   #  2MU                           B+38
028420,001358: 34,3236           65257                           SL*      PDDL                                  #  2 MU/R SUBAA                  B+14    10D
028421,001359: 34,3237           20174                                    0          -5,1                       
028422,001360: 34,3240           00005                                    04D                                   #  ASUBA                         B+29
028423,001361: 34,3241           65301                           NORM     PDDL                                  
028424,001362: 34,3242           00050                                    X2                                    
028425,001363: 34,3243           02321                                    RTMU                                  
028426,001364: 34,3244           56342                           SR1      DDV                                   
028427,001365: 34,3245           44257                           SL*      BDSU                                  
028428,001366: 34,3246           57604                                    0          -6,2                       #  2U/R - U/A            B+14 (METERS/CS)SQ
028429,001367: 34,3247           63525                           PDDL     DSQ                                   #                                        10D
028430,001368: 34,3250           00011                                    08D                                   
028431,001369: 34,3251           75421                           BDSU     SQRT                                  
028432,001370: 34,3252           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)  10D
028433,001371: 34,3253           02261                                    UP1                                   
028434,001372: 34,3254           03544                                    UNVEC                                 
028435,001373: 34,3255           74256                           UNIT     VXSC                                  
028436,001374: 34,3256           00013                                    10D                                   
028437,001375: 34,3257           74315                           PDVL     VXSC                                  
028438,001376: 34,3260           03544                                    UNVEC                                 
028439,001377: 34,3261           00011                                    08D                                   
028440,001378: 34,3262           76455                           VAD      VSL1                                  
028441,001379: 34,3263           77626                           STADR                                          
028442,001380: 34,3264           74233                           STORE    VACT3                                 
028443,001381: 34,3265           77651                           VSU                                            
028444,001382: 34,3266           03514                                    VACT2                                 

Page 649

028446,001384: 34,3267           36275                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
028447,001385: 34,3270           03470                                    SUBEXIT                               
028448,001386: 

Page 650

028450,001388:                                                                                                  #  ..... COMPTGO .....
028451,001389: 
028452,001390:                                                                                                  #  SUBROUTINES USED
028453,001391:                                                                                                  #        CLOKTASK
028454,001392:                                                                                                  #        2PHSCHNG
028455,001393: 
028456,001394: 35,2432                                           BANK     35                                    
028457,001395: 35,2000                                           SETLOC   CSI/CDH                               
028458,001396: 35,2000                                           BANK                                           
028459,001397: 
028460,001398: 35,2432  E7,1465                                  EBANK=   RTRN                                  
028461,001399: 
028462,001400: 35,2432                                           COUNT*   $$/P3575                              
028463,001401: 
028464,001402: 35,2432           00006        COMPTGO            EXTEND                                         
028465,001403: 35,2433           23465                           QXCH     RTRN                                  
028466,001404: 35,2434           34755                           CAF      ZERO                                  
028467,001405: 35,2435           55163                           TS       DISPDEX                               
028468,001406: 35,2436           34752                           CAF      BIT2                                  
028469,001407: 35,2437           00004                           INHINT                                         
028470,001408: 35,2440           05203                           TC       WAITLIST                              
028471,001409: 35,2441  E7,1455                                  EBANK=   WHICH                                 
028472,001410: 35,2441           02717 74067                     2CADR    CLOKTASK                              
028473,001411: 
028474,001412: 35,2443           05327                           TC       2PHSCHNG                              
028475,001413: 35,2444           40036                           OCT      40036                                 
028476,001414: 35,2445           05024                           OCT      05024                                 
028477,001415: 35,2446           13000                           OCT      13000                                 
028478,001416: 35,2447           01465                           TC       RTRN                                  
028479,001417: 

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