Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. 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 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.

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

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