Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

028977,000002:                                                                                                  ## Copyright:   Public domain.
028978,000003:                                                                                                  ## Filename:    P32-P33_P72-P73.agc
028979,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
028980,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
028981,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
028982,000007:                                                                                                  ## Assembler:   yaYUL
028983,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028984,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
028985,000010:                                                                                                  ## Pages:       649-683
028986,000011:                                                                                                  ## Mod history: 2009-05-09 RSB  Adapted from the Luminary131/ file
028987,000012:                                                                                                  ##                              P32-P35_P72-P75.agc and Comanche055 page 
028988,000013:                                                                                                  ##                              images.
028989,000014:                                                                                                  ##              2009-05-20 RSB  Corrected CSI/COM3 -> CSI/CDH3,
028990,000015:                                                                                                  ##                              CSI/CDHI -> CSI/CDH1, CDHTAB -> CDHTAG,
028991,000016:                                                                                                  ##                              changed a SETLOC from CSI/CDH to CSI/CDH1,
028992,000017:                                                                                                  ##                              a SETLOC CSI/CDH1 to CSIPROG.
028993,000018:                                                                                                  ##              2009-05-21 RSB  Changed a P32/P72D to P32/P72E in 
028994,000019:                                                                                                  ##                              P32/P72D.  DP1/4TH changed to DP1/4 in 
028995,000020:                                                                                                  ##                              CDHMVR.
028996,000021:                                                                                                  ##              2016-12-10 RSB  All of the GOTOPOOH's should have been
028997,000022:                                                                                                  ##                              GOTOPOOH, and I've changed them back.
028998,000023:                                                                                                  ##              2016-12-11 RSB  Proofed comments with octopus/ProoferComments
028999,000024:                                                                                                  ##                              and fixed the errors found.
029000,000025:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
029001,000026:                                                                                                  ##              2017-02-07 RSB  Comment-text corrections identified while 
029002,000027:                                                                                                  ##                              proofing Artemis 72.
029003,000028:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116.
029004,000029:                                                                                                  ##
029005,000030:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
029006,000031:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
029007,000032:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
029008,000033:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
029009,000034:                                                                                                  ## consequent reduction in image quality as well) are available online at
029010,000035:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
029011,000036:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
029012,000037:                                                                                                  ## (much) higher-quality images which Paul actually created.
029013,000038:                                                                                                  ##
029014,000039:                                                                                                  ## Notations on the hardcopy document read, in part:
029015,000040:                                                                                                  ##
029016,000041:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
029017,000042:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
029018,000043:                                                                                                  ##
029019,000044:                                                                                                  ##      This AGC program shall also be referred to as
029020,000045:                                                                                                  ##                      Colossus 2A
029021,000046: 

Page 649

029023,000048:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
029024,000049: 
029025,000050:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
029026,000051:                                                                                                  #  MOD BY WHITE.P        DATE 1 JUNE 67
029027,000052: 
029028,000053:                                                                                                  #  PURPOSE
029029,000054:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
029030,000055:                                                                                                  #                CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
029031,000056:                                                                                                  #                INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
029032,000057:                                                                                                  #                (CDH) MANEUVER.
029033,000058:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029034,000059:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029035,000060:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029036,000061:                                                                                                  #                ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
029037,000062:                                                                                                  #                APPROVAL BY THE ASTRONAUT/GROUND.
029038,000063:                                                                                                  #        (4)     TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
029039,000064:                                                                                                  #                THRUSTING PROGRAM.
029040,000065: 
029041,000066:                                                                                                  #  ASSUMPTIONS
029042,000067:                                                                                                  #        (1)     AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
029043,000068:                                                                                                  #                AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
029044,000069:                                                                                                  #                FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
029045,000070:                                                                                                  #                POSITION.
029046,000071:                                                                                                  #        (2)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
029047,000072:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029048,000073:                                                                                                  #                COMPLETION OF THE PROGRAM.
029049,000074:                                                                                                  #        (3)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
029050,000075:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029051,000076:                                                                                                  #                COMPLETION OF THE PROGRAM.
029052,000077:                                                                                                  #        (4)     CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
029053,000078:                                                                                                  #                ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
029054,000079:                                                                                                  #        (5)     CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
029055,000080:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
029056,000081:                                                                                                  #                IGNITION.
029057,000082:                                                                                                  #        (6)     THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
029058,000083:                                                                                                  #                MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
029059,000084:                                                                                                  #                ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
029060,000085:                                                                                                  #        (7)     THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
029061,000086:                                                                                                  #                PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW

Page 650

029063,000088:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
029064,000089:                                                                                                  #                OUT-OF-PLANE CSI MANEUVER.
029065,000090:                                                                                                  #        (8)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029066,000091:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
029067,000092:                                                                                                  #        (9)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029068,000093:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029069,000094:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029070,000095:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029071,000096:                                                                                                  #        (10)    THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029072,000097:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029073,000098:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029074,000099:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029075,000100:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029076,000101:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029077,000102:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029078,000103:                                                                                                  #                THRUSTING MANEUVER.
029079,000104:                                                                                                  #        (11)    THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029080,000105:                                                                                                  #        (12)    THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029081,000106: 
029082,000107:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029083,000108:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029084,000109:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029085,000110:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029086,000111: 
029087,000112:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029088,000113:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029089,000114:                                                                                                  #                        CYCLE.
029090,000115: 
029091,000116:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029092,000117:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029093,000118:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029094,000119:                                                                                                  #                        PROGRAM.
029095,000120: 
029096,000121:                                                                                                  #        (13)    IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029097,000122:                                                                                                  #                A THRUSTING MANEUVER.
029098,000123: 
029099,000124:                                                                                                  #        (14)    THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029100,000125: 
029101,000126:                                                                                                  #                        P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
029102,000127: 
029103,000128:                                                                                                  #                        P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
029104,000129: 
029105,000130:                                                                                                  #  INPUT
029106,000131:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER

Page 651

029108,000133:                                                                                                  #        (2)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029109,000134:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029110,000135:                                                                                                  #                                MANEUVER POINT
029111,000136:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
029112,000137:                                                                                                  #        (4)     TTPI            TIME OF THE TPI MANEUVER
029113,000138: 
029114,000139:                                                                                                  #  OUTPUT
029115,000140:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
029116,000141:                                                                                                  #        (2)     TTOGO           TIME TO GO
029117,000142:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
029118,000143:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
029119,000144:                                                                                                  #        (5)     T1TOT2          DELTA TIME FROM CSI TO CDH
029120,000145:                                                                                                  #        (6)     T2TOT3          DELTA TIME FROM CDH TO TPI
029121,000146:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
029122,000147:                                                                                                  #        (8)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029123,000148: 
029124,000149:                                                                                                  #  DOWNLINK
029125,000150:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
029126,000151:                                                                                                  #        (2)     TCDH            TIME OF THE CDH MANEUVER
029127,000152:                                                                                                  #        (3)     TTPI            TIME OF THE TPI MANEUVER
029128,000153:                                                                                                  #        (4)     TIG             TIME OF THE CSI MANEUVER
029129,000154:                                                                                                  #        (5)     DELVEET1        DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029130,000155:                                                                                                  #        (6)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029131,000156:                                                                                                  #        (7)     DIFFALT         DELTA ALTITUDE AT CDH
029132,000157:                                                                                                  #        (8)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029133,000158:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029134,000159:                                                                                                  #                                MANEUVER POINT
029135,000160:                                                                                                  #        (9)     ELEV            DESIRED LOS ANGLE AT TPI
029136,000161: 
029137,000162:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029138,000163:                                                                                                  #        (1)     TIG             TIME OF THE CSI MANEUVER
029139,000164:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
029140,000165:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
029141,000166:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
029142,000167:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
029143,000168:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029144,000169:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CSI
029145,000170:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029146,000171: 
029147,000172:                                                                                                  #  SUBROUTINES USED
029148,000173:                                                                                                  #        AVFLAGA
029149,000174:                                                                                                  #        AVFLAGP
029150,000175:                                                                                                  #        P20FLGON
029151,000176:                                                                                                  #        VARALARM
029152,000177:                                                                                                  #        BANKCALL
029153,000178:                                                                                                  #        GOFLASH
029154,000179:                                                                                                  #        GOTOPOOH

Page 652

029156,000181:                                                                                                  #        VNPOOH
029157,000182:                                                                                                  #        GOFLASHR
029158,000183:                                                                                                  #        BLANKET
029159,000184:                                                                                                  #        ENDOFJOB
029160,000185:                                                                                                  #        SELECTMU
029161,000186:                                                                                                  #        ADVANCE
029162,000187:                                                                                                  #        INTINT
029163,000188:                                                                                                  #        PASSIVE
029164,000189:                                                                                                  #        CSI/A
029165,000190:                                                                                                  #        S32/33.1
029166,000191:                                                                                                  #        DISDVLVC
029167,000192:                                                                                                  #        VN1645
029168,000193: 
029169,000194: 35,3445                                           BANK     35                                    
029170,000195: 04,2000                                           SETLOC   CSI/CDH1                              
029171,000196: 04,2000                                           BANK                                           
029172,000197: 04,3303  E4,1770                                  EBANK=   SUBEXIT                               
029173,000198: 04,3303                                           COUNT    35/P3272                              
029174,000199: 04,3303           04627        P32                TC       AVFLAGA                               
029175,000200: 04,3304           03306                           TC       P32STRT                               
029176,000201: 04,3305           04642        P72                TC       AVFLAGP                               
029177,000202: 04,3306           06006        P32STRT            TC       INTPRET                               
029178,000203: 04,3307           77745                           DLOAD                                          
029179,000204: 04,3310           11566                                    ZEROVEC                               
029180,000205: 04,3311           03754                           STORE    CENTANG                               
029181,000206: 04,3312           77776                           EXIT                                           
029182,000207: 04,3313           03331                           TC       P32/P72A                              
029183,000208: 04,3314           77734        ALMXITA            SXA,2                                          
029184,000209: 04,3315           03664                                    CSIALRM                               
029185,000210: 04,3316           77740        ALMXIT             LXC,1                                          
029186,000211: 04,3317           03664                                    CSIALRM                               
029187,000212: 04,3320           77533                           SLOAD*   EXIT                                  
029188,000213: 04,3321           15653                                    ALARM/TB   -1,1                       
029189,000214: 04,3322           30154                           CA       MPAC                                  
029190,000215: 04,3323           05764                           TC       VARALARM                              
029191,000216: 04,3324           35050                           CAF      V05N09                                
029192,000217: 04,3325           04662                           TC       BANKCALL                              
029193,000218: 04,3326           20720                           CADR     GOFLASH                               
029194,000219: 04,3327           04106                           TC       GOTOPOOH                              
029195,000220: 04,3330           03324                           TC       -4                                    
029196,000221: 04,3331           04647        P32/P72A           TC       P20FLGON                              
029197,000222: 04,3332           06006                           TC       INTPRET                               
029198,000223: 04,3333           77745                           DLOAD                                          
029199,000224: 04,3334           11566                                    ZEROVEC                               
029200,000225: 04,3335           03766                           STORE    NN                                    
029201,000226: 04,3336           77776                           EXIT                                           
029202,000227: 04,3337           34656                           CAF      V06N11                                #  TCSI
029203,000228: 04,3340           04575                           TC       VNPOOH                                
029204,000229: 04,3341           34615                           CAF      V06N55                                #  NN. ELEV(RGLOS)

Page 653

029206,000231: 04,3342           04662                           TC       BANKCALL                              
029207,000232: 04,3343           20720                           CADR     GOFLASH                               
029208,000233: 04,3344           04106                           TC       GOTOPOOH                              
029209,000234: 04,3345           03347                           TC       +2                                    
029210,000235: 04,3346           03341                           TC       -5                                    
029211,000236: 04,3347           34614                           CAF      V06N37                                #  TTPI
029212,000237: 04,3350           04575                           TC       VNPOOH                                
029213,000238: 04,3351           06006                           TC       INTPRET                               
029214,000239: 04,3352           77745                           DLOAD                                          
029215,000240: 04,3353           02637                                    TCSI                                  
029216,000241: 04,3354           37413                           STCALL   TIG                                   
029217,000242: 04,3355           10712                                    SELECTMU                              
029218,000243: 04,3356           77624        P32/P72B           CALL                                           
029219,000244: 04,3357           76645                                    ADVANCE                               
029220,000245: 04,3360           77201                           SETPD    VLOAD                                 
029221,000246: 04,3361           00001                                    0D                                    
029222,000247: 04,3362           03512                                    VPASS1                                
029223,000248: 04,3363           65315                           PDVL     PDDL                                  
029224,000249: 04,3364           03756                                    RPASS1                                
029225,000250: 04,3365           02637                                    TCSI                                  
029226,000251: 04,3366           65325                           PDDL     PDDL                                  
029227,000252: 04,3367           03663                                    TTPI                                  
029228,000253: 04,3370           11630                                    2PISC                                 
029229,000254: 04,3371           41512                           SL2      PUSH                                  
029230,000255: 04,3372           77624                           CALL                                           
029231,000256: 04,3373           72705                                    INTINT                                
029232,000257: 04,3374           77624                           CALL                                           
029233,000258: 04,3375           45247                                    PASSIVE                               
029234,000259: 04,3376           77624                           CALL                                           
029235,000260: 04,3377           15704                                    CSI/A                                 
029236,000261: 04,3400           43014        P32/P72C           BON      SET                                   
029237,000262: 04,3401           01311                                    FINALFLG                              
029238,000263: 04,3402           11404                                    P32/P72D                              
029239,000264: 04,3403           00470                                    UPDATFLG                              
029240,000265: 04,3404           52145        P32/P72D           DLOAD    GOTO                                  
029241,000266: 04,3405           02547                                    T1TOT2                                
029242,000267: 04,3406           30002                                    P32/P72E                              
029243,000268: 14,2000                                           SETLOC   CSI/CDH3                              
029244,000269: 14,2000                                           BANK                                           
029245,000270: 14,2002           02547        P32/P72E           STORE    T1TOT2                                
029246,000271: 14,2003           51025                           DSU      BPL                                   
029247,000272: 14,2004           15652                                    60MIN                                 
029248,000273: 14,2005           30002                                    P32/P72E                              
029249,000274: 14,2006           52145                           DLOAD    GOTO                                  
029250,000275: 14,2007           03656                                    T2TOT3                                
029251,000276: 14,2010           11407                                    P32/P72F                              
029252,000277: 04,2000                                           SETLOC   CSI/CDH1                              
029253,000278: 04,2000                                           BANK                                           
029254,000279: 04,3407           03656        P32/P72F           STORE    T2TOT3                                
029255,000280: 04,3410           51025                           DSU      BPL                                   

Page 654

029257,000282: 04,3411           15652                                    60MIN                                 
029258,000283: 04,3412           11407                                    P32/P72F                              
029259,000284: 04,3413           77776                           EXIT                                           
029260,000285: 04,3414           34660                           CAF      V06N75                                
029261,000286: 04,3415           04575                           TC       VNPOOH                                
029262,000287: 04,3416           06006                           TC       INTPRET                               
029263,000288: 04,3417           45175                           VLOAD    CALL                                  
029264,000289: 04,3420           02445                                    DELVEET1                              
029265,000290: 04,3421           73457                                    S32/33.1                              
029266,000291: 04,3422           26445                           STOVL    DELVEET1                              
029267,000292: 04,3423           02453                                    RACT2                                 
029268,000293: 04,3424           26541                           STOVL    RACT1                                 
029269,000294: 04,3425           03667                                    DELVEET2                              
029270,000295: 04,3426           45170                           AXT,1    CALL                                  
029271,000296: 04,3427           01522                           VN       0682                                  
029272,000297: 04,3430           76625                                    DISDVLVC                              
029273,000298: 04,3431           77745                           DLOAD                                          
029274,000299: 04,3432           03663                                    TTPI                                  
029275,000300: 04,3433           36641                           STCALL   TTPIO                                 
029276,000301: 04,3434           73002                                    VN1645                                
029277,000302: 04,3435           77650                           GOTO                                           
029278,000303: 04,3436           11356                                    P32/P72B                              
029279,000304: 

Page 655

029281,000306:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
029282,000307:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
029283,000308:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
029284,000309: 
029285,000310:                                                                                                  #  PURPOSE
029286,000311: 
029287,000312:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
029288,000313:                                                                                                  #                ALTITUDE MANEUVER (CDH).
029289,000314: 
029290,000315:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029291,000316:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029292,000317: 
029293,000318:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029294,000319:                                                                                                  #                ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
029295,000320:                                                                                                  #                ASTRONAUT/GROUND.
029296,000321: 
029297,000322:                                                                                                  #        (4)     TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
029298,000323:                                                                                                  #                THRUSTING PROGRAM.
029299,000324: 
029300,000325:                                                                                                  #  ASSUMPTIONS
029301,000326: 
029302,000327:                                                                                                  #        (1)     THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
029303,000328:                                                                                                  #                CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
029304,000329:                                                                                                  #                THERFORE -
029305,000330: 
029306,000331:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029307,000332:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029308,000333:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029309,000334:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029310,000335: 
029311,000336:                                                                                                  #                (B)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
029312,000337:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
029313,000338: 
029314,000339:                                                                                                  #                (C)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029315,000340:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
029316,000341: 
029317,000342:                                                                                                  #                (D)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029318,000343:                                                                                                  #                        ORBITS WAS MINMIZED.
029319,000344: 
029320,000345:                                                                                                  #                (E)     CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
029321,000346:                                                                                                  #                        IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
029322,000347:                                                                                                  #                        POSITION AT CSI IGNITION.
029323,000348: 
029324,000349:                                                                                                  #                (F)     THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
029325,000350:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
029326,000351:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
029327,000352: 
029328,000353:                                                                                                  #                (G)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029329,000354:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW

Page 656

029331,000356:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029332,000357:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
029333,000358: 
029334,000359:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029335,000360:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
029336,000361: 
029337,000362:                                                                                                  #        (3)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029338,000363:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
029339,000364:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029340,000365:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029341,000366: 
029342,000367:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029343,000368:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029344,000369:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029345,000370:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029346,000371:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029347,000372:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029348,000373:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029349,000374:                                                                                                  #                THRUSTING MANEUVER.
029350,000375: 
029351,000376:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029352,000377: 
029353,000378:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029354,000379: 
029355,000380:                                                                                                  #                        ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029356,000381:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029357,000382:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029358,000383:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029359,000384: 
029360,000385:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029361,000386:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029362,000387:                                                                                                  #                        CYCLE.
029363,000388: 
029364,000389:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029365,000390:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029366,000391:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029367,000392:                                                                                                  #                        PROGRAM.
029368,000393: 
029369,000394:                                                                                                  #        (7)     IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029370,000395:                                                                                                  #                A THRUSTING MANEUVER.
029371,000396: 
029372,000397:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029373,000398: 
029374,000399:                                                                                                  #                        P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
029375,000400: 
029376,000401:                                                                                                  #                        P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
029377,000402: 
029378,000403:                                                                                                  #  INPUT
029379,000404: 
029380,000405:                                                                                                  #        (1)     TTPI0   TIME OF THE TPI MANEUVER - SAVED FROM P32/P72

Page 657

029382,000407:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
029383,000408:                                                                                                  #        (3)     TCDH    TIME OF THE CDH MANEUVER
029384,000409: 
029385,000410:                                                                                                  #  OUTPUT
029386,000411: 
029387,000412:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
029388,000413:                                                                                                  #        (2)     TTOGO           TIME TO GO
029389,000414:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
029390,000415:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
029391,000416:                                                                                                  #        (5)     T2TOT3          DELTA TIME FROM CDH TO COMPUTED TPI
029392,000417:                                                                                                  #        (6)     NOMTPI          DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
029393,000418:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029394,000419: 
029395,000420:                                                                                                  #  DOWNLINK
029396,000421: 
029397,000422:                                                                                                  #        (1)     TCDH            TIME OF THE CDH MANEUVER
029398,000423:                                                                                                  #        (2)     TTPI            TIME OF THE TPI MANEUVER
029399,000424:                                                                                                  #        (3)     TIG             TIME OF THE CDH MANEUVER
029400,000425:                                                                                                  #        (4)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029401,000426:                                                                                                  #        (5)     DIFFALT         DELTA ALTITUDE AT CDH
029402,000427:                                                                                                  #        (6)     ELEV            DESIRED LOS ANGLE AT TPI
029403,000428: 
029404,000429:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029405,000430: 
029406,000431:                                                                                                  #        (1)     TIG             TIME OF THE CDH MANEUVER
029407,000432:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029408,000433:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
029409,000434:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029410,000435:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
029411,000436:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029412,000437:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CDH
029413,000438:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029414,000439: 
029415,000440:                                                                                                  #  SUBROUTINES USED
029416,000441: 
029417,000442:                                                                                                  #        AVFLAGA
029418,000443:                                                                                                  #        AVFLAGP
029419,000444:                                                                                                  #        P20FLGON
029420,000445:                                                                                                  #        VNPOOH
029421,000446:                                                                                                  #        SELECTMU
029422,000447:                                                                                                  #        ADVANCE
029423,000448:                                                                                                  #        CDHMVR
029424,000449:                                                                                                  #        INTINT3P
029425,000450:                                                                                                  #        ACTIVE
029426,000451:                                                                                                  #        PASSIVE
029427,000452:                                                                                                  #        S33/34.1
029428,000453:                                                                                                  #        ALARM
029429,000454:                                                                                                  #        BANKCALL
029430,000455:                                                                                                  #        GOFLASH
029431,000456:                                                                                                  #        GOTOPOOH
029432,000457:                                                                                                  #        S32/33.1

Page 658

029434,000459:                                                                                                  #        VN1645
029435,000460: 
029436,000461: 04,3437                                           COUNT    35/P3373                              
029437,000462: 
029438,000463: 04,3437           04627        P33                TC       AVFLAGA                               
029439,000464: 04,3440           03442                           TC       P33/P73A                              
029440,000465: 04,3441           04642        P73                TC       AVFLAGP                               
029441,000466: 04,3442           04647        P33/P73A           TC       P20FLGON                              
029442,000467: 04,3443           34657                           CAF      V06N13                                #  TCDH
029443,000468: 04,3444           04575                           TC       VNPOOH                                
029444,000469: 04,3445           06006                           TC       INTPRET                               
029445,000470: 04,3446           77745                           DLOAD                                          
029446,000471: 04,3447           02641                                    TTPIO                                 
029447,000472: 04,3450           17663                           STODL    TTPI                                  
029448,000473: 04,3451           02635                                    TCDH                                  
029449,000474: 04,3452           37413                           STCALL   TIG                                   
029450,000475: 04,3453           10712                                    SELECTMU                              
029451,000476: 04,3454           77624        P33/P73B           CALL                                           
029452,000477: 04,3455           76645                                    ADVANCE                               
029453,000478: 04,3456           77624                           CALL                                           
029454,000479: 04,3457           13230                                    CDHMVR                                
029455,000480: 04,3460           77201                           SETPD    VLOAD                                 
029456,000481: 04,3461           00001                                    0D                                    
029457,000482: 04,3462           03546                                    VACT3                                 
029458,000483: 04,3463           45115                           PDVL     CALL                                  
029459,000484: 04,3464           02453                                    RACT2                                 
029460,000485: 04,3465           63671                                    INTINT3P                              
029461,000486: 04,3466           77624                           CALL                                           
029462,000487: 04,3467           45237                                    ACTIVE                                
029463,000488: 04,3470           77201                           SETPD    VLOAD                                 
029464,000489: 04,3471           00001                                    0D                                    
029465,000490: 04,3472           02617                                    VPASS2                                
029466,000491: 04,3473           45115                           PDVL     CALL                                  
029467,000492: 04,3474           02625                                    RPASS2                                
029468,000493: 04,3475           63671                                    INTINT3P                              
029469,000494: 04,3476           77624                           CALL                                           
029470,000495: 04,3477           45247                                    PASSIVE                               
029471,000496: 04,3500           43145                           DLOAD    SET                                   
029472,000497: 04,3501           11566                                    ZEROVEC                               
029473,000498: 04,3502           03461                                    ITSWICH                               
029474,000499: 04,3503           36364                           STCALL   NOMTPI                                
029475,000500: 04,3504           72216                                    S33/34.1                              
029476,000501: 04,3505           77454                           BZE      EXIT                                  
029477,000502: 04,3506           24000                                    P33/P73C                              
029478,000503: 04,3507           05650                           TC       ALARM                                 
029479,000504: 04,3510           00611                           OCT      611                                   
029480,000505: 04,3511           35050                           CAF      V05N09                                
029481,000506: 04,3512           04662                           TC       BANKCALL                              
029482,000507: 04,3513           20720                           CADR     GOFLASH                               
029483,000508: 04,3514           04106                           TC       GOTOPOOH                              

Page 659

029485,000510: 04,3515           03517                           TC       +2                                    
029486,000511: 04,3516           03442                           TC       P33/P73A                              
029487,000512: 04,3517           06006                           TC       INTPRET                               
029488,000513: 04,3520           77745                           DLOAD                                          
029489,000514: 04,3521           11566                                    ZEROVEC                               
029490,000515: 04,3522           36364                           STCALL   NOMTPI                                
029491,000516: 04,3523           24000                                    P33/P73C                              
029492,000517: 12,2000                                           SETLOC   CSI/CDH2                              
029493,000518: 12,2000                                           BANK                                           
029494,000519: 
029495,000520: 12,2000           43014        P33/P73C           BON      SET                                   
029496,000521: 12,2001           01311                                    FINALFLG                              
029497,000522: 12,2002           24004                                    P33/P73D                              
029498,000523: 12,2003           00470                                    UPDATFLG                              
029499,000524: 12,2004           43345        P33/P73D           DLOAD    DAD                                   
029500,000525: 12,2005           02364                                    NOMTPI                                
029501,000526: 12,2006           03663                                    TTPI                                  
029502,000527: 12,2007           03663                           STORE    TTPI                                  
029503,000528: 12,2010           52025                           DSU      GOTO                                  
029504,000529: 12,2011           02635                                    TCDH                                  
029505,000530: 12,2012           11524                                    P33/P73E                              
029506,000531: 04,2000                                           SETLOC   CSI/CDH1                              
029507,000532: 04,2000                                           BANK                                           
029508,000533: 
029509,000534: 04,3524           51025        P33/P73E           DSU      BPL                                   
029510,000535: 04,3525           15652                                    60MIN                                 
029511,000536: 04,3526           11524                                    P33/P73E                              
029512,000537: 04,3527           77615                           DAD                                            
029513,000538: 04,3530           15652                                    60MIN                                 
029514,000539: 04,3531           16547                           STODL    T1TOT2                                
029515,000540: 04,3532           03663                                    TTPI                                  
029516,000541: 04,3533           41425                           DSU      PUSH                                  
029517,000542: 04,3534           02641                                    TTPIO                                 
029518,000543: 04,3535           45246        P33/P73F           ABS      DSU                                   
029519,000544: 04,3536           15652                                    60MIN                                 
029520,000545: 04,3537           43244                           BPL      DAD                                   
029521,000546: 04,3540           11535                                    P33/P73F                              
029522,000547: 04,3541           15652                                    60MIN                                 
029523,000548: 04,3542           45565                           SIGN     STADR                                 
029524,000549: 04,3543           74121                           STORE    T2TOT3                                
029525,000550: 04,3544           77776                           EXIT                                           
029526,000551: 04,3545           34660                           CAF      V06N75                                
029527,000552: 04,3546           04575                           TC       VNPOOH                                
029528,000553: 04,3547           06006                           TC       INTPRET                               
029529,000554: 04,3550           45175                           VLOAD    CALL                                  
029530,000555: 04,3551           03667                                    DELVEET2                              
029531,000556: 04,3552           73457                                    S32/33.1                              
029532,000557: 04,3553           37667                           STCALL   DELVEET2                              
029533,000558: 04,3554           73002                                    VN1645                                
029534,000559: 04,3555           77650                           GOTO                                           

Page 660

029536,000561: 04,3556           11454                                    P33/P73B                              
029537,000562: 

Page 661

029539,000564:                                                                                                  #  ..... AVFLAGA/P .....
029540,000565: 

Page 662

029542,000567:                                                                                                  #  ..... DISDVLVC .....
029543,000568: 
029544,000569:                                                                                                  #  SUBROUTINES USED
029545,000570: 
029546,000571:                                                                                                  #        S32/33.X
029547,000572:                                                                                                  #        VNPOOH
029548,000573: 
029549,000574: 37,2000                                           SETLOC   CDHTAG3                               
029550,000575: 37,2000                                           BANK                                           
029551,000576: 
029552,000577: 37,2625           03405        DISDVLVC           STORE    DELVLVC                               
029553,000578: 37,2626           45020                           STQ      CALL                                  
029554,000579: 37,2627           01340                                    NORMEX                                
029555,000580: 37,2630           26231                                    S32/33.X                              
029556,000581: 37,2631           64375                           VLOAD    MXV                                   
029557,000582: 37,2632           03405                                    DELVLVC                               
029558,000583: 37,2633           00001                                    0D                                    
029559,000584: 37,2634           66172                           VSL1     SXA,1                                 
029560,000585: 37,2635           02365                                    VERBNOUN                              
029561,000586: 37,2636           03405                           STORE    DELVLVC                               
029562,000587: 37,2637           77776                           EXIT                                           
029563,000588: 37,2640           31765                           CA       VERBNOUN                              
029564,000589: 37,2641           04575                           TC       VNPOOH                                
029565,000590: 37,2642           06006                           TC       INTPRET                               
029566,000591: 37,2643           77650                           GOTO                                           
029567,000592: 37,2644           01340                                    NORMEX                                
029568,000593:    4000                                           SETLOC   FFTAG12                               
029569,000594:    4000                                           BANK                                           
029570,000595: 
029571,000596:    4656           01413        V06N11             VN       0611                                  
029572,000597:    4657           01415        V06N13             VN       0613                                  
029573,000598:    4660           01513        V06N75             VN       0675                                  
029574,000599: 
029575,000600:    4661           01462        V06N50             VN       0650                                  
029576,000601: 

Page 663

029578,000603: 
029579,000604:                                                                                                  #  ..... CSI/A .....
029580,000605: 
029581,000606:                                                                                                  #  SUBROUTINES USED
029582,000607: 
029583,000608:                                                                                                  #        VECSHIFT
029584,000609:                                                                                                  #        TIMETHET
029585,000610:                                                                                                  #        PERIAPO
029586,000611:                                                                                                  #        SHIFTR1
029587,000612:                                                                                                  #        INTINT2C
029588,000613:                                                                                                  #        CDHMVR
029589,000614:                                                                                                  #        PERIAPO1
029590,000615:                                                                                                  #        INTINT
029591,000616:                                                                                                  #        ACTIVE
029592,000617: 
029593,000618: 34,3763                                           BANK     34                                    
029594,000619: 06,2000                                           SETLOC   CSIPROG                               
029595,000620: 06,2000                                           BANK                                           
029596,000621: 06,3651  E4,1770                                  EBANK=   SUBEXIT                               
029597,000622: 06,3651                                           COUNT    34/CSI                                
029598,000623: 
029599,000624: 06,3651           00025 37100  60MIN              2DEC     360000     B-28                       
029600,000625: 
029601,000626: 06,3653           00600        ALARM/TB           OCT      00600                                 #  NO 1
029602,000627: 06,3654           00601                           OCT      00601                                 #     2
029603,000628: 06,3655           00602                           OCT      00602                                 #     3
029604,000629: 06,3656           00603                           OCT      00603                                 #     4
029605,000630: 06,3657           00604                           OCT      00604                                 #     5
029606,000631: 06,3660           00605                           OCT      00605                                 #     6
029607,000632: 06,3661           00606                           OCT      00606                                 #     7
029608,000633: 06,3662           00000 00020  LOOPMX             2DEC     16         B-28                       
029609,000634: 
029610,000635: 06,3664           00003 34661  INITST             2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029611,000636: 
029612,000637: 06,3666           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #  MAXIMUM DV1 = 1000 FPS
029613,000638: 
029614,000639: 06,3670           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                 989 FPS
029615,000640: 
029616,000641: 06,3672           10000 00000  1DPB2              2DEC     1.0        B-2                        
029617,000642: 
029618,000643: 06,3674           00000 00001  1DPB28             2DEC     1          B-28                       
029619,000644: 
029620,000645: 06,3676           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #  .1 FPS
029621,000646: 
029622,000647: 
029623,000648: 06,3700           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #  50 FPS
029624,000649: 
029625,000650: 06,3702           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #  200 FPS
029626,000651: 
029627,000652: 35,2000                                           SETLOC   CSI/CDH                               
029628,000653: 35,2000                                           BANK                                           
029629,000654: 35,3445           00004 31566  PMINE              2DEC     157420     B-29                       #  84 NM. - MUST BE 8 WORDS BEFORE PMINM
029630,000655: 

Page 664

029632,000657: 
029633,000658: 35,3447           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS
029634,000659: 
029635,000660: 35,3451           00003 34661  INITST1            2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029636,000661: 
029637,000662: 35,3453           00000 06433  ONETHTH            2DEC     .0001      B-3                        
029638,000663: 
029639,000664: 35,3455           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE.
029640,000665: 
029641,000666: 06,2000                                           SETLOC   CSIPROG                               
029642,000667: 06,2000                                           BANK                                           
029643,000668: 
029644,000669: 06,3704           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
029645,000670: 06,3705           05660                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
029646,000671: 06,3706           05461                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR
029647,000672: 06,3707           43014                           CLEAR    SET                                   
029648,000673: 06,3710           05662                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
029649,000674: 06,3711           05463                                    S32.1F3B                              #  10=2ND CYCLE 11=50 FPS STAGE 2ND CYCLE
029650,000675: 06,3712           77745                           DLOAD                                          
029651,000676: 06,3713           11566                                    ZEROVEC                               
029652,000677: 06,3714           03764                           STORE    LOOPCT                                
029653,000678: 06,3715           03665                           STORE    CSIALRM                               
029654,000679: 06,3716           77201        CSI/B              SETPD    VLOAD                                 
029655,000680: 06,3717           00001                                    0D                                    
029656,000681: 06,3720           02541                                    RACT1                                 
029657,000682: 06,3721           41446                           ABVAL    PUSH                                  #  RA1                                  B29 PL02D
029658,000683: 06,3722           70501                           NORM     SR1                                   
029659,000684: 06,3723           00050                                    X2                                    #                                B29-N2+ B1 PL04D
029660,000685: 06,3724           51515                           PDVL     ABVAL                                 
029661,000686: 06,3725           03554                                    RPASS3                                
029662,000687: 06,3726           55301                           NORM     BDDV                                  #  RA1/RP3                               B1 PL02D
029663,000688: 06,3727           00047                                    X1                                    
029664,000689: 06,3730           53664                           XSU,2    SR*                                   #                                        B2
029665,000690: 06,3731           00046                                    X1                                    
029666,000691: 06,3732           57175                                    1,2                                   
029667,000692: 06,3733           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1              B29+B2=B31 PL00D
029668,000693: 06,3734           15673                                    1DPB2                                 
029669,000694: 06,3735           65301                           NORM     PDDL                                  #                                           PL02D
029670,000695: 06,3736           00047                                    X1                                    
029671,000696: 06,3737           03750                                    RTMU                                  
029672,000697: 06,3740           56342                           SR1      DDV                                   #                               B38-B31= B7 PL00D
029673,000698: 06,3741           75457                           SL*      SQRT                                  #                                        B7
029674,000699: 06,3742           20172                                    0          -7,1                       
029675,000700: 06,3743           53515                           PDVL     UNIT                                  #                                           PL02D
029676,000701: 06,3744           02541                                    RACT1                                 
029677,000702: 06,3745           47315                           PDVL     VXV                                   
029678,000703: 06,3746           02611                                    UP1                                   
029679,000704: 06,3747           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
029680,000705: 06,3750           72441                           DOT      SL1                                   #  VA1 . UH1                             B7
029681,000706: 06,3751           03504                                    VACT1                                 
029682,000707: 06,3752           45421                           BDSU     STADR                                 #                                           PL00D

Page 665

029684,000709: 06,3753           60315                           STODL    DELVCSI                               
029685,000710: 06,3754           15665                                    INITST                                #  10 FPS
029686,000711: 06,3755           03464                           STORE    DELDV                                 
029687,000712: 06,3756           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
029688,000713: 06,3757           03764                                    LOOPCT                                
029689,000714: 06,3760           15675                                    1DPB28                                
029690,000715: 06,3761           03764                           STORE    LOOPCT                                
029691,000716: 06,3762           77025                           DSU      AXT,2                                 
029692,000717: 06,3763           15663                                    LOOPMX                                
029693,000718: 06,3764           00006                                    6                                     
029694,000719: 06,3765           52044                           BPL      GOTO                                  
029695,000720: 06,3766           63642                                    SCNDSOL                               
029696,000721: 06,3767           24013                                    CSI/B2                                
029697,000722: 
029698,000723: 12,2000                                           SETLOC   CSIPROG2                              
029699,000724: 12,2000                                           BANK                                           
029700,000725: 
029701,000726: 12,2013           77601        CSI/B2             SETPD                                          
029702,000727: 12,2014           00001                                    0D                                    
029703,000728: 12,2015           51545                           DLOAD    ABS                                   
029704,000729: 12,2016           03462                                    DELVCSI                               
029705,000730: 12,2017           50025                           DSU      BMN                                   
029706,000731: 12,2020           15667                                    DVMAX1                                
029707,000732: 12,2021           45267                                    CSI/B23                               
029708,000733: 12,2022           43174                           AXT,2    BON                                   
029709,000734: 12,2023           00007                                    7                                     
029710,000735: 12,2024           05700                                    S32.1F1                               
029711,000736: 12,2025           63642                                    SCNDSOL                               
029712,000737: 12,2026           43014                           BOFF     BON                                   
029713,000738: 12,2027           05742                                    S32.1F3A                              
029714,000739: 12,2030           24033                                    CSI/B22                               #  FLAG 3 NEQ 3
029715,000740: 12,2031           05703                                    S32.1F3B                              
029716,000741: 12,2032           63642                                    SCNDSOL                               
029717,000742: 12,2033           71214        CSI/B22            SET      DLOAD                                 
029718,000743: 12,2034           05460                                    S32.1F1                               
029719,000744: 12,2035           15671                                    DVMAX2                                
029720,000745: 12,2036           77765                           SIGN                                           
029721,000746: 12,2037           03462                                    DELVCSI                               
029722,000747: 12,2040           37462                           STCALL   DELVCSI                               
029723,000748: 12,2041           45267                                    CSI/B23                               
029724,000749: 
029725,000750: 22,2000                                           SETLOC   CSIPROG3                              
029726,000751: 22,2000                                           BANK                                           
029727,000752: 
029728,000753: 22,3267           41575        CSI/B23            VLOAD    PUSH                                  
029729,000754: 22,3270           02541                                    RACT1                                 
029730,000755: 22,3271           63256                           UNIT     PDVL                                  
029731,000756: 22,3272           02611                                    UP1                                   
029732,000757: 22,3273           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
029733,000758: 22,3274           76561                           VXSC     VSL1                                  

Page 666

029735,000760: 22,3275           03462                                    DELVCSI                               
029736,000761: 22,3276           02445                           STORE    DELVEET1                              
029737,000762: 22,3277           40055                           VAD      BOV                                   
029738,000763: 22,3300           03504                                    VACT1                                 
029739,000764: 22,3301           45302                                    CSI/B23D                              
029740,000765: 22,3302           37474        CSI/B23D           STCALL   VACT4                                 
029741,000766: 22,3303           45253                                    VECSHIFT                              
029742,000767: 22,3304           26746                           STOVL    VVEC                                  
029743,000768: 22,3305           77614                           SET                                            
029744,000769: 22,3306           03466                                    RVSW                                  
029745,000770: 22,3307           26657                           STOVL    RVEC                                  
029746,000771: 22,3310           05426                                    SN359+                                
029747,000772: 22,3311           36732                           STCALL   SNTH                                  #  ALSO CSTH
029748,000773: 22,3312           24744                                    TIMETHET                              
029749,000774: 22,3313           72142                           SR1      LXA,1                                 
029750,000775: 22,3314           03745                                    RTX1                                  
029751,000776: 22,3315           37472                           STCALL   HAFPA1                                
029752,000777: 22,3316           45163                                    PERIAPO                               
029753,000778: 22,3317           77624                           CALL                                           
029754,000779: 22,3320           45263                                    SHIFTR1                               
029755,000780: 22,3321           17460                           STODL    POSTCSI                               
029756,000781: 22,3322           03754                                    CENTANG                               
029757,000782: 22,3323           52054                           BZE      GOTO                                  
029758,000783: 22,3324           45326                                    +2                                    
029759,000784: 22,3325           47145                                    CIRCL                                 
029760,000785: 22,3326           77745                           DLOAD                                          
029761,000786: 22,3327           02754                                    ECC                                   
029762,000787: 22,3330           50025                           DSU      BMN                                   
029763,000788: 22,3331           33454                                    ONETHTH                               
029764,000789: 22,3332           47145                                    CIRCL                                 
029765,000790: 22,3333           45145                           DLOAD    CALL                                  
029766,000791: 22,3334           00041                                    R1                                    
029767,000792: 22,3335           45263                                    SHIFTR1                               
029768,000793: 22,3336           60201                           SETPD    NORM                                  
029769,000794: 22,3337           00003                                    2D                                    
029770,000795: 22,3340           00047                                    X1                                    
029771,000796: 22,3341           50315                           PDVL     DOT                                   #                                PL04D
029772,000797: 22,3342           02541                                    RACT1                                 
029773,000798: 22,3343           03474                                    VACT4                                 
029774,000799: 22,3344           56246                           ABS      DDV                                   
029775,000800: 22,3345           00003                                    02D                                   #  (/RDOTV/)/R1          B36-B29= B7
029776,000801: 22,3346           45257                           SL*      DSU                                   
029777,000802: 22,3347           20201                                    0,1                                   
029778,000803: 22,3350           33450                                    NICKELDP                              
029779,000804: 22,3351           71240                           BMN      DLOAD                                 
029780,000805: 22,3352           47145                                    CIRCL                                 
029781,000806: 22,3353           02742                                    P                                     
029782,000807: 22,3354           45312                           SL2      DSU                                   
029783,000808: 22,3355           33502                                    1RTEB2                                #  1.B.2
029784,000809: 22,3356           14017                           STODL    14D                                   

Page 667

029786,000811: 22,3357           03752                                    RTSR1/MU                              
029787,000812: 22,3360           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1         B-16-B29 = B-45 PL02D
029788,000813: 22,3361           41325                           PDDL     DMP                                   
029789,000814: 22,3362           02742                                    P                                     
029790,000815: 22,3363           00041                                    R1                                    
029791,000816: 22,3364           77624                           CALL                                           
029792,000817: 22,3365           45263                                    SHIFTR1                               
029793,000818: 22,3366           72412                           SL4      SL1                                   
029794,000819: 22,3367           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1       B14+B-45 = B-31 PL02D
029795,000820: 22,3370           52414                           BOFF     SL3                                   
029796,000821: 22,3371           04343                                    CMOONFLG                              
029797,000822: 22,3372           45373                                    CSI/B3                                
029798,000823: 22,3373           50315        CSI/B3             PDVL     DOT                                   
029799,000824: 22,3374           02541                                    RACT1                                 
029800,000825: 22,3375           03474                                    VACT4                                 
029801,000826: 22,3376           03502                           STORE    RDOTV                                 
029802,000827: 22,3377           77646                           ABS                                            
029803,000828: 22,3400           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                  PL02D
029804,000829: 22,3401           00050                                    X2                                    
029805,000830: 22,3402           53660                           XSU,1    SL*                                   #                        B-31+B36-B3 = B2
029806,000831: 22,3403           00047                                    X2                                    
029807,000832: 22,3404           20204                                    3,1                                   
029808,000833: 22,3405           14015                           STODL    12D                                   
029809,000834: 22,3406           15335                                    ZEROVECS                              
029810,000835: 22,3407           00021                           STORE    16D                                   
029811,000836: 22,3410           53575                           VLOAD    UNIT                                  
029812,000837: 22,3411           00015                                    12D                                   
029813,000838: 22,3412           26732                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
029814,000839: 22,3413           02541                                    RACT1                                 
029815,000840: 22,3414           75315                           PDVL     SIGN                                  
029816,000841: 22,3415           03474                                    VACT4                                 
029817,000842: 22,3416           03502                                    RDOTV                                 
029818,000843: 22,3417           45076                           VCOMP    CALL                                  
029819,000844: 22,3420           45253                                    VECSHIFT                              
029820,000845: 22,3421           26746                           STOVL    VVEC                                  
029821,000846: 22,3422           77614                           SETGO                                          
029822,000847: 22,3423           03426                                    RVSW                                  
029823,000848: 22,3424           47134                                    CSINEXT                               
029824,000849: 
029825,000850: 22,3425           77776 62460  SN359+             2DEC     -.000086601                            
029826,000851: 
029827,000852: 22,3427           17777 37776  CS359+             2DEC     +.499999992                            
029828,000853: 
029829,000854: 23,2000                                           SETLOC   CSIPROG4                              
029830,000855: 23,2000                                           BANK                                           
029831,000856: 
029832,000857: 23,3134           36657        CSINEXT            STCALL   RVEC                                  
029833,000858: 23,3135           24744                                    TIMETHET                              
029834,000859: 23,3136           51125                           PDDL     BPL                                   
029835,000860: 23,3137           03502                                    RDOTV                                 

Page 668

029837,000862: 23,3140           47151                                    NTP/2                                 
029838,000863: 23,3141           45345                           DLOAD    DSU                                   
029839,000864: 23,3142           03472                                    HAFPA1                                
029840,000865: 23,3143           52006                           PUSH     GOTO                                  
029841,000866: 23,3144           47151                                    NTP/2                                 
029842,000867: 23,3145           71201        CIRCL              SETPD    DLOAD                                 
029843,000868: 23,3146           00001                                    00D                                   
029844,000869: 23,3147           15335                                    ZEROVECS                              
029845,000870: 23,3150           77606                           PUSH                                           
029846,000871: 23,3151           41345        NTP/2              DLOAD    DMP                                   
029847,000872: 23,3152           03766                                    NN                                    
029848,000873: 23,3153           03472                                    HAFPA1                                
029849,000874: 23,3154           45261                           SL       DSU                                   
029850,000875: 23,3155           20217                                    14D                                   
029851,000876: 23,3156           77615                           DAD                                            
029852,000877: 23,3157           02637                                    TCSI                                  
029853,000878: 23,3160           02635                           STORE    TCDH                                  
029854,000879: 23,3161           77021                           BDSU     AXT,2                                 
029855,000880: 23,3162           03663                                    TTPI                                  
029856,000881: 23,3163           00005                                    5D                                    
029857,000882: 23,3164           40240                           BMN      SETPD                                 
029858,000883: 23,3165           63642                                    SCNDSOL                               
029859,000884: 23,3166           00001                                    0D                                    
029860,000885: 23,3167           63375                           VLOAD    PDVL                                  
029861,000886: 23,3170           03474                                    VACT4                                 
029862,000887: 23,3171           02541                                    RACT1                                 
029863,000888: 23,3172           77624                           CALL                                           
029864,000889: 23,3173           63662                                    INTINT2C                              
029865,000890: 23,3174           26453                           STOVL    RACT2                                 
029866,000891: 23,3175           00007                                    VATT                                  
029867,000892: 23,3176           26533                           STOVL    VACT2                                 
029868,000893: 23,3177           03512                                    VPASS1                                
029869,000894: 23,3200           63201                           SETPD    PDVL                                  
029870,000895: 23,3201           00001                                    0D                                    
029871,000896: 23,3202           03756                                    RPASS1                                
029872,000897: 23,3203           77650                           GOTO                                           
029873,000898: 23,3204           22256                                    CSINEXT1                              
029874,000899: 
029875,000900: 11,2000                                           SETLOC   CSIPROG5                              
029876,000901: 11,2000                                           BANK                                           
029877,000902: 
029878,000903: 11,2256           77624        CSINEXT1           CALL                                           
029879,000904: 11,2257           63662                                    INTINT2C                              
029880,000905: 11,2260           26625                           STOVL    RPASS2                                
029881,000906: 11,2261           00007                                    VATT                                  
029882,000907: 11,2262           36617                           STCALL   VPASS2                                
029883,000908: 11,2263           13230                                    CDHMVR                                
029884,000909: 11,2264           40375                           VLOAD    SETPD                                 
029885,000910: 11,2265           02453                                    RACT2                                 
029886,000911: 11,2266           00001                                    0D                                    

Page 669

029888,000913: 11,2267           45115                           PDVL     CALL                                  
029889,000914: 11,2270           03546                                    VACT3                                 
029890,000915: 11,2271           45153                                    PERIAPO1                              
029891,000916: 11,2272           77624                           CALL                                           
029892,000917: 11,2273           45263                                    SHIFTR1                               
029893,000918: 11,2274           27472                           STOVL    POSTCDH                               
029894,000919: 11,2275           03546                                    VACT3                                 
029895,000920: 11,2276           63201                           SETPD    PDVL                                  
029896,000921: 11,2277           00001                                    0D                                    
029897,000922: 11,2300           02453                                    RACT2                                 
029898,000923: 11,2301           65325                           PDDL     PDDL                                  
029899,000924: 11,2302           02635                                    TCDH                                  
029900,000925: 11,2303           03663                                    TTPI                                  
029901,000926: 11,2304           62525                           PDDL     SL2                                   
029902,000927: 11,2305           11630                                    2PISC                                 
029903,000928: 11,2306           45006                           PUSH     CALL                                  
029904,000929: 11,2307           72705                                    INTINT                                
029905,000930: 11,2310           77624                           CALL                                           
029906,000931: 11,2311           45237                                    ACTIVE                                
029907,000932: 11,2312           77745                           DLOAD                                          
029908,000933: 11,2313           03744                                    ELEV                                  
029909,000934: 11,2314           73401                           SETPD    SINE                                  
029910,000935: 11,2315           00007                                    6D                                    
029911,000936: 11,2316           53515                           PDVL     UNIT                                  
029912,000937: 11,2317           03540                                    RACT3                                 
029913,000938: 11,2320           00001                           STORE    00D                                   #  URA3 AT 00D
029914,000939: 11,2321           47315                           PDVL     VXV                                   #  PL14D, PL08D
029915,000940: 11,2322           02611                                    UP1                                   
029916,000941: 11,2323           77656                           UNIT                                           
029917,000942: 11,2324           71525                           PDDL     COSINE                                #  UNIT(URA3 X UVA3 X URA3) = UH3        B1 PL14D
029918,000943: 11,2325           03744                                    ELEV                                  
029919,000944: 11,2326           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                         B2 PL08D
029920,000945: 11,2327           43754                           STCALL   18D                                   #                PLUS
029921,000946: 11,2330           16517                                    CSINEXT2                              
029922,000947: 
029923,000948: 07,2000                                           SETLOC   CSIPROG6                              
029924,000949: 07,2000                                           BANK                                           
029925,000950: 
029926,000951: 07,2517           74345        CSINEXT2           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U                    B2 PL00D
029927,000952: 07,2520           76455                           VAD      VSL1                                  
029928,000953: 07,2521           00023                                    18D                                   #                                        B1
029929,000954: 07,2522           50206                           PUSH     DOT                                   #                                           PL06D
029930,000955: 07,2523           03540                                    RACT3                                 #  (U . RA3) = TEMP1         B1 + B29 = B30
029931,000956: 07,2524           41552                           SL1      PUSH                                  #                                       B29 PL08D
029932,000957: 07,2525           72316                           DSQ      TLOAD                                 #  TEMP1**2                             B58
029933,000958: 07,2526           00155                                    MPAC                                  
029934,000959: 07,2527           50315                           PDVL     DOT                                   #                                           PL11D
029935,000960: 07,2530           03540                                    RACT3                                 
029936,000961: 07,2531           03540                                    RACT3                                 
029937,000962: 07,2532           57551                           TLOAD    DCOMP                                 #  RA3 . RA3

Page 670

029939,000964: 07,2533           00155                                    MPAC                                  
029940,000965: 07,2534           50315                           PDVL     DOT                                   #  RP3 . RP3                         B58 PL14D
029941,000966: 07,2535           03554                                    RPASS3                                
029942,000967: 07,2536           03554                                    RPASS3                                #                                        PL11D
029943,000968: 07,2537           76371                           TAD      TAD                                   #  TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2  PL08D
029944,000969: 07,2540           71244                           BPL      DLOAD                                 
029945,000970: 07,2541           16557                                    K10RK2                                
029946,000971: 07,2542           03764                                    LOOPCT                                
029947,000972: 07,2543           77025                           DSU      AXT,2                                 
029948,000973: 07,2544           15675                                    1DPB28                                
029949,000974: 07,2545           00001                                    1D                                    
029950,000975: 07,2546           77654                           BZE                                            
029951,000976: 07,2547           11314                                    ALMXITA                               
029952,000977: 07,2550           70545                           DLOAD    SR1                                   
029953,000978: 07,2551           03464                                    DELDV                                 
029954,000979: 07,2552           03464                           STORE    DELDV                                 
029955,000980: 07,2553           77621                           BDSU                                           
029956,000981: 07,2554           03470                                    DVPREV                                
029957,000982: 07,2555           37462                           STCALL   DELVCSI                               
029958,000983: 07,2556           15756                                    CSI/B1                                
029959,000984: 07,2557           41566        K10RK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                 B29 PL10D
029960,000985: 07,2560           45276                           DCOMP    DSU                                   
029961,000986: 07,2561           00007                                    06D                                   #  -TEMP1-TEMP3 = K2 AT 10D
029962,000987: 07,2562           14013                           STODL    10D                                   #                                        PL08D
029963,000988: 07,2563           45425                           DSU      STADR                                 #                                        PL06D
029964,000989: 07,2564           77762                           STORE    12D                                   #  -TEMP1+TEMP3 = K1 AT 12D
029965,000990: 07,2565           77646                           ABS                                            
029966,000991: 07,2566           14017                           STODL    14D                                   
029967,000992: 07,2567           00013                                    10D                                   
029968,000993: 07,2570           45246                           ABS      DSU                                   
029969,000994: 07,2571           00017                                    14D                                   
029970,000995: 07,2572           71240                           BMN      DLOAD                                 
029971,000996: 07,2573           50002                                    K2.                                   
029972,000997: 07,2574           00015                                    12D                                   
029973,000998: 07,2575           34013                           STCALL   10D                                   #  K EQUALS K1
029974,000999: 07,2576           50002                                    K2.                                   
029975,001000: 
029976,001001: 24,2000                                           SETLOC   CSIPROG7                              
029977,001002: 24,2000                                           BANK                                           
029978,001003: 
029979,001004: 24,2002           77745        K2.                DLOAD                                          
029980,001005: 24,2003           00013                                    10D                                   
029981,001006: 24,2004           76561                           VXSC     VSL1                                  
029982,001007: 24,2005           53455                           VAD      UNIT                                  #  V = RA3 + KU UNIT                 B1
029983,001008: 24,2006           03540                                    RACT3                                 
029984,001009: 24,2007           53515                           PDVL     UNIT                                  
029985,001010: 24,2010           03554                                    RPASS3                                #                                        PL06D
029986,001011: 24,2011           53515                           PDVL     UNIT                                  
029987,001012: 24,2012           03562                                    VPASS3                                #                                        PL12D
029988,001013: 24,2013           63235                           VXV      PDVL                                  #  UVP3 X URP3                           PL18D

Page 671

029990,001015: 24,2014           00007                                    06D                                   
029991,001016: 24,2015           00007                                    06D                                   
029992,001017: 24,2016           50235                           VXV      DOT                                   
029993,001018: 24,2017           00001                                    00D                                   
029994,001019: 24,2020           77626                           STADR                                          #                                        PL12D
029995,001020: 24,2021           53762                           STOVL    12D                                   #  (URP3 X V).(UVP3 X URP3)=TEMP         PL06D
029996,001021: 24,2022           72441                           DOT      SL1                                   #                                        PL00D
029997,001022: 24,2023           75326                           ARCCOS   SIGN                                  
029998,001023: 24,2024           00015                                    12D                                   #                                     B0
029999,001024: 24,2025           41542                           SR1      PUSH                                  #  GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3)   PL02D
030000,001025: 24,2026           71214                           BON      DLOAD                                 
030001,001026: 24,2027           05701                                    S32.1F2                               
030002,001027: 24,2030           50065                                    FRSTPAS                               
030003,001028: 24,2031           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
030004,001029: 24,2032           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                      B1 PL04D
030005,001030: 24,2033           03466                                    GAMPREV                               
030006,001031: 24,2034           03462                                    DELVCSI                               
030007,001032: 24,2035           60225                           DSU      NORM                                  #                                     B7
030008,001033: 24,2036           03470                                    DVPREV                                
030009,001034: 24,2037           00047                                    X1                                    
030010,001035: 24,2040           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)      B-6+N1 PL06D
030011,001036: 24,2041           00003                                    02D                                   #        = SLOPE
030012,001037: 24,2042           03462                                    DELVCSI                               
030013,001038: 24,2043           03470                           STORE    DVPREV                                
030014,001039: 24,2044           43014                           BOFF     BOFF                                  
030015,001040: 24,2045           05742                                    S32.1F3A                              
030016,001041: 24,2046           20307                                    THRDCHK                               
030017,001042: 24,2047           05743                                    S32.1F3B                              
030018,001043: 24,2050           20307                                    THRDCHK                               
030019,001044: 24,2051           41345                           DLOAD    DMP                                   
030020,001045: 24,2052           00003                                    02D                                   
030021,001046: 24,2053           03466                                    GAMPREV                               
030022,001047: 24,2054           71244                           BPL      DLOAD                                 
030023,001048: 24,2055           20314                                    FIFTYFPS                              
030024,001049: 24,2056           33452                                    INITST1                               
030025,001050: 24,2057           77765                           SIGN                                           
030026,001051: 24,2060           03464                                    DELDV                                 
030027,001052: 24,2061           03464                           STORE    DELDV                                 
030028,001053: 24,2062           43014                           SET      CLEAR                                 
030029,001054: 24,2063           05462                                    S32.1F3A                              
030030,001055: 24,2064           05663                                    S32.1F3B                              
030031,001056: 24,2065           77745        FRSTPAS            DLOAD                                          
030032,001057: 24,2066           00001                                    00D                                   
030033,001058: 24,2067           17466                           STODL    GAMPREV                               
030034,001059: 24,2070           03462                                    DELVCSI                               
030035,001060: 24,2071           37470                           STCALL   DVPREV                                
030036,001061: 24,2072           20302                                    CSINEXT3                              
030037,001062: 
030038,001063: 10,2000                                           SETLOC   CSIPROG8                              
030039,001064: 10,2000                                           BANK                                           

Page 672

030041,001066: 
030042,001067: 10,2302           43025        CSINEXT3           DSU      CLEAR                                 
030043,001068: 10,2303           03464                                    DELDV                                 
030044,001069: 10,2304           05661                                    S32.1F2                               
030045,001070: 10,2305           37462                           STCALL   DELVCSI                               
030046,001071: 10,2306           15756                                    CSI/B1                                
030047,001072: 10,2307           43014        THRDCHK            BON      BON                                   
030048,001073: 10,2310           05702                                    S32.1F3A                              
030049,001074: 10,2311           20333                                    NEWTN                                 
030050,001075: 10,2312           05703                                    S32.1F3B                              
030051,001076: 10,2313           20333                                    NEWTN                                 
030052,001077: 10,2314           75345        FIFTYFPS           DLOAD    SIGN                                  
030053,001078: 10,2315           15701                                    FIFPSDP                               
030054,001079: 10,2316           00005                                    04D                                   
030055,001080: 10,2317           77765                           SIGN                                           
030056,001081: 10,2320           03466                                    GAMPREV                               
030057,001082: 10,2321           03464                           STORE    DELDV                                 
030058,001083: 10,2322           43276                           DCOMP    DAD                                   
030059,001084: 10,2323           03462                                    DELVCSI                               
030060,001085: 10,2324           17462                           STODL    DELVCSI                               
030061,001086: 10,2325           00001                                    00D                                   
030062,001087: 10,2326           43014                           SET      SET                                   
030063,001088: 10,2327           05463                                    S32.1F3B                              
030064,001089: 10,2330           05462                                    S32.1F3A                              
030065,001090: 10,2331           37466                           STCALL   GAMPREV                               
030066,001091: 10,2332           24013                                    CSI/B2                                
030067,001092: 10,2333           60345        NEWTN              DLOAD    NORM                                  
030068,001093: 10,2334           00005                                    04D                                   
030069,001094: 10,2335           00050                                    X2                                    
030070,001095: 10,2336           54065                           BDDV     XSU,1                                 
030071,001096: 10,2337           00001                                    00D                                   
030072,001097: 10,2340           00047                                    X2                                    
030073,001098: 10,2341           77657                           SR*                                            
030074,001099: 10,2342           20601                                    0,1                                   
030075,001100: 10,2343           17464                           STODL    DELDV                                 
030076,001101: 10,2344           00001                                    00D                                   
030077,001102: 10,2345           03466                           STORE    GAMPREV                               
030078,001103: 10,2346           51545                           DLOAD    ABS                                   
030079,001104: 10,2347           03464                                    DELDV                                 
030080,001105: 10,2350           45206                           PUSH     DSU                                   #                                        PL08D
030081,001106: 10,2351           15677                                    EPSILN1                               
030082,001107: 10,2352           71240                           BMN      DLOAD                                 
030083,001108: 10,2353           20370                                    CSI/SOL                               
030084,001109: 10,2354           50025                           DSU      BMN                                   
030085,001110: 10,2355           15703                                    DELMAX1                               
030086,001111: 10,2356           20363                                    CSISTEP                               
030087,001112: 10,2357           75345                           DLOAD    SIGN                                  
030088,001113: 10,2360           15703                                    DELMAX1                               
030089,001114: 10,2361           03464                                    DELDV                                 
030090,001115: 10,2362           03464                           STORE    DELDV                                 
030091,001116: 10,2363           45345        CSISTEP            DLOAD    DSU                                   

Page 673

030093,001118: 10,2364           03462                                    DELVCSI                               
030094,001119: 10,2365           03464                                    DELDV                                 
030095,001120: 10,2366           37462                           STCALL   DELVCSI                               
030096,001121: 10,2367           15756                                    CSI/B1                                
030097,001122: 10,2370           77145        CSI/SOL            DLOAD    AXT,2                                 
030098,001123: 10,2371           03460                                    POSTCSI                               
030099,001124: 10,2372           00002                                    2                                     
030100,001125: 10,2373           52150                           LXA,1    GOTO                                  
030101,001126: 10,2374           03745                                    RTX1                                  
030102,001127: 10,2375           63610                                    CSINEXT4                              
030103,001128: 
030104,001129: 31,2000                                           SETLOC   CSIPROG9                              
030105,001130: 31,2000                                           BANK                                           
030106,001131: 
030107,001132: 31,3610           50023        CSINEXT4           DSU*     BMN                                   
030108,001133: 31,3611           33444                                    PMINE      -2,1                       
030109,001134: 31,3612           63642                                    SCNDSOL                               
030110,001135: 31,3613           71374                           AXT,2    DLOAD                                 
030111,001136: 31,3614           00003                                    3                                     
030112,001137: 31,3615           03472                                    POSTCDH                               
030113,001138: 31,3616           50023                           DSU*     BMN                                   
030114,001139: 31,3617           33444                                    PMINE      -2,1                       
030115,001140: 31,3620           63642                                    SCNDSOL                               
030116,001141: 31,3621           45345                           DLOAD    DSU                                   
030117,001142: 31,3622           02635                                    TCDH                                  
030118,001143: 31,3623           02637                                    TCSI                                  
030119,001144: 31,3624           02547                           STORE    T1TOT2                                
030120,001145: 31,3625           45374                           AXT,2    DSU                                   
030121,001146: 31,3626           00004                                    4                                     
030122,001147: 31,3627           36146                                    600SEC                                
030123,001148: 31,3630           77040                           BMN      AXT,2                                 
030124,001149: 31,3631           63642                                    SCNDSOL                               
030125,001150: 31,3632           00005                                    5                                     
030126,001151: 31,3633           45345                           DLOAD    DSU                                   
030127,001152: 31,3634           03663                                    TTPI                                  
030128,001153: 31,3635           02635                                    TCDH                                  
030129,001154: 31,3636           03656                           STORE    T2TOT3                                
030130,001155: 31,3637           51025                           DSU      BPL                                   
030131,001156: 31,3640           36146                                    600SEC                                
030132,001157: 31,3641           11400                                    P32/P72C                              
030133,001158: 31,3642           43014        SCNDSOL            BON      BOFF                                  
030134,001159: 31,3643           05702                                    S32.1F3A                              
030135,001160: 31,3644           11316                                    ALMXIT                                
030136,001161: 31,3645           05743                                    S32.1F3B                              
030137,001162: 31,3646           11316                                    ALMXIT                                
030138,001163: 31,3647           71334                           SXA,2    DLOAD                                 
030139,001164: 31,3650           03664                                    CSIALRM                               
030140,001165: 31,3651           15335                                    ZEROVECS                              
030141,001166: 31,3652           43014                           CLEAR    SET                                   
030142,001167: 31,3653           05660                                    S32.1F1                               

Page 674

030144,001169: 31,3654           05461                                    S32.1F2                               
030145,001170: 31,3655           43014                           CLEAR    CLEAR                                 
030146,001171: 31,3656           05662                                    S32.1F3A                              
030147,001172: 31,3657           05663                                    S32.1F3B                              
030148,001173: 31,3660           37764                           STCALL   LOOPCT                                
030149,001174: 31,3661           15716                                    CSI/B                                 
030150,001175: 

Page 675

030152,001177:                                                                                                  #  ..... ADVANCE .....
030153,001178: 
030154,001179:                                                                                                  #  SUBROUTINES USED
030155,001180:                                                                                                  #        PRECSET
030156,001181:                                                                                                  #        ROTATE
030157,001182: 
030158,001183: 37,2000                                           SETLOC   CDHTAG3                               
030159,001184: 37,2000                                           BANK                                           
030160,001185: 
030161,001186: 37,2645           71220        ADVANCE            STQ      DLOAD                                 
030162,001187: 37,2646           02370                                    SUBEXIT                               
030163,001188: 37,2647           03413                                    TIG                                   
030164,001189: 37,2650           34041                           STCALL   TDEC1                                 
030165,001190: 37,2651           45215                                    PRECSET                               
030166,001191: 37,2652           77214                           SET      VLOAD                                 
030167,001192: 37,2653           01067                                    XDELVFLG                              
030168,001193: 37,2654           03562                                    VPASS3                                
030169,001194: 37,2655           02617                           STORE    VPASS2                                
030170,001195: 37,2656           27512                           STOVL    VPASS1                                
030171,001196: 37,2657           03554                                    RPASS3                                
030172,001197: 37,2660           02625                           STORE    RPASS2                                
030173,001198: 37,2661           03756                           STORE    RPASS1                                
030174,001199: 37,2662           47256                           UNIT     VXV                                   
030175,001200: 37,2663           03512                                    VPASS1                                
030176,001201: 37,2664           77656                           UNIT                                           
030177,001202: 37,2665           26611                           STOVL    UP1                                   
030178,001203: 37,2666           03540                                    RACT3                                 
030179,001204: 37,2667           37632                           STCALL   RTIG                                  
030180,001205: 37,2670           13220                                    ROTATE                                
030181,001206: 37,2671           02453                           STORE    RACT2                                 
030182,001207: 37,2672           26541                           STOVL    RACT1                                 
030183,001208: 37,2673           03546                                    VACT3                                 
030184,001209: 37,2674           37640                           STCALL   VTIG                                  
030185,001210: 37,2675           13220                                    ROTATE                                
030186,001211: 37,2676           02533                           STORE    VACT2                                 
030187,001212: 37,2677           37504                           STCALL   VACT1                                 
030188,001213: 37,2700           02370                                    SUBEXIT                               
030189,001214: 

Page 676

030191,001216:                                                                                                  #  ..... ROTATE .....
030192,001217: 
030193,001218: 05,2000                                           SETLOC   CDHTAG                                
030194,001219: 05,2000                                           BANK                                           
030195,001220: 
030196,001221: 05,3220           41406        ROTATE             PUSH     PUSH                                  
030197,001222: 05,3221           74241                           DOT      VXSC                                  
030198,001223: 05,3222           02611                                    UP1                                   
030199,001224: 05,3223           02611                                    UP1                                   
030200,001225: 05,3224           51352                           VSL2     BVSU                                  
030201,001226: 05,3225           63256                           UNIT     PDVL                                  
030202,001227: 05,3226           74246                           ABVAL    VXSC                                  
030203,001228: 05,3227           43572                           VSL1     RVQ                                   
030204,001229: 

Page 677

030206,001231:                                                                                                  #  ..... INTINTNA .....
030207,001232: 
030208,001233: 31,2000                                           SETLOC   CDHTAG2                               
030209,001234: 31,2000                                           BANK                                           
030210,001235: 
030211,001236: 31,3662           65325        INTINT2C           PDDL     PDDL                                  
030212,001237: 31,3663           02637                                    TCSI                                  
030213,001238: 31,3664           02635                                    TCDH                                  
030214,001239: 31,3665           41525                           PDDL     PUSH                                  
030215,001240: 31,3666           33107                                    TWOPI                                 
030216,001241: 31,3667           77650                           GOTO                                           
030217,001242: 31,3670           72705                                    INTINT                                
030218,001243: 31,3671           65325        INTINT3P           PDDL     PDDL                                  
030219,001244: 31,3672           02635                                    TCDH                                  
030220,001245: 31,3673           03663                                    TTPI                                  
030221,001246: 31,3674           41525                           PDDL     PUSH                                  
030222,001247: 31,3675           15335                                    ZEROVECS                              
030223,001248: 31,3676           77650                           GOTO                                           
030224,001249: 31,3677           72705                                    INTINT                                
030225,001250: 

Page 678

030227,001252:                                                                                                  #  ..... S32/33.1 .....
030228,001253: 
030229,001254:                                                                                                  #  SUBROUTINES USED
030230,001255:                                                                                                  #        S32/33.X
030231,001256: 
030232,001257: 35,2000                                           SETLOC   CSI/CDH                               
030233,001258: 35,2000                                           BANK                                           
030234,001259: 
030235,001260: 35,3457           76020        S32/33.1           STQ      AXT,1                                 
030236,001261: 35,3460           02370                                    SUBEXIT                               
030237,001262: 35,3461           01521                           VN       0681                                  
030238,001263: 35,3462           77624                           CALL                                           
030239,001264: 35,3463           76625                                    DISDVLVC                              
030240,001265: 35,3464           77624                           CALL                                           
030241,001266: 35,3465           26231                                    S32/33.X                              
030242,001267: 35,3466           61375                           VLOAD    VXM                                   
030243,001268: 35,3467           03405                                    DELVLVC                               
030244,001269: 35,3470           00001                                    0D                                    
030245,001270: 35,3471           77772                           VSL1                                           
030246,001271: 35,3472           03646                           STORE    DELVSIN                               
030247,001272: 35,3473           51406                           PUSH     ABVAL                                 
030248,001273: 35,3474           27654                           STOVL    DELVSAB                               
030249,001274: 35,3475           77650                           GOTO                                           
030250,001275: 35,3476           02370                                    SUBEXIT                               
030251,001276: 

Page 679

030253,001278:                                                                                                  #  ..... S32/33.X .....
030254,001279: 
030255,001280: 13,2000                                           SETLOC   CDHTAGS                               
030256,001281: 13,2000                                           BANK                                           
030257,001282: 
030258,001283: 13,2231           77201        S32/33.X           SETPD    VLOAD                                 
030259,001284: 13,2232           00007                                    6D                                    
030260,001285: 13,2233           02611                                    UP1                                   
030261,001286: 13,2234           63276                           VCOMP    PDVL                                  
030262,001287: 13,2235           02541                                    RACT1                                 
030263,001288: 13,2236           57456                           UNIT     VCOMP                                 
030264,001289: 13,2237           47206                           PUSH     VXV                                   
030265,001290: 13,2240           02611                                    UP1                                   
030266,001291: 13,2241           77772                           VSL1                                           
030267,001292: 13,2242           00001                           STORE    0D                                    
030268,001293: 13,2243           77616                           RVQ                                            
030269,001294: 

Page 680

030271,001296:                                                                                                  #  ..... CDHMVR .....
030272,001297: 
030273,001298:                                                                                                  #  SUBROUTINES USED
030274,001299:                                                                                                  #        VECSHIFT
030275,001300:                                                                                                  #        TIMETHET
030276,001301:                                                                                                  #        SHIFTR1
030277,001302: 
030278,001303: 05,2000                                           SETLOC   CDHTAG                                
030279,001304: 05,2000                                           BANK                                           
030280,001305: 
030281,001306: 05,3230           77220        CDHMVR             STQ      VLOAD                                 
030282,001307: 05,3231           02370                                    SUBEXIT                               
030283,001308: 05,3232           02453                                    RACT2                                 
030284,001309: 05,3233           53406                           PUSH     UNIT                                  
030285,001310: 05,3234           27546                           STOVL    UNVEC                                 #  UR SUB A
030286,001311: 05,3235           02625                                    RPASS2                                
030287,001312: 05,3236           50256                           UNIT     DOT                                   
030288,001313: 05,3237           03546                                    UNVEC                                 
030289,001314: 05,3240           72406                           PUSH     SL1                                   
030290,001315: 05,3241           16734                           STODL    CSTH                                  
030291,001316: 05,3242           65316                           DSQ      PDDL                                  
030292,001317: 05,3243           23756                                    DP1/4                                 
030293,001318: 05,3244           45302                           SR2      DSU                                   
030294,001319: 05,3245           72566                           SQRT     SL1                                   
030295,001320: 05,3246           57515                           PDVL     VCOMP                                 
030296,001321: 05,3247           77635                           VXV                                            
030297,001322: 05,3250           02625                                    RPASS2                                
030298,001323: 05,3251           65241                           DOT      PDDL                                  
030299,001324: 05,3252           02611                                    UP1                                   
030300,001325: 05,3253           45565                           SIGN     STADR                                 
030301,001326: 05,3254           51045                           STOVL    SNTH                                  
030302,001327: 05,3255           02625                                    RPASS2                                
030303,001328: 05,3256           45115                           PDVL     CALL                                  
030304,001329: 05,3257           02617                                    VPASS2                                
030305,001330: 05,3260           45253                                    VECSHIFT                              
030306,001331: 05,3261           26746                           STOVL    VVEC                                  
030307,001332: 05,3262           77614                           CLEAR                                          
030308,001333: 05,3263           03666                                    RVSW                                  
030309,001334: 05,3264           36657                           STCALL   RVEC                                  
030310,001335: 05,3265           24744                                    TIMETHET                              
030311,001336: 05,3266           53754                           LXA,2    VSL*                                  
030312,001337: 05,3267           03746                                    RTX2                                  
030313,001338: 05,3270           57576                                    0,2                                   
030314,001339: 05,3271           00023                           STORE    18D                                   
030315,001340: 05,3272           76441                           DOT      SL1R                                  
030316,001341: 05,3273           03546                                    UNVEC                                 
030317,001342: 05,3274           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
030318,001343: 05,3275           63257                           SL*      PDVL                                  
030319,001344: 05,3276           57576                                    0,2                                   

Page 681

030321,001346: 05,3277           02453                                    RACT2                                 
030322,001347: 05,3300           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
030323,001348: 05,3301           77625                           DSU                                            
030324,001349: 05,3302           00003                                    02D                                   
030325,001350: 05,3303           16633                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
030326,001351: 05,3304           02744                                    R1A                                   
030327,001352: 05,3305           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
030328,001353: 05,3306           00047                                    X1                                    
030329,001354: 05,3307           00041                                    R1                                    
030330,001355: 05,3310           77624                           CALL                                           
030331,001356: 05,3311           45263                                    SHIFTR1                               
030332,001357: 05,3312           56362                           SR1R     DDV                                   
030333,001358: 05,3313           41457                           SL*      PUSH                                  
030334,001359: 05,3314           20174                                    0          -5,1                       
030335,001360: 05,3315           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
030336,001361: 05,3316           02633                                    DIFFALT                               
030337,001362: 05,3317           56302                           SR2      DDV                                   #  A SUB P                       B+31
030338,001363: 05,3320           00005                                    04D                                   #                                B+2
030339,001364: 05,3321           75406                           PUSH     SQRT                                  #  A SUB P/A SUB A                       06D
030340,001365: 05,3322           41275                           DMPR     DMP                                   
030341,001366: 05,3323           00007                                    06D                                   
030342,001367: 05,3324           00001                                    00D                                   
030343,001368: 05,3325           65272                           SL3R     PDDL                                  #  V SUB A V METERS/CS           B+7     08D
030344,001369: 05,3326           00003                                    02D                                   #  R SUB A MAGNITUDE             B+29
030345,001370: 05,3327           65301                           NORM     PDDL                                  
030346,001371: 05,3330           00047                                    X1                                    
030347,001372: 05,3331           03750                                    RTMU                                  
030348,001373: 05,3332           56342                           SR1      DDV                                   #  2MU                           B+38
030349,001374: 05,3333           65257                           SL*      PDDL                                  #  2 MU/R SUBAA                  B+14    10D
030350,001375: 05,3334           20174                                    0          -5,1                       
030351,001376: 05,3335           00005                                    04D                                   #  ASUBA                         B+29
030352,001377: 05,3336           65301                           NORM     PDDL                                  
030353,001378: 05,3337           00050                                    X2                                    
030354,001379: 05,3340           03750                                    RTMU                                  
030355,001380: 05,3341           56342                           SR1      DDV                                   
030356,001381: 05,3342           44257                           SL*      BDSU                                  
030357,001382: 05,3343           57604                                    0          -6,2                       #  2U/R - U/A             B+14 (METERS/CS)SQ
030358,001383: 05,3344           63525                           PDDL     DSQ                                   #                                        10D
030359,001384: 05,3345           00011                                    08D                                   
030360,001385: 05,3346           75421                           BDSU     SQRT                                  
030361,001386: 05,3347           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)  10D
030362,001387: 05,3350           02611                                    UP1                                   
030363,001388: 05,3351           03546                                    UNVEC                                 
030364,001389: 05,3352           74256                           UNIT     VXSC                                  
030365,001390: 05,3353           00013                                    10D                                   
030366,001391: 05,3354           74315                           PDVL     VXSC                                  
030367,001392: 05,3355           03546                                    UNVEC                                 
030368,001393: 05,3356           00011                                    08D                                   
030369,001394: 05,3357           76455                           VAD      VSL1                                  
030370,001395: 05,3360           77626                           STADR                                          

Page 682

030372,001397: 05,3361           74231                           STORE    VACT3                                 
030373,001398: 05,3362           77651                           VSU                                            
030374,001399: 05,3363           02533                                    VACT2                                 
030375,001400: 05,3364           37667                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
030376,001401: 05,3365           02370                                    SUBEXIT                               
030377,001402: 

Page 683

030379,001404:                                                                                                  #  ..... COMPTGO .....
030380,001405: 
030381,001406:                                                                                                  #  SUBROUTINES USED
030382,001407:                                                                                                  #        CLOKTASK
030383,001408:                                                                                                  #        2PHSCHNG
030384,001409: 
030385,001410: 35,3477                                           BANK     35                                    
030386,001411: 35,2000                                           SETLOC   CSI/CDH                               
030387,001412: 35,2000                                           BANK                                           
030388,001413: 
030389,001414: 35,3477  E4,1767                                  EBANK=   RTRN                                  
030390,001415: 
030391,001416: 35,3477                                           COUNT*   $$/P3575                              
030392,001417: 

End of include-file P32-P33,_P72-P73.agc.  Parent file is MAIN.agc