Source Code

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

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 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.

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

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