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.

028814,000002:                                                                                                  ## Copyright:   Public domain.
028815,000003:                                                                                                  ## Filename:    P32-P33_P72-P73.agc
028816,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
028817,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
028818,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
028819,000007:                                                                                                  ## Assembler:   yaYUL
028820,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028821,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
028822,000010:                                                                                                  ## Pages:       649-683
028823,000011:                                                                                                  ## Mod history: 2009-05-09 RSB  Adapted from the Luminary131/ file
028824,000012:                                                                                                  ##                              P32-P35_P72-P75.agc and Comanche055 page 
028825,000013:                                                                                                  ##                              images.
028826,000014:                                                                                                  ##              2009-05-20 RSB  Corrected CSI/COM3 -> CSI/CDH3,
028827,000015:                                                                                                  ##                              CSI/CDHI -> CSI/CDH1, CDHTAB -> CDHTAG,
028828,000016:                                                                                                  ##                              changed a SETLOC from CSI/CDH to CSI/CDH1,
028829,000017:                                                                                                  ##                              a SETLOC CSI/CDH1 to CSIPROG.
028830,000018:                                                                                                  ##              2009-05-21 RSB  Changed a P32/P72D to P32/P72E in 
028831,000019:                                                                                                  ##                              P32/P72D.  DP1/4TH changed to DP1/4 in 
028832,000020:                                                                                                  ##                              CDHMVR.
028833,000021:                                                                                                  ##
028834,000022:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
028835,000023:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
028836,000024:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
028837,000025:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
028838,000026:                                                                                                  ## consequent reduction in image quality as well) are available online at
028839,000027:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
028840,000028:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
028841,000029:                                                                                                  ## (much) higher-quality images which Paul actually created.
028842,000030:                                                                                                  ##
028843,000031:                                                                                                  ## Notations on the hardcopy document read, in part:
028844,000032:                                                                                                  ##
028845,000033:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
028846,000034:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
028847,000035:                                                                                                  ##
028848,000036:                                                                                                  ##      This AGC program shall also be referred to as
028849,000037:                                                                                                  ##                      Colossus 2A
028850,000038: 

Page 649

028852,000040:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
028853,000041: 
028854,000042:                                                                                                  #  MOD NO -1             LOG SECTION -- P32-P35, P72-P75
028855,000043:                                                                                                  #  MOD BY WHITE, P.      DATE 1 JUNE 67
028856,000044: 
028857,000045:                                                                                                  #  PURPOSE
028858,000046:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WTIH THE FOLLOWING
028859,000047:                                                                                                  #                CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE
028860,000048:                                                                                                  #                INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
028861,000049:                                                                                                  #                (CDH) MANEUVER.
028862,000050:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028863,000051:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028864,000052:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
028865,000053:                                                                                                  #                ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR
028866,000054:                                                                                                  #                APPROVAL BY THE ASTRRONAUT/GROUND.
028867,000055:                                                                                                  #        (4)     TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
028868,000056:                                                                                                  #                THRUSTING PROGRAM.
028869,000057: 
028870,000058:                                                                                                  #  ASSUMPTIONS
028871,000059:                                                                                                  #        (1)     AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE
028872,000060:                                                                                                  #                AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
028873,000061:                                                                                                  #                FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
028874,000062:                                                                                                  #                POSITION.
028875,000063:                                                                                                  #        (2)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
028876,000064:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
028877,000065:                                                                                                  #                COMPLETION OF THE PROGRAM.
028878,000066:                                                                                                  #        (3)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
028879,000067:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
028880,000068:                                                                                                  #                COMPLETION OF THE PROGRAM.
028881,000069:                                                                                                  #        (4)     CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
028882,000070:                                                                                                  #                ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
028883,000071:                                                                                                  #        (5)     CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
028884,000072:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
028885,000073:                                                                                                  #                IGNITION.
028886,000074:                                                                                                  #        (6)     THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
028887,000075:                                                                                                  #                MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
028888,000076:                                                                                                  #                ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
028889,000077:                                                                                                  #        (7)     THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
028890,000078:                                                                                                  #                PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER, CREW

Page 650

028892,000080:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
028893,000081:                                                                                                  #                OUT-OF-PLANE CSI MANEUVER
028894,000082:                                                                                                  #        (8)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028895,000083:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
028896,000084:                                                                                                  #        (9)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
028897,000085:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
028898,000086:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
028899,000087:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
028900,000088:                                                                                                  #        (10)    THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028901,000089:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
028902,000090:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY
028903,000091:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
028904,000092:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028905,000093:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
028906,000094:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028907,000095:                                                                                                  #                THRUSTING MANEUVER.
028908,000096:                                                                                                  #        (11)    THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028909,000097:                                                                                                  #        (12)    THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS --
028910,000098: 
028911,000099:                                                                                                  #                        ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS
028912,000100:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028913,000101:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028914,000102:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028915,000103: 
028916,000104:                                                                                                  #                        FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028917,000105:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
028918,000106:                                                                                                  #                        CYCLE.
028919,000107: 
028920,000108:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF
028921,000109:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
028922,000110:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
028923,000111:                                                                                                  #                        PROGRAM.
028924,000112: 
028925,000113:                                                                                                  #        (13)    IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
028926,000114:                                                                                                  #                A THRUSTING MANEUVER.
028927,000115: 
028928,000116:                                                                                                  #        (14)    THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY
028929,000117: 
028930,000118:                                                                                                  #                        P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
028931,000119: 
028932,000120:                                                                                                  #                        P72 IF THIS VEHICLE IS THE PASSIVE VEHICLE.
028933,000121: 
028934,000122:                                                                                                  #  INPUT
028935,000123:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER

Page 651

028937,000125:                                                                                                  #        (2)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
028938,000126:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
028939,000127:                                                                                                  #                                MANEUVER POINT.
028940,000128:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
028941,000129:                                                                                                  #        (4)     TTPI            TIME OF THE TPI MANEUVER
028942,000130: 
028943,000131:                                                                                                  #  OUTPUT
028944,000132:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028945,000133:                                                                                                  #        (2)     TTOGO           TIME TO GO
028946,000134:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028947,000135:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
028948,000136:                                                                                                  #        (5)     T1TOT2          DELTA TIME FROM CSI TO CDH
028949,000137:                                                                                                  #        (6)     T2TOT3          DELTA TIME FROM CDH TO TPI
028950,000138:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CSI -- LOCAL VERTICAL COORDINATES
028951,000139:                                                                                                  #        (8)     DELVLVC         DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES
028952,000140: 
028953,000141:                                                                                                  #  DOWNLINK
028954,000142:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
028955,000143:                                                                                                  #        (2)     TCDH            TIME OF THE CDH MANEUVER
028956,000144:                                                                                                  #        (3)     TTPI            TIME OF THE TPI MANEUVER
028957,000145:                                                                                                  #        (4)     TIG             TIME OF THE CSI MANEUVER
028958,000146:                                                                                                  #        (5)     DELVEET1        DELTA VELOCITY AT CSI -- REFERENCE COORDINATES
028959,000147:                                                                                                  #        (6)     DELVEET2        DELTA VELOCITY AT CDH -- REFERENCE COORDINATES
028960,000148:                                                                                                  #        (7)     DIFFALT         DELTA ALTITUDE AT CDH
028961,000149:                                                                                                  #        (8)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
028962,000150:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
028963,000151:                                                                                                  #                                MANEUVER POINT
028964,000152:                                                                                                  #        (9)     ELEV            DESIRED LOS ANGLE AT TPI
028965,000153: 
028966,000154:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028967,000155:                                                                                                  #        (1)     TIG             TIME OF THE CSI MANEUVER
028968,000156:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CSI -- BEFORE ROTATION
028969,000157:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
028970,000158:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CSE -- BEFORE ROTATION
028971,000159:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
028972,000160:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CSI -- REFERENCE COORDINATES
028973,000161:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CSI
028974,000162:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
028975,000163: 
028976,000164:                                                                                                  #  SUBROUTINES USED
028977,000165:                                                                                                  #        AVFLAGA
028978,000166:                                                                                                  #        AVFLAGP
028979,000167:                                                                                                  #        P20FLGON
028980,000168:                                                                                                  #        VARALARM
028981,000169:                                                                                                  #        BANKCALL
028982,000170:                                                                                                  #        GOFLASH
028983,000171:                                                                                                  #        GOTOP00H

Page 652

028985,000173:                                                                                                  #        VNP00H
028986,000174:                                                                                                  #        GOFLASHR
028987,000175:                                                                                                  #        BLANKET
028988,000176:                                                                                                  #        ENDOFJOB
028989,000177:                                                                                                  #        SELECTMU
028990,000178:                                                                                                  #        ADVANCE
028991,000179:                                                                                                  #        INTINT
028992,000180:                                                                                                  #        PASSIVE
028993,000181:                                                                                                  #        CSI/A
028994,000182:                                                                                                  #        S32/33.1
028995,000183:                                                                                                  #        DISDVLVC
028996,000184:                                                                                                  #        VN1645
028997,000185: 
028998,000186: 35,3445                                           BANK     35                                    
028999,000187: 04,2000                                           SETLOC   CSI/CDH1                              
029000,000188: 04,2000                                           BANK                                           
029001,000189: 04,3303  E4,1770                                  EBANK=   SUBEXIT                               
029002,000190: 04,3303                                           COUNT    35/P3272                              
029003,000191: 04,3303           04627        P32                TC       AVFLAGA                               
029004,000192: 04,3304           03306                           TC       P32STRT                               
029005,000193: 04,3305           04642        P72                TC       AVFLAGP                               
029006,000194: 04,3306           06006        P32STRT            TC       INTPRET                               
029007,000195: 04,3307           77745                           DLOAD                                          
029008,000196: 04,3310           11566                                    ZEROVEC                               
029009,000197: 04,3311           03754                           STORE    CENTANG                               
029010,000198: 04,3312           77776                           EXIT                                           
029011,000199: 04,3313           03331                           TC       P32/P72A                              
029012,000200: 04,3314           77734        ALMXITA            SXA,2                                          
029013,000201: 04,3315           03664                                    CSIALRM                               
029014,000202: 04,3316           77740        ALMXIT             LXC,1                                          
029015,000203: 04,3317           03664                                    CSIALRM                               
029016,000204: 04,3320           77533                           SLOAD*   EXIT                                  
029017,000205: 04,3321           15653                                    ALARM/TB   -1,1                       
029018,000206: 04,3322           30154                           CA       MPAC                                  
029019,000207: 04,3323           05764                           TC       VARALARM                              
029020,000208: 04,3324           35050                           CAF      V05N09                                
029021,000209: 04,3325           04662                           TC       BANKCALL                              
029022,000210: 04,3326           20720                           CADR     GOFLASH                               
029023,000211: 04,3327           04106                           TC       GOTOP00H                              
029024,000212: 04,3330           03324                           TC       -4                                    
029025,000213: 04,3331           04647        P32/P72A           TC       P20FLGON                              
029026,000214: 04,3332           06006                           TC       INTPRET                               
029027,000215: 04,3333           77745                           DLOAD                                          
029028,000216: 04,3334           11566                                    ZEROVEC                               
029029,000217: 04,3335           03766                           STORE    NN                                    
029030,000218: 04,3336           77776                           EXIT                                           
029031,000219: 04,3337           34656                           CAF      V06N11                                #  TCSI
029032,000220: 04,3340           04575                           TC       VNP00H                                
029033,000221: 04,3341           34615                           CAF      V06N55                                

Page 653

029035,000223: 04,3342           04662                           TC       BANKCALL                              
029036,000224: 04,3343           20720                           CADR     GOFLASH                               
029037,000225: 04,3344           04106                           TC       GOTOP00H                              
029038,000226: 04,3345           03347                           TC       +2                                    
029039,000227: 04,3346           03341                           TC       -5                                    
029040,000228: 04,3347           34614                           CAF      V06N37                                #  TTPI
029041,000229: 04,3350           04575                           TC       VNP00H                                
029042,000230: 04,3351           06006                           TC       INTPRET                               
029043,000231: 04,3352           77745                           DLOAD                                          
029044,000232: 04,3353           02637                                    TCSI                                  
029045,000233: 04,3354           37413                           STCALL   TIG                                   
029046,000234: 04,3355           10712                                    SELECTMU                              
029047,000235: 04,3356           77624        P32/P72B           CALL                                           
029048,000236: 04,3357           76645                                    ADVANCE                               
029049,000237: 04,3360           77201                           SETPD    VLOAD                                 
029050,000238: 04,3361           00001                                    0D                                    
029051,000239: 04,3362           03512                                    VPASS1                                
029052,000240: 04,3363           65315                           PDVL     PDDL                                  
029053,000241: 04,3364           03756                                    RPASS1                                
029054,000242: 04,3365           02637                                    TCSI                                  
029055,000243: 04,3366           65325                           PDDL     PDDL                                  
029056,000244: 04,3367           03663                                    TTPI                                  
029057,000245: 04,3370           11630                                    2PISC                                 
029058,000246: 04,3371           41512                           SL2      PUSH                                  
029059,000247: 04,3372           77624                           CALL                                           
029060,000248: 04,3373           72705                                    INTINT                                
029061,000249: 04,3374           77624                           CALL                                           
029062,000250: 04,3375           45247                                    PASSIVE                               
029063,000251: 04,3376           77624                           CALL                                           
029064,000252: 04,3377           15704                                    CSI/A                                 
029065,000253: 04,3400           43014        P32/P72C           BON      SET                                   
029066,000254: 04,3401           01311                                    FINALFLG                              
029067,000255: 04,3402           11404                                    P32/P72D                              
029068,000256: 04,3403           00470                                    UPDATFLG                              
029069,000257: 04,3404           52145        P32/P72D           DLOAD    GOTO                                  
029070,000258: 04,3405           02547                                    T1TOT2                                
029071,000259: 04,3406           30002                                    P32/P72E                              
029072,000260: 14,2000                                           SETLOC   CSI/CDH3                              
029073,000261: 14,2000                                           BANK                                           
029074,000262: 14,2002           02547        P32/P72E           STORE    T1TOT2                                
029075,000263: 14,2003           51025                           DSU      BPL                                   
029076,000264: 14,2004           15652                                    60MIN                                 
029077,000265: 14,2005           30002                                    P32/P72E                              
029078,000266: 14,2006           52145                           DLOAD    GOTO                                  
029079,000267: 14,2007           03656                                    T2TOT3                                
029080,000268: 14,2010           11407                                    P32/P72F                              
029081,000269: 04,2000                                           SETLOC   CSI/CDH1                              
029082,000270: 04,2000                                           BANK                                           
029083,000271: 04,3407           03656        P32/P72F           STORE    T2TOT3                                
029084,000272: 04,3410           51025                           DSU      BPL                                   

Page 654

029086,000274: 04,3411           15652                                    60MIN                                 
029087,000275: 04,3412           11407                                    P32/P72F                              
029088,000276: 04,3413           77776                           EXIT                                           
029089,000277: 04,3414           34660                           CAF      V06N75                                
029090,000278: 04,3415           04575                           TC       VNP00H                                
029091,000279: 04,3416           06006                           TC       INTPRET                               
029092,000280: 04,3417           45175                           VLOAD    CALL                                  
029093,000281: 04,3420           02445                                    DELVEET1                              
029094,000282: 04,3421           73457                                    S32/33.1                              
029095,000283: 04,3422           26445                           STOVL    DELVEET1                              
029096,000284: 04,3423           02453                                    RACT2                                 
029097,000285: 04,3424           26541                           STOVL    RACT1                                 
029098,000286: 04,3425           03667                                    DELVEET2                              
029099,000287: 04,3426           45170                           AXT,1    CALL                                  
029100,000288: 04,3427           01522                           VN       0682                                  
029101,000289: 04,3430           76625                                    DISDVLVC                              
029102,000290: 04,3431           77745                           DLOAD                                          
029103,000291: 04,3432           03663                                    TTPI                                  
029104,000292: 04,3433           36641                           STCALL   TTPIO                                 
029105,000293: 04,3434           73002                                    VN1645                                
029106,000294: 04,3435           77650                           GOTO                                           
029107,000295: 04,3436           11356                                    P32/P72B                              
029108,000296: 

Page 655

029110,000298:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
029111,000299:                                                                                                  #  MOD NO -1                     LOC SECTION -- P32-P35, P72-P75
029112,000300:                                                                                                  #  MOD BY WHITE, P.              DATE: 1 JUNE 67
029113,000301: 
029114,000302:                                                                                                  #  PURPOSE
029115,000303: 
029116,000304:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
029117,000305:                                                                                                  #                ALTITUDE MANEUVER (CDH).
029118,000306: 
029119,000307:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029120,000308:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029121,000309: 
029122,000310:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029123,000311:                                                                                                  #                ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
029124,000312:                                                                                                  #                ASTRONAUT/GROUND.
029125,000313: 
029126,000314:                                                                                                  #        (4)     TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
029127,000315:                                                                                                  #                THRUSTING PROGRAM.
029128,000316: 
029129,000317:                                                                                                  #  ASSUMPTIONS
029130,000318: 
029131,000319:                                                                                                  #        (1)     THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
029132,000320:                                                                                                  #                CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
029133,000321:                                                                                                  #                THEREFORE --
029134,000322: 
029135,000323:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029136,000324:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029137,000325:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029138,000326:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029139,000327: 
029140,000328:                                                                                                  #                (B)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
029141,000329:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
029142,000330: 
029143,000331:                                                                                                  #                (C)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029144,000332:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
029145,000333: 
029146,000334:                                                                                                  #                (D)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029147,000335:                                                                                                  #                        ORBITS WAS MINIMIZED.
029148,000336: 
029149,000337:                                                                                                  #                (E)     CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
029150,000338:                                                                                                  #                        IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
029151,000339:                                                                                                  #                        POSITION AT CSI IGNITION.
029152,000340: 
029153,000341:                                                                                                  #                (F)     THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
029154,000342:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
029155,000343:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
029156,000344: 
029157,000345:                                                                                                  #                (G)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029158,000346:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW

Page 656

029160,000348:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029161,000349:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
029162,000350: 
029163,000351:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029164,000352:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
029165,000353: 
029166,000354:                                                                                                  #        (3)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029167,000355:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029168,000356:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029169,000357:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029170,000358: 
029171,000359:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM.
029172,000360:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029173,000361:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029174,000362:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029175,000363:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029176,000364:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029177,000365:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029178,000366:                                                                                                  #                THRUSTING MANEUVER.
029179,000367: 
029180,000368:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029181,000369: 
029182,000370:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS --
029183,000371: 
029184,000372:                                                                                                  #                        ACTIVE VEHICLE FLAG -- DESIGNATES THE VEHICLE WHICH IS
029185,000373:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029186,000374:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029187,000375:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029188,000376: 
029189,000377:                                                                                                  #                        FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029190,000378:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029191,000379:                                                                                                  #                        CYCLE.
029192,000380: 
029193,000381:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG -- DESIGNATES THE TYPE OF
029194,000382:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029195,000383:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029196,000384:                                                                                                  #                        PROGRAM.
029197,000385: 
029198,000386:                                                                                                  #        (7)     IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029199,000387:                                                                                                  #                A THRUSTING MANEUVER.
029200,000388: 
029201,000389:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY.
029202,000390: 
029203,000391:                                                                                                  #                        P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
029204,000392: 
029205,000393:                                                                                                  #                        P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
029206,000394: 
029207,000395:                                                                                                  #  INPUT
029208,000396: 
029209,000397:                                                                                                  #        (1)     TTPIO   TIME OF THE TPI MANEUVER -- SAVED FROM P32/P72

Page 657

029211,000399:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI -- SAVED FROM P32/P72
029212,000400:                                                                                                  #        (3)     TCDH    TIME OF THE CDH MANEUVER
029213,000401: 
029214,000402:                                                                                                  #  OUTPUT
029215,000403: 
029216,000404:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
029217,000405:                                                                                                  #        (2)     TTOGO           TIME TO GO
029218,000406:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
029219,000407:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
029220,000408:                                                                                                  #        (5)     T2TOT3          DELTA TIME FROM CDH TO COMPUTED TPI
029221,000409:                                                                                                  #        (6)     NOMTPI          DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
029222,000410:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CDH -- LOCAL VERTICAL COORDINATES
029223,000411: 
029224,000412:                                                                                                  #  DOWNLINK
029225,000413: 
029226,000414:                                                                                                  #        (1)     TCDH            TIME OF THE CDH MANEUVER
029227,000415:                                                                                                  #        (2)     TTPI            TIME OF THE TPI MANEUVER
029228,000416:                                                                                                  #        (3)     TIG             TIME OF THE CDH MANEUVER
029229,000417:                                                                                                  #        (4)     DELLVEET2       DELTA VELOCITY AT CDH -- REFERENCE COORDINATES
029230,000418:                                                                                                  #        (5)     DIFFALT         DELTA ALTITUDE AT CDH
029231,000419:                                                                                                  #        (6)     ELEV            DESIRED LOS ANGLE AT TPI
029232,000420: 
029233,000421:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029234,000422: 
029235,000423:                                                                                                  #        (1)     TIG             TIME OF THE CDH MANEUVER
029236,000424:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION
029237,000425:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE.
029238,000426:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CDH -- BEFORE ROTATION
029239,000427:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE.
029240,000428:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CDH -- REFERENCE COORDINATES.
029241,000429:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CDH.
029242,000430:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION.
029243,000431: 
029244,000432:                                                                                                  #  SUBROUTINES USED
029245,000433: 
029246,000434:                                                                                                  #        AVFLAGA
029247,000435:                                                                                                  #        AVFLAGP
029248,000436:                                                                                                  #        P20FLGON
029249,000437:                                                                                                  #        VNP00H
029250,000438:                                                                                                  #        SELECTMU
029251,000439:                                                                                                  #        ADVANCE
029252,000440:                                                                                                  #        CDHMVR
029253,000441:                                                                                                  #        INTINT3P
029254,000442:                                                                                                  #        ACTIVE
029255,000443:                                                                                                  #        PASSIVE
029256,000444:                                                                                                  #        S33/S34.1
029257,000445:                                                                                                  #        ALARM
029258,000446:                                                                                                  #        BANKCALL
029259,000447:                                                                                                  #        GOFLASH
029260,000448:                                                                                                  #        GOTOP00H
029261,000449:                                                                                                  #        S32/33.1

Page 658

029263,000451:                                                                                                  #        VN1645
029264,000452: 
029265,000453: 04,3437                                           COUNT    35/P3373                              
029266,000454: 
029267,000455: 04,3437           04627        P33                TC       AVFLAGA                               
029268,000456: 04,3440           03442                           TC       P33/P73A                              
029269,000457: 04,3441           04642        P73                TC       AVFLAGP                               
029270,000458: 04,3442           04647        P33/P73A           TC       P20FLGON                              
029271,000459: 04,3443           34657                           CAF      V06N13                                #  TCDH
029272,000460: 04,3444           04575                           TC       VNP00H                                
029273,000461: 04,3445           06006                           TC       INTPRET                               
029274,000462: 04,3446           77745                           DLOAD                                          
029275,000463: 04,3447           02641                                    TTPIO                                 
029276,000464: 04,3450           17663                           STODL    TTPI                                  
029277,000465: 04,3451           02635                                    TCDH                                  
029278,000466: 04,3452           37413                           STCALL   TIG                                   
029279,000467: 04,3453           10712                                    SELECTMU                              
029280,000468: 04,3454           77624        P33/P73B           CALL                                           
029281,000469: 04,3455           76645                                    ADVANCE                               
029282,000470: 04,3456           77624                           CALL                                           
029283,000471: 04,3457           13230                                    CDHMVR                                
029284,000472: 04,3460           77201                           SETPD    VLOAD                                 
029285,000473: 04,3461           00001                                    0D                                    
029286,000474: 04,3462           03546                                    VACT3                                 
029287,000475: 04,3463           45115                           PDVL     CALL                                  
029288,000476: 04,3464           02453                                    RACT2                                 
029289,000477: 04,3465           63671                                    INTINT3P                              
029290,000478: 04,3466           77624                           CALL                                           
029291,000479: 04,3467           45237                                    ACTIVE                                
029292,000480: 04,3470           77201                           SETPD    VLOAD                                 
029293,000481: 04,3471           00001                                    0D                                    
029294,000482: 04,3472           02617                                    VPASS2                                
029295,000483: 04,3473           45115                           PDVL     CALL                                  
029296,000484: 04,3474           02625                                    RPASS2                                
029297,000485: 04,3475           63671                                    INTINT3P                              
029298,000486: 04,3476           77624                           CALL                                           
029299,000487: 04,3477           45247                                    PASSIVE                               
029300,000488: 04,3500           43145                           DLOAD    SET                                   
029301,000489: 04,3501           11566                                    ZEROVEC                               
029302,000490: 04,3502           03461                                    ITSWICH                               
029303,000491: 04,3503           36364                           STCALL   NOMTPI                                
029304,000492: 04,3504           72216                                    S33/34.1                              
029305,000493: 04,3505           77454                           BZE      EXIT                                  
029306,000494: 04,3506           24000                                    P33/P73C                              
029307,000495: 04,3507           05650                           TC       ALARM                                 
029308,000496: 04,3510           00611                           OCT      611                                   
029309,000497: 04,3511           35050                           CAF      V05N09                                
029310,000498: 04,3512           04662                           TC       BANKCALL                              
029311,000499: 04,3513           20720                           CADR     GOFLASH                               
029312,000500: 04,3514           04106                           TC       GOTOP00H                              

Page 659

029314,000502: 04,3515           03517                           TC       +2                                    
029315,000503: 04,3516           03442                           TC       P33/P73A                              
029316,000504: 04,3517           06006                           TC       INTPRET                               
029317,000505: 04,3520           77745                           DLOAD                                          
029318,000506: 04,3521           11566                                    ZEROVEC                               
029319,000507: 04,3522           36364                           STCALL   NOMTPI                                
029320,000508: 04,3523           24000                                    P33/P73C                              
029321,000509: 12,2000                                           SETLOC   CSI/CDH2                              
029322,000510: 12,2000                                           BANK                                           
029323,000511: 
029324,000512: 12,2000           43014        P33/P73C           BON      SET                                   
029325,000513: 12,2001           01311                                    FINALFLG                              
029326,000514: 12,2002           24004                                    P33/P73D                              
029327,000515: 12,2003           00470                                    UPDATFLG                              
029328,000516: 12,2004           43345        P33/P73D           DLOAD    DAD                                   
029329,000517: 12,2005           02364                                    NOMTPI                                
029330,000518: 12,2006           03663                                    TTPI                                  
029331,000519: 12,2007           03663                           STORE    TTPI                                  
029332,000520: 12,2010           52025                           DSU      GOTO                                  
029333,000521: 12,2011           02635                                    TCDH                                  
029334,000522: 12,2012           11524                                    P33/P73E                              
029335,000523: 04,2000                                           SETLOC   CSI/CDH1                              
029336,000524: 04,2000                                           BANK                                           
029337,000525: 
029338,000526: 04,3524           51025        P33/P73E           DSU      BPL                                   
029339,000527: 04,3525           15652                                    60MIN                                 
029340,000528: 04,3526           11524                                    P33/P73E                              
029341,000529: 04,3527           77615                           DAD                                            
029342,000530: 04,3530           15652                                    60MIN                                 
029343,000531: 04,3531           16547                           STODL    T1TOT2                                
029344,000532: 04,3532           03663                                    TTPI                                  
029345,000533: 04,3533           41425                           DSU      PUSH                                  
029346,000534: 04,3534           02641                                    TTPIO                                 
029347,000535: 04,3535           45246        P33/P73F           ABS      DSU                                   
029348,000536: 04,3536           15652                                    60MIN                                 
029349,000537: 04,3537           43244                           BPL      DAD                                   
029350,000538: 04,3540           11535                                    P33/P73F                              
029351,000539: 04,3541           15652                                    60MIN                                 
029352,000540: 04,3542           45565                           SIGN     STADR                                 
029353,000541: 04,3543           74121                           STORE    T2TOT3                                
029354,000542: 04,3544           77776                           EXIT                                           
029355,000543: 04,3545           34660                           CAF      V06N75                                
029356,000544: 04,3546           04575                           TC       VNP00H                                
029357,000545: 04,3547           06006                           TC       INTPRET                               
029358,000546: 04,3550           45175                           VLOAD    CALL                                  
029359,000547: 04,3551           03667                                    DELVEET2                              
029360,000548: 04,3552           73457                                    S32/33.1                              
029361,000549: 04,3553           37667                           STCALL   DELVEET2                              
029362,000550: 04,3554           73002                                    VN1645                                
029363,000551: 04,3555           77650                           GOTO                                           

Page 660

029365,000553: 04,3556           11454                                    P33/P73B                              
029366,000554: 

Page 661

029368,000556:                                                                                                  #  ***** AVFLAGA/P *****
029369,000557: 

Page 662

029371,000559:                                                                                                  #  ***** DISDVLVC *****
029372,000560: 
029373,000561:                                                                                                  #  SUBROUTINES USED
029374,000562: 
029375,000563:                                                                                                  #        S32/33.X
029376,000564:                                                                                                  #        VNP00H
029377,000565: 
029378,000566: 37,2000                                           SETLOC   CDHTAG3                               
029379,000567: 37,2000                                           BANK                                           
029380,000568: 
029381,000569: 37,2625           03405        DISDVLVC           STORE    DELVLVC                               
029382,000570: 37,2626           45020                           STQ      CALL                                  
029383,000571: 37,2627           01340                                    NORMEX                                
029384,000572: 37,2630           26231                                    S32/33.X                              
029385,000573: 37,2631           64375                           VLOAD    MXV                                   
029386,000574: 37,2632           03405                                    DELVLVC                               
029387,000575: 37,2633           00001                                    0D                                    
029388,000576: 37,2634           66172                           VSL1     SXA,1                                 
029389,000577: 37,2635           02365                                    VERBNOUN                              
029390,000578: 37,2636           03405                           STORE    DELVLVC                               
029391,000579: 37,2637           77776                           EXIT                                           
029392,000580: 37,2640           31765                           CA       VERBNOUN                              
029393,000581: 37,2641           04575                           TC       VNP00H                                
029394,000582: 37,2642           06006                           TC       INTPRET                               
029395,000583: 37,2643           77650                           GOTO                                           
029396,000584: 37,2644           01340                                    NORMEX                                
029397,000585:    4000                                           SETLOC   FFTAG12                               
029398,000586:    4000                                           BANK                                           
029399,000587: 
029400,000588:    4656           01413        V06N11             VN       0611                                  
029401,000589:    4657           01415        V06N13             VN       0613                                  
029402,000590:    4660           01513        V06N75             VN       0675                                  
029403,000591: 
029404,000592:    4661           01462        V06N50             VN       0650                                  
029405,000593: 

Page 663

029407,000595: 
029408,000596:                                                                                                  #  ***** CSI/A *****
029409,000597: 
029410,000598:                                                                                                  #  SUBROUTINES USED
029411,000599: 
029412,000600:                                                                                                  #        VECSHIFT
029413,000601:                                                                                                  #        TIMETHET
029414,000602:                                                                                                  #        PERIAPO
029415,000603:                                                                                                  #        SHIFTR1
029416,000604:                                                                                                  #        INTINT2C
029417,000605:                                                                                                  #        CDHMVR
029418,000606:                                                                                                  #        PERIAPO1
029419,000607:                                                                                                  #        INTINT
029420,000608:                                                                                                  #        ACTIVE
029421,000609: 
029422,000610: 34,3763                                           BANK     34                                    
029423,000611: 06,2000                                           SETLOC   CSIPROG                               
029424,000612: 06,2000                                           BANK                                           
029425,000613: 06,3651  E4,1770                                  EBANK=   SUBEXIT                               
029426,000614: 06,3651                                           COUNT    34/CSI                                
029427,000615: 
029428,000616: 06,3651           00025 37100  60MIN              2DEC     360000     B-28                       
029429,000617: 
029430,000618: 06,3653           00600        ALARM/TB           OCT      00600                                 #  NO 1
029431,000619: 06,3654           00601                           OCT      00601                                 #     2
029432,000620: 06,3655           00602                           OCT      00602                                 #     3
029433,000621: 06,3656           00603                           OCT      00603                                 #     4
029434,000622: 06,3657           00604                           OCT      00604                                 #     5
029435,000623: 06,3660           00605                           OCT      00605                                 #     6
029436,000624: 06,3661           00606                           OCT      00606                                 #     7
029437,000625: 06,3662           00000 00020  LOOPMX             2DEC     16         B-28                       
029438,000626: 
029439,000627: 06,3664           00003 34661  INITST             2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029440,000628: 
029441,000629: 06,3666           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #  MAXIMUM DV1 = 1000 FPS
029442,000630: 
029443,000631: 06,3670           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                 989 FPS
029444,000632: 
029445,000633: 06,3672           10000 00000  1DPB2              2DEC     1.0        B-2                        
029446,000634: 
029447,000635: 06,3674           00000 00001  1DPB28             2DEC     1          B-28                       
029448,000636: 
029449,000637: 06,3676           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #  .1 FPS
029450,000638: 
029451,000639: 
029452,000640: 06,3700           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #  5 FPS
029453,000641: 
029454,000642: 06,3702           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #  200 FPS
029455,000643: 
029456,000644: 35,2000                                           SETLOC   CSI/CDH                               
029457,000645: 35,2000                                           BANK                                           
029458,000646: 35,3445           00004 31566  PMINE              2DEC     157420     B-29                       #  84 NM -- MUST BE 8 WORDS BEFORE PMINM
029459,000647: 

Page 664

029461,000649: 
029462,000650: 35,3447           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS
029463,000651: 
029464,000652: 35,3451           00003 34661  INITST1            2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029465,000653: 
029466,000654: 35,3453           00000 06433  ONETHTH            2DEC     .0001      B-3                        
029467,000655: 
029468,000656: 35,3455           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT -- MUST BE 8 WORDS AFTER PMINE
029469,000657: 
029470,000658: 06,2000                                           SETLOC   CSIPROG                               
029471,000659: 06,2000                                           BANK                                           
029472,000660: 
029473,000661: 06,3704           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
029474,000662: 06,3705           05660                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
029475,000663: 06,3706           05461                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATOR
029476,000664: 06,3707           43014                           CLEAR    SET                                   
029477,000665: 06,3710           05662                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE, 01=FIRST CYCLE
029478,000666: 06,3711           05463                                    S32.1F3B                              #  10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE
029479,000667: 06,3712           77745                           DLOAD                                          
029480,000668: 06,3713           11566                                    ZEROVEC                               
029481,000669: 06,3714           03764                           STORE    LOOPCT                                
029482,000670: 06,3715           03665                           STORE    CSIALRM                               
029483,000671: 06,3716           77201        CSI/B              SETPD    VLOAD                                 
029484,000672: 06,3717           00001                                    0D                                    
029485,000673: 06,3720           02541                                    RACT1                                 
029486,000674: 06,3721           41446                           ABVAL    PUSH                                  #  RA1                                  B29 PL02D
029487,000675: 06,3722           70501                           NORM     SR1                                   
029488,000676: 06,3723           00050                                    X2                                    #                                B29-N2+ B1 PL04D
029489,000677: 06,3724           51515                           PDVL     ABVAL                                 
029490,000678: 06,3725           03554                                    RPASS3                                
029491,000679: 06,3726           55301                           NORM     BDDV                                  #  RA1/RP3                               B1 PL02D
029492,000680: 06,3727           00047                                    X1                                    
029493,000681: 06,3730           53664                           XSU,2    SR*                                   #                                        B2
029494,000682: 06,3731           00046                                    X1                                    
029495,000683: 06,3732           57175                                    1,2                                   
029496,000684: 06,3733           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1              B29+B2=B31 PL00D
029497,000685: 06,3734           15673                                    1DPB2                                 
029498,000686: 06,3735           65301                           NORM     PDDL                                  #                                           PL02D
029499,000687: 06,3736           00047                                    X1                                    
029500,000688: 06,3737           03750                                    RTMU                                  
029501,000689: 06,3740           56342                           SR1      DDV                                   #                               B38-B31= B7 PL00D
029502,000690: 06,3741           75457                           SL*      SQRT                                  #                                        B7
029503,000691: 06,3742           20172                                    0          -7,1                       
029504,000692: 06,3743           53515                           PDVL     UNIT                                  #                                           PL02D
029505,000693: 06,3744           02541                                    RACT1                                 
029506,000694: 06,3745           47315                           PDVL     VXV                                   
029507,000695: 06,3746           02611                                    UP1                                   
029508,000696: 06,3747           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
029509,000697: 06,3750           72441                           DOT      SL1                                   #  VA1 . UH1                             B7
029510,000698: 06,3751           03504                                    VACT1                                 
029511,000699: 06,3752           45421                           BDSU     STADR                                 #                                           PL00D

Page 665

029513,000701: 06,3753           60315                           STODL    DELVCSI                               
029514,000702: 06,3754           15665                                    INITST                                #  10 FPS
029515,000703: 06,3755           03464                           STORE    DELDV                                 
029516,000704: 06,3756           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
029517,000705: 06,3757           03764                                    LOOPCT                                
029518,000706: 06,3760           15675                                    1DPB28                                
029519,000707: 06,3761           03764                           STORE    LOOPCT                                
029520,000708: 06,3762           77025                           DSU      AXT,2                                 
029521,000709: 06,3763           15663                                    LOOPMX                                
029522,000710: 06,3764           00006                                    6                                     
029523,000711: 06,3765           52044                           BPL      GOTO                                  
029524,000712: 06,3766           63642                                    SCNDSOL                               
029525,000713: 06,3767           24013                                    CSI/B2                                
029526,000714: 
029527,000715: 12,2000                                           SETLOC   CSIPROG2                              
029528,000716: 12,2000                                           BANK                                           
029529,000717: 
029530,000718: 12,2013           77601        CSI/B2             SETPD                                          
029531,000719: 12,2014           00001                                    0D                                    
029532,000720: 12,2015           51545                           DLOAD    ABS                                   
029533,000721: 12,2016           03462                                    DELVCSI                               
029534,000722: 12,2017           50025                           DSU      BMN                                   
029535,000723: 12,2020           15667                                    DVMAX1                                
029536,000724: 12,2021           45267                                    CSI/B23                               
029537,000725: 12,2022           43174                           AXT,2    BON                                   
029538,000726: 12,2023           00007                                    7                                     
029539,000727: 12,2024           05700                                    S32.1F1                               
029540,000728: 12,2025           63642                                    SCNDSOL                               
029541,000729: 12,2026           43014                           BOFF     BON                                   
029542,000730: 12,2027           05742                                    S32.1F3A                              
029543,000731: 12,2030           24033                                    CSI/B22                               #  FLAG 3 NEQ 3
029544,000732: 12,2031           05703                                    S32.1F3B                              
029545,000733: 12,2032           63642                                    SCNDSOL                               
029546,000734: 12,2033           71214        CSI/B22            SET      DLOAD                                 
029547,000735: 12,2034           05460                                    S32.1F1                               
029548,000736: 12,2035           15671                                    DVMAX2                                
029549,000737: 12,2036           77765                           SIGN                                           
029550,000738: 12,2037           03462                                    DELVCSI                               
029551,000739: 12,2040           37462                           STCALL   DELVCSI                               
029552,000740: 12,2041           45267                                    CSI/B23                               
029553,000741: 
029554,000742: 22,2000                                           SETLOC   CSIPROG3                              
029555,000743: 22,2000                                           BANK                                           
029556,000744: 
029557,000745: 22,3267           41575        CSI/B23            VLOAD    PUSH                                  
029558,000746: 22,3270           02541                                    RACT1                                 
029559,000747: 22,3271           63256                           UNIT     PDVL                                  
029560,000748: 22,3272           02611                                    UP1                                   
029561,000749: 22,3273           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
029562,000750: 22,3274           76561                           VXSC     VSL1                                  

Page 666

029564,000752: 22,3275           03462                                    DELVCSI                               
029565,000753: 22,3276           02445                           STORE    DELVEET1                              
029566,000754: 22,3277           40055                           VAD      BOV                                   
029567,000755: 22,3300           03504                                    VACT1                                 
029568,000756: 22,3301           45302                                    CSI/B23D                              
029569,000757: 22,3302           37474        CSI/B23D           STCALL   VACT4                                 
029570,000758: 22,3303           45253                                    VECSHIFT                              
029571,000759: 22,3304           26746                           STOVL    VVEC                                  
029572,000760: 22,3305           77614                           SET                                            
029573,000761: 22,3306           03466                                    RVSW                                  
029574,000762: 22,3307           26657                           STOVL    RVEC                                  
029575,000763: 22,3310           05426                                    SN359+                                
029576,000764: 22,3311           36732                           STCALL   SNTH                                  #  ALSO CSTH
029577,000765: 22,3312           24744                                    TIMETHET                              
029578,000766: 22,3313           72142                           SR1      LXA,1                                 
029579,000767: 22,3314           03745                                    RTX1                                  
029580,000768: 22,3315           37472                           STCALL   HAFPA1                                
029581,000769: 22,3316           45163                                    PERIAPO                               
029582,000770: 22,3317           77624                           CALL                                           
029583,000771: 22,3320           45263                                    SHIFTR1                               
029584,000772: 22,3321           17460                           STODL    POSTCSI                               
029585,000773: 22,3322           03754                                    CENTANG                               
029586,000774: 22,3323           52054                           BZE      GOTO                                  
029587,000775: 22,3324           45326                                    +2                                    
029588,000776: 22,3325           47145                                    CIRCL                                 
029589,000777: 22,3326           77745                           DLOAD                                          
029590,000778: 22,3327           02754                                    ECC                                   
029591,000779: 22,3330           50025                           DSU      BMN                                   
029592,000780: 22,3331           33454                                    ONETHTH                               
029593,000781: 22,3332           47145                                    CIRCL                                 
029594,000782: 22,3333           45145                           DLOAD    CALL                                  
029595,000783: 22,3334           00041                                    R1                                    
029596,000784: 22,3335           45263                                    SHIFTR1                               
029597,000785: 22,3336           60201                           SETPD    NORM                                  
029598,000786: 22,3337           00003                                    2D                                    
029599,000787: 22,3340           00047                                    X1                                    
029600,000788: 22,3341           50315                           PDVL     DOT                                   #                                PL04D
029601,000789: 22,3342           02541                                    RACT1                                 
029602,000790: 22,3343           03474                                    VACT4                                 
029603,000791: 22,3344           56246                           ABS      DDV                                   
029604,000792: 22,3345           00003                                    02D                                   #  (/RDOTV/)/R1          B36-B29= B7
029605,000793: 22,3346           45257                           SL*      DSU                                   
029606,000794: 22,3347           20201                                    0,1                                   
029607,000795: 22,3350           33450                                    NICKELDP                              
029608,000796: 22,3351           71240                           BMN      DLOAD                                 
029609,000797: 22,3352           47145                                    CIRCL                                 
029610,000798: 22,3353           02742                                    P                                     
029611,000799: 22,3354           45312                           SL2      DSU                                   
029612,000800: 22,3355           33502                                    1RTEB2                                #  1.B.2
029613,000801: 22,3356           14017                           STODL    14D                                   

Page 667

029615,000803: 22,3357           03752                                    RTSR1/MU                              
029616,000804: 22,3360           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1         B-16-B29 = B-45 PL02D
029617,000805: 22,3361           41325                           PDDL     DMP                                   
029618,000806: 22,3362           02742                                    P                                     
029619,000807: 22,3363           00041                                    R1                                    
029620,000808: 22,3364           77624                           CALL                                           
029621,000809: 22,3365           45263                                    SHIFTR1                               
029622,000810: 22,3366           72412                           SL4      SL1                                   
029623,000811: 22,3367           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1       B14+B-14 = B-31 BL02D
029624,000812: 22,3370           52414                           BOFF     SL3                                   
029625,000813: 22,3371           04343                                    CMOONFLG                              
029626,000814: 22,3372           45373                                    CSI/B3                                
029627,000815: 22,3373           50315        CSI/B3             PDVL     DOT                                   
029628,000816: 22,3374           02541                                    RACT1                                 
029629,000817: 22,3375           03474                                    VACT4                                 
029630,000818: 22,3376           03502                           STORE    RDOTV                                 
029631,000819: 22,3377           77646                           ABS                                            
029632,000820: 22,3400           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                  PL02D
029633,000821: 22,3401           00050                                    X2                                    
029634,000822: 22,3402           53660                           XSU,1    SL*                                   #                        B-31+B36-B3 = B2
029635,000823: 22,3403           00047                                    X2                                    
029636,000824: 22,3404           20204                                    3,1                                   
029637,000825: 22,3405           14015                           STODL    12D                                   
029638,000826: 22,3406           15335                                    ZEROVECS                              
029639,000827: 22,3407           00021                           STORE    16D                                   
029640,000828: 22,3410           53575                           VLOAD    UNIT                                  
029641,000829: 22,3411           00015                                    12D                                   
029642,000830: 22,3412           26732                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
029643,000831: 22,3413           02541                                    RACT1                                 
029644,000832: 22,3414           75315                           PDVL     SIGN                                  
029645,000833: 22,3415           03474                                    VACT4                                 
029646,000834: 22,3416           03502                                    RDOTV                                 
029647,000835: 22,3417           45076                           VCOMP    CALL                                  
029648,000836: 22,3420           45253                                    VECSHIFT                              
029649,000837: 22,3421           26746                           STOVL    VVEC                                  
029650,000838: 22,3422           77614                           SETGO                                          
029651,000839: 22,3423           03426                                    RVSW                                  
029652,000840: 22,3424           47134                                    CSINEXT                               
029653,000841: 
029654,000842: 22,3425           77776 62460  SN359+             2DEC     -.000086601                            
029655,000843: 
029656,000844: 22,3427           17777 37776  CS359+             2DEC     +.499999992                            
029657,000845: 
029658,000846: 23,2000                                           SETLOC   CSIPROG4                              
029659,000847: 23,2000                                           BANK                                           
029660,000848: 
029661,000849: 23,3134           36657        CSINEXT            STCALL   RVEC                                  
029662,000850: 23,3135           24744                                    TIMETHET                              
029663,000851: 23,3136           51125                           PDDL     BPL                                   
029664,000852: 23,3137           03502                                    RDOTV                                 

Page 668

029666,000854: 23,3140           47151                                    NTP/2                                 
029667,000855: 23,3141           45345                           DLOAD    DSU                                   
029668,000856: 23,3142           03472                                    HAFPA1                                
029669,000857: 23,3143           52006                           PUSH     GOTO                                  
029670,000858: 23,3144           47151                                    NTP/2                                 
029671,000859: 23,3145           71201        CIRCL              SETPD    DLOAD                                 
029672,000860: 23,3146           00001                                    00D                                   
029673,000861: 23,3147           15335                                    ZEROVECS                              
029674,000862: 23,3150           77606                           PUSH                                           
029675,000863: 23,3151           41345        NTP/2              DLOAD    DMP                                   
029676,000864: 23,3152           03766                                    NN                                    
029677,000865: 23,3153           03472                                    HAFPA1                                
029678,000866: 23,3154           45261                           SL       DSU                                   
029679,000867: 23,3155           20217                                    14D                                   
029680,000868: 23,3156           77615                           DAD                                            
029681,000869: 23,3157           02637                                    TCSI                                  
029682,000870: 23,3160           02635                           STORE    TCDH                                  
029683,000871: 23,3161           77021                           BDSU     AXT,2                                 
029684,000872: 23,3162           03663                                    TTPI                                  
029685,000873: 23,3163           00005                                    5D                                    
029686,000874: 23,3164           40240                           BMN      SETPD                                 
029687,000875: 23,3165           63642                                    SCNDSOL                               
029688,000876: 23,3166           00001                                    0D                                    
029689,000877: 23,3167           63375                           VLOAD    PDVL                                  
029690,000878: 23,3170           03474                                    VACT4                                 
029691,000879: 23,3171           02541                                    RACT1                                 
029692,000880: 23,3172           77624                           CALL                                           
029693,000881: 23,3173           63662                                    INTINT2C                              
029694,000882: 23,3174           26453                           STOVL    RACT2                                 
029695,000883: 23,3175           00007                                    VATT                                  
029696,000884: 23,3176           26533                           STOVL    VACT2                                 
029697,000885: 23,3177           03512                                    VPASS1                                
029698,000886: 23,3200           63201                           SETPD    PDVL                                  
029699,000887: 23,3201           00001                                    0D                                    
029700,000888: 23,3202           03756                                    RPASS1                                
029701,000889: 23,3203           77650                           GOTO                                           
029702,000890: 23,3204           22256                                    CSINEXT1                              
029703,000891: 
029704,000892: 11,2000                                           SETLOC   CSIPROG5                              
029705,000893: 11,2000                                           BANK                                           
029706,000894: 
029707,000895: 11,2256           77624        CSINEXT1           CALL                                           
029708,000896: 11,2257           63662                                    INTINT2C                              
029709,000897: 11,2260           26625                           STOVL    RPASS2                                
029710,000898: 11,2261           00007                                    VATT                                  
029711,000899: 11,2262           36617                           STCALL   VPASS2                                
029712,000900: 11,2263           13230                                    CDHMVR                                
029713,000901: 11,2264           40375                           VLOAD    SETPD                                 
029714,000902: 11,2265           02453                                    RACT2                                 
029715,000903: 11,2266           00001                                    0D                                    

Page 669

029717,000905: 11,2267           45115                           PDVL     CALL                                  
029718,000906: 11,2270           03546                                    VACT3                                 
029719,000907: 11,2271           45153                                    PERIAPO1                              
029720,000908: 11,2272           77624                           CALL                                           
029721,000909: 11,2273           45263                                    SHIFTR1                               
029722,000910: 11,2274           27472                           STOVL    POSTCDH                               
029723,000911: 11,2275           03546                                    VACT3                                 
029724,000912: 11,2276           63201                           SETPD    PDVL                                  
029725,000913: 11,2277           00001                                    0D                                    
029726,000914: 11,2300           02453                                    RACT2                                 
029727,000915: 11,2301           65325                           PDDL     PDDL                                  
029728,000916: 11,2302           02635                                    TCDH                                  
029729,000917: 11,2303           03663                                    TTPI                                  
029730,000918: 11,2304           62525                           PDDL     SL2                                   
029731,000919: 11,2305           11630                                    2PISC                                 
029732,000920: 11,2306           45006                           PUSH     CALL                                  
029733,000921: 11,2307           72705                                    INTINT                                
029734,000922: 11,2310           77624                           CALL                                           
029735,000923: 11,2311           45237                                    ACTIVE                                
029736,000924: 11,2312           77745                           DLOAD                                          
029737,000925: 11,2313           03744                                    ELEV                                  
029738,000926: 11,2314           73401                           SETPD    SINE                                  
029739,000927: 11,2315           00007                                    6D                                    
029740,000928: 11,2316           53515                           PDVL     UNIT                                  
029741,000929: 11,2317           03540                                    RACT3                                 
029742,000930: 11,2320           00001                           STORE    00D                                   #  URA3 AT 00D
029743,000931: 11,2321           47315                           PDVL     VXV                                   #  PL14D, PL08D
029744,000932: 11,2322           02611                                    UP1                                   
029745,000933: 11,2323           77656                           UNIT                                           
029746,000934: 11,2324           71525                           PDDL     COSINE                                #  UNIT(URA3 X UVA3 X URA3) = UH3        B1 PL14D
029747,000935: 11,2325           03744                                    ELEV                                  
029748,000936: 11,2326           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                         B2 PL08D
029749,000937: 11,2327           43754                           STCALL   18D                                   #                PLUS
029750,000938: 11,2330           16517                                    CSINEXT2                              
029751,000939: 
029752,000940: 07,2000                                           SETLOC   CSIPROG6                              
029753,000941: 07,2000                                           BANK                                           
029754,000942: 
029755,000943: 07,2517           74345        CSINEXT2           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U                    B2 PL00D
029756,000944: 07,2520           76455                           VAD      VSL1                                  
029757,000945: 07,2521           00023                                    18D                                   #                                        B1
029758,000946: 07,2522           50206                           PUSH     DOT                                   #                                           PL06D
029759,000947: 07,2523           03540                                    RACT3                                 #  (U . RA3) = TEMP1         B1 + B29 = B30
029760,000948: 07,2524           41552                           SL1      PUSH                                  #                                       B29 PL08D
029761,000949: 07,2525           72316                           DSQ      TLOAD                                 #  TEMP1**2                             B58
029762,000950: 07,2526           00155                                    MPAC                                  
029763,000951: 07,2527           50315                           PDVL     DOT                                   #                                           PL11D
029764,000952: 07,2530           03540                                    RACT3                                 
029765,000953: 07,2531           03540                                    RACT3                                 
029766,000954: 07,2532           57551                           TLOAD    DCOMP                                 #  RA3 . RA3

Page 670

029768,000956: 07,2533           00155                                    MPAC                                  
029769,000957: 07,2534           50315                           PDVL     DOT                                   #  RP3 . RP3                         B58 PL14D
029770,000958: 07,2535           03554                                    RPASS3                                
029771,000959: 07,2536           03554                                    RPASS3                                #                                        PL11D
029772,000960: 07,2537           76371                           TAD      TAD                                   #  TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2  PL08D
029773,000961: 07,2540           71244                           BPL      DLOAD                                 
029774,000962: 07,2541           16557                                    K10RK2                                
029775,000963: 07,2542           03764                                    LOOPCT                                
029776,000964: 07,2543           77025                           DSU      AXT,2                                 
029777,000965: 07,2544           15675                                    1DPB28                                
029778,000966: 07,2545           00001                                    1D                                    
029779,000967: 07,2546           77654                           BZE                                            
029780,000968: 07,2547           11314                                    ALMXITA                               
029781,000969: 07,2550           70545                           DLOAD    SR1                                   
029782,000970: 07,2551           03464                                    DELDV                                 
029783,000971: 07,2552           03464                           STORE    DELDV                                 
029784,000972: 07,2553           77621                           BDSU                                           
029785,000973: 07,2554           03470                                    DVPREV                                
029786,000974: 07,2555           37462                           STCALL   DELVCSI                               
029787,000975: 07,2556           15756                                    CSI/B1                                
029788,000976: 07,2557           41566        K10RK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                 B29 PL10D
029789,000977: 07,2560           45276                           DCOMP    DSU                                   
029790,000978: 07,2561           00007                                    06D                                   #  -TEMP1-TEMP3 = K2 AT 10D
029791,000979: 07,2562           14013                           STODL    10D                                   #                                        PL08D
029792,000980: 07,2563           45425                           DSU      STADR                                 #                                        PL06D
029793,000981: 07,2564           77762                           STORE    12D                                   #  -TEMP1+TEMP3 = K1 AT 12D
029794,000982: 07,2565           77646                           ABS                                            
029795,000983: 07,2566           14017                           STODL    14D                                   
029796,000984: 07,2567           00013                                    10D                                   
029797,000985: 07,2570           45246                           ABS      DSU                                   
029798,000986: 07,2571           00017                                    14D                                   
029799,000987: 07,2572           71240                           BMN      DLOAD                                 
029800,000988: 07,2573           50002                                    K2.                                   
029801,000989: 07,2574           00015                                    12D                                   
029802,000990: 07,2575           34013                           STCALL   10D                                   #  K EQUALS K1
029803,000991: 07,2576           50002                                    K2.                                   
029804,000992: 
029805,000993: 24,2000                                           SETLOC   CSIPROG7                              
029806,000994: 24,2000                                           BANK                                           
029807,000995: 
029808,000996: 24,2002           77745        K2.                DLOAD                                          
029809,000997: 24,2003           00013                                    10D                                   
029810,000998: 24,2004           76561                           VXSC     VSL1                                  
029811,000999: 24,2005           53455                           VAD      UNIT                                  #  V = RA3 + KU UNIT                 B1
029812,001000: 24,2006           03540                                    RACT3                                 
029813,001001: 24,2007           53515                           PDVL     UNIT                                  
029814,001002: 24,2010           03554                                    RPASS3                                #                                        PL06D
029815,001003: 24,2011           53515                           PDVL     UNIT                                  
029816,001004: 24,2012           03562                                    VPASS3                                #                                        PL12D
029817,001005: 24,2013           63235                           VXV      PDVL                                  #  UVP3 X URP3                           PL18D

Page 671

029819,001007: 24,2014           00007                                    06D                                   
029820,001008: 24,2015           00007                                    06D                                   
029821,001009: 24,2016           50235                           VXV      DOT                                   
029822,001010: 24,2017           00001                                    00D                                   
029823,001011: 24,2020           77626                           STADR                                          #                                        PL12D
029824,001012: 24,2021           53762                           STOVL    12D                                   #  (URP3 X V).(UVP3 X URP3)=TEMP         PL06D
029825,001013: 24,2022           72441                           DOT      SL1                                   #                                        PL00D
029826,001014: 24,2023           75326                           ARCCOS   SIGN                                  
029827,001015: 24,2024           00015                                    12D                                   #                                     B0
029828,001016: 24,2025           41542                           SR1      PUSH                                  #  GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3)   PL02D
029829,001017: 24,2026           71214                           BON      DLOAD                                 
029830,001018: 24,2027           05701                                    S32.1F2                               
029831,001019: 24,2030           50065                                    FRSTPAS                               
029832,001020: 24,2031           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
029833,001021: 24,2032           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                      B1 PL04D
029834,001022: 24,2033           03466                                    GAMPREV                               
029835,001023: 24,2034           03462                                    DELVCSI                               
029836,001024: 24,2035           60225                           DSU      NORM                                  #                                     B7
029837,001025: 24,2036           03470                                    DVPREV                                
029838,001026: 24,2037           00047                                    X1                                    
029839,001027: 24,2040           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)      B-6+N1 PL06D
029840,001028: 24,2041           00003                                    02D                                   #        = SLOPE
029841,001029: 24,2042           03462                                    DELVCSI                               
029842,001030: 24,2043           03470                           STORE    DVPREV                                
029843,001031: 24,2044           43014                           BOFF     BOFF                                  
029844,001032: 24,2045           05742                                    S32.1F3A                              
029845,001033: 24,2046           20307                                    THRDCHK                               
029846,001034: 24,2047           05743                                    S32.1F3B                              
029847,001035: 24,2050           20307                                    THRDCHK                               
029848,001036: 24,2051           41345                           DLOAD    DMP                                   
029849,001037: 24,2052           00003                                    02D                                   
029850,001038: 24,2053           03466                                    GAMPREV                               
029851,001039: 24,2054           71244                           BPL      DLOAD                                 
029852,001040: 24,2055           20314                                    FIFTYFPS                              
029853,001041: 24,2056           33452                                    INITST1                               
029854,001042: 24,2057           77765                           SIGN                                           
029855,001043: 24,2060           03464                                    DELDV                                 
029856,001044: 24,2061           03464                           STORE    DELDV                                 
029857,001045: 24,2062           43014                           SET      CLEAR                                 
029858,001046: 24,2063           05462                                    S32.1F3A                              
029859,001047: 24,2064           05663                                    S32.1F3B                              
029860,001048: 24,2065           77745        FRSTPAS            DLOAD                                          
029861,001049: 24,2066           00001                                    00D                                   
029862,001050: 24,2067           17466                           STODL    GAMPREV                               
029863,001051: 24,2070           03462                                    DELVCSI                               
029864,001052: 24,2071           37470                           STCALL   DVPREV                                
029865,001053: 24,2072           20302                                    CSINEXT3                              
029866,001054: 
029867,001055: 10,2000                                           SETLOC   CSIPROG8                              
029868,001056: 10,2000                                           BANK                                           

Page 672

029870,001058: 
029871,001059: 10,2302           43025        CSINEXT3           DSU      CLEAR                                 
029872,001060: 10,2303           03464                                    DELDV                                 
029873,001061: 10,2304           05661                                    S32.1F2                               
029874,001062: 10,2305           37462                           STCALL   DELVCSI                               
029875,001063: 10,2306           15756                                    CSI/B1                                
029876,001064: 10,2307           43014        THRDCHK            BON      BON                                   
029877,001065: 10,2310           05702                                    S32.1F3A                              
029878,001066: 10,2311           20333                                    NEWTN                                 
029879,001067: 10,2312           05703                                    S32.1F3B                              
029880,001068: 10,2313           20333                                    NEWTN                                 
029881,001069: 10,2314           75345        FIFTYFPS           DLOAD    SIGN                                  
029882,001070: 10,2315           15701                                    FIFPSDP                               
029883,001071: 10,2316           00005                                    04D                                   
029884,001072: 10,2317           77765                           SIGN                                           
029885,001073: 10,2320           03466                                    GAMPREV                               
029886,001074: 10,2321           03464                           STORE    DELDV                                 
029887,001075: 10,2322           43276                           DCOMP    DAD                                   
029888,001076: 10,2323           03462                                    DELVCSI                               
029889,001077: 10,2324           17462                           STODL    DELVCSI                               
029890,001078: 10,2325           00001                                    00D                                   
029891,001079: 10,2326           43014                           SET      SET                                   
029892,001080: 10,2327           05463                                    S32.1F3B                              
029893,001081: 10,2330           05462                                    S32.1F3A                              
029894,001082: 10,2331           37466                           STCALL   GAMPREV                               
029895,001083: 10,2332           24013                                    CSI/B2                                
029896,001084: 10,2333           60345        NEWTN              DLOAD    NORM                                  
029897,001085: 10,2334           00005                                    04D                                   
029898,001086: 10,2335           00050                                    X2                                    
029899,001087: 10,2336           54065                           BDDV     XSU,1                                 
029900,001088: 10,2337           00001                                    00D                                   
029901,001089: 10,2340           00047                                    X2                                    
029902,001090: 10,2341           77657                           SR*                                            
029903,001091: 10,2342           20601                                    0,1                                   
029904,001092: 10,2343           17464                           STODL    DELDV                                 
029905,001093: 10,2344           00001                                    00D                                   
029906,001094: 10,2345           03466                           STORE    GAMPREV                               
029907,001095: 10,2346           51545                           DLOAD    ABS                                   
029908,001096: 10,2347           03464                                    DELDV                                 
029909,001097: 10,2350           45206                           PUSH     DSU                                   #                                        PL08D
029910,001098: 10,2351           15677                                    EPSILN1                               
029911,001099: 10,2352           71240                           BMN      DLOAD                                 
029912,001100: 10,2353           20370                                    CSI/SOL                               
029913,001101: 10,2354           50025                           DSU      BMN                                   
029914,001102: 10,2355           15703                                    DELMAX1                               
029915,001103: 10,2356           20363                                    CSISTEP                               
029916,001104: 10,2357           75345                           DLOAD    SIGN                                  
029917,001105: 10,2360           15703                                    DELMAX1                               
029918,001106: 10,2361           03464                                    DELDV                                 
029919,001107: 10,2362           03464                           STORE    DELDV                                 
029920,001108: 10,2363           45345        CSISTEP            DLOAD    DSU                                   

Page 673

029922,001110: 10,2364           03462                                    DELVCSI                               
029923,001111: 10,2365           03464                                    DELDV                                 
029924,001112: 10,2366           37462                           STCALL   DELVCSI                               
029925,001113: 10,2367           15756                                    CSI/B1                                
029926,001114: 10,2370           77145        CSI/SOL            DLOAD    AXT,2                                 
029927,001115: 10,2371           03460                                    POSTCSI                               
029928,001116: 10,2372           00002                                    2                                     
029929,001117: 10,2373           52150                           LXA,1    GOTO                                  
029930,001118: 10,2374           03745                                    RTX1                                  
029931,001119: 10,2375           63610                                    CSINEXT4                              
029932,001120: 
029933,001121: 31,2000                                           SETLOC   CSIPROG9                              
029934,001122: 31,2000                                           BANK                                           
029935,001123: 
029936,001124: 31,3610           50023        CSINEXT4           DSU*     BMN                                   
029937,001125: 31,3611           33444                                    PMINE      -2,1                       
029938,001126: 31,3612           63642                                    SCNDSOL                               
029939,001127: 31,3613           71374                           AXT,2    DLOAD                                 
029940,001128: 31,3614           00003                                    3                                     
029941,001129: 31,3615           03472                                    POSTCDH                               
029942,001130: 31,3616           50023                           DSU*     BMN                                   
029943,001131: 31,3617           33444                                    PMINE      -2,1                       
029944,001132: 31,3620           63642                                    SCNDSOL                               
029945,001133: 31,3621           45345                           DLOAD    DSU                                   
029946,001134: 31,3622           02635                                    TCDH                                  
029947,001135: 31,3623           02637                                    TCSI                                  
029948,001136: 31,3624           02547                           STORE    T1TOT2                                
029949,001137: 31,3625           45374                           AXT,2    DSU                                   
029950,001138: 31,3626           00004                                    4                                     
029951,001139: 31,3627           36146                                    600SEC                                
029952,001140: 31,3630           77040                           BMN      AXT,2                                 
029953,001141: 31,3631           63642                                    SCNDSOL                               
029954,001142: 31,3632           00005                                    5                                     
029955,001143: 31,3633           45345                           DLOAD    DSU                                   
029956,001144: 31,3634           03663                                    TTPI                                  
029957,001145: 31,3635           02635                                    TCDH                                  
029958,001146: 31,3636           03656                           STORE    T2TOT3                                
029959,001147: 31,3637           51025                           DSU      BPL                                   
029960,001148: 31,3640           36146                                    600SEC                                
029961,001149: 31,3641           11400                                    P32/P72C                              
029962,001150: 31,3642           43014        SCNDSOL            BON      BOFF                                  
029963,001151: 31,3643           05702                                    S32.1F3A                              
029964,001152: 31,3644           11316                                    ALMXIT                                
029965,001153: 31,3645           05743                                    S32.1F3B                              
029966,001154: 31,3646           11316                                    ALMXIT                                
029967,001155: 31,3647           71334                           SXA,2    DLOAD                                 
029968,001156: 31,3650           03664                                    CSIALRM                               
029969,001157: 31,3651           15335                                    ZEROVECS                              
029970,001158: 31,3652           43014                           CLEAR    SET                                   
029971,001159: 31,3653           05660                                    S32.1F1                               

Page 674

029973,001161: 31,3654           05461                                    S32.1F2                               
029974,001162: 31,3655           43014                           CLEAR    CLEAR                                 
029975,001163: 31,3656           05662                                    S32.1F3A                              
029976,001164: 31,3657           05663                                    S32.1F3B                              
029977,001165: 31,3660           37764                           STCALL   LOOPCT                                
029978,001166: 31,3661           15716                                    CSI/B                                 
029979,001167: 

Page 675

029981,001169:                                                                                                  #  ***** ADVANCE *****
029982,001170: 
029983,001171:                                                                                                  #  SUBROUTINES USED
029984,001172:                                                                                                  #        PRECSET
029985,001173:                                                                                                  #        ROTATE
029986,001174: 
029987,001175: 37,2000                                           SETLOC   CDHTAG3                               
029988,001176: 37,2000                                           BANK                                           
029989,001177: 
029990,001178: 37,2645           71220        ADVANCE            STQ      DLOAD                                 
029991,001179: 37,2646           02370                                    SUBEXIT                               
029992,001180: 37,2647           03413                                    TIG                                   
029993,001181: 37,2650           34041                           STCALL   TDEC1                                 
029994,001182: 37,2651           45215                                    PRECSET                               
029995,001183: 37,2652           77214                           SET      VLOAD                                 
029996,001184: 37,2653           01067                                    XDELVFLG                              
029997,001185: 37,2654           03562                                    VPASS3                                
029998,001186: 37,2655           02617                           STORE    VPASS2                                
029999,001187: 37,2656           27512                           STOVL    VPASS1                                
030000,001188: 37,2657           03554                                    RPASS3                                
030001,001189: 37,2660           02625                           STORE    RPASS2                                
030002,001190: 37,2661           03756                           STORE    RPASS1                                
030003,001191: 37,2662           47256                           UNIT     VXV                                   
030004,001192: 37,2663           03512                                    VPASS1                                
030005,001193: 37,2664           77656                           UNIT                                           
030006,001194: 37,2665           26611                           STOVL    UP1                                   
030007,001195: 37,2666           03540                                    RACT3                                 
030008,001196: 37,2667           37632                           STCALL   RTIG                                  
030009,001197: 37,2670           13220                                    ROTATE                                
030010,001198: 37,2671           02453                           STORE    RACT2                                 
030011,001199: 37,2672           26541                           STOVL    RACT1                                 
030012,001200: 37,2673           03546                                    VACT3                                 
030013,001201: 37,2674           37640                           STCALL   VTIG                                  
030014,001202: 37,2675           13220                                    ROTATE                                
030015,001203: 37,2676           02533                           STORE    VACT2                                 
030016,001204: 37,2677           37504                           STCALL   VACT1                                 
030017,001205: 37,2700           02370                                    SUBEXIT                               
030018,001206: 

Page 676

030020,001208:                                                                                                  #  ***** ROTATE *****
030021,001209: 
030022,001210: 05,2000                                           SETLOC   CDHTAG                                
030023,001211: 05,2000                                           BANK                                           
030024,001212: 
030025,001213: 05,3220           41406        ROTATE             PUSH     PUSH                                  
030026,001214: 05,3221           74241                           DOT      VXSC                                  
030027,001215: 05,3222           02611                                    UP1                                   
030028,001216: 05,3223           02611                                    UP1                                   
030029,001217: 05,3224           51352                           VSL2     BVSU                                  
030030,001218: 05,3225           63256                           UNIT     PDVL                                  
030031,001219: 05,3226           74246                           ABVAL    VXSC                                  
030032,001220: 05,3227           43572                           VSL1     RVQ                                   
030033,001221: 

Page 677

030035,001223:                                                                                                  #  ***** INTINTNA *****
030036,001224: 
030037,001225: 31,2000                                           SETLOC   CDHTAG2                               
030038,001226: 31,2000                                           BANK                                           
030039,001227: 
030040,001228: 31,3662           65325        INTINT2C           PDDL     PDDL                                  
030041,001229: 31,3663           02637                                    TCSI                                  
030042,001230: 31,3664           02635                                    TCDH                                  
030043,001231: 31,3665           41525                           PDDL     PUSH                                  
030044,001232: 31,3666           33107                                    TWOPI                                 
030045,001233: 31,3667           77650                           GOTO                                           
030046,001234: 31,3670           72705                                    INTINT                                
030047,001235: 31,3671           65325        INTINT3P           PDDL     PDDL                                  
030048,001236: 31,3672           02635                                    TCDH                                  
030049,001237: 31,3673           03663                                    TTPI                                  
030050,001238: 31,3674           41525                           PDDL     PUSH                                  
030051,001239: 31,3675           15335                                    ZEROVECS                              
030052,001240: 31,3676           77650                           GOTO                                           
030053,001241: 31,3677           72705                                    INTINT                                
030054,001242: 

Page 678

030056,001244:                                                                                                  #  ***** S32/33.1 *****
030057,001245: 
030058,001246:                                                                                                  #  SUBROUTINES USED
030059,001247:                                                                                                  #        S32/33.X
030060,001248: 
030061,001249: 35,2000                                           SETLOC   CSI/CDH                               
030062,001250: 35,2000                                           BANK                                           
030063,001251: 
030064,001252: 35,3457           76020        S32/33.1           STQ      AXT,1                                 
030065,001253: 35,3460           02370                                    SUBEXIT                               
030066,001254: 35,3461           01521                           VN       0681                                  
030067,001255: 35,3462           77624                           CALL                                           
030068,001256: 35,3463           76625                                    DISDVLVC                              
030069,001257: 35,3464           77624                           CALL                                           
030070,001258: 35,3465           26231                                    S32/33.X                              
030071,001259: 35,3466           61375                           VLOAD    VXM                                   
030072,001260: 35,3467           03405                                    DELVLVC                               
030073,001261: 35,3470           00001                                    0D                                    
030074,001262: 35,3471           77772                           VSL1                                           
030075,001263: 35,3472           03646                           STORE    DELVSIN                               
030076,001264: 35,3473           51406                           PUSH     ABVAL                                 
030077,001265: 35,3474           27654                           STOVL    DELVSAB                               
030078,001266: 35,3475           77650                           GOTO                                           
030079,001267: 35,3476           02370                                    SUBEXIT                               
030080,001268: 

Page 679

030082,001270:                                                                                                  #  ***** S32/33.X *****
030083,001271: 
030084,001272: 13,2000                                           SETLOC   CDHTAGS                               
030085,001273: 13,2000                                           BANK                                           
030086,001274: 
030087,001275: 13,2231           77201        S32/33.X           SETPD    VLOAD                                 
030088,001276: 13,2232           00007                                    6D                                    
030089,001277: 13,2233           02611                                    UP1                                   
030090,001278: 13,2234           63276                           VCOMP    PDVL                                  
030091,001279: 13,2235           02541                                    RACT1                                 
030092,001280: 13,2236           57456                           UNIT     VCOMP                                 
030093,001281: 13,2237           47206                           PUSH     VXV                                   
030094,001282: 13,2240           02611                                    UP1                                   
030095,001283: 13,2241           77772                           VSL1                                           
030096,001284: 13,2242           00001                           STORE    0D                                    
030097,001285: 13,2243           77616                           RVQ                                            
030098,001286: 

Page 680

030100,001288:                                                                                                  #  ***** CDHMVR *****
030101,001289: 
030102,001290:                                                                                                  #  SUBROUTINES USED
030103,001291:                                                                                                  #        VECSHIFT
030104,001292:                                                                                                  #        TIMETHET
030105,001293:                                                                                                  #        SHIFTR1
030106,001294: 
030107,001295: 05,2000                                           SETLOC   CDHTAG                                
030108,001296: 05,2000                                           BANK                                           
030109,001297: 
030110,001298: 05,3230           77220        CDHMVR             STQ      VLOAD                                 
030111,001299: 05,3231           02370                                    SUBEXIT                               
030112,001300: 05,3232           02453                                    RACT2                                 
030113,001301: 05,3233           53406                           PUSH     UNIT                                  
030114,001302: 05,3234           27546                           STOVL    UNVEC                                 #  UR SUB A
030115,001303: 05,3235           02625                                    RPASS2                                
030116,001304: 05,3236           50256                           UNIT     DOT                                   
030117,001305: 05,3237           03546                                    UNVEC                                 
030118,001306: 05,3240           72406                           PUSH     SL1                                   
030119,001307: 05,3241           16734                           STODL    CSTH                                  
030120,001308: 05,3242           65316                           DSQ      PDDL                                  
030121,001309: 05,3243           23756                                    DP1/4                                 
030122,001310: 05,3244           45302                           SR2      DSU                                   
030123,001311: 05,3245           72566                           SQRT     SL1                                   
030124,001312: 05,3246           57515                           PDVL     VCOMP                                 
030125,001313: 05,3247           77635                           VXV                                            
030126,001314: 05,3250           02625                                    RPASS2                                
030127,001315: 05,3251           65241                           DOT      PDDL                                  
030128,001316: 05,3252           02611                                    UP1                                   
030129,001317: 05,3253           45565                           SIGN     STADR                                 
030130,001318: 05,3254           51045                           STOVL    SNTH                                  
030131,001319: 05,3255           02625                                    RPASS2                                
030132,001320: 05,3256           45115                           PDVL     CALL                                  
030133,001321: 05,3257           02617                                    VPASS2                                
030134,001322: 05,3260           45253                                    VECSHIFT                              
030135,001323: 05,3261           26746                           STOVL    VVEC                                  
030136,001324: 05,3262           77614                           CLEAR                                          
030137,001325: 05,3263           03666                                    RVSW                                  
030138,001326: 05,3264           36657                           STCALL   RVEC                                  
030139,001327: 05,3265           24744                                    TIMETHET                              
030140,001328: 05,3266           53754                           LXA,2    VSL*                                  
030141,001329: 05,3267           03746                                    RTX2                                  
030142,001330: 05,3270           57576                                    0,2                                   
030143,001331: 05,3271           00023                           STORE    18D                                   
030144,001332: 05,3272           76441                           DOT      SL1R                                  
030145,001333: 05,3273           03546                                    UNVEC                                 
030146,001334: 05,3274           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
030147,001335: 05,3275           63257                           SL*      PDVL                                  
030148,001336: 05,3276           57576                                    0,2                                   

Page 681

030150,001338: 05,3277           02453                                    RACT2                                 
030151,001339: 05,3300           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
030152,001340: 05,3301           77625                           DSU                                            
030153,001341: 05,3302           00003                                    02D                                   
030154,001342: 05,3303           16633                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
030155,001343: 05,3304           02744                                    R1A                                   
030156,001344: 05,3305           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
030157,001345: 05,3306           00047                                    X1                                    
030158,001346: 05,3307           00041                                    R1                                    
030159,001347: 05,3310           77624                           CALL                                           
030160,001348: 05,3311           45263                                    SHIFTR1                               
030161,001349: 05,3312           56362                           SR1R     DDV                                   
030162,001350: 05,3313           41457                           SL*      PUSH                                  
030163,001351: 05,3314           20174                                    0          -5,1                       
030164,001352: 05,3315           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
030165,001353: 05,3316           02633                                    DIFFALT                               
030166,001354: 05,3317           56302                           SR2      DDV                                   #  A SUB P                       B+31
030167,001355: 05,3320           00005                                    04D                                   #                                B+2
030168,001356: 05,3321           75406                           PUSH     SQRT                                  #  A SUB P/A SUB A                       06D
030169,001357: 05,3322           41275                           DMPR     DMP                                   
030170,001358: 05,3323           00007                                    06D                                   
030171,001359: 05,3324           00001                                    00D                                   
030172,001360: 05,3325           65272                           SL3R     PDDL                                  #  V SUB A V METERS/CS           B+7     08D
030173,001361: 05,3326           00003                                    02D                                   #  R SUB A MAGNITUDE             B+29
030174,001362: 05,3327           65301                           NORM     PDDL                                  
030175,001363: 05,3330           00047                                    X1                                    
030176,001364: 05,3331           03750                                    RTMU                                  
030177,001365: 05,3332           56342                           SR1      DDV                                   #  2MU                           B+38
030178,001366: 05,3333           65257                           SL*      PDDL                                  #  2 MU/R SUBAA                  B+14    10D
030179,001367: 05,3334           20174                                    0          -5,1                       
030180,001368: 05,3335           00005                                    04D                                   #  ASUBA                         B+29
030181,001369: 05,3336           65301                           NORM     PDDL                                  
030182,001370: 05,3337           00050                                    X2                                    
030183,001371: 05,3340           03750                                    RTMU                                  
030184,001372: 05,3341           56342                           SR1      DDV                                   
030185,001373: 05,3342           44257                           SL*      BDSU                                  
030186,001374: 05,3343           57604                                    0          -6,2                       #  2U/R - U/A             B+14 (METERS/CS)SQ
030187,001375: 05,3344           63525                           PDDL     DSQ                                   #                                        10D
030188,001376: 05,3345           00011                                    08D                                   
030189,001377: 05,3346           75421                           BDSU     SQRT                                  
030190,001378: 05,3347           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)  10D
030191,001379: 05,3350           02611                                    UP1                                   
030192,001380: 05,3351           03546                                    UNVEC                                 
030193,001381: 05,3352           74256                           UNIT     VXSC                                  
030194,001382: 05,3353           00013                                    10D                                   
030195,001383: 05,3354           74315                           PDVL     VXSC                                  
030196,001384: 05,3355           03546                                    UNVEC                                 
030197,001385: 05,3356           00011                                    08D                                   
030198,001386: 05,3357           76455                           VAD      VSL1                                  
030199,001387: 05,3360           77626                           STADR                                          

Page 682

030201,001389: 05,3361           74231                           STORE    VACT3                                 
030202,001390: 05,3362           77651                           VSU                                            
030203,001391: 05,3363           02533                                    VACT2                                 
030204,001392: 05,3364           37667                           STCALL   DELVEET2                              #  DELTA VCDH -- REFERENCE COORDINATES
030205,001393: 05,3365           02370                                    SUBEXIT                               
030206,001394: 

Page 683

030208,001396:                                                                                                  #  ***** COMPTGO *****
030209,001397: 
030210,001398:                                                                                                  #  SUBROUTINES USED
030211,001399:                                                                                                  #        CLOKTASK
030212,001400:                                                                                                  #        2PHSCHNG
030213,001401: 
030214,001402: 35,3477                                           BANK     35                                    
030215,001403: 35,2000                                           SETLOC   CSI/CDH                               
030216,001404: 35,2000                                           BANK                                           
030217,001405: 
030218,001406: 35,3477  E4,1767                                  EBANK=   RTRN                                  
030219,001407: 
030220,001408: 35,3477                                           COUNT*   $$/P3575                              
030221,001409: 

End of include-file P32-P33_P72-P73.agc.  Parent file is MAIN.agc