Source Code

These source-code files were obtained by digitally photographing an Artemis 72 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.

029085,000002:                                                                                                  ## Copyright:   Public domain.
029086,000003:                                                                                                  ## Filename:    P32-P33_P72-P73.agc
029087,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
029088,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
029089,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), we believe for
029090,000007:                                                                                                  ##              Apollo 15-17.
029091,000008:                                                                                                  ## Assembler:   yaYUL
029092,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
029093,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029094,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
029095,000012:                                                                                                  ## Mod history: 2009-08-12 JL   Adapted from corresponding Comanche 055 file.
029096,000013:                                                                                                  ##              2009-09-04 JL   Fixed a bunch of typos. Fixed page numbers.
029097,000014:                                                                                                  ##              2010-02-07 JL   Removed spurious STORE instruction on p682.
029098,000015:                                                                                                  ##              2010-02-09 JL   Added missing code on p685.
029099,000016:                                                                                                  ##              2010-02-11 JL   Fixed error on p663.
029100,000017:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
029101,000018: 

Page 658

029103,000020: 
029104,000021:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
029105,000022: 
029106,000023:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
029107,000024:                                                                                                  #  MOD BY WHITE.P        DATE 1 JUNE 67
029108,000025: 
029109,000026:                                                                                                  #  PURPOSE
029110,000027: 
029111,000028:                                                                                                  #         (1) TO CALCULATE PARAMETERS ASSOCIATED WTIH THE FOLLOWING
029112,000029:                                                                                                  #             CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
029113,000030:                                                                                                  #             INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
029114,000031:                                                                                                  #             (CDH) MANEUVER.
029115,000032: 
029116,000033:                                                                                                  #         (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029117,000034:                                                                                                  #             APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029118,000035: 
029119,000036:                                                                                                  #         (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029120,000037:                                                                                                  #             ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR
029121,000038:                                                                                                  #             APPROVAL BY THE ASTRRONAUT/GROUND.
029122,000039: 
029123,000040:                                                                                                  #         (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
029124,000041:                                                                                                  #             THRUSTING PROGRAM.
029125,000042: 
029126,000043:                                                                                                  #  ASSUMPTIONS
029127,000044: 
029128,000045:                                                                                                  #         (1) AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE
029129,000046:                                                                                                  #             AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
029130,000047:                                                                                                  #             FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
029131,000048:                                                                                                  #             POSITION.
029132,000049: 
029133,000050:                                                                                                  #         (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
029134,000051:                                                                                                  #             COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029135,000052:                                                                                                  #             COMPLETION OF THE PROGRAM.
029136,000053: 
029137,000054:                                                                                                  #         (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
029138,000055:                                                                                                  #             COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029139,000056:                                                                                                  #             COMPLETION OF THE PROGRAM.
029140,000057: 
029141,000058:                                                                                                  #         (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
029142,000059:                                                                                                  #             ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
029143,000060: 
029144,000061:                                                                                                  #         (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
029145,000062:                                                                                                  #             HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
029146,000063:                                                                                                  #             IGNITION.
029147,000064: 
029148,000065:                                                                                                  #         (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
029149,000066:                                                                                                  #             MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
029150,000067:                                                                                                  #             ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
029151,000068: 
029152,000069:                                                                                                  #         (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
029153,000070:                                                                                                  #             PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER, CREW

Page 659

029155,000072:                                                                                                  #             MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
029156,000073:                                                                                                  #             OUT-OF-PLANE CSI MANEUVER.
029157,000074: 
029158,000075:                                                                                                  #         (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029159,000076:                                                                                                  #             STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
029160,000077: 
029161,000078:                                                                                                  #         (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029162,000079:                                                                                                  #             THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029163,000080:                                                                                                  #             ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029164,000081:                                                                                                  #             EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029165,000082: 
029166,000083:                                                                                                  #        (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029167,000084:                                                                                                  #             OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029168,000085:                                                                                                  #             DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY
029169,000086:                                                                                                  #             PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029170,000087:                                                                                                  #             AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029171,000088:                                                                                                  #             TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029172,000089:                                                                                                  #             MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029173,000090:                                                                                                  #             THRUSTING MANEUVER.
029174,000091: 
029175,000092:                                                                                                  #        (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029176,000093: 
029177,000094:                                                                                                  #        (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029178,000095: 
029179,000096:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029180,000097:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029181,000098:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029182,000099:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029183,000100: 
029184,000101:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029185,000102:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029186,000103:                                                                                                  #                CYCLE.
029187,000104: 
029188,000105:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029189,000106:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029190,000107:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029191,000108:                                                                                                  #                PROGRAM.
029192,000109: 
029193,000110:                                                                                                  #        (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029194,000111:                                                                                                  #             A THRUSTING MANEUVER.
029195,000112: 
029196,000113:                                                                                                  #        (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029197,000114: 
029198,000115:                                                                                                  #                P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
029199,000116: 
029200,000117:                                                                                                  #                P72 IF THIS VEHICLE IS THE PASSIVE VEHICLE.
029201,000118: 
029202,000119:                                                                                                  #  INPUT
029203,000120: 
029204,000121:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER

Page 660

029206,000123:                                                                                                  #        (2)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029207,000124:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029208,000125:                                                                                                  #                                MANEUVER POINT.
029209,000126:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
029210,000127:                                                                                                  #        (4)     TTPI            TIME OF THE TPI MANEUVER
029211,000128: 
029212,000129:                                                                                                  #  OUTPUT
029213,000130: 
029214,000131:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
029215,000132:                                                                                                  #        (2)     TTOGO           TIME TO GO
029216,000133:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
029217,000134:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
029218,000135:                                                                                                  #        (5)     T1TOT2          DELTA TIME FROM CSI TO CDH
029219,000136:                                                                                                  #        (6)     T2TOT3          DELTA TIME FROM CDH TO TPI
029220,000137:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
029221,000138:                                                                                                  #        (8)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029222,000139: 
029223,000140:                                                                                                  #  DOWNLINK
029224,000141: 
029225,000142:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
029226,000143:                                                                                                  #        (2)     TCDH            TIME OF THE CDH MANEUVER
029227,000144:                                                                                                  #        (3)     TTPI            TIME OF THE TPI MANEUVER
029228,000145:                                                                                                  #        (4)     TIG             TIME OF THE CSI MANEUVER
029229,000146:                                                                                                  #        (5)     DELVEET1        DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029230,000147:                                                                                                  #        (6)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029231,000148:                                                                                                  #        (7)     DIFFALT         DELTA ALTITUDE AT CDH
029232,000149:                                                                                                  #        (8)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029233,000150:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029234,000151:                                                                                                  #                                MANEUVER POINT
029235,000152:                                                                                                  #        (9)     ELEV            DESIRED LOS ANGLE AT TPI
029236,000153: 
029237,000154:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029238,000155: 
029239,000156:                                                                                                  #        (1)     TIG             TIME OF THE CSI MANEUVER
029240,000157:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
029241,000158:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
029242,000159:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
029243,000160:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
029244,000161:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029245,000162:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CSI
029246,000163:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029247,000164: 
029248,000165:                                                                                                  #  SUBROUTINES USED
029249,000166: 
029250,000167:                                                                                                  #        AVFLAGA
029251,000168:                                                                                                  #        AVFLAGP
029252,000169:                                                                                                  #        P20FLGON
029253,000170:                                                                                                  #        VARALARM
029254,000171:                                                                                                  #        BANKCALL
029255,000172:                                                                                                  #        GOFLASH
029256,000173:                                                                                                  #        GOTOPOOH

Page 661

029258,000175:                                                                                                  #        VNPOOH
029259,000176:                                                                                                  #        GOFLASHR
029260,000177:                                                                                                  #        BLANKET
029261,000178:                                                                                                  #        ENDOFJOB
029262,000179:                                                                                                  #        SELECTMU
029263,000180:                                                                                                  #        ADVANCE
029264,000181:                                                                                                  #        INTINT
029265,000182:                                                                                                  #        PASSIVE
029266,000183:                                                                                                  #        CSI/A
029267,000184:                                                                                                  #        S32/33.1
029268,000185:                                                                                                  #        DISDVLVC
029269,000186:                                                                                                  #        VN1645
029270,000187: 
029271,000188: 04,2000                                           SETLOC   CSI/CDH1                              
029272,000189: 04,2000                                           BANK                                           
029273,000190: 04,3403  E4,1760                                  EBANK=   SUBEXIT                               
029274,000191: 04,3403                                           COUNT*   $$/P3272                              
029275,000192: 04,3403           04553        P32                TC       AVFLAGA                               
029276,000193: 04,3404           03424                           TC       P32/P72A                              
029277,000194: 
029278,000195: 04,3405           04565        P72                TC       AVFLAGP                               
029279,000196: 04,3406           03424                           TC       P32/P72A                              
029280,000197: 04,3407           77734        ALMXITA            SXA,2                                          
029281,000198: 04,3410           03664                                    CSIALRM                               
029282,000199: 04,3411           77740        ALMXIT             LXC,1                                          
029283,000200: 04,3412           03664                                    CSIALRM                               
029284,000201: 04,3413           77533                           SLOAD*   EXIT                                  
029285,000202: 04,3414           13270                                    ALARM/TB   -1,1                       
029286,000203: 04,3415           30154                           CA       MPAC                                  
029287,000204: 04,3416           05770                           TC       VARALARM                              
029288,000205: 04,3417           35023                           CAF      V05N09                                
029289,000206: 04,3420           04636                           TC       BANKCALL                              
029290,000207: 04,3421           20743                           CADR     GOFLASH                               
029291,000208: 04,3422           04103                           TC       GOTOPOOH                              
029292,000209: 04,3423           03417                           TC       -4                                    
029293,000210: 04,3424           04572        P32/P72A           TC       P20FLGON                              
029294,000211: 04,3425           06006                           TC       INTPRET                               
029295,000212: 04,3426           45014                           BON      CALL                                  
029296,000213: 04,3427           05710                                    HAFLAG                                
029297,000214: 04,3430           11306                                    P31ALMRT                              
029298,000215: 04,3431           11546                                    INPUTDSP                              
029299,000216: 04,3432           71214                           CLEAR    DLOAD                                 
029300,000217: 04,3433           05671                                    CSISFLAG                              
029301,000218: 04,3434           02463                                    TCSI                                  
029302,000219: 04,3435           37413                           STCALL   TIG                                   
029303,000220: 04,3436           11217                                    SELECTMU                              
029304,000221: 04,3437           77745        P32/P72B           DLOAD                                          
029305,000222: 04,3440           03413                                    TIG                                   
029306,000223: 04,3441           77624        P31ENT             CALL                                           
029307,000224: 04,3442           76560                                    ADVANCE                               

Page 662

029309,000226: 04,3443           77201                           SETPD    VLOAD                                 
029310,000227: 04,3444           00001                                    0D                                    
029311,000228: 04,3445           03512                                    VPASS1                                
029312,000229: 04,3446           65315                           PDVL     PDDL                                  
029313,000230: 04,3447           03756                                    RPASS1                                
029314,000231: 04,3450           02463                                    TCSI                                  
029315,000232: 04,3451           65325                           PDDL     PDDL                                  
029316,000233: 04,3452           03663                                    TTPI                                  
029317,000234: 04,3453           33430                                    2PISC                                 
029318,000235: 04,3454           41512                           SL2      PUSH                                  
029319,000236: 04,3455           77624                           CALL                                           
029320,000237: 04,3456           72740                                    INTINT                                
029321,000238: 04,3457           77624                           CALL                                           
029322,000239: 04,3460           45314                                    PASSIVE                               
029323,000240: 04,3461           77624                           CALL                                           
029324,000241: 04,3462           15672                                    CSI/A                                 
029325,000242: 04,3463           43214        P32/P72C           BONCLR   DAD                                   
029326,000243: 04,3464           05610                                    HAFLAG                                
029327,000244: 04,3465           11357                                    P31RT                                 
029328,000245: 04,3466           26731                                    600SECS                               
029329,000246: 04,3467           03656                           STORE    T2TOT3                                
029330,000247: 
029331,000248: 04,3470           43014                           BON      SET                                   
029332,000249: 04,3471           01311                                    FINALFLG                              
029333,000250: 04,3472           11474                                    P32/P72D                              
029334,000251: 04,3473           00470                                    UPDATFLG                              
029335,000252: 04,3474           77745        P32/P72D           DLOAD                                          
029336,000253: 04,3475           02547                                    T1TOT2                                
029337,000254: 04,3476           02547        P32/P72E           STORE    T1TOT2                                
029338,000255: 04,3477           51025                           DSU      BPL                                   
029339,000256: 04,3500           13267                                    60MIN                                 
029340,000257: 04,3501           11476                                    P32/P72E                              
029341,000258: 04,3502           77745                           DLOAD                                          
029342,000259: 04,3503           03656                                    T2TOT3                                
029343,000260: 04,3504           03656        P32/P72F           STORE    T2TOT3                                
029344,000261: 04,3505           51025                           DSU      BPL                                   
029345,000262: 04,3506           13267                                    60MIN                                 
029346,000263: 04,3507           11504                                    P32/P72F                              
029347,000264: 04,3510           77414                           BON      EXIT                                  #  BYPASS N75 IN MINKEY
029348,000265: 04,3511           05310                                    AUTOSEQ                               
029349,000266: 04,3512           11516                                    PASS75                                
029350,000267: 
029351,000268: 04,3513           34605                           CAF      V06N75                                
029352,000269: 04,3514           05535                           TC       VNFLASH                               
029353,000270: 04,3515           06006                           TC       INTPRET                               
029354,000271: 04,3516           77624        PASS75             CALL                                           
029355,000272: 04,3517           76537                                    DISDVLVC                              #  ROTATE TO LV, DISP N90, ROTATE TO REF
029356,000273: 04,3520           77775                           VLOAD                                          
029357,000274: 04,3521           02453                                    RACT2                                 
029358,000275: 04,3522           36541                           STCALL   RACT1                                 

Page 663

029360,000277: 04,3523           32050                                    S32/33.X                              #  GET REF/LV MATRIX AT 0D
029361,000278: 04,3524           64375                           VLOAD    MXV                                   
029362,000279: 04,3525           03667                                    DELVEET2                              
029363,000280: 04,3526           00001                                    0D                                    
029364,000281: 04,3527           77772                           VSL1                                           
029365,000282: 04,3530           03540                           STORE    DELVOV                                #  LV FOR N 82 DISPLAY
029366,000283: 04,3531           77414                           BON      EXIT                                  
029367,000284: 04,3532           05310                                    AUTOSEQ                               
029368,000285: 04,3533           11537                                    PASS82                                
029369,000286: 04,3534           33545                           CAF      V06N82                                
029370,000287: 04,3535           05535                           TC       VNFLASH                               
029371,000288: 04,3536           06006                           TC       INTPRET                               
029372,000289: 04,3537           77745        PASS82             DLOAD                                          
029373,000290: 04,3540           03663                                    TTPI                                  
029374,000291: 04,3541           36465                           STCALL   TTPI0                                 
029375,000292: 04,3542           73027                                    VN1645                                
029376,000293: 04,3543           77650                           GOTO                                           
029377,000294: 04,3544           11437                                    P32/P72B                              
029378,000295: 04,3545           01522        V06N82             VN       0682                                  
029379,000296: 
029380,000297: 04,3546  15,3432               HIGH1              EQUALS   ONEBIT     +1                         
029381,000298: 
029382,000299: 04,3546           71220        INPUTDSP           STQ      DLOAD                                 
029383,000300: 04,3547           02551                                    N90RET                                
029384,000301: 04,3550           11400                                    130DEGLO                              
029385,000302: 04,3551           17754                           STODL    CENTANG                               
029386,000303: 04,3552           11402                                    208DEGLO                              
029387,000304: 04,3553           03744                           STORE    ELEV                                  
029388,000305: 04,3554           67214                           BON      SLOAD                                 
029389,000306: 04,3555           05711                                    CSISFLAG                              
029390,000307: 04,3556           11561                                    PASSNN                                
029391,000308: 04,3557           33433                                    HIGH1                                 
029392,000309: 04,3560           03766                           STORE    NN                                    
029393,000310: 04,3561           77776        PASSNN             EXIT                                           
029394,000311: 04,3562           34603                           CAF      V06N11                                
029395,000312: 04,3563           05535                           TC       VNFLASH                               
029396,000313: 04,3564           34533                           CAF      V06N55                                
029397,000314: 04,3565           05535                           TC       VNFLASH                               
029398,000315: 04,3566           34532                           CAF      V06N37                                
029399,000316: 04,3567           05535                           TC       VNFLASH                               
029400,000317: 04,3570           06006                           TC       INTPRET                               
029401,000318: 04,3571           77650                           GOTO                                           
029402,000319: 04,3572           02551                                    N90RET                                
029403,000320: 

Page 664

029405,000322:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
029406,000323:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
029407,000324:                                                                                                  #  MOD BY WHITE.P        DATE: 1 JUNE 67
029408,000325: 
029409,000326:                                                                                                  #  PURPOSE
029410,000327: 
029411,000328:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
029412,000329:                                                                                                  #            ALTITUDE MANEUVER (CDH).
029413,000330: 
029414,000331:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029415,000332:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029416,000333: 
029417,000334:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029418,000335:                                                                                                  #            ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
029419,000336:                                                                                                  #            ASTRONAUT/GROUND.
029420,000337: 
029421,000338:                                                                                                  #        (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
029422,000339:                                                                                                  #            THRUSTING PROGRAM.
029423,000340: 
029424,000341:                                                                                                  #  ASSUMPTIONS
029425,000342: 
029426,000343:                                                                                                  #        (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
029427,000344:                                                                                                  #            CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
029428,000345:                                                                                                  #            THEREFORE -
029429,000346: 
029430,000347:                                                                                                  #                (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029431,000348:                                                                                                  #                    BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029432,000349:                                                                                                  #                    A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029433,000350:                                                                                                  #                    HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029434,000351: 
029435,000352:                                                                                                  #                (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
029436,000353:                                                                                                  #                    COMPUTED TO BE GREATER THAN 10 MINUTES.
029437,000354: 
029438,000355:                                                                                                  #                (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029439,000356:                                                                                                  #                    COMPUTED TO BE GREATER THAN 10 MINUTES.
029440,000357: 
029441,000358:                                                                                                  #                (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029442,000359:                                                                                                  #                    ORBITS WAS MINIMIZED.
029443,000360: 
029444,000361:                                                                                                  #                (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
029445,000362:                                                                                                  #                    IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
029446,000363:                                                                                                  #                    POSITION AT CSI IGNITION.
029447,000364: 
029448,000365:                                                                                                  #                (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
029449,000366:                                                                                                  #                    CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
029450,000367:                                                                                                  #                    ORBIT OR 85 NM FOR EARTH ORBIT.
029451,000368: 
029452,000369:                                                                                                  #                (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029453,000370:                                                                                                  #                    THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW

Page 665

029455,000372:                                                                                                  #                    MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029456,000373:                                                                                                  #                    IN AN OUT-OF-PLANE MANEUVER.
029457,000374: 
029458,000375:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029459,000376:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
029460,000377: 
029461,000378:                                                                                                  #        (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029462,000379:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029463,000380:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029464,000381:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029465,000382: 
029466,000383:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029467,000384:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029468,000385:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029469,000386:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029470,000387:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029471,000388:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029472,000389:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029473,000390:                                                                                                  #            THRUSTING MANEUVER.
029474,000391: 
029475,000392:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029476,000393: 
029477,000394:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029478,000395: 
029479,000396:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029480,000397:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029481,000398:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029482,000399:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029483,000400: 
029484,000401:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029485,000402:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029486,000403:                                                                                                  #                CYCLE.
029487,000404: 
029488,000405:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029489,000406:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029490,000407:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029491,000408:                                                                                                  #                PROGRAM.
029492,000409: 
029493,000410:                                                                                                  #        (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029494,000411:                                                                                                  #            A THRUSTING MANEUVER.
029495,000412: 
029496,000413:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY.
029497,000414: 
029498,000415:                                                                                                  #                P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
029499,000416: 
029500,000417:                                                                                                  #                P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
029501,000418: 
029502,000419:                                                                                                  #  INPUT
029503,000420: 
029504,000421:                                                                                                  #        (1) TTPI0       TIME OF THE TPI MANEUVER - SAVED FROM P32/P72

Page 666

029506,000423:                                                                                                  #        (2) ELEV        DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
029507,000424:                                                                                                  #        (3) TCDH        TIME OF THE CDH MANEUVER
029508,000425: 
029509,000426:                                                                                                  #  OUTPUT
029510,000427: 
029511,000428:                                                                                                  #        (1) TRKMKCNT    NUMBER OF MARKS
029512,000429:                                                                                                  #        (2) TTOGO       TIME TO GO
029513,000430:                                                                                                  #        (3) +MGA        MIDDLE GIMBAL ANGLE
029514,000431:                                                                                                  #        (4) DIFFALT     DELTA ALTITUDE AT CDH
029515,000432:                                                                                                  #        (5) T2TOT3      DELTA TIME FROM CDH TO COMPUTED TPI
029516,000433:                                                                                                  #        (6) NOMTPI      DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
029517,000434:                                                                                                  #        (7) DELVLVC     DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029518,000435: 
029519,000436:                                                                                                  #  DOWNLINK
029520,000437: 
029521,000438:                                                                                                  #        (1) TCDH        TIME OF THE CDH MANEUVER
029522,000439:                                                                                                  #        (2) TTPI        TIME OF THE TPI MANEUVER
029523,000440:                                                                                                  #        (3) TIG         TIME OF THE CDH MANEUVER
029524,000441:                                                                                                  #        (4) DELVEET2    DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029525,000442:                                                                                                  #        (5) DIFFALT     DELTA ALTITUDE AT CDH
029526,000443:                                                                                                  #        (6) ELEV        DESIRED LOS ANGLE AT TPI
029527,000444: 
029528,000445:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029529,000446: 
029530,000447:                                                                                                  #        (1) TIG         TIME OF THE CDH MANEUVER
029531,000448:                                                                                                  #        (2) RTIG        POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029532,000449:                                                                                                  #                        INTO PLANE OF PASSIVE VEHICLE
029533,000450:                                                                                                  #        (3) VTIG        VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029534,000451:                                                                                                  #                        INTO PLANE OF PASSIVE VEHICLE
029535,000452:                                                                                                  #        (4) DELVSIN     DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029536,000453:                                                                                                  #        (5) DELVSAB     MAGNITUDE OF DELTA VELOCITY AT CDH
029537,000454:                                                                                                  #        (6) XDELVFLG    SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029538,000455: 
029539,000456:                                                                                                  #  SUBROUTINES USED
029540,000457: 
029541,000458:                                                                                                  #        AVFLAGA
029542,000459:                                                                                                  #        AVFLAGP
029543,000460:                                                                                                  #        P20FLGON
029544,000461:                                                                                                  #        VNPOOH
029545,000462:                                                                                                  #        SELECTMU
029546,000463:                                                                                                  #        ADVANCE
029547,000464:                                                                                                  #        CDHMVR
029548,000465:                                                                                                  #        INTINT3P
029549,000466:                                                                                                  #        ACTIVE
029550,000467:                                                                                                  #        PASSIVE
029551,000468:                                                                                                  #        S33/34.1
029552,000469:                                                                                                  #        ALARM
029553,000470:                                                                                                  #        BANKCALL
029554,000471:                                                                                                  #        GOFLASH
029555,000472:                                                                                                  #        GOTOPOOH
029556,000473:                                                                                                  #        S32/33.1

Page 667

029558,000475:                                                                                                  #        VN1645
029559,000476: 
029560,000477: 04,3573                                           COUNT*   $$/P3373                              
029561,000478: 04,3573           04553        P33                TC       AVFLAGA                               
029562,000479: 04,3574           03576                           TC       P33/P73A                              
029563,000480: 04,3575           04565        P73                TC       AVFLAGP                               
029564,000481: 04,3576           04572        P33/P73A           TC       P20FLGON                              
029565,000482: 04,3577           34604                           CAF      V06N13                                #  TCDH
029566,000483: 04,3600           05535                           TC       VNFLASH                               
029567,000484: 04,3601           06006                           TC       INTPRET                               
029568,000485: 04,3602           77745                           DLOAD                                          
029569,000486: 04,3603           02465                                    TTPI0                                 
029570,000487: 04,3604           17663                           STODL    TTPI                                  
029571,000488: 04,3605           02461                                    TCDH                                  
029572,000489: 04,3606           37413                           STCALL   TIG                                   
029573,000490: 04,3607           11217                                    SELECTMU                              
029574,000491: 04,3610           45145        P33/P73B           DLOAD    CALL                                  
029575,000492: 04,3611           03413                                    TIG                                   
029576,000493: 04,3612           76560                                    ADVANCE                               
029577,000494: 04,3613           77624                           CALL                                           
029578,000495: 04,3614           56674                                    CDHMVR                                
029579,000496: 04,3615           02445                           STORE    DELVEET1                              #  CDH DV TO USE DISDVLVC SUB FOR N81 DISP
029580,000497: 04,3616           77201                           SETPD    VLOAD                                 
029581,000498: 04,3617           00001                                    0D                                    
029582,000499: 04,3620           03546                                    VACT3                                 
029583,000500: 04,3621           45115                           PDVL     CALL                                  
029584,000501: 04,3622           02453                                    RACT2                                 
029585,000502: 04,3623           63615                                    INTINT3P                              
029586,000503: 04,3624           77624                           CALL                                           
029587,000504: 04,3625           45304                                    ACTIVE                                
029588,000505: 04,3626           77201                           SETPD    VLOAD                                 
029589,000506: 04,3627           00001                                    0D                                    
029590,000507: 04,3630           02617                                    VPASS2                                
029591,000508: 04,3631           45115                           PDVL     CALL                                  
029592,000509: 04,3632           02625                                    RPASS2                                
029593,000510: 04,3633           63615                                    INTINT3P                              
029594,000511: 04,3634           77624                           CALL                                           
029595,000512: 04,3635           45314                                    PASSIVE                               
029596,000513: 04,3636           43145                           DLOAD    SET                                   
029597,000514: 04,3637           11762                                    ZEROVEC                               
029598,000515: 04,3640           03461                                    ITSWICH                               
029599,000516: 04,3641           36355                           STCALL   NOMTPI                                
029600,000517: 04,3642           72251                                    S33/34.1                              
029601,000518: 04,3643           77454                           BZE      EXIT                                  
029602,000519: 04,3644           24035                                    P33/P73C                              
029603,000520: 04,3645           05671                           TC       ALARM                                 
029604,000521: 04,3646           00611                           OCT      611                                   
029605,000522: 04,3647           35023                           CAF      V05N09                                
029606,000523: 04,3650           04636                           TC       BANKCALL                              
029607,000524: 04,3651           20743                           CADR     GOFLASH                               

Page 668

029609,000526: 04,3652           04103                           TC       GOTOPOOH                              
029610,000527: 04,3653           03655                           TC       +2                                    
029611,000528: 04,3654           03576                           TC       P33/P73A                              
029612,000529: 04,3655           06006                           TC       INTPRET                               
029613,000530: 04,3656           77745                           DLOAD                                          
029614,000531: 04,3657           11762                                    ZEROVEC                               
029615,000532: 04,3660           36355                           STCALL   NOMTPI                                
029616,000533: 04,3661           24035                                    P33/P73C                              
029617,000534: 12,2000                                           SETLOC   CSI/CDH2                              
029618,000535: 12,2000                                           BANK                                           
029619,000536: 
029620,000537: 12,2035                                           COUNT*   $$/P3373                              
029621,000538: 12,2035           43014        P33/P73C           BON      SET                                   
029622,000539: 12,2036           01311                                    FINALFLG                              
029623,000540: 12,2037           24041                                    P33/P73D                              
029624,000541: 12,2040           00470                                    UPDATFLG                              
029625,000542: 12,2041           43345        P33/P73D           DLOAD    DAD                                   
029626,000543: 12,2042           02355                                    NOMTPI                                
029627,000544: 12,2043           03663                                    TTPI                                  
029628,000545: 12,2044           03663                           STORE    TTPI                                  
029629,000546: 12,2045           52025                           DSU      GOTO                                  
029630,000547: 12,2046           02461                                    TCDH                                  
029631,000548: 12,2047           11662                                    P33/P73E                              
029632,000549: 04,2000                                           SETLOC   CSI/CDH1                              
029633,000550: 04,2000                                           BANK                                           
029634,000551: 
029635,000552: 04,3662                                           COUNT*   $$/P3373                              
029636,000553: 04,3662           51025        P33/P73E           DSU      BPL                                   
029637,000554: 04,3663           13267                                    60MIN                                 
029638,000555: 04,3664           11662                                    P33/P73E                              
029639,000556: 04,3665           77615                           DAD                                            
029640,000557: 04,3666           13267                                    60MIN                                 
029641,000558: 04,3667           16547                           STODL    T1TOT2                                
029642,000559: 04,3670           03663                                    TTPI                                  
029643,000560: 04,3671           41425                           DSU      PUSH                                  
029644,000561: 04,3672           02465                                    TTPI0                                 
029645,000562: 04,3673           45246        P33/P73F           ABS      DSU                                   
029646,000563: 04,3674           13267                                    60MIN                                 
029647,000564: 04,3675           43244                           BPL      DAD                                   
029648,000565: 04,3676           11673                                    P33/P73F                              
029649,000566: 04,3677           13267                                    60MIN                                 
029650,000567: 04,3700           45565                           SIGN     STADR                                 
029651,000568: 04,3701           74121                           STORE    T2TOT3                                
029652,000569: 04,3702           77414                           BON      EXIT                                  
029653,000570: 04,3703           05310                                    AUTOSEQ                               
029654,000571: 04,3704           11710                                    SKIP75                                
029655,000572: 
029656,000573: 04,3705           34605                           CAF      V06N75                                
029657,000574: 04,3706           05535                           TC       VNFLASH                               
029658,000575: 04,3707           06006                           TC       INTPRET                               

Page 669

029660,000577: 04,3710           77624        SKIP75             CALL                                           
029661,000578: 04,3711           76537                                    DISDVLVC                              #  PUT UP N81, COMPUTE DELVSIN
029662,000579: 04,3712           77624                           CALL                                           
029663,000580: 04,3713           73027                                    VN1645                                
029664,000581: 04,3714           77650                           GOTO                                           
029665,000582: 04,3715           11610                                    P33/P73B                              
029666,000583:    4000                                           SETLOC   FFTAG12                               
029667,000584:    4000                                           BANK                                           
029668,000585: 
029669,000586:    4603                                           COUNT*   $$/P3272                              
029670,000587:    4603           01413        V06N11             VN       0611                                  
029671,000588:    4604           01415        V06N13             VN       0613                                  
029672,000589:    4605           01513        V06N75             VN       0675                                  
029673,000590: 

Page 670

029675,000592: 
029676,000593:                                                                                                  #  ..... DISDVLVC  .....
029677,000594: 
029678,000595:                                                                                                  #  SUBROUTINES USED
029679,000596: 
029680,000597:                                                                                                  #        S32/33.X
029681,000598:                                                                                                  #        VNPOOH
029682,000599: 
029683,000600: 37,2000                                           SETLOC   CDHTAG3                               
029684,000601: 37,2000                                           BANK                                           
029685,000602: 
029686,000603: 37,2537                                           COUNT*   $$/CSI                                
029687,000604: 37,2537           45020        DISDVLVC           STQ      CALL                                  
029688,000605: 37,2540           01023                                    NORMEX                                
029689,000606: 37,2541           32050                                    S32/33.X                              
029690,000607: 37,2542           64375                           VLOAD    MXV                                   
029691,000608: 37,2543           02445                                    DELVEET1                              
029692,000609: 37,2544           00001                                    0D                                    
029693,000610: 37,2545           77772                           VSL1                                           
029694,000611: 37,2546           37405                           STCALL   DELVLVC                               #  REF TO L V
029695,000612: 37,2547           15756                                    DISPN90                               
029696,000613: 37,2550           77624                           CALL                                           
029697,000614: 37,2551           32050                                    S32/33.X                              
029698,000615: 37,2552           61375                           VLOAD    VXM                                   
029699,000616: 37,2553           03405                                    DELVLVC                               
029700,000617: 37,2554           00001                                    0D                                    
029701,000618: 37,2555           77772                           VSL1                                           
029702,000619: 37,2556           37646                           STCALL   DELVSIN                               #  L V TO REF
029703,000620: 37,2557           01023                                    NORMEX                                
029704,000621: 

Page 671

029706,000623: 
029707,000624:                                                                                                  #  ..... CSI/A     .....
029708,000625: 
029709,000626:                                                                                                  #  SUBROUTINES USED
029710,000627: 
029711,000628:                                                                                                  #        VECSHIFT
029712,000629:                                                                                                  #        TIMETHET
029713,000630:                                                                                                  #        PERIAPO
029714,000631:                                                                                                  #        SHIFTR1
029715,000632:                                                                                                  #        INTINT2C
029716,000633:                                                                                                  #        CDHMVR
029717,000634:                                                                                                  #        PERIAPO1
029718,000635:                                                                                                  #        INTINT
029719,000636:                                                                                                  #        ACTIVE
029720,000637: 
029721,000638: 05,2000                                           SETLOC   CSITAG1                               
029722,000639: 05,2000                                           BANK                                           
029723,000640: 05,3266  E4,1760                                  EBANK=   SUBEXIT                               
029724,000641: 05,3266                                           COUNT*   $$/CSI                                
029725,000642: 05,3266           00025 37100  60MIN              2DEC     360000     B-28                       
029726,000643: 
029727,000644: 05,3270           00600        ALARM/TB           OCT      00600                                 #  NO 1
029728,000645: 05,3271           00601                           OCT      00601                                 #     2
029729,000646: 05,3272           00602                           OCT      00602                                 #     3
029730,000647: 05,3273           00603                           OCT      00603                                 #     4
029731,000648: 05,3274           00604                           OCT      00604                                 #     5
029732,000649: 05,3275           00605                           OCT      00605                                 #     6
029733,000650: 05,3276           00606                           OCT      00606                                 #     7
029734,000651: 05,3277  15,3416               LOOPMX             =        D1/1024    -1                         #  16 B-28
029735,000652: 05,3277           00003 34661  INITST             2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029736,000653: 
029737,000654: 05,3301           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #  MAXIMUM DV1 = 1000 FPS
029738,000655: 
029739,000656: 05,3303           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                 989 FPS
029740,000657: 
029741,000658: 05,3305  15,3411               1DPB2              =        D1/4                                  #  1 B-2
029742,000659: 05,3305  15,3431               1DPB28             =        ONEBIT                                #  1 B-28
029743,000660: 05,3305           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #  .1 FPS
029744,000661: 
029745,000662: 05,3307           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #  50 FPS
029746,000663: 
029747,000664: 05,3311           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #  200 FPS
029748,000665: 
029749,000666: 35,2000                                           SETLOC   CSI/CDH                               
029750,000667: 35,2000                                           BANK                                           
029751,000668: 35,3554                                           COUNT*   $$/CSI                                
029752,000669: 35,3554           00004 31566  PMINE              2DEC     157420     B-29                       #  84 NM. - MUST BE 8 WORDS BEFORE PMINM
029753,000670: 
029754,000671: 35,3556           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS
029755,000672: 
029756,000673: 35,3560           00003 34661  INITST1            2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029757,000674: 

Page 672

029759,000676: 35,3562           00000 06433  ONETHTH            2DEC     .0001      B-3                        
029760,000677: 
029761,000678: 35,3564           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE.
029762,000679: 
029763,000680: 06,2000                                           SETLOC   CSIPROG                               
029764,000681: 06,2000                                           BANK                                           
029765,000682: 
029766,000683: 06,3672                                           COUNT*   $$/CSI                                
029767,000684: 06,3672           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
029768,000685: 06,3673           05660                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
029769,000686: 06,3674           05461                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATOR
029770,000687: 06,3675           43014                           CLEAR    SET                                   
029771,000688: 06,3676           05662                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE, 01=FIRST CYCLE
029772,000689: 06,3677           05463                                    S32.1F3B                              #  10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE
029773,000690: 06,3700           77745                           DLOAD                                          
029774,000691: 06,3701           11762                                    ZEROVEC                               
029775,000692: 06,3702           03764                           STORE    LOOPCT                                
029776,000693: 06,3703           03665                           STORE    CSIALRM                               
029777,000694: 06,3704           77201        CSI/B              SETPD    VLOAD                                 
029778,000695: 06,3705           00001                                    0D                                    
029779,000696: 06,3706           02541                                    RACT1                                 
029780,000697: 06,3707           41446                           ABVAL    PUSH                                  #  RA1                                  B29 PL02D
029781,000698: 06,3710           70501                           NORM     SR1                                   
029782,000699: 06,3711           00050                                    X2                                    #                                B29-N2+ B1 PL04D
029783,000700: 06,3712           51515                           PDVL     ABVAL                                 
029784,000701: 06,3713           03554                                    RPASS3                                
029785,000702: 06,3714           55301                           NORM     BDDV                                  #  RA1/RP3                               B1 PL02D
029786,000703: 06,3715           00047                                    X1                                    
029787,000704: 06,3716           53664                           XSU,2    SR*                                   #                                        B2
029788,000705: 06,3717           00046                                    X1                                    
029789,000706: 06,3720           57175                                    1,2                                   
029790,000707: 06,3721           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1              B29+B2=B31 PL00D
029791,000708: 06,3722           33412                                    1DPB2                                 
029792,000709: 06,3723           65301                           NORM     PDDL                                  #                                           PL02D
029793,000710: 06,3724           00047                                    X1                                    
029794,000711: 06,3725           03750                                    RTMU                                  
029795,000712: 06,3726           56342                           SR1      DDV                                   #                              B38-B31 = B7 PL00D
029796,000713: 06,3727           75457                           SL*      SQRT                                  #                                        B7
029797,000714: 06,3730           20172                                    0          -7,1                       
029798,000715: 06,3731           53515                           PDVL     UNIT                                  #                                           PL02D
029799,000716: 06,3732           02541                                    RACT1                                 
029800,000717: 06,3733           47315                           PDVL     VXV                                   
029801,000718: 06,3734           02611                                    UP1                                   
029802,000719: 06,3735           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
029803,000720: 06,3736           72441                           DOT      SL1                                   #  VA1 . UH1                             B7
029804,000721: 06,3737           03504                                    VACT1                                 
029805,000722: 06,3740           45421                           BDSU     STADR                                 #                                           PL00D
029806,000723: 06,3741           60315                           STODL    DELVCSI                               
029807,000724: 06,3742           13300                                    INITST                                #  10 FPS
029808,000725: 06,3743           03464                           STORE    DELDV                                 

Page 673

029810,000727: 06,3744           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
029811,000728: 06,3745           03764                                    LOOPCT                                
029812,000729: 06,3746           33432                                    1DPB28                                
029813,000730: 06,3747           03764                           STORE    LOOPCT                                
029814,000731: 06,3750           77025                           DSU      AXT,2                                 
029815,000732: 06,3751           33417                                    LOOPMX                                
029816,000733: 06,3752           00006                                    6                                     
029817,000734: 06,3753           52044                           BPL      GOTO                                  
029818,000735: 06,3754           63566                                    SCNDSOL                               
029819,000736: 06,3755           24050                                    CSI/B2                                
029820,000737: 
029821,000738: 12,2000                                           SETLOC   CSIPROG2                              
029822,000739: 12,2000                                           BANK                                           
029823,000740: 
029824,000741: 12,2050                                           COUNT*   $$/CSI                                
029825,000742: 12,2050           77601        CSI/B2             SETPD                                          
029826,000743: 12,2051           00001                                    0D                                    
029827,000744: 12,2052           51545                           DLOAD    ABS                                   
029828,000745: 12,2053           03462                                    DELVCSI                               
029829,000746: 12,2054           50025                           DSU      BMN                                   
029830,000747: 12,2055           13302                                    DVMAX1                                
029831,000748: 12,2056           45406                                    CSI/B23                               
029832,000749: 12,2057           43174                           AXT,2    BON                                   
029833,000750: 12,2060           00007                                    7                                     
029834,000751: 12,2061           05700                                    S32.1F1                               
029835,000752: 12,2062           63566                                    SCNDSOL                               
029836,000753: 12,2063           43014                           BOFF     BON                                   
029837,000754: 12,2064           05742                                    S32.1F3A                              
029838,000755: 12,2065           24070                                    CSI/B22                               #  FLAG 3 NEQ 3
029839,000756: 12,2066           05703                                    S32.1F3B                              
029840,000757: 12,2067           63566                                    SCNDSOL                               
029841,000758: 12,2070           71214        CSI/B22            SET      DLOAD                                 
029842,000759: 12,2071           05460                                    S32.1F1                               
029843,000760: 12,2072           13304                                    DVMAX2                                
029844,000761: 12,2073           77765                           SIGN                                           
029845,000762: 12,2074           03462                                    DELVCSI                               
029846,000763: 12,2075           37462                           STCALL   DELVCSI                               
029847,000764: 12,2076           45406                                    CSI/B23                               
029848,000765: 
029849,000766: 22,2000                                           SETLOC   CSIPROG3                              
029850,000767: 22,2000                                           BANK                                           
029851,000768: 
029852,000769: 22,3406                                           COUNT*   $$/CSI                                
029853,000770: 22,3406           41575        CSI/B23            VLOAD    PUSH                                  
029854,000771: 22,3407           02541                                    RACT1                                 
029855,000772: 22,3410           63256                           UNIT     PDVL                                  
029856,000773: 22,3411           02611                                    UP1                                   
029857,000774: 22,3412           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
029858,000775: 22,3413           76561                           VXSC     VSL1                                  
029859,000776: 22,3414           03462                                    DELVCSI                               

Page 674

029861,000778: 22,3415           02445                           STORE    DELVEET1                              
029862,000779: 22,3416           40055                           VAD      BOV                                   
029863,000780: 22,3417           03504                                    VACT1                                 
029864,000781: 22,3420           45421                                    CSI/B23D                              
029865,000782: 22,3421           37474        CSI/B23D           STCALL   VACT4                                 
029866,000783: 22,3422           45320                                    VECSHIFT                              
029867,000784: 22,3423           26746                           STOVL    VVEC                                  
029868,000785: 22,3424           77614                           SET                                            
029869,000786: 22,3425           03466                                    RVSW                                  
029870,000787: 22,3426           26657                           STOVL    RVEC                                  
029871,000788: 22,3427           05545                                    SN359+                                
029872,000789: 22,3430           36732                           STCALL   SNTH                                  #  ALSO CSTH
029873,000790: 22,3431           25002                                    TIMETHET                              
029874,000791: 22,3432           72142                           SR1      LXA,1                                 
029875,000792: 22,3433           03745                                    RTX1                                  
029876,000793: 22,3434           37472                           STCALL   HAFPA1                                
029877,000794: 22,3435           45204                                    PERIAPO                               
029878,000795: 22,3436           77624                           CALL                                           
029879,000796: 22,3437           45330                                    SHIFTR1                               
029880,000797: 22,3440           17460                           STODL    POSTCSI                               
029881,000798: 22,3441           03754                                    CENTANG                               
029882,000799: 22,3442           52054                           BZE      GOTO                                  
029883,000800: 22,3443           45445                                    +2                                    
029884,000801: 22,3444           47161                                    CIRCL                                 
029885,000802: 22,3445           77745                           DLOAD                                          
029886,000803: 22,3446           02754                                    ECC                                   
029887,000804: 22,3447           50025                           DSU      BMN                                   
029888,000805: 22,3450           33563                                    ONETHTH                               
029889,000806: 22,3451           47161                                    CIRCL                                 
029890,000807: 22,3452           45145                           DLOAD    CALL                                  
029891,000808: 22,3453           00041                                    R1                                    
029892,000809: 22,3454           45330                                    SHIFTR1                               
029893,000810: 22,3455           60201                           SETPD    NORM                                  
029894,000811: 22,3456           00003                                    2D                                    
029895,000812: 22,3457           00047                                    X1                                    
029896,000813: 22,3460           50315                           PDVL     DOT                                   #                                           PL04D
029897,000814: 22,3461           02541                                    RACT1                                 
029898,000815: 22,3462           03474                                    VACT4                                 
029899,000816: 22,3463           56246                           ABS      DDV                                   
029900,000817: 22,3464           00003                                    02D                                   #  (/RDOTV/)/R1                  B36-B29= B7
029901,000818: 22,3465           45257                           SL*      DSU                                   
029902,000819: 22,3466           20201                                    0,1                                   
029903,000820: 22,3467           33557                                    NICKELDP                              
029904,000821: 22,3470           71240                           BMN      DLOAD                                 
029905,000822: 22,3471           47161                                    CIRCL                                 
029906,000823: 22,3472           02742                                    P                                     
029907,000824: 22,3473           45312                           SL2      DSU                                   
029908,000825: 22,3474           15326                                    1RTEB2                                #  1.B.2
029909,000826: 22,3475           14017                           STODL    14D                                   
029910,000827: 22,3476           03752                                    RTSR1/MU                              

Page 675

029912,000829: 22,3477           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1            B-16-B29 = B-45 PL02D
029913,000830: 22,3500           41325                           PDDL     DMP                                   
029914,000831: 22,3501           02742                                    P                                     
029915,000832: 22,3502           00041                                    R1                                    
029916,000833: 22,3503           77624                           CALL                                           
029917,000834: 22,3504           45330                                    SHIFTR1                               
029918,000835: 22,3505           72412                           SL4      SL1                                   
029919,000836: 22,3506           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1          B14+B-14 = B-31 PL02D
029920,000837: 22,3507           52414                           BOFF     SL3                                   
029921,000838: 22,3510           04343                                    CMOONFLG                              
029922,000839: 22,3511           45512                                    CSI/B3                                
029923,000840: 22,3512           50315        CSI/B3             PDVL     DOT                                   
029924,000841: 22,3513           02541                                    RACT1                                 
029925,000842: 22,3514           03474                                    VACT4                                 
029926,000843: 22,3515           03502                           STORE    RDOTV                                 
029927,000844: 22,3516           77646                           ABS                                            
029928,000845: 22,3517           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                     PL02D
029929,000846: 22,3520           00050                                    X2                                    
029930,000847: 22,3521           53660                           XSU,1    SL*                                   #                        B-31+B36-B3 = B2
029931,000848: 22,3522           00047                                    X2                                    
029932,000849: 22,3523           20204                                    3,1                                   
029933,000850: 22,3524           14015                           STODL    12D                                   
029934,000851: 22,3525           15336                                    ZEROVECS                              
029935,000852: 22,3526           00021                           STORE    16D                                   
029936,000853: 22,3527           53575                           VLOAD    UNIT                                  
029937,000854: 22,3530           00015                                    12D                                   
029938,000855: 22,3531           26732                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
029939,000856: 22,3532           02541                                    RACT1                                 
029940,000857: 22,3533           75315                           PDVL     SIGN                                  
029941,000858: 22,3534           03474                                    VACT4                                 
029942,000859: 22,3535           03502                                    RDOTV                                 
029943,000860: 22,3536           45076                           VCOMP    CALL                                  
029944,000861: 22,3537           45320                                    VECSHIFT                              
029945,000862: 22,3540           26746                           STOVL    VVEC                                  
029946,000863: 22,3541           77614                           SETGO                                          
029947,000864: 22,3542           03426                                    RVSW                                  
029948,000865: 22,3543           47145                                    CSINEXT                               
029949,000866: 
029950,000867: 22,3544           77776 62460  SN359+             2DEC     -.000086601                            
029951,000868: 
029952,000869: 22,3546           17777 37776  CS359+             2DEC     +.499999992                            
029953,000870: 
029954,000871: 23,2000                                           SETLOC   CSIPROG4                              
029955,000872: 23,2000                                           BANK                                           
029956,000873: 
029957,000874: 23,3145                                           COUNT*   $$/CSI                                
029958,000875: 23,3145           36657        CSINEXT            STCALL   RVEC                                  
029959,000876: 23,3146           25002                                    TIMETHET                              
029960,000877: 23,3147           43206                           PUSH     DAD                                   
029961,000878: 23,3150           02463                                    TCSI                                  

Page 676

029963,000880: 
029964,000881: 23,3151           16351                           STODL    TCSI2                                 #  TIME OF NEXT CSI
029965,000882: 23,3152           03502                                    RDOTV                                 
029966,000883: 23,3153           77644                           BPL                                            
029967,000884: 23,3154           47165                                    NTP/2                                 
029968,000885: 23,3155           45345                           DLOAD    DSU                                   
029969,000886: 23,3156           03472                                    HAFPA1                                
029970,000887: 23,3157           52006                           PUSH     GOTO                                  
029971,000888: 23,3160           47165                                    NTP/2                                 
029972,000889: 23,3161           71201        CIRCL              SETPD    DLOAD                                 
029973,000890: 23,3162           00001                                    00D                                   
029974,000891: 23,3163           15336                                    ZEROVECS                              
029975,000892: 23,3164           77606                           PUSH                                           
029976,000893: 23,3165           72545        NTP/2              DLOAD    SL1                                   
029977,000894: 23,3166           03472                                    HAFPA1                                
029978,000895: 23,3167           77615                           DAD                                            
029979,000896: 23,3170           02463                                    TCSI                                  
029980,000897: 23,3171           16351                           STODL    TCSI2                                 
029981,000898: 23,3172           03766                                    NN                                    #  COMPUTE NEXT CSI 1 REV AWAY
029982,000899: 23,3173           45342                           SR1      DSU                                   
029983,000900: 23,3174           07140                                    HIGH2                                 
029984,000901: 23,3175           77654                           BZE                                            ## NN = 4
029985,000902: 23,3176           47233                                    HMCSI                                 
029986,000903: 23,3177           41345        NTP/2A             DLOAD    DMP                                   
029987,000904: 23,3200           03766                                    NN                                    
029988,000905: 23,3201           03472                                    HAFPA1                                
029989,000906: 23,3202           45261                           SL       DSU                                   
029990,000907: 23,3203           20217                                    14D                                   
029991,000908: 23,3204           77615                           DAD                                            
029992,000909: 23,3205           02463                                    TCSI                                  
029993,000910: 23,3206           02461                           STORE    TCDH                                  
029994,000911: 23,3207           77021                           BDSU     AXT,2                                 
029995,000912: 23,3210           03663                                    TTPI                                  
029996,000913: 23,3211           00005                                    5D                                    
029997,000914: 23,3212           40240                           BMN      SETPD                                 
029998,000915: 23,3213           63566                                    SCNDSOL                               
029999,000916: 23,3214           00001                                    0D                                    
030000,000917: 23,3215           63375                           VLOAD    PDVL                                  
030001,000918: 23,3216           03474                                    VACT4                                 
030002,000919: 23,3217           02541                                    RACT1                                 
030003,000920: 23,3220           77624                           CALL                                           
030004,000921: 23,3221           63606                                    INTINT2C                              
030005,000922: 23,3222           26453                           STOVL    RACT2                                 
030006,000923: 23,3223           00007                                    VATT                                  
030007,000924: 23,3224           26533                           STOVL    VACT2                                 
030008,000925: 23,3225           03512                                    VPASS1                                
030009,000926: 23,3226           63201                           SETPD    PDVL                                  
030010,000927: 23,3227           00001                                    0D                                    
030011,000928: 23,3230           03756                                    RPASS1                                
030012,000929: 23,3231           77650                           GOTO                                           
030013,000930: 23,3232           34012                                    CSINEXT1                              

Page 677

030015,000932: 23,3233           43345        HMCSI              DLOAD    DAD                                   #  COMPUTE NEXT CSI 1 + 1/2 REVS AWAY
030016,000933: 23,3234           03472                                    HAFPA1                                
030017,000934: 23,3235           02351                                    TCSI2                                 
030018,000935: 23,3236           36351                           STCALL   TCSI2                                 
030019,000936: 23,3237           47177                                    NTP/2A                                
030020,000937: 16,2000                                           SETLOC   CSIPROG5                              
030021,000938: 16,2000                                           BANK                                           
030022,000939: 
030023,000940: 16,2012                                           COUNT*   $$/CSI                                
030024,000941: 16,2012           77624        CSINEXT1           CALL                                           
030025,000942: 16,2013           63606                                    INTINT2C                              
030026,000943: 16,2014           26625                           STOVL    RPASS2                                
030027,000944: 16,2015           00007                                    VATT                                  
030028,000945: 16,2016           36617                           STCALL   VPASS2                                
030029,000946: 16,2017           56674                                    CDHMVR                                
030030,000947: 16,2020           40375                           VLOAD    SETPD                                 
030031,000948: 16,2021           02453                                    RACT2                                 
030032,000949: 16,2022           00001                                    0D                                    
030033,000950: 16,2023           45115                           PDVL     CALL                                  
030034,000951: 16,2024           03546                                    VACT3                                 
030035,000952: 16,2025           45174                                    PERIAPO1                              
030036,000953: 16,2026           77624                           CALL                                           
030037,000954: 16,2027           45330                                    SHIFTR1                               
030038,000955: 16,2030           27472                           STOVL    POSTCDH                               
030039,000956: 16,2031           03546                                    VACT3                                 
030040,000957: 16,2032           63201                           SETPD    PDVL                                  
030041,000958: 16,2033           00001                                    0D                                    
030042,000959: 16,2034           02453                                    RACT2                                 
030043,000960: 16,2035           65325                           PDDL     PDDL                                  
030044,000961: 16,2036           02461                                    TCDH                                  
030045,000962: 16,2037           03663                                    TTPI                                  
030046,000963: 16,2040           62525                           PDDL     SL2                                   
030047,000964: 16,2041           33430                                    2PISC                                 
030048,000965: 16,2042           45006                           PUSH     CALL                                  
030049,000966: 16,2043           72740                                    INTINT                                
030050,000967: 16,2044           77624                           CALL                                           
030051,000968: 16,2045           45304                                    ACTIVE                                
030052,000969: 16,2046           77745                           DLOAD                                          
030053,000970: 16,2047           03744                                    ELEV                                  
030054,000971: 16,2050           73401                           SETPD    SINE                                  
030055,000972: 16,2051           00007                                    6D                                    
030056,000973: 16,2052           53515                           PDVL     UNIT                                  
030057,000974: 16,2053           03540                                    RACT3                                 
030058,000975: 16,2054           00001                           STORE    00D                                   #  URA3 AT 00D
030059,000976: 16,2055           47315                           PDVL     VXV                                   #  PL14D, PL08D
030060,000977: 16,2056           02611                                    UP1                                   
030061,000978: 16,2057           77656                           UNIT                                           
030062,000979: 16,2060           71525                           PDDL     COSINE                                #  UNIT(URA3 X UVA3 X URA3) = UH3        B1 PL14D
030063,000980: 16,2061           03744                                    ELEV                                  
030064,000981: 16,2062           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                         B2 PL08D

Page 678

030066,000983: 16,2063           43754                           STCALL   18D                                   #                PLUS
030067,000984: 16,2064           16440                                    CSINEXT2                              
030068,000985: 
030069,000986: 07,2000                                           SETLOC   CSIPROG6                              
030070,000987: 07,2000                                           BANK                                           
030071,000988: 
030072,000989: 07,2440                                           COUNT*   $$/CSI                                
030073,000990: 07,2440           74345        CSINEXT2           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U                    B2 PL00D
030074,000991: 07,2441           76455                           VAD      VSL1                                  
030075,000992: 07,2442           00023                                    18D                                   #                                        B1
030076,000993: 07,2443           50206                           PUSH     DOT                                   #                                           PL06D
030077,000994: 07,2444           03540                                    RACT3                                 #  (U . RA3) = TEMP1         B1 + B29 = B30
030078,000995: 07,2445           41552                           SL1      PUSH                                  #                                       B29 PL08D
030079,000996: 07,2446           72316                           DSQ      TLOAD                                 #  TEMP1**2                             B58
030080,000997: 07,2447           00155                                    MPAC                                  
030081,000998: 07,2450           50315                           PDVL     DOT                                   #                                           PL11D
030082,000999: 07,2451           03540                                    RACT3                                 
030083,001000: 07,2452           03540                                    RACT3                                 
030084,001001: 07,2453           57551                           TLOAD    DCOMP                                 #  RA3 . RA3
030085,001002: 07,2454           00155                                    MPAC                                  
030086,001003: 07,2455           50315                           PDVL     DOT                                   #  RP3 . RP3                         B58 PL14D
030087,001004: 07,2456           03554                                    RPASS3                                
030088,001005: 07,2457           03554                                    RPASS3                                #                                        PL11D
030089,001006: 07,2460           76371                           TAD      TAD                                   #  TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2  PL08D
030090,001007: 07,2461           71244                           BPL      DLOAD                                 
030091,001008: 07,2462           16500                                    K1ORK2                                
030092,001009: 07,2463           03764                                    LOOPCT                                
030093,001010: 07,2464           77025                           DSU      AXT,2                                 
030094,001011: 07,2465           33432                                    1DPB28                                
030095,001012: 07,2466           00001                                    1D                                    
030096,001013: 07,2467           77654                           BZE                                            
030097,001014: 07,2470           11407                                    ALMXITA                               
030098,001015: 07,2471           70545                           DLOAD    SR1                                   
030099,001016: 07,2472           03464                                    DELDV                                 
030100,001017: 07,2473           03464                           STORE    DELDV                                 
030101,001018: 07,2474           77621                           BDSU                                           
030102,001019: 07,2475           03470                                    DVPREV                                
030103,001020: 07,2476           37462                           STCALL   DELVCSI                               
030104,001021: 07,2477           15744                                    CSI/B1                                
030105,001022: 07,2500           41566        K1ORK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                 B29 PL10D
030106,001023: 07,2501           45276                           DCOMP    DSU                                   
030107,001024: 07,2502           00007                                    06D                                   #  -TEMP1-TEMP3 = K2 AT 10D
030108,001025: 07,2503           14013                           STODL    10D                                   #                                        PL08D
030109,001026: 07,2504           45425                           DSU      STADR                                 #                                        PL06D
030110,001027: 07,2505           77762                           STORE    12D                                   #  -TEMP1+TEMP3 = K1 AT 12D
030111,001028: 07,2506           77646                           ABS                                            
030112,001029: 07,2507           14017                           STODL    14D                                   
030113,001030: 07,2510           00013                                    10D                                   
030114,001031: 07,2511           45246                           ABS      DSU                                   
030115,001032: 07,2512           00017                                    14D                                   

Page 679

030117,001034: 07,2513           71240                           BMN      DLOAD                                 
030118,001035: 07,2514           50123                                    K2.                                   
030119,001036: 07,2515           00015                                    12D                                   
030120,001037: 07,2516           34013                           STCALL   10D                                   #  K EQUALS K1
030121,001038: 07,2517           50123                                    K2.                                   
030122,001039: 
030123,001040: 24,2000                                           SETLOC   CSIPROG7                              
030124,001041: 24,2000                                           BANK                                           
030125,001042: 
030126,001043: 24,2123                                           COUNT*   $$/CSI                                
030127,001044: 24,2123           77745        K2.                DLOAD                                          
030128,001045: 24,2124           00013                                    10D                                   
030129,001046: 24,2125           76561                           VXSC     VSL1                                  
030130,001047: 24,2126           53455                           VAD      UNIT                                  #  V = RA3 + KU UNIT                 B1
030131,001048: 24,2127           03540                                    RACT3                                 
030132,001049: 24,2130           53515                           PDVL     UNIT                                  #                                        PL06D
030133,001050: 24,2131           03554                                    RPASS3                                
030134,001051: 24,2132           53515                           PDVL     UNIT                                  #                                        PL12D
030135,001052: 24,2133           03562                                    VPASS3                                
030136,001053: 24,2134           63235                           VXV      PDVL                                  #  UVP3 X URP3                           PL18D
030137,001054: 24,2135           00007                                    06D                                   
030138,001055: 24,2136           00007                                    06D                                   
030139,001056: 24,2137           50235                           VXV      DOT                                   
030140,001057: 24,2140           00001                                    00D                                   
030141,001058: 24,2141           77626                           STADR                                          #                                        PL12D
030142,001059: 24,2142           53762                           STOVL    12D                                   #  (URP3 X V).(UVP3 X URP3)=TEMP         PL06D
030143,001060: 24,2143           72441                           DOT      SL1                                   #                                        PL00D
030144,001061: 24,2144           75326                           ARCCOS   SIGN                                  
030145,001062: 24,2145           00015                                    12D                                   #                                     B0
030146,001063: 24,2146           41542                           SR1      PUSH                                  #  GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3)   PL02D
030147,001064: 24,2147           71214                           BON      DLOAD                                 
030148,001065: 24,2150           05701                                    S32.1F2                               
030149,001066: 24,2151           50206                                    FRSTPAS                               
030150,001067: 24,2152           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
030151,001068: 24,2153           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                      B1 PL04D
030152,001069: 24,2154           03466                                    GAMPREV                               
030153,001070: 24,2155           03462                                    DELVCSI                               
030154,001071: 24,2156           60225                           DSU      NORM                                  #                                     B7
030155,001072: 24,2157           03470                                    DVPREV                                
030156,001073: 24,2160           00047                                    X1                                    
030157,001074: 24,2161           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)      B-6+N1 PL06D
030158,001075: 24,2162           00003                                    02D                                   #        = SLOPE
030159,001076: 24,2163           03462                                    DELVCSI                               
030160,001077: 24,2164           03470                           STORE    DVPREV                                
030161,001078: 24,2165           43014                           BOFF     BOFF                                  
030162,001079: 24,2166           05742                                    S32.1F3A                              
030163,001080: 24,2167           20323                                    THRDCHK                               
030164,001081: 24,2170           05743                                    S32.1F3B                              
030165,001082: 24,2171           20323                                    THRDCHK                               
030166,001083: 24,2172           41345                           DLOAD    DMP                                   

Page 680

030168,001085: 24,2173           00003                                    02D                                   
030169,001086: 24,2174           03466                                    GAMPREV                               
030170,001087: 24,2175           71244                           BPL      DLOAD                                 
030171,001088: 24,2176           20330                                    FIFTYFPS                              
030172,001089: 24,2177           33561                                    INITST1                               
030173,001090: 24,2200           77765                           SIGN                                           
030174,001091: 24,2201           03464                                    DELDV                                 
030175,001092: 24,2202           03464                           STORE    DELDV                                 
030176,001093: 24,2203           43014                           SET      CLEAR                                 
030177,001094: 24,2204           05462                                    S32.1F3A                              
030178,001095: 24,2205           05663                                    S32.1F3B                              
030179,001096: 24,2206           77745        FRSTPAS            DLOAD                                          
030180,001097: 24,2207           00001                                    00D                                   
030181,001098: 24,2210           17466                           STODL    GAMPREV                               
030182,001099: 24,2211           03462                                    DELVCSI                               
030183,001100: 24,2212           37470                           STCALL   DVPREV                                
030184,001101: 24,2213           20316                                    CSINEXT3                              
030185,001102: 
030186,001103: 10,2000                                           SETLOC   CSIPROG8                              
030187,001104: 10,2000                                           BANK                                           
030188,001105: 
030189,001106: 10,2316                                           COUNT*   $$/CSI                                
030190,001107: 10,2316           43025        CSINEXT3           DSU      CLEAR                                 
030191,001108: 10,2317           03464                                    DELDV                                 
030192,001109: 10,2320           05661                                    S32.1F2                               
030193,001110: 10,2321           37462                           STCALL   DELVCSI                               
030194,001111: 10,2322           15744                                    CSI/B1                                
030195,001112: 10,2323           43014        THRDCHK            BON      BON                                   
030196,001113: 10,2324           05702                                    S32.1F3A                              
030197,001114: 10,2325           20347                                    NEWTN                                 
030198,001115: 10,2326           05703                                    S32.1F3B                              
030199,001116: 10,2327           20347                                    NEWTN                                 
030200,001117: 10,2330           75345        FIFTYFPS           DLOAD    SIGN                                  
030201,001118: 10,2331           13310                                    FIFPSDP                               
030202,001119: 10,2332           00005                                    04D                                   
030203,001120: 10,2333           77765                           SIGN                                           
030204,001121: 10,2334           03466                                    GAMPREV                               
030205,001122: 10,2335           03464                           STORE    DELDV                                 
030206,001123: 10,2336           43276                           DCOMP    DAD                                   
030207,001124: 10,2337           03462                                    DELVCSI                               
030208,001125: 10,2340           17462                           STODL    DELVCSI                               
030209,001126: 10,2341           00001                                    00D                                   
030210,001127: 10,2342           43014                           SET      SET                                   
030211,001128: 10,2343           05463                                    S32.1F3B                              
030212,001129: 10,2344           05462                                    S32.1F3A                              
030213,001130: 10,2345           37466                           STCALL   GAMPREV                               
030214,001131: 10,2346           24050                                    CSI/B2                                
030215,001132: 10,2347           60345        NEWTN              DLOAD    NORM                                  
030216,001133: 10,2350           00005                                    04D                                   
030217,001134: 10,2351           00050                                    X2                                    

Page 681

030219,001136: 10,2352           54065                           BDDV     XSU,1                                 
030220,001137: 10,2353           00001                                    00D                                   
030221,001138: 10,2354           00047                                    X2                                    
030222,001139: 10,2355           77657                           SR*                                            
030223,001140: 10,2356           20601                                    0,1                                   
030224,001141: 10,2357           17464                           STODL    DELDV                                 
030225,001142: 10,2360           00001                                    00D                                   
030226,001143: 10,2361           03466                           STORE    GAMPREV                               
030227,001144: 10,2362           51545                           DLOAD    ABS                                   
030228,001145: 10,2363           03464                                    DELDV                                 
030229,001146: 10,2364           45206                           PUSH     DSU                                   #                                        PL08D
030230,001147: 10,2365           13306                                    EPSILN1                               
030231,001148: 10,2366           71240                           BMN      DLOAD                                 
030232,001149: 10,2367           20404                                    CSI/SOL                               
030233,001150: 10,2370           50025                           DSU      BMN                                   
030234,001151: 10,2371           13312                                    DELMAX1                               
030235,001152: 10,2372           20377                                    CSISTEP                               
030236,001153: 10,2373           75345                           DLOAD    SIGN                                  
030237,001154: 10,2374           13312                                    DELMAX1                               
030238,001155: 10,2375           03464                                    DELDV                                 
030239,001156: 10,2376           03464                           STORE    DELDV                                 
030240,001157: 10,2377           45345        CSISTEP            DLOAD    DSU                                   
030241,001158: 10,2400           03462                                    DELVCSI                               
030242,001159: 10,2401           03464                                    DELDV                                 
030243,001160: 10,2402           37462                           STCALL   DELVCSI                               
030244,001161: 10,2403           15744                                    CSI/B1                                
030245,001162: 10,2404           77145        CSI/SOL            DLOAD    AXT,2                                 
030246,001163: 10,2405           03460                                    POSTCSI                               
030247,001164: 10,2406           00002                                    2                                     
030248,001165: 10,2407           52150                           LXA,1    GOTO                                  
030249,001166: 10,2410           03745                                    RTX1                                  
030250,001167: 10,2411           63535                                    CSINEXT4                              
030251,001168: 
030252,001169: 31,2000                                           SETLOC   CSIPROG9                              
030253,001170: 31,2000                                           BANK                                           
030254,001171: 
030255,001172: 31,3535                                           COUNT*   $$/CSI                                
030256,001173: 31,3535           50023        CSINEXT4           DSU*     BMN                                   
030257,001174: 31,3536           33553                                    PMINE      -2,1                       
030258,001175: 31,3537           63566                                    SCNDSOL                               
030259,001176: 31,3540           71374                           AXT,2    DLOAD                                 
030260,001177: 31,3541           00003                                    3                                     
030261,001178: 31,3542           03472                                    POSTCDH                               
030262,001179: 31,3543           50023                           DSU*     BMN                                   
030263,001180: 31,3544           33553                                    PMINE      -2,1                       
030264,001181: 31,3545           63566                                    SCNDSOL                               
030265,001182: 31,3546           45345                           DLOAD    DSU                                   
030266,001183: 31,3547           02461                                    TCDH                                  
030267,001184: 31,3550           02463                                    TCSI                                  
030268,001185: 31,3551           02547                           STORE    T1TOT2                                

Page 682

030270,001187: 31,3552           45374                           AXT,2    DSU                                   
030271,001188: 31,3553           00004                                    4                                     
030272,001189: 31,3554           36161                                    600SEC                                
030273,001190: 31,3555           77040                           BMN      AXT,2                                 
030274,001191: 31,3556           63566                                    SCNDSOL                               
030275,001192: 31,3557           00005                                    5                                     
030276,001193: 31,3560           45345                           DLOAD    DSU                                   
030277,001194: 31,3561           03663                                    TTPI                                  
030278,001195: 31,3562           02461                                    TCDH                                  
030279,001196: 31,3563           51025                           DSU      BPL                                   
030280,001197: 31,3564           36161                                    600SEC                                
030281,001198: 31,3565           11463                                    P32/P72C                              
030282,001199: 31,3566           43014        SCNDSOL            BON      BOFF                                  
030283,001200: 31,3567           05702                                    S32.1F3A                              
030284,001201: 31,3570           11411                                    ALMXIT                                
030285,001202: 31,3571           05743                                    S32.1F3B                              
030286,001203: 31,3572           11411                                    ALMXIT                                
030287,001204: 31,3573           71334                           SXA,2    DLOAD                                 
030288,001205: 31,3574           03664                                    CSIALRM                               
030289,001206: 31,3575           15336                                    ZEROVECS                              
030290,001207: 31,3576           43014                           CLEAR    SET                                   
030291,001208: 31,3577           05660                                    S32.1F1                               
030292,001209: 31,3600           05461                                    S32.1F2                               
030293,001210: 31,3601           43014                           CLEAR    CLEAR                                 
030294,001211: 31,3602           05662                                    S32.1F3A                              
030295,001212: 31,3603           05663                                    S32.1F3B                              
030296,001213: 31,3604           37764                           STCALL   LOOPCT                                
030297,001214: 31,3605           15704                                    CSI/B                                 
030298,001215: 

Page 683

030300,001217:                                                                                                  #  ..... ADVANCE   .....
030301,001218: 
030302,001219:                                                                                                  #  SUBROUTINES USED
030303,001220:                                                                                                  #        PRECSET
030304,001221:                                                                                                  #        ROTATE
030305,001222: 
030306,001223: 37,2000                                           SETLOC   CDHTAG3                               
030307,001224: 37,2000                                           BANK                                           
030308,001225: 
030309,001226: 37,2560                                           COUNT*   $$/CDH                                
030310,001227: 37,2560           77620        ADVANCE            STQ                                            
030311,001228: 37,2561           02360                                    SUBEXIT                               
030312,001229: 37,2562           34041                           STCALL   TDEC1                                 
030313,001230: 37,2563           45236                                    PRECSET                               
030314,001231: 37,2564           77214                           SET      VLOAD                                 
030315,001232: 37,2565           01067                                    XDELVFLG                              
030316,001233: 37,2566           03562                                    VPASS3                                
030317,001234: 37,2567           02617                           STORE    VPASS2                                
030318,001235: 37,2570           27512                           STOVL    VPASS1                                
030319,001236: 37,2571           03554                                    RPASS3                                
030320,001237: 37,2572           02625                           STORE    RPASS2                                
030321,001238: 37,2573           27756                           STOVL    RPASS1                                
030322,001239: 37,2574           03540                                    RACT3                                 
030323,001240: 37,2575           37632                           STCALL   RTIG                                  
030324,001241: 37,2576           16520                                    ROTATE                                
030325,001242: 37,2577           02453                           STORE    RACT2                                 
030326,001243: 37,2600           26541                           STOVL    RACT1                                 
030327,001244: 37,2601           03546                                    VACT3                                 
030328,001245: 37,2602           37640                           STCALL   VTIG                                  
030329,001246: 37,2603           16520                                    ROTATE                                
030330,001247: 37,2604           02533                           STORE    VACT2                                 
030331,001248: 37,2605           37504                           STCALL   VACT1                                 
030332,001249: 37,2606           02360                                    SUBEXIT                               
030333,001250: 

Page 684

030335,001252:                                                                                                  #  ..... ROTATE    .....
030336,001253: 
030337,001254: 07,2000                                           SETLOC   CSIPROG6                              
030338,001255: 07,2000                                           BANK                                           
030339,001256: 
030340,001257: 07,2520                                           COUNT*   $$/CSI                                
030341,001258: 07,2520           41406        ROTATE             PUSH     PUSH                                  
030342,001259: 07,2521           74241                           DOT      VXSC                                  
030343,001260: 07,2522           02611                                    UP1                                   
030344,001261: 07,2523           02611                                    UP1                                   
030345,001262: 07,2524           51352                           VSL2     BVSU                                  
030346,001263: 07,2525           63256                           UNIT     PDVL                                  
030347,001264: 07,2526           74246                           ABVAL    VXSC                                  
030348,001265: 07,2527           43572                           VSL1     RVQ                                   
030349,001266: 

Page 685

030351,001268:                                                                                                  #  .... DISPN90 .....
030352,001269: 
030353,001270: 06,2000                                           SETLOC   CSIPROG                               
030354,001271: 06,2000                                           BANK                                           
030355,001272: 06,3756                                           COUNT*   $$/CSI                                
030356,001273: 06,3756           77620        DISPN90            STQ                                            
030357,001274: 06,3757           02356                                    ANEXIT                                
030358,001275: 06,3760           57575                           VLOAD    VCOMP                                 
030359,001276: 06,3761           02601                                    AUTOY                                 
030360,001277: 06,3762           15756                           STODL    YCSM                                  #  COMPLEMENT VALUES FOR N90 DISPLAYS
030361,001278: 06,3763           02603                                    CMYDOT                                
030362,001279: 06,3764           03407                           STORE    DELVLVC    +2                         
030363,001280: 06,3765           51414                           BOFF     ABS                                   
030364,001281: 06,3766           05356                                    PCFLAG                                
030365,001282: 06,3767           45550                                    OKN81                                 #  NOT IN P36
030366,001283: 06,3770           51025                           DSU      BPL                                   #  IS YDOT LESS THAN .1 FPS
030367,001284: 06,3771           13306                                    1/10FPS                               
030368,001285: 06,3772           45550                                    OKN81                                 #  NO
030369,001286: 06,3773           77775                           VLOAD                                          #  YES - FORCE DSKY DISPLAY TO BE 0
030370,001287: 06,3774           11762                                    ZEROVEC                               
030371,001288: 06,3775           37405                           STCALL   DELVLVC                               
030372,001289: 06,3776           45550                                    OKN81                                 
030373,001290: 
030374,001291: 22,2000                                           SETLOC   CSIPROG3                              
030375,001292: 22,2000                                           BANK                                           
030376,001293: 
030377,001294: 22,3550                                           COUNT*   $$/CSI                                
030378,001295: 22,3550           77776        OKN81              EXIT                                           
030379,001296: 22,3551           35037                           CA       V06N90                                
030380,001297: 22,3552           05535                           TC       VNFLASH                               
030381,001298: 
030382,001299: 22,3553           34535                           CAF      V06N81                                
030383,001300: 22,3554           05535                           TC       VNFLASH                               
030384,001301: 
030385,001302: 22,3555           06006                           TC       INTPRET                               
030386,001303: 22,3556           77650                           GOTO                                           
030387,001304: 22,3557           02356                                    ANEXIT                                
030388,001305: 
030389,001306: 22,3560  05,3305               1/10FPS            =        EPSILN1                               #  ,1 FPS
030390,001307: 

Page 686

030392,001309:                                                                                                  #  ..... INTINTNA  .....
030393,001310: 
030394,001311: 31,2000                                           SETLOC   CDHTAG2                               
030395,001312: 31,2000                                           BANK                                           
030396,001313: 
030397,001314: 31,3606                                           COUNT*   $$/CDH                                
030398,001315: 31,3606           65325        INTINT2C           PDDL     PDDL                                  
030399,001316: 31,3607           02463                                    TCSI                                  
030400,001317: 31,3610           02461                                    TCDH                                  
030401,001318: 31,3611           41525                           PDDL     PUSH                                  
030402,001319: 31,3612           33143                                    TWOPI                                 
030403,001320: 31,3613           77650                           GOTO                                           
030404,001321: 31,3614           72740                                    INTINT                                
030405,001322: 31,3615           65325        INTINT3P           PDDL     PDDL                                  
030406,001323: 31,3616           02461                                    TCDH                                  
030407,001324: 31,3617           03663                                    TTPI                                  
030408,001325: 31,3620           41525                           PDDL     PUSH                                  
030409,001326: 31,3621           33143                                    TWOPI                                 #  FOR CONIC INTEGRATION
030410,001327: 31,3622           77650                           GOTO                                           
030411,001328: 31,3623           72740                                    INTINT                                
030412,001329: 

Page 687

030414,001331:                                                                                                  #  ..... S32/33.X  .....
030415,001332: 
030416,001333: 15,2000                                           SETLOC   CDHTAGS                               
030417,001334: 15,2000                                           BANK                                           
030418,001335: 
030419,001336: 15,2050                                           COUNT*   $$/CDH                                
030420,001337: 15,2050           77201        S32/33.X           SETPD    VLOAD                                 
030421,001338: 15,2051           00007                                    6D                                    
030422,001339: 15,2052           02611                                    UP1                                   
030423,001340: 15,2053           63276                           VCOMP    PDVL                                  
030424,001341: 15,2054           02541                                    RACT1                                 
030425,001342: 15,2055           57456                           UNIT     VCOMP                                 
030426,001343: 15,2056           47206                           PUSH     VXV                                   
030427,001344: 15,2057           02611                                    UP1                                   
030428,001345: 15,2060           77772                           VSL1                                           
030429,001346: 15,2061           00001                           STORE    0D                                    
030430,001347: 15,2062           77616                           RVQ                                            
030431,001348: 

Page 688

030433,001350:                                                                                                  #  ..... CDHMVR    .....
030434,001351: 
030435,001352:                                                                                                  #  SUBROUTINES USED
030436,001353:                                                                                                  #        VECSHIFT
030437,001354:                                                                                                  #        TIMETHET
030438,001355:                                                                                                  #        SHIFTR1
030439,001356: 
030440,001357: 27,2000                                           SETLOC   CDHTAG                                
030441,001358: 27,2000                                           BANK                                           
030442,001359: 
030443,001360: 27,2674                                           COUNT*   $$/CDH                                
030444,001361: 27,2674           77220        CDHMVR             STQ      VLOAD                                 
030445,001362: 27,2675           02360                                    SUBEXIT                               
030446,001363: 27,2676           02453                                    RACT2                                 
030447,001364: 27,2677           53406                           PUSH     UNIT                                  
030448,001365: 27,2700           27546                           STOVL    UNVEC                                 #  UR SUB A
030449,001366: 27,2701           02625                                    RPASS2                                
030450,001367: 27,2702           50256                           UNIT     DOT                                   
030451,001368: 27,2703           03546                                    UNVEC                                 
030452,001369: 27,2704           72406                           PUSH     SL1                                   
030453,001370: 27,2705           16734                           STODL    CSTH                                  
030454,001371: 27,2706           65316                           DSQ      PDDL                                  
030455,001372: 27,2707           15326                                    DP1/4TH                               
030456,001373: 27,2710           45302                           SR2      DSU                                   
030457,001374: 27,2711           72566                           SQRT     SL1                                   
030458,001375: 27,2712           57515                           PDVL     VCOMP                                 
030459,001376: 27,2713           77635                           VXV                                            
030460,001377: 27,2714           02625                                    RPASS2                                
030461,001378: 27,2715           65241                           DOT      PDDL                                  
030462,001379: 27,2716           02611                                    UP1                                   
030463,001380: 27,2717           45565                           SIGN     STADR                                 
030464,001381: 27,2720           51045                           STOVL    SNTH                                  
030465,001382: 27,2721           02625                                    RPASS2                                
030466,001383: 27,2722           45115                           PDVL     CALL                                  
030467,001384: 27,2723           02617                                    VPASS2                                
030468,001385: 27,2724           45320                                    VECSHIFT                              
030469,001386: 27,2725           26746                           STOVL    VVEC                                  
030470,001387: 27,2726           77614                           CLEAR                                          
030471,001388: 27,2727           03666                                    RVSW                                  
030472,001389: 27,2730           36657                           STCALL   RVEC                                  
030473,001390: 27,2731           25002                                    TIMETHET                              
030474,001391: 27,2732           53754                           LXA,2    VSL*                                  
030475,001392: 27,2733           03746                                    RTX2                                  
030476,001393: 27,2734           57576                                    0,2                                   
030477,001394: 27,2735           00023                           STORE    18D                                   
030478,001395: 27,2736           76441                           DOT      SL1R                                  
030479,001396: 27,2737           03546                                    UNVEC                                 
030480,001397: 27,2740           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
030481,001398: 27,2741           63257                           SL*      PDVL                                  

Page 689

030483,001400: 27,2742           57576                                    0,2                                   
030484,001401: 27,2743           02453                                    RACT2                                 
030485,001402: 27,2744           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
030486,001403: 27,2745           77625                           DSU                                            
030487,001404: 27,2746           00003                                    02D                                   
030488,001405: 27,2747           16633                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
030489,001406: 27,2750           02744                                    R1A                                   
030490,001407: 27,2751           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
030491,001408: 27,2752           00047                                    X1                                    
030492,001409: 27,2753           00041                                    R1                                    
030493,001410: 27,2754           77624                           CALL                                           
030494,001411: 27,2755           45330                                    SHIFTR1                               
030495,001412: 27,2756           56362                           SR1R     DDV                                   
030496,001413: 27,2757           41457                           SL*      PUSH                                  
030497,001414: 27,2760           20174                                    0          -5,1                       
030498,001415: 27,2761           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
030499,001416: 27,2762           02633                                    DIFFALT                               
030500,001417: 27,2763           56302                           SR2      DDV                                   #  A SUB P                       B+31
030501,001418: 27,2764           00005                                    04D                                   #                                B+2
030502,001419: 27,2765           75406                           PUSH     SQRT                                  #  A SUB P/A SUB A                       06D
030503,001420: 27,2766           41275                           DMPR     DMP                                   
030504,001421: 27,2767           00007                                    06D                                   
030505,001422: 27,2770           00001                                    00D                                   
030506,001423: 27,2771           65272                           SL3R     PDDL                                  #  V SUB AV METERS/CS            B+7     08D
030507,001424: 27,2772           00003                                    02D                                   #  R SUB A MAGNITUDE             B+29
030508,001425: 27,2773           65301                           NORM     PDDL                                  
030509,001426: 27,2774           00047                                    X1                                    
030510,001427: 27,2775           03750                                    RTMU                                  
030511,001428: 27,2776           56342                           SR1      DDV                                   #  2MU                           B+38
030512,001429: 27,2777           65257                           SL*      PDDL                                  #  2 MU/R SUBAA                  B+14    10D
030513,001430: 27,3000           20174                                    0          -5,1                       
030514,001431: 27,3001           00005                                    04D                                   #  ASUBA                         B+29
030515,001432: 27,3002           65301                           NORM     PDDL                                  
030516,001433: 27,3003           00050                                    X2                                    
030517,001434: 27,3004           03750                                    RTMU                                  
030518,001435: 27,3005           56342                           SR1      DDV                                   
030519,001436: 27,3006           44257                           SL*      BDSU                                  
030520,001437: 27,3007           57604                                    0          -6,2                       #  2U/R - U/A     B+14  (METERS/CS)SQ
030521,001438: 27,3010           63525                           PDDL     DSQ                                   #                                        10D
030522,001439: 27,3011           00011                                    08D                                   
030523,001440: 27,3012           75421                           BDSU     SQRT                                  
030524,001441: 27,3013           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)  10D
030525,001442: 27,3014           02611                                    UP1                                   
030526,001443: 27,3015           03546                                    UNVEC                                 
030527,001444: 27,3016           74256                           UNIT     VXSC                                  
030528,001445: 27,3017           00013                                    10D                                   
030529,001446: 27,3020           74315                           PDVL     VXSC                                  
030530,001447: 27,3021           03546                                    UNVEC                                 
030531,001448: 27,3022           00011                                    08D                                   
030532,001449: 27,3023           76455                           VAD      VSL1                                  

Page 690

030534,001451: 27,3024           77626                           STADR                                          
030535,001452: 27,3025           74231                           STORE    VACT3                                 
030536,001453: 27,3026           77651                           VSU                                            
030537,001454: 27,3027           02533                                    VACT2                                 
030538,001455: 27,3030           37667                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
030539,001456: 27,3031           02360                                    SUBEXIT                               

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