Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

027876,000002:                                                                                                  ## Copyright:   Public domain.
027877,000003:                                                                                                  ## Filename:    P32-P33,_P72-P73.agc
027878,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
027879,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
027880,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
027881,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
027882,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
027883,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
027884,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
027885,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
027886,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
027887,000013:                                                                                                  ##              is correct.
027888,000014:                                                                                                  ## Assembler:   yaYUL
027889,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027890,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
027891,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
027892,000018: 
027893,000019:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
027894,000020: 
027895,000021:                                                                                                  #  MOD NO -1             LOG SECTION - P32-P35, P72-P75
027896,000022:                                                                                                  #  MOD BY WHITE.P        DATE 1 JUNE 67
027897,000023: 
027898,000024:                                                                                                  #  PURPOSE
027899,000025:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
027900,000026:                                                                                                  #                CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
027901,000027:                                                                                                  #                INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
027902,000028:                                                                                                  #                (CDH) MANEUVER.
027903,000029:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027904,000030:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027905,000031:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027906,000032:                                                                                                  #                ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
027907,000033:                                                                                                  #                APPROVAL BY THE ASTRONAUT/GROUND.
027908,000034:                                                                                                  #        (4)     TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
027909,000035:                                                                                                  #                THRUSTING PROGRAM.
027910,000036: 
027911,000037:                                                                                                  #  ASSUMPTIONS
027912,000038:                                                                                                  #        (1)     AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
027913,000039:                                                                                                  #                AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
027914,000040:                                                                                                  #                FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
027915,000041:                                                                                                  #                POSITION.
027916,000042:                                                                                                  #        (2)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
027917,000043:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027918,000044:                                                                                                  #                COMPLETION OF THE PROGRAM.
027919,000045:                                                                                                  #        (3)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
027920,000046:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027921,000047:                                                                                                  #                COMPLETION OF THE PROGRAM.
027922,000048:                                                                                                  #        (4)     CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
027923,000049:                                                                                                  #                ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
027924,000050:                                                                                                  #        (5)     CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
027925,000051:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
027926,000052:                                                                                                  #                IGNITION.
027927,000053:                                                                                                  #        (6)     THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
027928,000054:                                                                                                  #                MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
027929,000055:                                                                                                  #                ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
027930,000056:                                                                                                  #        (7)     THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
027931,000057:                                                                                                  #                PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW
027932,000058:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
027933,000059:                                                                                                  #                OUT-OF-PLANE CSI MANEUVER.
027934,000060:                                                                                                  #        (8)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027935,000061:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
027936,000062:                                                                                                  #        (9)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027937,000063:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
027938,000064:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027939,000065:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027940,000066:                                                                                                  #        (10)    THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027941,000067:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027942,000068:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027943,000069:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027944,000070:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027945,000071:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027946,000072:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027947,000073:                                                                                                  #                THRUSTING MANEUVER.
027948,000074:                                                                                                  #        (11)    THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027949,000075:                                                                                                  #        (12)    THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027950,000076: 
027951,000077:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027952,000078:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027953,000079:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027954,000080:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027955,000081: 
027956,000082:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027957,000083:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027958,000084:                                                                                                  #                        CYCLE.
027959,000085: 
027960,000086:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027961,000087:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027962,000088:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027963,000089:                                                                                                  #                        PROGRAM.
027964,000090: 
027965,000091:                                                                                                  #        (13)    IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027966,000092:                                                                                                  #                A THRUSTING MANEUVER.
027967,000093: 
027968,000094:                                                                                                  #        (14)    THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027969,000095: 
027970,000096:                                                                                                  #                        P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
027971,000097: 
027972,000098:                                                                                                  #                        P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
027973,000099: 
027974,000100:                                                                                                  #  INPUT
027975,000101:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
027976,000102:                                                                                                  #        (2)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027977,000103:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027978,000104:                                                                                                  #                                MANEUVER POINT
027979,000105:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
027980,000106:                                                                                                  #        (4)     TTPI            TIME OF THE TPI MANEUVER
027981,000107: 
027982,000108:                                                                                                  #  OUTPUT
027983,000109:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
027984,000110:                                                                                                  #        (2)     TTOGO           TIME TO GO
027985,000111:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
027986,000112:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
027987,000113:                                                                                                  #        (5)     T1TOT2          DELTA TIME FROM CSI TO CDH
027988,000114:                                                                                                  #        (6)     T2TOT3          DELTA TIME FROM CDH TO TPI
027989,000115:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
027990,000116:                                                                                                  #        (8)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027991,000117: 
027992,000118:                                                                                                  #  DOWNLINK
027993,000119:                                                                                                  #        (1)     TCSI            TIME OF THE CSI MANEUVER
027994,000120:                                                                                                  #        (2)     TCDH            TIME OF THE CDH MANEUVER
027995,000121:                                                                                                  #        (3)     TTPI            TIME OF THE TPI MANEUVER
027996,000122:                                                                                                  #        (4)     TIG             TIME OF THE CSI MANEUVER
027997,000123:                                                                                                  #        (5)     DELVEET1        DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027998,000124:                                                                                                  #        (6)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027999,000125:                                                                                                  #        (7)     DIFFALT         DELTA ALTITUDE AT CDH
028000,000126:                                                                                                  #        (8)     NN              NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
028001,000127:                                                                                                  #                                VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
028002,000128:                                                                                                  #                                MANEUVER POINT
028003,000129:                                                                                                  #        (9)     ELEV            DESIRED LOS ANGLE AT TPI
028004,000130: 
028005,000131:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028006,000132:                                                                                                  #        (1)     TIG             TIME OF THE CSI MANEUVER
028007,000133:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
028008,000134:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
028009,000135:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
028010,000136:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
028011,000137:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CSI - REFERENCE COORDINATES
028012,000138:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CSI
028013,000139:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
028014,000140: 
028015,000141:                                                                                                  #  SUBROUTINES USED
028016,000142:                                                                                                  #        AVFLAGA
028017,000143:                                                                                                  #        AVFLAGP
028018,000144:                                                                                                  #        P20FLGON
028019,000145:                                                                                                  #        VARALARM
028020,000146:                                                                                                  #        BANKCALL
028021,000147:                                                                                                  #        GOFLASH
028022,000148:                                                                                                  #        GOTOPOOH
028023,000149:                                                                                                  #        VNPOOH
028024,000150:                                                                                                  #        GOFLASHR
028025,000151:                                                                                                  #        BLANKET
028026,000152:                                                                                                  #        ENDOFJOB
028027,000153:                                                                                                  #        SELECTMU
028028,000154:                                                                                                  #        ADVANCE
028029,000155:                                                                                                  #        INTINT
028030,000156:                                                                                                  #        PASSIVE
028031,000157:                                                                                                  #        CSI/A
028032,000158:                                                                                                  #        S32/33.1
028033,000159:                                                                                                  #        DISDVLVC
028034,000160:                                                                                                  #        VN1645
028035,000161: 
028036,000162: 35,3445                                           BANK     35                                    
028037,000163: 04,2000                                           SETLOC   CSI/CDH1                              
028038,000164: 04,2000                                           BANK                                           
028039,000165: 04,3303  E4,1770                                  EBANK=   SUBEXIT                               
028040,000166: 04,3303                                           COUNT    35/P3272                              
028041,000167: 04,3303           04627        P32                TC       AVFLAGA                               
028042,000168: 04,3304           03306                           TC       P32STRT                               
028043,000169: 04,3305           04642        P72                TC       AVFLAGP                               
028044,000170: 04,3306           06006        P32STRT            TC       INTPRET                               
028045,000171: 04,3307           77745                           DLOAD                                          
028046,000172: 04,3310           11566                                    ZEROVEC                               
028047,000173: 04,3311           03754                           STORE    CENTANG                               
028048,000174: 04,3312           77776                           EXIT                                           
028049,000175: 04,3313           03331                           TC       P32/P72A                              
028050,000176: 04,3314           77734        ALMXITA            SXA,2                                          
028051,000177: 04,3315           03664                                    CSIALRM                               
028052,000178: 04,3316           77740        ALMXIT             LXC,1                                          
028053,000179: 04,3317           03664                                    CSIALRM                               
028054,000180: 04,3320           77533                           SLOAD*   EXIT                                  
028055,000181: 04,3321           15653                                    ALARM/TB   -1,1                       
028056,000182: 04,3322           30154                           CA       MPAC                                  
028057,000183: 04,3323           05770                           TC       VARALARM                              
028058,000184: 04,3324           35064                           CAF      V05N09                                
028059,000185: 04,3325           04676                           TC       BANKCALL                              
028060,000186: 04,3326           20720                           CADR     GOFLASH                               
028061,000187: 04,3327           04106                           TC       GOTOPOOH                              
028062,000188: 04,3330           03324                           TC       -4                                    
028063,000189: 04,3331           04647        P32/P72A           TC       P20FLGON                              
028064,000190: 04,3332           06006                           TC       INTPRET                               
028065,000191: 04,3333           77745                           DLOAD                                          
028066,000192: 04,3334           11566                                    ZEROVEC                               
028067,000193: 04,3335           03766                           STORE    NN                                    
028068,000194: 04,3336           77776                           EXIT                                           
028069,000195: 04,3337           34656                           CAF      V06N11                                #  TCSI
028070,000196: 04,3340           04575                           TC       VNPOOH                                
028071,000197: 04,3341           34615                           CAF      V06N55                                #  NN. ELEV(RGLOS)
028072,000198: 04,3342           04676                           TC       BANKCALL                              
028073,000199: 04,3343           20720                           CADR     GOFLASH                               
028074,000200: 04,3344           04106                           TC       GOTOPOOH                              
028075,000201: 04,3345           03347                           TC       +2                                    
028076,000202: 04,3346           03341                           TC       -5                                    
028077,000203: 04,3347           34614                           CAF      V06N37                                #  TTPI
028078,000204: 04,3350           04575                           TC       VNPOOH                                
028079,000205: 04,3351           06006                           TC       INTPRET                               
028080,000206: 04,3352           77745                           DLOAD                                          
028081,000207: 04,3353           02637                                    TCSI                                  
028082,000208: 04,3354           37413                           STCALL   TIG                                   
028083,000209: 04,3355           10712                                    SELECTMU                              
028084,000210: 04,3356           77624        P32/P72B           CALL                                           
028085,000211: 04,3357           76660                                    ADVANCE                               
028086,000212: 04,3360           77201                           SETPD    VLOAD                                 
028087,000213: 04,3361           00001                                    0D                                    
028088,000214: 04,3362           03512                                    VPASS1                                
028089,000215: 04,3363           65315                           PDVL     PDDL                                  
028090,000216: 04,3364           03756                                    RPASS1                                
028091,000217: 04,3365           02637                                    TCSI                                  
028092,000218: 04,3366           65325                           PDDL     PDDL                                  
028093,000219: 04,3367           03663                                    TTPI                                  
028094,000220: 04,3370           11630                                    2PISC                                 
028095,000221: 04,3371           41512                           SL2      PUSH                                  
028096,000222: 04,3372           77624                           CALL                                           
028097,000223: 04,3373           72705                                    INTINT                                
028098,000224: 04,3374           77624                           CALL                                           
028099,000225: 04,3375           45247                                    PASSIVE                               
028100,000226: 04,3376           77624                           CALL                                           
028101,000227: 04,3377           15704                                    CSI/A                                 
028102,000228: 04,3400           43014        P32/P72C           BON      SET                                   
028103,000229: 04,3401           01311                                    FINALFLG                              
028104,000230: 04,3402           11404                                    P32/P72D                              
028105,000231: 04,3403           00470                                    UPDATFLG                              
028106,000232: 04,3404           52145        P32/P72D           DLOAD    GOTO                                  
028107,000233: 04,3405           02547                                    T1TOT2                                
028108,000234: 04,3406           30002                                    P32/P72E                              
028109,000235: 14,2000                                           SETLOC   CSI/CDH3                              
028110,000236: 14,2000                                           BANK                                           
028111,000237: 14,2002           02547        P32/P72E           STORE    T1TOT2                                
028112,000238: 14,2003           51025                           DSU      BPL                                   
028113,000239: 14,2004           15652                                    60MIN                                 
028114,000240: 14,2005           30002                                    P32/P72E                              
028115,000241: 14,2006           52145                           DLOAD    GOTO                                  
028116,000242: 14,2007           03656                                    T2TOT3                                
028117,000243: 14,2010           11407                                    P32/P72F                              
028118,000244: 04,2000                                           SETLOC   CSI/CDH1                              
028119,000245: 04,2000                                           BANK                                           
028120,000246: 04,3407           03656        P32/P72F           STORE    T2TOT3                                
028121,000247: 04,3410           51025                           DSU      BPL                                   
028122,000248: 04,3411           15652                                    60MIN                                 
028123,000249: 04,3412           11407                                    P32/P72F                              
028124,000250: 04,3413           77776                           EXIT                                           
028125,000251: 04,3414           34660                           CAF      V06N75                                
028126,000252: 04,3415           04575                           TC       VNPOOH                                
028127,000253: 04,3416           06006                           TC       INTPRET                               
028128,000254: 04,3417           45175                           VLOAD    CALL                                  
028129,000255: 04,3420           02445                                    DELVEET1                              
028130,000256: 04,3421           73457                                    S32/33.1                              
028131,000257: 04,3422           26445                           STOVL    DELVEET1                              
028132,000258: 04,3423           02453                                    RACT2                                 
028133,000259: 04,3424           26541                           STOVL    RACT1                                 
028134,000260: 04,3425           03667                                    DELVEET2                              
028135,000261: 04,3426           45170                           AXT,1    CALL                                  
028136,000262: 04,3427           01522                           VN       0682                                  
028137,000263: 04,3430           76640                                    DISDVLVC                              
028138,000264: 04,3431           77745                           DLOAD                                          
028139,000265: 04,3432           03663                                    TTPI                                  
028140,000266: 04,3433           36641                           STCALL   TTPIO                                 
028141,000267: 04,3434           73002                                    VN1645                                
028142,000268: 04,3435           77650                           GOTO                                           
028143,000269: 04,3436           11356                                    P32/P72B                              
028144,000270: 
028145,000271:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
028146,000272:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
028147,000273:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
028148,000274: 
028149,000275:                                                                                                  #  PURPOSE
028150,000276: 
028151,000277:                                                                                                  #        (1)     TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
028152,000278:                                                                                                  #                ALTITUDE MANEUVER (CDH).
028153,000279: 
028154,000280:                                                                                                  #        (2)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028155,000281:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028156,000282: 
028157,000283:                                                                                                  #        (3)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
028158,000284:                                                                                                  #                ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
028159,000285:                                                                                                  #                ASTRONAUT/GROUND.
028160,000286: 
028161,000287:                                                                                                  #        (4)     TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
028162,000288:                                                                                                  #                THRUSTING PROGRAM.
028163,000289: 
028164,000290:                                                                                                  #  ASSUMPTIONS
028165,000291: 
028166,000292:                                                                                                  #        (1)     THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
028167,000293:                                                                                                  #                CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
028168,000294:                                                                                                  #                THERFORE -
028169,000295: 
028170,000296:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028171,000297:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028172,000298:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028173,000299:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028174,000300: 
028175,000301:                                                                                                  #                (B)     THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
028176,000302:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
028177,000303: 
028178,000304:                                                                                                  #                (C)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028179,000305:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
028180,000306: 
028181,000307:                                                                                                  #                (D)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028182,000308:                                                                                                  #                        ORBITS WAS MINMIZED.
028183,000309: 
028184,000310:                                                                                                  #                (E)     CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
028185,000311:                                                                                                  #                        IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
028186,000312:                                                                                                  #                        POSITION AT CSI IGNITION.
028187,000313: 
028188,000314:                                                                                                  #                (F)     THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
028189,000315:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
028190,000316:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
028191,000317: 
028192,000318:                                                                                                  #                (G)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028193,000319:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
028194,000320:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028195,000321:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
028196,000322: 
028197,000323:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028198,000324:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
028199,000325: 
028200,000326:                                                                                                  #        (3)     COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
028201,000327:                                                                                                  #                THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
028202,000328:                                                                                                  #                ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
028203,000329:                                                                                                  #                EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
028204,000330: 
028205,000331:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028206,000332:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
028207,000333:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028208,000334:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
028209,000335:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028210,000336:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
028211,000337:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028212,000338:                                                                                                  #                THRUSTING MANEUVER.
028213,000339: 
028214,000340:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028215,000341: 
028216,000342:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028217,000343: 
028218,000344:                                                                                                  #                        ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028219,000345:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028220,000346:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
028221,000347:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028222,000348: 
028223,000349:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028224,000350:                                                                                                  #                        COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
028225,000351:                                                                                                  #                        CYCLE.
028226,000352: 
028227,000353:                                                                                                  #                        EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
028228,000354:                                                                                                  #                        STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
028229,000355:                                                                                                  #                        THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
028230,000356:                                                                                                  #                        PROGRAM.
028231,000357: 
028232,000358:                                                                                                  #        (7)     IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
028233,000359:                                                                                                  #                A THRUSTING MANEUVER.
028234,000360: 
028235,000361:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028236,000362: 
028237,000363:                                                                                                  #                        P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
028238,000364: 
028239,000365:                                                                                                  #                        P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
028240,000366: 
028241,000367:                                                                                                  #  INPUT
028242,000368: 
028243,000369:                                                                                                  #        (1)     TTPI0   TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
028244,000370:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
028245,000371:                                                                                                  #        (3)     TCDH    TIME OF THE CDH MANEUVER
028246,000372: 
028247,000373:                                                                                                  #  OUTPUT
028248,000374: 
028249,000375:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
028250,000376:                                                                                                  #        (2)     TTOGO           TIME TO GO
028251,000377:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
028252,000378:                                                                                                  #        (4)     DIFFALT         DELTA ALTITUDE AT CDH
028253,000379:                                                                                                  #        (5)     T2TOT3          DELTA TIME FROM CDH TO COMPUTED TPI
028254,000380:                                                                                                  #        (6)     NOMTPI          DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
028255,000381:                                                                                                  #        (7)     DELVLVC         DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
028256,000382: 
028257,000383:                                                                                                  #  DOWNLINK
028258,000384: 
028259,000385:                                                                                                  #        (1)     TCDH            TIME OF THE CDH MANEUVER
028260,000386:                                                                                                  #        (2)     TTPI            TIME OF THE TPI MANEUVER
028261,000387:                                                                                                  #        (3)     TIG             TIME OF THE CDH MANEUVER
028262,000388:                                                                                                  #        (4)     DELVEET2        DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028263,000389:                                                                                                  #        (5)     DIFFALT         DELTA ALTITUDE AT CDH
028264,000390:                                                                                                  #        (6)     ELEV            DESIRED LOS ANGLE AT TPI
028265,000391: 
028266,000392:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
028267,000393: 
028268,000394:                                                                                                  #        (1)     TIG             TIME OF THE CDH MANEUVER
028269,000395:                                                                                                  #        (2)     RTIG            POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
028270,000396:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
028271,000397:                                                                                                  #        (3)     VTIG            VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
028272,000398:                                                                                                  #                                INTO PLANE OF PASSIVE VEHICLE
028273,000399:                                                                                                  #        (4)     DELVSIN         DELTA VELOCITY AT CDH - REFERENCE COORDINATES
028274,000400:                                                                                                  #        (5)     DELVSAB         MAGNITUDE OF DELTA VELOCITY AT CDH
028275,000401:                                                                                                  #        (6)     XDELVFLG        SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
028276,000402: 
028277,000403:                                                                                                  #  SUBROUTINES USED
028278,000404: 
028279,000405:                                                                                                  #        AVFLAGA
028280,000406:                                                                                                  #        AVFLAGP
028281,000407:                                                                                                  #        P20FLGON
028282,000408:                                                                                                  #        VNPOOH
028283,000409:                                                                                                  #        SELECTMU
028284,000410:                                                                                                  #        ADVANCE
028285,000411:                                                                                                  #        CDHMVR
028286,000412:                                                                                                  #        INTINT3P
028287,000413:                                                                                                  #        ACTIVE
028288,000414:                                                                                                  #        PASSIVE
028289,000415:                                                                                                  #        S33/34.1
028290,000416:                                                                                                  #        ALARM
028291,000417:                                                                                                  #        BANKCALL
028292,000418:                                                                                                  #        GOFLASH
028293,000419:                                                                                                  #        GOTOPOOH
028294,000420:                                                                                                  #        S32/33.1
028295,000421:                                                                                                  #        VN1645
028296,000422: 
028297,000423: 04,3437                                           COUNT    35/P3373                              
028298,000424: 
028299,000425: 04,3437           04627        P33                TC       AVFLAGA                               
028300,000426: 04,3440           03442                           TC       P33/P73A                              
028301,000427: 04,3441           04642        P73                TC       AVFLAGP                               
028302,000428: 04,3442           04647        P33/P73A           TC       P20FLGON                              
028303,000429: 04,3443           34657                           CAF      V06N13                                #  TCDH
028304,000430: 04,3444           04575                           TC       VNPOOH                                
028305,000431: 04,3445           06006                           TC       INTPRET                               
028306,000432: 04,3446           77745                           DLOAD                                          
028307,000433: 04,3447           02641                                    TTPIO                                 
028308,000434: 04,3450           17663                           STODL    TTPI                                  
028309,000435: 04,3451           02635                                    TCDH                                  
028310,000436: 04,3452           37413                           STCALL   TIG                                   
028311,000437: 04,3453           10712                                    SELECTMU                              
028312,000438: 04,3454           77624        P33/P73B           CALL                                           
028313,000439: 04,3455           76660                                    ADVANCE                               
028314,000440: 04,3456           77624                           CALL                                           
028315,000441: 04,3457           13232                                    CDHMVR                                
028316,000442: 04,3460           77201                           SETPD    VLOAD                                 
028317,000443: 04,3461           00001                                    0D                                    
028318,000444: 04,3462           03546                                    VACT3                                 
028319,000445: 04,3463           45115                           PDVL     CALL                                  
028320,000446: 04,3464           02453                                    RACT2                                 
028321,000447: 04,3465           63675                                    INTINT3P                              
028322,000448: 04,3466           77624                           CALL                                           
028323,000449: 04,3467           45237                                    ACTIVE                                
028324,000450: 04,3470           77201                           SETPD    VLOAD                                 
028325,000451: 04,3471           00001                                    0D                                    
028326,000452: 04,3472           02617                                    VPASS2                                
028327,000453: 04,3473           45115                           PDVL     CALL                                  
028328,000454: 04,3474           02625                                    RPASS2                                
028329,000455: 04,3475           63675                                    INTINT3P                              
028330,000456: 04,3476           77624                           CALL                                           
028331,000457: 04,3477           45247                                    PASSIVE                               
028332,000458: 04,3500           43145                           DLOAD    SET                                   
028333,000459: 04,3501           11566                                    ZEROVEC                               
028334,000460: 04,3502           03461                                    ITSWICH                               
028335,000461: 04,3503           36364                           STCALL   NOMTPI                                
028336,000462: 04,3504           72216                                    S33/34.1                              
028337,000463: 04,3505           77454                           BZE      EXIT                                  
028338,000464: 04,3506           24000                                    P33/P73C                              
028339,000465: 04,3507           05664                           TC       ALARM                                 
028340,000466: 04,3510           00611                           OCT      611                                   
028341,000467: 04,3511           35064                           CAF      V05N09                                
028342,000468: 04,3512           04676                           TC       BANKCALL                              
028343,000469: 04,3513           20720                           CADR     GOFLASH                               
028344,000470: 04,3514           04106                           TC       GOTOPOOH                              
028345,000471: 04,3515           03517                           TC       +2                                    
028346,000472: 04,3516           03442                           TC       P33/P73A                              
028347,000473: 04,3517           06006                           TC       INTPRET                               
028348,000474: 04,3520           77745                           DLOAD                                          
028349,000475: 04,3521           11566                                    ZEROVEC                               
028350,000476: 04,3522           36364                           STCALL   NOMTPI                                
028351,000477: 04,3523           24000                                    P33/P73C                              
028352,000478: 12,2000                                           SETLOC   CSI/CDH2                              
028353,000479: 12,2000                                           BANK                                           
028354,000480: 
028355,000481: 12,2000           43014        P33/P73C           BON      SET                                   
028356,000482: 12,2001           01311                                    FINALFLG                              
028357,000483: 12,2002           24004                                    P33/P73D                              
028358,000484: 12,2003           00470                                    UPDATFLG                              
028359,000485: 12,2004           43345        P33/P73D           DLOAD    DAD                                   
028360,000486: 12,2005           02364                                    NOMTPI                                
028361,000487: 12,2006           03663                                    TTPI                                  
028362,000488: 12,2007           03663                           STORE    TTPI                                  
028363,000489: 12,2010           52025                           DSU      GOTO                                  
028364,000490: 12,2011           02635                                    TCDH                                  
028365,000491: 12,2012           11524                                    P33/P73E                              
028366,000492: 04,2000                                           SETLOC   CSI/CDH1                              
028367,000493: 04,2000                                           BANK                                           
028368,000494: 
028369,000495: 04,3524           51025        P33/P73E           DSU      BPL                                   
028370,000496: 04,3525           15652                                    60MIN                                 
028371,000497: 04,3526           11524                                    P33/P73E                              
028372,000498: 04,3527           77615                           DAD                                            
028373,000499: 04,3530           15652                                    60MIN                                 
028374,000500: 04,3531           16547                           STODL    T1TOT2                                
028375,000501: 04,3532           03663                                    TTPI                                  
028376,000502: 04,3533           41425                           DSU      PUSH                                  
028377,000503: 04,3534           02641                                    TTPIO                                 
028378,000504: 04,3535           45246        P33/P73F           ABS      DSU                                   
028379,000505: 04,3536           15652                                    60MIN                                 
028380,000506: 04,3537           43244                           BPL      DAD                                   
028381,000507: 04,3540           11535                                    P33/P73F                              
028382,000508: 04,3541           15652                                    60MIN                                 
028383,000509: 04,3542           45565                           SIGN     STADR                                 
028384,000510: 04,3543           74121                           STORE    T2TOT3                                
028385,000511: 04,3544           77776                           EXIT                                           
028386,000512: 04,3545           34660                           CAF      V06N75                                
028387,000513: 04,3546           04575                           TC       VNPOOH                                
028388,000514: 04,3547           06006                           TC       INTPRET                               
028389,000515: 04,3550           45175                           VLOAD    CALL                                  
028390,000516: 04,3551           03667                                    DELVEET2                              
028391,000517: 04,3552           73457                                    S32/33.1                              
028392,000518: 04,3553           37667                           STCALL   DELVEET2                              
028393,000519: 04,3554           73002                                    VN1645                                
028394,000520: 04,3555           77650                           GOTO                                           
028395,000521: 04,3556           11454                                    P33/P73B                              
028396,000522: 
028397,000523:                                                                                                  #  ..... AVFLAGA/P .....
028398,000524: 
028399,000525:                                                                                                  #  ..... DISDVLVC .....
028400,000526: 
028401,000527:                                                                                                  #  SUBROUTINES USED
028402,000528: 
028403,000529:                                                                                                  #        S32/33.X
028404,000530:                                                                                                  #        VNPOOH
028405,000531: 
028406,000532: 37,2000                                           SETLOC   CDHTAG3                               
028407,000533: 37,2000                                           BANK                                           
028408,000534: 
028409,000535: 37,2640           03405        DISDVLVC           STORE    DELVLVC                               
028410,000536: 37,2641           45020                           STQ      CALL                                  
028411,000537: 37,2642           01340                                    NORMEX                                
028412,000538: 37,2643           26227                                    S32/33.X                              
028413,000539: 37,2644           64375                           VLOAD    MXV                                   
028414,000540: 37,2645           03405                                    DELVLVC                               
028415,000541: 37,2646           00001                                    0D                                    
028416,000542: 37,2647           66172                           VSL1     SXA,1                                 
028417,000543: 37,2650           02365                                    VERBNOUN                              
028418,000544: 37,2651           03405                           STORE    DELVLVC                               
028419,000545: 37,2652           77776                           EXIT                                           
028420,000546: 37,2653           31765                           CA       VERBNOUN                              
028421,000547: 37,2654           04575                           TC       VNPOOH                                
028422,000548: 37,2655           06006                           TC       INTPRET                               
028423,000549: 37,2656           77650                           GOTO                                           
028424,000550: 37,2657           01340                                    NORMEX                                
028425,000551:    4000                                           SETLOC   FFTAG12                               
028426,000552:    4000                                           BANK                                           
028427,000553: 
028428,000554:    4656           01413        V06N11             VN       0611                                  
028429,000555:    4657           01415        V06N13             VN       0613                                  
028430,000556:    4660           01513        V06N75             VN       0675                                  
028431,000557: 
028432,000558:    4661           01462        V06N50             VN       0650                                  
028433,000559: 
028434,000560: 
028435,000561:                                                                                                  #  ..... CSI/A .....
028436,000562: 
028437,000563:                                                                                                  #  SUBROUTINES USED
028438,000564: 
028439,000565:                                                                                                  #        VECSHIFT
028440,000566:                                                                                                  #        TIMETHET
028441,000567:                                                                                                  #        PERIAPO
028442,000568:                                                                                                  #        SHIFTR1
028443,000569:                                                                                                  #        INTINT2C
028444,000570:                                                                                                  #        CDHMVR
028445,000571:                                                                                                  #        PERIAPO1
028446,000572:                                                                                                  #        INTINT
028447,000573:                                                                                                  #        ACTIVE
028448,000574: 
028449,000575: 34,3763                                           BANK     34                                    
028450,000576: 06,2000                                           SETLOC   CSIPROG                               
028451,000577: 06,2000                                           BANK                                           
028452,000578: 06,3651  E4,1770                                  EBANK=   SUBEXIT                               
028453,000579: 06,3651                                           COUNT    34/CSI                                
028454,000580: 
028455,000581: 06,3651           00025 37100  60MIN              2DEC     360000     B-28                       
028456,000582: 
028457,000583: 06,3653           00600        ALARM/TB           OCT      00600                                 #  NO 1
028458,000584: 06,3654           00601                           OCT      00601                                 #     2
028459,000585: 06,3655           00602                           OCT      00602                                 #     3
028460,000586: 06,3656           00603                           OCT      00603                                 #     4
028461,000587: 06,3657           00604                           OCT      00604                                 #     5
028462,000588: 06,3660           00605                           OCT      00605                                 #     6
028463,000589: 06,3661           00606                           OCT      00606                                 #     7
028464,000590: 06,3662           00000 00020  LOOPMX             2DEC     16         B-28                       
028465,000591: 
028466,000592: 06,3664           00003 34661  INITST             2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
028467,000593: 
028468,000594: 06,3666           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #  MAXIMUM DV1 = 1000 FPS
028469,000595: 
028470,000596: 06,3670           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                 989 FPS
028471,000597: 
028472,000598: 06,3672           10000 00000  1DPB2              2DEC     1.0        B-2                        
028473,000599: 
028474,000600: 06,3674           00000 00001  1DPB28             2DEC     1          B-28                       
028475,000601: 
028476,000602: 06,3676           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #  .1 FPS
028477,000603: 
028478,000604: 
028479,000605: 06,3700           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #  50 FPS
028480,000606: 
028481,000607: 06,3702           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #  200 FPS
028482,000608: 
028483,000609: 35,2000                                           SETLOC   CSI/CDH                               
028484,000610: 35,2000                                           BANK                                           
028485,000611: 35,3445           00004 31566  PMINE              2DEC     157420     B-29                       #  84 NM. - MUST BE 8 WORDS BEFORE PMINM
028486,000612: 
028487,000613: 
028488,000614: 35,3447           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS
028489,000615: 
028490,000616: 35,3451           00003 34661  INITST1            2DEC     .03048     B-7                        #  INITIAL DELDV = 10 FPS
028491,000617: 
028492,000618: 35,3453           00000 06433  ONETHTH            2DEC     .0001      B-3                        
028493,000619: 
028494,000620: 35,3455           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE.
028495,000621: 
028496,000622: 06,2000                                           SETLOC   CSIPROG                               
028497,000623: 06,2000                                           BANK                                           
028498,000624: 
028499,000625: 06,3704           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
028500,000626: 06,3705           05660                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
028501,000627: 06,3706           05461                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR
028502,000628: 06,3707           43014                           CLEAR    SET                                   
028503,000629: 06,3710           05662                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
028504,000630: 06,3711           05463                                    S32.1F3B                              #  10=2ND CYCLE 11=50 FPS STAGE 2ND CYCLE
028505,000631: 06,3712           77745                           DLOAD                                          
028506,000632: 06,3713           11566                                    ZEROVEC                               
028507,000633: 06,3714           03764                           STORE    LOOPCT                                
028508,000634: 06,3715           03665                           STORE    CSIALRM                               
028509,000635: 06,3716           77201        CSI/B              SETPD    VLOAD                                 
028510,000636: 06,3717           00001                                    0D                                    
028511,000637: 06,3720           02541                                    RACT1                                 
028512,000638: 06,3721           41446                           ABVAL    PUSH                                  #  RA1                                  B29 PL02D
028513,000639: 06,3722           70501                           NORM     SR1                                   
028514,000640: 06,3723           00050                                    X2                                    #                                B29-N2+ B1 PL04D
028515,000641: 06,3724           51515                           PDVL     ABVAL                                 
028516,000642: 06,3725           03554                                    RPASS3                                
028517,000643: 06,3726           55301                           NORM     BDDV                                  #  RA1/RP3                               B1 PL02D
028518,000644: 06,3727           00047                                    X1                                    
028519,000645: 06,3730           53664                           XSU,2    SR*                                   #                                        B2
028520,000646: 06,3731           00046                                    X1                                    
028521,000647: 06,3732           57175                                    1,2                                   
028522,000648: 06,3733           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1              B29+B2=B31 PL00D
028523,000649: 06,3734           15673                                    1DPB2                                 
028524,000650: 06,3735           65301                           NORM     PDDL                                  #                                           PL02D
028525,000651: 06,3736           00047                                    X1                                    
028526,000652: 06,3737           03750                                    RTMU                                  
028527,000653: 06,3740           56342                           SR1      DDV                                   #                               B38-B31= B7 PL00D
028528,000654: 06,3741           75457                           SL*      SQRT                                  #                                        B7
028529,000655: 06,3742           20172                                    0          -7,1                       
028530,000656: 06,3743           53515                           PDVL     UNIT                                  #                                           PL02D
028531,000657: 06,3744           02541                                    RACT1                                 
028532,000658: 06,3745           47315                           PDVL     VXV                                   
028533,000659: 06,3746           02611                                    UP1                                   
028534,000660: 06,3747           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
028535,000661: 06,3750           72441                           DOT      SL1                                   #  VA1 . UH1                             B7
028536,000662: 06,3751           03504                                    VACT1                                 
028537,000663: 06,3752           45421                           BDSU     STADR                                 #                                           PL00D
028538,000664: 06,3753           60315                           STODL    DELVCSI                               
028539,000665: 06,3754           15665                                    INITST                                #  10 FPS
028540,000666: 06,3755           03464                           STORE    DELDV                                 
028541,000667: 06,3756           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
028542,000668: 06,3757           03764                                    LOOPCT                                
028543,000669: 06,3760           15675                                    1DPB28                                
028544,000670: 06,3761           03764                           STORE    LOOPCT                                
028545,000671: 06,3762           77025                           DSU      AXT,2                                 
028546,000672: 06,3763           15663                                    LOOPMX                                
028547,000673: 06,3764           00006                                    6                                     
028548,000674: 06,3765           52044                           BPL      GOTO                                  
028549,000675: 06,3766           63646                                    SCNDSOL                               
028550,000676: 06,3767           24013                                    CSI/B2                                
028551,000677: 
028552,000678: 12,2000                                           SETLOC   CSIPROG2                              
028553,000679: 12,2000                                           BANK                                           
028554,000680: 
028555,000681: 12,2013           77601        CSI/B2             SETPD                                          
028556,000682: 12,2014           00001                                    0D                                    
028557,000683: 12,2015           51545                           DLOAD    ABS                                   
028558,000684: 12,2016           03462                                    DELVCSI                               
028559,000685: 12,2017           50025                           DSU      BMN                                   
028560,000686: 12,2020           15667                                    DVMAX1                                
028561,000687: 12,2021           45267                                    CSI/B23                               
028562,000688: 12,2022           43174                           AXT,2    BON                                   
028563,000689: 12,2023           00007                                    7                                     
028564,000690: 12,2024           05700                                    S32.1F1                               
028565,000691: 12,2025           63646                                    SCNDSOL                               
028566,000692: 12,2026           43014                           BOFF     BON                                   
028567,000693: 12,2027           05742                                    S32.1F3A                              
028568,000694: 12,2030           24033                                    CSI/B22                               #  FLAG 3 NEQ 3
028569,000695: 12,2031           05703                                    S32.1F3B                              
028570,000696: 12,2032           63646                                    SCNDSOL                               
028571,000697: 12,2033           71214        CSI/B22            SET      DLOAD                                 
028572,000698: 12,2034           05460                                    S32.1F1                               
028573,000699: 12,2035           15671                                    DVMAX2                                
028574,000700: 12,2036           77765                           SIGN                                           
028575,000701: 12,2037           03462                                    DELVCSI                               
028576,000702: 12,2040           37462                           STCALL   DELVCSI                               
028577,000703: 12,2041           45267                                    CSI/B23                               
028578,000704: 
028579,000705: 22,2000                                           SETLOC   CSIPROG3                              
028580,000706: 22,2000                                           BANK                                           
028581,000707: 
028582,000708: 22,3267           41575        CSI/B23            VLOAD    PUSH                                  
028583,000709: 22,3270           02541                                    RACT1                                 
028584,000710: 22,3271           63256                           UNIT     PDVL                                  
028585,000711: 22,3272           02611                                    UP1                                   
028586,000712: 22,3273           53435                           VXV      UNIT                                  #  UNIT (URP1 X UVP1 X URA1) = UH1
028587,000713: 22,3274           76561                           VXSC     VSL1                                  
028588,000714: 22,3275           03462                                    DELVCSI                               
028589,000715: 22,3276           02445                           STORE    DELVEET1                              
028590,000716: 22,3277           40055                           VAD      BOV                                   
028591,000717: 22,3300           03504                                    VACT1                                 
028592,000718: 22,3301           45302                                    CSI/B23D                              
028593,000719: 22,3302           37474        CSI/B23D           STCALL   VACT4                                 
028594,000720: 22,3303           45253                                    VECSHIFT                              
028595,000721: 22,3304           26746                           STOVL    VVEC                                  
028596,000722: 22,3305           77614                           SET                                            
028597,000723: 22,3306           03466                                    RVSW                                  
028598,000724: 22,3307           26657                           STOVL    RVEC                                  
028599,000725: 22,3310           05426                                    SN359+                                
028600,000726: 22,3311           36732                           STCALL   SNTH                                  #  ALSO CSTH
028601,000727: 22,3312           24744                                    TIMETHET                              
028602,000728: 22,3313           72142                           SR1      LXA,1                                 
028603,000729: 22,3314           03745                                    RTX1                                  
028604,000730: 22,3315           37472                           STCALL   HAFPA1                                
028605,000731: 22,3316           45163                                    PERIAPO                               
028606,000732: 22,3317           77624                           CALL                                           
028607,000733: 22,3320           45263                                    SHIFTR1                               
028608,000734: 22,3321           17460                           STODL    POSTCSI                               
028609,000735: 22,3322           03754                                    CENTANG                               
028610,000736: 22,3323           52054                           BZE      GOTO                                  
028611,000737: 22,3324           45326                                    +2                                    
028612,000738: 22,3325           47147                                    CIRCL                                 
028613,000739: 22,3326           77745                           DLOAD                                          
028614,000740: 22,3327           02754                                    ECC                                   
028615,000741: 22,3330           50025                           DSU      BMN                                   
028616,000742: 22,3331           33454                                    ONETHTH                               
028617,000743: 22,3332           47147                                    CIRCL                                 
028618,000744: 22,3333           45145                           DLOAD    CALL                                  
028619,000745: 22,3334           00041                                    R1                                    
028620,000746: 22,3335           45263                                    SHIFTR1                               
028621,000747: 22,3336           60201                           SETPD    NORM                                  
028622,000748: 22,3337           00003                                    2D                                    
028623,000749: 22,3340           00047                                    X1                                    
028624,000750: 22,3341           50315                           PDVL     DOT                                   #                                PL04D
028625,000751: 22,3342           02541                                    RACT1                                 
028626,000752: 22,3343           03474                                    VACT4                                 
028627,000753: 22,3344           56246                           ABS      DDV                                   
028628,000754: 22,3345           00003                                    02D                                   #  (/RDOTV/)/R1          B36-B29= B7
028629,000755: 22,3346           45257                           SL*      DSU                                   
028630,000756: 22,3347           20201                                    0,1                                   
028631,000757: 22,3350           33450                                    NICKELDP                              
028632,000758: 22,3351           71240                           BMN      DLOAD                                 
028633,000759: 22,3352           47147                                    CIRCL                                 
028634,000760: 22,3353           02742                                    P                                     
028635,000761: 22,3354           45312                           SL2      DSU                                   
028636,000762: 22,3355           33502                                    1RTEB2                                #  1.B.2
028637,000763: 22,3356           14017                           STODL    14D                                   
028638,000764: 22,3357           03752                                    RTSR1/MU                              
028639,000765: 22,3360           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1         B-16-B29 = B-45 PL02D
028640,000766: 22,3361           41325                           PDDL     DMP                                   
028641,000767: 22,3362           02742                                    P                                     
028642,000768: 22,3363           00041                                    R1                                    
028643,000769: 22,3364           77624                           CALL                                           
028644,000770: 22,3365           45263                                    SHIFTR1                               
028645,000771: 22,3366           72412                           SL4      SL1                                   
028646,000772: 22,3367           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1       B14+B-45 = B-31 PL02D
028647,000773: 22,3370           52414                           BOFF     SL3                                   
028648,000774: 22,3371           04343                                    CMOONFLG                              
028649,000775: 22,3372           45373                                    CSI/B3                                
028650,000776: 22,3373           50315        CSI/B3             PDVL     DOT                                   
028651,000777: 22,3374           02541                                    RACT1                                 
028652,000778: 22,3375           03474                                    VACT4                                 
028653,000779: 22,3376           03502                           STORE    RDOTV                                 
028654,000780: 22,3377           77646                           ABS                                            
028655,000781: 22,3400           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1                  PL02D
028656,000782: 22,3401           00050                                    X2                                    
028657,000783: 22,3402           53660                           XSU,1    SL*                                   #                        B-31+B36-B3 = B2
028658,000784: 22,3403           00047                                    X2                                    
028659,000785: 22,3404           20204                                    3,1                                   
028660,000786: 22,3405           14015                           STODL    12D                                   
028661,000787: 22,3406           15334                                    ZEROVECS                              
028662,000788: 22,3407           00021                           STORE    16D                                   
028663,000789: 22,3410           53575                           VLOAD    UNIT                                  
028664,000790: 22,3411           00015                                    12D                                   
028665,000791: 22,3412           26732                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
028666,000792: 22,3413           02541                                    RACT1                                 
028667,000793: 22,3414           75315                           PDVL     SIGN                                  
028668,000794: 22,3415           03474                                    VACT4                                 
028669,000795: 22,3416           03502                                    RDOTV                                 
028670,000796: 22,3417           45076                           VCOMP    CALL                                  
028671,000797: 22,3420           45253                                    VECSHIFT                              
028672,000798: 22,3421           26746                           STOVL    VVEC                                  
028673,000799: 22,3422           77614                           SETGO                                          
028674,000800: 22,3423           03426                                    RVSW                                  
028675,000801: 22,3424           47136                                    CSINEXT                               
028676,000802: 
028677,000803: 22,3425           77776 62460  SN359+             2DEC     -.000086601                            
028678,000804: 
028679,000805: 22,3427           17777 37776  CS359+             2DEC     +.499999992                            
028680,000806: 
028681,000807: 23,2000                                           SETLOC   CSIPROG4                              
028682,000808: 23,2000                                           BANK                                           
028683,000809: 
028684,000810: 23,3136           36657        CSINEXT            STCALL   RVEC                                  
028685,000811: 23,3137           24744                                    TIMETHET                              
028686,000812: 23,3140           51125                           PDDL     BPL                                   
028687,000813: 23,3141           03502                                    RDOTV                                 
028688,000814: 23,3142           47153                                    NTP/2                                 
028689,000815: 23,3143           45345                           DLOAD    DSU                                   
028690,000816: 23,3144           03472                                    HAFPA1                                
028691,000817: 23,3145           52006                           PUSH     GOTO                                  
028692,000818: 23,3146           47153                                    NTP/2                                 
028693,000819: 23,3147           71201        CIRCL              SETPD    DLOAD                                 
028694,000820: 23,3150           00001                                    00D                                   
028695,000821: 23,3151           15334                                    ZEROVECS                              
028696,000822: 23,3152           77606                           PUSH                                           
028697,000823: 23,3153           41345        NTP/2              DLOAD    DMP                                   
028698,000824: 23,3154           03766                                    NN                                    
028699,000825: 23,3155           03472                                    HAFPA1                                
028700,000826: 23,3156           45261                           SL       DSU                                   
028701,000827: 23,3157           20217                                    14D                                   
028702,000828: 23,3160           77615                           DAD                                            
028703,000829: 23,3161           02637                                    TCSI                                  
028704,000830: 23,3162           02635                           STORE    TCDH                                  
028705,000831: 23,3163           77021                           BDSU     AXT,2                                 
028706,000832: 23,3164           03663                                    TTPI                                  
028707,000833: 23,3165           00005                                    5D                                    
028708,000834: 23,3166           40240                           BMN      SETPD                                 
028709,000835: 23,3167           63646                                    SCNDSOL                               
028710,000836: 23,3170           00001                                    0D                                    
028711,000837: 23,3171           63375                           VLOAD    PDVL                                  
028712,000838: 23,3172           03474                                    VACT4                                 
028713,000839: 23,3173           02541                                    RACT1                                 
028714,000840: 23,3174           77624                           CALL                                           
028715,000841: 23,3175           63666                                    INTINT2C                              
028716,000842: 23,3176           26453                           STOVL    RACT2                                 
028717,000843: 23,3177           00007                                    VATT                                  
028718,000844: 23,3200           26533                           STOVL    VACT2                                 
028719,000845: 23,3201           03512                                    VPASS1                                
028720,000846: 23,3202           63201                           SETPD    PDVL                                  
028721,000847: 23,3203           00001                                    0D                                    
028722,000848: 23,3204           03756                                    RPASS1                                
028723,000849: 23,3205           77650                           GOTO                                           
028724,000850: 23,3206           34020                                    CSINEXT1                              
028725,000851: 
028726,000852: 16,2000                                           SETLOC   CSIPROG5                              
028727,000853: 16,2000                                           BANK                                           
028728,000854: 
028729,000855: 16,2020           77624        CSINEXT1           CALL                                           
028730,000856: 16,2021           63666                                    INTINT2C                              
028731,000857: 16,2022           26625                           STOVL    RPASS2                                
028732,000858: 16,2023           00007                                    VATT                                  
028733,000859: 16,2024           36617                           STCALL   VPASS2                                
028734,000860: 16,2025           13232                                    CDHMVR                                
028735,000861: 16,2026           40375                           VLOAD    SETPD                                 
028736,000862: 16,2027           02453                                    RACT2                                 
028737,000863: 16,2030           00001                                    0D                                    
028738,000864: 16,2031           45115                           PDVL     CALL                                  
028739,000865: 16,2032           03546                                    VACT3                                 
028740,000866: 16,2033           45153                                    PERIAPO1                              
028741,000867: 16,2034           77624                           CALL                                           
028742,000868: 16,2035           45263                                    SHIFTR1                               
028743,000869: 16,2036           27472                           STOVL    POSTCDH                               
028744,000870: 16,2037           03546                                    VACT3                                 
028745,000871: 16,2040           63201                           SETPD    PDVL                                  
028746,000872: 16,2041           00001                                    0D                                    
028747,000873: 16,2042           02453                                    RACT2                                 
028748,000874: 16,2043           65325                           PDDL     PDDL                                  
028749,000875: 16,2044           02635                                    TCDH                                  
028750,000876: 16,2045           03663                                    TTPI                                  
028751,000877: 16,2046           62525                           PDDL     SL2                                   
028752,000878: 16,2047           11630                                    2PISC                                 
028753,000879: 16,2050           45006                           PUSH     CALL                                  
028754,000880: 16,2051           72705                                    INTINT                                
028755,000881: 16,2052           77624                           CALL                                           
028756,000882: 16,2053           45237                                    ACTIVE                                
028757,000883: 16,2054           77745                           DLOAD                                          
028758,000884: 16,2055           03744                                    ELEV                                  
028759,000885: 16,2056           73401                           SETPD    SINE                                  
028760,000886: 16,2057           00007                                    6D                                    
028761,000887: 16,2060           53515                           PDVL     UNIT                                  
028762,000888: 16,2061           03540                                    RACT3                                 
028763,000889: 16,2062           00001                           STORE    00D                                   #  URA3 AT 00D
028764,000890: 16,2063           47315                           PDVL     VXV                                   #  PL14D, PL08D
028765,000891: 16,2064           02611                                    UP1                                   
028766,000892: 16,2065           77656                           UNIT                                           
028767,000893: 16,2066           71525                           PDDL     COSINE                                #  UNIT(URA3 X UVA3 X URA3) = UH3        B1 PL14D
028768,000894: 16,2067           03744                                    ELEV                                  
028769,000895: 16,2070           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                         B2 PL08D
028770,000896: 16,2071           43754                           STCALL   18D                                   #                PLUS
028771,000897: 16,2072           16517                                    CSINEXT2                              
028772,000898: 
028773,000899: 07,2000                                           SETLOC   CSIPROG6                              
028774,000900: 07,2000                                           BANK                                           
028775,000901: 
028776,000902: 07,2517           74345        CSINEXT2           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U                    B2 PL00D
028777,000903: 07,2520           76455                           VAD      VSL1                                  
028778,000904: 07,2521           00023                                    18D                                   #                                        B1
028779,000905: 07,2522           50206                           PUSH     DOT                                   #                                           PL06D
028780,000906: 07,2523           03540                                    RACT3                                 #  (U . RA3) = TEMP1         B1 + B29 = B30
028781,000907: 07,2524           41552                           SL1      PUSH                                  #                                       B29 PL08D
028782,000908: 07,2525           72316                           DSQ      TLOAD                                 #  TEMP1**2                             B58
028783,000909: 07,2526           00155                                    MPAC                                  
028784,000910: 07,2527           50315                           PDVL     DOT                                   #                                           PL11D
028785,000911: 07,2530           03540                                    RACT3                                 
028786,000912: 07,2531           03540                                    RACT3                                 
028787,000913: 07,2532           57551                           TLOAD    DCOMP                                 #  RA3 . RA3
028788,000914: 07,2533           00155                                    MPAC                                  
028789,000915: 07,2534           50315                           PDVL     DOT                                   #  RP3 . RP3                         B58 PL14D
028790,000916: 07,2535           03554                                    RPASS3                                
028791,000917: 07,2536           03554                                    RPASS3                                #                                        PL11D
028792,000918: 07,2537           76371                           TAD      TAD                                   #  TEMP1**2 + RA3.RA3 + RP3.RP3 = TEMP2  PL08D
028793,000919: 07,2540           71244                           BPL      DLOAD                                 
028794,000920: 07,2541           16557                                    K10RK2                                
028795,000921: 07,2542           03764                                    LOOPCT                                
028796,000922: 07,2543           77025                           DSU      AXT,2                                 
028797,000923: 07,2544           15675                                    1DPB28                                
028798,000924: 07,2545           00001                                    1D                                    
028799,000925: 07,2546           77654                           BZE                                            
028800,000926: 07,2547           11314                                    ALMXITA                               
028801,000927: 07,2550           70545                           DLOAD    SR1                                   
028802,000928: 07,2551           03464                                    DELDV                                 
028803,000929: 07,2552           03464                           STORE    DELDV                                 
028804,000930: 07,2553           77621                           BDSU                                           
028805,000931: 07,2554           03470                                    DVPREV                                
028806,000932: 07,2555           37462                           STCALL   DELVCSI                               
028807,000933: 07,2556           15756                                    CSI/B1                                
028808,000934: 07,2557           41566        K10RK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5                 B29 PL10D
028809,000935: 07,2560           45276                           DCOMP    DSU                                   
028810,000936: 07,2561           00007                                    06D                                   #  -TEMP1-TEMP3 = K2 AT 10D
028811,000937: 07,2562           14013                           STODL    10D                                   #                                        PL08D
028812,000938: 07,2563           45425                           DSU      STADR                                 #                                        PL06D
028813,000939: 07,2564           77762                           STORE    12D                                   #  -TEMP1+TEMP3 = K1 AT 12D
028814,000940: 07,2565           77646                           ABS                                            
028815,000941: 07,2566           14017                           STODL    14D                                   
028816,000942: 07,2567           00013                                    10D                                   
028817,000943: 07,2570           45246                           ABS      DSU                                   
028818,000944: 07,2571           00017                                    14D                                   
028819,000945: 07,2572           71240                           BMN      DLOAD                                 
028820,000946: 07,2573           50002                                    K2.                                   
028821,000947: 07,2574           00015                                    12D                                   
028822,000948: 07,2575           34013                           STCALL   10D                                   #  K EQUALS K1
028823,000949: 07,2576           50002                                    K2.                                   
028824,000950: 
028825,000951: 24,2000                                           SETLOC   CSIPROG7                              
028826,000952: 24,2000                                           BANK                                           
028827,000953: 
028828,000954: 24,2002           77745        K2.                DLOAD                                          
028829,000955: 24,2003           00013                                    10D                                   
028830,000956: 24,2004           76561                           VXSC     VSL1                                  
028831,000957: 24,2005           53455                           VAD      UNIT                                  #  V = RA3 + KU UNIT                 B1
028832,000958: 24,2006           03540                                    RACT3                                 
028833,000959: 24,2007           53515                           PDVL     UNIT                                  
028834,000960: 24,2010           03554                                    RPASS3                                #                                        PL06D
028835,000961: 24,2011           53515                           PDVL     UNIT                                  
028836,000962: 24,2012           03562                                    VPASS3                                #                                        PL12D
028837,000963: 24,2013           63235                           VXV      PDVL                                  #  UVP3 X URP3                           PL18D
028838,000964: 24,2014           00007                                    06D                                   
028839,000965: 24,2015           00007                                    06D                                   
028840,000966: 24,2016           50235                           VXV      DOT                                   
028841,000967: 24,2017           00001                                    00D                                   
028842,000968: 24,2020           77626                           STADR                                          #                                        PL12D
028843,000969: 24,2021           53762                           STOVL    12D                                   #  (URP3 X V).(UVP3 X URP3)=TEMP         PL06D
028844,000970: 24,2022           72441                           DOT      SL1                                   #                                        PL00D
028845,000971: 24,2023           75326                           ARCCOS   SIGN                                  
028846,000972: 24,2024           00015                                    12D                                   #                                     B0
028847,000973: 24,2025           41542                           SR1      PUSH                                  #  GAMMA = SIGN(TEMP)ARCOS(UNITV.URP3)   PL02D
028848,000974: 24,2026           71214                           BON      DLOAD                                 
028849,000975: 24,2027           05701                                    S32.1F2                               
028850,000976: 24,2030           50065                                    FRSTPAS                               
028851,000977: 24,2031           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
028852,000978: 24,2032           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                      B1 PL04D
028853,000979: 24,2033           03466                                    GAMPREV                               
028854,000980: 24,2034           03462                                    DELVCSI                               
028855,000981: 24,2035           60225                           DSU      NORM                                  #                                     B7
028856,000982: 24,2036           03470                                    DVPREV                                
028857,000983: 24,2037           00047                                    X1                                    
028858,000984: 24,2040           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)      B-6+N1 PL06D
028859,000985: 24,2041           00003                                    02D                                   #        = SLOPE
028860,000986: 24,2042           03462                                    DELVCSI                               
028861,000987: 24,2043           03470                           STORE    DVPREV                                
028862,000988: 24,2044           43014                           BOFF     BOFF                                  
028863,000989: 24,2045           05742                                    S32.1F3A                              
028864,000990: 24,2046           20307                                    THRDCHK                               
028865,000991: 24,2047           05743                                    S32.1F3B                              
028866,000992: 24,2050           20307                                    THRDCHK                               
028867,000993: 24,2051           41345                           DLOAD    DMP                                   
028868,000994: 24,2052           00003                                    02D                                   
028869,000995: 24,2053           03466                                    GAMPREV                               
028870,000996: 24,2054           71244                           BPL      DLOAD                                 
028871,000997: 24,2055           20314                                    FIFTYFPS                              
028872,000998: 24,2056           33452                                    INITST1                               
028873,000999: 24,2057           77765                           SIGN                                           
028874,001000: 24,2060           03464                                    DELDV                                 
028875,001001: 24,2061           03464                           STORE    DELDV                                 
028876,001002: 24,2062           43014                           SET      CLEAR                                 
028877,001003: 24,2063           05462                                    S32.1F3A                              
028878,001004: 24,2064           05663                                    S32.1F3B                              
028879,001005: 24,2065           77745        FRSTPAS            DLOAD                                          
028880,001006: 24,2066           00001                                    00D                                   
028881,001007: 24,2067           17466                           STODL    GAMPREV                               
028882,001008: 24,2070           03462                                    DELVCSI                               
028883,001009: 24,2071           37470                           STCALL   DVPREV                                
028884,001010: 24,2072           20302                                    CSINEXT3                              
028885,001011: 
028886,001012: 10,2000                                           SETLOC   CSIPROG8                              
028887,001013: 10,2000                                           BANK                                           
028888,001014: 
028889,001015: 10,2302           43025        CSINEXT3           DSU      CLEAR                                 
028890,001016: 10,2303           03464                                    DELDV                                 
028891,001017: 10,2304           05661                                    S32.1F2                               
028892,001018: 10,2305           37462                           STCALL   DELVCSI                               
028893,001019: 10,2306           15756                                    CSI/B1                                
028894,001020: 10,2307           43014        THRDCHK            BON      BON                                   
028895,001021: 10,2310           05702                                    S32.1F3A                              
028896,001022: 10,2311           20333                                    NEWTN                                 
028897,001023: 10,2312           05703                                    S32.1F3B                              
028898,001024: 10,2313           20333                                    NEWTN                                 
028899,001025: 10,2314           75345        FIFTYFPS           DLOAD    SIGN                                  
028900,001026: 10,2315           15701                                    FIFPSDP                               
028901,001027: 10,2316           00005                                    04D                                   
028902,001028: 10,2317           77765                           SIGN                                           
028903,001029: 10,2320           03466                                    GAMPREV                               
028904,001030: 10,2321           03464                           STORE    DELDV                                 
028905,001031: 10,2322           43276                           DCOMP    DAD                                   
028906,001032: 10,2323           03462                                    DELVCSI                               
028907,001033: 10,2324           17462                           STODL    DELVCSI                               
028908,001034: 10,2325           00001                                    00D                                   
028909,001035: 10,2326           43014                           SET      SET                                   
028910,001036: 10,2327           05463                                    S32.1F3B                              
028911,001037: 10,2330           05462                                    S32.1F3A                              
028912,001038: 10,2331           37466                           STCALL   GAMPREV                               
028913,001039: 10,2332           24013                                    CSI/B2                                
028914,001040: 10,2333           60345        NEWTN              DLOAD    NORM                                  
028915,001041: 10,2334           00005                                    04D                                   
028916,001042: 10,2335           00050                                    X2                                    
028917,001043: 10,2336           54065                           BDDV     XSU,1                                 
028918,001044: 10,2337           00001                                    00D                                   
028919,001045: 10,2340           00047                                    X2                                    
028920,001046: 10,2341           77657                           SR*                                            
028921,001047: 10,2342           20601                                    0,1                                   
028922,001048: 10,2343           17464                           STODL    DELDV                                 
028923,001049: 10,2344           00001                                    00D                                   
028924,001050: 10,2345           03466                           STORE    GAMPREV                               
028925,001051: 10,2346           51545                           DLOAD    ABS                                   
028926,001052: 10,2347           03464                                    DELDV                                 
028927,001053: 10,2350           45206                           PUSH     DSU                                   #                                        PL08D
028928,001054: 10,2351           15677                                    EPSILN1                               
028929,001055: 10,2352           71240                           BMN      DLOAD                                 
028930,001056: 10,2353           20370                                    CSI/SOL                               
028931,001057: 10,2354           50025                           DSU      BMN                                   
028932,001058: 10,2355           15703                                    DELMAX1                               
028933,001059: 10,2356           20363                                    CSISTEP                               
028934,001060: 10,2357           75345                           DLOAD    SIGN                                  
028935,001061: 10,2360           15703                                    DELMAX1                               
028936,001062: 10,2361           03464                                    DELDV                                 
028937,001063: 10,2362           03464                           STORE    DELDV                                 
028938,001064: 10,2363           45345        CSISTEP            DLOAD    DSU                                   
028939,001065: 10,2364           03462                                    DELVCSI                               
028940,001066: 10,2365           03464                                    DELDV                                 
028941,001067: 10,2366           37462                           STCALL   DELVCSI                               
028942,001068: 10,2367           15756                                    CSI/B1                                
028943,001069: 10,2370           77145        CSI/SOL            DLOAD    AXT,2                                 
028944,001070: 10,2371           03460                                    POSTCSI                               
028945,001071: 10,2372           00002                                    2                                     
028946,001072: 10,2373           52150                           LXA,1    GOTO                                  
028947,001073: 10,2374           03745                                    RTX1                                  
028948,001074: 10,2375           63614                                    CSINEXT4                              
028949,001075: 
028950,001076: 31,2000                                           SETLOC   CSIPROG9                              
028951,001077: 31,2000                                           BANK                                           
028952,001078: 
028953,001079: 31,3614           50023        CSINEXT4           DSU*     BMN                                   
028954,001080: 31,3615           33444                                    PMINE      -2,1                       
028955,001081: 31,3616           63646                                    SCNDSOL                               
028956,001082: 31,3617           71374                           AXT,2    DLOAD                                 
028957,001083: 31,3620           00003                                    3                                     
028958,001084: 31,3621           03472                                    POSTCDH                               
028959,001085: 31,3622           50023                           DSU*     BMN                                   
028960,001086: 31,3623           33444                                    PMINE      -2,1                       
028961,001087: 31,3624           63646                                    SCNDSOL                               
028962,001088: 31,3625           45345                           DLOAD    DSU                                   
028963,001089: 31,3626           02635                                    TCDH                                  
028964,001090: 31,3627           02637                                    TCSI                                  
028965,001091: 31,3630           02547                           STORE    T1TOT2                                
028966,001092: 31,3631           45374                           AXT,2    DSU                                   
028967,001093: 31,3632           00004                                    4                                     
028968,001094: 31,3633           36155                                    600SEC                                
028969,001095: 31,3634           77040                           BMN      AXT,2                                 
028970,001096: 31,3635           63646                                    SCNDSOL                               
028971,001097: 31,3636           00005                                    5                                     
028972,001098: 31,3637           45345                           DLOAD    DSU                                   
028973,001099: 31,3640           03663                                    TTPI                                  
028974,001100: 31,3641           02635                                    TCDH                                  
028975,001101: 31,3642           03656                           STORE    T2TOT3                                
028976,001102: 31,3643           51025                           DSU      BPL                                   
028977,001103: 31,3644           36155                                    600SEC                                
028978,001104: 31,3645           11400                                    P32/P72C                              
028979,001105: 31,3646           43014        SCNDSOL            BON      BOFF                                  
028980,001106: 31,3647           05702                                    S32.1F3A                              
028981,001107: 31,3650           11316                                    ALMXIT                                
028982,001108: 31,3651           05743                                    S32.1F3B                              
028983,001109: 31,3652           11316                                    ALMXIT                                
028984,001110: 31,3653           71334                           SXA,2    DLOAD                                 
028985,001111: 31,3654           03664                                    CSIALRM                               
028986,001112: 31,3655           15334                                    ZEROVECS                              
028987,001113: 31,3656           43014                           CLEAR    SET                                   
028988,001114: 31,3657           05660                                    S32.1F1                               
028989,001115: 31,3660           05461                                    S32.1F2                               
028990,001116: 31,3661           43014                           CLEAR    CLEAR                                 
028991,001117: 31,3662           05662                                    S32.1F3A                              
028992,001118: 31,3663           05663                                    S32.1F3B                              
028993,001119: 31,3664           37764                           STCALL   LOOPCT                                
028994,001120: 31,3665           15716                                    CSI/B                                 
028995,001121: 
028996,001122:                                                                                                  #  ..... ADVANCE .....
028997,001123: 
028998,001124:                                                                                                  #  SUBROUTINES USED
028999,001125:                                                                                                  #        PRECSET
029000,001126:                                                                                                  #        ROTATE
029001,001127: 
029002,001128: 37,2000                                           SETLOC   CDHTAG3                               
029003,001129: 37,2000                                           BANK                                           
029004,001130: 
029005,001131: 37,2660           71220        ADVANCE            STQ      DLOAD                                 
029006,001132: 37,2661           02370                                    SUBEXIT                               
029007,001133: 37,2662           03413                                    TIG                                   
029008,001134: 37,2663           34041                           STCALL   TDEC1                                 
029009,001135: 37,2664           45215                                    PRECSET                               
029010,001136: 37,2665           77214                           SET      VLOAD                                 
029011,001137: 37,2666           01067                                    XDELVFLG                              
029012,001138: 37,2667           03562                                    VPASS3                                
029013,001139: 37,2670           02617                           STORE    VPASS2                                
029014,001140: 37,2671           27512                           STOVL    VPASS1                                
029015,001141: 37,2672           03554                                    RPASS3                                
029016,001142: 37,2673           02625                           STORE    RPASS2                                
029017,001143: 37,2674           03756                           STORE    RPASS1                                
029018,001144: 37,2675           47256                           UNIT     VXV                                   
029019,001145: 37,2676           03512                                    VPASS1                                
029020,001146: 37,2677           77656                           UNIT                                           
029021,001147: 37,2700           26611                           STOVL    UP1                                   
029022,001148: 37,2701           03540                                    RACT3                                 
029023,001149: 37,2702           37632                           STCALL   RTIG                                  
029024,001150: 37,2703           13222                                    ROTATE                                
029025,001151: 37,2704           02453                           STORE    RACT2                                 
029026,001152: 37,2705           26541                           STOVL    RACT1                                 
029027,001153: 37,2706           03546                                    VACT3                                 
029028,001154: 37,2707           37640                           STCALL   VTIG                                  
029029,001155: 37,2710           13222                                    ROTATE                                
029030,001156: 37,2711           02533                           STORE    VACT2                                 
029031,001157: 37,2712           37504                           STCALL   VACT1                                 
029032,001158: 37,2713           02370                                    SUBEXIT                               
029033,001159: 
029034,001160:                                                                                                  #  ..... ROTATE .....
029035,001161: 
029036,001162: 05,2000                                           SETLOC   CDHTAG                                
029037,001163: 05,2000                                           BANK                                           
029038,001164: 
029039,001165: 05,3222           41406        ROTATE             PUSH     PUSH                                  
029040,001166: 05,3223           74241                           DOT      VXSC                                  
029041,001167: 05,3224           02611                                    UP1                                   
029042,001168: 05,3225           02611                                    UP1                                   
029043,001169: 05,3226           51352                           VSL2     BVSU                                  
029044,001170: 05,3227           63256                           UNIT     PDVL                                  
029045,001171: 05,3230           74246                           ABVAL    VXSC                                  
029046,001172: 05,3231           43572                           VSL1     RVQ                                   
029047,001173: 
029048,001174:                                                                                                  #  ..... INTINTNA .....
029049,001175: 
029050,001176: 31,2000                                           SETLOC   CDHTAG2                               
029051,001177: 31,2000                                           BANK                                           
029052,001178: 
029053,001179: 31,3666           65325        INTINT2C           PDDL     PDDL                                  
029054,001180: 31,3667           02637                                    TCSI                                  
029055,001181: 31,3670           02635                                    TCDH                                  
029056,001182: 31,3671           41525                           PDDL     PUSH                                  
029057,001183: 31,3672           33107                                    TWOPI                                 
029058,001184: 31,3673           77650                           GOTO                                           
029059,001185: 31,3674           72705                                    INTINT                                
029060,001186: 31,3675           65325        INTINT3P           PDDL     PDDL                                  
029061,001187: 31,3676           02635                                    TCDH                                  
029062,001188: 31,3677           03663                                    TTPI                                  
029063,001189: 31,3700           41525                           PDDL     PUSH                                  
029064,001190: 31,3701           15334                                    ZEROVECS                              
029065,001191: 31,3702           77650                           GOTO                                           
029066,001192: 31,3703           72705                                    INTINT                                
029067,001193: 
029068,001194:                                                                                                  #  ..... S32/33.1 .....
029069,001195: 
029070,001196:                                                                                                  #  SUBROUTINES USED
029071,001197:                                                                                                  #        S32/33.X
029072,001198: 
029073,001199: 35,2000                                           SETLOC   CSI/CDH                               
029074,001200: 35,2000                                           BANK                                           
029075,001201: 
029076,001202: 35,3457           76020        S32/33.1           STQ      AXT,1                                 
029077,001203: 35,3460           02370                                    SUBEXIT                               
029078,001204: 35,3461           01521                           VN       0681                                  
029079,001205: 35,3462           77624                           CALL                                           
029080,001206: 35,3463           76640                                    DISDVLVC                              
029081,001207: 35,3464           77624                           CALL                                           
029082,001208: 35,3465           26227                                    S32/33.X                              
029083,001209: 35,3466           61375                           VLOAD    VXM                                   
029084,001210: 35,3467           03405                                    DELVLVC                               
029085,001211: 35,3470           00001                                    0D                                    
029086,001212: 35,3471           77772                           VSL1                                           
029087,001213: 35,3472           03646                           STORE    DELVSIN                               
029088,001214: 35,3473           51406                           PUSH     ABVAL                                 
029089,001215: 35,3474           27654                           STOVL    DELVSAB                               
029090,001216: 35,3475           77650                           GOTO                                           
029091,001217: 35,3476           02370                                    SUBEXIT                               
029092,001218: 
029093,001219:                                                                                                  #  ..... S32/33.X .....
029094,001220: 
029095,001221: 13,2000                                           SETLOC   CDHTAGS                               
029096,001222: 13,2000                                           BANK                                           
029097,001223: 
029098,001224: 13,2227           77201        S32/33.X           SETPD    VLOAD                                 
029099,001225: 13,2230           00007                                    6D                                    
029100,001226: 13,2231           02611                                    UP1                                   
029101,001227: 13,2232           63276                           VCOMP    PDVL                                  
029102,001228: 13,2233           02541                                    RACT1                                 
029103,001229: 13,2234           57456                           UNIT     VCOMP                                 
029104,001230: 13,2235           47206                           PUSH     VXV                                   
029105,001231: 13,2236           02611                                    UP1                                   
029106,001232: 13,2237           77772                           VSL1                                           
029107,001233: 13,2240           00001                           STORE    0D                                    
029108,001234: 13,2241           77616                           RVQ                                            
029109,001235: 
029110,001236:                                                                                                  #  ..... CDHMVR .....
029111,001237: 
029112,001238:                                                                                                  #  SUBROUTINES USED
029113,001239:                                                                                                  #        VECSHIFT
029114,001240:                                                                                                  #        TIMETHET
029115,001241:                                                                                                  #        SHIFTR1
029116,001242: 
029117,001243: 05,2000                                           SETLOC   CDHTAG                                
029118,001244: 05,2000                                           BANK                                           
029119,001245: 
029120,001246: 05,3232           77220        CDHMVR             STQ      VLOAD                                 
029121,001247: 05,3233           02370                                    SUBEXIT                               
029122,001248: 05,3234           02453                                    RACT2                                 
029123,001249: 05,3235           53406                           PUSH     UNIT                                  
029124,001250: 05,3236           27546                           STOVL    UNVEC                                 #  UR SUB A
029125,001251: 05,3237           02625                                    RPASS2                                
029126,001252: 05,3240           50256                           UNIT     DOT                                   
029127,001253: 05,3241           03546                                    UNVEC                                 
029128,001254: 05,3242           72406                           PUSH     SL1                                   
029129,001255: 05,3243           16734                           STODL    CSTH                                  
029130,001256: 05,3244           65316                           DSQ      PDDL                                  
029131,001257: 05,3245           23740                                    DP1/4                                 
029132,001258: 05,3246           45302                           SR2      DSU                                   
029133,001259: 05,3247           72566                           SQRT     SL1                                   
029134,001260: 05,3250           57515                           PDVL     VCOMP                                 
029135,001261: 05,3251           77635                           VXV                                            
029136,001262: 05,3252           02625                                    RPASS2                                
029137,001263: 05,3253           65241                           DOT      PDDL                                  
029138,001264: 05,3254           02611                                    UP1                                   
029139,001265: 05,3255           45565                           SIGN     STADR                                 
029140,001266: 05,3256           51045                           STOVL    SNTH                                  
029141,001267: 05,3257           02625                                    RPASS2                                
029142,001268: 05,3260           45115                           PDVL     CALL                                  
029143,001269: 05,3261           02617                                    VPASS2                                
029144,001270: 05,3262           45253                                    VECSHIFT                              
029145,001271: 05,3263           26746                           STOVL    VVEC                                  
029146,001272: 05,3264           77614                           CLEAR                                          
029147,001273: 05,3265           03666                                    RVSW                                  
029148,001274: 05,3266           36657                           STCALL   RVEC                                  
029149,001275: 05,3267           24744                                    TIMETHET                              
029150,001276: 05,3270           53754                           LXA,2    VSL*                                  
029151,001277: 05,3271           03746                                    RTX2                                  
029152,001278: 05,3272           57576                                    0,2                                   
029153,001279: 05,3273           00023                           STORE    18D                                   
029154,001280: 05,3274           76441                           DOT      SL1R                                  
029155,001281: 05,3275           03546                                    UNVEC                                 
029156,001282: 05,3276           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
029157,001283: 05,3277           63257                           SL*      PDVL                                  
029158,001284: 05,3300           57576                                    0,2                                   
029159,001285: 05,3301           02453                                    RACT2                                 
029160,001286: 05,3302           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
029161,001287: 05,3303           77625                           DSU                                            
029162,001288: 05,3304           00003                                    02D                                   
029163,001289: 05,3305           16633                           STODL    DIFFALT                               #  DELTA H IN METERS             B+29
029164,001290: 05,3306           02744                                    R1A                                   
029165,001291: 05,3307           65301                           NORM     PDDL                                  #  2 - R V**/MU                          04D
029166,001292: 05,3310           00047                                    X1                                    
029167,001293: 05,3311           00041                                    R1                                    
029168,001294: 05,3312           77624                           CALL                                           
029169,001295: 05,3313           45263                                    SHIFTR1                               
029170,001296: 05,3314           56362                           SR1R     DDV                                   
029171,001297: 05,3315           41457                           SL*      PUSH                                  
029172,001298: 05,3316           20174                                    0          -5,1                       
029173,001299: 05,3317           65225                           DSU      PDDL                                  #  A SUB A                       B+29    04D
029174,001300: 05,3320           02633                                    DIFFALT                               
029175,001301: 05,3321           56302                           SR2      DDV                                   #  A SUB P                       B+31
029176,001302: 05,3322           00005                                    04D                                   #                                B+2
029177,001303: 05,3323           75406                           PUSH     SQRT                                  #  A SUB P/A SUB A                       06D
029178,001304: 05,3324           41275                           DMPR     DMP                                   
029179,001305: 05,3325           00007                                    06D                                   
029180,001306: 05,3326           00001                                    00D                                   
029181,001307: 05,3327           65272                           SL3R     PDDL                                  #  V SUB A V METERS/CS           B+7     08D
029182,001308: 05,3330           00003                                    02D                                   #  R SUB A MAGNITUDE             B+29
029183,001309: 05,3331           65301                           NORM     PDDL                                  
029184,001310: 05,3332           00047                                    X1                                    
029185,001311: 05,3333           03750                                    RTMU                                  
029186,001312: 05,3334           56342                           SR1      DDV                                   #  2MU                           B+38
029187,001313: 05,3335           65257                           SL*      PDDL                                  #  2 MU/R SUBAA                  B+14    10D
029188,001314: 05,3336           20174                                    0          -5,1                       
029189,001315: 05,3337           00005                                    04D                                   #  ASUBA                         B+29
029190,001316: 05,3340           65301                           NORM     PDDL                                  
029191,001317: 05,3341           00050                                    X2                                    
029192,001318: 05,3342           03750                                    RTMU                                  
029193,001319: 05,3343           56342                           SR1      DDV                                   
029194,001320: 05,3344           44257                           SL*      BDSU                                  
029195,001321: 05,3345           57604                                    0          -6,2                       #  2U/R - U/A             B+14 (METERS/CS)SQ
029196,001322: 05,3346           63525                           PDDL     DSQ                                   #                                        10D
029197,001323: 05,3347           00011                                    08D                                   
029198,001324: 05,3350           75421                           BDSU     SQRT                                  
029199,001325: 05,3351           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)  10D
029200,001326: 05,3352           02611                                    UP1                                   
029201,001327: 05,3353           03546                                    UNVEC                                 
029202,001328: 05,3354           74256                           UNIT     VXSC                                  
029203,001329: 05,3355           00013                                    10D                                   
029204,001330: 05,3356           74315                           PDVL     VXSC                                  
029205,001331: 05,3357           03546                                    UNVEC                                 
029206,001332: 05,3360           00011                                    08D                                   
029207,001333: 05,3361           76455                           VAD      VSL1                                  
029208,001334: 05,3362           77626                           STADR                                          
029209,001335: 05,3363           74231                           STORE    VACT3                                 
029210,001336: 05,3364           77651                           VSU                                            
029211,001337: 05,3365           02533                                    VACT2                                 
029212,001338: 05,3366           37667                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
029213,001339: 05,3367           02370                                    SUBEXIT                               
029214,001340: 
029215,001341:                                                                                                  #  ..... COMPTGO .....
029216,001342: 
029217,001343:                                                                                                  #  SUBROUTINES USED
029218,001344:                                                                                                  #        CLOKTASK
029219,001345:                                                                                                  #        2PHSCHNG
029220,001346: 
029221,001347: 35,3477                                           BANK     35                                    
029222,001348: 35,2000                                           SETLOC   CSI/CDH                               
029223,001349: 35,2000                                           BANK                                           
029224,001350: 
029225,001351: 35,3477  E4,1767                                  EBANK=   RTRN                                  
029226,001352: 
029227,001353: 35,3477                                           COUNT*   $$/P3575                              
029228,001354: 

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