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.

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

Page 649

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

Page 650

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

Page 651

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

Page 652

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

Page 653

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

Page 654

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

Page 655

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

Page 656

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

Page 657

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

Page 658

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

Page 659

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

Page 660

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

Page 661

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

Page 662

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

Page 663

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

Page 664

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

Page 665

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

Page 666

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

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

Page 672

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

Page 673

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

Page 674

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

Page 675

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

Page 676

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

Page 677

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

Page 678

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

Page 679

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

Page 680

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

Page 681

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

Page 682

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

Page 683

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

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