Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

029224,000002:                                                                                                  ## Copyright:   Public domain.
029225,000003:                                                                                                  ## Filename:    P32-P33_P72-P73.agc
029226,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
029227,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
029228,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
029229,000007:                                                                                                  ##              Apollo 15-17.
029230,000008:                                                                                                  ## Assembler:   yaYUL
029231,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
029232,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029233,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
029234,000012:                                                                                                  ## Mod history: 2009-08-12 JL   Adapted from corresponding Comanche 055 file.
029235,000013:                                                                                                  ##              2009-09-04 JL   Fixed a bunch of typos. Fixed page numbers.
029236,000014:                                                                                                  ##              2010-02-07 JL   Removed spurious STORE instruction on p682.
029237,000015:                                                                                                  ##              2010-02-09 JL   Added missing code on p685.
029238,000016:                                                                                                  ##              2010-02-11 JL   Fixed error on p663.
029239,000017:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
029240,000018:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
029241,000019:                                                                                                  ##              2017-02-07 RSB  Proofed comment text by diff'ing vs Comanche 55
029242,000020:                                                                                                  ##                              and corrected errors found.
029243,000021:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116.
029244,000022: 

Page 658

029246,000024: 
029247,000025:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
029248,000026: 
029249,000027:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
029250,000028:                                                                                                  #  MOD BY WHITE.P        DATE 1 JUNE 67
029251,000029: 
029252,000030:                                                                                                  #  PURPOSE
029253,000031: 
029254,000032:                                                                                                  #         (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
029255,000033:                                                                                                  #             CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
029256,000034:                                                                                                  #             INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
029257,000035:                                                                                                  #             (CDH) MANEUVER.
029258,000036: 
029259,000037:                                                                                                  #         (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029260,000038:                                                                                                  #             APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029261,000039: 
029262,000040:                                                                                                  #         (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029263,000041:                                                                                                  #             ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
029264,000042:                                                                                                  #             APPROVAL BY THE ASTRONAUT/GROUND.
029265,000043: 
029266,000044:                                                                                                  #         (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
029267,000045:                                                                                                  #             THRUSTING PROGRAM.
029268,000046: 
029269,000047:                                                                                                  #  ASSUMPTIONS
029270,000048: 
029271,000049:                                                                                                  #         (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
029272,000050:                                                                                                  #             AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
029273,000051:                                                                                                  #             FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
029274,000052:                                                                                                  #             POSITION.
029275,000053: 
029276,000054:                                                                                                  #         (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
029277,000055:                                                                                                  #             COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029278,000056:                                                                                                  #             COMPLETION OF THE PROGRAM.
029279,000057: 
029280,000058:                                                                                                  #         (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
029281,000059:                                                                                                  #             COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029282,000060:                                                                                                  #             COMPLETION OF THE PROGRAM.
029283,000061: 
029284,000062:                                                                                                  #         (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
029285,000063:                                                                                                  #             ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
029286,000064: 
029287,000065:                                                                                                  #         (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
029288,000066:                                                                                                  #             HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
029289,000067:                                                                                                  #             IGNITION.
029290,000068: 
029291,000069:                                                                                                  #         (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
029292,000070:                                                                                                  #             MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
029293,000071:                                                                                                  #             ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
029294,000072: 
029295,000073:                                                                                                  #         (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
029296,000074:                                                                                                  #             PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW

Page 659

029298,000076:                                                                                                  #             MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
029299,000077:                                                                                                  #             OUT-OF-PLANE CSI MANEUVER.
029300,000078: 
029301,000079:                                                                                                  #         (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029302,000080:                                                                                                  #             STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
029303,000081: 
029304,000082:                                                                                                  #         (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029305,000083:                                                                                                  #             THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029306,000084:                                                                                                  #             ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029307,000085:                                                                                                  #             EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029308,000086: 
029309,000087:                                                                                                  #        (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029310,000088:                                                                                                  #             OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029311,000089:                                                                                                  #             DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029312,000090:                                                                                                  #             PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029313,000091:                                                                                                  #             AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029314,000092:                                                                                                  #             TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029315,000093:                                                                                                  #             MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029316,000094:                                                                                                  #             THRUSTING MANEUVER.
029317,000095: 
029318,000096:                                                                                                  #        (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029319,000097: 
029320,000098:                                                                                                  #        (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029321,000099: 
029322,000100:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029323,000101:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029324,000102:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029325,000103:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029326,000104: 
029327,000105:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029328,000106:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029329,000107:                                                                                                  #                CYCLE.
029330,000108: 
029331,000109:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029332,000110:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029333,000111:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029334,000112:                                                                                                  #                PROGRAM.
029335,000113: 
029336,000114:                                                                                                  #        (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029337,000115:                                                                                                  #             A THRUSTING MANEUVER.
029338,000116: 
029339,000117:                                                                                                  #        (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029340,000118: 
029341,000119:                                                                                                  #                P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
029342,000120: 
029343,000121:                                                                                                  #                P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
029344,000122: 
029345,000123:                                                                                                  #  INPUT
029346,000124: 
029347,000125:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER

Page 660

029349,000127:                                                                                                  #        (2)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029350,000128:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029351,000129:                                                                                                  #                                MANEUVER POINT
029352,000130:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
029353,000131:                                                                                                  #        (4)     TTPI            TIME OF THE TPI MANEUVER
029354,000132: 
029355,000133:                                                                                                  #  OUTPUT
029356,000134: 
029357,000135:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
029358,000136:                                                                                                  #        (2)     TTOGO           TIME TO GO
029359,000137:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
029360,000138:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
029361,000139:                                                                                                  #        (5)     T1TOT2          DELTA TIME FROM CSI TO CDH
029362,000140:                                                                                                  #        (6)     T2TOT3          DELTA TIME FROM CDH TO TPI
029363,000141:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
029364,000142:                                                                                                  #        (8)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029365,000143: 
029366,000144:                                                                                                  #  DOWNLINK
029367,000145: 
029368,000146:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
029369,000147:                                                                                                  #        (2)     TCDH            TIME OF THE CDH MANEUVER
029370,000148:                                                                                                  #        (3)     TTPI            TIME OF THE TPI MANEUVER
029371,000149:                                                                                                  #        (4)     TIG             TIME OF THE CSI MANEUVER
029372,000150:                                                                                                  #        (5)     DELVEET1        DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029373,000151:                                                                                                  #        (6)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029374,000152:                                                                                                  #        (7)     DIFFALT         DELTA ALTITUDE AT CDH
029375,000153:                                                                                                  #        (8)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029376,000154:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029377,000155:                                                                                                  #                                MANEUVER POINT
029378,000156:                                                                                                  #        (9)     ELEV            DESIRED LOS ANGLE AT TPI
029379,000157: 
029380,000158:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029381,000159: 
029382,000160:                                                                                                  #        (1)     TIG             TIME OF THE CSI MANEUVER
029383,000161:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
029384,000162:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
029385,000163:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
029386,000164:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
029387,000165:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029388,000166:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CSI
029389,000167:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029390,000168: 
029391,000169:                                                                                                  #  SUBROUTINES USED
029392,000170: 
029393,000171:                                                                                                  #        AVFLAGA
029394,000172:                                                                                                  #        AVFLAGP
029395,000173:                                                                                                  #        P20FLGON
029396,000174:                                                                                                  #        VARALARM
029397,000175:                                                                                                  #        BANKCALL
029398,000176:                                                                                                  #        GOFLASH
029399,000177:                                                                                                  #        GOTOPOOH

Page 661

029401,000179:                                                                                                  #        VNPOOH
029402,000180:                                                                                                  #        GOFLASHR
029403,000181:                                                                                                  #        BLANKET
029404,000182:                                                                                                  #        ENDOFJOB
029405,000183:                                                                                                  #        SELECTMU
029406,000184:                                                                                                  #        ADVANCE
029407,000185:                                                                                                  #        INTINT
029408,000186:                                                                                                  #        PASSIVE
029409,000187:                                                                                                  #        CSI/A
029410,000188:                                                                                                  #        S32/33.1
029411,000189:                                                                                                  #        DISDVLVC
029412,000190:                                                                                                  #        VN1645
029413,000191: 
029414,000192: 04,2000                                           SETLOC   CSI/CDH1                              
029415,000193: 04,2000                                           BANK                                           
029416,000194: 04,3403  E4,1760                                  EBANK=   SUBEXIT                               
029417,000195: 04,3403                                           COUNT*   $$/P3272                              
029418,000196: 04,3403           04553        P32                TC       AVFLAGA                               
029419,000197: 04,3404           03424                           TC       P32/P72A                              
029420,000198: 
029421,000199: 04,3405           04565        P72                TC       AVFLAGP                               
029422,000200: 04,3406           03424                           TC       P32/P72A                              
029423,000201: 04,3407           77734        ALMXITA            SXA,2                                          
029424,000202: 04,3410           03664                                    CSIALRM                               
029425,000203: 04,3411           77740        ALMXIT             LXC,1                                          
029426,000204: 04,3412           03664                                    CSIALRM                               
029427,000205: 04,3413           77533                           SLOAD*   EXIT                                  
029428,000206: 04,3414           13270                                    ALARM/TB   -1,1                       
029429,000207: 04,3415           30154                           CA       MPAC                                  
029430,000208: 04,3416           05770                           TC       VARALARM                              
029431,000209: 04,3417           35023                           CAF      V05N09                                
029432,000210: 04,3420           04636                           TC       BANKCALL                              
029433,000211: 04,3421           20743                           CADR     GOFLASH                               
029434,000212: 04,3422           04103                           TC       GOTOPOOH                              
029435,000213: 04,3423           03417                           TC       -4                                    
029436,000214: 04,3424           04572        P32/P72A           TC       P20FLGON                              
029437,000215: 04,3425           06006                           TC       INTPRET                               
029438,000216: 04,3426           45014                           BON      CALL                                  
029439,000217: 04,3427           05710                                    HAFLAG                                
029440,000218: 04,3430           11306                                    P31ALMRT                              
029441,000219: 04,3431           11546                                    INPUTDSP                              
029442,000220: 04,3432           71214                           CLEAR    DLOAD                                 
029443,000221: 04,3433           05671                                    CSISFLAG                              
029444,000222: 04,3434           02463                                    TCSI                                  
029445,000223: 04,3435           37413                           STCALL   TIG                                   
029446,000224: 04,3436           11217                                    SELECTMU                              
029447,000225: 04,3437           77745        P32/P72B           DLOAD                                          
029448,000226: 04,3440           03413                                    TIG                                   
029449,000227: 04,3441           77624        P31ENT             CALL                                           
029450,000228: 04,3442           76560                                    ADVANCE                               

Page 662

029452,000230: 04,3443           77201                           SETPD    VLOAD                                 
029453,000231: 04,3444           00001                                    0D                                    
029454,000232: 04,3445           03512                                    VPASS1                                
029455,000233: 04,3446           65315                           PDVL     PDDL                                  
029456,000234: 04,3447           03756                                    RPASS1                                
029457,000235: 04,3450           02463                                    TCSI                                  
029458,000236: 04,3451           65325                           PDDL     PDDL                                  
029459,000237: 04,3452           03663                                    TTPI                                  
029460,000238: 04,3453           33430                                    2PISC                                 
029461,000239: 04,3454           41512                           SL2      PUSH                                  
029462,000240: 04,3455           77624                           CALL                                           
029463,000241: 04,3456           72740                                    INTINT                                
029464,000242: 04,3457           77624                           CALL                                           
029465,000243: 04,3460           45314                                    PASSIVE                               
029466,000244: 04,3461           77624                           CALL                                           
029467,000245: 04,3462           15672                                    CSI/A                                 
029468,000246: 04,3463           43214        P32/P72C           BONCLR   DAD                                   
029469,000247: 04,3464           05610                                    HAFLAG                                
029470,000248: 04,3465           11357                                    P31RT                                 
029471,000249: 04,3466           26731                                    600SECS                               
029472,000250: 04,3467           03656                           STORE    T2TOT3                                
029473,000251: 
029474,000252: 04,3470           43014                           BON      SET                                   
029475,000253: 04,3471           01311                                    FINALFLG                              
029476,000254: 04,3472           11474                                    P32/P72D                              
029477,000255: 04,3473           00470                                    UPDATFLG                              
029478,000256: 04,3474           77745        P32/P72D           DLOAD                                          
029479,000257: 04,3475           02547                                    T1TOT2                                
029480,000258: 04,3476           02547        P32/P72E           STORE    T1TOT2                                
029481,000259: 04,3477           51025                           DSU      BPL                                   
029482,000260: 04,3500           13267                                    60MIN                                 
029483,000261: 04,3501           11476                                    P32/P72E                              
029484,000262: 04,3502           77745                           DLOAD                                          
029485,000263: 04,3503           03656                                    T2TOT3                                
029486,000264: 04,3504           03656        P32/P72F           STORE    T2TOT3                                
029487,000265: 04,3505           51025                           DSU      BPL                                   
029488,000266: 04,3506           13267                                    60MIN                                 
029489,000267: 04,3507           11504                                    P32/P72F                              
029490,000268: 04,3510           77414                           BON      EXIT                                  #  BYPASS N75 IN MINKEY
029491,000269: 04,3511           05310                                    AUTOSEQ                               
029492,000270: 04,3512           11516                                    PASS75                                
029493,000271: 
029494,000272: 04,3513           34605                           CAF      V06N75                                
029495,000273: 04,3514           05535                           TC       VNFLASH                               
029496,000274: 04,3515           06006                           TC       INTPRET                               
029497,000275: 04,3516           77624        PASS75             CALL                                           
029498,000276: 04,3517           76537                                    DISDVLVC                              #  ROTATE TO LV, DISP N90, ROTATE TO REF
029499,000277: 04,3520           77775                           VLOAD                                          
029500,000278: 04,3521           02453                                    RACT2                                 
029501,000279: 04,3522           36541                           STCALL   RACT1                                 

Page 663

029503,000281: 04,3523           32050                                    S32/33.X                              #  GET REF/LV MATRIX AT 0D
029504,000282: 04,3524           64375                           VLOAD    MXV                                   
029505,000283: 04,3525           03667                                    DELVEET2                              
029506,000284: 04,3526           00001                                    0D                                    
029507,000285: 04,3527           77772                           VSL1                                           
029508,000286: 04,3530           03540                           STORE    DELVOV                                #  LV FOR N 82 DISPLAY
029509,000287: 04,3531           77414                           BON      EXIT                                  
029510,000288: 04,3532           05310                                    AUTOSEQ                               
029511,000289: 04,3533           11537                                    PASS82                                
029512,000290: 04,3534           33545                           CAF      V06N82                                
029513,000291: 04,3535           05535                           TC       VNFLASH                               
029514,000292: 04,3536           06006                           TC       INTPRET                               
029515,000293: 04,3537           77745        PASS82             DLOAD                                          
029516,000294: 04,3540           03663                                    TTPI                                  
029517,000295: 04,3541           36465                           STCALL   TTPI0                                 
029518,000296: 04,3542           73027                                    VN1645                                
029519,000297: 04,3543           77650                           GOTO                                           
029520,000298: 04,3544           11437                                    P32/P72B                              
029521,000299: 04,3545           01522        V06N82             VN       0682                                  
029522,000300: 
029523,000301: 04,3546  15,3432               HIGH1              EQUALS   ONEBIT     +1                         
029524,000302: 
029525,000303: 04,3546           71220        INPUTDSP           STQ      DLOAD                                 
029526,000304: 04,3547           02551                                    N90RET                                
029527,000305: 04,3550           11400                                    130DEGLO                              
029528,000306: 04,3551           17754                           STODL    CENTANG                               
029529,000307: 04,3552           11402                                    208DEGLO                              
029530,000308: 04,3553           03744                           STORE    ELEV                                  
029531,000309: 04,3554           67214                           BON      SLOAD                                 
029532,000310: 04,3555           05711                                    CSISFLAG                              
029533,000311: 04,3556           11561                                    PASSNN                                
029534,000312: 04,3557           33433                                    HIGH1                                 
029535,000313: 04,3560           03766                           STORE    NN                                    
029536,000314: 04,3561           77776        PASSNN             EXIT                                           
029537,000315: 04,3562           34603                           CAF      V06N11                                
029538,000316: 04,3563           05535                           TC       VNFLASH                               
029539,000317: 04,3564           34533                           CAF      V06N55                                
029540,000318: 04,3565           05535                           TC       VNFLASH                               
029541,000319: 04,3566           34532                           CAF      V06N37                                
029542,000320: 04,3567           05535                           TC       VNFLASH                               
029543,000321: 04,3570           06006                           TC       INTPRET                               
029544,000322: 04,3571           77650                           GOTO                                           
029545,000323: 04,3572           02551                                    N90RET                                
029546,000324: 

Page 664

029548,000326:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
029549,000327:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
029550,000328:                                                                                                  #  MOD BY WHITE.P        DATE  1 JUNE 67
029551,000329: 
029552,000330:                                                                                                  #  PURPOSE
029553,000331: 
029554,000332:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
029555,000333:                                                                                                  #            ALTITUDE MANEUVER (CDH).
029556,000334: 
029557,000335:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029558,000336:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029559,000337: 
029560,000338:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029561,000339:                                                                                                  #            ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
029562,000340:                                                                                                  #            ASTRONAUT/GROUND.
029563,000341: 
029564,000342:                                                                                                  #        (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
029565,000343:                                                                                                  #            THRUSTING PROGRAM.
029566,000344: 
029567,000345:                                                                                                  #  ASSUMPTIONS
029568,000346: 
029569,000347:                                                                                                  #        (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
029570,000348:                                                                                                  #            CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
029571,000349:                                                                                                  #            THERFORE -
029572,000350: 
029573,000351:                                                                                                  #                (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029574,000352:                                                                                                  #                    BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029575,000353:                                                                                                  #                    A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029576,000354:                                                                                                  #                    HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029577,000355: 
029578,000356:                                                                                                  #                (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
029579,000357:                                                                                                  #                    COMPUTED TO BE GREATER THAN 10 MINUTES.
029580,000358: 
029581,000359:                                                                                                  #                (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029582,000360:                                                                                                  #                    COMPUTED TO BE GREATER THAN 10 MINUTES.
029583,000361: 
029584,000362:                                                                                                  #                (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029585,000363:                                                                                                  #                    ORBITS WAS MINMIZED.
029586,000364: 
029587,000365:                                                                                                  #                (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
029588,000366:                                                                                                  #                    IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
029589,000367:                                                                                                  #                    POSITION AT CSI IGNITION.
029590,000368: 
029591,000369:                                                                                                  #                (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
029592,000370:                                                                                                  #                    CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
029593,000371:                                                                                                  #                    ORBIT OR 85 NM FOR EARTH ORBIT.
029594,000372: 
029595,000373:                                                                                                  #                (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029596,000374:                                                                                                  #                    THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW

Page 665

029598,000376:                                                                                                  #                    MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029599,000377:                                                                                                  #                    IN AN OUT-OF-PLANE MANEUVER.
029600,000378: 
029601,000379:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029602,000380:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
029603,000381: 
029604,000382:                                                                                                  #        (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029605,000383:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
029606,000384:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029607,000385:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029608,000386: 
029609,000387:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029610,000388:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029611,000389:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029612,000390:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029613,000391:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029614,000392:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029615,000393:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029616,000394:                                                                                                  #            THRUSTING MANEUVER.
029617,000395: 
029618,000396:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029619,000397: 
029620,000398:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029621,000399: 
029622,000400:                                                                                                  #                ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029623,000401:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029624,000402:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029625,000403:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029626,000404: 
029627,000405:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029628,000406:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029629,000407:                                                                                                  #                CYCLE.
029630,000408: 
029631,000409:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029632,000410:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029633,000411:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029634,000412:                                                                                                  #                PROGRAM.
029635,000413: 
029636,000414:                                                                                                  #        (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029637,000415:                                                                                                  #            A THRUSTING MANEUVER.
029638,000416: 
029639,000417:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029640,000418: 
029641,000419:                                                                                                  #                P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
029642,000420: 
029643,000421:                                                                                                  #                P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
029644,000422: 
029645,000423:                                                                                                  #  INPUT
029646,000424: 
029647,000425:                                                                                                  #        (1) TTPI0       TIME OF THE TPI MANEUVER - SAVED FROM P32/P72

Page 666

029649,000427:                                                                                                  #        (2) ELEV        DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
029650,000428:                                                                                                  #        (3) TCDH        TIME OF THE CDH MANEUVER
029651,000429: 
029652,000430:                                                                                                  #  OUTPUT
029653,000431: 
029654,000432:                                                                                                  #        (1) TRKMKCNT    NUMBER OF MARKS
029655,000433:                                                                                                  #        (2) TTOGO       TIME TO GO
029656,000434:                                                                                                  #        (3) +MGA        MIDDLE GIMBAL ANGLE
029657,000435:                                                                                                  #        (4) DIFFALT     DELTA ALTITUDE AT CDH
029658,000436:                                                                                                  #        (5) T2TOT3      DELTA TIME FROM CDH TO COMPUTED TPI
029659,000437:                                                                                                  #        (6) NOMTPI      DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
029660,000438:                                                                                                  #        (7) DELVLVC     DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029661,000439: 
029662,000440:                                                                                                  #  DOWNLINK
029663,000441: 
029664,000442:                                                                                                  #        (1) TCDH        TIME OF THE CDH MANEUVER
029665,000443:                                                                                                  #        (2) TTPI        TIME OF THE TPI MANEUVER
029666,000444:                                                                                                  #        (3) TIG         TIME OF THE CDH MANEUVER
029667,000445:                                                                                                  #        (4) DELVEET2    DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029668,000446:                                                                                                  #        (5) DIFFALT     DELTA ALTITUDE AT CDH
029669,000447:                                                                                                  #        (6) ELEV        DESIRED LOS ANGLE AT TPI
029670,000448: 
029671,000449:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029672,000450: 
029673,000451:                                                                                                  #        (1) TIG         TIME OF THE CDH MANEUVER
029674,000452:                                                                                                  #        (2) RTIG        POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029675,000453:                                                                                                  #                        INTO PLANE OF PASSIVE VEHICLE
029676,000454:                                                                                                  #        (3) VTIG        VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029677,000455:                                                                                                  #                        INTO PLANE OF PASSIVE VEHICLE
029678,000456:                                                                                                  #        (4) DELVSIN     DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029679,000457:                                                                                                  #        (5) DELVSAB     MAGNITUDE OF DELTA VELOCITY AT CDH
029680,000458:                                                                                                  #        (6) XDELVFLG    SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029681,000459: 
029682,000460:                                                                                                  #  SUBROUTINES USED
029683,000461: 
029684,000462:                                                                                                  #        AVFLAGA
029685,000463:                                                                                                  #        AVFLAGP
029686,000464:                                                                                                  #        P20FLGON
029687,000465:                                                                                                  #        VNPOOH
029688,000466:                                                                                                  #        SELECTMU
029689,000467:                                                                                                  #        ADVANCE
029690,000468:                                                                                                  #        CDHMVR
029691,000469:                                                                                                  #        INTINT3P
029692,000470:                                                                                                  #        ACTIVE
029693,000471:                                                                                                  #        PASSIVE
029694,000472:                                                                                                  #        S33/34.1
029695,000473:                                                                                                  #        ALARM
029696,000474:                                                                                                  #        BANKCALL
029697,000475:                                                                                                  #        GOFLASH
029698,000476:                                                                                                  #        GOTOPOOH
029699,000477:                                                                                                  #        S32/33.1

Page 667

029701,000479:                                                                                                  #        VN1645
029702,000480: 
029703,000481: 04,3573                                           COUNT*   $$/P3373                              
029704,000482: 04,3573           04553        P33                TC       AVFLAGA                               
029705,000483: 04,3574           03576                           TC       P33/P73A                              
029706,000484: 04,3575           04565        P73                TC       AVFLAGP                               
029707,000485: 04,3576           04572        P33/P73A           TC       P20FLGON                              
029708,000486: 04,3577           34604                           CAF      V06N13                                #  TCDH
029709,000487: 04,3600           05535                           TC       VNFLASH                               
029710,000488: 04,3601           06006                           TC       INTPRET                               
029711,000489: 04,3602           77745                           DLOAD                                          
029712,000490: 04,3603           02465                                    TTPI0                                 
029713,000491: 04,3604           17663                           STODL    TTPI                                  
029714,000492: 04,3605           02461                                    TCDH                                  
029715,000493: 04,3606           37413                           STCALL   TIG                                   
029716,000494: 04,3607           11217                                    SELECTMU                              
029717,000495: 04,3610           45145        P33/P73B           DLOAD    CALL                                  
029718,000496: 04,3611           03413                                    TIG                                   
029719,000497: 04,3612           76560                                    ADVANCE                               
029720,000498: 04,3613           77624                           CALL                                           
029721,000499: 04,3614           56674                                    CDHMVR                                
029722,000500: 04,3615           02445                           STORE    DELVEET1                              #  CDH DV TO USE DISDVLVC SUB FOR N81 DISP
029723,000501: 04,3616           77201                           SETPD    VLOAD                                 
029724,000502: 04,3617           00001                                    0D                                    
029725,000503: 04,3620           03546                                    VACT3                                 
029726,000504: 04,3621           45115                           PDVL     CALL                                  
029727,000505: 04,3622           02453                                    RACT2                                 
029728,000506: 04,3623           63615                                    INTINT3P                              
029729,000507: 04,3624           77624                           CALL                                           
029730,000508: 04,3625           45304                                    ACTIVE                                
029731,000509: 04,3626           77201                           SETPD    VLOAD                                 
029732,000510: 04,3627           00001                                    0D                                    
029733,000511: 04,3630           02617                                    VPASS2                                
029734,000512: 04,3631           45115                           PDVL     CALL                                  
029735,000513: 04,3632           02625                                    RPASS2                                
029736,000514: 04,3633           63615                                    INTINT3P                              
029737,000515: 04,3634           77624                           CALL                                           
029738,000516: 04,3635           45314                                    PASSIVE                               
029739,000517: 04,3636           43145                           DLOAD    SET                                   
029740,000518: 04,3637           11762                                    ZEROVEC                               
029741,000519: 04,3640           03461                                    ITSWICH                               
029742,000520: 04,3641           36355                           STCALL   NOMTPI                                
029743,000521: 04,3642           72251                                    S33/34.1                              
029744,000522: 04,3643           77454                           BZE      EXIT                                  
029745,000523: 04,3644           24035                                    P33/P73C                              
029746,000524: 04,3645           05671                           TC       ALARM                                 
029747,000525: 04,3646           00611                           OCT      611                                   
029748,000526: 04,3647           35023                           CAF      V05N09                                
029749,000527: 04,3650           04636                           TC       BANKCALL                              
029750,000528: 04,3651           20743                           CADR     GOFLASH                               

Page 668

029752,000530: 04,3652           04103                           TC       GOTOPOOH                              
029753,000531: 04,3653           03655                           TC       +2                                    
029754,000532: 04,3654           03576                           TC       P33/P73A                              
029755,000533: 04,3655           06006                           TC       INTPRET                               
029756,000534: 04,3656           77745                           DLOAD                                          
029757,000535: 04,3657           11762                                    ZEROVEC                               
029758,000536: 04,3660           36355                           STCALL   NOMTPI                                
029759,000537: 04,3661           24035                                    P33/P73C                              
029760,000538: 12,2000                                           SETLOC   CSI/CDH2                              
029761,000539: 12,2000                                           BANK                                           
029762,000540: 
029763,000541: 12,2035                                           COUNT*   $$/P3373                              
029764,000542: 12,2035           43014        P33/P73C           BON      SET                                   
029765,000543: 12,2036           01311                                    FINALFLG                              
029766,000544: 12,2037           24041                                    P33/P73D                              
029767,000545: 12,2040           00470                                    UPDATFLG                              
029768,000546: 12,2041           43345        P33/P73D           DLOAD    DAD                                   
029769,000547: 12,2042           02355                                    NOMTPI                                
029770,000548: 12,2043           03663                                    TTPI                                  
029771,000549: 12,2044           03663                           STORE    TTPI                                  
029772,000550: 12,2045           52025                           DSU      GOTO                                  
029773,000551: 12,2046           02461                                    TCDH                                  
029774,000552: 12,2047           11662                                    P33/P73E                              
029775,000553: 04,2000                                           SETLOC   CSI/CDH1                              
029776,000554: 04,2000                                           BANK                                           
029777,000555: 
029778,000556: 04,3662                                           COUNT*   $$/P3373                              
029779,000557: 04,3662           51025        P33/P73E           DSU      BPL                                   
029780,000558: 04,3663           13267                                    60MIN                                 
029781,000559: 04,3664           11662                                    P33/P73E                              
029782,000560: 04,3665           77615                           DAD                                            
029783,000561: 04,3666           13267                                    60MIN                                 
029784,000562: 04,3667           16547                           STODL    T1TOT2                                
029785,000563: 04,3670           03663                                    TTPI                                  
029786,000564: 04,3671           41425                           DSU      PUSH                                  
029787,000565: 04,3672           02465                                    TTPI0                                 
029788,000566: 04,3673           45246        P33/P73F           ABS      DSU                                   
029789,000567: 04,3674           13267                                    60MIN                                 
029790,000568: 04,3675           43244                           BPL      DAD                                   
029791,000569: 04,3676           11673                                    P33/P73F                              
029792,000570: 04,3677           13267                                    60MIN                                 
029793,000571: 04,3700           45565                           SIGN     STADR                                 
029794,000572: 04,3701           74121                           STORE    T2TOT3                                
029795,000573: 04,3702           77414                           BON      EXIT                                  
029796,000574: 04,3703           05310                                    AUTOSEQ                               
029797,000575: 04,3704           11710                                    SKIP75                                
029798,000576: 
029799,000577: 04,3705           34605                           CAF      V06N75                                
029800,000578: 04,3706           05535                           TC       VNFLASH                               
029801,000579: 04,3707           06006                           TC       INTPRET                               

Page 669

029803,000581: 04,3710           77624        SKIP75             CALL                                           
029804,000582: 04,3711           76537                                    DISDVLVC                              #  PUT UP N81, COMPUTE DELVSIN
029805,000583: 04,3712           77624                           CALL                                           
029806,000584: 04,3713           73027                                    VN1645                                
029807,000585: 04,3714           77650                           GOTO                                           
029808,000586: 04,3715           11610                                    P33/P73B                              
029809,000587:    4000                                           SETLOC   FFTAG12                               
029810,000588:    4000                                           BANK                                           
029811,000589: 
029812,000590:    4603                                           COUNT*   $$/P3272                              
029813,000591:    4603           01413        V06N11             VN       0611                                  
029814,000592:    4604           01415        V06N13             VN       0613                                  
029815,000593:    4605           01513        V06N75             VN       0675                                  
029816,000594: 

Page 670

029818,000596: 
029819,000597:                                                                                                  #  ..... DISDVLVC  .....
029820,000598: 
029821,000599:                                                                                                  #  SUBROUTINES USED
029822,000600: 
029823,000601:                                                                                                  #        S32/33.X
029824,000602:                                                                                                  #        VNPOOH
029825,000603: 
029826,000604: 37,2000                                           SETLOC   CDHTAG3                               
029827,000605: 37,2000                                           BANK                                           
029828,000606: 
029829,000607: 37,2537                                           COUNT*   $$/CSI                                
029830,000608: 37,2537           45020        DISDVLVC           STQ      CALL                                  
029831,000609: 37,2540           01023                                    NORMEX                                
029832,000610: 37,2541           32050                                    S32/33.X                              
029833,000611: 37,2542           64375                           VLOAD    MXV                                   
029834,000612: 37,2543           02445                                    DELVEET1                              
029835,000613: 37,2544           00001                                    0D                                    
029836,000614: 37,2545           77772                           VSL1                                           
029837,000615: 37,2546           37405                           STCALL   DELVLVC                               #  REF TO L V
029838,000616: 37,2547           15756                                    DISPN90                               
029839,000617: 37,2550           77624                           CALL                                           
029840,000618: 37,2551           32050                                    S32/33.X                              
029841,000619: 37,2552           61375                           VLOAD    VXM                                   
029842,000620: 37,2553           03405                                    DELVLVC                               
029843,000621: 37,2554           00001                                    0D                                    
029844,000622: 37,2555           77772                           VSL1                                           
029845,000623: 37,2556           37646                           STCALL   DELVSIN                               #  L V TO REF
029846,000624: 37,2557           01023                                    NORMEX                                
029847,000625: 

Page 671

029849,000627: 
029850,000628:                                                                                                  #  ..... CSI/A     .....
029851,000629: 
029852,000630:                                                                                                  #  SUBROUTINES USED
029853,000631: 
029854,000632:                                                                                                  #        VECSHIFT
029855,000633:                                                                                                  #        TIMETHET
029856,000634:                                                                                                  #        PERIAPO
029857,000635:                                                                                                  #        SHIFTR1
029858,000636:                                                                                                  #        INTINT2C
029859,000637:                                                                                                  #        CDHMVR
029860,000638:                                                                                                  #        PERIAPO1
029861,000639:                                                                                                  #        INTINT
029862,000640:                                                                                                  #        ACTIVE
029863,000641: 
029864,000642: 05,2000                                           SETLOC   CSITAG1                               
029865,000643: 05,2000                                           BANK                                           
029866,000644: 05,3266  E4,1760                                  EBANK=   SUBEXIT                               
029867,000645: 05,3266                                           COUNT*   $$/CSI                                
029868,000646: 05,3266           00025 37100  60MIN              2DEC     360000     B-28                       
029869,000647: 
029870,000648: 05,3270           00600        ALARM/TB           OCT      00600                                 #  NO 1
029871,000649: 05,3271           00601                           OCT      00601                                 #     2
029872,000650: 05,3272           00602                           OCT      00602                                 #     3
029873,000651: 05,3273           00603                           OCT      00603                                 #     4
029874,000652: 05,3274           00604                           OCT      00604                                 #     5
029875,000653: 05,3275           00605                           OCT      00605                                 #     6
029876,000654: 05,3276           00606                           OCT      00606                                 #     7
029877,000655: 05,3277  15,3416               LOOPMX             =        D1/1024    -1                         #  16 B-28
029878,000656: 05,3277           00003 34661  INITST             2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029879,000657: 
029880,000658: 05,3301           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #  MAXIMUM DV1 = 1000 FPS
029881,000659: 
029882,000660: 05,3303           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                 989 FPS
029883,000661: 
029884,000662: 05,3305  15,3411               1DPB2              =        D1/4                                  #  1 B-2
029885,000663: 05,3305  15,3431               1DPB28             =        ONEBIT                                #  1 B-28
029886,000664: 05,3305           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #  .1 FPS
029887,000665: 
029888,000666: 05,3307           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #  50 FPS
029889,000667: 
029890,000668: 05,3311           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #  200 FPS
029891,000669: 
029892,000670: 35,2000                                           SETLOC   CSI/CDH                               
029893,000671: 35,2000                                           BANK                                           
029894,000672: 35,3554                                           COUNT*   $$/CSI                                
029895,000673: 35,3554           00004 31566  PMINE              2DEC     157420     B-29                       #  84 NM. - MUST BE 8 WORDS BEFORE PMINM
029896,000674: 
029897,000675: 35,3556           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS
029898,000676: 
029899,000677: 35,3560           00003 34661  INITST1            2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029900,000678: 

Page 672

029902,000680: 35,3562           00000 06433  ONETHTH            2DEC     .0001      B-3                        
029903,000681: 
029904,000682: 35,3564           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE.
029905,000683: 
029906,000684: 06,2000                                           SETLOC   CSIPROG                               
029907,000685: 06,2000                                           BANK                                           
029908,000686: 
029909,000687: 06,3672                                           COUNT*   $$/CSI                                
029910,000688: 06,3672           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
029911,000689: 06,3673           05660                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
029912,000690: 06,3674           05461                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR
029913,000691: 06,3675           43014                           CLEAR    SET                                   
029914,000692: 06,3676           05662                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
029915,000693: 06,3677           05463                                    S32.1F3B                              #  10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
029916,000694: 06,3700           77745                           DLOAD                                          
029917,000695: 06,3701           11762                                    ZEROVEC                               
029918,000696: 06,3702           03764                           STORE    LOOPCT                                
029919,000697: 06,3703           03665                           STORE    CSIALRM                               
029920,000698: 06,3704           77201        CSI/B              SETPD    VLOAD                                 
029921,000699: 06,3705           00001                                    0D                                    
029922,000700: 06,3706           02541                                    RACT1                                 
029923,000701: 06,3707           41446                           ABVAL    PUSH                                  #  RA1                                  B29 PL02D
029924,000702: 06,3710           70501                           NORM     SR1                                   
029925,000703: 06,3711           00050                                    X2                                    #                                B29-N2+ B1 PL04D
029926,000704: 06,3712           51515                           PDVL     ABVAL                                 
029927,000705: 06,3713           03554                                    RPASS3                                
029928,000706: 06,3714           55301                           NORM     BDDV                                  #  RA1/RP3                               B1 PL02D
029929,000707: 06,3715           00047                                    X1                                    
029930,000708: 06,3716           53664                           XSU,2    SR*                                   #                                        B2
029931,000709: 06,3717           00046                                    X1                                    
029932,000710: 06,3720           57175                                    1,2                                   
029933,000711: 06,3721           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1              B29+B2=B31 PL00D
029934,000712: 06,3722           33412                                    1DPB2                                 
029935,000713: 06,3723           65301                           NORM     PDDL                                  #                                           PL02D
029936,000714: 06,3724           00047                                    X1                                    
029937,000715: 06,3725           03750                                    RTMU                                  
029938,000716: 06,3726           56342                           SR1      DDV                                   #                              B38-B31 = B7 PL00D
029939,000717: 06,3727           75457                           SL*      SQRT                                  #                                        B7
029940,000718: 06,3730           20172                                    0          -7,1                       
029941,000719: 06,3731           53515                           PDVL     UNIT                                  #                                           PL02D
029942,000720: 06,3732           02541                                    RACT1                                 
029943,000721: 06,3733           47315                           PDVL     VXV                                   
029944,000722: 06,3734           02611                                    UP1                                   
029945,000723: 06,3735           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
029946,000724: 06,3736           72441                           DOT      SL1                                   #  VA1 . UH1                             B7
029947,000725: 06,3737           03504                                    VACT1                                 
029948,000726: 06,3740           45421                           BDSU     STADR                                 #                                           PL00D
029949,000727: 06,3741           60315                           STODL    DELVCSI                               
029950,000728: 06,3742           13300                                    INITST                                #  10 FPS
029951,000729: 06,3743           03464                           STORE    DELDV                                 

Page 673

029953,000731: 06,3744           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
029954,000732: 06,3745           03764                                    LOOPCT                                
029955,000733: 06,3746           33432                                    1DPB28                                
029956,000734: 06,3747           03764                           STORE    LOOPCT                                
029957,000735: 06,3750           77025                           DSU      AXT,2                                 
029958,000736: 06,3751           33417                                    LOOPMX                                
029959,000737: 06,3752           00006                                    6                                     
029960,000738: 06,3753           52044                           BPL      GOTO                                  
029961,000739: 06,3754           63566                                    SCNDSOL                               
029962,000740: 06,3755           24050                                    CSI/B2                                
029963,000741: 
029964,000742: 12,2000                                           SETLOC   CSIPROG2                              
029965,000743: 12,2000                                           BANK                                           
029966,000744: 
029967,000745: 12,2050                                           COUNT*   $$/CSI                                
029968,000746: 12,2050           77601        CSI/B2             SETPD                                          
029969,000747: 12,2051           00001                                    0D                                    
029970,000748: 12,2052           51545                           DLOAD    ABS                                   
029971,000749: 12,2053           03462                                    DELVCSI                               
029972,000750: 12,2054           50025                           DSU      BMN                                   
029973,000751: 12,2055           13302                                    DVMAX1                                
029974,000752: 12,2056           45406                                    CSI/B23                               
029975,000753: 12,2057           43174                           AXT,2    BON                                   
029976,000754: 12,2060           00007                                    7                                     
029977,000755: 12,2061           05700                                    S32.1F1                               
029978,000756: 12,2062           63566                                    SCNDSOL                               
029979,000757: 12,2063           43014                           BOFF     BON                                   
029980,000758: 12,2064           05742                                    S32.1F3A                              
029981,000759: 12,2065           24070                                    CSI/B22                               #  FLAG 3 NEQ 3
029982,000760: 12,2066           05703                                    S32.1F3B                              
029983,000761: 12,2067           63566                                    SCNDSOL                               
029984,000762: 12,2070           71214        CSI/B22            SET      DLOAD                                 
029985,000763: 12,2071           05460                                    S32.1F1                               
029986,000764: 12,2072           13304                                    DVMAX2                                
029987,000765: 12,2073           77765                           SIGN                                           
029988,000766: 12,2074           03462                                    DELVCSI                               
029989,000767: 12,2075           37462                           STCALL   DELVCSI                               
029990,000768: 12,2076           45406                                    CSI/B23                               
029991,000769: 
029992,000770: 22,2000                                           SETLOC   CSIPROG3                              
029993,000771: 22,2000                                           BANK                                           
029994,000772: 
029995,000773: 22,3406                                           COUNT*   $$/CSI                                
029996,000774: 22,3406           41575        CSI/B23            VLOAD    PUSH                                  
029997,000775: 22,3407           02541                                    RACT1                                 
029998,000776: 22,3410           63256                           UNIT     PDVL                                  
029999,000777: 22,3411           02611                                    UP1                                   
030000,000778: 22,3412           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
030001,000779: 22,3413           76561                           VXSC     VSL1                                  
030002,000780: 22,3414           03462                                    DELVCSI                               

Page 674

030004,000782: 22,3415           02445                           STORE    DELVEET1                              
030005,000783: 22,3416           40055                           VAD      BOV                                   
030006,000784: 22,3417           03504                                    VACT1                                 
030007,000785: 22,3420           45421                                    CSI/B23D                              
030008,000786: 22,3421           37474        CSI/B23D           STCALL   VACT4                                 
030009,000787: 22,3422           45320                                    VECSHIFT                              
030010,000788: 22,3423           26746                           STOVL    VVEC                                  
030011,000789: 22,3424           77614                           SET                                            
030012,000790: 22,3425           03466                                    RVSW                                  
030013,000791: 22,3426           26657                           STOVL    RVEC                                  
030014,000792: 22,3427           05545                                    SN359+                                
030015,000793: 22,3430           36732                           STCALL   SNTH                                  #  ALSO CSTH
030016,000794: 22,3431           25002                                    TIMETHET                              
030017,000795: 22,3432           72142                           SR1      LXA,1                                 
030018,000796: 22,3433           03745                                    RTX1                                  
030019,000797: 22,3434           37472                           STCALL   HAFPA1                                
030020,000798: 22,3435           45204                                    PERIAPO                               
030021,000799: 22,3436           77624                           CALL                                           
030022,000800: 22,3437           45330                                    SHIFTR1                               
030023,000801: 22,3440           17460                           STODL    POSTCSI                               
030024,000802: 22,3441           03754                                    CENTANG                               
030025,000803: 22,3442           52054                           BZE      GOTO                                  
030026,000804: 22,3443           45445                                    +2                                    
030027,000805: 22,3444           47161                                    CIRCL                                 
030028,000806: 22,3445           77745                           DLOAD                                          
030029,000807: 22,3446           02754                                    ECC                                   
030030,000808: 22,3447           50025                           DSU      BMN                                   
030031,000809: 22,3450           33563                                    ONETHTH                               
030032,000810: 22,3451           47161                                    CIRCL                                 
030033,000811: 22,3452           45145                           DLOAD    CALL                                  
030034,000812: 22,3453           00041                                    R1                                    
030035,000813: 22,3454           45330                                    SHIFTR1                               
030036,000814: 22,3455           60201                           SETPD    NORM                                  
030037,000815: 22,3456           00003                                    2D                                    
030038,000816: 22,3457           00047                                    X1                                    
030039,000817: 22,3460           50315                           PDVL     DOT                                   #                                           PL04D
030040,000818: 22,3461           02541                                    RACT1                                 
030041,000819: 22,3462           03474                                    VACT4                                 
030042,000820: 22,3463           56246                           ABS      DDV                                   
030043,000821: 22,3464           00003                                    02D                                   #  (/RDOTV/)/R1                  B36-B29= B7
030044,000822: 22,3465           45257                           SL*      DSU                                   
030045,000823: 22,3466           20201                                    0,1                                   
030046,000824: 22,3467           33557                                    NICKELDP                              
030047,000825: 22,3470           71240                           BMN      DLOAD                                 
030048,000826: 22,3471           47161                                    CIRCL                                 
030049,000827: 22,3472           02742                                    P                                     
030050,000828: 22,3473           45312                           SL2      DSU                                   
030051,000829: 22,3474           15326                                    1RTEB2                                #  1.B.2
030052,000830: 22,3475           14017                           STODL    14D                                   
030053,000831: 22,3476           03752                                    RTSR1/MU                              

Page 675

030055,000833: 22,3477           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1            B-16-B29 = B-45 PL02D
030056,000834: 22,3500           41325                           PDDL     DMP                                   
030057,000835: 22,3501           02742                                    P                                     
030058,000836: 22,3502           00041                                    R1                                    
030059,000837: 22,3503           77624                           CALL                                           
030060,000838: 22,3504           45330                                    SHIFTR1                               
030061,000839: 22,3505           72412                           SL4      SL1                                   
030062,000840: 22,3506           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1          B14+B-45 = B-31 PL02D
030063,000841: 22,3507           52414                           BOFF     SL3                                   
030064,000842: 22,3510           04343                                    CMOONFLG                              
030065,000843: 22,3511           45512                                    CSI/B3                                
030066,000844: 22,3512           50315        CSI/B3             PDVL     DOT                                   
030067,000845: 22,3513           02541                                    RACT1                                 
030068,000846: 22,3514           03474                                    VACT4                                 
030069,000847: 22,3515           03502                           STORE    RDOTV                                 
030070,000848: 22,3516           77646                           ABS                                            
030071,000849: 22,3517           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                     PL02D
030072,000850: 22,3520           00050                                    X2                                    
030073,000851: 22,3521           53660                           XSU,1    SL*                                   #                        B-31+B36-B3 = B2
030074,000852: 22,3522           00047                                    X2                                    
030075,000853: 22,3523           20204                                    3,1                                   
030076,000854: 22,3524           14015                           STODL    12D                                   
030077,000855: 22,3525           15336                                    ZEROVECS                              
030078,000856: 22,3526           00021                           STORE    16D                                   
030079,000857: 22,3527           53575                           VLOAD    UNIT                                  
030080,000858: 22,3530           00015                                    12D                                   
030081,000859: 22,3531           26732                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
030082,000860: 22,3532           02541                                    RACT1                                 
030083,000861: 22,3533           75315                           PDVL     SIGN                                  
030084,000862: 22,3534           03474                                    VACT4                                 
030085,000863: 22,3535           03502                                    RDOTV                                 
030086,000864: 22,3536           45076                           VCOMP    CALL                                  
030087,000865: 22,3537           45320                                    VECSHIFT                              
030088,000866: 22,3540           26746                           STOVL    VVEC                                  
030089,000867: 22,3541           77614                           SETGO                                          
030090,000868: 22,3542           03426                                    RVSW                                  
030091,000869: 22,3543           47145                                    CSINEXT                               
030092,000870: 
030093,000871: 22,3544           77776 62460  SN359+             2DEC     -.000086601                            
030094,000872: 
030095,000873: 22,3546           17777 37776  CS359+             2DEC     +.499999992                            
030096,000874: 
030097,000875: 23,2000                                           SETLOC   CSIPROG4                              
030098,000876: 23,2000                                           BANK                                           
030099,000877: 
030100,000878: 23,3145                                           COUNT*   $$/CSI                                
030101,000879: 23,3145           36657        CSINEXT            STCALL   RVEC                                  
030102,000880: 23,3146           25002                                    TIMETHET                              
030103,000881: 23,3147           43206                           PUSH     DAD                                   
030104,000882: 23,3150           02463                                    TCSI                                  

Page 676

030106,000884: 
030107,000885: 23,3151           16351                           STODL    TCSI2                                 #  TIME OF NEXT CSI
030108,000886: 23,3152           03502                                    RDOTV                                 
030109,000887: 23,3153           77644                           BPL                                            
030110,000888: 23,3154           47165                                    NTP/2                                 
030111,000889: 23,3155           45345                           DLOAD    DSU                                   
030112,000890: 23,3156           03472                                    HAFPA1                                
030113,000891: 23,3157           52006                           PUSH     GOTO                                  
030114,000892: 23,3160           47165                                    NTP/2                                 
030115,000893: 23,3161           71201        CIRCL              SETPD    DLOAD                                 
030116,000894: 23,3162           00001                                    00D                                   
030117,000895: 23,3163           15336                                    ZEROVECS                              
030118,000896: 23,3164           77606                           PUSH                                           
030119,000897: 23,3165           72545        NTP/2              DLOAD    SL1                                   
030120,000898: 23,3166           03472                                    HAFPA1                                
030121,000899: 23,3167           77615                           DAD                                            
030122,000900: 23,3170           02463                                    TCSI                                  
030123,000901: 23,3171           16351                           STODL    TCSI2                                 
030124,000902: 23,3172           03766                                    NN                                    #  COMPUTE NEXT CSI 1 REV AWAY
030125,000903: 23,3173           45342                           SR1      DSU                                   
030126,000904: 23,3174           07140                                    HIGH2                                 
030127,000905: 23,3175           77654                           BZE                                            ## NN = 4
030128,000906: 23,3176           47233                                    HMCSI                                 
030129,000907: 23,3177           41345        NTP/2A             DLOAD    DMP                                   
030130,000908: 23,3200           03766                                    NN                                    
030131,000909: 23,3201           03472                                    HAFPA1                                
030132,000910: 23,3202           45261                           SL       DSU                                   
030133,000911: 23,3203           20217                                    14D                                   
030134,000912: 23,3204           77615                           DAD                                            
030135,000913: 23,3205           02463                                    TCSI                                  
030136,000914: 23,3206           02461                           STORE    TCDH                                  
030137,000915: 23,3207           77021                           BDSU     AXT,2                                 
030138,000916: 23,3210           03663                                    TTPI                                  
030139,000917: 23,3211           00005                                    5D                                    
030140,000918: 23,3212           40240                           BMN      SETPD                                 
030141,000919: 23,3213           63566                                    SCNDSOL                               
030142,000920: 23,3214           00001                                    0D                                    
030143,000921: 23,3215           63375                           VLOAD    PDVL                                  
030144,000922: 23,3216           03474                                    VACT4                                 
030145,000923: 23,3217           02541                                    RACT1                                 
030146,000924: 23,3220           77624                           CALL                                           
030147,000925: 23,3221           63606                                    INTINT2C                              
030148,000926: 23,3222           26453                           STOVL    RACT2                                 
030149,000927: 23,3223           00007                                    VATT                                  
030150,000928: 23,3224           26533                           STOVL    VACT2                                 
030151,000929: 23,3225           03512                                    VPASS1                                
030152,000930: 23,3226           63201                           SETPD    PDVL                                  
030153,000931: 23,3227           00001                                    0D                                    
030154,000932: 23,3230           03756                                    RPASS1                                
030155,000933: 23,3231           77650                           GOTO                                           
030156,000934: 23,3232           34012                                    CSINEXT1                              

Page 677

030158,000936: 23,3233           43345        HMCSI              DLOAD    DAD                                   #  COMPUTE NEXT CSI 1 + 1/2 REVS AWAY
030159,000937: 23,3234           03472                                    HAFPA1                                
030160,000938: 23,3235           02351                                    TCSI2                                 
030161,000939: 23,3236           36351                           STCALL   TCSI2                                 
030162,000940: 23,3237           47177                                    NTP/2A                                
030163,000941: 16,2000                                           SETLOC   CSIPROG5                              
030164,000942: 16,2000                                           BANK                                           
030165,000943: 
030166,000944: 16,2012                                           COUNT*   $$/CSI                                
030167,000945: 16,2012           77624        CSINEXT1           CALL                                           
030168,000946: 16,2013           63606                                    INTINT2C                              
030169,000947: 16,2014           26625                           STOVL    RPASS2                                
030170,000948: 16,2015           00007                                    VATT                                  
030171,000949: 16,2016           36617                           STCALL   VPASS2                                
030172,000950: 16,2017           56674                                    CDHMVR                                
030173,000951: 16,2020           40375                           VLOAD    SETPD                                 
030174,000952: 16,2021           02453                                    RACT2                                 
030175,000953: 16,2022           00001                                    0D                                    
030176,000954: 16,2023           45115                           PDVL     CALL                                  
030177,000955: 16,2024           03546                                    VACT3                                 
030178,000956: 16,2025           45174                                    PERIAPO1                              
030179,000957: 16,2026           77624                           CALL                                           
030180,000958: 16,2027           45330                                    SHIFTR1                               
030181,000959: 16,2030           27472                           STOVL    POSTCDH                               
030182,000960: 16,2031           03546                                    VACT3                                 
030183,000961: 16,2032           63201                           SETPD    PDVL                                  
030184,000962: 16,2033           00001                                    0D                                    
030185,000963: 16,2034           02453                                    RACT2                                 
030186,000964: 16,2035           65325                           PDDL     PDDL                                  
030187,000965: 16,2036           02461                                    TCDH                                  
030188,000966: 16,2037           03663                                    TTPI                                  
030189,000967: 16,2040           62525                           PDDL     SL2                                   
030190,000968: 16,2041           33430                                    2PISC                                 
030191,000969: 16,2042           45006                           PUSH     CALL                                  
030192,000970: 16,2043           72740                                    INTINT                                
030193,000971: 16,2044           77624                           CALL                                           
030194,000972: 16,2045           45304                                    ACTIVE                                
030195,000973: 16,2046           77745                           DLOAD                                          
030196,000974: 16,2047           03744                                    ELEV                                  
030197,000975: 16,2050           73401                           SETPD    SINE                                  
030198,000976: 16,2051           00007                                    6D                                    
030199,000977: 16,2052           53515                           PDVL     UNIT                                  
030200,000978: 16,2053           03540                                    RACT3                                 
030201,000979: 16,2054           00001                           STORE    00D                                   #  URA3 AT 00D
030202,000980: 16,2055           47315                           PDVL     VXV                                   #  PL14D,PL08D
030203,000981: 16,2056           02611                                    UP1                                   
030204,000982: 16,2057           77656                           UNIT                                           
030205,000983: 16,2060           71525                           PDDL     COSINE                                #  UNIT(URA3XUVA3XURA3) = UH3            B1 PL14D
030206,000984: 16,2061           03744                                    ELEV                                  
030207,000985: 16,2062           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                         B2 PL08D

Page 678

030209,000987: 16,2063           43754                           STCALL   18D                                   #                PLUS
030210,000988: 16,2064           16440                                    CSINEXT2                              
030211,000989: 
030212,000990: 07,2000                                           SETLOC   CSIPROG6                              
030213,000991: 07,2000                                           BANK                                           
030214,000992: 
030215,000993: 07,2440                                           COUNT*   $$/CSI                                
030216,000994: 07,2440           74345        CSINEXT2           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U                    B2 PL00D
030217,000995: 07,2441           76455                           VAD      VSL1                                  
030218,000996: 07,2442           00023                                    18D                                   #                                        B1
030219,000997: 07,2443           50206                           PUSH     DOT                                   #                                           PL06D
030220,000998: 07,2444           03540                                    RACT3                                 #  (U . RA3) = TEMP1         B1 + B29 = B30
030221,000999: 07,2445           41552                           SL1      PUSH                                  #                                       B29 PL08D
030222,001000: 07,2446           72316                           DSQ      TLOAD                                 #  TEMP1**2                             B58
030223,001001: 07,2447           00155                                    MPAC                                  
030224,001002: 07,2450           50315                           PDVL     DOT                                   #                                           PL11D
030225,001003: 07,2451           03540                                    RACT3                                 
030226,001004: 07,2452           03540                                    RACT3                                 
030227,001005: 07,2453           57551                           TLOAD    DCOMP                                 #  RA3 . RA3
030228,001006: 07,2454           00155                                    MPAC                                  
030229,001007: 07,2455           50315                           PDVL     DOT                                   #  RP3 . RP3                         B58 PL14D
030230,001008: 07,2456           03554                                    RPASS3                                
030231,001009: 07,2457           03554                                    RPASS3                                #                                        PL11D
030232,001010: 07,2460           76371                           TAD      TAD                                   #  TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2  PL08D
030233,001011: 07,2461           71244                           BPL      DLOAD                                 
030234,001012: 07,2462           16500                                    K1ORK2                                
030235,001013: 07,2463           03764                                    LOOPCT                                
030236,001014: 07,2464           77025                           DSU      AXT,2                                 
030237,001015: 07,2465           33432                                    1DPB28                                
030238,001016: 07,2466           00001                                    1D                                    
030239,001017: 07,2467           77654                           BZE                                            
030240,001018: 07,2470           11407                                    ALMXITA                               
030241,001019: 07,2471           70545                           DLOAD    SR1                                   
030242,001020: 07,2472           03464                                    DELDV                                 
030243,001021: 07,2473           03464                           STORE    DELDV                                 
030244,001022: 07,2474           77621                           BDSU                                           
030245,001023: 07,2475           03470                                    DVPREV                                
030246,001024: 07,2476           37462                           STCALL   DELVCSI                               
030247,001025: 07,2477           15744                                    CSI/B1                                
030248,001026: 07,2500           41566        K1ORK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                 B29 PL10D
030249,001027: 07,2501           45276                           DCOMP    DSU                                   
030250,001028: 07,2502           00007                                    06D                                   #  -TEMP1-TEMP3 = K2 AT 10D
030251,001029: 07,2503           14013                           STODL    10D                                   #                                        PL08D
030252,001030: 07,2504           45425                           DSU      STADR                                 #                                        PL06D
030253,001031: 07,2505           77762                           STORE    12D                                   #  -TEMP1+TEMP3 = K1 AT 12D
030254,001032: 07,2506           77646                           ABS                                            
030255,001033: 07,2507           14017                           STODL    14D                                   
030256,001034: 07,2510           00013                                    10D                                   
030257,001035: 07,2511           45246                           ABS      DSU                                   
030258,001036: 07,2512           00017                                    14D                                   

Page 679

030260,001038: 07,2513           71240                           BMN      DLOAD                                 
030261,001039: 07,2514           50123                                    K2.                                   
030262,001040: 07,2515           00015                                    12D                                   
030263,001041: 07,2516           34013                           STCALL   10D                                   #  K EQUALS K1
030264,001042: 07,2517           50123                                    K2.                                   
030265,001043: 
030266,001044: 24,2000                                           SETLOC   CSIPROG7                              
030267,001045: 24,2000                                           BANK                                           
030268,001046: 
030269,001047: 24,2123                                           COUNT*   $$/CSI                                
030270,001048: 24,2123           77745        K2.                DLOAD                                          
030271,001049: 24,2124           00013                                    10D                                   
030272,001050: 24,2125           76561                           VXSC     VSL1                                  
030273,001051: 24,2126           53455                           VAD      UNIT                                  #  V = RA3 + KU UNIT                 B1
030274,001052: 24,2127           03540                                    RACT3                                 
030275,001053: 24,2130           53515                           PDVL     UNIT                                  #                                        PL06D
030276,001054: 24,2131           03554                                    RPASS3                                
030277,001055: 24,2132           53515                           PDVL     UNIT                                  #                                        PL12D
030278,001056: 24,2133           03562                                    VPASS3                                
030279,001057: 24,2134           63235                           VXV      PDVL                                  #  UVP3 X URP3                           PL18D
030280,001058: 24,2135           00007                                    06D                                   
030281,001059: 24,2136           00007                                    06D                                   
030282,001060: 24,2137           50235                           VXV      DOT                                   
030283,001061: 24,2140           00001                                    00D                                   
030284,001062: 24,2141           77626                           STADR                                          #                                        PL12D
030285,001063: 24,2142           53762                           STOVL    12D                                   #  (URP3 X V).(UVP3 X URP3)=TEMP         PL06D
030286,001064: 24,2143           72441                           DOT      SL1                                   #                                        PL00D
030287,001065: 24,2144           75326                           ARCCOS   SIGN                                  
030288,001066: 24,2145           00015                                    12D                                   #                                     B0
030289,001067: 24,2146           41542                           SR1      PUSH                                  #  GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3)   PL02D
030290,001068: 24,2147           71214                           BON      DLOAD                                 
030291,001069: 24,2150           05701                                    S32.1F2                               
030292,001070: 24,2151           50206                                    FRSTPAS                               
030293,001071: 24,2152           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
030294,001072: 24,2153           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                      B1 PL04D
030295,001073: 24,2154           03466                                    GAMPREV                               
030296,001074: 24,2155           03462                                    DELVCSI                               
030297,001075: 24,2156           60225                           DSU      NORM                                  #                                     B7
030298,001076: 24,2157           03470                                    DVPREV                                
030299,001077: 24,2160           00047                                    X1                                    
030300,001078: 24,2161           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)      B-6+N1 PL06D
030301,001079: 24,2162           00003                                    02D                                   #        = SLOPE
030302,001080: 24,2163           03462                                    DELVCSI                               
030303,001081: 24,2164           03470                           STORE    DVPREV                                
030304,001082: 24,2165           43014                           BOFF     BOFF                                  
030305,001083: 24,2166           05742                                    S32.1F3A                              
030306,001084: 24,2167           20323                                    THRDCHK                               
030307,001085: 24,2170           05743                                    S32.1F3B                              
030308,001086: 24,2171           20323                                    THRDCHK                               
030309,001087: 24,2172           41345                           DLOAD    DMP                                   

Page 680

030311,001089: 24,2173           00003                                    02D                                   
030312,001090: 24,2174           03466                                    GAMPREV                               
030313,001091: 24,2175           71244                           BPL      DLOAD                                 
030314,001092: 24,2176           20330                                    FIFTYFPS                              
030315,001093: 24,2177           33561                                    INITST1                               
030316,001094: 24,2200           77765                           SIGN                                           
030317,001095: 24,2201           03464                                    DELDV                                 
030318,001096: 24,2202           03464                           STORE    DELDV                                 
030319,001097: 24,2203           43014                           SET      CLEAR                                 
030320,001098: 24,2204           05462                                    S32.1F3A                              
030321,001099: 24,2205           05663                                    S32.1F3B                              
030322,001100: 24,2206           77745        FRSTPAS            DLOAD                                          
030323,001101: 24,2207           00001                                    00D                                   
030324,001102: 24,2210           17466                           STODL    GAMPREV                               
030325,001103: 24,2211           03462                                    DELVCSI                               
030326,001104: 24,2212           37470                           STCALL   DVPREV                                
030327,001105: 24,2213           20316                                    CSINEXT3                              
030328,001106: 
030329,001107: 10,2000                                           SETLOC   CSIPROG8                              
030330,001108: 10,2000                                           BANK                                           
030331,001109: 
030332,001110: 10,2316                                           COUNT*   $$/CSI                                
030333,001111: 10,2316           43025        CSINEXT3           DSU      CLEAR                                 
030334,001112: 10,2317           03464                                    DELDV                                 
030335,001113: 10,2320           05661                                    S32.1F2                               
030336,001114: 10,2321           37462                           STCALL   DELVCSI                               
030337,001115: 10,2322           15744                                    CSI/B1                                
030338,001116: 10,2323           43014        THRDCHK            BON      BON                                   
030339,001117: 10,2324           05702                                    S32.1F3A                              
030340,001118: 10,2325           20347                                    NEWTN                                 
030341,001119: 10,2326           05703                                    S32.1F3B                              
030342,001120: 10,2327           20347                                    NEWTN                                 
030343,001121: 10,2330           75345        FIFTYFPS           DLOAD    SIGN                                  
030344,001122: 10,2331           13310                                    FIFPSDP                               
030345,001123: 10,2332           00005                                    04D                                   
030346,001124: 10,2333           77765                           SIGN                                           
030347,001125: 10,2334           03466                                    GAMPREV                               
030348,001126: 10,2335           03464                           STORE    DELDV                                 
030349,001127: 10,2336           43276                           DCOMP    DAD                                   
030350,001128: 10,2337           03462                                    DELVCSI                               
030351,001129: 10,2340           17462                           STODL    DELVCSI                               
030352,001130: 10,2341           00001                                    00D                                   
030353,001131: 10,2342           43014                           SET      SET                                   
030354,001132: 10,2343           05463                                    S32.1F3B                              
030355,001133: 10,2344           05462                                    S32.1F3A                              
030356,001134: 10,2345           37466                           STCALL   GAMPREV                               
030357,001135: 10,2346           24050                                    CSI/B2                                
030358,001136: 10,2347           60345        NEWTN              DLOAD    NORM                                  
030359,001137: 10,2350           00005                                    04D                                   
030360,001138: 10,2351           00050                                    X2                                    

Page 681

030362,001140: 10,2352           54065                           BDDV     XSU,1                                 
030363,001141: 10,2353           00001                                    00D                                   
030364,001142: 10,2354           00047                                    X2                                    
030365,001143: 10,2355           77657                           SR*                                            
030366,001144: 10,2356           20601                                    0,1                                   
030367,001145: 10,2357           17464                           STODL    DELDV                                 
030368,001146: 10,2360           00001                                    00D                                   
030369,001147: 10,2361           03466                           STORE    GAMPREV                               
030370,001148: 10,2362           51545                           DLOAD    ABS                                   
030371,001149: 10,2363           03464                                    DELDV                                 
030372,001150: 10,2364           45206                           PUSH     DSU                                   #                                        PL08D
030373,001151: 10,2365           13306                                    EPSILN1                               
030374,001152: 10,2366           71240                           BMN      DLOAD                                 
030375,001153: 10,2367           20404                                    CSI/SOL                               
030376,001154: 10,2370           50025                           DSU      BMN                                   
030377,001155: 10,2371           13312                                    DELMAX1                               
030378,001156: 10,2372           20377                                    CSISTEP                               
030379,001157: 10,2373           75345                           DLOAD    SIGN                                  
030380,001158: 10,2374           13312                                    DELMAX1                               
030381,001159: 10,2375           03464                                    DELDV                                 
030382,001160: 10,2376           03464                           STORE    DELDV                                 
030383,001161: 10,2377           45345        CSISTEP            DLOAD    DSU                                   
030384,001162: 10,2400           03462                                    DELVCSI                               
030385,001163: 10,2401           03464                                    DELDV                                 
030386,001164: 10,2402           37462                           STCALL   DELVCSI                               
030387,001165: 10,2403           15744                                    CSI/B1                                
030388,001166: 10,2404           77145        CSI/SOL            DLOAD    AXT,2                                 
030389,001167: 10,2405           03460                                    POSTCSI                               
030390,001168: 10,2406           00002                                    2                                     
030391,001169: 10,2407           52150                           LXA,1    GOTO                                  
030392,001170: 10,2410           03745                                    RTX1                                  
030393,001171: 10,2411           63535                                    CSINEXT4                              
030394,001172: 
030395,001173: 31,2000                                           SETLOC   CSIPROG9                              
030396,001174: 31,2000                                           BANK                                           
030397,001175: 
030398,001176: 31,3535                                           COUNT*   $$/CSI                                
030399,001177: 31,3535           50023        CSINEXT4           DSU*     BMN                                   
030400,001178: 31,3536           33553                                    PMINE      -2,1                       
030401,001179: 31,3537           63566                                    SCNDSOL                               
030402,001180: 31,3540           71374                           AXT,2    DLOAD                                 
030403,001181: 31,3541           00003                                    3                                     
030404,001182: 31,3542           03472                                    POSTCDH                               
030405,001183: 31,3543           50023                           DSU*     BMN                                   
030406,001184: 31,3544           33553                                    PMINE      -2,1                       
030407,001185: 31,3545           63566                                    SCNDSOL                               
030408,001186: 31,3546           45345                           DLOAD    DSU                                   
030409,001187: 31,3547           02461                                    TCDH                                  
030410,001188: 31,3550           02463                                    TCSI                                  
030411,001189: 31,3551           02547                           STORE    T1TOT2                                

Page 682

030413,001191: 31,3552           45374                           AXT,2    DSU                                   
030414,001192: 31,3553           00004                                    4                                     
030415,001193: 31,3554           36161                                    600SEC                                
030416,001194: 31,3555           77040                           BMN      AXT,2                                 
030417,001195: 31,3556           63566                                    SCNDSOL                               
030418,001196: 31,3557           00005                                    5                                     
030419,001197: 31,3560           45345                           DLOAD    DSU                                   
030420,001198: 31,3561           03663                                    TTPI                                  
030421,001199: 31,3562           02461                                    TCDH                                  
030422,001200: 31,3563           51025                           DSU      BPL                                   
030423,001201: 31,3564           36161                                    600SEC                                
030424,001202: 31,3565           11463                                    P32/P72C                              
030425,001203: 31,3566           43014        SCNDSOL            BON      BOFF                                  
030426,001204: 31,3567           05702                                    S32.1F3A                              
030427,001205: 31,3570           11411                                    ALMXIT                                
030428,001206: 31,3571           05743                                    S32.1F3B                              
030429,001207: 31,3572           11411                                    ALMXIT                                
030430,001208: 31,3573           71334                           SXA,2    DLOAD                                 
030431,001209: 31,3574           03664                                    CSIALRM                               
030432,001210: 31,3575           15336                                    ZEROVECS                              
030433,001211: 31,3576           43014                           CLEAR    SET                                   
030434,001212: 31,3577           05660                                    S32.1F1                               
030435,001213: 31,3600           05461                                    S32.1F2                               
030436,001214: 31,3601           43014                           CLEAR    CLEAR                                 
030437,001215: 31,3602           05662                                    S32.1F3A                              
030438,001216: 31,3603           05663                                    S32.1F3B                              
030439,001217: 31,3604           37764                           STCALL   LOOPCT                                
030440,001218: 31,3605           15704                                    CSI/B                                 
030441,001219: 

Page 683

030443,001221:                                                                                                  #  ..... ADVANCE   .....
030444,001222: 
030445,001223:                                                                                                  #  SUBROUTINES USED
030446,001224:                                                                                                  #        PRECSET
030447,001225:                                                                                                  #        ROTATE
030448,001226: 
030449,001227: 37,2000                                           SETLOC   CDHTAG3                               
030450,001228: 37,2000                                           BANK                                           
030451,001229: 
030452,001230: 37,2560                                           COUNT*   $$/CDH                                
030453,001231: 37,2560           77620        ADVANCE            STQ                                            
030454,001232: 37,2561           02360                                    SUBEXIT                               
030455,001233: 37,2562           34041                           STCALL   TDEC1                                 
030456,001234: 37,2563           45236                                    PRECSET                               
030457,001235: 37,2564           77214                           SET      VLOAD                                 
030458,001236: 37,2565           01067                                    XDELVFLG                              
030459,001237: 37,2566           03562                                    VPASS3                                
030460,001238: 37,2567           02617                           STORE    VPASS2                                
030461,001239: 37,2570           27512                           STOVL    VPASS1                                
030462,001240: 37,2571           03554                                    RPASS3                                
030463,001241: 37,2572           02625                           STORE    RPASS2                                
030464,001242: 37,2573           27756                           STOVL    RPASS1                                
030465,001243: 37,2574           03540                                    RACT3                                 
030466,001244: 37,2575           37632                           STCALL   RTIG                                  
030467,001245: 37,2576           16520                                    ROTATE                                
030468,001246: 37,2577           02453                           STORE    RACT2                                 
030469,001247: 37,2600           26541                           STOVL    RACT1                                 
030470,001248: 37,2601           03546                                    VACT3                                 
030471,001249: 37,2602           37640                           STCALL   VTIG                                  
030472,001250: 37,2603           16520                                    ROTATE                                
030473,001251: 37,2604           02533                           STORE    VACT2                                 
030474,001252: 37,2605           37504                           STCALL   VACT1                                 
030475,001253: 37,2606           02360                                    SUBEXIT                               
030476,001254: 

Page 684

030478,001256:                                                                                                  #  ..... ROTATE    .....
030479,001257: 
030480,001258: 07,2000                                           SETLOC   CSIPROG6                              
030481,001259: 07,2000                                           BANK                                           
030482,001260: 
030483,001261: 07,2520                                           COUNT*   $$/CSI                                
030484,001262: 07,2520           41406        ROTATE             PUSH     PUSH                                  
030485,001263: 07,2521           74241                           DOT      VXSC                                  
030486,001264: 07,2522           02611                                    UP1                                   
030487,001265: 07,2523           02611                                    UP1                                   
030488,001266: 07,2524           51352                           VSL2     BVSU                                  
030489,001267: 07,2525           63256                           UNIT     PDVL                                  
030490,001268: 07,2526           74246                           ABVAL    VXSC                                  
030491,001269: 07,2527           43572                           VSL1     RVQ                                   
030492,001270: 

Page 685

030494,001272:                                                                                                  #  .... DISPN90 .....
030495,001273: 
030496,001274: 06,2000                                           SETLOC   CSIPROG                               
030497,001275: 06,2000                                           BANK                                           
030498,001276: 06,3756                                           COUNT*   $$/CSI                                
030499,001277: 06,3756           77620        DISPN90            STQ                                            
030500,001278: 06,3757           02356                                    ANEXIT                                
030501,001279: 06,3760           57575                           VLOAD    VCOMP                                 
030502,001280: 06,3761           02601                                    AUTOY                                 
030503,001281: 06,3762           15756                           STODL    YCSM                                  #  COMPLEMENT VALUES FOR N90 DISPLAYS.
030504,001282: 06,3763           02603                                    CMYDOT                                
030505,001283: 06,3764           03407                           STORE    DELVLVC    +2                         
030506,001284: 06,3765           51414                           BOFF     ABS                                   
030507,001285: 06,3766           05356                                    PCFLAG                                
030508,001286: 06,3767           45550                                    OKN81                                 #  NOT IN P36
030509,001287: 06,3770           51025                           DSU      BPL                                   #  IS YDOT LESS THAN .1 FPS
030510,001288: 06,3771           13306                                    1/10FPS                               
030511,001289: 06,3772           45550                                    OKN81                                 #  NO
030512,001290: 06,3773           77775                           VLOAD                                          #  YES - FORCE DSKY DISPLAY TO BE 0
030513,001291: 06,3774           11762                                    ZEROVEC                               
030514,001292: 06,3775           37405                           STCALL   DELVLVC                               
030515,001293: 06,3776           45550                                    OKN81                                 
030516,001294: 
030517,001295: 22,2000                                           SETLOC   CSIPROG3                              
030518,001296: 22,2000                                           BANK                                           
030519,001297: 
030520,001298: 22,3550                                           COUNT*   $$/CSI                                
030521,001299: 22,3550           77776        OKN81              EXIT                                           
030522,001300: 22,3551           35037                           CA       V06N90                                
030523,001301: 22,3552           05535                           TC       VNFLASH                               
030524,001302: 
030525,001303: 22,3553           34535                           CAF      V06N81                                
030526,001304: 22,3554           05535                           TC       VNFLASH                               
030527,001305: 
030528,001306: 22,3555           06006                           TC       INTPRET                               
030529,001307: 22,3556           77650                           GOTO                                           
030530,001308: 22,3557           02356                                    ANEXIT                                
030531,001309: 
030532,001310: 22,3560  05,3305               1/10FPS            =        EPSILN1                               #  ,1 FPS
030533,001311: 

Page 686

030535,001313:                                                                                                  #  ..... INTINTNA  .....
030536,001314: 
030537,001315: 31,2000                                           SETLOC   CDHTAG2                               
030538,001316: 31,2000                                           BANK                                           
030539,001317: 
030540,001318: 31,3606                                           COUNT*   $$/CDH                                
030541,001319: 31,3606           65325        INTINT2C           PDDL     PDDL                                  
030542,001320: 31,3607           02463                                    TCSI                                  
030543,001321: 31,3610           02461                                    TCDH                                  
030544,001322: 31,3611           41525                           PDDL     PUSH                                  
030545,001323: 31,3612           33143                                    TWOPI                                 
030546,001324: 31,3613           77650                           GOTO                                           
030547,001325: 31,3614           72740                                    INTINT                                
030548,001326: 31,3615           65325        INTINT3P           PDDL     PDDL                                  
030549,001327: 31,3616           02461                                    TCDH                                  
030550,001328: 31,3617           03663                                    TTPI                                  
030551,001329: 31,3620           41525                           PDDL     PUSH                                  
030552,001330: 31,3621           33143                                    TWOPI                                 #  FOR CONIC INTEGRATION
030553,001331: 31,3622           77650                           GOTO                                           
030554,001332: 31,3623           72740                                    INTINT                                
030555,001333: 

Page 687

030557,001335:                                                                                                  #  ..... S32/33.X  .....
030558,001336: 
030559,001337: 15,2000                                           SETLOC   CDHTAGS                               
030560,001338: 15,2000                                           BANK                                           
030561,001339: 
030562,001340: 15,2050                                           COUNT*   $$/CDH                                
030563,001341: 15,2050           77201        S32/33.X           SETPD    VLOAD                                 
030564,001342: 15,2051           00007                                    6D                                    
030565,001343: 15,2052           02611                                    UP1                                   
030566,001344: 15,2053           63276                           VCOMP    PDVL                                  
030567,001345: 15,2054           02541                                    RACT1                                 
030568,001346: 15,2055           57456                           UNIT     VCOMP                                 
030569,001347: 15,2056           47206                           PUSH     VXV                                   
030570,001348: 15,2057           02611                                    UP1                                   
030571,001349: 15,2060           77772                           VSL1                                           
030572,001350: 15,2061           00001                           STORE    0D                                    
030573,001351: 15,2062           77616                           RVQ                                            
030574,001352: 

Page 688

030576,001354:                                                                                                  #  ..... CDHMVR    .....
030577,001355: 
030578,001356:                                                                                                  #  SUBROUTINES USED
030579,001357:                                                                                                  #        VECSHIFT
030580,001358:                                                                                                  #        TIMETHET
030581,001359:                                                                                                  #        SHIFTR1
030582,001360: 
030583,001361: 27,2000                                           SETLOC   CDHTAG                                
030584,001362: 27,2000                                           BANK                                           
030585,001363: 
030586,001364: 27,2674                                           COUNT*   $$/CDH                                
030587,001365: 27,2674           77220        CDHMVR             STQ      VLOAD                                 
030588,001366: 27,2675           02360                                    SUBEXIT                               
030589,001367: 27,2676           02453                                    RACT2                                 
030590,001368: 27,2677           53406                           PUSH     UNIT                                  
030591,001369: 27,2700           27546                           STOVL    UNVEC                                 #  UR SUB A
030592,001370: 27,2701           02625                                    RPASS2                                
030593,001371: 27,2702           50256                           UNIT     DOT                                   
030594,001372: 27,2703           03546                                    UNVEC                                 
030595,001373: 27,2704           72406                           PUSH     SL1                                   
030596,001374: 27,2705           16734                           STODL    CSTH                                  
030597,001375: 27,2706           65316                           DSQ      PDDL                                  
030598,001376: 27,2707           15326                                    DP1/4TH                               
030599,001377: 27,2710           45302                           SR2      DSU                                   
030600,001378: 27,2711           72566                           SQRT     SL1                                   
030601,001379: 27,2712           57515                           PDVL     VCOMP                                 
030602,001380: 27,2713           77635                           VXV                                            
030603,001381: 27,2714           02625                                    RPASS2                                
030604,001382: 27,2715           65241                           DOT      PDDL                                  
030605,001383: 27,2716           02611                                    UP1                                   
030606,001384: 27,2717           45565                           SIGN     STADR                                 
030607,001385: 27,2720           51045                           STOVL    SNTH                                  
030608,001386: 27,2721           02625                                    RPASS2                                
030609,001387: 27,2722           45115                           PDVL     CALL                                  
030610,001388: 27,2723           02617                                    VPASS2                                
030611,001389: 27,2724           45320                                    VECSHIFT                              
030612,001390: 27,2725           26746                           STOVL    VVEC                                  
030613,001391: 27,2726           77614                           CLEAR                                          
030614,001392: 27,2727           03666                                    RVSW                                  
030615,001393: 27,2730           36657                           STCALL   RVEC                                  
030616,001394: 27,2731           25002                                    TIMETHET                              
030617,001395: 27,2732           53754                           LXA,2    VSL*                                  
030618,001396: 27,2733           03746                                    RTX2                                  
030619,001397: 27,2734           57576                                    0,2                                   
030620,001398: 27,2735           00023                           STORE    18D                                   
030621,001399: 27,2736           76441                           DOT      SL1R                                  
030622,001400: 27,2737           03546                                    UNVEC                                 
030623,001401: 27,2740           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
030624,001402: 27,2741           63257                           SL*      PDVL                                  

Page 689

030626,001404: 27,2742           57576                                    0,2                                   
030627,001405: 27,2743           02453                                    RACT2                                 
030628,001406: 27,2744           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
030629,001407: 27,2745           77625                           DSU                                            
030630,001408: 27,2746           00003                                    02D                                   
030631,001409: 27,2747           16633                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
030632,001410: 27,2750           02744                                    R1A                                   
030633,001411: 27,2751           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
030634,001412: 27,2752           00047                                    X1                                    
030635,001413: 27,2753           00041                                    R1                                    
030636,001414: 27,2754           77624                           CALL                                           
030637,001415: 27,2755           45330                                    SHIFTR1                               
030638,001416: 27,2756           56362                           SR1R     DDV                                   
030639,001417: 27,2757           41457                           SL*      PUSH                                  
030640,001418: 27,2760           20174                                    0          -5,1                       
030641,001419: 27,2761           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
030642,001420: 27,2762           02633                                    DIFFALT                               
030643,001421: 27,2763           56302                           SR2      DDV                                   #  A SUB P                       B+31
030644,001422: 27,2764           00005                                    04D                                   #                                B+2
030645,001423: 27,2765           75406                           PUSH     SQRT                                  #  A SUB P/A SUB A                       06D
030646,001424: 27,2766           41275                           DMPR     DMP                                   
030647,001425: 27,2767           00007                                    06D                                   
030648,001426: 27,2770           00001                                    00D                                   
030649,001427: 27,2771           65272                           SL3R     PDDL                                  #  V SUB AV METERS/CS            B+7     08D
030650,001428: 27,2772           00003                                    02D                                   #  R SUB A MAGNITUDE             B+29
030651,001429: 27,2773           65301                           NORM     PDDL                                  
030652,001430: 27,2774           00047                                    X1                                    
030653,001431: 27,2775           03750                                    RTMU                                  
030654,001432: 27,2776           56342                           SR1      DDV                                   #  2MU                           B+38
030655,001433: 27,2777           65257                           SL*      PDDL                                  #  2 MU/R SUBAA                  B+14    10D
030656,001434: 27,3000           20174                                    0          -5,1                       
030657,001435: 27,3001           00005                                    04D                                   #  ASUBA                         B+29
030658,001436: 27,3002           65301                           NORM     PDDL                                  
030659,001437: 27,3003           00050                                    X2                                    
030660,001438: 27,3004           03750                                    RTMU                                  
030661,001439: 27,3005           56342                           SR1      DDV                                   
030662,001440: 27,3006           44257                           SL*      BDSU                                  
030663,001441: 27,3007           57604                                    0          -6,2                       #  2U/R - U/A     B+14  (METERS/CS)SQ
030664,001442: 27,3010           63525                           PDDL     DSQ                                   #                                        10D
030665,001443: 27,3011           00011                                    08D                                   
030666,001444: 27,3012           75421                           BDSU     SQRT                                  
030667,001445: 27,3013           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)  10D
030668,001446: 27,3014           02611                                    UP1                                   
030669,001447: 27,3015           03546                                    UNVEC                                 
030670,001448: 27,3016           74256                           UNIT     VXSC                                  
030671,001449: 27,3017           00013                                    10D                                   
030672,001450: 27,3020           74315                           PDVL     VXSC                                  
030673,001451: 27,3021           03546                                    UNVEC                                 
030674,001452: 27,3022           00011                                    08D                                   
030675,001453: 27,3023           76455                           VAD      VSL1                                  

Page 690

030677,001455: 27,3024           77626                           STADR                                          
030678,001456: 27,3025           74231                           STORE    VACT3                                 
030679,001457: 27,3026           77651                           VSU                                            
030680,001458: 27,3027           02533                                    VACT2                                 
030681,001459: 27,3030           37667                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
030682,001460: 27,3031           02360                                    SUBEXIT                               

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