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.

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

Page 649

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

Page 650

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

Page 651

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

Page 652

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

Page 653

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

Page 654

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

Page 655

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

Page 656

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

Page 657

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

Page 658

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

Page 659

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

Page 660

029549,000561: 04,3556           11454                                    P33/P73B                              
029550,000562: 

Page 661

029552,000564:                                                                                                  #  ..... AVFLAGA/P .....
029553,000565: 

Page 662

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

Page 663

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

Page 664

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

Page 665

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

Page 666

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

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

Page 672

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

Page 673

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

Page 674

030157,001169: 31,3654           05461                                    S32.1F2                               
030158,001170: 31,3655           43014                           CLEAR    CLEAR                                 
030159,001171: 31,3656           05662                                    S32.1F3A                              
030160,001172: 31,3657           05663                                    S32.1F3B                              
030161,001173: 31,3660           37764                           STCALL   LOOPCT                                
030162,001174: 31,3661           15716                                    CSI/B                                 
030163,001175: 

Page 675

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

Page 676

030204,001216:                                                                                                  #  ..... ROTATE .....
030205,001217: 
030206,001218: 05,2000                                           SETLOC   CDHTAG                                
030207,001219: 05,2000                                           BANK                                           
030208,001220: 
030209,001221: 05,3220           41406        ROTATE             PUSH     PUSH                                  
030210,001222: 05,3221           74241                           DOT      VXSC                                  
030211,001223: 05,3222           02611                                    UP1                                   
030212,001224: 05,3223           02611                                    UP1                                   
030213,001225: 05,3224           51352                           VSL2     BVSU                                  
030214,001226: 05,3225           63256                           UNIT     PDVL                                  
030215,001227: 05,3226           74246                           ABVAL    VXSC                                  
030216,001228: 05,3227           43572                           VSL1     RVQ                                   
030217,001229: 

Page 677

030219,001231:                                                                                                  #  ..... INTINTNA .....
030220,001232: 
030221,001233: 31,2000                                           SETLOC   CDHTAG2                               
030222,001234: 31,2000                                           BANK                                           
030223,001235: 
030224,001236: 31,3662           65325        INTINT2C           PDDL     PDDL                                  
030225,001237: 31,3663           02637                                    TCSI                                  
030226,001238: 31,3664           02635                                    TCDH                                  
030227,001239: 31,3665           41525                           PDDL     PUSH                                  
030228,001240: 31,3666           33107                                    TWOPI                                 
030229,001241: 31,3667           77650                           GOTO                                           
030230,001242: 31,3670           72705                                    INTINT                                
030231,001243: 31,3671           65325        INTINT3P           PDDL     PDDL                                  
030232,001244: 31,3672           02635                                    TCDH                                  
030233,001245: 31,3673           03663                                    TTPI                                  
030234,001246: 31,3674           41525                           PDDL     PUSH                                  
030235,001247: 31,3675           15335                                    ZEROVECS                              
030236,001248: 31,3676           77650                           GOTO                                           
030237,001249: 31,3677           72705                                    INTINT                                
030238,001250: 

Page 678

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

Page 679

030266,001278:                                                                                                  #  ..... S32/33.X .....
030267,001279: 
030268,001280: 13,2000                                           SETLOC   CDHTAGS                               
030269,001281: 13,2000                                           BANK                                           
030270,001282: 
030271,001283: 13,2231           77201        S32/33.X           SETPD    VLOAD                                 
030272,001284: 13,2232           00007                                    6D                                    
030273,001285: 13,2233           02611                                    UP1                                   
030274,001286: 13,2234           63276                           VCOMP    PDVL                                  
030275,001287: 13,2235           02541                                    RACT1                                 
030276,001288: 13,2236           57456                           UNIT     VCOMP                                 
030277,001289: 13,2237           47206                           PUSH     VXV                                   
030278,001290: 13,2240           02611                                    UP1                                   
030279,001291: 13,2241           77772                           VSL1                                           
030280,001292: 13,2242           00001                           STORE    0D                                    
030281,001293: 13,2243           77616                           RVQ                                            
030282,001294: 

Page 680

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

Page 681

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

Page 682

030385,001397: 05,3361           74231                           STORE    VACT3                                 
030386,001398: 05,3362           77651                           VSU                                            
030387,001399: 05,3363           02533                                    VACT2                                 
030388,001400: 05,3364           37667                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
030389,001401: 05,3365           02370                                    SUBEXIT                               
030390,001402: 

Page 683

030392,001404:                                                                                                  #  ..... COMPTGO .....
030393,001405: 
030394,001406:                                                                                                  #  SUBROUTINES USED
030395,001407:                                                                                                  #        CLOKTASK
030396,001408:                                                                                                  #        2PHSCHNG
030397,001409: 
030398,001410: 35,3477                                           BANK     35                                    
030399,001411: 35,2000                                           SETLOC   CSI/CDH                               
030400,001412: 35,2000                                           BANK                                           
030401,001413: 
030402,001414: 35,3477  E4,1767                                  EBANK=   RTRN                                  
030403,001415: 
030404,001416: 35,3477                                           COUNT*   $$/P3575                              
030405,001417: 

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