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.

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

Page 658

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

Page 659

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

Page 660

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

Page 661

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

Page 662

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

Page 663

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

Page 664

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

Page 665

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

Page 666

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

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

Page 672

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

Page 673

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

Page 674

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

Page 675

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

Page 676

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

Page 677

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

Page 678

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

Page 679

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

Page 680

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

Page 681

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

Page 682

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

Page 683

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

Page 684

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

Page 685

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

Page 686

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

Page 687

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

Page 688

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

Page 689

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

Page 690

030684,001455: 27,3024           77626                           STADR                                          
030685,001456: 27,3025           74231                           STORE    VACT3                                 
030686,001457: 27,3026           77651                           VSU                                            
030687,001458: 27,3027           02533                                    VACT2                                 
030688,001459: 27,3030           37667                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
030689,001460: 27,3031           02360                                    SUBEXIT                               

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