Source Code

These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of original core rope program modules, as follows:
  • B1 — Revision 292
  • B2 — Revision 302
  • B3 — Revision 302
  • B4 — Revision 302
  • B5 — Revision 292
  • B6 — Revision 306
This means that source code does not represent a specific historical revision of Sundance, but rather a mixture of the three released versions. Nonetheless, it is capable of flying the whole Apollo 9 mission. This source code matches the binary dumps, as closely as feasible, but 100% match is not possible, due mostly to changes in memory addresses at which code and variables were allocated in different revisions of Sundance. Refer to this list of explanations for each binary mismatch.

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

023911,000002:                                                                                                  ## Copyright:   Public domain.
023912,000003:                                                                                                  ## Filename:    P32-P35,_P72-P75.agc
023913,000004:                                                                                                  ## Purpose:     A section of a reconstructed, mixed version of Sundance
023914,000005:                                                                                                  ##              It is part of the reconstructed source code for the Lunar
023915,000006:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
023916,000007:                                                                                                  ##              No original listings of this program are available;
023917,000008:                                                                                                  ##              instead, this file was created via disassembly of dumps
023918,000009:                                                                                                  ##              of various revisions of Sundance core rope modules.
023919,000010:                                                                                                  ## Assembler:   yaYUL
023920,000011:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
023921,000012:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
023922,000013:                                                                                                  ## Mod history: 2020-06-17 MAS  Created from Luminary 69.
023923,000014:                                                                                                  ##              2021-05-30 ABS  TTPIO -> TTPI0
023924,000015:                                                                                                  ##                              K10RK2 -> K1ORK2
023925,000016: 
023926,000017:                                                                                                  ## Sundance 292
023927,000018: 
023928,000019:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
023929,000020: 
023930,000021:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
023931,000022:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
023932,000023: 
023933,000024:                                                                                                  #  PURPOSE
023934,000025: 
023935,000026:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
023936,000027:                                                                                                  #            CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
023937,000028:                                                                                                  #            INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
023938,000029:                                                                                                  #            (CDH) MANEUVER.
023939,000030: 
023940,000031:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
023941,000032:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
023942,000033: 
023943,000034:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
023944,000035:                                                                                                  #            ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
023945,000036:                                                                                                  #            APPROVAL BY THE ASTRONAUT/GROUND.
023946,000037: 
023947,000038:                                                                                                  #        (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
023948,000039:                                                                                                  #            THRUSTING PROGRAM.
023949,000040: 
023950,000041:                                                                                                  #  ASSUMPTIONS
023951,000042: 
023952,000043:                                                                                                  #        (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
023953,000044:                                                                                                  #            AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
023954,000045:                                                                                                  #            FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
023955,000046:                                                                                                  #            POSITION.
023956,000047: 
023957,000048:                                                                                                  #        (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
023958,000049:                                                                                                  #            COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
023959,000050:                                                                                                  #            COMPLETION OF THE PROGRAM.
023960,000051: 
023961,000052:                                                                                                  #        (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
023962,000053:                                                                                                  #            COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
023963,000054:                                                                                                  #            COMPLETION OF THE PROGRAM.
023964,000055: 
023965,000056:                                                                                                  #        (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
023966,000057:                                                                                                  #            ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
023967,000058: 
023968,000059:                                                                                                  #        (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
023969,000060:                                                                                                  #            HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
023970,000061:                                                                                                  #            IGNITION.
023971,000062: 
023972,000063:                                                                                                  #        (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
023973,000064:                                                                                                  #            MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
023974,000065:                                                                                                  #            ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
023975,000066: 
023976,000067:                                                                                                  #        (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
023977,000068:                                                                                                  #            PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW
023978,000069:                                                                                                  #            MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
023979,000070:                                                                                                  #            OUT-OF-PLANE CSI MANEUVER.
023980,000071: 
023981,000072:                                                                                                  #        (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
023982,000073:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
023983,000074: 
023984,000075:                                                                                                  #        (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
023985,000076:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
023986,000077:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
023987,000078:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
023988,000079: 
023989,000080:                                                                                                  #       (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
023990,000081:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
023991,000082:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
023992,000083:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
023993,000084:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
023994,000085:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
023995,000086:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
023996,000087:                                                                                                  #            THRUSTING MANEUVER.
023997,000088: 
023998,000089:                                                                                                  #       (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
023999,000090: 
024000,000091:                                                                                                  #       (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
024001,000092: 
024002,000093:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
024003,000094:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
024004,000095:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
024005,000096:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
024006,000097: 
024007,000098:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
024008,000099:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
024009,000100:                                                                                                  #                CYCLE.
024010,000101: 
024011,000102:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
024012,000103:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
024013,000104:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
024014,000105:                                                                                                  #                PROGRAM.
024015,000106: 
024016,000107:                                                                                                  #       (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
024017,000108:                                                                                                  #            A THRUSTING MANEUVER.
024018,000109: 
024019,000110:                                                                                                  #       (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
024020,000111: 
024021,000112:                                                                                                  #                P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
024022,000113: 
024023,000114:                                                                                                  #                P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
024024,000115: 
024025,000116:                                                                                                  #  INPUT
024026,000117: 
024027,000118:                                                                                                  #        (1) TCSI     TIME OF THE CSI MANEUVER
024028,000119:                                                                                                  #        (2) NN       NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
024029,000120:                                                                                                  #                     VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
024030,000121:                                                                                                  #                     MANEUVER POINT
024031,000122:                                                                                                  #        (3) ELEV     DESIRED LOS ANGLE AT TPI
024032,000123:                                                                                                  #        (4) TTPI     TIME OF THE TPI MANEUVER
024033,000124:                                                                                                  #  OUTPUT
024034,000125: 
024035,000126:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
024036,000127:                                                                                                  #        (2) TTOGO    TIME TO GO
024037,000128:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
024038,000129:                                                                                                  #        (4) DIFFALT  DELTA ALTITUDE AT CDH
024039,000130:                                                                                                  #        (5) T1TOT2   DELTA TIME FROM CSI TO CDH
024040,000131:                                                                                                  #        (6) T2TOT3   DELTA TIME FROM CDH TO TPI
024041,000132:                                                                                                  #        (7) DELVLVC  DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
024042,000133:                                                                                                  #        (8) DELVLVC  DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
024043,000134: 
024044,000135:                                                                                                  #  DOWNLINK
024045,000136: 
024046,000137:                                                                                                  #        (1) TCSI     TIME OF THE CSI MANEUVER
024047,000138:                                                                                                  #        (2) TCDH     TIME OF THE CDH MANEUVER
024048,000139:                                                                                                  #        (3) TTPI     TIME OF THE TPI MANEUVER
024049,000140:                                                                                                  #        (4) TIG      TIME OF THE CSI MANEUVER
024050,000141:                                                                                                  #        (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
024051,000142:                                                                                                  #        (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
024052,000143:                                                                                                  #        (7) DIFFALT  DELTA ALTITUDE AT CDH
024053,000144:                                                                                                  #        (8) NN       NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
024054,000145:                                                                                                  #                     VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
024055,000146:                                                                                                  #                     MANEUVER POINT
024056,000147:                                                                                                  #        (9) ELEV     DESIRED LOS ANGLE AT TPI
024057,000148: 
024058,000149:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
024059,000150: 
024060,000151:                                                                                                  #        (1) TIG      TIME OF THE CSI MANEUVER
024061,000152:                                                                                                  #        (2) RTIG     POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
024062,000153:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
024063,000154:                                                                                                  #        (3) VTIG     VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
024064,000155:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
024065,000156:                                                                                                  #        (4) DELVSIN  DELTA VELOCITY AT CSI - REFERENCE COORDINATES
024066,000157:                                                                                                  #        (5) DELVSAB  MAGNITUDE OF DELTA VELOCITY AT CSI
024067,000158:                                                                                                  #        (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
024068,000159: 
024069,000160:                                                                                                  #  SUBROUTINES USED
024070,000161: 
024071,000162:                                                                                                  #        AVFLAGA
024072,000163:                                                                                                  #        AVFLAGP
024073,000164:                                                                                                  #        P20FLGON
024074,000165:                                                                                                  #        VARALARM
024075,000166:                                                                                                  #        BANKCALL
024076,000167:                                                                                                  #        GOFLASH
024077,000168:                                                                                                  #        GOTOPOOH
024078,000169:                                                                                                  #        VNPOOH
024079,000170:                                                                                                  #        GOFLASHR
024080,000171:                                                                                                  #        BLANKET
024081,000172:                                                                                                  #        ENDOFJOB
024082,000173:                                                                                                  #        SELECTMU
024083,000174:                                                                                                  #        ADVANCE
024084,000175:                                                                                                  #        INTINT
024085,000176:                                                                                                  #        PASSIVE
024086,000177:                                                                                                  #        CSI/A
024087,000178:                                                                                                  #        S32/33.1
024088,000179:                                                                                                  #        DISDVLVC
024089,000180:                                                                                                  #        VN1645
024090,000181: 
024091,000182: 35,2120                                           BANK     35                                    
024092,000183: 35,2000                                           SETLOC   CSI/CDH                               
024093,000184: 35,2000                                           BANK                                           
024094,000185: 35,2120  E7,1455                                  EBANK=   SUBEXIT                               
024095,000186: 35,2120                                           COUNT*   $$/P3272                              
024096,000187: 35,2120           02405        P32                TC       AVFLAGA                               
024097,000188: 35,2121           02143                           TC       P32/P72A                              
024098,000189: 35,2122           02412        P72                TC       AVFLAGP                               
024099,000190: 35,2123           02143                           TC       P32/P72A                              
024100,000191: 35,2124           77734        ALMXITA            SXA,2                                          
024101,000192: 35,2125           03600                                    CSIALRM                               
024102,000193: 35,2126           43140        ALMXIT             LXC,1    BOFF                                  
024103,000194: 35,2127           03600                                    CSIALRM                               
024104,000195: 35,2130           03346                                    LTCPFLG                               
024105,000196: 35,2131           64271                                    P10ALARM                              
024106,000197: 35,2132           77533                           SLOAD*   EXIT                                  
024107,000198: 35,2133           32456                                    ALARM/TB   -1,1                       
024108,000199: 35,2134           30154                           CA       MPAC                                  
024109,000200: 35,2135           05736                           TC       VARALARM                              
024110,000201: 35,2136           35056                           CAF      V05N09                                
024111,000202: 35,2137           04655                           TC       BANKCALL                              
024112,000203: 35,2140           20406                           CADR     GOFLASH                               
024113,000204: 35,2141           04106                           TC       GOTOPOOH                              
024114,000205: 35,2142           02136                           TC       -4                                    
024115,000206: 35,2143           32452        P32/P72A           CAF      P30ZERO                               
024116,000207: 35,2144           55454                           TS       NN         +1                         
024117,000208: 35,2145           32443                           CAF      V06N30                                #  TCSI
024118,000209: 35,2146           03614                           TC       VNPOOH                                
024119,000210: 35,2147           33626                           CAF      V06N55                                #  NN, ELEV(RGLOS)
024120,000211: 35,2150           04655                           TC       BANKCALL                              
024121,000212: 35,2151           20544                           CADR     GOFLASHR                              
024122,000213: 35,2152           04106                           TC       GOTOPOOH                              
024123,000214: 35,2153           02160                           TC       +5                                    
024124,000215: 35,2154           02147                           TC       -5                                    
024125,000216: 35,2155           35024                           CAF      BIT3                                  
024126,000217: 35,2156           05553                           TC       BLANKET                               
024127,000218: 35,2157           05225                           TC       ENDOFJOB                              
024128,000219: 35,2160           33625                           CAF      V06N37                                #  TTPI
024129,000220: 35,2161           03614                           TC       VNPOOH                                
024130,000221: 35,2162           06014                           TC       INTPRET                               
024131,000222: 35,2163           77745                           DLOAD                                          
024132,000223: 35,2164           03621                                    TCSI                                  
024133,000224: 35,2165           37425                           STCALL   TIG                                   
024134,000225: 35,2166           20045                                    SELECTMU                              
024135,000226: 35,2167           45014        P32/P72B           SET      CALL                                  
024136,000227: 35,2170           03066                                    LTCPFLG                               
024137,000228: 35,2171           71001                                    ADVANCE                               
024138,000229: 35,2172           77201                           SETPD    VLOAD                                 
024139,000230: 35,2173           00001                                    0D                                    
024140,000231: 35,2174           03473                                    VPASS1                                
024141,000232: 35,2175           65315                           PDVL     PDDL                                  
024142,000233: 35,2176           03465                                    RPASS1                                
024143,000234: 35,2177           03621                                    TCSI                                  
024144,000235: 35,2200           65325                           PDDL     PDDL                                  
024145,000236: 35,2201           03623                                    TTPI                                  
024146,000237: 35,2202           33634                                    TWOPI                                 
024147,000238: 35,2203           45006                           PUSH     CALL                                  
024148,000239: 35,2204           73406                                    INTINT                                
024149,000240: 35,2205           77624                           CALL                                           
024150,000241: 35,2206           46202                                    PASSIVE                               
024151,000242: 35,2207           77624                           CALL                                           
024152,000243: 35,2210           70077                                    CSI/A                                 
024153,000244: 35,2211           43014        P32/P72C           BON      SET                                   
024154,000245: 35,2212           01311                                    FINALFLG                              
024155,000246: 35,2213           72215                                    P32/P72D                              
024156,000247: 35,2214           00470                                    UPDATFLG                              
024157,000248: 35,2215           77745        P32/P72D           DLOAD                                          
024158,000249: 35,2216           02261                                    T1TOT2                                
024159,000250: 35,2217           02261        P32/P72E           STORE    T1TOT2                                
024160,000251: 35,2220           51025                           DSU      BPL                                   
024161,000252: 35,2221           32455                                    60MIN                                 
024162,000253: 35,2222           72217                                    P32/P72E                              
024163,000254: 35,2223           77745                           DLOAD                                          
024164,000255: 35,2224           02263                                    T2TOT3                                
024165,000256: 35,2225           02263        P32/P72F           STORE    T2TOT3                                
024166,000257: 35,2226           51025                           DSU      BPL                                   
024167,000258: 35,2227           32455                                    60MIN                                 
024168,000259: 35,2230           72225                                    P32/P72F                              
024169,000260: 35,2231           77776                           EXIT                                           
024170,000261: 35,2232           32445                           CAF      V06N50                                
024171,000262: 35,2233           03614                           TC       VNPOOH                                
024172,000263: 35,2234           06014                           TC       INTPRET                               
024173,000264: 35,2235           45175                           VLOAD    CALL                                  
024174,000265: 35,2236           02303                                    DELVEET1                              
024175,000266: 35,2237           71063                                    S32/33.1                              
024176,000267: 35,2240           26303                           STOVL    DELVEET1                              
024177,000268: 35,2241           02325                                    RACT2                                 
024178,000269: 35,2242           26317                           STOVL    RACT1                                 
024179,000270: 35,2243           02311                                    DELVEET2                              
024180,000271: 35,2244           45170                           AXT,1    CALL                                  
024181,000272: 35,2245           01522                           VN       0682                                  
024182,000273: 35,2246           72423                                    DISDVLVC                              
024183,000274: 35,2247           77745                           DLOAD                                          
024184,000275: 35,2250           03623                                    TTPI                                  
024185,000276: 35,2251           37625                           STCALL   TTPI0                                 
024186,000277: 35,2252           73505                                    VN1645                                
024187,000278: 35,2253           77650                           GOTO                                           
024188,000279: 35,2254           72167                                    P32/P72B                              
024189,000280: 
024190,000281:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
024191,000282: 
024192,000283:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
024193,000284:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
024194,000285:                                                                                                  #  PURPOSE
024195,000286: 
024196,000287:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
024197,000288:                                                                                                  #            ALTITUDE MANEUVER (CDH).
024198,000289: 
024199,000290:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
024200,000291:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
024201,000292: 
024202,000293:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
024203,000294:                                                                                                  #            ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
024204,000295:                                                                                                  #            ASTRONAUT/GROUND.
024205,000296: 
024206,000297:                                                                                                  #        (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
024207,000298:                                                                                                  #            THRUSTING PROGRAM.
024208,000299: 
024209,000300:                                                                                                  #  ASSUMPTIONS
024210,000301: 
024211,000302:                                                                                                  #        (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
024212,000303:                                                                                                  #            CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
024213,000304:                                                                                                  #            THERFORE -
024214,000305: 
024215,000306:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
024216,000307:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
024217,000308:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
024218,000309:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
024219,000310: 
024220,000311:                                                                                                  #            (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
024221,000312:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
024222,000313: 
024223,000314:                                                                                                  #            (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
024224,000315:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
024225,000316: 
024226,000317:                                                                                                  #            (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
024227,000318:                                                                                                  #                ORBITS WAS MINMIZED.
024228,000319: 
024229,000320:                                                                                                  #            (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
024230,000321:                                                                                                  #                IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
024231,000322: 
024232,000323:                                                                                                  #                POSITION AT CSI IGNITION.
024233,000324: 
024234,000325:                                                                                                  #            (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
024235,000326:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
024236,000327:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
024237,000328: 
024238,000329:                                                                                                  #            (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
024239,000330:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
024240,000331:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
024241,000332:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
024242,000333: 
024243,000334:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
024244,000335:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
024245,000336: 
024246,000337:                                                                                                  #        (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
024247,000338:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
024248,000339:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
024249,000340:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
024250,000341: 
024251,000342:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
024252,000343:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
024253,000344:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
024254,000345:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
024255,000346:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
024256,000347:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
024257,000348:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
024258,000349:                                                                                                  #            THRUSTING MANEUVER.
024259,000350: 
024260,000351:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
024261,000352: 
024262,000353:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
024263,000354: 
024264,000355:                                                                                                  #                ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
024265,000356:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
024266,000357:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
024267,000358:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
024268,000359: 
024269,000360:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
024270,000361:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
024271,000362:                                                                                                  #                CYCLE.
024272,000363: 
024273,000364:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
024274,000365:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
024275,000366:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
024276,000367:                                                                                                  #                PROGRAM.
024277,000368: 
024278,000369:                                                                                                  #        (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
024279,000370:                                                                                                  #            A THRUSTING MANEUVER.
024280,000371: 
024281,000372:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
024282,000373: 
024283,000374:                                                                                                  #                P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
024284,000375: 
024285,000376:                                                                                                  #                P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
024286,000377: 
024287,000378:                                                                                                  #  INPUT
024288,000379: 
024289,000380:                                                                                                  #        (1) TTPI0    TIME OF THE TPI MANEUVER - SAVED FROM P32/P72
024290,000381:                                                                                                  #        (2) ELEV     DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
024291,000382:                                                                                                  #        (3) TCDH     TIME OF THE CDH MANEUVER
024292,000383: 
024293,000384:                                                                                                  #  OUTPUT
024294,000385: 
024295,000386:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
024296,000387:                                                                                                  #        (2) TTOGO    TIME TO GO
024297,000388:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
024298,000389:                                                                                                  #        (4) DIFFALT  DELTA ALTITUDE AT CDH
024299,000390:                                                                                                  #        (5) T2TOT3   DELTA TIME FROM CDH TO COMPUTED TPI
024300,000391:                                                                                                  #        (6) NOMTPI   DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
024301,000392:                                                                                                  #        (7) DELVLVC  DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
024302,000393: 
024303,000394:                                                                                                  #  DOWNLINK
024304,000395: 
024305,000396:                                                                                                  #        (1) TCDH     TIME OF THE CDH MANEUVER
024306,000397:                                                                                                  #        (2) TTPI     TIME OF THE TPI MANEUVER
024307,000398:                                                                                                  #        (3) TIG      TIME OF THE CDH MANEUVER
024308,000399:                                                                                                  #        (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
024309,000400:                                                                                                  #        (5) DIFFALT  DELTA ALTITUDE AT CDH
024310,000401:                                                                                                  #        (6) ELEV     DESIRED LOS ANGLE AT TPI
024311,000402:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
024312,000403: 
024313,000404:                                                                                                  #        (1) TIG      TIME OF THE CDH MANEUVER
024314,000405:                                                                                                  #        (2) RTIG     POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
024315,000406:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
024316,000407:                                                                                                  #        (3) VTIG     VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
024317,000408:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
024318,000409:                                                                                                  #        (4) DELVSIN  DELTA VELOCITY AT CDH - REFERENCE COORDINATES
024319,000410:                                                                                                  #        (5) DELVSAB  MAGNITUDE OF DELTA VELOCITY AT CDH
024320,000411:                                                                                                  #        (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
024321,000412: 
024322,000413:                                                                                                  #  SUBROUTINES USED
024323,000414: 
024324,000415:                                                                                                  #        AVFLAGA
024325,000416:                                                                                                  #        AVFLAGP
024326,000417:                                                                                                  #        P20FLGON
024327,000418:                                                                                                  #        VNPOOH
024328,000419:                                                                                                  #        SELECTMU
024329,000420:                                                                                                  #        ADVANCE
024330,000421:                                                                                                  #        CDHMVR
024331,000422:                                                                                                  #        INTINT3P
024332,000423:                                                                                                  #        ACTIVE
024333,000424:                                                                                                  #        PASSIVE
024334,000425:                                                                                                  #        S33/34.1
024335,000426:                                                                                                  #        ALARM
024336,000427:                                                                                                  #        BANKCALL
024337,000428:                                                                                                  #        GOFLASH
024338,000429:                                                                                                  #        GOTOPOOH
024339,000430:                                                                                                  #        S32/33.1
024340,000431:                                                                                                  #        VN1645
024341,000432: 
024342,000433: 35,2255                                           COUNT*   $$/P3373                              
024343,000434: 35,2255           02405        P33                TC       AVFLAGA                               
024344,000435: 35,2256           02260                           TC       P33/P73A                              
024345,000436: 35,2257           02412        P73                TC       AVFLAGP                               
024346,000437: 35,2260           32444        P33/P73A           CAF      V06N31                                #  TCDH
024347,000438: 35,2261           03614                           TC       VNPOOH                                
024348,000439: 35,2262           06014                           TC       INTPRET                               
024349,000440: 35,2263           77745                           DLOAD                                          
024350,000441: 35,2264           03625                                    TTPI0                                 
024351,000442: 35,2265           17623                           STODL    TTPI                                  
024352,000443: 35,2266           03371                                    TCDH                                  
024353,000444: 35,2267           37425                           STCALL   TIG                                   
024354,000445: 35,2270           20045                                    SELECTMU                              
024355,000446: 35,2271           77624        P33/P73B           CALL                                           
024356,000447: 35,2272           71001                                    ADVANCE                               
024357,000448: 35,2273           77624                           CALL                                           
024358,000449: 35,2274           71116                                    CDHMVR                                
024359,000450: 35,2275           77201                           SETPD    VLOAD                                 
024360,000451: 35,2276           00001                                    0D                                    
024361,000452: 35,2277           03531                                    VACT3                                 
024362,000453: 35,2300           45115                           PDVL     CALL                                  
024363,000454: 35,2301           02325                                    RACT2                                 
024364,000455: 35,2302           71054                                    INTINT3P                              
024365,000456: 35,2303           77624                           CALL                                           
024366,000457: 35,2304           46172                                    ACTIVE                                
024367,000458: 35,2305           77201                           SETPD    VLOAD                                 
024368,000459: 35,2306           00001                                    0D                                    
024369,000460: 35,2307           03515                                    VPASS2                                
024370,000461: 35,2310           45115                           PDVL     CALL                                  
024371,000462: 35,2311           03507                                    RPASS2                                
024372,000463: 35,2312           71054                                    INTINT3P                              
024373,000464: 35,2313           77624                           CALL                                           
024374,000465: 35,2314           46202                                    PASSIVE                               
024375,000466: 35,2315           43145                           DLOAD    SET                                   
024376,000467: 35,2316           32453                                    P30ZERO                               
024377,000468: 35,2317           03460                                    ITSWICH                               
024378,000469: 35,2320           36335                           STCALL   NOMTPI                                
024379,000470: 35,2321           72721                                    S33/34.1                              
024380,000471: 35,2322           77454                           BZE      EXIT                                  
024381,000472: 35,2323           72340                                    P33/P73C                              
024382,000473: 35,2324           05646                           TC       ALARM                                 
024383,000474: 35,2325           00611                           OCT      611                                   
024384,000475: 35,2326           35056                           CAF      V05N09                                
024385,000476: 35,2327           04655                           TC       BANKCALL                              
024386,000477: 35,2330           20406                           CADR     GOFLASH                               
024387,000478: 35,2331           04106                           TC       GOTOPOOH                              
024388,000479: 35,2332           02334                           TC       +2                                    
024389,000480: 35,2333           02260                           TC       P33/P73A                              
024390,000481: 35,2334           06014                           TC       INTPRET                               
024391,000482: 35,2335           77745                           DLOAD                                          
024392,000483: 35,2336           32453                                    P30ZERO                               
024393,000484: 35,2337           02335                           STORE    NOMTPI                                
024394,000485: 35,2340           43014        P33/P73C           BON      SET                                   
024395,000486: 35,2341           01311                                    FINALFLG                              
024396,000487: 35,2342           72344                                    P33/P73D                              
024397,000488: 35,2343           00470                                    UPDATFLG                              
024398,000489: 35,2344           43345        P33/P73D           DLOAD    DAD                                   
024399,000490: 35,2345           02335                                    NOMTPI                                
024400,000491: 35,2346           03623                                    TTPI                                  
024401,000492: 35,2347           03623                           STORE    TTPI                                  
024402,000493: 35,2350           77625                           DSU                                            
024403,000494: 35,2351           03371                                    TCDH                                  
024404,000495: 35,2352           51025        P33/P73E           DSU      BPL                                   
024405,000496: 35,2353           32455                                    60MIN                                 
024406,000497: 35,2354           72352                                    P33/P73E                              
024407,000498: 35,2355           77615                           DAD                                            
024408,000499: 35,2356           32455                                    60MIN                                 
024409,000500: 35,2357           16261                           STODL    T1TOT2                                
024410,000501: 35,2360           03623                                    TTPI                                  
024411,000502: 35,2361           41425                           DSU      PUSH                                  
024412,000503: 35,2362           03625                                    TTPI0                                 
024413,000504: 35,2363           45246        P33/P73F           ABS      DSU                                   
024414,000505: 35,2364           32455                                    60MIN                                 
024415,000506: 35,2365           43244                           BPL      DAD                                   
024416,000507: 35,2366           72363                                    P33/P73F                              
024417,000508: 35,2367           32455                                    60MIN                                 
024418,000509: 35,2370           45565                           SIGN     STADR                                 
024419,000510: 35,2371           75514                           STORE    T2TOT3                                
024420,000511: 35,2372           77776                           EXIT                                           
024421,000512: 35,2373           32445                           CAF      V06N50                                
024422,000513: 35,2374           03614                           TC       VNPOOH                                
024423,000514: 35,2375           06014                           TC       INTPRET                               
024424,000515: 35,2376           45175                           VLOAD    CALL                                  
024425,000516: 35,2377           02311                                    DELVEET2                              
024426,000517: 35,2400           71063                                    S32/33.1                              
024427,000518: 35,2401           36311                           STCALL   DELVEET2                              
024428,000519: 35,2402           73505                                    VN1645                                
024429,000520: 35,2403           77650                           GOTO                                           
024430,000521: 35,2404           72271                                    P33/P73B                              
024431,000522: 
024432,000523:                                                                                                  #  ..... AVFLAGA/P .....
024433,000524: 
024434,000525:                                                                                                  #  SUBROUTINES USED
024435,000526: 
024436,000527:                                                                                                  #           UPFLAG
024437,000528:                                                                                                  #           DOWNFLAG
024438,000529: 
024439,000530: 35,2405           00006        AVFLAGA            EXTEND                                         #  AVFLAG = LEM
024440,000531: 35,2406           23455                           QXCH     SUBEXIT                               
024441,000532: 35,2407           05563                           TC       UPFLAG                                
024442,000533: 35,2410           00050                           ADRES    AVFLAG                                
024443,000534: 35,2411           02416                           TC       P20FLGON                              
024444,000535: 35,2412           00006        AVFLAGP            EXTEND                                         #  AVFLAG = CSM
024445,000536: 35,2413           23455                           QXCH     SUBEXIT                               
024446,000537: 35,2414           05575                           TC       DOWNFLAG                              
024447,000538: 35,2415           00050                           ADRES    AVFLAG                                
024448,000539: 35,2416           05563        P20FLGON           TC       UPFLAG                                
024449,000540: 35,2417           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG
024450,000541: 35,2420           05563                           TC       UPFLAG                                
024451,000542: 35,2421           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG
024452,000543: 35,2422           01455                           TC       SUBEXIT                               
024453,000544: 
024454,000545:                                                                                                  #  ..... DISDVLVC .....
024455,000546: 
024456,000547:                                                                                                  #  SUBROUTINES USED
024457,000548: 
024458,000549:                                                                                                  #        S32/33.X
024459,000550:                                                                                                  #         VNPOOH
024460,000551: 
024461,000552: 35,2423           02267        DISDVLVC           STORE    DELVLVC                               
024462,000553: 35,2424           45020                           STQ      CALL                                  
024463,000554: 35,2425           03450                                    NORMEX                                
024464,000555: 35,2426           71103                                    S32/33.X                              
024465,000556: 35,2427           64375                           VLOAD    MXV                                   
024466,000557: 35,2430           02267                                    DELVLVC                               
024467,000558: 35,2431           00001                                    0D                                    
024468,000559: 35,2432           66172                           VSL1     SXA,1                                 
024469,000560: 35,2433           03602                                    VERBNOUN                              
024470,000561: 35,2434           02267                           STORE    DELVLVC                               
024471,000562: 35,2435           77776                           EXIT                                           
024472,000563: 35,2436           31602                           CA       VERBNOUN                              
024473,000564: 35,2437           03614                           TC       VNPOOH                                
024474,000565: 35,2440           06014                           TC       INTPRET                               
024475,000566: 35,2441           77650                           GOTO                                           
024476,000567: 35,2442           03450                                    NORMEX                                
024477,000568: 
024478,000569:                                                                                                  #  ..... CONSTANTS .....
024479,000570: 
024480,000571: 35,2443           01436        V06N30             VN       0630                                  
024481,000572: 35,2444           01437        V06N31             VN       0631                                  
024482,000573: 35,2445           01462        V06N50             VN       0650                                  
024483,000574: 35,2446           77776 62460  SN359+             2DEC     -.000086601                            
024484,000575: 
024485,000576: 35,2450           17777 37776  CS359+             2DEC     +.499999992                            
024486,000577: 
024487,000578: 35,2452           00000 00000  P30ZERO            2DEC     0          B-28                       
024488,000579: 
024489,000580: 35,2454           00025 37100  60MIN              2DEC     360000     B-28                       
024490,000581: 
024491,000582: 35,2456           00600        ALARM/TB           OCT      00600                                 #  NO 1
024492,000583: 35,2457           00601                           OCT      00601                                 #     2
024493,000584: 35,2460           00602                           OCT      00602                                 #     3
024494,000585: 35,2461           00603                           OCT      00603                                 #     4
024495,000586: 35,2462           00604                           OCT      00604                                 #     5
024496,000587: 35,2463           00605                           OCT      00605                                 #     6
024497,000588: 35,2464           00606                           OCT      00606                                 #     7
024498,000589: 
024499,000590:                                                                                                  #  ..... CSI/A     .....
024500,000591: 
024501,000592:                                                                                                  #  SUBROUTINES USED
024502,000593: 
024503,000594:                                                                                                  #        VECSHIFT
024504,000595:                                                                                                  #        TIMETHET
024505,000596:                                                                                                  #        PERIAPO
024506,000597:                                                                                                  #        SHIFTR1
024507,000598:                                                                                                  #        INTINT2C
024508,000599:                                                                                                  #        CDHMVR
024509,000600:                                                                                                  #        PERIAPO1
024510,000601:                                                                                                  #        INTINT
024511,000602:                                                                                                  #        ACTIVE
024512,000603: 
024513,000604: 34,2043                                           BANK     34                                    
024514,000605: 34,2000                                           SETLOC   CSI/CDH1                              
024515,000606: 34,2000                                           BANK                                           
024516,000607: 34,2043  E7,1455                                  EBANK=   SUBEXIT                               
024517,000608: 34,2043                                           COUNT*   $$/CSI                                
024518,000609: 34,2043           00000 00020  LOOPMX             2DEC     16         B-28                       
024519,000610: 
024520,000611: 34,2045           00003 34661  INITST             2DEC     .03048     B-7                        #       INITIAL DELDV = 10 FPS
024521,000612: 
024522,000613: 34,2047           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #       MAXIMUM DV1 = 1000 FPS
024523,000614: 
024524,000615: 34,2051           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                      989 FPS
024525,000616: 
024526,000617: 34,2053           10000 00000  1DPB2              2DEC     1.0        B-2                        
024527,000618: 
024528,000619: 34,2055           00000 00001  1DPB28             2DEC     1          B-28                       
024529,000620: 
024530,000621: 34,2057           00004 31651  PMINE              2DEC     157521     B-29                       #  85 NM    - MUST BE 8 WORDS BEFORE PMINM
024531,000622: 
024532,000623: 34,2061           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #       .1 FPS
024533,000624: 
024534,000625: 34,2063           00000 00500  NICKELDP           2DEC     .0001524   B-7                        #  .05 FPS
024535,000626: 
024536,000627: 34,2065           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #       50 FPS
024537,000628: 
024538,000629: 34,2067           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE
024539,000630: 
024540,000631: 34,2071           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #       200 FPS
024541,000632: 
024542,000633: 34,2073           00000 06433  ONETHTH            2DEC     .0001      B-3                        
024543,000634: 
024544,000635: 34,2075           00003 25140  TMIN               2DEC     60000      B-28                       #  10 MIN
024545,000636: 
024546,000637: 34,2077           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
024547,000638: 34,2100           03260                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
024548,000639: 34,2101           03061                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR
024549,000640: 34,2102           43014                           CLEAR    SET                                   
024550,000641: 34,2103           03262                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
024551,000642: 34,2104           03063                                    S32.1F3B                              #  10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
024552,000643: 34,2105           77745                           DLOAD                                          
024553,000644: 34,2106           32453                                    P30ZERO                               
024554,000645: 34,2107           03575                           STORE    LOOPCT                                
024555,000646: 34,2110           03601                           STORE    CSIALRM                               
024556,000647: 34,2111           77201        CSI/B              SETPD    VLOAD                                 
024557,000648: 34,2112           00001                                    0D                                    
024558,000649: 34,2113           02317                                    RACT1                                 
024559,000650: 34,2114           41446                           ABVAL    PUSH                                  #  RA1                            B29 PL02D
024560,000651: 34,2115           70501                           NORM     SR1                                   
024561,000652: 34,2116           00050                                    X2                                    #                          B29-N2+ B1 PL04D
024562,000653: 34,2117           51515                           PDVL     ABVAL                                 
024563,000654: 34,2120           03537                                    RPASS3                                
024564,000655: 34,2121           55301                           NORM     BDDV                                  #  RA1/RP3                         B1 PL02D
024565,000656: 34,2122           00047                                    X1                                    
024566,000657: 34,2123           53664                           XSU,2    SR*                                   #                                  B2
024567,000658: 34,2124           00046                                    X1                                    
024568,000659: 34,2125           57175                                    1,2                                   
024569,000660: 34,2126           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1        B29+B2=B31 PL00D
024570,000661: 34,2127           30054                                    1DPB2                                 
024571,000662: 34,2130           65301                           NORM     PDDL                                  #                                     PL02D
024572,000663: 34,2131           00047                                    X1                                    
024573,000664: 34,2132           02337                                    RTMU                                  
024574,000665: 34,2133           56342                           SR1      DDV                                   #                         B38-B31= B7 PL00D
024575,000666: 34,2134           75457                           SL*      SQRT                                  #                                  B7
024576,000667: 34,2135           20172                                    0          -7,1                       
024577,000668: 34,2136           53515                           PDVL     UNIT                                  #                                     PL02D
024578,000669: 34,2137           02317                                    RACT1                                 
024579,000670: 34,2140           47315                           PDVL     VXV                                   
024580,000671: 34,2141           02275                                    UP1                                   
024581,000672: 34,2142           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
024582,000673: 34,2143           72441                           DOT      SL1                                   #  VA1 . UH1                       B7
024583,000674: 34,2144           03457                                    VACT1                                 
024584,000675: 34,2145           45421                           BDSU     STADR                                 #                                     PL00D
024585,000676: 34,2146           60216                           STODL    DELVCSI                               
024586,000677: 34,2147           30046                                    INITST                                #  10 FPS
024587,000678: 34,2150           03565                           STORE    DELDV                                 
024588,000679: 34,2151           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
024589,000680: 34,2152           03575                                    LOOPCT                                
024590,000681: 34,2153           30056                                    1DPB28                                
024591,000682: 34,2154           03575                           STORE    LOOPCT                                
024592,000683: 34,2155           77025                           DSU      AXT,2                                 
024593,000684: 34,2156           30044                                    LOOPMX                                
024594,000685: 34,2157           00006                                    6                                     
024595,000686: 34,2160           77644                           BPL                                            
024596,000687: 34,2161           70755                                    SCNDSOL                               
024597,000688: 34,2162           77601        CSI/B2             SETPD                                          
024598,000689: 34,2163           00001                                    0D                                    
024599,000690: 34,2164           51545                           DLOAD    ABS                                   
024600,000691: 34,2165           03561                                    DELVCSI                               
024601,000692: 34,2166           50025                           DSU      BMN                                   
024602,000693: 34,2167           30050                                    DVMAX1                                
024603,000694: 34,2170           70210                                    CSI/B23                               
024604,000695: 34,2171           43174                           AXT,2    BON                                   
024605,000696: 34,2172           00007                                    7                                     
024606,000697: 34,2173           03300                                    S32.1F1                               
024607,000698: 34,2174           70755                                    SCNDSOL                               
024608,000699: 34,2175           43014                           BOFF     BON                                   
024609,000700: 34,2176           03342                                    S32.1F3A                              
024610,000701: 34,2177           70202                                    CSI/B22                               #  FLAG 3 NEQ 3
024611,000702: 34,2200           03303                                    S32.1F3B                              
024612,000703: 34,2201           70755                                    SCNDSOL                               
024613,000704: 34,2202           71214        CSI/B22            SET      DLOAD                                 
024614,000705: 34,2203           03060                                    S32.1F1                               
024615,000706: 34,2204           30052                                    DVMAX2                                
024616,000707: 34,2205           77765                           SIGN                                           
024617,000708: 34,2206           03561                                    DELVCSI                               
024618,000709: 34,2207           03561                           STORE    DELVCSI                               
024619,000710: 34,2210           41575        CSI/B23            VLOAD    PUSH                                  
024620,000711: 34,2211           02317                                    RACT1                                 
024621,000712: 34,2212           63256                           UNIT     PDVL                                  
024622,000713: 34,2213           02275                                    UP1                                   
024623,000714: 34,2214           53435                           VXV      UNIT                                  #  UNIT(URP1 X UVP1 X URA1) = UH1
024624,000715: 34,2215           76561                           VXSC     VSL1                                  
024625,000716: 34,2216           03561                                    DELVCSI                               
024626,000717: 34,2217           02303                           STORE    DELVEET1                              
024627,000718: 34,2220           40055                           VAD      BOV                                   
024628,000719: 34,2221           03457                                    VACT1                                 
024629,000720: 34,2222           70223                                    CSI/B23D                              
024630,000721: 34,2223           37553        CSI/B23D           STCALL   VACT4                                 
024631,000722: 34,2224           46206                                    VECSHIFT                              
024632,000723: 34,2225           26744                           STOVL    VVEC                                  
024633,000724: 34,2226           77614                           SET                                            
024634,000725: 34,2227           03466                                    RVSW                                  
024635,000726: 34,2230           26655                           STOVL    RVEC                                  
024636,000727: 34,2231           32447                                    SN359+                                
024637,000728: 34,2232           36730                           STCALL   SNTH                                  #  ALSO CSTH
024638,000729: 34,2233           24732                                    TIMETHET                              
024639,000730: 34,2234           72142                           SR1      LXA,1                                 
024640,000731: 34,2235           02332                                    RTX1                                  
024641,000732: 34,2236           37573                           STCALL   HAFPA1                                
024642,000733: 34,2237           46116                                    PERIAPO                               
024643,000734: 34,2240           77624                           CALL                                           
024644,000735: 34,2241           46216                                    SHIFTR1                               
024645,000736: 34,2242           17571                           STODL    POSTCSI                               
024646,000737: 34,2243           02752                                    ECC                                   
024647,000738: 34,2244           50025                           DSU      BMN                                   
024648,000739: 34,2245           30074                                    ONETHTH                               
024649,000740: 34,2246           70351                                    CIRCL                                 
024650,000741: 34,2247           45145                           DLOAD    CALL                                  
024651,000742: 34,2250           00041                                    R1                                    
024652,000743: 34,2251           46216                                    SHIFTR1                               
024653,000744: 34,2252           60201                           SETPD    NORM                                  
024654,000745: 34,2253           00003                                    2D                                    
024655,000746: 34,2254           00047                                    X1                                    
024656,000747: 34,2255           50315                           PDVL     DOT                                   #                                     PL04D
024657,000748: 34,2256           02317                                    RACT1                                 
024658,000749: 34,2257           03553                                    VACT4                                 
024659,000750: 34,2260           56246                           ABS      DDV                                   
024660,000751: 34,2261           00003                                    02D                                   #  (/RDOTV/)/R1           B36-B29= B7
024661,000752: 34,2262           45257                           SL*      DSU                                   
024662,000753: 34,2263           20201                                    0,1                                   
024663,000754: 34,2264           30064                                    NICKELDP                              
024664,000755: 34,2265           71240                           BMN      DLOAD                                 
024665,000756: 34,2266           70351                                    CIRCL                                 
024666,000757: 34,2267           02740                                    P                                     
024667,000758: 34,2270           45312                           SL2      DSU                                   
024668,000759: 34,2271           30054                                    1DPB2                                 
024669,000760: 34,2272           14017                           STODL    14D                                   
024670,000761: 34,2273           02335                                    RTSR1/MU                              
024671,000762: 34,2274           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1      B-16-B29 = B-45 PL02D
024672,000763: 34,2275           41325                           PDDL     DMP                                   
024673,000764: 34,2276           02740                                    P                                     
024674,000765: 34,2277           00041                                    R1                                    
024675,000766: 34,2300           77624                           CALL                                           
024676,000767: 34,2301           46216                                    SHIFTR1                               
024677,000768: 34,2302           72412                           SL4      SL1                                   
024678,000769: 34,2303           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1    B14+B-45 = B-31 PL02D
024679,000770: 34,2304           52414                           BOFF     SL3                                   
024680,000771: 34,2305           04343                                    CMOONFLG                              
024681,000772: 34,2306           70307                                    CSI/B3                                
024682,000773: 34,2307           50315        CSI/B3             PDVL     DOT                                   
024683,000774: 34,2310           02317                                    RACT1                                 
024684,000775: 34,2311           03553                                    VACT4                                 
024685,000776: 34,2312           03604                           STORE    RDOTV                                 
024686,000777: 34,2313           77646                           ABS                                            
024687,000778: 34,2314           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1               PL02D
024688,000779: 34,2315           00050                                    X2                                    
024689,000780: 34,2316           53660                           XSU,1    SL*                                   #                   B-31+B36-B3 = B2
024690,000781: 34,2317           00047                                    X2                                    
024691,000782: 34,2320           20204                                    3,1                                   
024692,000783: 34,2321           14015                           STODL    12D                                   
024693,000784: 34,2322           32453                                    P30ZERO                               
024694,000785: 34,2323           00021                           STORE    16D                                   
024695,000786: 34,2324           53575                           VLOAD    UNIT                                  
024696,000787: 34,2325           00015                                    12D                                   
024697,000788: 34,2326           26730                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
024698,000789: 34,2327           02317                                    RACT1                                 
024699,000790: 34,2330           75315                           PDVL     SIGN                                  
024700,000791: 34,2331           03553                                    VACT4                                 
024701,000792: 34,2332           03604                                    RDOTV                                 
024702,000793: 34,2333           45076                           VCOMP    CALL                                  
024703,000794: 34,2334           46206                                    VECSHIFT                              
024704,000795: 34,2335           26744                           STOVL    VVEC                                  
024705,000796: 34,2336           77614                           SET                                            
024706,000797: 34,2337           03466                                    RVSW                                  
024707,000798: 34,2340           36655                           STCALL   RVEC                                  
024708,000799: 34,2341           24732                                    TIMETHET                              
024709,000800: 34,2342           51125                           PDDL     BPL                                   
024710,000801: 34,2343           03604                                    RDOTV                                 
024711,000802: 34,2344           70355                                    NTP/2                                 
024712,000803: 34,2345           45345                           DLOAD    DSU                                   
024713,000804: 34,2346           03573                                    HAFPA1                                
024714,000805: 34,2347           52006                           PUSH     GOTO                                  
024715,000806: 34,2350           70355                                    NTP/2                                 
024716,000807: 34,2351           71201        CIRCL              SETPD    DLOAD                                 
024717,000808: 34,2352           00001                                    00D                                   
024718,000809: 34,2353           32453                                    P30ZERO                               
024719,000810: 34,2354           77606                           PUSH                                           
024720,000811: 34,2355           41345        NTP/2              DLOAD    DMP                                   
024721,000812: 34,2356           03454                                    NN                                    
024722,000813: 34,2357           03573                                    HAFPA1                                
024723,000814: 34,2360           45261                           SL       DSU                                   
024724,000815: 34,2361           20217                                    14D                                   
024725,000816: 34,2362           77615                           DAD                                            
024726,000817: 34,2363           03621                                    TCSI                                  
024727,000818: 34,2364           03371                           STORE    TCDH                                  
024728,000819: 34,2365           77021                           BDSU     AXT,2                                 
024729,000820: 34,2366           03623                                    TTPI                                  
024730,000821: 34,2367           00005                                    5D                                    
024731,000822: 34,2370           40240                           BMN      SETPD                                 
024732,000823: 34,2371           70755                                    SCNDSOL                               
024733,000824: 34,2372           00001                                    0D                                    
024734,000825: 34,2373           63375                           VLOAD    PDVL                                  
024735,000826: 34,2374           03553                                    VACT4                                 
024736,000827: 34,2375           02317                                    RACT1                                 
024737,000828: 34,2376           77624                           CALL                                           
024738,000829: 34,2377           71045                                    INTINT2C                              
024739,000830: 34,2400           26325                           STOVL    RACT2                                 
024740,000831: 34,2401           00007                                    VATT                                  
024741,000832: 34,2402           27501                           STOVL    VACT2                                 
024742,000833: 34,2403           03473                                    VPASS1                                
024743,000834: 34,2404           63201                           SETPD    PDVL                                  
024744,000835: 34,2405           00001                                    0D                                    
024745,000836: 34,2406           03465                                    RPASS1                                
024746,000837: 34,2407           77624                           CALL                                           
024747,000838: 34,2410           71045                                    INTINT2C                              
024748,000839: 34,2411           27507                           STOVL    RPASS2                                
024749,000840: 34,2412           00007                                    VATT                                  
024750,000841: 34,2413           37515                           STCALL   VPASS2                                
024751,000842: 34,2414           71116                                    CDHMVR                                
024752,000843: 34,2415           40375                           VLOAD    SETPD                                 
024753,000844: 34,2416           02325                                    RACT2                                 
024754,000845: 34,2417           00001                                    0D                                    
024755,000846: 34,2420           45115                           PDVL     CALL                                  
024756,000847: 34,2421           03531                                    VACT3                                 
024757,000848: 34,2422           46106                                    PERIAPO1                              
024758,000849: 34,2423           77624                           CALL                                           
024759,000850: 34,2424           46216                                    SHIFTR1                               
024760,000851: 34,2425           27573                           STOVL    POSTCDH                               
024761,000852: 34,2426           03531                                    VACT3                                 
024762,000853: 34,2427           63201                           SETPD    PDVL                                  
024763,000854: 34,2430           00001                                    0D                                    
024764,000855: 34,2431           02325                                    RACT2                                 
024765,000856: 34,2432           65325                           PDDL     PDDL                                  
024766,000857: 34,2433           03371                                    TCDH                                  
024767,000858: 34,2434           03623                                    TTPI                                  
024768,000859: 34,2435           41525                           PDDL     PUSH                                  
024769,000860: 34,2436           33634                                    TWOPI                                 
024770,000861: 34,2437           77624                           CALL                                           
024771,000862: 34,2440           73406                                    INTINT                                
024772,000863: 34,2441           77624                           CALL                                           
024773,000864: 34,2442           46172                                    ACTIVE                                
024774,000865: 34,2443           77745                           DLOAD                                          
024775,000866: 34,2444           02265                                    ELEV                                  
024776,000867: 34,2445           73401                           SETPD    SINE                                  
024777,000868: 34,2446           00007                                    6D                                    
024778,000869: 34,2447           53515                           PDVL     UNIT                                  
024779,000870: 34,2450           03523                                    RACT3                                 
024780,000871: 34,2451           00001                           STORE    00D                                   #  URA3 AT 00D
024781,000872: 34,2452           47315                           PDVL     VXV                                   #  PL14D,PL08D
024782,000873: 34,2453           02275                                    UP1                                   
024783,000874: 34,2454           77656                           UNIT                                           
024784,000875: 34,2455           71525                           PDDL     COSINE                                #  UNIT(URA3XUVA3XURA3) = UH3      B1 PL14D
024785,000876: 34,2456           02265                                    ELEV                                  
024786,000877: 34,2457           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                   B2 PL08D
024787,000878: 34,2460           77754                           STORE    18D                                   #      PLUS
024788,000879: 34,2461           74345                           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U              B2 PL00D
024789,000880: 34,2462           76455                           VAD      VSL1                                  
024790,000881: 34,2463           00023                                    18D                                   #                                  B1
024791,000882: 34,2464           50206                           PUSH     DOT                                   #                                     PL06D
024792,000883: 34,2465           03523                                    RACT3                                 #  (U . RA3) = TEMP1      B1 +B29=B30
024793,000884: 34,2466           41552                           SL1      PUSH                                  #                                 B29 PL08D
024794,000885: 34,2467           72316                           DSQ      TLOAD                                 #  TEMP1**2                       B58
024795,000886: 34,2470           00155                                    MPAC                                  
024796,000887: 34,2471           50315                           PDVL     DOT                                   #                                     PL11D
024797,000888: 34,2472           03523                                    RACT3                                 
024798,000889: 34,2473           03523                                    RACT3                                 
024799,000890: 34,2474           57551                           TLOAD    DCOMP                                 #  RA3.RA3
024800,000891: 34,2475           00155                                    MPAC                                  
024801,000892: 34,2476           50315                           PDVL     DOT                                   #  RP3.RP3                        B58 PL14D
024802,000893: 34,2477           03537                                    RPASS3                                
024803,000894: 34,2500           03537                                    RPASS3                                #                                     PL11D
024804,000895: 34,2501           76371                           TAD      TAD                                   #  TEMP1**2+RA3.RA3+RP3.RP3=TEMP2     PL08D
024805,000896: 34,2502           71244                           BPL      DLOAD                                 
024806,000897: 34,2503           70521                                    K1ORK2                                
024807,000898: 34,2504           03575                                    LOOPCT                                
024808,000899: 34,2505           77025                           DSU      AXT,2                                 
024809,000900: 34,2506           30056                                    1DPB28                                
024810,000901: 34,2507           00001                                    1D                                    
024811,000902: 34,2510           77654                           BZE                                            
024812,000903: 34,2511           72124                                    ALMXITA                               
024813,000904: 34,2512           70545                           DLOAD    SR1                                   
024814,000905: 34,2513           03565                                    DELDV                                 
024815,000906: 34,2514           03565                           STORE    DELDV                                 
024816,000907: 34,2515           77621                           BDSU                                           
024817,000908: 34,2516           03563                                    DVPREV                                
024818,000909: 34,2517           37561                           STCALL   DELVCSI                               
024819,000910: 34,2520           70151                                    CSI/B1                                
024820,000911: 34,2521           41566        K1ORK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5              B29 PL10D
024821,000912: 34,2522           45276                           DCOMP    DSU                                   
024822,000913: 34,2523           00007                                    06D                                   #  -TEMP1-TEMP3 =K2 AT 10D
024823,000914: 34,2524           14013                           STODL    10D                                   #                                     PL08D
024824,000915: 34,2525           45425                           DSU      STADR                                 #                                     PL06D
024825,000916: 34,2526           77762                           STORE    12D                                   #  -TEMP1+TEMP3 =K1 AT 12D
024826,000917: 34,2527           77646                           ABS                                            
024827,000918: 34,2530           14017                           STODL    14D                                   
024828,000919: 34,2531           00013                                    10D                                   
024829,000920: 34,2532           45246                           ABS      DSU                                   
024830,000921: 34,2533           00017                                    14D                                   
024831,000922: 34,2534           71240                           BMN      DLOAD                                 
024832,000923: 34,2535           70540                                    K2.                                   
024833,000924: 34,2536           00015                                    12D                                   
024834,000925: 34,2537           00013                           STORE    10D                                   #  K=K1
024835,000926: 34,2540           77745        K2.                DLOAD                                          
024836,000927: 34,2541           00013                                    10D                                   
024837,000928: 34,2542           76561                           VXSC     VSL1                                  
024838,000929: 34,2543           53455                           VAD      UNIT                                  #  V=RA3+KU  UNIT                  B1
024839,000930: 34,2544           03523                                    RACT3                                 
024840,000931: 34,2545           53515                           PDVL     UNIT                                  
024841,000932: 34,2546           03537                                    RPASS3                                #                                     PL06D
024842,000933: 34,2547           53515                           PDVL     UNIT                                  
024843,000934: 34,2550           03545                                    VPASS3                                #                                     PL12D
024844,000935: 34,2551           63235                           VXV      PDVL                                  #  UVP3 X URP3                        PL18D
024845,000936: 34,2552           00007                                    06D                                   
024846,000937: 34,2553           00007                                    06D                                   
024847,000938: 34,2554           50235                           VXV      DOT                                   
024848,000939: 34,2555           00001                                    00D                                   
024849,000940: 34,2556           77626                           STADR                                          #                                     PL12D
024850,000941: 34,2557           53762                           STOVL    12D                                   #  (URP3XV).(UVP3XURP3)=TEMP          PL06D
024851,000942: 34,2560           72441                           DOT      SL1                                   #                                     PL00D
024852,000943: 34,2561           75326                           ARCCOS   SIGN                                  
024853,000944: 34,2562           00015                                    12D                                   #                                  B0
024854,000945: 34,2563           41542                           SR1      PUSH                                  #  GAMMA=SIGN(TEMP)ARCOS(UNITV.URP3)  PL02D
024855,000946: 34,2564           71214                           BON      DLOAD                                 
024856,000947: 34,2565           03301                                    S32.1F2                               
024857,000948: 34,2566           70623                                    FRSTPAS                               
024858,000949: 34,2567           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
024859,000950: 34,2570           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                   B1 PL04D
024860,000951: 34,2571           03577                                    GAMPREV                               
024861,000952: 34,2572           03561                                    DELVCSI                               
024862,000953: 34,2573           60225                           DSU      NORM                                  #                                  B7
024863,000954: 34,2574           03563                                    DVPREV                                
024864,000955: 34,2575           00047                                    X1                                    
024865,000956: 34,2576           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)   B-6+N1 PL06D
024866,000957: 34,2577           00003                                    02D                                   #          = SLOPE
024867,000958: 34,2600           03561                                    DELVCSI                               
024868,000959: 34,2601           03563                           STORE    DVPREV                                
024869,000960: 34,2602           43014                           BOFF     BOFF                                  
024870,000961: 34,2603           03342                                    S32.1F3A                              
024871,000962: 34,2604           70635                                    THRDCHK                               
024872,000963: 34,2605           03343                                    S32.1F3B                              
024873,000964: 34,2606           70635                                    THRDCHK                               
024874,000965: 34,2607           41345                           DLOAD    DMP                                   
024875,000966: 34,2610           00003                                    02D                                   
024876,000967: 34,2611           03577                                    GAMPREV                               
024877,000968: 34,2612           71244                           BPL      DLOAD                                 
024878,000969: 34,2613           70642                                    FIFTYFPS                              
024879,000970: 34,2614           30046                                    INITST                                
024880,000971: 34,2615           77765                           SIGN                                           
024881,000972: 34,2616           03565                                    DELDV                                 
024882,000973: 34,2617           03565                           STORE    DELDV                                 
024883,000974: 34,2620           43014                           SET      CLEAR                                 
024884,000975: 34,2621           03062                                    S32.1F3A                              
024885,000976: 34,2622           03263                                    S32.1F3B                              
024886,000977: 34,2623           77745        FRSTPAS            DLOAD                                          
024887,000978: 34,2624           00001                                    00D                                   
024888,000979: 34,2625           17577                           STODL    GAMPREV                               
024889,000980: 34,2626           03561                                    DELVCSI                               
024890,000981: 34,2627           03563                           STORE    DVPREV                                
024891,000982: 34,2630           43025                           DSU      CLEAR                                 
024892,000983: 34,2631           03565                                    DELDV                                 
024893,000984: 34,2632           03261                                    S32.1F2                               
024894,000985: 34,2633           37561                           STCALL   DELVCSI                               
024895,000986: 34,2634           70151                                    CSI/B1                                
024896,000987: 34,2635           43014        THRDCHK            BON      BON                                   
024897,000988: 34,2636           03302                                    S32.1F3A                              
024898,000989: 34,2637           70661                                    NEWTN                                 
024899,000990: 34,2640           03303                                    S32.1F3B                              
024900,000991: 34,2641           70661                                    NEWTN                                 
024901,000992: 34,2642           75345        FIFTYFPS           DLOAD    SIGN                                  
024902,000993: 34,2643           30066                                    FIFPSDP                               
024903,000994: 34,2644           00005                                    04D                                   
024904,000995: 34,2645           77765                           SIGN                                           
024905,000996: 34,2646           03577                                    GAMPREV                               
024906,000997: 34,2647           03565                           STORE    DELDV                                 
024907,000998: 34,2650           43276                           DCOMP    DAD                                   
024908,000999: 34,2651           03561                                    DELVCSI                               
024909,001000: 34,2652           17561                           STODL    DELVCSI                               
024910,001001: 34,2653           00001                                    00D                                   
024911,001002: 34,2654           43014                           SET      SET                                   
024912,001003: 34,2655           03063                                    S32.1F3B                              
024913,001004: 34,2656           03062                                    S32.1F3A                              
024914,001005: 34,2657           37577                           STCALL   GAMPREV                               
024915,001006: 34,2660           70162                                    CSI/B2                                
024916,001007: 34,2661           60345        NEWTN              DLOAD    NORM                                  
024917,001008: 34,2662           00005                                    04D                                   
024918,001009: 34,2663           00050                                    X2                                    
024919,001010: 34,2664           54065                           BDDV     XSU,1                                 
024920,001011: 34,2665           00001                                    00D                                   
024921,001012: 34,2666           00047                                    X2                                    
024922,001013: 34,2667           77657                           SR*                                            
024923,001014: 34,2670           20601                                    0,1                                   
024924,001015: 34,2671           17565                           STODL    DELDV                                 
024925,001016: 34,2672           00001                                    00D                                   
024926,001017: 34,2673           03577                           STORE    GAMPREV                               
024927,001018: 34,2674           51545                           DLOAD    ABS                                   
024928,001019: 34,2675           03565                                    DELDV                                 #                                     PL08D
024929,001020: 34,2676           45206                           PUSH     DSU                                   
024930,001021: 34,2677           30062                                    EPSILN1                               
024931,001022: 34,2700           71240                           BMN      DLOAD                                 
024932,001023: 34,2701           70716                                    CSI/SOL                               
024933,001024: 34,2702           50025                           DSU      BMN                                   
024934,001025: 34,2703           30072                                    DELMAX1                               
024935,001026: 34,2704           70711                                    CSISTEP                               
024936,001027: 34,2705           75345                           DLOAD    SIGN                                  
024937,001028: 34,2706           30072                                    DELMAX1                               
024938,001029: 34,2707           03565                                    DELDV                                 
024939,001030: 34,2710           03565                           STORE    DELDV                                 
024940,001031: 34,2711           45345        CSISTEP            DLOAD    DSU                                   
024941,001032: 34,2712           03561                                    DELVCSI                               
024942,001033: 34,2713           03565                                    DELDV                                 
024943,001034: 34,2714           37561                           STCALL   DELVCSI                               
024944,001035: 34,2715           70151                                    CSI/B1                                
024945,001036: 34,2716           77145        CSI/SOL            DLOAD    AXT,2                                 
024946,001037: 34,2717           03571                                    POSTCSI                               
024947,001038: 34,2720           00002                                    2                                     
024948,001039: 34,2721           77750                           LXA,1                                          
024949,001040: 34,2722           02332                                    RTX1                                  
024950,001041: 34,2723           50023                           DSU*     BMN                                   
024951,001042: 34,2724           30056                                    PMINE      -2,1                       
024952,001043: 34,2725           70755                                    SCNDSOL                               
024953,001044: 34,2726           71374                           AXT,2    DLOAD                                 
024954,001045: 34,2727           00003                                    3                                     
024955,001046: 34,2730           03573                                    POSTCDH                               
024956,001047: 34,2731           50023                           DSU*     BMN                                   
024957,001048: 34,2732           30056                                    PMINE      -2,1                       
024958,001049: 34,2733           70755                                    SCNDSOL                               
024959,001050: 34,2734           45345                           DLOAD    DSU                                   
024960,001051: 34,2735           03371                                    TCDH                                  
024961,001052: 34,2736           03621                                    TCSI                                  
024962,001053: 34,2737           02261                           STORE    T1TOT2                                
024963,001054: 34,2740           45374                           AXT,2    DSU                                   
024964,001055: 34,2741           00004                                    4                                     
024965,001056: 34,2742           30076                                    TMIN                                  
024966,001057: 34,2743           77040                           BMN      AXT,2                                 
024967,001058: 34,2744           70755                                    SCNDSOL                               
024968,001059: 34,2745           00005                                    5                                     
024969,001060: 34,2746           45345                           DLOAD    DSU                                   
024970,001061: 34,2747           03623                                    TTPI                                  
024971,001062: 34,2750           03371                                    TCDH                                  
024972,001063: 34,2751           02263                           STORE    T2TOT3                                
024973,001064: 34,2752           51025                           DSU      BPL                                   
024974,001065: 34,2753           30076                                    TMIN                                  
024975,001066: 34,2754           70775                                    P10CHECK                              
024976,001067: 34,2755           43014        SCNDSOL            BON      BOFF                                  
024977,001068: 34,2756           03302                                    S32.1F3A                              
024978,001069: 34,2757           72126                                    ALMXIT                                
024979,001070: 34,2760           03343                                    S32.1F3B                              
024980,001071: 34,2761           72126                                    ALMXIT                                
024981,001072: 34,2762           71334                           SXA,2    DLOAD                                 
024982,001073: 34,2763           03600                                    CSIALRM                               
024983,001074: 34,2764           32453                                    P30ZERO                               
024984,001075: 34,2765           43014                           CLEAR    SET                                   
024985,001076: 34,2766           03260                                    S32.1F1                               
024986,001077: 34,2767           03061                                    S32.1F2                               
024987,001078: 34,2770           43014                           CLEAR    CLEAR                                 
024988,001079: 34,2771           03262                                    S32.1F3A                              
024989,001080: 34,2772           03263                                    S32.1F3B                              
024990,001081: 34,2773           37575                           STCALL   LOOPCT                                
024991,001082: 34,2774           70111                                    CSI/B                                 
024992,001083: 
024993,001084: 34,2775           52014        P10CHECK           BOFF     GOTO                                  
024994,001085: 34,2776           03346                                    LTCPFLG                               
024995,001086: 34,2777           64271                                    P10ALARM                              
024996,001087: 34,3000           72211                                    P32/P72C                              
024997,001088: 
024998,001089:                                                                                                  #  ..... ADVANCE   .....
024999,001090: 
025000,001091:                                                                                                  #  SUBROUTINES USED
025001,001092: 
025002,001093:                                                                                                  #        PRECSET
025003,001094:                                                                                                  #        ROTATE
025004,001095: 
025005,001096: 34,3001           71220        ADVANCE            STQ      DLOAD                                 
025006,001097: 34,3002           03455                                    SUBEXIT                               
025007,001098: 34,3003           03425                                    TIG                                   
025008,001099: 34,3004           34041                           STCALL   TDEC1                                 
025009,001100: 34,3005           46150                                    PRECSET                               
025010,001101: 34,3006           77214                           SET      VLOAD                                 
025011,001102: 34,3007           01067                                    XDELVFLG                              
025012,001103: 34,3010           03545                                    VPASS3                                
025013,001104: 34,3011           03515                           STORE    VPASS2                                
025014,001105: 34,3012           27473                           STOVL    VPASS1                                
025015,001106: 34,3013           03537                                    RPASS3                                
025016,001107: 34,3014           03507                           STORE    RPASS2                                
025017,001108: 34,3015           03465                           STORE    RPASS1                                
025018,001109: 34,3016           47256                           UNIT     VXV                                   
025019,001110: 34,3017           03473                                    VPASS1                                
025020,001111: 34,3020           77656                           UNIT                                           
025021,001112: 34,3021           26275                           STOVL    UP1                                   
025022,001113: 34,3022           03523                                    RACT3                                 
025023,001114: 34,3023           37627                           STCALL   RTIG                                  
025024,001115: 34,3024           71035                                    ROTATE                                
025025,001116: 34,3025           02325                           STORE    RACT2                                 
025026,001117: 34,3026           26317                           STOVL    RACT1                                 
025027,001118: 34,3027           03531                                    VACT3                                 
025028,001119: 34,3030           37635                           STCALL   VTIG                                  
025029,001120: 34,3031           71035                                    ROTATE                                
025030,001121: 34,3032           03501                           STORE    VACT2                                 
025031,001122: 34,3033           37457                           STCALL   VACT1                                 
025032,001123: 34,3034           03455                                    SUBEXIT                               
025033,001124: 
025034,001125:                                                                                                  #  ..... ROTATE    .....
025035,001126: 
025036,001127: 34,3035           41406        ROTATE             PUSH     PUSH                                  
025037,001128: 34,3036           74241                           DOT      VXSC                                  
025038,001129: 34,3037           02275                                    UP1                                   
025039,001130: 34,3040           02275                                    UP1                                   
025040,001131: 34,3041           51352                           VSL2     BVSU                                  
025041,001132: 34,3042           63256                           UNIT     PDVL                                  
025042,001133: 34,3043           74246                           ABVAL    VXSC                                  
025043,001134: 34,3044           43572                           VSL1     RVQ                                   
025044,001135: 
025045,001136:                                                                                                  #  ..... INTINTNA  .....
025046,001137: 
025047,001138: 34,3045           65325        INTINT2C           PDDL     PDDL                                  
025048,001139: 34,3046           03621                                    TCSI                                  
025049,001140: 34,3047           03371                                    TCDH                                  
025050,001141: 34,3050           41525                           PDDL     PUSH                                  
025051,001142: 34,3051           33634                                    TWOPI                                 
025052,001143: 34,3052           77650                           GOTO                                           
025053,001144: 34,3053           73406                                    INTINT                                
025054,001145: 34,3054           65325        INTINT3P           PDDL     PDDL                                  
025055,001146: 34,3055           03371                                    TCDH                                  
025056,001147: 34,3056           03623                                    TTPI                                  
025057,001148: 34,3057           41525                           PDDL     PUSH                                  
025058,001149: 34,3060           32453                                    P30ZERO                               
025059,001150: 34,3061           77650                           GOTO                                           
025060,001151: 34,3062           73406                                    INTINT                                
025061,001152: 
025062,001153:                                                                                                  #  ..... S32/33.1  .....
025063,001154: 
025064,001155:                                                                                                  #  SUBROUTINES USED
025065,001156: 
025066,001157:                                                                                                  #        S32/33.X
025067,001158: 
025068,001159: 34,3063           76020        S32/33.1           STQ      AXT,1                                 
025069,001160: 34,3064           03455                                    SUBEXIT                               
025070,001161: 34,3065           01521                           VN       0681                                  
025071,001162: 34,3066           77624                           CALL                                           
025072,001163: 34,3067           72423                                    DISDVLVC                              
025073,001164: 34,3070           77624                           CALL                                           
025074,001165: 34,3071           71103                                    S32/33.X                              
025075,001166: 34,3072           61375                           VLOAD    VXM                                   
025076,001167: 34,3073           02267                                    DELVLVC                               
025077,001168: 34,3074           00001                                    0D                                    
025078,001169: 34,3075           77772                           VSL1                                           
025079,001170: 34,3076           03643                           STORE    DELVSIN                               
025080,001171: 34,3077           51406                           PUSH     ABVAL                                 
025081,001172: 34,3100           27651                           STOVL    DELVSAB                               
025082,001173: 34,3101           77650                           GOTO                                           
025083,001174: 34,3102           03455                                    SUBEXIT                               
025084,001175: 
025085,001176:                                                                                                  #  ..... S32/33.X  .....
025086,001177: 
025087,001178: 34,3103           77201        S32/33.X           SETPD    VLOAD                                 
025088,001179: 34,3104           00007                                    6D                                    
025089,001180: 34,3105           02275                                    UP1                                   
025090,001181: 34,3106           63276                           VCOMP    PDVL                                  
025091,001182: 34,3107           02317                                    RACT1                                 
025092,001183: 34,3110           57456                           UNIT     VCOMP                                 
025093,001184: 34,3111           47206                           PUSH     VXV                                   
025094,001185: 34,3112           02275                                    UP1                                   
025095,001186: 34,3113           77772                           VSL1                                           
025096,001187: 34,3114           00001                           STORE    0D                                    
025097,001188: 34,3115           77616                           RVQ                                            
025098,001189: 
025099,001190:                                                                                                  #  ..... CDHMVR    .....
025100,001191: 
025101,001192:                                                                                                  #  SUBROUTINES USED
025102,001193: 
025103,001194:                                                                                                  #        VECSHIFT
025104,001195:                                                                                                  #        TIMETHET
025105,001196:                                                                                                  #        SHIFTR1
025106,001197: 
025107,001198: 34,3116           77220        CDHMVR             STQ      VLOAD                                 
025108,001199: 34,3117           03455                                    SUBEXIT                               
025109,001200: 34,3120           02325                                    RACT2                                 
025110,001201: 34,3121           53406                           PUSH     UNIT                                  
025111,001202: 34,3122           27531                           STOVL    UNVEC                                 #  UR SUB A
025112,001203: 34,3123           03507                                    RPASS2                                
025113,001204: 34,3124           50256                           UNIT     DOT                                   
025114,001205: 34,3125           03531                                    UNVEC                                 
025115,001206: 34,3126           72406                           PUSH     SL1                                   
025116,001207: 34,3127           16732                           STODL    CSTH                                  
025117,001208: 34,3130           65316                           DSQ      PDDL                                  
025118,001209: 34,3131           06223                                    DP1/4TH                               
025119,001210: 34,3132           45302                           SR2      DSU                                   
025120,001211: 34,3133           72566                           SQRT     SL1                                   
025121,001212: 34,3134           57515                           PDVL     VCOMP                                 
025122,001213: 34,3135           77635                           VXV                                            
025123,001214: 34,3136           03507                                    RPASS2                                
025124,001215: 34,3137           65241                           DOT      PDDL                                  
025125,001216: 34,3140           02275                                    UP1                                   
025126,001217: 34,3141           45565                           SIGN     STADR                                 
025127,001218: 34,3142           51047                           STOVL    SNTH                                  
025128,001219: 34,3143           03507                                    RPASS2                                
025129,001220: 34,3144           45115                           PDVL     CALL                                  
025130,001221: 34,3145           03515                                    VPASS2                                
025131,001222: 34,3146           46206                                    VECSHIFT                              
025132,001223: 34,3147           26744                           STOVL    VVEC                                  
025133,001224: 34,3150           77614                           CLEAR                                          
025134,001225: 34,3151           03666                                    RVSW                                  
025135,001226: 34,3152           36655                           STCALL   RVEC                                  
025136,001227: 34,3153           24732                                    TIMETHET                              
025137,001228: 34,3154           53754                           LXA,2    VSL*                                  
025138,001229: 34,3155           02333                                    RTX2                                  
025139,001230: 34,3156           57576                                    0,2                                   
025140,001231: 34,3157           00023                           STORE    18D                                   
025141,001232: 34,3160           76441                           DOT      SL1R                                  
025142,001233: 34,3161           03531                                    UNVEC                                 
025143,001234: 34,3162           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
025144,001235: 34,3163           63257                           SL*      PDVL                                  
025145,001236: 34,3164           57576                                    0,2                                   
025146,001237: 34,3165           02325                                    RACT2                                 
025147,001238: 34,3166           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
025148,001239: 34,3167           77625                           DSU                                            
025149,001240: 34,3170           00003                                    02D                                   
025150,001241: 34,3171           17567                           STODL    DIFFALT                               #  DELTA H IN METERS          B+29
025151,001242: 34,3172           02742                                    R1A                                   
025152,001243: 34,3173           65301                           NORM     PDDL                                  #  2 - R V**/MU                        04D
025153,001244: 34,3174           00047                                    X1                                    
025154,001245: 34,3175           00041                                    R1                                    
025155,001246: 34,3176           77624                           CALL                                           
025156,001247: 34,3177           46216                                    SHIFTR1                               
025157,001248: 34,3200           56362                           SR1R     DDV                                   
025158,001249: 34,3201           41457                           SL*      PUSH                                  
025159,001250: 34,3202           20174                                    0          -5,1                       
025160,001251: 34,3203           65225                           DSU      PDDL                                  #  A SUB A                    B+29     04D
025161,001252: 34,3204           03567                                    DIFFALT                               
025162,001253: 34,3205           56302                           SR2      DDV                                   #  A SUB P                   B+31
025163,001254: 34,3206           00005                                    04D                                   #                            B+2
025164,001255: 34,3207           75406                           PUSH     SQRT                                  #     A SUB P/A SUB A          06D
025165,001256: 34,3210           41275                           DMPR     DMP                                   
025166,001257: 34,3211           00007                                    06D                                   
025167,001258: 34,3212           00001                                    00D                                   
025168,001259: 34,3213           65272                           SL3R     PDDL                                  #  V SUB AV METERS/CS         B+7      08D
025169,001260: 34,3214           00003                                    02D                                   #  R SUB A MAGNITUDE  B+29
025170,001261: 34,3215           65301                           NORM     PDDL                                  
025171,001262: 34,3216           00047                                    X1                                    
025172,001263: 34,3217           02337                                    RTMU                                  
025173,001264: 34,3220           56342                           SR1      DDV                                   #  2MU  B+38
025174,001265: 34,3221           65257                           SL*      PDDL                                  #     2 MU/R SUBAA    B+14     10D
025175,001266: 34,3222           20174                                    0          -5,1                       
025176,001267: 34,3223           00005                                    04D                                   #  ASUBA                     B+29
025177,001268: 34,3224           65301                           NORM     PDDL                                  
025178,001269: 34,3225           00050                                    X2                                    
025179,001270: 34,3226           02337                                    RTMU                                  
025180,001271: 34,3227           56342                           SR1      DDV                                   
025181,001272: 34,3230           44257                           SL*      BDSU                                  
025182,001273: 34,3231           57604                                    0          -6,2                       #  2U/R - U/A   B+14 (METERS/CS)SQ
025183,001274: 34,3232           63525                           PDDL     DSQ                                   #                                     10D
025184,001275: 34,3233           00011                                    08D                                   
025185,001276: 34,3234           75421                           BDSU     SQRT                                  
025186,001277: 34,3235           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)10D
025187,001278: 34,3236           02275                                    UP1                                   
025188,001279: 34,3237           03531                                    UNVEC                                 
025189,001280: 34,3240           74256                           UNIT     VXSC                                  
025190,001281: 34,3241           00013                                    10D                                   
025191,001282: 34,3242           74315                           PDVL     VXSC                                  
025192,001283: 34,3243           03531                                    UNVEC                                 
025193,001284: 34,3244           00011                                    08D                                   
025194,001285: 34,3245           76455                           VAD      VSL1                                  
025195,001286: 34,3246           77626                           STADR                                          
025196,001287: 34,3247           74246                           STORE    VACT3                                 
025197,001288: 34,3250           77651                           VSU                                            
025198,001289: 34,3251           03501                                    VACT2                                 
025199,001290: 34,3252           36311                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
025200,001291: 34,3253           03455                                    SUBEXIT                               
025201,001292: 
025202,001293:                                                                                                  #  ..... COMPTGO   .....
025203,001294: 
025204,001295:                                                                                                  #  SUBROUTINES USED
025205,001296: 
025206,001297:                                                                                                  #        CLOKTASK
025207,001298:                                                                                                  #        2PHSCHNG
025208,001299: 
025209,001300: 35,2465                                           BANK     35                                    
025210,001301: 35,2000                                           SETLOC   CSI/CDH                               
025211,001302: 35,2000                                           BANK                                           
025212,001303: 
025213,001304: 35,2465  E7,1452                                  EBANK=   RTRN                                  
025214,001305: 
025215,001306: 35,2465                                           COUNT*   $$/P3575                              
025216,001307: 
025217,001308: 35,2465           00006        COMPTGO            EXTEND                                         
025218,001309: 35,2466           23452                           QXCH     RTRN                                  
025219,001310: 35,2467           35030                           CAF      ZERO                                  
025220,001311: 35,2470           55175                           TS       DISPDEX                               
025221,001312: 35,2471           35025                           CAF      BIT2                                  
025222,001313: 35,2472           00004                           INHINT                                         
025223,001314: 35,2473           05252                           TC       WAITLIST                              
025224,001315: 35,2474  E7,1430                                  EBANK=   WHICH                                 
025225,001316: 35,2474           02707 74067                     2CADR    CLOKTASK                              
025226,001317: 
025227,001318: 35,2476           05373                           TC       2PHSCHNG                              
025228,001319: 35,2477           40036                           OCT      40036                                 
025229,001320: 35,2500           05024                           OCT      05024                                 
025230,001321: 35,2501           13000                           OCT      13000                                 
025231,001322: 35,2502           01452                           TC       RTRN                                  

End of include-file P32-P35,_P72-P75.agc.  Parent file is MAIN.agc