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. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

029084,000002:                                                                                                 #  Copyright:     Public domain.
029085,000003:                                                                                                 #  Filename:      P32-P33_P72-P73.agc
029086,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
029087,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
029088,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
029089,000007:                                                                                                 #                 Apollo 15-17.
029090,000008:                                                                                                 #  Assembler:     yaYUL
029091,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
029092,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
029093,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
029094,000012:                                                                                                 #  Mod history:   2009-08-12 JL   Adapted from corresponding Comanche 055 file.
029095,000013:                                                                                                 #                 2009-09-04 JL   Fixed a bunch of typos. Fixed page numbers.
029096,000014:                                                                                                 #                 2010-02-07 JL   Removed spurious STORE instruction on p682.
029097,000015:                                                                                                 #                 2010-02-09 JL   Added missing code on p685.
029098,000016:                                                                                                 #                 2010-02-11 JL   Fixed error on p663.
029099,000017:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
029100,000018: 
029101,000019:                                                                                                 # # Page 658
029102,000020: 
029103,000021:                                                                                                 #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
029104,000022: 
029105,000023:                                                                                                 #  MOD NO -1              LOG SECTION - P32-P35, P72-P75
029106,000024:                                                                                                 #  MOD BY WHITE.P DATE 1 JUNE 67
029107,000025: 
029108,000026:                                                                                                 #  PURPOSE
029109,000027: 
029110,000028:                                                                                                 #          (1) TO CALCULATE PARAMETERS ASSOCIATED WTIH THE FOLLOWING
029111,000029:                                                                                                 #              CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
029112,000030:                                                                                                 #              INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
029113,000031:                                                                                                 #              (CDH) MANEUVER.
029114,000032: 
029115,000033:                                                                                                 #          (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029116,000034:                                                                                                 #              APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029117,000035: 
029118,000036:                                                                                                 #          (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029119,000037:                                                                                                 #              ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR
029120,000038:                                                                                                 #              APPROVAL BY THE ASTRRONAUT/GROUND.
029121,000039: 
029122,000040:                                                                                                 #          (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
029123,000041:                                                                                                 #              THRUSTING PROGRAM.
029124,000042: 
029125,000043:                                                                                                 #  ASSUMPTIONS
029126,000044: 
029127,000045:                                                                                                 #          (1) AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE
029128,000046:                                                                                                 #              AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
029129,000047:                                                                                                 #              FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
029130,000048:                                                                                                 #              POSITION.
029131,000049: 
029132,000050:                                                                                                 #          (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
029133,000051:                                                                                                 #              COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029134,000052:                                                                                                 #              COMPLETION OF THE PROGRAM.
029135,000053: 
029136,000054:                                                                                                 #          (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
029137,000055:                                                                                                 #              COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
029138,000056:                                                                                                 #              COMPLETION OF THE PROGRAM.
029139,000057: 
029140,000058:                                                                                                 #          (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
029141,000059:                                                                                                 #              ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
029142,000060: 
029143,000061:                                                                                                 #          (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
029144,000062:                                                                                                 #              HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
029145,000063:                                                                                                 #              IGNITION.
029146,000064: 
029147,000065:                                                                                                 #          (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
029148,000066:                                                                                                 #              MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
029149,000067:                                                                                                 #              ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
029150,000068: 
029151,000069:                                                                                                 #          (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
029152,000070:                                                                                                 #              PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER, CREW
029153,000071:                                                                                                 # # Page 659
029154,000072:                                                                                                 #              MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
029155,000073:                                                                                                 #              OUT-OF-PLANE CSI MANEUVER.
029156,000074: 
029157,000075:                                                                                                 #          (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029158,000076:                                                                                                 #              STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
029159,000077: 
029160,000078:                                                                                                 #          (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029161,000079:                                                                                                 #              THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029162,000080:                                                                                                 #              ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029163,000081:                                                                                                 #              EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029164,000082: 
029165,000083:                                                                                                 #         (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029166,000084:                                                                                                 #              OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029167,000085:                                                                                                 #              DESIRED THE RADAR WAS TURNED ON AND LOCKED BY THE CSM BY
029168,000086:                                                                                                 #              PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029169,000087:                                                                                                 #              AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029170,000088:                                                                                                 #              TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029171,000089:                                                                                                 #              MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029172,000090:                                                                                                 #              THRUSTING MANEUVER.
029173,000091: 
029174,000092:                                                                                                 #         (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029175,000093: 
029176,000094:                                                                                                 #         (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029177,000095: 
029178,000096:                                                                                                 #                 ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029179,000097:                                                                                                 #                 DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029180,000098:                                                                                                 #                 CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029181,000099:                                                                                                 #                 EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029182,000100: 
029183,000101:                                                                                                 #                 FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029184,000102:                                                                                                 #                 COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029185,000103:                                                                                                 #                 CYCLE.
029186,000104: 
029187,000105:                                                                                                 #                 EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029188,000106:                                                                                                 #                 STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029189,000107:                                                                                                 #                 THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029190,000108:                                                                                                 #                 PROGRAM.
029191,000109: 
029192,000110:                                                                                                 #         (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029193,000111:                                                                                                 #              A THRUSTING MANEUVER.
029194,000112: 
029195,000113:                                                                                                 #         (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029196,000114: 
029197,000115:                                                                                                 #                 P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
029198,000116: 
029199,000117:                                                                                                 #                 P72 IF THIS VEHICLE IS THE PASSIVE VEHICLE.
029200,000118: 
029201,000119:                                                                                                 #  INPUT
029202,000120: 
029203,000121:                                                                                                 #         (1)     TCSI            TIME OF THE CSI MANEUVER
029204,000122:                                                                                                 # # Page 660
029205,000123:                                                                                                 #         (2)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029206,000124:                                                                                                 #                                 VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029207,000125:                                                                                                 #                                 MANEUVER POINT.
029208,000126:                                                                                                 #         (3)     ELEV            DESIRED LOS ANGLE AT TPI
029209,000127:                                                                                                 #         (4)     TTPI            TIME OF THE TPI MANEUVER
029210,000128: 
029211,000129:                                                                                                 #  OUTPUT
029212,000130: 
029213,000131:                                                                                                 #         (1)     TRKMKCNT        NUMBER OF MARKS
029214,000132:                                                                                                 #         (2)     TTOGO           TIME TO GO
029215,000133:                                                                                                 #         (3)     +MGA            MIDDLE GIMBAL ANGLE
029216,000134:                                                                                                 #         (4)     DIFFALT         DELTA ALTITUDE AT CDH
029217,000135:                                                                                                 #         (5)     T1TOT2          DELTA TIME FROM CSI TO CDH
029218,000136:                                                                                                 #         (6)     T2TOT3          DELTA TIME FROM CDH TO TPI
029219,000137:                                                                                                 #         (7)     DELVLVC         DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
029220,000138:                                                                                                 #         (8)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029221,000139: 
029222,000140:                                                                                                 #  DOWNLINK
029223,000141: 
029224,000142:                                                                                                 #         (1)     TCSI            TIME OF THE CSI MANEUVER
029225,000143:                                                                                                 #         (2)     TCDH            TIME OF THE CDH MANEUVER
029226,000144:                                                                                                 #         (3)     TTPI            TIME OF THE TPI MANEUVER
029227,000145:                                                                                                 #         (4)     TIG             TIME OF THE CSI MANEUVER
029228,000146:                                                                                                 #         (5)     DELVEET1        DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029229,000147:                                                                                                 #         (6)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029230,000148:                                                                                                 #         (7)     DIFFALT         DELTA ALTITUDE AT CDH
029231,000149:                                                                                                 #         (8)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
029232,000150:                                                                                                 #                                 VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
029233,000151:                                                                                                 #                                 MANEUVER POINT
029234,000152:                                                                                                 #         (9)     ELEV            DESIRED LOS ANGLE AT TPI
029235,000153: 
029236,000154:                                                                                                 #  COMMUNICATION TO THRUSTING PROGRAMS
029237,000155: 
029238,000156:                                                                                                 #         (1)     TIG             TIME OF THE CSI MANEUVER
029239,000157:                                                                                                 #         (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
029240,000158:                                                                                                 #                                 INTO PLANE OF PASSIVE VEHICLE
029241,000159:                                                                                                 #         (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
029242,000160:                                                                                                 #                                 INTO PLANE OF PASSIVE VEHICLE
029243,000161:                                                                                                 #         (4)     DELVSIN         DELTA VELOCITY AT CSI - REFERENCE COORDINATES
029244,000162:                                                                                                 #         (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CSI
029245,000163:                                                                                                 #         (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029246,000164: 
029247,000165:                                                                                                 #  SUBROUTINES USED
029248,000166: 
029249,000167:                                                                                                 #         AVFLAGA
029250,000168:                                                                                                 #         AVFLAGP
029251,000169:                                                                                                 #         P20FLGON
029252,000170:                                                                                                 #         VARALARM
029253,000171:                                                                                                 #         BANKCALL
029254,000172:                                                                                                 #         GOFLASH
029255,000173:                                                                                                 #         GOTOPOOH
029256,000174:                                                                                                 # # Page 661
029257,000175:                                                                                                 #         VNPOOH
029258,000176:                                                                                                 #         GOFLASHR
029259,000177:                                                                                                 #         BLANKET
029260,000178:                                                                                                 #         ENDOFJOB
029261,000179:                                                                                                 #         SELECTMU
029262,000180:                                                                                                 #         ADVANCE
029263,000181:                                                                                                 #         INTINT
029264,000182:                                                                                                 #         PASSIVE
029265,000183:                                                                                                 #         CSI/A
029266,000184:                                                                                                 #         S32/33.1
029267,000185:                                                                                                 #         DISDVLVC
029268,000186:                                                                                                 #         VN1645
029269,000187: 
029270,000188: 04,2000                                          SETLOC   CSI/CDH1                              
029271,000189: 04,2000                                          BANK                                           
029272,000190: 04,3403  E4,1760                                 EBANK=   SUBEXIT                               
029273,000191: 04,3403                                          COUNT*   $$/P3272                              
029274,000192: 04,3403           04553        P32               TC       AVFLAGA                               
029275,000193: 04,3404           03424                          TC       P32/P72A                              
029276,000194: 
029277,000195: 04,3405           04565        P72               TC       AVFLAGP                               
029278,000196: 04,3406           03424                          TC       P32/P72A                              
029279,000197: 04,3407           77734        ALMXITA           SXA,2                                          
029280,000198: 04,3410           03664                                   CSIALRM                               
029281,000199: 04,3411           77740        ALMXIT            LXC,1                                          
029282,000200: 04,3412           03664                                   CSIALRM                               
029283,000201: 04,3413           77533                          SLOAD*   EXIT                                  
029284,000202: 04,3414           13270                                   ALARM/TB   -1,1                       
029285,000203: 04,3415           30154                          CA       MPAC                                  
029286,000204: 04,3416           05770                          TC       VARALARM                              
029287,000205: 04,3417           35023                          CAF      V05N09                                
029288,000206: 04,3420           04636                          TC       BANKCALL                              
029289,000207: 04,3421           20743                          CADR     GOFLASH                               
029290,000208: 04,3422           04103                          TC       GOTOPOOH                              
029291,000209: 04,3423           03417                          TC       -4                                    
029292,000210: 04,3424           04572        P32/P72A          TC       P20FLGON                              
029293,000211: 04,3425           06006                          TC       INTPRET                               
029294,000212: 04,3426           45014                          BON      CALL                                  
029295,000213: 04,3427           05710                                   HAFLAG                                
029296,000214: 04,3430           11306                                   P31ALMRT                              
029297,000215: 04,3431           11546                                   INPUTDSP                              
029298,000216: 04,3432           71214                          CLEAR    DLOAD                                 
029299,000217: 04,3433           05671                                   CSISFLAG                              
029300,000218: 04,3434           02463                                   TCSI                                  
029301,000219: 04,3435           37413                          STCALL   TIG                                   
029302,000220: 04,3436           11217                                   SELECTMU                              
029303,000221: 04,3437           77745        P32/P72B          DLOAD                                          
029304,000222: 04,3440           03413                                   TIG                                   
029305,000223: 04,3441           77624        P31ENT            CALL                                           
029306,000224: 04,3442           76560                                   ADVANCE                               
029307,000225:                                                                                                 # # Page 662
029308,000226: 04,3443           77201                          SETPD    VLOAD                                 
029309,000227: 04,3444           00001                                   0D                                    
029310,000228: 04,3445           03512                                   VPASS1                                
029311,000229: 04,3446           65315                          PDVL     PDDL                                  
029312,000230: 04,3447           03756                                   RPASS1                                
029313,000231: 04,3450           02463                                   TCSI                                  
029314,000232: 04,3451           65325                          PDDL     PDDL                                  
029315,000233: 04,3452           03663                                   TTPI                                  
029316,000234: 04,3453           33430                                   2PISC                                 
029317,000235: 04,3454           41512                          SL2      PUSH                                  
029318,000236: 04,3455           77624                          CALL                                           
029319,000237: 04,3456           72740                                   INTINT                                
029320,000238: 04,3457           77624                          CALL                                           
029321,000239: 04,3460           45314                                   PASSIVE                               
029322,000240: 04,3461           77624                          CALL                                           
029323,000241: 04,3462           15672                                   CSI/A                                 
029324,000242: 04,3463           43214        P32/P72C          BONCLR   DAD                                   
029325,000243: 04,3464           05610                                   HAFLAG                                
029326,000244: 04,3465           11357                                   P31RT                                 
029327,000245: 04,3466           26731                                   600SECS                               
029328,000246: 04,3467           03656                          STORE    T2TOT3                                
029329,000247: 
029330,000248: 04,3470           43014                          BON      SET                                   
029331,000249: 04,3471           01311                                   FINALFLG                              
029332,000250: 04,3472           11474                                   P32/P72D                              
029333,000251: 04,3473           00470                                   UPDATFLG                              
029334,000252: 04,3474           77745        P32/P72D          DLOAD                                          
029335,000253: 04,3475           02547                                   T1TOT2                                
029336,000254: 04,3476           02547        P32/P72E          STORE    T1TOT2                                
029337,000255: 04,3477           51025                          DSU      BPL                                   
029338,000256: 04,3500           13267                                   60MIN                                 
029339,000257: 04,3501           11476                                   P32/P72E                              
029340,000258: 04,3502           77745                          DLOAD                                          
029341,000259: 04,3503           03656                                   T2TOT3                                
029342,000260: 04,3504           03656        P32/P72F          STORE    T2TOT3                                
029343,000261: 04,3505           51025                          DSU      BPL                                   
029344,000262: 04,3506           13267                                   60MIN                                 
029345,000263: 04,3507           11504                                   P32/P72F                              
029346,000264: 04,3510           77414                          BON      EXIT                                  #  BYPASS N75 IN MINKEY
029347,000265: 04,3511           05310                                   AUTOSEQ                               
029348,000266: 04,3512           11516                                   PASS75                                
029349,000267: 
029350,000268: 04,3513           34605                          CAF      V06N75                                
029351,000269: 04,3514           05535                          TC       VNFLASH                               
029352,000270: 04,3515           06006                          TC       INTPRET                               
029353,000271: 04,3516           77624        PASS75            CALL                                           
029354,000272: 04,3517           76537                                   DISDVLVC                              #  ROTATE TO LV, DISP N90, ROTATE TO REF
029355,000273: 04,3520           77775                          VLOAD                                          
029356,000274: 04,3521           02453                                   RACT2                                 
029357,000275: 04,3522           36541                          STCALL   RACT1                                 
029358,000276:                                                                                                 # # Page 663
029359,000277: 04,3523           32050                                   S32/33.X                              #  GET REF/LV MATRIX AT 0D
029360,000278: 04,3524           64375                          VLOAD    MXV                                   
029361,000279: 04,3525           03667                                   DELVEET2                              
029362,000280: 04,3526           00001                                   0D                                    
029363,000281: 04,3527           77772                          VSL1                                           
029364,000282: 04,3530           03540                          STORE    DELVOV                                #  LV FOR N 82 DISPLAY
029365,000283: 04,3531           77414                          BON      EXIT                                  
029366,000284: 04,3532           05310                                   AUTOSEQ                               
029367,000285: 04,3533           11537                                   PASS82                                
029368,000286: 04,3534           33545                          CAF      V06N82                                
029369,000287: 04,3535           05535                          TC       VNFLASH                               
029370,000288: 04,3536           06006                          TC       INTPRET                               
029371,000289: 04,3537           77745        PASS82            DLOAD                                          
029372,000290: 04,3540           03663                                   TTPI                                  
029373,000291: 04,3541           36465                          STCALL   TTPI0                                 
029374,000292: 04,3542           73027                                   VN1645                                
029375,000293: 04,3543           77650                          GOTO                                           
029376,000294: 04,3544           11437                                   P32/P72B                              
029377,000295: 04,3545           01522        V06N82            VN       0682                                  
029378,000296: 
029379,000297: 04,3546  15,3432               HIGH1             EQUALS   ONEBIT     +1                         
029380,000298: 
029381,000299: 04,3546           71220        INPUTDSP          STQ      DLOAD                                 
029382,000300: 04,3547           02551                                   N90RET                                
029383,000301: 04,3550           11400                                   130DEGLO                              
029384,000302: 04,3551           17754                          STODL    CENTANG                               
029385,000303: 04,3552           11402                                   208DEGLO                              
029386,000304: 04,3553           03744                          STORE    ELEV                                  
029387,000305: 04,3554           67214                          BON      SLOAD                                 
029388,000306: 04,3555           05711                                   CSISFLAG                              
029389,000307: 04,3556           11561                                   PASSNN                                
029390,000308: 04,3557           33433                                   HIGH1                                 
029391,000309: 04,3560           03766                          STORE    NN                                    
029392,000310: 04,3561           77776        PASSNN            EXIT                                           
029393,000311: 04,3562           34603                          CAF      V06N11                                
029394,000312: 04,3563           05535                          TC       VNFLASH                               
029395,000313: 04,3564           34533                          CAF      V06N55                                
029396,000314: 04,3565           05535                          TC       VNFLASH                               
029397,000315: 04,3566           34532                          CAF      V06N37                                
029398,000316: 04,3567           05535                          TC       VNFLASH                               
029399,000317: 04,3570           06006                          TC       INTPRET                               
029400,000318: 04,3571           77650                          GOTO                                           
029401,000319: 04,3572           02551                                   N90RET                                
029402,000320: 
029403,000321:                                                                                                 # # Page 664
029404,000322:                                                                                                 #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
029405,000323:                                                                                                 #  MOD NO -1              LOG SECTION - P32-P35, P72-P75
029406,000324:                                                                                                 #  MOD BY WHITE.P DATE: 1 JUNE 67
029407,000325: 
029408,000326:                                                                                                 #  PURPOSE
029409,000327: 
029410,000328:                                                                                                 #         (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
029411,000329:                                                                                                 #             ALTITUDE MANEUVER (CDH).
029412,000330: 
029413,000331:                                                                                                 #         (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029414,000332:                                                                                                 #             APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029415,000333: 
029416,000334:                                                                                                 #         (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
029417,000335:                                                                                                 #             ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
029418,000336:                                                                                                 #             ASTRONAUT/GROUND.
029419,000337: 
029420,000338:                                                                                                 #         (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
029421,000339:                                                                                                 #             THRUSTING PROGRAM.
029422,000340: 
029423,000341:                                                                                                 #  ASSUMPTIONS
029424,000342: 
029425,000343:                                                                                                 #         (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
029426,000344:                                                                                                 #             CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
029427,000345:                                                                                                 #             THEREFORE -
029428,000346: 
029429,000347:                                                                                                 #                 (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029430,000348:                                                                                                 #                     BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029431,000349:                                                                                                 #                     A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029432,000350:                                                                                                 #                     HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029433,000351: 
029434,000352:                                                                                                 #                 (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
029435,000353:                                                                                                 #                     COMPUTED TO BE GREATER THAN 10 MINUTES.
029436,000354: 
029437,000355:                                                                                                 #                 (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029438,000356:                                                                                                 #                     COMPUTED TO BE GREATER THAN 10 MINUTES.
029439,000357: 
029440,000358:                                                                                                 #                 (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029441,000359:                                                                                                 #                     ORBITS WAS MINIMIZED.
029442,000360: 
029443,000361:                                                                                                 #                 (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
029444,000362:                                                                                                 #                     IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
029445,000363:                                                                                                 #                     POSITION AT CSI IGNITION.
029446,000364: 
029447,000365:                                                                                                 #                 (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
029448,000366:                                                                                                 #                     CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
029449,000367:                                                                                                 #                     ORBIT OR 85 NM FOR EARTH ORBIT.
029450,000368: 
029451,000369:                                                                                                 #                 (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029452,000370:                                                                                                 #                     THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
029453,000371:                                                                                                 # # Page 665
029454,000372:                                                                                                 #                     MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029455,000373:                                                                                                 #                     IN AN OUT-OF-PLANE MANEUVER.
029456,000374: 
029457,000375:                                                                                                 #         (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029458,000376:                                                                                                 #             STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
029459,000377: 
029460,000378:                                                                                                 #         (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
029461,000379:                                                                                                 #             THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
029462,000380:                                                                                                 #             ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
029463,000381:                                                                                                 #             EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
029464,000382: 
029465,000383:                                                                                                 #         (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029466,000384:                                                                                                 #             OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029467,000385:                                                                                                 #             DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029468,000386:                                                                                                 #             PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029469,000387:                                                                                                 #             AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029470,000388:                                                                                                 #             TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029471,000389:                                                                                                 #             MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029472,000390:                                                                                                 #             THRUSTING MANEUVER.
029473,000391: 
029474,000392:                                                                                                 #         (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029475,000393: 
029476,000394:                                                                                                 #         (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029477,000395: 
029478,000396:                                                                                                 #                 ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029479,000397:                                                                                                 #                 DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029480,000398:                                                                                                 #                 CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029481,000399:                                                                                                 #                 EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029482,000400: 
029483,000401:                                                                                                 #                 FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029484,000402:                                                                                                 #                 COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
029485,000403:                                                                                                 #                 CYCLE.
029486,000404: 
029487,000405:                                                                                                 #                 EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
029488,000406:                                                                                                 #                 STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
029489,000407:                                                                                                 #                 THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
029490,000408:                                                                                                 #                 PROGRAM.
029491,000409: 
029492,000410:                                                                                                 #         (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
029493,000411:                                                                                                 #             A THRUSTING MANEUVER.
029494,000412: 
029495,000413:                                                                                                 #         (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY.
029496,000414: 
029497,000415:                                                                                                 #                 P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
029498,000416: 
029499,000417:                                                                                                 #                 P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
029500,000418: 
029501,000419:                                                                                                 #  INPUT
029502,000420: 
029503,000421:                                                                                                 #         (1) TTPI0       TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
029504,000422:                                                                                                 # # Page 666
029505,000423:                                                                                                 #         (2) ELEV        DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
029506,000424:                                                                                                 #         (3) TCDH        TIME OF THE CDH MANEUVER
029507,000425: 
029508,000426:                                                                                                 #  OUTPUT
029509,000427: 
029510,000428:                                                                                                 #         (1) TRKMKCNT    NUMBER OF MARKS
029511,000429:                                                                                                 #         (2) TTOGO       TIME TO GO
029512,000430:                                                                                                 #         (3) +MGA        MIDDLE GIMBAL ANGLE
029513,000431:                                                                                                 #         (4) DIFFALT     DELTA ALTITUDE AT CDH
029514,000432:                                                                                                 #         (5) T2TOT3      DELTA TIME FROM CDH TO COMPUTED TPI
029515,000433:                                                                                                 #         (6) NOMTPI      DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
029516,000434:                                                                                                 #         (7) DELVLVC     DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
029517,000435: 
029518,000436:                                                                                                 #  DOWNLINK
029519,000437: 
029520,000438:                                                                                                 #         (1) TCDH        TIME OF THE CDH MANEUVER
029521,000439:                                                                                                 #         (2) TTPI        TIME OF THE TPI MANEUVER
029522,000440:                                                                                                 #         (3) TIG         TIME OF THE CDH MANEUVER
029523,000441:                                                                                                 #         (4) DELVEET2    DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029524,000442:                                                                                                 #         (5) DIFFALT     DELTA ALTITUDE AT CDH
029525,000443:                                                                                                 #         (6) ELEV        DESIRED LOS ANGLE AT TPI
029526,000444: 
029527,000445:                                                                                                 #  COMMUNICATION TO THRUSTING PROGRAMS
029528,000446: 
029529,000447:                                                                                                 #         (1) TIG         TIME OF THE CDH MANEUVER
029530,000448:                                                                                                 #         (2) RTIG        POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029531,000449:                                                                                                 #                         INTO PLANE OF PASSIVE VEHICLE
029532,000450:                                                                                                 #         (3) VTIG        VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
029533,000451:                                                                                                 #                         INTO PLANE OF PASSIVE VEHICLE
029534,000452:                                                                                                 #         (4) DELVSIN     DELTA VELOCITY AT CDH - REFERENCE COORDINATES
029535,000453:                                                                                                 #         (5) DELVSAB     MAGNITUDE OF DELTA VELOCITY AT CDH
029536,000454:                                                                                                 #         (6) XDELVFLG    SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
029537,000455: 
029538,000456:                                                                                                 #  SUBROUTINES USED
029539,000457: 
029540,000458:                                                                                                 #         AVFLAGA
029541,000459:                                                                                                 #         AVFLAGP
029542,000460:                                                                                                 #         P20FLGON
029543,000461:                                                                                                 #         VNPOOH
029544,000462:                                                                                                 #         SELECTMU
029545,000463:                                                                                                 #         ADVANCE
029546,000464:                                                                                                 #         CDHMVR
029547,000465:                                                                                                 #         INTINT3P
029548,000466:                                                                                                 #         ACTIVE
029549,000467:                                                                                                 #         PASSIVE
029550,000468:                                                                                                 #         S33/34.1
029551,000469:                                                                                                 #         ALARM
029552,000470:                                                                                                 #         BANKCALL
029553,000471:                                                                                                 #         GOFLASH
029554,000472:                                                                                                 #         GOTOPOOH
029555,000473:                                                                                                 #         S32/33.1
029556,000474:                                                                                                 # # Page 667
029557,000475:                                                                                                 #         VN1645
029558,000476: 
029559,000477: 04,3573                                          COUNT*   $$/P3373                              
029560,000478: 04,3573           04553        P33               TC       AVFLAGA                               
029561,000479: 04,3574           03576                          TC       P33/P73A                              
029562,000480: 04,3575           04565        P73               TC       AVFLAGP                               
029563,000481: 04,3576           04572        P33/P73A          TC       P20FLGON                              
029564,000482: 04,3577           34604                          CAF      V06N13                                #  TCDH
029565,000483: 04,3600           05535                          TC       VNFLASH                               
029566,000484: 04,3601           06006                          TC       INTPRET                               
029567,000485: 04,3602           77745                          DLOAD                                          
029568,000486: 04,3603           02465                                   TTPI0                                 
029569,000487: 04,3604           17663                          STODL    TTPI                                  
029570,000488: 04,3605           02461                                   TCDH                                  
029571,000489: 04,3606           37413                          STCALL   TIG                                   
029572,000490: 04,3607           11217                                   SELECTMU                              
029573,000491: 04,3610           45145        P33/P73B          DLOAD    CALL                                  
029574,000492: 04,3611           03413                                   TIG                                   
029575,000493: 04,3612           76560                                   ADVANCE                               
029576,000494: 04,3613           77624                          CALL                                           
029577,000495: 04,3614           56674                                   CDHMVR                                
029578,000496: 04,3615           02445                          STORE    DELVEET1                              #  CDH DV TO USE DISDVLVC SUB FOR N81 DISP
029579,000497: 04,3616           77201                          SETPD    VLOAD                                 
029580,000498: 04,3617           00001                                   0D                                    
029581,000499: 04,3620           03546                                   VACT3                                 
029582,000500: 04,3621           45115                          PDVL     CALL                                  
029583,000501: 04,3622           02453                                   RACT2                                 
029584,000502: 04,3623           63615                                   INTINT3P                              
029585,000503: 04,3624           77624                          CALL                                           
029586,000504: 04,3625           45304                                   ACTIVE                                
029587,000505: 04,3626           77201                          SETPD    VLOAD                                 
029588,000506: 04,3627           00001                                   0D                                    
029589,000507: 04,3630           02617                                   VPASS2                                
029590,000508: 04,3631           45115                          PDVL     CALL                                  
029591,000509: 04,3632           02625                                   RPASS2                                
029592,000510: 04,3633           63615                                   INTINT3P                              
029593,000511: 04,3634           77624                          CALL                                           
029594,000512: 04,3635           45314                                   PASSIVE                               
029595,000513: 04,3636           43145                          DLOAD    SET                                   
029596,000514: 04,3637           11762                                   ZEROVEC                               
029597,000515: 04,3640           03461                                   ITSWICH                               
029598,000516: 04,3641           36355                          STCALL   NOMTPI                                
029599,000517: 04,3642           72251                                   S33/34.1                              
029600,000518: 04,3643           77454                          BZE      EXIT                                  
029601,000519: 04,3644           24035                                   P33/P73C                              
029602,000520: 04,3645           05671                          TC       ALARM                                 
029603,000521: 04,3646           00611                          OCT      611                                   
029604,000522: 04,3647           35023                          CAF      V05N09                                
029605,000523: 04,3650           04636                          TC       BANKCALL                              
029606,000524: 04,3651           20743                          CADR     GOFLASH                               
029607,000525:                                                                                                 # # Page 668
029608,000526: 04,3652           04103                          TC       GOTOPOOH                              
029609,000527: 04,3653           03655                          TC       +2                                    
029610,000528: 04,3654           03576                          TC       P33/P73A                              
029611,000529: 04,3655           06006                          TC       INTPRET                               
029612,000530: 04,3656           77745                          DLOAD                                          
029613,000531: 04,3657           11762                                   ZEROVEC                               
029614,000532: 04,3660           36355                          STCALL   NOMTPI                                
029615,000533: 04,3661           24035                                   P33/P73C                              
029616,000534: 12,2000                                          SETLOC   CSI/CDH2                              
029617,000535: 12,2000                                          BANK                                           
029618,000536: 
029619,000537: 12,2035                                          COUNT*   $$/P3373                              
029620,000538: 12,2035           43014        P33/P73C          BON      SET                                   
029621,000539: 12,2036           01311                                   FINALFLG                              
029622,000540: 12,2037           24041                                   P33/P73D                              
029623,000541: 12,2040           00470                                   UPDATFLG                              
029624,000542: 12,2041           43345        P33/P73D          DLOAD    DAD                                   
029625,000543: 12,2042           02355                                   NOMTPI                                
029626,000544: 12,2043           03663                                   TTPI                                  
029627,000545: 12,2044           03663                          STORE    TTPI                                  
029628,000546: 12,2045           52025                          DSU      GOTO                                  
029629,000547: 12,2046           02461                                   TCDH                                  
029630,000548: 12,2047           11662                                   P33/P73E                              
029631,000549: 04,2000                                          SETLOC   CSI/CDH1                              
029632,000550: 04,2000                                          BANK                                           
029633,000551: 
029634,000552: 04,3662                                          COUNT*   $$/P3373                              
029635,000553: 04,3662           51025        P33/P73E          DSU      BPL                                   
029636,000554: 04,3663           13267                                   60MIN                                 
029637,000555: 04,3664           11662                                   P33/P73E                              
029638,000556: 04,3665           77615                          DAD                                            
029639,000557: 04,3666           13267                                   60MIN                                 
029640,000558: 04,3667           16547                          STODL    T1TOT2                                
029641,000559: 04,3670           03663                                   TTPI                                  
029642,000560: 04,3671           41425                          DSU      PUSH                                  
029643,000561: 04,3672           02465                                   TTPI0                                 
029644,000562: 04,3673           45246        P33/P73F          ABS      DSU                                   
029645,000563: 04,3674           13267                                   60MIN                                 
029646,000564: 04,3675           43244                          BPL      DAD                                   
029647,000565: 04,3676           11673                                   P33/P73F                              
029648,000566: 04,3677           13267                                   60MIN                                 
029649,000567: 04,3700           45565                          SIGN     STADR                                 
029650,000568: 04,3701           74121                          STORE    T2TOT3                                
029651,000569: 04,3702           77414                          BON      EXIT                                  
029652,000570: 04,3703           05310                                   AUTOSEQ                               
029653,000571: 04,3704           11710                                   SKIP75                                
029654,000572: 
029655,000573: 04,3705           34605                          CAF      V06N75                                
029656,000574: 04,3706           05535                          TC       VNFLASH                               
029657,000575: 04,3707           06006                          TC       INTPRET                               
029658,000576:                                                                                                 # # Page 669
029659,000577: 04,3710           77624        SKIP75            CALL                                           
029660,000578: 04,3711           76537                                   DISDVLVC                              #  PUT UP N81, COMPUTE DELVSIN
029661,000579: 04,3712           77624                          CALL                                           
029662,000580: 04,3713           73027                                   VN1645                                
029663,000581: 04,3714           77650                          GOTO                                           
029664,000582: 04,3715           11610                                   P33/P73B                              
029665,000583:    4000                                          SETLOC   FFTAG12                               
029666,000584:    4000                                          BANK                                           
029667,000585: 
029668,000586:    4603                                          COUNT*   $$/P3272                              
029669,000587:    4603           01413        V06N11            VN       0611                                  
029670,000588:    4604           01415        V06N13            VN       0613                                  
029671,000589:    4605           01513        V06N75            VN       0675                                  
029672,000590: 
029673,000591:                                                                                                 # # Page 670
029674,000592: 
029675,000593:                                                                                                 #  ..... DISDVLVC  .....
029676,000594: 
029677,000595:                                                                                                 #  SUBROUTINES USED
029678,000596: 
029679,000597:                                                                                                 #         S32/33.X
029680,000598:                                                                                                 #         VNPOOH
029681,000599: 
029682,000600: 37,2000                                          SETLOC   CDHTAG3                               
029683,000601: 37,2000                                          BANK                                           
029684,000602: 
029685,000603: 37,2537                                          COUNT*   $$/CSI                                
029686,000604: 37,2537           45020        DISDVLVC          STQ      CALL                                  
029687,000605: 37,2540           01023                                   NORMEX                                
029688,000606: 37,2541           32050                                   S32/33.X                              
029689,000607: 37,2542           64375                          VLOAD    MXV                                   
029690,000608: 37,2543           02445                                   DELVEET1                              
029691,000609: 37,2544           00001                                   0D                                    
029692,000610: 37,2545           77772                          VSL1                                           
029693,000611: 37,2546           37405                          STCALL   DELVLVC                               #  REF TO L V
029694,000612: 37,2547           15756                                   DISPN90                               
029695,000613: 37,2550           77624                          CALL                                           
029696,000614: 37,2551           32050                                   S32/33.X                              
029697,000615: 37,2552           61375                          VLOAD    VXM                                   
029698,000616: 37,2553           03405                                   DELVLVC                               
029699,000617: 37,2554           00001                                   0D                                    
029700,000618: 37,2555           77772                          VSL1                                           
029701,000619: 37,2556           37646                          STCALL   DELVSIN                               #  L V TO REF
029702,000620: 37,2557           01023                                   NORMEX                                
029703,000621: 
029704,000622:                                                                                                 # # Page 671
029705,000623: 
029706,000624:                                                                                                 #  ..... CSI/A     .....
029707,000625: 
029708,000626:                                                                                                 #  SUBROUTINES USED
029709,000627: 
029710,000628:                                                                                                 #         VECSHIFT
029711,000629:                                                                                                 #         TIMETHET
029712,000630:                                                                                                 #         PERIAPO
029713,000631:                                                                                                 #         SHIFTR1
029714,000632:                                                                                                 #         INTINT2C
029715,000633:                                                                                                 #         CDHMVR
029716,000634:                                                                                                 #         PERIAPO1
029717,000635:                                                                                                 #         INTINT
029718,000636:                                                                                                 #         ACTIVE
029719,000637: 
029720,000638: 05,2000                                          SETLOC   CSITAG1                               
029721,000639: 05,2000                                          BANK                                           
029722,000640: 05,3266  E4,1760                                 EBANK=   SUBEXIT                               
029723,000641: 05,3266                                          COUNT*   $$/CSI                                
029724,000642: 05,3266           00025 37100  60MIN             2DEC     360000     B-28                       
029725,000643: 
029726,000644: 05,3270           00600        ALARM/TB          OCT      00600                                 #  NO 1
029727,000645: 05,3271           00601                          OCT      00601                                 #     2
029728,000646: 05,3272           00602                          OCT      00602                                 #     3
029729,000647: 05,3273           00603                          OCT      00603                                 #     4
029730,000648: 05,3274           00604                          OCT      00604                                 #     5
029731,000649: 05,3275           00605                          OCT      00605                                 #     6
029732,000650: 05,3276           00606                          OCT      00606                                 #     7
029733,000651: 05,3277  15,3416               LOOPMX            =        D1/1024    -1                         #  16 B-28
029734,000652: 05,3277           00003 34661  INITST            2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029735,000653: 
029736,000654: 05,3301           00606 04467  DVMAX1            2DEC     3.0480     B-7                        #  MAXIMUM DV1 = 1000 FPS
029737,000655: 
029738,000656: 05,3303           00601 33216  DVMAX2            2DEC     3.014472   B-7                        #                  989 FPS
029739,000657: 
029740,000658: 05,3305  15,3411               1DPB2             =        D1/4                                  #  1 B-2
029741,000659: 05,3305  15,3431               1DPB28            =        ONEBIT                                #  1 B-28
029742,000660: 05,3305           00000 01177  EPSILN1           2DEC     .0003048   B-7                        #  .1 FPS
029743,000661: 
029744,000662: 05,3307           77754 57611  FIFPSDP           2DEC     -.152400   B-7                        #  50 FPS
029745,000663: 
029746,000664: 05,3311           00116 00730  DELMAX1           2DEC     .6096000   B-7                        #  200 FPS
029747,000665: 
029748,000666: 35,2000                                          SETLOC   CSI/CDH                               
029749,000667: 35,2000                                          BANK                                           
029750,000668: 35,3554                                          COUNT*   $$/CSI                                
029751,000669: 35,3554           00004 31566  PMINE             2DEC     157420     B-29                       #  84 NM. - MUST BE 8 WORDS BEFORE PMINM
029752,000670: 
029753,000671: 35,3556           00002 27311  NICKELDP          2DEC     .021336    B-7                        #  7 FPS
029754,000672: 
029755,000673: 35,3560           00003 34661  INITST1           2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
029756,000674: 
029757,000675:                                                                                                 # # Page 672
029758,000676: 35,3562           00000 06433  ONETHTH           2DEC     .0001      B-3                        
029759,000677: 
029760,000678: 35,3564           00000 12326  PMINM             2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE.
029761,000679: 
029762,000680: 06,2000                                          SETLOC   CSIPROG                               
029763,000681: 06,2000                                          BANK                                           
029764,000682: 
029765,000683: 06,3672                                          COUNT*   $$/CSI                                
029766,000684: 06,3672           43014        CSI/A             CLEAR    SET                                   #  INITIALIZE INDICATORS
029767,000685: 06,3673           05660                                   S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
029768,000686: 06,3674           05461                                   S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATOR
029769,000687: 06,3675           43014                          CLEAR    SET                                   
029770,000688: 06,3676           05662                                   S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE, 01=FIRST CYCLE
029771,000689: 06,3677           05463                                   S32.1F3B                              #  10=2ND CYCLE, 11=50 FPS STAGE 2ND CYCLE
029772,000690: 06,3700           77745                          DLOAD                                          
029773,000691: 06,3701           11762                                   ZEROVEC                               
029774,000692: 06,3702           03764                          STORE    LOOPCT                                
029775,000693: 06,3703           03665                          STORE    CSIALRM                               
029776,000694: 06,3704           77201        CSI/B             SETPD    VLOAD                                 
029777,000695: 06,3705           00001                                   0D                                    
029778,000696: 06,3706           02541                                   RACT1                                 
029779,000697: 06,3707           41446                          ABVAL    PUSH                                  #  RA1                                   B29 PL02D
029780,000698: 06,3710           70501                          NORM     SR1                                   
029781,000699: 06,3711           00050                                   X2                                    #                                 B29-N2+ B1 PL04D
029782,000700: 06,3712           51515                          PDVL     ABVAL                                 
029783,000701: 06,3713           03554                                   RPASS3                                
029784,000702: 06,3714           55301                          NORM     BDDV                                  #  RA1/RP3                                B1 PL02D
029785,000703: 06,3715           00047                                   X1                                    
029786,000704: 06,3716           53664                          XSU,2    SR*                                   #                                         B2
029787,000705: 06,3717           00046                                   X1                                    
029788,000706: 06,3720           57175                                   1,2                                   
029789,000707: 06,3721           41215                          DAD      DMP                                   #  (1+(RA1/RP3))RA1               B29+B2=B31 PL00D
029790,000708: 06,3722           33412                                   1DPB2                                 
029791,000709: 06,3723           65301                          NORM     PDDL                                  #                                            PL02D
029792,000710: 06,3724           00047                                   X1                                    
029793,000711: 06,3725           03750                                   RTMU                                  
029794,000712: 06,3726           56342                          SR1      DDV                                   #                               B38-B31 = B7 PL00D
029795,000713: 06,3727           75457                          SL*      SQRT                                  #                                         B7
029796,000714: 06,3730           20172                                   0          -7,1                       
029797,000715: 06,3731           53515                          PDVL     UNIT                                  #                                            PL02D
029798,000716: 06,3732           02541                                   RACT1                                 
029799,000717: 06,3733           47315                          PDVL     VXV                                   
029800,000718: 06,3734           02611                                   UP1                                   
029801,000719: 06,3735           77656                          UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
029802,000720: 06,3736           72441                          DOT      SL1                                   #  VA1 . UH1                              B7
029803,000721: 06,3737           03504                                   VACT1                                 
029804,000722: 06,3740           45421                          BDSU     STADR                                 #                                            PL00D
029805,000723: 06,3741           60315                          STODL    DELVCSI                               
029806,000724: 06,3742           13300                                   INITST                                #  10 FPS
029807,000725: 06,3743           03464                          STORE    DELDV                                 
029808,000726:                                                                                                 # # Page 673
029809,000727: 06,3744           43345        CSI/B1            DLOAD    DAD                                   #  IF LOOPCT = 16
029810,000728: 06,3745           03764                                   LOOPCT                                
029811,000729: 06,3746           33432                                   1DPB28                                
029812,000730: 06,3747           03764                          STORE    LOOPCT                                
029813,000731: 06,3750           77025                          DSU      AXT,2                                 
029814,000732: 06,3751           33417                                   LOOPMX                                
029815,000733: 06,3752           00006                                   6                                     
029816,000734: 06,3753           52044                          BPL      GOTO                                  
029817,000735: 06,3754           63566                                   SCNDSOL                               
029818,000736: 06,3755           24050                                   CSI/B2                                
029819,000737: 
029820,000738: 12,2000                                          SETLOC   CSIPROG2                              
029821,000739: 12,2000                                          BANK                                           
029822,000740: 
029823,000741: 12,2050                                          COUNT*   $$/CSI                                
029824,000742: 12,2050           77601        CSI/B2            SETPD                                          
029825,000743: 12,2051           00001                                   0D                                    
029826,000744: 12,2052           51545                          DLOAD    ABS                                   
029827,000745: 12,2053           03462                                   DELVCSI                               
029828,000746: 12,2054           50025                          DSU      BMN                                   
029829,000747: 12,2055           13302                                   DVMAX1                                
029830,000748: 12,2056           45406                                   CSI/B23                               
029831,000749: 12,2057           43174                          AXT,2    BON                                   
029832,000750: 12,2060           00007                                   7                                     
029833,000751: 12,2061           05700                                   S32.1F1                               
029834,000752: 12,2062           63566                                   SCNDSOL                               
029835,000753: 12,2063           43014                          BOFF     BON                                   
029836,000754: 12,2064           05742                                   S32.1F3A                              
029837,000755: 12,2065           24070                                   CSI/B22                               #  FLAG 3 NEQ 3
029838,000756: 12,2066           05703                                   S32.1F3B                              
029839,000757: 12,2067           63566                                   SCNDSOL                               
029840,000758: 12,2070           71214        CSI/B22           SET      DLOAD                                 
029841,000759: 12,2071           05460                                   S32.1F1                               
029842,000760: 12,2072           13304                                   DVMAX2                                
029843,000761: 12,2073           77765                          SIGN                                           
029844,000762: 12,2074           03462                                   DELVCSI                               
029845,000763: 12,2075           37462                          STCALL   DELVCSI                               
029846,000764: 12,2076           45406                                   CSI/B23                               
029847,000765: 
029848,000766: 22,2000                                          SETLOC   CSIPROG3                              
029849,000767: 22,2000                                          BANK                                           
029850,000768: 
029851,000769: 22,3406                                          COUNT*   $$/CSI                                
029852,000770: 22,3406           41575        CSI/B23           VLOAD    PUSH                                  
029853,000771: 22,3407           02541                                   RACT1                                 
029854,000772: 22,3410           63256                          UNIT     PDVL                                  
029855,000773: 22,3411           02611                                   UP1                                   
029856,000774: 22,3412           53435                          VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
029857,000775: 22,3413           76561                          VXSC     VSL1                                  
029858,000776: 22,3414           03462                                   DELVCSI                               
029859,000777:                                                                                                 # # Page 674
029860,000778: 22,3415           02445                          STORE    DELVEET1                              
029861,000779: 22,3416           40055                          VAD      BOV                                   
029862,000780: 22,3417           03504                                   VACT1                                 
029863,000781: 22,3420           45421                                   CSI/B23D                              
029864,000782: 22,3421           37474        CSI/B23D          STCALL   VACT4                                 
029865,000783: 22,3422           45320                                   VECSHIFT                              
029866,000784: 22,3423           26746                          STOVL    VVEC                                  
029867,000785: 22,3424           77614                          SET                                            
029868,000786: 22,3425           03466                                   RVSW                                  
029869,000787: 22,3426           26657                          STOVL    RVEC                                  
029870,000788: 22,3427           05545                                   SN359+                                
029871,000789: 22,3430           36732                          STCALL   SNTH                                  #  ALSO CSTH
029872,000790: 22,3431           25002                                   TIMETHET                              
029873,000791: 22,3432           72142                          SR1      LXA,1                                 
029874,000792: 22,3433           03745                                   RTX1                                  
029875,000793: 22,3434           37472                          STCALL   HAFPA1                                
029876,000794: 22,3435           45204                                   PERIAPO                               
029877,000795: 22,3436           77624                          CALL                                           
029878,000796: 22,3437           45330                                   SHIFTR1                               
029879,000797: 22,3440           17460                          STODL    POSTCSI                               
029880,000798: 22,3441           03754                                   CENTANG                               
029881,000799: 22,3442           52054                          BZE      GOTO                                  
029882,000800: 22,3443           45445                                   +2                                    
029883,000801: 22,3444           47161                                   CIRCL                                 
029884,000802: 22,3445           77745                          DLOAD                                          
029885,000803: 22,3446           02754                                   ECC                                   
029886,000804: 22,3447           50025                          DSU      BMN                                   
029887,000805: 22,3450           33563                                   ONETHTH                               
029888,000806: 22,3451           47161                                   CIRCL                                 
029889,000807: 22,3452           45145                          DLOAD    CALL                                  
029890,000808: 22,3453           00041                                   R1                                    
029891,000809: 22,3454           45330                                   SHIFTR1                               
029892,000810: 22,3455           60201                          SETPD    NORM                                  
029893,000811: 22,3456           00003                                   2D                                    
029894,000812: 22,3457           00047                                   X1                                    
029895,000813: 22,3460           50315                          PDVL     DOT                                   #                                            PL04D
029896,000814: 22,3461           02541                                   RACT1                                 
029897,000815: 22,3462           03474                                   VACT4                                 
029898,000816: 22,3463           56246                          ABS      DDV                                   
029899,000817: 22,3464           00003                                   02D                                   #  (/RDOTV/)/R1                   B36-B29= B7
029900,000818: 22,3465           45257                          SL*      DSU                                   
029901,000819: 22,3466           20201                                   0,1                                   
029902,000820: 22,3467           33557                                   NICKELDP                              
029903,000821: 22,3470           71240                          BMN      DLOAD                                 
029904,000822: 22,3471           47161                                   CIRCL                                 
029905,000823: 22,3472           02742                                   P                                     
029906,000824: 22,3473           45312                          SL2      DSU                                   
029907,000825: 22,3474           15326                                   1RTEB2                                #  1.B.2
029908,000826: 22,3475           14017                          STODL    14D                                   
029909,000827: 22,3476           03752                                   RTSR1/MU                              
029910,000828:                                                                                                 # # Page 675
029911,000829: 22,3477           56342                          SR1      DDV                                   #  (1/ROOTMU)/R1             B-16-B29 = B-45 PL02D
029912,000830: 22,3500           41325                          PDDL     DMP                                   
029913,000831: 22,3501           02742                                   P                                     
029914,000832: 22,3502           00041                                   R1                                    
029915,000833: 22,3503           77624                          CALL                                           
029916,000834: 22,3504           45330                                   SHIFTR1                               
029917,000835: 22,3505           72412                          SL4      SL1                                   
029918,000836: 22,3506           41366                          SQRT     DMP                                   #  ((P/MU)**.5)/R1           B14+B-14 = B-31 PL02D
029919,000837: 22,3507           52414                          BOFF     SL3                                   
029920,000838: 22,3510           04343                                   CMOONFLG                              
029921,000839: 22,3511           45512                                   CSI/B3                                
029922,000840: 22,3512           50315        CSI/B3            PDVL     DOT                                   
029923,000841: 22,3513           02541                                   RACT1                                 
029924,000842: 22,3514           03474                                   VACT4                                 
029925,000843: 22,3515           03502                          STORE    RDOTV                                 
029926,000844: 22,3516           77646                          ABS                                            
029927,000845: 22,3517           41301                          NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                      PL02D
029928,000846: 22,3520           00050                                   X2                                    
029929,000847: 22,3521           53660                          XSU,1    SL*                                   #                         B-31+B36-B3 = B2
029930,000848: 22,3522           00047                                   X2                                    
029931,000849: 22,3523           20204                                   3,1                                   
029932,000850: 22,3524           14015                          STODL    12D                                   
029933,000851: 22,3525           15336                                   ZEROVECS                              
029934,000852: 22,3526           00021                          STORE    16D                                   
029935,000853: 22,3527           53575                          VLOAD    UNIT                                  
029936,000854: 22,3530           00015                                   12D                                   
029937,000855: 22,3531           26732                          STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
029938,000856: 22,3532           02541                                   RACT1                                 
029939,000857: 22,3533           75315                          PDVL     SIGN                                  
029940,000858: 22,3534           03474                                   VACT4                                 
029941,000859: 22,3535           03502                                   RDOTV                                 
029942,000860: 22,3536           45076                          VCOMP    CALL                                  
029943,000861: 22,3537           45320                                   VECSHIFT                              
029944,000862: 22,3540           26746                          STOVL    VVEC                                  
029945,000863: 22,3541           77614                          SETGO                                          
029946,000864: 22,3542           03426                                   RVSW                                  
029947,000865: 22,3543           47145                                   CSINEXT                               
029948,000866: 
029949,000867: 22,3544           77776 62460  SN359+            2DEC     -.000086601                            
029950,000868: 
029951,000869: 22,3546           17777 37776  CS359+            2DEC     +.499999992                            
029952,000870: 
029953,000871: 23,2000                                          SETLOC   CSIPROG4                              
029954,000872: 23,2000                                          BANK                                           
029955,000873: 
029956,000874: 23,3145                                          COUNT*   $$/CSI                                
029957,000875: 23,3145           36657        CSINEXT           STCALL   RVEC                                  
029958,000876: 23,3146           25002                                   TIMETHET                              
029959,000877: 23,3147           43206                          PUSH     DAD                                   
029960,000878: 23,3150           02463                                   TCSI                                  
029961,000879:                                                                                                 # # Page 676
029962,000880: 
029963,000881: 23,3151           16351                          STODL    TCSI2                                 #  TIME OF NEXT CSI
029964,000882: 23,3152           03502                                   RDOTV                                 
029965,000883: 23,3153           77644                          BPL                                            
029966,000884: 23,3154           47165                                   NTP/2                                 
029967,000885: 23,3155           45345                          DLOAD    DSU                                   
029968,000886: 23,3156           03472                                   HAFPA1                                
029969,000887: 23,3157           52006                          PUSH     GOTO                                  
029970,000888: 23,3160           47165                                   NTP/2                                 
029971,000889: 23,3161           71201        CIRCL             SETPD    DLOAD                                 
029972,000890: 23,3162           00001                                   00D                                   
029973,000891: 23,3163           15336                                   ZEROVECS                              
029974,000892: 23,3164           77606                          PUSH                                           
029975,000893: 23,3165           72545        NTP/2             DLOAD    SL1                                   
029976,000894: 23,3166           03472                                   HAFPA1                                
029977,000895: 23,3167           77615                          DAD                                            
029978,000896: 23,3170           02463                                   TCSI                                  
029979,000897: 23,3171           16351                          STODL    TCSI2                                 
029980,000898: 23,3172           03766                                   NN                                    #  COMPUTE NEXT CSI 1 REV AWAY
029981,000899: 23,3173           45342                          SR1      DSU                                   
029982,000900: 23,3174           07140                                   HIGH2                                 
029983,000901: 23,3175           77654                          BZE                                            # # NN = 4
029984,000902: 23,3176           47233                                   HMCSI                                 
029985,000903: 23,3177           41345        NTP/2A            DLOAD    DMP                                   
029986,000904: 23,3200           03766                                   NN                                    
029987,000905: 23,3201           03472                                   HAFPA1                                
029988,000906: 23,3202           45261                          SL       DSU                                   
029989,000907: 23,3203           20217                                   14D                                   
029990,000908: 23,3204           77615                          DAD                                            
029991,000909: 23,3205           02463                                   TCSI                                  
029992,000910: 23,3206           02461                          STORE    TCDH                                  
029993,000911: 23,3207           77021                          BDSU     AXT,2                                 
029994,000912: 23,3210           03663                                   TTPI                                  
029995,000913: 23,3211           00005                                   5D                                    
029996,000914: 23,3212           40240                          BMN      SETPD                                 
029997,000915: 23,3213           63566                                   SCNDSOL                               
029998,000916: 23,3214           00001                                   0D                                    
029999,000917: 23,3215           63375                          VLOAD    PDVL                                  
030000,000918: 23,3216           03474                                   VACT4                                 
030001,000919: 23,3217           02541                                   RACT1                                 
030002,000920: 23,3220           77624                          CALL                                           
030003,000921: 23,3221           63606                                   INTINT2C                              
030004,000922: 23,3222           26453                          STOVL    RACT2                                 
030005,000923: 23,3223           00007                                   VATT                                  
030006,000924: 23,3224           26533                          STOVL    VACT2                                 
030007,000925: 23,3225           03512                                   VPASS1                                
030008,000926: 23,3226           63201                          SETPD    PDVL                                  
030009,000927: 23,3227           00001                                   0D                                    
030010,000928: 23,3230           03756                                   RPASS1                                
030011,000929: 23,3231           77650                          GOTO                                           
030012,000930: 23,3232           34012                                   CSINEXT1                              
030013,000931:                                                                                                 # # Page 677
030014,000932: 23,3233           43345        HMCSI             DLOAD    DAD                                   #  COMPUTE NEXT CSI 1 + 1/2 REVS AWAY
030015,000933: 23,3234           03472                                   HAFPA1                                
030016,000934: 23,3235           02351                                   TCSI2                                 
030017,000935: 23,3236           36351                          STCALL   TCSI2                                 
030018,000936: 23,3237           47177                                   NTP/2A                                
030019,000937: 16,2000                                          SETLOC   CSIPROG5                              
030020,000938: 16,2000                                          BANK                                           
030021,000939: 
030022,000940: 16,2012                                          COUNT*   $$/CSI                                
030023,000941: 16,2012           77624        CSINEXT1          CALL                                           
030024,000942: 16,2013           63606                                   INTINT2C                              
030025,000943: 16,2014           26625                          STOVL    RPASS2                                
030026,000944: 16,2015           00007                                   VATT                                  
030027,000945: 16,2016           36617                          STCALL   VPASS2                                
030028,000946: 16,2017           56674                                   CDHMVR                                
030029,000947: 16,2020           40375                          VLOAD    SETPD                                 
030030,000948: 16,2021           02453                                   RACT2                                 
030031,000949: 16,2022           00001                                   0D                                    
030032,000950: 16,2023           45115                          PDVL     CALL                                  
030033,000951: 16,2024           03546                                   VACT3                                 
030034,000952: 16,2025           45174                                   PERIAPO1                              
030035,000953: 16,2026           77624                          CALL                                           
030036,000954: 16,2027           45330                                   SHIFTR1                               
030037,000955: 16,2030           27472                          STOVL    POSTCDH                               
030038,000956: 16,2031           03546                                   VACT3                                 
030039,000957: 16,2032           63201                          SETPD    PDVL                                  
030040,000958: 16,2033           00001                                   0D                                    
030041,000959: 16,2034           02453                                   RACT2                                 
030042,000960: 16,2035           65325                          PDDL     PDDL                                  
030043,000961: 16,2036           02461                                   TCDH                                  
030044,000962: 16,2037           03663                                   TTPI                                  
030045,000963: 16,2040           62525                          PDDL     SL2                                   
030046,000964: 16,2041           33430                                   2PISC                                 
030047,000965: 16,2042           45006                          PUSH     CALL                                  
030048,000966: 16,2043           72740                                   INTINT                                
030049,000967: 16,2044           77624                          CALL                                           
030050,000968: 16,2045           45304                                   ACTIVE                                
030051,000969: 16,2046           77745                          DLOAD                                          
030052,000970: 16,2047           03744                                   ELEV                                  
030053,000971: 16,2050           73401                          SETPD    SINE                                  
030054,000972: 16,2051           00007                                   6D                                    
030055,000973: 16,2052           53515                          PDVL     UNIT                                  
030056,000974: 16,2053           03540                                   RACT3                                 
030057,000975: 16,2054           00001                          STORE    00D                                   #  URA3 AT 00D
030058,000976: 16,2055           47315                          PDVL     VXV                                   #  PL14D, PL08D
030059,000977: 16,2056           02611                                   UP1                                   
030060,000978: 16,2057           77656                          UNIT                                           
030061,000979: 16,2060           71525                          PDDL     COSINE                                #  UNIT(URA3 X UVA3 X URA3) = UH3 B1 PL14D
030062,000980: 16,2061           03744                                   ELEV                                  
030063,000981: 16,2062           45561                          VXSC     STADR                                 #  (COSLOS)(UH3)                          B2 PL08D
030064,000982:                                                                                                 # # Page 678
030065,000983: 16,2063           43754                          STCALL   18D                                   #                 PLUS
030066,000984: 16,2064           16440                                   CSINEXT2                              
030067,000985: 
030068,000986: 07,2000                                          SETLOC   CSIPROG6                              
030069,000987: 07,2000                                          BANK                                           
030070,000988: 
030071,000989: 07,2440                                          COUNT*   $$/CSI                                
030072,000990: 07,2440           74345        CSINEXT2          DLOAD    VXSC                                  #  (SINLOS)(URA3) = U                     B2 PL00D
030073,000991: 07,2441           76455                          VAD      VSL1                                  
030074,000992: 07,2442           00023                                   18D                                   #                                         B1
030075,000993: 07,2443           50206                          PUSH     DOT                                   #                                            PL06D
030076,000994: 07,2444           03540                                   RACT3                                 #  (U . RA3) = TEMP1          B1 + B29 = B30
030077,000995: 07,2445           41552                          SL1      PUSH                                  #                                        B29 PL08D
030078,000996: 07,2446           72316                          DSQ      TLOAD                                 #  TEMP1**2                              B58
030079,000997: 07,2447           00155                                   MPAC                                  
030080,000998: 07,2450           50315                          PDVL     DOT                                   #                                            PL11D
030081,000999: 07,2451           03540                                   RACT3                                 
030082,001000: 07,2452           03540                                   RACT3                                 
030083,001001: 07,2453           57551                          TLOAD    DCOMP                                 #  RA3 . RA3
030084,001002: 07,2454           00155                                   MPAC                                  
030085,001003: 07,2455           50315                          PDVL     DOT                                   #  RP3 . RP3                          B58 PL14D
030086,001004: 07,2456           03554                                   RPASS3                                
030087,001005: 07,2457           03554                                   RPASS3                                #                                         PL11D
030088,001006: 07,2460           76371                          TAD      TAD                                   #  TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2   PL08D
030089,001007: 07,2461           71244                          BPL      DLOAD                                 
030090,001008: 07,2462           16500                                   K1ORK2                                
030091,001009: 07,2463           03764                                   LOOPCT                                
030092,001010: 07,2464           77025                          DSU      AXT,2                                 
030093,001011: 07,2465           33432                                   1DPB28                                
030094,001012: 07,2466           00001                                   1D                                    
030095,001013: 07,2467           77654                          BZE                                            
030096,001014: 07,2470           11407                                   ALMXITA                               
030097,001015: 07,2471           70545                          DLOAD    SR1                                   
030098,001016: 07,2472           03464                                   DELDV                                 
030099,001017: 07,2473           03464                          STORE    DELDV                                 
030100,001018: 07,2474           77621                          BDSU                                           
030101,001019: 07,2475           03470                                   DVPREV                                
030102,001020: 07,2476           37462                          STCALL   DELVCSI                               
030103,001021: 07,2477           15744                                   CSI/B1                                
030104,001022: 07,2500           41566        K1ORK2            SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                  B29 PL10D
030105,001023: 07,2501           45276                          DCOMP    DSU                                   
030106,001024: 07,2502           00007                                   06D                                   #  -TEMP1-TEMP3 = K2 AT 10D
030107,001025: 07,2503           14013                          STODL    10D                                   #                                         PL08D
030108,001026: 07,2504           45425                          DSU      STADR                                 #                                         PL06D
030109,001027: 07,2505           77762                          STORE    12D                                   #  -TEMP1+TEMP3 = K1 AT 12D
030110,001028: 07,2506           77646                          ABS                                            
030111,001029: 07,2507           14017                          STODL    14D                                   
030112,001030: 07,2510           00013                                   10D                                   
030113,001031: 07,2511           45246                          ABS      DSU                                   
030114,001032: 07,2512           00017                                   14D                                   
030115,001033:                                                                                                 # # Page 679
030116,001034: 07,2513           71240                          BMN      DLOAD                                 
030117,001035: 07,2514           50123                                   K2.                                   
030118,001036: 07,2515           00015                                   12D                                   
030119,001037: 07,2516           34013                          STCALL   10D                                   #  K EQUALS K1
030120,001038: 07,2517           50123                                   K2.                                   
030121,001039: 
030122,001040: 24,2000                                          SETLOC   CSIPROG7                              
030123,001041: 24,2000                                          BANK                                           
030124,001042: 
030125,001043: 24,2123                                          COUNT*   $$/CSI                                
030126,001044: 24,2123           77745        K2.               DLOAD                                          
030127,001045: 24,2124           00013                                   10D                                   
030128,001046: 24,2125           76561                          VXSC     VSL1                                  
030129,001047: 24,2126           53455                          VAD      UNIT                                  #  V = RA3 + KU UNIT                  B1
030130,001048: 24,2127           03540                                   RACT3                                 
030131,001049: 24,2130           53515                          PDVL     UNIT                                  #                                         PL06D
030132,001050: 24,2131           03554                                   RPASS3                                
030133,001051: 24,2132           53515                          PDVL     UNIT                                  #                                         PL12D
030134,001052: 24,2133           03562                                   VPASS3                                
030135,001053: 24,2134           63235                          VXV      PDVL                                  #  UVP3 X URP3                            PL18D
030136,001054: 24,2135           00007                                   06D                                   
030137,001055: 24,2136           00007                                   06D                                   
030138,001056: 24,2137           50235                          VXV      DOT                                   
030139,001057: 24,2140           00001                                   00D                                   
030140,001058: 24,2141           77626                          STADR                                          #                                         PL12D
030141,001059: 24,2142           53762                          STOVL    12D                                   #  (URP3 X V).(UVP3 X URP3)=TEMP          PL06D
030142,001060: 24,2143           72441                          DOT      SL1                                   #                                         PL00D
030143,001061: 24,2144           75326                          ARCCOS   SIGN                                  
030144,001062: 24,2145           00015                                   12D                                   #                                      B0
030145,001063: 24,2146           41542                          SR1      PUSH                                  #  GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3)    PL02D
030146,001064: 24,2147           71214                          BON      DLOAD                                 
030147,001065: 24,2150           05701                                   S32.1F2                               
030148,001066: 24,2151           50206                                   FRSTPAS                               
030149,001067: 24,2152           00001                                   00D                                   #  NOT THE FIRST PASS OF A CYCLE
030150,001068: 24,2153           65225                          DSU      PDDL                                  #  GAMMA-GAMPREV                       B1 PL04D
030151,001069: 24,2154           03466                                   GAMPREV                               
030152,001070: 24,2155           03462                                   DELVCSI                               
030153,001071: 24,2156           60225                          DSU      NORM                                  #                                      B7
030154,001072: 24,2157           03470                                   DVPREV                                
030155,001073: 24,2160           00047                                   X1                                    
030156,001074: 24,2161           65265                          BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)       B-6+N1 PL06D
030157,001075: 24,2162           00003                                   02D                                   #         = SLOPE
030158,001076: 24,2163           03462                                   DELVCSI                               
030159,001077: 24,2164           03470                          STORE    DVPREV                                
030160,001078: 24,2165           43014                          BOFF     BOFF                                  
030161,001079: 24,2166           05742                                   S32.1F3A                              
030162,001080: 24,2167           20323                                   THRDCHK                               
030163,001081: 24,2170           05743                                   S32.1F3B                              
030164,001082: 24,2171           20323                                   THRDCHK                               
030165,001083: 24,2172           41345                          DLOAD    DMP                                   
030166,001084:                                                                                                 # # Page 680
030167,001085: 24,2173           00003                                   02D                                   
030168,001086: 24,2174           03466                                   GAMPREV                               
030169,001087: 24,2175           71244                          BPL      DLOAD                                 
030170,001088: 24,2176           20330                                   FIFTYFPS                              
030171,001089: 24,2177           33561                                   INITST1                               
030172,001090: 24,2200           77765                          SIGN                                           
030173,001091: 24,2201           03464                                   DELDV                                 
030174,001092: 24,2202           03464                          STORE    DELDV                                 
030175,001093: 24,2203           43014                          SET      CLEAR                                 
030176,001094: 24,2204           05462                                   S32.1F3A                              
030177,001095: 24,2205           05663                                   S32.1F3B                              
030178,001096: 24,2206           77745        FRSTPAS           DLOAD                                          
030179,001097: 24,2207           00001                                   00D                                   
030180,001098: 24,2210           17466                          STODL    GAMPREV                               
030181,001099: 24,2211           03462                                   DELVCSI                               
030182,001100: 24,2212           37470                          STCALL   DVPREV                                
030183,001101: 24,2213           20316                                   CSINEXT3                              
030184,001102: 
030185,001103: 10,2000                                          SETLOC   CSIPROG8                              
030186,001104: 10,2000                                          BANK                                           
030187,001105: 
030188,001106: 10,2316                                          COUNT*   $$/CSI                                
030189,001107: 10,2316           43025        CSINEXT3          DSU      CLEAR                                 
030190,001108: 10,2317           03464                                   DELDV                                 
030191,001109: 10,2320           05661                                   S32.1F2                               
030192,001110: 10,2321           37462                          STCALL   DELVCSI                               
030193,001111: 10,2322           15744                                   CSI/B1                                
030194,001112: 10,2323           43014        THRDCHK           BON      BON                                   
030195,001113: 10,2324           05702                                   S32.1F3A                              
030196,001114: 10,2325           20347                                   NEWTN                                 
030197,001115: 10,2326           05703                                   S32.1F3B                              
030198,001116: 10,2327           20347                                   NEWTN                                 
030199,001117: 10,2330           75345        FIFTYFPS          DLOAD    SIGN                                  
030200,001118: 10,2331           13310                                   FIFPSDP                               
030201,001119: 10,2332           00005                                   04D                                   
030202,001120: 10,2333           77765                          SIGN                                           
030203,001121: 10,2334           03466                                   GAMPREV                               
030204,001122: 10,2335           03464                          STORE    DELDV                                 
030205,001123: 10,2336           43276                          DCOMP    DAD                                   
030206,001124: 10,2337           03462                                   DELVCSI                               
030207,001125: 10,2340           17462                          STODL    DELVCSI                               
030208,001126: 10,2341           00001                                   00D                                   
030209,001127: 10,2342           43014                          SET      SET                                   
030210,001128: 10,2343           05463                                   S32.1F3B                              
030211,001129: 10,2344           05462                                   S32.1F3A                              
030212,001130: 10,2345           37466                          STCALL   GAMPREV                               
030213,001131: 10,2346           24050                                   CSI/B2                                
030214,001132: 10,2347           60345        NEWTN             DLOAD    NORM                                  
030215,001133: 10,2350           00005                                   04D                                   
030216,001134: 10,2351           00050                                   X2                                    
030217,001135:                                                                                                 # # Page 681
030218,001136: 10,2352           54065                          BDDV     XSU,1                                 
030219,001137: 10,2353           00001                                   00D                                   
030220,001138: 10,2354           00047                                   X2                                    
030221,001139: 10,2355           77657                          SR*                                            
030222,001140: 10,2356           20601                                   0,1                                   
030223,001141: 10,2357           17464                          STODL    DELDV                                 
030224,001142: 10,2360           00001                                   00D                                   
030225,001143: 10,2361           03466                          STORE    GAMPREV                               
030226,001144: 10,2362           51545                          DLOAD    ABS                                   
030227,001145: 10,2363           03464                                   DELDV                                 
030228,001146: 10,2364           45206                          PUSH     DSU                                   #                                         PL08D
030229,001147: 10,2365           13306                                   EPSILN1                               
030230,001148: 10,2366           71240                          BMN      DLOAD                                 
030231,001149: 10,2367           20404                                   CSI/SOL                               
030232,001150: 10,2370           50025                          DSU      BMN                                   
030233,001151: 10,2371           13312                                   DELMAX1                               
030234,001152: 10,2372           20377                                   CSISTEP                               
030235,001153: 10,2373           75345                          DLOAD    SIGN                                  
030236,001154: 10,2374           13312                                   DELMAX1                               
030237,001155: 10,2375           03464                                   DELDV                                 
030238,001156: 10,2376           03464                          STORE    DELDV                                 
030239,001157: 10,2377           45345        CSISTEP           DLOAD    DSU                                   
030240,001158: 10,2400           03462                                   DELVCSI                               
030241,001159: 10,2401           03464                                   DELDV                                 
030242,001160: 10,2402           37462                          STCALL   DELVCSI                               
030243,001161: 10,2403           15744                                   CSI/B1                                
030244,001162: 10,2404           77145        CSI/SOL           DLOAD    AXT,2                                 
030245,001163: 10,2405           03460                                   POSTCSI                               
030246,001164: 10,2406           00002                                   2                                     
030247,001165: 10,2407           52150                          LXA,1    GOTO                                  
030248,001166: 10,2410           03745                                   RTX1                                  
030249,001167: 10,2411           63535                                   CSINEXT4                              
030250,001168: 
030251,001169: 31,2000                                          SETLOC   CSIPROG9                              
030252,001170: 31,2000                                          BANK                                           
030253,001171: 
030254,001172: 31,3535                                          COUNT*   $$/CSI                                
030255,001173: 31,3535           50023        CSINEXT4          DSU*     BMN                                   
030256,001174: 31,3536           33553                                   PMINE      -2,1                       
030257,001175: 31,3537           63566                                   SCNDSOL                               
030258,001176: 31,3540           71374                          AXT,2    DLOAD                                 
030259,001177: 31,3541           00003                                   3                                     
030260,001178: 31,3542           03472                                   POSTCDH                               
030261,001179: 31,3543           50023                          DSU*     BMN                                   
030262,001180: 31,3544           33553                                   PMINE      -2,1                       
030263,001181: 31,3545           63566                                   SCNDSOL                               
030264,001182: 31,3546           45345                          DLOAD    DSU                                   
030265,001183: 31,3547           02461                                   TCDH                                  
030266,001184: 31,3550           02463                                   TCSI                                  
030267,001185: 31,3551           02547                          STORE    T1TOT2                                
030268,001186:                                                                                                 # # Page 682
030269,001187: 31,3552           45374                          AXT,2    DSU                                   
030270,001188: 31,3553           00004                                   4                                     
030271,001189: 31,3554           36161                                   600SEC                                
030272,001190: 31,3555           77040                          BMN      AXT,2                                 
030273,001191: 31,3556           63566                                   SCNDSOL                               
030274,001192: 31,3557           00005                                   5                                     
030275,001193: 31,3560           45345                          DLOAD    DSU                                   
030276,001194: 31,3561           03663                                   TTPI                                  
030277,001195: 31,3562           02461                                   TCDH                                  
030278,001196: 31,3563           51025                          DSU      BPL                                   
030279,001197: 31,3564           36161                                   600SEC                                
030280,001198: 31,3565           11463                                   P32/P72C                              
030281,001199: 31,3566           43014        SCNDSOL           BON      BOFF                                  
030282,001200: 31,3567           05702                                   S32.1F3A                              
030283,001201: 31,3570           11411                                   ALMXIT                                
030284,001202: 31,3571           05743                                   S32.1F3B                              
030285,001203: 31,3572           11411                                   ALMXIT                                
030286,001204: 31,3573           71334                          SXA,2    DLOAD                                 
030287,001205: 31,3574           03664                                   CSIALRM                               
030288,001206: 31,3575           15336                                   ZEROVECS                              
030289,001207: 31,3576           43014                          CLEAR    SET                                   
030290,001208: 31,3577           05660                                   S32.1F1                               
030291,001209: 31,3600           05461                                   S32.1F2                               
030292,001210: 31,3601           43014                          CLEAR    CLEAR                                 
030293,001211: 31,3602           05662                                   S32.1F3A                              
030294,001212: 31,3603           05663                                   S32.1F3B                              
030295,001213: 31,3604           37764                          STCALL   LOOPCT                                
030296,001214: 31,3605           15704                                   CSI/B                                 
030297,001215: 
030298,001216:                                                                                                 # # Page 683
030299,001217:                                                                                                 #  ..... ADVANCE   .....
030300,001218: 
030301,001219:                                                                                                 #  SUBROUTINES USED
030302,001220:                                                                                                 #         PRECSET
030303,001221:                                                                                                 #         ROTATE
030304,001222: 
030305,001223: 37,2000                                          SETLOC   CDHTAG3                               
030306,001224: 37,2000                                          BANK                                           
030307,001225: 
030308,001226: 37,2560                                          COUNT*   $$/CDH                                
030309,001227: 37,2560           77620        ADVANCE           STQ                                            
030310,001228: 37,2561           02360                                   SUBEXIT                               
030311,001229: 37,2562           34041                          STCALL   TDEC1                                 
030312,001230: 37,2563           45236                                   PRECSET                               
030313,001231: 37,2564           77214                          SET      VLOAD                                 
030314,001232: 37,2565           01067                                   XDELVFLG                              
030315,001233: 37,2566           03562                                   VPASS3                                
030316,001234: 37,2567           02617                          STORE    VPASS2                                
030317,001235: 37,2570           27512                          STOVL    VPASS1                                
030318,001236: 37,2571           03554                                   RPASS3                                
030319,001237: 37,2572           02625                          STORE    RPASS2                                
030320,001238: 37,2573           27756                          STOVL    RPASS1                                
030321,001239: 37,2574           03540                                   RACT3                                 
030322,001240: 37,2575           37632                          STCALL   RTIG                                  
030323,001241: 37,2576           16520                                   ROTATE                                
030324,001242: 37,2577           02453                          STORE    RACT2                                 
030325,001243: 37,2600           26541                          STOVL    RACT1                                 
030326,001244: 37,2601           03546                                   VACT3                                 
030327,001245: 37,2602           37640                          STCALL   VTIG                                  
030328,001246: 37,2603           16520                                   ROTATE                                
030329,001247: 37,2604           02533                          STORE    VACT2                                 
030330,001248: 37,2605           37504                          STCALL   VACT1                                 
030331,001249: 37,2606           02360                                   SUBEXIT                               
030332,001250: 
030333,001251:                                                                                                 # # Page 684
030334,001252:                                                                                                 #  ..... ROTATE    .....
030335,001253: 
030336,001254: 07,2000                                          SETLOC   CSIPROG6                              
030337,001255: 07,2000                                          BANK                                           
030338,001256: 
030339,001257: 07,2520                                          COUNT*   $$/CSI                                
030340,001258: 07,2520           41406        ROTATE            PUSH     PUSH                                  
030341,001259: 07,2521           74241                          DOT      VXSC                                  
030342,001260: 07,2522           02611                                   UP1                                   
030343,001261: 07,2523           02611                                   UP1                                   
030344,001262: 07,2524           51352                          VSL2     BVSU                                  
030345,001263: 07,2525           63256                          UNIT     PDVL                                  
030346,001264: 07,2526           74246                          ABVAL    VXSC                                  
030347,001265: 07,2527           43572                          VSL1     RVQ                                   
030348,001266: 
030349,001267:                                                                                                 # # Page 685
030350,001268:                                                                                                 #  .... DISPN90 .....
030351,001269: 
030352,001270: 06,2000                                          SETLOC   CSIPROG                               
030353,001271: 06,2000                                          BANK                                           
030354,001272: 06,3756                                          COUNT*   $$/CSI                                
030355,001273: 06,3756           77620        DISPN90           STQ                                            
030356,001274: 06,3757           02356                                   ANEXIT                                
030357,001275: 06,3760           57575                          VLOAD    VCOMP                                 
030358,001276: 06,3761           02601                                   AUTOY                                 
030359,001277: 06,3762           15756                          STODL    YCSM                                  #  COMPLEMENT VALUES FOR N90 DISPLAYS
030360,001278: 06,3763           02603                                   CMYDOT                                
030361,001279: 06,3764           03407                          STORE    DELVLVC    +2                         
030362,001280: 06,3765           51414                          BOFF     ABS                                   
030363,001281: 06,3766           05356                                   PCFLAG                                
030364,001282: 06,3767           45550                                   OKN81                                 #  NOT IN P36
030365,001283: 06,3770           51025                          DSU      BPL                                   #  IS YDOT LESS THAN .1 FPS
030366,001284: 06,3771           13306                                   1/10FPS                               
030367,001285: 06,3772           45550                                   OKN81                                 #  NO
030368,001286: 06,3773           77775                          VLOAD                                          #  YES - FORCE DSKY DISPLAY TO BE 0
030369,001287: 06,3774           11762                                   ZEROVEC                               
030370,001288: 06,3775           37405                          STCALL   DELVLVC                               
030371,001289: 06,3776           45550                                   OKN81                                 
030372,001290: 
030373,001291: 22,2000                                          SETLOC   CSIPROG3                              
030374,001292: 22,2000                                          BANK                                           
030375,001293: 
030376,001294: 22,3550                                          COUNT*   $$/CSI                                
030377,001295: 22,3550           77776        OKN81             EXIT                                           
030378,001296: 22,3551           35037                          CA       V06N90                                
030379,001297: 22,3552           05535                          TC       VNFLASH                               
030380,001298: 
030381,001299: 22,3553           34535                          CAF      V06N81                                
030382,001300: 22,3554           05535                          TC       VNFLASH                               
030383,001301: 
030384,001302: 22,3555           06006                          TC       INTPRET                               
030385,001303: 22,3556           77650                          GOTO                                           
030386,001304: 22,3557           02356                                   ANEXIT                                
030387,001305: 
030388,001306: 22,3560  05,3305               1/10FPS           =        EPSILN1                               #  ,1 FPS
030389,001307: 
030390,001308:                                                                                                 # # Page 686
030391,001309:                                                                                                 #  ..... INTINTNA  .....
030392,001310: 
030393,001311: 31,2000                                          SETLOC   CDHTAG2                               
030394,001312: 31,2000                                          BANK                                           
030395,001313: 
030396,001314: 31,3606                                          COUNT*   $$/CDH                                
030397,001315: 31,3606           65325        INTINT2C          PDDL     PDDL                                  
030398,001316: 31,3607           02463                                   TCSI                                  
030399,001317: 31,3610           02461                                   TCDH                                  
030400,001318: 31,3611           41525                          PDDL     PUSH                                  
030401,001319: 31,3612           33143                                   TWOPI                                 
030402,001320: 31,3613           77650                          GOTO                                           
030403,001321: 31,3614           72740                                   INTINT                                
030404,001322: 31,3615           65325        INTINT3P          PDDL     PDDL                                  
030405,001323: 31,3616           02461                                   TCDH                                  
030406,001324: 31,3617           03663                                   TTPI                                  
030407,001325: 31,3620           41525                          PDDL     PUSH                                  
030408,001326: 31,3621           33143                                   TWOPI                                 #  FOR CONIC INTEGRATION
030409,001327: 31,3622           77650                          GOTO                                           
030410,001328: 31,3623           72740                                   INTINT                                
030411,001329: 
030412,001330:                                                                                                 # # Page 687
030413,001331:                                                                                                 #  ..... S32/33.X  .....
030414,001332: 
030415,001333: 15,2000                                          SETLOC   CDHTAGS                               
030416,001334: 15,2000                                          BANK                                           
030417,001335: 
030418,001336: 15,2050                                          COUNT*   $$/CDH                                
030419,001337: 15,2050           77201        S32/33.X          SETPD    VLOAD                                 
030420,001338: 15,2051           00007                                   6D                                    
030421,001339: 15,2052           02611                                   UP1                                   
030422,001340: 15,2053           63276                          VCOMP    PDVL                                  
030423,001341: 15,2054           02541                                   RACT1                                 
030424,001342: 15,2055           57456                          UNIT     VCOMP                                 
030425,001343: 15,2056           47206                          PUSH     VXV                                   
030426,001344: 15,2057           02611                                   UP1                                   
030427,001345: 15,2060           77772                          VSL1                                           
030428,001346: 15,2061           00001                          STORE    0D                                    
030429,001347: 15,2062           77616                          RVQ                                            
030430,001348: 
030431,001349:                                                                                                 # # Page 688
030432,001350:                                                                                                 #  ..... CDHMVR    .....
030433,001351: 
030434,001352:                                                                                                 #  SUBROUTINES USED
030435,001353:                                                                                                 #         VECSHIFT
030436,001354:                                                                                                 #         TIMETHET
030437,001355:                                                                                                 #         SHIFTR1
030438,001356: 
030439,001357: 27,2000                                          SETLOC   CDHTAG                                
030440,001358: 27,2000                                          BANK                                           
030441,001359: 
030442,001360: 27,2674                                          COUNT*   $$/CDH                                
030443,001361: 27,2674           77220        CDHMVR            STQ      VLOAD                                 
030444,001362: 27,2675           02360                                   SUBEXIT                               
030445,001363: 27,2676           02453                                   RACT2                                 
030446,001364: 27,2677           53406                          PUSH     UNIT                                  
030447,001365: 27,2700           27546                          STOVL    UNVEC                                 #  UR SUB A
030448,001366: 27,2701           02625                                   RPASS2                                
030449,001367: 27,2702           50256                          UNIT     DOT                                   
030450,001368: 27,2703           03546                                   UNVEC                                 
030451,001369: 27,2704           72406                          PUSH     SL1                                   
030452,001370: 27,2705           16734                          STODL    CSTH                                  
030453,001371: 27,2706           65316                          DSQ      PDDL                                  
030454,001372: 27,2707           15326                                   DP1/4TH                               
030455,001373: 27,2710           45302                          SR2      DSU                                   
030456,001374: 27,2711           72566                          SQRT     SL1                                   
030457,001375: 27,2712           57515                          PDVL     VCOMP                                 
030458,001376: 27,2713           77635                          VXV                                            
030459,001377: 27,2714           02625                                   RPASS2                                
030460,001378: 27,2715           65241                          DOT      PDDL                                  
030461,001379: 27,2716           02611                                   UP1                                   
030462,001380: 27,2717           45565                          SIGN     STADR                                 
030463,001381: 27,2720           51045                          STOVL    SNTH                                  
030464,001382: 27,2721           02625                                   RPASS2                                
030465,001383: 27,2722           45115                          PDVL     CALL                                  
030466,001384: 27,2723           02617                                   VPASS2                                
030467,001385: 27,2724           45320                                   VECSHIFT                              
030468,001386: 27,2725           26746                          STOVL    VVEC                                  
030469,001387: 27,2726           77614                          CLEAR                                          
030470,001388: 27,2727           03666                                   RVSW                                  
030471,001389: 27,2730           36657                          STCALL   RVEC                                  
030472,001390: 27,2731           25002                                   TIMETHET                              
030473,001391: 27,2732           53754                          LXA,2    VSL*                                  
030474,001392: 27,2733           03746                                   RTX2                                  
030475,001393: 27,2734           57576                                   0,2                                   
030476,001394: 27,2735           00023                          STORE    18D                                   
030477,001395: 27,2736           76441                          DOT      SL1R                                  
030478,001396: 27,2737           03546                                   UNVEC                                 
030479,001397: 27,2740           51515                          PDVL     ABVAL                                 #  0D = V SUB PV
030480,001398: 27,2741           63257                          SL*      PDVL                                  
030481,001399:                                                                                                 # # Page 689
030482,001400: 27,2742           57576                                   0,2                                   
030483,001401: 27,2743           02453                                   RACT2                                 
030484,001402: 27,2744           65246                          ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
030485,001403: 27,2745           77625                          DSU                                            
030486,001404: 27,2746           00003                                   02D                                   
030487,001405: 27,2747           16633                          STODL    DIFFALT                               #  DELTA H IN METERS              B+29
030488,001406: 27,2750           02744                                   R1A                                   
030489,001407: 27,2751           65301                          NORM     PDDL                                  #  2 - R V**/MU                           04D
030490,001408: 27,2752           00047                                   X1                                    
030491,001409: 27,2753           00041                                   R1                                    
030492,001410: 27,2754           77624                          CALL                                           
030493,001411: 27,2755           45330                                   SHIFTR1                               
030494,001412: 27,2756           56362                          SR1R     DDV                                   
030495,001413: 27,2757           41457                          SL*      PUSH                                  
030496,001414: 27,2760           20174                                   0          -5,1                       
030497,001415: 27,2761           65225                          DSU      PDDL                                  #  A SUB A                        B+29    04D
030498,001416: 27,2762           02633                                   DIFFALT                               
030499,001417: 27,2763           56302                          SR2      DDV                                   #  A SUB P                        B+31
030500,001418: 27,2764           00005                                   04D                                   #                                 B+2
030501,001419: 27,2765           75406                          PUSH     SQRT                                  #  A SUB P/A SUB A                        06D
030502,001420: 27,2766           41275                          DMPR     DMP                                   
030503,001421: 27,2767           00007                                   06D                                   
030504,001422: 27,2770           00001                                   00D                                   
030505,001423: 27,2771           65272                          SL3R     PDDL                                  #  V SUB AV METERS/CS             B+7     08D
030506,001424: 27,2772           00003                                   02D                                   #  R SUB A MAGNITUDE              B+29
030507,001425: 27,2773           65301                          NORM     PDDL                                  
030508,001426: 27,2774           00047                                   X1                                    
030509,001427: 27,2775           03750                                   RTMU                                  
030510,001428: 27,2776           56342                          SR1      DDV                                   #  2MU                            B+38
030511,001429: 27,2777           65257                          SL*      PDDL                                  #  2 MU/R SUBAA                   B+14    10D
030512,001430: 27,3000           20174                                   0          -5,1                       
030513,001431: 27,3001           00005                                   04D                                   #  ASUBA                          B+29
030514,001432: 27,3002           65301                          NORM     PDDL                                  
030515,001433: 27,3003           00050                                   X2                                    
030516,001434: 27,3004           03750                                   RTMU                                  
030517,001435: 27,3005           56342                          SR1      DDV                                   
030518,001436: 27,3006           44257                          SL*      BDSU                                  
030519,001437: 27,3007           57604                                   0          -6,2                       #  2U/R - U/A      B+14  (METERS/CS)SQ
030520,001438: 27,3010           63525                          PDDL     DSQ                                   #                                         10D
030521,001439: 27,3011           00011                                   08D                                   
030522,001440: 27,3012           75421                          BDSU     SQRT                                  
030523,001441: 27,3013           47315                          PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)   10D
030524,001442: 27,3014           02611                                   UP1                                   
030525,001443: 27,3015           03546                                   UNVEC                                 
030526,001444: 27,3016           74256                          UNIT     VXSC                                  
030527,001445: 27,3017           00013                                   10D                                   
030528,001446: 27,3020           74315                          PDVL     VXSC                                  
030529,001447: 27,3021           03546                                   UNVEC                                 
030530,001448: 27,3022           00011                                   08D                                   
030531,001449: 27,3023           76455                          VAD      VSL1                                  
030532,001450:                                                                                                 # # Page 690
030533,001451: 27,3024           77626                          STADR                                          
030534,001452: 27,3025           74231                          STORE    VACT3                                 
030535,001453: 27,3026           77651                          VSU                                            
030536,001454: 27,3027           02533                                   VACT2                                 
030537,001455: 27,3030           37667                          STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
030538,001456: 27,3031           02360                                   SUBEXIT                               

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