Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

027531,000002:                                                                                                  ## Copyright:   Public domain.
027532,000003:                                                                                                  ## Filename:    P32-P35,_P72-P75.agc
027533,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
027534,000005:                                                                                                  ##              It is part of the source code for the original release
027535,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
027536,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
027537,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
027538,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
027539,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
027540,000011:                                                                                                  ##              that the code format has been changed to conform to the
027541,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
027542,000013:                                                                                                  ##              original YUL assembler.
027543,000014:                                                                                                  ## Reference:   pp. 628-660
027544,000015:                                                                                                  ## Assembler:   yaYUL
027545,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027546,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
027547,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
027548,000019:                                                                                                  ##              2016-12-14 MAS  Updated from comment-proofed Luminary 99 version.
027549,000020:                                                                                                  ##              2017-01-20 MAS  Updated for Luminary 69.
027550,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
027551,000022:                                                                                                  ##                              and fixed errors found.
027552,000023:                                                                                                  ##              2017-02-07 RSB  Comment-text corrections identified while 
027553,000024:                                                                                                  ##                              proofing Artemis 72.
027554,000025:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116.
027555,000026:                                                                                                  ##              2021-05-30 ABS  TTPIO -> TTPI0
027556,000027:                                                                                                  ##                              K10RK2 -> K1ORK2
027557,000028: 

Page 628

027559,000030:                                                                                                  #  COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
027560,000031: 
027561,000032:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
027562,000033:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
027563,000034: 
027564,000035:                                                                                                  #  PURPOSE
027565,000036: 
027566,000037:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING
027567,000038:                                                                                                  #            CONCENTRIC FLIGHT PLAN MANEUVERS - THE CO-ELLIPTIC SEQUENCE
027568,000039:                                                                                                  #            INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
027569,000040:                                                                                                  #            (CDH) MANEUVER.
027570,000041: 
027571,000042:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027572,000043:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027573,000044: 
027574,000045:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027575,000046:                                                                                                  #            ASSOCIATED WITH THE CONCENTRIC FLIGNT PLAN MANEUVERS FOR
027576,000047:                                                                                                  #            APPROVAL BY THE ASTRONAUT/GROUND.
027577,000048: 
027578,000049:                                                                                                  #        (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
027579,000050:                                                                                                  #            THRUSTING PROGRAM.
027580,000051: 
027581,000052:                                                                                                  #  ASSUMPTIONS
027582,000053: 
027583,000054:                                                                                                  #        (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE
027584,000055:                                                                                                  #            AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
027585,000056:                                                                                                  #            FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
027586,000057:                                                                                                  #            POSITION.
027587,000058: 
027588,000059:                                                                                                  #        (2) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION MUST BE
027589,000060:                                                                                                  #            COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027590,000061:                                                                                                  #            COMPLETION OF THE PROGRAM.
027591,000062: 
027592,000063:                                                                                                  #        (3) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION MUST BE
027593,000064:                                                                                                  #            COMPUTED TO BE GREATER THAN 10 MINUTES FOR SUCCESSFUL
027594,000065:                                                                                                  #            COMPLETION OF THE PROGRAM.
027595,000066: 
027596,000067:                                                                                                  #        (4) CDH DELTA V IS SELECTED TO MINIMIZE THE VARIATION OF THE
027597,000068:                                                                                                  #            ALTITUDE DIFFERENCE BETWEEN THE ORBITS.
027598,000069: 
027599,000070:                                                                                                  #        (5) CSI BURN IS DEFINED SUCH THAT THE IMPULSIVE DELTA V IS IN THE
027600,000071:                                                                                                  #            HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION AT CSI
027601,000072:                                                                                                  #            IGNITION.
027602,000073: 
027603,000074:                                                                                                  #        (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH
027604,000075:                                                                                                  #            MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH
027605,000076:                                                                                                  #            ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
027606,000077: 
027607,000078:                                                                                                  #        (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
027608,000079:                                                                                                  #            PARALLEL TO THE PLANE OF THE CSM ORBIT.  HOWEVER CREW

Page 629

027610,000081:                                                                                                  #            MODIFICATION OF DELTA V (LV) COMPONENTS MAY RESULT IN AN
027611,000082:                                                                                                  #            OUT-OF-PLANE CSI MANEUVER.
027612,000083: 
027613,000084:                                                                                                  #        (8) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027614,000085:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 10).
027615,000086: 
027616,000087:                                                                                                  #        (9) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027617,000088:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITIES ARE NORMALLY LIMITED
027618,000089:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027619,000090:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027620,000091: 
027621,000092:                                                                                                  #       (10) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027622,000093:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027623,000094:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027624,000095:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027625,000096:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027626,000097:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027627,000098:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027628,000099:                                                                                                  #            THRUSTING MANEUVER.
027629,000100: 
027630,000101:                                                                                                  #       (11) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027631,000102: 
027632,000103:                                                                                                  #       (12) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027633,000104: 
027634,000105:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027635,000106:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027636,000107:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027637,000108:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027638,000109: 
027639,000110:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027640,000111:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027641,000112:                                                                                                  #                CYCLE.
027642,000113: 
027643,000114:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027644,000115:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027645,000116:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027646,000117:                                                                                                  #                PROGRAM.
027647,000118: 
027648,000119:                                                                                                  #       (13) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027649,000120:                                                                                                  #            A THRUSTING MANEUVER.
027650,000121: 
027651,000122:                                                                                                  #       (14) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027652,000123: 
027653,000124:                                                                                                  #                P32 IF THIS VEHICLE IS ACTIVE VEHICLE.
027654,000125: 
027655,000126:                                                                                                  #                P72 IF THIS VEHICLE IS PASSIVE VEHICLE.
027656,000127: 
027657,000128:                                                                                                  #  INPUT
027658,000129: 
027659,000130:                                                                                                  #        (1) TCSI     TIME OF THE CSI MANEUVER

Page 630

027661,000132:                                                                                                  #        (2) NN       NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027662,000133:                                                                                                  #                     VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027663,000134:                                                                                                  #                     MANEUVER POINT
027664,000135:                                                                                                  #        (3) ELEV     DESIRED LOS ANGLE AT TPI
027665,000136:                                                                                                  #        (4) TTPI     TIME OF THE TPI MANEUVER
027666,000137:                                                                                                  #  OUTPUT
027667,000138: 
027668,000139:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
027669,000140:                                                                                                  #        (2) TTOGO    TIME TO GO
027670,000141:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
027671,000142:                                                                                                  #        (4) DIFFALT  DELTA ALTITUDE AT CDH
027672,000143:                                                                                                  #        (5) T1TOT2   DELTA TIME FROM CSI TO CDH
027673,000144:                                                                                                  #        (6) T2TOT3   DELTA TIME FROM CDH TO TPI
027674,000145:                                                                                                  #        (7) DELVLVC  DELTA VELOCITY AT CSI - LOCAL VERTICAL COORDINATES
027675,000146:                                                                                                  #        (8) DELVLVC  DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027676,000147: 
027677,000148:                                                                                                  #  DOWNLINK
027678,000149: 
027679,000150:                                                                                                  #        (1) TCSI     TIME OF THE CSI MANEUVER
027680,000151:                                                                                                  #        (2) TCDH     TIME OF THE CDH MANEUVER
027681,000152:                                                                                                  #        (3) TTPI     TIME OF THE TPI MANEUVER
027682,000153:                                                                                                  #        (4) TIG      TIME OF THE CSI MANEUVER
027683,000154:                                                                                                  #        (5) DELVEET1 DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027684,000155:                                                                                                  #        (6) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027685,000156:                                                                                                  #        (7) DIFFALT  DELTA ALTITUDE AT CDH
027686,000157:                                                                                                  #        (8) NN       NUMBER OF APSIDAL CROSSINGS THRU WHICH THE ACTIVE
027687,000158:                                                                                                  #                     VEHICLE ORBIT CAN BE ADVANCED TO OBTAIN THE CDH
027688,000159:                                                                                                  #                     MANEUVER POINT
027689,000160:                                                                                                  #        (9) ELEV     DESIRED LOS ANGLE AT TPI
027690,000161: 
027691,000162:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
027692,000163: 
027693,000164:                                                                                                  #        (1) TIG      TIME OF THE CSI MANEUVER
027694,000165:                                                                                                  #        (2) RTIG     POSITION OF ACTIVE VEHICLE AT CSI - BEFORE ROTATION
027695,000166:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027696,000167:                                                                                                  #        (3) VTIG     VELOCITY OF ACTIVE VEHICLE AT CSE - BEFORE ROTATION
027697,000168:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027698,000169:                                                                                                  #        (4) DELVSIN  DELTA VELOCITY AT CSI - REFERENCE COORDINATES
027699,000170:                                                                                                  #        (5) DELVSAB  MAGNITUDE OF DELTA VELOCITY AT CSI
027700,000171:                                                                                                  #        (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027701,000172: 
027702,000173:                                                                                                  #  SUBROUTINES USED
027703,000174: 
027704,000175:                                                                                                  #        AVFLAGA
027705,000176:                                                                                                  #        AVFLAGP
027706,000177:                                                                                                  #        P20FLGON
027707,000178:                                                                                                  #        VARALARM
027708,000179:                                                                                                  #        BANKCALL
027709,000180:                                                                                                  #        GOFLASH
027710,000181:                                                                                                  #        GOTOPOOH

Page 631

027712,000183:                                                                                                  #        VNPOOH
027713,000184:                                                                                                  #        GOFLASHR
027714,000185:                                                                                                  #        BLANKET
027715,000186:                                                                                                  #        ENDOFJOB
027716,000187:                                                                                                  #        SELECTMU
027717,000188:                                                                                                  #        ADVANCE
027718,000189:                                                                                                  #        INTINT
027719,000190:                                                                                                  #        PASSIVE
027720,000191:                                                                                                  #        CSI/A
027721,000192:                                                                                                  #        S32/33.1
027722,000193:                                                                                                  #        DISDVLVC
027723,000194:                                                                                                  #        VN1645
027724,000195: 
027725,000196: 35,2027                                           BANK     35                                    
027726,000197: 35,2000                                           SETLOC   CSI/CDH                               
027727,000198: 35,2000                                           BANK                                           
027728,000199: 35,2027  E7,1466                                  EBANK=   SUBEXIT                               
027729,000200: 35,2027                                           COUNT*   $$/P3272                              
027730,000201: 35,2027           02313        P32                TC       AVFLAGA                               
027731,000202: 35,2030           02032                           TC       P32STRT                               
027732,000203: 35,2031           02320        P72                TC       AVFLAGP                               
027733,000204: 35,2032           00006        P32STRT            EXTEND                                         
027734,000205: 35,2033           32364                           DCA      P30ZERO                               
027735,000206: 35,2034           53617                           DXCH     CENTANG                               
027736,000207: 35,2035           02053                           TC       P32/P72A                              
027737,000208: 35,2036           77734        ALMXITA            SXA,2                                          
027738,000209: 35,2037           03611                                    CSIALRM                               
027739,000210: 35,2040           77740        ALMXIT             LXC,1                                          
027740,000211: 35,2041           03611                                    CSIALRM                               
027741,000212: 35,2042           77533                           SLOAD*   EXIT                                  
027742,000213: 35,2043           32367                                    ALARM/TB   -1,1                       
027743,000214: 35,2044           30154                           CA       MPAC                                  
027744,000215: 35,2045           05735                           TC       VARALARM                              
027745,000216: 35,2046           35006                           CAF      V05N09                                
027746,000217: 35,2047           04616                           TC       BANKCALL                              
027747,000218: 35,2050           20351                           CADR     GOFLASH                               
027748,000219: 35,2051           06001                           TC       GOTOPOOH                              
027749,000220: 35,2052           02046                           TC       -4                                    
027750,000221: 35,2053           02325        P32/P72A           TC       P20FLGON                              
027751,000222: 35,2054           32363                           CAF      P30ZERO                               
027752,000223: 35,2055           55465                           TS       NN         +1                         
027753,000224: 35,2056           32354                           CAF      V06N11                                #  TCSI
027754,000225: 35,2057           03651                           TC       VNPOOH                                
027755,000226: 35,2060           33663                           CAF      V06N55                                #  NN, ELEV(RGLOS)
027756,000227: 35,2061           04616                           TC       BANKCALL                              
027757,000228: 35,2062           20351                           CADR     GOFLASH                               
027758,000229: 35,2063           06001                           TC       GOTOPOOH                              
027759,000230: 35,2064           02066                           TC       +2                                    
027760,000231: 35,2065           02060                           TC       -5                                    
027761,000232: 35,2066           33662                           CAF      V06N37                                #  TTPI

Page 632

027763,000234: 35,2067           03651                           TC       VNPOOH                                
027764,000235: 35,2070           06036                           TC       INTPRET                               
027765,000236: 35,2071           77745                           DLOAD                                          
027766,000237: 35,2072           03632                                    TCSI                                  
027767,000238: 35,2073           37440                           STCALL   TIG                                   
027768,000239: 35,2074           20041                                    SELECTMU                              
027769,000240: 35,2075           77624        P32/P72B           CALL                                           
027770,000241: 35,2076           71016                                    ADVANCE                               
027771,000242: 35,2077           77201                           SETPD    VLOAD                                 
027772,000243: 35,2100           00001                                    0D                                    
027773,000244: 35,2101           03504                                    VPASS1                                
027774,000245: 35,2102           65315                           PDVL     PDDL                                  
027775,000246: 35,2103           03476                                    RPASS1                                
027776,000247: 35,2104           03632                                    TCSI                                  
027777,000248: 35,2105           65325                           PDDL     PDDL                                  
027778,000249: 35,2106           03634                                    TTPI                                  
027779,000250: 35,2107           33671                                    TWOPI                                 
027780,000251: 35,2110           45006                           PUSH     CALL                                  
027781,000252: 35,2111           73422                                    INTINT                                
027782,000253: 35,2112           77624                           CALL                                           
027783,000254: 35,2113           46373                                    PASSIVE                               
027784,000255: 35,2114           77624                           CALL                                           
027785,000256: 35,2115           70113                                    CSI/A                                 
027786,000257: 35,2116           43014        P32/P72C           BON      SET                                   
027787,000258: 35,2117           01311                                    FINALFLG                              
027788,000259: 35,2120           72122                                    P32/P72D                              
027789,000260: 35,2121           00470                                    UPDATFLG                              
027790,000261: 35,2122           77745        P32/P72D           DLOAD                                          
027791,000262: 35,2123           02257                                    T1TOT2                                
027792,000263: 35,2124           02257        P32/P72E           STORE    T1TOT2                                
027793,000264: 35,2125           51025                           DSU      BPL                                   
027794,000265: 35,2126           32366                                    60MIN                                 
027795,000266: 35,2127           72124                                    P32/P72E                              
027796,000267: 35,2130           77745                           DLOAD                                          
027797,000268: 35,2131           02261                                    T2TOT3                                
027798,000269: 35,2132           02261        P32/P72F           STORE    T2TOT3                                
027799,000270: 35,2133           51025                           DSU      BPL                                   
027800,000271: 35,2134           32366                                    60MIN                                 
027801,000272: 35,2135           72132                                    P32/P72F                              
027802,000273: 35,2136           77776                           EXIT                                           
027803,000274: 35,2137           32356                           CAF      V06N75                                
027804,000275: 35,2140           03651                           TC       VNPOOH                                
027805,000276: 35,2141           06036                           TC       INTPRET                               
027806,000277: 35,2142           45175                           VLOAD    CALL                                  
027807,000278: 35,2143           02273                                    DELVEET1                              
027808,000279: 35,2144           71100                                    S32/33.1                              
027809,000280: 35,2145           26273                           STOVL    DELVEET1                              
027810,000281: 35,2146           02315                                    RACT2                                 
027811,000282: 35,2147           26307                           STOVL    RACT1                                 
027812,000283: 35,2150           02301                                    DELVEET2                              

Page 633

027814,000285: 35,2151           45170                           AXT,1    CALL                                  
027815,000286: 35,2152           01522                           VN       0682                                  
027816,000287: 35,2153           72334                                    DISDVLVC                              
027817,000288: 35,2154           77745                           DLOAD                                          
027818,000289: 35,2155           03634                                    TTPI                                  
027819,000290: 35,2156           37636                           STCALL   TTPI0                                 
027820,000291: 35,2157           73542                                    VN1645                                
027821,000292: 35,2160           77650                           GOTO                                           
027822,000293: 35,2161           72075                                    P32/P72B                              
027823,000294: 

Page 634

027825,000296:                                                                                                  #  CONSTANT DELTA HEIGHT (CDH) PROGRAMS (P33 AND P73)
027826,000297: 
027827,000298:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
027828,000299:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
027829,000300:                                                                                                  #  PURPOSE
027830,000301: 
027831,000302:                                                                                                  #        (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE CONSTANT DELTA
027832,000303:                                                                                                  #            ALTITUDE MANEUVER (CDH).
027833,000304: 
027834,000305:                                                                                                  #        (2) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027835,000306:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027836,000307: 
027837,000308:                                                                                                  #        (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
027838,000309:                                                                                                  #            ASSOCIATED WITH THE CDH MANEUVER FOR APPROVAL BY THE
027839,000310:                                                                                                  #            ASTRONAUT/GROUND.
027840,000311: 
027841,000312:                                                                                                  #        (4) TO STORE THE CDH TARGET PARAMETERS FOR USE BY THE DESIRED
027842,000313:                                                                                                  #            THRUSTING PROGRAM.
027843,000314: 
027844,000315:                                                                                                  #  ASSUMPTIONS
027845,000316: 
027846,000317:                                                                                                  #        (1) THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF THE
027847,000318:                                                                                                  #            CO-ELLIPTIC SEQUENCE INITIATION (CSI) PROGRAM (P32/P72).
027848,000319:                                                                                                  #            THERFORE -
027849,000320: 
027850,000321:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027851,000322:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027852,000323:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027853,000324:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027854,000325: 
027855,000326:                                                                                                  #            (B) THE TIME BETWEEN CSI IGNITION AND CDH IGNITION WAS
027856,000327:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
027857,000328: 
027858,000329:                                                                                                  #            (C) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027859,000330:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
027860,000331: 
027861,000332:                                                                                                  #            (D) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
027862,000333:                                                                                                  #                ORBITS WAS MINMIZED.
027863,000334: 
027864,000335:                                                                                                  #            (E) CSI BURN WAS DEFINED SUCH THAT THE IMPULSIVE DELTA V WAS
027865,000336:                                                                                                  #                IN THE HORIZONTAL PLANE DEFINED BY ACTIVE VEHICLE
027866,000337: 
027867,000338:                                                                                                  #                POSITION AT CSI IGNITION.
027868,000339: 
027869,000340:                                                                                                  #            (F) THE PERICENTER ALTITUDES OF THE ORBITS FOLLOWING CSI AND
027870,000341:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
027871,000342:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
027872,000343: 
027873,000344:                                                                                                  #            (G) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027874,000345:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW

Page 635

027876,000347:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027877,000348:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
027878,000349: 
027879,000350:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
027880,000351:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION 4).
027881,000352: 
027882,000353:                                                                                                  #        (3) COMPUTED VARIABLES MAY BE STORED FOR LATER VERIFICATION BY
027883,000354:                                                                                                  #            THE GROUND.  THESE STORAGE CAPABILITES ARE NORMALLY LIMITED
027884,000355:                                                                                                  #            ONLY TO THE PARAMETERS FOR ONE THRUSTING MANEUVER AT A TIME
027885,000356:                                                                                                  #            EXCEPT FOR CONCENTRIC FLIGHT PLAN MANEUVER SEQUENCES.
027886,000357: 
027887,000358:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027888,000359:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
027889,000360:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027890,000361:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
027891,000362:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027892,000363:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
027893,000364:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027894,000365:                                                                                                  #            THRUSTING MANEUVER.
027895,000366: 
027896,000367:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027897,000368: 
027898,000369:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027899,000370: 
027900,000371:                                                                                                  #                ACTIVE VEGICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027901,000372:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027902,000373:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
027903,000374:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027904,000375: 
027905,000376:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027906,000377:                                                                                                  #                COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
027907,000378:                                                                                                  #                CYCLE.
027908,000379: 
027909,000380:                                                                                                  #                EXTERNAL DELTA V STEERING FLAG - DESIGNATES THE TYPE OF
027910,000381:                                                                                                  #                STEERING REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE
027911,000382:                                                                                                  #                THRUSTING PROGRAM SELECTED AFTER COMPLETION OF THIS
027912,000383:                                                                                                  #                PROGRAM.
027913,000384: 
027914,000385:                                                                                                  #        (7) IT IS NORMALLY REQUIRED THAT THE ISS BE ON FOR 1 HOUR PRIOR TO
027915,000386:                                                                                                  #            A THRUSTING MANEUVER.
027916,000387: 
027917,000388:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027918,000389: 
027919,000390:                                                                                                  #                P33 IF THIS VEHICLE IS ACTIVE VEHICLE.
027920,000391: 
027921,000392:                                                                                                  #                P73 IF THIS VEHICLE IS PASSIVE VEHICLE.
027922,000393: 
027923,000394:                                                                                                  #  INPUT
027924,000395: 
027925,000396:                                                                                                  #        (1) TTPI0    TIME OF THE TPI MANEUVER - SAVED FROM P32/P72

Page 636

027927,000398:                                                                                                  #        (2) ELEV     DESIRED LOS ANGLE AT TPI - SAVED FROM P32/P72
027928,000399:                                                                                                  #        (3) TCDH     TIME OF THE CDH MANEUVER
027929,000400: 
027930,000401:                                                                                                  #  OUTPUT
027931,000402: 
027932,000403:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
027933,000404:                                                                                                  #        (2) TTOGO    TIME TO GO
027934,000405:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
027935,000406:                                                                                                  #        (4) DIFFALT  DELTA ALTITUDE AT CDH
027936,000407:                                                                                                  #        (5) T2TOT3   DELTA TIME FROM CDH TO COMPUTED TPI
027937,000408:                                                                                                  #        (6) NOMTPI   DELTA TIME FROM NOMINAL TPI TO COMPUTED TPI
027938,000409:                                                                                                  #        (7) DELVLVC  DELTA VELOCITY AT CDH - LOCAL VERTICAL COORDINATES
027939,000410: 
027940,000411:                                                                                                  #  DOWNLINK
027941,000412: 
027942,000413:                                                                                                  #        (1) TCDH     TIME OF THE CDH MANEUVER
027943,000414:                                                                                                  #        (2) TTPI     TIME OF THE TPI MANEUVER
027944,000415:                                                                                                  #        (3) TIG      TIME OF THE CDH MANEUVER
027945,000416:                                                                                                  #        (4) DELVEET2 DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027946,000417:                                                                                                  #        (5) DIFFALT  DELTA ALTITUDE AT CDH
027947,000418:                                                                                                  #        (6) ELEV     DESIRED LOS ANGLE AT TPI
027948,000419:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
027949,000420: 
027950,000421:                                                                                                  #        (1) TIG      TIME OF THE CDH MANEUVER
027951,000422:                                                                                                  #        (2) RTIG     POSITION OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027952,000423:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027953,000424:                                                                                                  #        (3) VTIG     VELOCITY OF ACTIVE VEHICLE AT CDH - BEFORE ROTATION
027954,000425:                                                                                                  #                     INTO PLANE OF PASSIVE VEHICLE
027955,000426:                                                                                                  #        (4) DELVSIN  DELTA VELOCITY AT CDH - REFERENCE COORDINATES
027956,000427:                                                                                                  #        (5) DELVSAB  MAGNITUDE OF DELTA VELOCITY AT CDH
027957,000428:                                                                                                  #        (6) XDELVFLG SET TO INDICATE EXTERNAL DELTA V VG COMPUTATION
027958,000429: 
027959,000430:                                                                                                  #  SUBROUTINES USED
027960,000431: 
027961,000432:                                                                                                  #        AVFLAGA
027962,000433:                                                                                                  #        AVFLAGP
027963,000434:                                                                                                  #        P20FLGON
027964,000435:                                                                                                  #        VNPOOH
027965,000436:                                                                                                  #        SELECTMU
027966,000437:                                                                                                  #        ADVANCE
027967,000438:                                                                                                  #        CDHMVR
027968,000439:                                                                                                  #        INTINT3P
027969,000440:                                                                                                  #        ACTIVE
027970,000441:                                                                                                  #        PASSIVE
027971,000442:                                                                                                  #        S33/34.1
027972,000443:                                                                                                  #        ALARM
027973,000444:                                                                                                  #        BANKCALL
027974,000445:                                                                                                  #        GOFLASH
027975,000446:                                                                                                  #        GOTOPOOH
027976,000447:                                                                                                  #        S32/33.1

Page 637

027978,000449:                                                                                                  #        VN1645
027979,000450: 
027980,000451: 35,2162                                           COUNT*   $$/P3373                              
027981,000452: 35,2162           02313        P33                TC       AVFLAGA                               
027982,000453: 35,2163           02165                           TC       P33/P73A                              
027983,000454: 35,2164           02320        P73                TC       AVFLAGP                               
027984,000455: 35,2165           02325        P33/P73A           TC       P20FLGON                              
027985,000456: 35,2166           32355                           CAF      V06N13                                #  TCDH
027986,000457: 35,2167           03651                           TC       VNPOOH                                
027987,000458: 35,2170           06036                           TC       INTPRET                               
027988,000459: 35,2171           77745                           DLOAD                                          
027989,000460: 35,2172           03636                                    TTPI0                                 
027990,000461: 35,2173           17634                           STODL    TTPI                                  
027991,000462: 35,2174           03374                                    TCDH                                  
027992,000463: 35,2175           37440                           STCALL   TIG                                   
027993,000464: 35,2176           20041                                    SELECTMU                              
027994,000465: 35,2177           77624        P33/P73B           CALL                                           
027995,000466: 35,2200           71016                                    ADVANCE                               
027996,000467: 35,2201           77624                           CALL                                           
027997,000468: 35,2202           71133                                    CDHMVR                                
027998,000469: 35,2203           77201                           SETPD    VLOAD                                 
027999,000470: 35,2204           00001                                    0D                                    
028000,000471: 35,2205           03542                                    VACT3                                 
028001,000472: 35,2206           45115                           PDVL     CALL                                  
028002,000473: 35,2207           02315                                    RACT2                                 
028003,000474: 35,2210           71071                                    INTINT3P                              
028004,000475: 35,2211           77624                           CALL                                           
028005,000476: 35,2212           46363                                    ACTIVE                                
028006,000477: 35,2213           77201                           SETPD    VLOAD                                 
028007,000478: 35,2214           00001                                    0D                                    
028008,000479: 35,2215           03526                                    VPASS2                                
028009,000480: 35,2216           45115                           PDVL     CALL                                  
028010,000481: 35,2217           03520                                    RPASS2                                
028011,000482: 35,2220           71071                                    INTINT3P                              
028012,000483: 35,2221           77624                           CALL                                           
028013,000484: 35,2222           46373                                    PASSIVE                               
028014,000485: 35,2223           43145                           DLOAD    SET                                   
028015,000486: 35,2224           32364                                    P30ZERO                               
028016,000487: 35,2225           03460                                    ITSWICH                               
028017,000488: 35,2226           36323                           STCALL   NOMTPI                                
028018,000489: 35,2227           72726                                    S33/34.1                              
028019,000490: 35,2230           77454                           BZE      EXIT                                  
028020,000491: 35,2231           72246                                    P33/P73C                              
028021,000492: 35,2232           05567                           TC       ALARM                                 
028022,000493: 35,2233           00611                           OCT      611                                   
028023,000494: 35,2234           35006                           CAF      V05N09                                
028024,000495: 35,2235           04616                           TC       BANKCALL                              
028025,000496: 35,2236           20351                           CADR     GOFLASH                               
028026,000497: 35,2237           06001                           TC       GOTOPOOH                              
028027,000498: 35,2240           02242                           TC       +2                                    

Page 638

028029,000500: 35,2241           02165                           TC       P33/P73A                              
028030,000501: 35,2242           06036                           TC       INTPRET                               
028031,000502: 35,2243           77745                           DLOAD                                          
028032,000503: 35,2244           32364                                    P30ZERO                               
028033,000504: 35,2245           02323                           STORE    NOMTPI                                
028034,000505: 35,2246           43014        P33/P73C           BON      SET                                   
028035,000506: 35,2247           01311                                    FINALFLG                              
028036,000507: 35,2250           72252                                    P33/P73D                              
028037,000508: 35,2251           00470                                    UPDATFLG                              
028038,000509: 35,2252           43345        P33/P73D           DLOAD    DAD                                   
028039,000510: 35,2253           02323                                    NOMTPI                                
028040,000511: 35,2254           03634                                    TTPI                                  
028041,000512: 35,2255           03634                           STORE    TTPI                                  
028042,000513: 35,2256           77625                           DSU                                            
028043,000514: 35,2257           03374                                    TCDH                                  
028044,000515: 35,2260           51025        P33/P73E           DSU      BPL                                   
028045,000516: 35,2261           32366                                    60MIN                                 
028046,000517: 35,2262           72260                                    P33/P73E                              
028047,000518: 35,2263           77615                           DAD                                            
028048,000519: 35,2264           32366                                    60MIN                                 
028049,000520: 35,2265           16257                           STODL    T1TOT2                                
028050,000521: 35,2266           03634                                    TTPI                                  
028051,000522: 35,2267           41425                           DSU      PUSH                                  
028052,000523: 35,2270           03636                                    TTPI0                                 
028053,000524: 35,2271           45246        P33/P73F           ABS      DSU                                   
028054,000525: 35,2272           32366                                    60MIN                                 
028055,000526: 35,2273           43244                           BPL      DAD                                   
028056,000527: 35,2274           72271                                    P33/P73F                              
028057,000528: 35,2275           32366                                    60MIN                                 
028058,000529: 35,2276           45565                           SIGN     STADR                                 
028059,000530: 35,2277           75516                           STORE    T2TOT3                                
028060,000531: 35,2300           77776                           EXIT                                           
028061,000532: 35,2301           32356                           CAF      V06N75                                
028062,000533: 35,2302           03651                           TC       VNPOOH                                
028063,000534: 35,2303           06036                           TC       INTPRET                               
028064,000535: 35,2304           45175                           VLOAD    CALL                                  
028065,000536: 35,2305           02301                                    DELVEET2                              
028066,000537: 35,2306           71100                                    S32/33.1                              
028067,000538: 35,2307           36301                           STCALL   DELVEET2                              
028068,000539: 35,2310           73542                                    VN1645                                
028069,000540: 35,2311           77650                           GOTO                                           
028070,000541: 35,2312           72177                                    P33/P73B                              
028071,000542: 

Page 639

028073,000544:                                                                                                  #  ..... AVFLAGA/P .....
028074,000545: 
028075,000546:                                                                                                  #  SUBROUTINES USED
028076,000547: 
028077,000548:                                                                                                  #           UPFLAG
028078,000549:                                                                                                  #           DOWNFLAG
028079,000550: 
028080,000551: 35,2313           00006        AVFLAGA            EXTEND                                         #  AVFLAG = LEM
028081,000552: 35,2314           23466                           QXCH     SUBEXIT                               
028082,000553: 35,2315           05504                           TC       UPFLAG                                
028083,000554: 35,2316           00050                           ADRES    AVFLAG                                
028084,000555: 35,2317           01466                           TC       SUBEXIT                               
028085,000556: 35,2320           00006        AVFLAGP            EXTEND                                         #  AVFLAG = CSM
028086,000557: 35,2321           23466                           QXCH     SUBEXIT                               
028087,000558: 35,2322           05516                           TC       DOWNFLAG                              
028088,000559: 35,2323           00050                           ADRES    AVFLAG                                
028089,000560: 35,2324           01466                           TC       SUBEXIT                               
028090,000561: 35,2325           00006        P20FLGON           EXTEND                                         
028091,000562: 35,2326           23466                           QXCH     SUBEXIT                               
028092,000563: 35,2327           05504                           TC       UPFLAG                                
028093,000564: 35,2330           00027                           ADRES    UPDATFLG                              #  SET UPDATFLG
028094,000565: 35,2331           05504                           TC       UPFLAG                                
028095,000566: 35,2332           00031                           ADRES    TRACKFLG                              #  SET TRACKFLG
028096,000567: 35,2333           01466                           TC       SUBEXIT                               
028097,000568: 

Page 640

028099,000570:                                                                                                  #  ..... DISDVLVC .....
028100,000571: 
028101,000572:                                                                                                  #  SUBROUTINES USED
028102,000573: 
028103,000574:                                                                                                  #        S32/33.X
028104,000575:                                                                                                  #         VNPOOH
028105,000576: 
028106,000577: 35,2334           03432        DISDVLVC           STORE    DELVLVC                               
028107,000578: 35,2335           45020                           STQ      CALL                                  
028108,000579: 35,2336           03461                                    NORMEX                                
028109,000580: 35,2337           71120                                    S32/33.X                              
028110,000581: 35,2340           64375                           VLOAD    MXV                                   
028111,000582: 35,2341           03432                                    DELVLVC                               
028112,000583: 35,2342           00001                                    0D                                    
028113,000584: 35,2343           66172                           VSL1     SXA,1                                 
028114,000585: 35,2344           03613                                    VERBNOUN                              
028115,000586: 35,2345           03432                           STORE    DELVLVC                               
028116,000587: 35,2346           77776                           EXIT                                           
028117,000588: 35,2347           31613                           CA       VERBNOUN                              
028118,000589: 35,2350           03651                           TC       VNPOOH                                
028119,000590: 35,2351           06036                           TC       INTPRET                               
028120,000591: 35,2352           77650                           GOTO                                           
028121,000592: 35,2353           03461                                    NORMEX                                
028122,000593: 

Page 641

028124,000595:                                                                                                  #  ..... CONSTANTS .....
028125,000596: 
028126,000597: 35,2354           01413        V06N11             VN       0611                                  
028127,000598: 35,2355           01415        V06N13             VN       0613                                  
028128,000599: 35,2356           01513        V06N75             VN       0675                                  
028129,000600: 35,2357           77776 62460  SN359+             2DEC     -.000086601                            
028130,000601: 
028131,000602: 35,2361           17777 37776  CS359+             2DEC     +.499999992                            
028132,000603: 
028133,000604: 35,2363           00000 00000  P30ZERO            2DEC     0          B-28                       
028134,000605: 
028135,000606: 35,2365           00025 37100  60MIN              2DEC     360000     B-28                       
028136,000607: 
028137,000608: 35,2367           00600        ALARM/TB           OCT      00600                                 #  NO 1
028138,000609: 35,2370           00601                           OCT      00601                                 #     2
028139,000610: 35,2371           00602                           OCT      00602                                 #     3
028140,000611: 35,2372           00603                           OCT      00603                                 #     4
028141,000612: 35,2373           00604                           OCT      00604                                 #     5
028142,000613: 35,2374           00605                           OCT      00605                                 #     6
028143,000614: 35,2375           00606                           OCT      00606                                 #     7
028144,000615: 

Page 642

028146,000617:                                                                                                  #  ..... CSI/A     .....
028147,000618: 
028148,000619:                                                                                                  #  SUBROUTINES USED
028149,000620: 
028150,000621:                                                                                                  #        VECSHIFT
028151,000622:                                                                                                  #        TIMETHET
028152,000623:                                                                                                  #        PERIAPO
028153,000624:                                                                                                  #        SHIFTR1
028154,000625:                                                                                                  #        INTINT2C
028155,000626:                                                                                                  #        CDHMVR
028156,000627:                                                                                                  #        PERIAPO1
028157,000628:                                                                                                  #        INTINT
028158,000629:                                                                                                  #        ACTIVE
028159,000630: 
028160,000631: 34,2057                                           BANK     34                                    
028161,000632: 34,2000                                           SETLOC   CSI/CDH1                              
028162,000633: 34,2000                                           BANK                                           
028163,000634: 34,2057  E7,1466                                  EBANK=   SUBEXIT                               
028164,000635: 34,2057                                           COUNT*   $$/CSI                                
028165,000636: 34,2057           00000 00020  LOOPMX             2DEC     16         B-28                       
028166,000637: 
028167,000638: 34,2061           00003 34661  INITST             2DEC     .03048     B-7                        #       INITIAL DELDV = 10 FPS
028168,000639: 
028169,000640: 34,2063           00606 04467  DVMAX1             2DEC     3.0480     B-7                        #       MAXIMUM DV1 = 1000 FPS
028170,000641: 
028171,000642: 34,2065           00601 33216  DVMAX2             2DEC     3.014472   B-7                        #                      989 FPS
028172,000643: 
028173,000644: 34,2067           10000 00000  1DPB2              2DEC     1.0        B-2                        
028174,000645: 
028175,000646: 34,2071           00000 00001  1DPB28             2DEC     1          B-28                       
028176,000647: 
028177,000648: 34,2073           00004 31566  PMINE              2DEC     157420     B-29                       #  85 NM    - MUST BE 8 WORDS BEFORE PMINM
028178,000649: 
028179,000650: 34,2075           00000 01177  EPSILN1            2DEC     .0003048   B-7                        #       .1 FPS
028180,000651: 
028181,000652: 34,2077           00002 27311  NICKELDP           2DEC     .021336    B-7                        #  7 FPS (CHANGED FROM .05 FPS)
028182,000653: 
028183,000654: 34,2101           77754 57611  FIFPSDP            2DEC     -.152400   B-7                        #       50 FPS
028184,000655: 
028185,000656: 34,2103           00000 12326  PMINM              2DEC     10668      B-29                       #  35000 FT - MUST BE 8 WORDS AFTER PMINE
028186,000657: 
028187,000658: 34,2105           00116 00730  DELMAX1            2DEC     .6096000   B-7                        #       200 FPS
028188,000659: 
028189,000660: 34,2107           00000 06433  ONETHTH            2DEC     .0001      B-3                        
028190,000661: 
028191,000662: 34,2111           00003 25140  TMIN               2DEC     60000      B-28                       #  10 MIN
028192,000663: 
028193,000664: 34,2113           43014        CSI/A              CLEAR    SET                                   #  INITIALIZE INDICATORS
028194,000665: 34,2114           03260                                    S32.1F1                               #  DVT1 HAS EXCEEDED MAX INDICATOR
028195,000666: 34,2115           03061                                    S32.1F2                               #  FIRST PASS FOR NEWTON ITERATION INDICATR

Page 643

028197,000668: 34,2116           43014                           CLEAR    SET                                   
028198,000669: 34,2117           03262                                    S32.1F3A                              #  00=1ST 2 PASSES 2ND CYCLE 01=FIRST CYCLE
028199,000670: 34,2120           03063                                    S32.1F3B                              #  10=2ND CYCLE 11=50FPS STAGE 2ND CYCLE
028200,000671: 34,2121           77745                           DLOAD                                          
028201,000672: 34,2122           32364                                    P30ZERO                               
028202,000673: 34,2123           03604                           STORE    LOOPCT                                
028203,000674: 34,2124           03612                           STORE    CSIALRM                               
028204,000675: 34,2125           77201        CSI/B              SETPD    VLOAD                                 
028205,000676: 34,2126           00001                                    0D                                    
028206,000677: 34,2127           02307                                    RACT1                                 
028207,000678: 34,2130           41446                           ABVAL    PUSH                                  #  RA1                            B29 PL02D
028208,000679: 34,2131           70501                           NORM     SR1                                   
028209,000680: 34,2132           00050                                    X2                                    #                          B29-N2+ B1 PL04D
028210,000681: 34,2133           51515                           PDVL     ABVAL                                 
028211,000682: 34,2134           03550                                    RPASS3                                
028212,000683: 34,2135           55301                           NORM     BDDV                                  #  RA1/RP3                         B1 PL02D
028213,000684: 34,2136           00047                                    X1                                    
028214,000685: 34,2137           53664                           XSU,2    SR*                                   #                                  B2
028215,000686: 34,2140           00046                                    X1                                    
028216,000687: 34,2141           57175                                    1,2                                   
028217,000688: 34,2142           41215                           DAD      DMP                                   #  (1+(RA1/RP3))RA1        B29+B2=B31 PL00D
028218,000689: 34,2143           30070                                    1DPB2                                 
028219,000690: 34,2144           65301                           NORM     PDDL                                  #                                     PL02D
028220,000691: 34,2145           00047                                    X1                                    
028221,000692: 34,2146           02325                                    RTMU                                  
028222,000693: 34,2147           56342                           SR1      DDV                                   #                         B38-B31= B7 PL00D
028223,000694: 34,2150           75457                           SL*      SQRT                                  #                                  B7
028224,000695: 34,2151           20172                                    0          -7,1                       
028225,000696: 34,2152           53515                           PDVL     UNIT                                  #                                     PL02D
028226,000697: 34,2153           02307                                    RACT1                                 
028227,000698: 34,2154           47315                           PDVL     VXV                                   
028228,000699: 34,2155           02265                                    UP1                                   
028229,000700: 34,2156           77656                           UNIT                                           #  UNIT(URP1 X UVP1 X URA1) = UH1
028230,000701: 34,2157           72441                           DOT      SL1                                   #  VA1 . UH1                       B7
028231,000702: 34,2160           03470                                    VACT1                                 
028232,000703: 34,2161           45421                           BDSU     STADR                                 #                                     PL00D
028233,000704: 34,2162           60205                           STODL    DELVCSI                               
028234,000705: 34,2163           30062                                    INITST                                #  10 FPS
028235,000706: 34,2164           03610                           STORE    DELDV                                 
028236,000707: 34,2165           43345        CSI/B1             DLOAD    DAD                                   #  IF LOOPCT = 16
028237,000708: 34,2166           03604                                    LOOPCT                                
028238,000709: 34,2167           30072                                    1DPB28                                
028239,000710: 34,2170           03604                           STORE    LOOPCT                                
028240,000711: 34,2171           77025                           DSU      AXT,2                                 
028241,000712: 34,2172           30060                                    LOOPMX                                
028242,000713: 34,2173           00006                                    6                                     
028243,000714: 34,2174           77644                           BPL                                            
028244,000715: 34,2175           70776                                    SCNDSOL                               
028245,000716: 34,2176           77601        CSI/B2             SETPD                                          
028246,000717: 34,2177           00001                                    0D                                    

Page 644

028248,000719: 34,2200           51545                           DLOAD    ABS                                   
028249,000720: 34,2201           03572                                    DELVCSI                               
028250,000721: 34,2202           50025                           DSU      BMN                                   
028251,000722: 34,2203           30064                                    DVMAX1                                
028252,000723: 34,2204           70224                                    CSI/B23                               
028253,000724: 34,2205           43174                           AXT,2    BON                                   
028254,000725: 34,2206           00007                                    7                                     
028255,000726: 34,2207           03300                                    S32.1F1                               
028256,000727: 34,2210           70776                                    SCNDSOL                               
028257,000728: 34,2211           43014                           BOFF     BON                                   
028258,000729: 34,2212           03342                                    S32.1F3A                              
028259,000730: 34,2213           70216                                    CSI/B22                               #  FLAG 3 NEQ 3
028260,000731: 34,2214           03303                                    S32.1F3B                              
028261,000732: 34,2215           70776                                    SCNDSOL                               
028262,000733: 34,2216           71214        CSI/B22            SET      DLOAD                                 
028263,000734: 34,2217           03060                                    S32.1F1                               
028264,000735: 34,2220           30066                                    DVMAX2                                
028265,000736: 34,2221           77765                           SIGN                                           
028266,000737: 34,2222           03572                                    DELVCSI                               
028267,000738: 34,2223           03572                           STORE    DELVCSI                               
028268,000739: 34,2224           41575        CSI/B23            VLOAD    PUSH                                  
028269,000740: 34,2225           02307                                    RACT1                                 
028270,000741: 34,2226           63256                           UNIT     PDVL                                  
028271,000742: 34,2227           02265                                    UP1                                   
028272,000743: 34,2230           53435                           VXV      UNIT                                  #  UNIT(URP1 X UVP1 X URA1) = UH1
028273,000744: 34,2231           76561                           VXSC     VSL1                                  
028274,000745: 34,2232           03572                                    DELVCSI                               
028275,000746: 34,2233           02273                           STORE    DELVEET1                              
028276,000747: 34,2234           40055                           VAD      BOV                                   
028277,000748: 34,2235           03470                                    VACT1                                 
028278,000749: 34,2236           70237                                    CSI/B23D                              
028279,000750: 34,2237           37564        CSI/B23D           STCALL   VACT4                                 
028280,000751: 34,2240           46377                                    VECSHIFT                              
028281,000752: 34,2241           26744                           STOVL    VVEC                                  
028282,000753: 34,2242           77614                           SET                                            
028283,000754: 34,2243           03466                                    RVSW                                  
028284,000755: 34,2244           26655                           STOVL    RVEC                                  
028285,000756: 34,2245           32360                                    SN359+                                
028286,000757: 34,2246           36730                           STCALL   SNTH                                  #  ALSO CSTH
028287,000758: 34,2247           24745                                    TIMETHET                              
028288,000759: 34,2250           72142                           SR1      LXA,1                                 
028289,000760: 34,2251           03375                                    RTX1                                  
028290,000761: 34,2252           37602                           STCALL   HAFPA1                                
028291,000762: 34,2253           46307                                    PERIAPO                               
028292,000763: 34,2254           77624                           CALL                                           
028293,000764: 34,2255           46407                                    SHIFTR1                               
028294,000765: 34,2256           17600                           STODL    POSTCSI                               
028295,000766: 34,2257           03617                                    CENTANG                               
028296,000767: 34,2260           52054                           BZE      GOTO                                  
028297,000768: 34,2261           70263                                    +2                                    

Page 645

028299,000770: 34,2262           70372                                    CIRCL                                 
028300,000771: 34,2263           77745                           DLOAD                                          
028301,000772: 34,2264           02752                                    ECC                                   
028302,000773: 34,2265           50025                           DSU      BMN                                   
028303,000774: 34,2266           30110                                    ONETHTH                               
028304,000775: 34,2267           70372                                    CIRCL                                 
028305,000776: 34,2270           45145                           DLOAD    CALL                                  
028306,000777: 34,2271           00041                                    R1                                    
028307,000778: 34,2272           46407                                    SHIFTR1                               
028308,000779: 34,2273           60201                           SETPD    NORM                                  
028309,000780: 34,2274           00003                                    2D                                    
028310,000781: 34,2275           00047                                    X1                                    
028311,000782: 34,2276           50315                           PDVL     DOT                                   #                                     PL04D
028312,000783: 34,2277           02307                                    RACT1                                 
028313,000784: 34,2300           03564                                    VACT4                                 
028314,000785: 34,2301           56246                           ABS      DDV                                   
028315,000786: 34,2302           00003                                    02D                                   #  (/RDOTV/)/R1           B36-B29= B7
028316,000787: 34,2303           45257                           SL*      DSU                                   
028317,000788: 34,2304           20201                                    0,1                                   
028318,000789: 34,2305           30100                                    NICKELDP                              
028319,000790: 34,2306           71240                           BMN      DLOAD                                 
028320,000791: 34,2307           70372                                    CIRCL                                 
028321,000792: 34,2310           02740                                    P                                     
028322,000793: 34,2311           45312                           SL2      DSU                                   
028323,000794: 34,2312           30070                                    1DPB2                                 
028324,000795: 34,2313           14017                           STODL    14D                                   
028325,000796: 34,2314           02323                                    RTSR1/MU                              
028326,000797: 34,2315           56342                           SR1      DDV                                   #  (1/ROOTMU)/R1      B-16-B29 = B-45 PL02D
028327,000798: 34,2316           41325                           PDDL     DMP                                   
028328,000799: 34,2317           02740                                    P                                     
028329,000800: 34,2320           00041                                    R1                                    
028330,000801: 34,2321           77624                           CALL                                           
028331,000802: 34,2322           46407                                    SHIFTR1                               
028332,000803: 34,2323           72412                           SL4      SL1                                   
028333,000804: 34,2324           41366                           SQRT     DMP                                   #  ((P/MU)**.5)/R1    B14+B-45 = B-31 PL02D
028334,000805: 34,2325           52414                           BOFF     SL3                                   
028335,000806: 34,2326           04343                                    CMOONFLG                              
028336,000807: 34,2327           70330                                    CSI/B3                                
028337,000808: 34,2330           50315        CSI/B3             PDVL     DOT                                   
028338,000809: 34,2331           02307                                    RACT1                                 
028339,000810: 34,2332           03564                                    VACT4                                 
028340,000811: 34,2333           03615                           STORE    RDOTV                                 
028341,000812: 34,2334           77646                           ABS                                            
028342,000813: 34,2335           41301                           NORM     DMP                                   #  ((P/MU)**.5)RDOTV/R1               PL02D
028343,000814: 34,2336           00050                                    X2                                    
028344,000815: 34,2337           53660                           XSU,1    SL*                                   #                   B-31+B36-B3 = B2
028345,000816: 34,2340           00047                                    X2                                    
028346,000817: 34,2341           20204                                    3,1                                   
028347,000818: 34,2342           14015                           STODL    12D                                   
028348,000819: 34,2343           32364                                    P30ZERO                               

Page 646

028350,000821: 34,2344           00021                           STORE    16D                                   
028351,000822: 34,2345           53575                           VLOAD    UNIT                                  
028352,000823: 34,2346           00015                                    12D                                   
028353,000824: 34,2347           26730                           STOVL    SNTH                                  #  ALSO STORES CSTH AND 0
028354,000825: 34,2350           02307                                    RACT1                                 
028355,000826: 34,2351           75315                           PDVL     SIGN                                  
028356,000827: 34,2352           03564                                    VACT4                                 
028357,000828: 34,2353           03615                                    RDOTV                                 
028358,000829: 34,2354           45076                           VCOMP    CALL                                  
028359,000830: 34,2355           46377                                    VECSHIFT                              
028360,000831: 34,2356           26744                           STOVL    VVEC                                  
028361,000832: 34,2357           77614                           SET                                            
028362,000833: 34,2360           03466                                    RVSW                                  
028363,000834: 34,2361           36655                           STCALL   RVEC                                  
028364,000835: 34,2362           24745                                    TIMETHET                              
028365,000836: 34,2363           51125                           PDDL     BPL                                   
028366,000837: 34,2364           03615                                    RDOTV                                 
028367,000838: 34,2365           70376                                    NTP/2                                 
028368,000839: 34,2366           45345                           DLOAD    DSU                                   
028369,000840: 34,2367           03602                                    HAFPA1                                
028370,000841: 34,2370           52006                           PUSH     GOTO                                  
028371,000842: 34,2371           70376                                    NTP/2                                 
028372,000843: 34,2372           71201        CIRCL              SETPD    DLOAD                                 
028373,000844: 34,2373           00001                                    00D                                   
028374,000845: 34,2374           32364                                    P30ZERO                               
028375,000846: 34,2375           77606                           PUSH                                           
028376,000847: 34,2376           41345        NTP/2              DLOAD    DMP                                   
028377,000848: 34,2377           03465                                    NN                                    
028378,000849: 34,2400           03602                                    HAFPA1                                
028379,000850: 34,2401           45261                           SL       DSU                                   
028380,000851: 34,2402           20217                                    14D                                   
028381,000852: 34,2403           77615                           DAD                                            
028382,000853: 34,2404           03632                                    TCSI                                  
028383,000854: 34,2405           03374                           STORE    TCDH                                  
028384,000855: 34,2406           77021                           BDSU     AXT,2                                 
028385,000856: 34,2407           03634                                    TTPI                                  
028386,000857: 34,2410           00005                                    5D                                    
028387,000858: 34,2411           40240                           BMN      SETPD                                 
028388,000859: 34,2412           70776                                    SCNDSOL                               
028389,000860: 34,2413           00001                                    0D                                    
028390,000861: 34,2414           63375                           VLOAD    PDVL                                  
028391,000862: 34,2415           03564                                    VACT4                                 
028392,000863: 34,2416           02307                                    RACT1                                 
028393,000864: 34,2417           77624                           CALL                                           
028394,000865: 34,2420           71062                                    INTINT2C                              
028395,000866: 34,2421           26315                           STOVL    RACT2                                 
028396,000867: 34,2422           00007                                    VATT                                  
028397,000868: 34,2423           27512                           STOVL    VACT2                                 
028398,000869: 34,2424           03504                                    VPASS1                                
028399,000870: 34,2425           63201                           SETPD    PDVL                                  

Page 647

028401,000872: 34,2426           00001                                    0D                                    
028402,000873: 34,2427           03476                                    RPASS1                                
028403,000874: 34,2430           77624                           CALL                                           
028404,000875: 34,2431           71062                                    INTINT2C                              
028405,000876: 34,2432           27520                           STOVL    RPASS2                                
028406,000877: 34,2433           00007                                    VATT                                  
028407,000878: 34,2434           37526                           STCALL   VPASS2                                
028408,000879: 34,2435           71133                                    CDHMVR                                
028409,000880: 34,2436           40375                           VLOAD    SETPD                                 
028410,000881: 34,2437           02315                                    RACT2                                 
028411,000882: 34,2440           00001                                    0D                                    
028412,000883: 34,2441           45115                           PDVL     CALL                                  
028413,000884: 34,2442           03542                                    VACT3                                 
028414,000885: 34,2443           46277                                    PERIAPO1                              
028415,000886: 34,2444           77624                           CALL                                           
028416,000887: 34,2445           46407                                    SHIFTR1                               
028417,000888: 34,2446           27602                           STOVL    POSTCDH                               
028418,000889: 34,2447           03542                                    VACT3                                 
028419,000890: 34,2450           63201                           SETPD    PDVL                                  
028420,000891: 34,2451           00001                                    0D                                    
028421,000892: 34,2452           02315                                    RACT2                                 
028422,000893: 34,2453           65325                           PDDL     PDDL                                  
028423,000894: 34,2454           03374                                    TCDH                                  
028424,000895: 34,2455           03634                                    TTPI                                  
028425,000896: 34,2456           41525                           PDDL     PUSH                                  
028426,000897: 34,2457           33671                                    TWOPI                                 
028427,000898: 34,2460           77624                           CALL                                           
028428,000899: 34,2461           73422                                    INTINT                                
028429,000900: 34,2462           77624                           CALL                                           
028430,000901: 34,2463           46363                                    ACTIVE                                
028431,000902: 34,2464           77745                           DLOAD                                          
028432,000903: 34,2465           02263                                    ELEV                                  
028433,000904: 34,2466           73401                           SETPD    SINE                                  
028434,000905: 34,2467           00007                                    6D                                    
028435,000906: 34,2470           53515                           PDVL     UNIT                                  
028436,000907: 34,2471           03534                                    RACT3                                 
028437,000908: 34,2472           00001                           STORE    00D                                   #  URA3 AT 00D
028438,000909: 34,2473           47315                           PDVL     VXV                                   #  PL14D,PL08D
028439,000910: 34,2474           02265                                    UP1                                   
028440,000911: 34,2475           77656                           UNIT                                           
028441,000912: 34,2476           71525                           PDDL     COSINE                                #  UNIT(URA3XUVA3XURA3) = UH3      B1 PL14D
028442,000913: 34,2477           02263                                    ELEV                                  
028443,000914: 34,2500           45561                           VXSC     STADR                                 #  (COSLOS)(UH3)                   B2 PL08D
028444,000915: 34,2501           77754                           STORE    18D                                   #      PLUS
028445,000916: 34,2502           74345                           DLOAD    VXSC                                  #  (SINLOS)(URA3) = U              B2 PL00D
028446,000917: 34,2503           76455                           VAD      VSL1                                  
028447,000918: 34,2504           00023                                    18D                                   #                                  B1
028448,000919: 34,2505           50206                           PUSH     DOT                                   #                                     PL06D
028449,000920: 34,2506           03534                                    RACT3                                 #  (U . RA3) = TEMP1      B1 +B29=B30
028450,000921: 34,2507           41552                           SL1      PUSH                                  #                                 B29 PL08D

Page 648

028452,000923: 34,2510           72316                           DSQ      TLOAD                                 #  TEMP1**2                       B58
028453,000924: 34,2511           00155                                    MPAC                                  
028454,000925: 34,2512           50315                           PDVL     DOT                                   #                                     PL11D
028455,000926: 34,2513           03534                                    RACT3                                 
028456,000927: 34,2514           03534                                    RACT3                                 
028457,000928: 34,2515           57551                           TLOAD    DCOMP                                 #  RA3.RA3
028458,000929: 34,2516           00155                                    MPAC                                  
028459,000930: 34,2517           50315                           PDVL     DOT                                   #  RP3.RP3                        B58 PL14D
028460,000931: 34,2520           03550                                    RPASS3                                
028461,000932: 34,2521           03550                                    RPASS3                                #                                     PL11D
028462,000933: 34,2522           76371                           TAD      TAD                                   #  TEMP1**2+RA3.RA3+RP3.RP3=TEMP2     PL08D
028463,000934: 34,2523           71244                           BPL      DLOAD                                 
028464,000935: 34,2524           70542                                    K1ORK2                                
028465,000936: 34,2525           03604                                    LOOPCT                                
028466,000937: 34,2526           77025                           DSU      AXT,2                                 
028467,000938: 34,2527           30072                                    1DPB28                                
028468,000939: 34,2530           00001                                    1D                                    
028469,000940: 34,2531           77654                           BZE                                            
028470,000941: 34,2532           72036                                    ALMXITA                               
028471,000942: 34,2533           70545                           DLOAD    SR1                                   
028472,000943: 34,2534           03610                                    DELDV                                 
028473,000944: 34,2535           03610                           STORE    DELDV                                 
028474,000945: 34,2536           77621                           BDSU                                           
028475,000946: 34,2537           03574                                    DVPREV                                
028476,000947: 34,2540           37572                           STCALL   DELVCSI                               
028477,000948: 34,2541           70165                                    CSI/B1                                
028478,000949: 34,2542           41566        K1ORK2             SQRT     PUSH                                  #  TEMP3 = TEMP2**.5              B29 PL10D
028479,000950: 34,2543           45276                           DCOMP    DSU                                   
028480,000951: 34,2544           00007                                    06D                                   #  -TEMP1-TEMP3 =K2 AT 10D
028481,000952: 34,2545           14013                           STODL    10D                                   #                                     PL08D
028482,000953: 34,2546           45425                           DSU      STADR                                 #                                     PL06D
028483,000954: 34,2547           77762                           STORE    12D                                   #  -TEMP1+TEMP3 =K1 AT 12D
028484,000955: 34,2550           77646                           ABS                                            
028485,000956: 34,2551           14017                           STODL    14D                                   
028486,000957: 34,2552           00013                                    10D                                   
028487,000958: 34,2553           45246                           ABS      DSU                                   
028488,000959: 34,2554           00017                                    14D                                   
028489,000960: 34,2555           71240                           BMN      DLOAD                                 
028490,000961: 34,2556           70561                                    K2.                                   
028491,000962: 34,2557           00015                                    12D                                   
028492,000963: 34,2560           00013                           STORE    10D                                   #  K=K1
028493,000964: 34,2561           77745        K2.                DLOAD                                          
028494,000965: 34,2562           00013                                    10D                                   
028495,000966: 34,2563           76561                           VXSC     VSL1                                  
028496,000967: 34,2564           53455                           VAD      UNIT                                  #  V=RA3+KU  UNIT                  B1
028497,000968: 34,2565           03534                                    RACT3                                 
028498,000969: 34,2566           53515                           PDVL     UNIT                                  
028499,000970: 34,2567           03550                                    RPASS3                                #                                     PL06D
028500,000971: 34,2570           53515                           PDVL     UNIT                                  
028501,000972: 34,2571           03556                                    VPASS3                                #                                     PL12D

Page 649

028503,000974: 34,2572           63235                           VXV      PDVL                                  #  UVP3 X URP3                        PL18D
028504,000975: 34,2573           00007                                    06D                                   
028505,000976: 34,2574           00007                                    06D                                   
028506,000977: 34,2575           50235                           VXV      DOT                                   
028507,000978: 34,2576           00001                                    00D                                   
028508,000979: 34,2577           77626                           STADR                                          #                                     PL12D
028509,000980: 34,2600           53762                           STOVL    12D                                   #  (URP3XV).(UVP3XURP3)=TEMP          PL06D
028510,000981: 34,2601           72441                           DOT      SL1                                   #                                     PL00D
028511,000982: 34,2602           75326                           ARCCOS   SIGN                                  
028512,000983: 34,2603           00015                                    12D                                   #                                  B0
028513,000984: 34,2604           41542                           SR1      PUSH                                  #  GAMMA=SIGN(TEMP)ARCOS(UNITV.URP3)  PL02D
028514,000985: 34,2605           71214                           BON      DLOAD                                 
028515,000986: 34,2606           03301                                    S32.1F2                               
028516,000987: 34,2607           70644                                    FRSTPAS                               
028517,000988: 34,2610           00001                                    00D                                   #  NOT THE FIRST PASS OF A CYCLE
028518,000989: 34,2611           65225                           DSU      PDDL                                  #  GAMMA-GAMPREV                   B1 PL04D
028519,000990: 34,2612           03606                                    GAMPREV                               
028520,000991: 34,2613           03572                                    DELVCSI                               
028521,000992: 34,2614           60225                           DSU      NORM                                  #                                  B7
028522,000993: 34,2615           03574                                    DVPREV                                
028523,000994: 34,2616           00047                                    X1                                    
028524,000995: 34,2617           65265                           BDDV     PDDL                                  #  (GAM-GAMPREV)/(DV-DVPREV)   B-6+N1 PL06D
028525,000996: 34,2620           00003                                    02D                                   #          = SLOPE
028526,000997: 34,2621           03572                                    DELVCSI                               
028527,000998: 34,2622           03574                           STORE    DVPREV                                
028528,000999: 34,2623           43014                           BOFF     BOFF                                  
028529,001000: 34,2624           03342                                    S32.1F3A                              
028530,001001: 34,2625           70656                                    THRDCHK                               
028531,001002: 34,2626           03343                                    S32.1F3B                              
028532,001003: 34,2627           70656                                    THRDCHK                               
028533,001004: 34,2630           41345                           DLOAD    DMP                                   
028534,001005: 34,2631           00003                                    02D                                   
028535,001006: 34,2632           03606                                    GAMPREV                               
028536,001007: 34,2633           71244                           BPL      DLOAD                                 
028537,001008: 34,2634           70663                                    FIFTYFPS                              
028538,001009: 34,2635           30062                                    INITST                                
028539,001010: 34,2636           77765                           SIGN                                           
028540,001011: 34,2637           03610                                    DELDV                                 
028541,001012: 34,2640           03610                           STORE    DELDV                                 
028542,001013: 34,2641           43014                           SET      CLEAR                                 
028543,001014: 34,2642           03062                                    S32.1F3A                              
028544,001015: 34,2643           03263                                    S32.1F3B                              
028545,001016: 34,2644           77745        FRSTPAS            DLOAD                                          
028546,001017: 34,2645           00001                                    00D                                   
028547,001018: 34,2646           17606                           STODL    GAMPREV                               
028548,001019: 34,2647           03572                                    DELVCSI                               
028549,001020: 34,2650           03574                           STORE    DVPREV                                
028550,001021: 34,2651           43025                           DSU      CLEAR                                 
028551,001022: 34,2652           03610                                    DELDV                                 
028552,001023: 34,2653           03261                                    S32.1F2                               

Page 650

028554,001025: 34,2654           37572                           STCALL   DELVCSI                               
028555,001026: 34,2655           70165                                    CSI/B1                                
028556,001027: 34,2656           43014        THRDCHK            BON      BON                                   
028557,001028: 34,2657           03302                                    S32.1F3A                              
028558,001029: 34,2660           70702                                    NEWTN                                 
028559,001030: 34,2661           03303                                    S32.1F3B                              
028560,001031: 34,2662           70702                                    NEWTN                                 
028561,001032: 34,2663           75345        FIFTYFPS           DLOAD    SIGN                                  
028562,001033: 34,2664           30102                                    FIFPSDP                               
028563,001034: 34,2665           00005                                    04D                                   
028564,001035: 34,2666           77765                           SIGN                                           
028565,001036: 34,2667           03606                                    GAMPREV                               
028566,001037: 34,2670           03610                           STORE    DELDV                                 
028567,001038: 34,2671           43276                           DCOMP    DAD                                   
028568,001039: 34,2672           03572                                    DELVCSI                               
028569,001040: 34,2673           17572                           STODL    DELVCSI                               
028570,001041: 34,2674           00001                                    00D                                   
028571,001042: 34,2675           43014                           SET      SET                                   
028572,001043: 34,2676           03063                                    S32.1F3B                              
028573,001044: 34,2677           03062                                    S32.1F3A                              
028574,001045: 34,2700           37606                           STCALL   GAMPREV                               
028575,001046: 34,2701           70176                                    CSI/B2                                
028576,001047: 34,2702           60345        NEWTN              DLOAD    NORM                                  
028577,001048: 34,2703           00005                                    04D                                   
028578,001049: 34,2704           00050                                    X2                                    
028579,001050: 34,2705           54065                           BDDV     XSU,1                                 
028580,001051: 34,2706           00001                                    00D                                   
028581,001052: 34,2707           00047                                    X2                                    
028582,001053: 34,2710           77657                           SR*                                            
028583,001054: 34,2711           20601                                    0,1                                   
028584,001055: 34,2712           17610                           STODL    DELDV                                 
028585,001056: 34,2713           00001                                    00D                                   
028586,001057: 34,2714           03606                           STORE    GAMPREV                               
028587,001058: 34,2715           51545                           DLOAD    ABS                                   
028588,001059: 34,2716           03610                                    DELDV                                 #                                     PL08D
028589,001060: 34,2717           45206                           PUSH     DSU                                   
028590,001061: 34,2720           30076                                    EPSILN1                               
028591,001062: 34,2721           71240                           BMN      DLOAD                                 
028592,001063: 34,2722           70737                                    CSI/SOL                               
028593,001064: 34,2723           50025                           DSU      BMN                                   
028594,001065: 34,2724           30106                                    DELMAX1                               
028595,001066: 34,2725           70732                                    CSISTEP                               
028596,001067: 34,2726           75345                           DLOAD    SIGN                                  
028597,001068: 34,2727           30106                                    DELMAX1                               
028598,001069: 34,2730           03610                                    DELDV                                 
028599,001070: 34,2731           03610                           STORE    DELDV                                 
028600,001071: 34,2732           45345        CSISTEP            DLOAD    DSU                                   
028601,001072: 34,2733           03572                                    DELVCSI                               
028602,001073: 34,2734           03610                                    DELDV                                 
028603,001074: 34,2735           37572                           STCALL   DELVCSI                               

Page 651

028605,001076: 34,2736           70165                                    CSI/B1                                
028606,001077: 34,2737           77145        CSI/SOL            DLOAD    AXT,2                                 
028607,001078: 34,2740           03600                                    POSTCSI                               
028608,001079: 34,2741           00002                                    2                                     
028609,001080: 34,2742           77750                           LXA,1                                          
028610,001081: 34,2743           03375                                    RTX1                                  
028611,001082: 34,2744           50023                           DSU*     BMN                                   
028612,001083: 34,2745           30072                                    PMINE      -2,1                       
028613,001084: 34,2746           70776                                    SCNDSOL                               
028614,001085: 34,2747           71374                           AXT,2    DLOAD                                 
028615,001086: 34,2750           00003                                    3                                     
028616,001087: 34,2751           03602                                    POSTCDH                               
028617,001088: 34,2752           50023                           DSU*     BMN                                   
028618,001089: 34,2753           30072                                    PMINE      -2,1                       
028619,001090: 34,2754           70776                                    SCNDSOL                               
028620,001091: 34,2755           45345                           DLOAD    DSU                                   
028621,001092: 34,2756           03374                                    TCDH                                  
028622,001093: 34,2757           03632                                    TCSI                                  
028623,001094: 34,2760           02257                           STORE    T1TOT2                                
028624,001095: 34,2761           45374                           AXT,2    DSU                                   
028625,001096: 34,2762           00004                                    4                                     
028626,001097: 34,2763           30112                                    TMIN                                  
028627,001098: 34,2764           77040                           BMN      AXT,2                                 
028628,001099: 34,2765           70776                                    SCNDSOL                               
028629,001100: 34,2766           00005                                    5                                     
028630,001101: 34,2767           45345                           DLOAD    DSU                                   
028631,001102: 34,2770           03634                                    TTPI                                  
028632,001103: 34,2771           03374                                    TCDH                                  
028633,001104: 34,2772           02261                           STORE    T2TOT3                                
028634,001105: 34,2773           51025                           DSU      BPL                                   
028635,001106: 34,2774           30112                                    TMIN                                  
028636,001107: 34,2775           72116                                    P32/P72C                              
028637,001108: 34,2776           43014        SCNDSOL            BON      BOFF                                  
028638,001109: 34,2777           03302                                    S32.1F3A                              
028639,001110: 34,3000           72040                                    ALMXIT                                
028640,001111: 34,3001           03343                                    S32.1F3B                              
028641,001112: 34,3002           72040                                    ALMXIT                                
028642,001113: 34,3003           71334                           SXA,2    DLOAD                                 
028643,001114: 34,3004           03611                                    CSIALRM                               
028644,001115: 34,3005           32364                                    P30ZERO                               
028645,001116: 34,3006           43014                           CLEAR    SET                                   
028646,001117: 34,3007           03260                                    S32.1F1                               
028647,001118: 34,3010           03061                                    S32.1F2                               
028648,001119: 34,3011           43014                           CLEAR    CLEAR                                 
028649,001120: 34,3012           03262                                    S32.1F3A                              
028650,001121: 34,3013           03263                                    S32.1F3B                              
028651,001122: 34,3014           37604                           STCALL   LOOPCT                                
028652,001123: 34,3015           70125                                    CSI/B                                 
028653,001124: 

Page 652

028655,001126:                                                                                                  #  ..... ADVANCE   .....
028656,001127: 
028657,001128:                                                                                                  #  SUBROUTINES USED
028658,001129: 
028659,001130:                                                                                                  #        PRECSET
028660,001131:                                                                                                  #        ROTATE
028661,001132: 
028662,001133: 34,3016           71220        ADVANCE            STQ      DLOAD                                 
028663,001134: 34,3017           03466                                    SUBEXIT                               
028664,001135: 34,3020           03440                                    TIG                                   
028665,001136: 34,3021           34041                           STCALL   TDEC1                                 
028666,001137: 34,3022           46341                                    PRECSET                               
028667,001138: 34,3023           77214                           SET      VLOAD                                 
028668,001139: 34,3024           01067                                    XDELVFLG                              
028669,001140: 34,3025           03556                                    VPASS3                                
028670,001141: 34,3026           03526                           STORE    VPASS2                                
028671,001142: 34,3027           27504                           STOVL    VPASS1                                
028672,001143: 34,3030           03550                                    RPASS3                                
028673,001144: 34,3031           03520                           STORE    RPASS2                                
028674,001145: 34,3032           03476                           STORE    RPASS1                                
028675,001146: 34,3033           47256                           UNIT     VXV                                   
028676,001147: 34,3034           03504                                    VPASS1                                
028677,001148: 34,3035           77656                           UNIT                                           
028678,001149: 34,3036           26265                           STOVL    UP1                                   
028679,001150: 34,3037           03534                                    RACT3                                 
028680,001151: 34,3040           37640                           STCALL   RTIG                                  
028681,001152: 34,3041           71052                                    ROTATE                                
028682,001153: 34,3042           02315                           STORE    RACT2                                 
028683,001154: 34,3043           26307                           STOVL    RACT1                                 
028684,001155: 34,3044           03542                                    VACT3                                 
028685,001156: 34,3045           37646                           STCALL   VTIG                                  
028686,001157: 34,3046           71052                                    ROTATE                                
028687,001158: 34,3047           03512                           STORE    VACT2                                 
028688,001159: 34,3050           37470                           STCALL   VACT1                                 
028689,001160: 34,3051           03466                                    SUBEXIT                               
028690,001161: 

Page 653

028692,001163:                                                                                                  #  ..... ROTATE    .....
028693,001164: 
028694,001165: 34,3052           41406        ROTATE             PUSH     PUSH                                  
028695,001166: 34,3053           74241                           DOT      VXSC                                  
028696,001167: 34,3054           02265                                    UP1                                   
028697,001168: 34,3055           02265                                    UP1                                   
028698,001169: 34,3056           51352                           VSL2     BVSU                                  
028699,001170: 34,3057           63256                           UNIT     PDVL                                  
028700,001171: 34,3060           74246                           ABVAL    VXSC                                  
028701,001172: 34,3061           43572                           VSL1     RVQ                                   
028702,001173: 

Page 654

028704,001175:                                                                                                  #  ..... INTINTNA  .....
028705,001176: 
028706,001177: 34,3062           65325        INTINT2C           PDDL     PDDL                                  
028707,001178: 34,3063           03632                                    TCSI                                  
028708,001179: 34,3064           03374                                    TCDH                                  
028709,001180: 34,3065           41525                           PDDL     PUSH                                  
028710,001181: 34,3066           33671                                    TWOPI                                 
028711,001182: 34,3067           77650                           GOTO                                           
028712,001183: 34,3070           73422                                    INTINT                                
028713,001184: 34,3071           65325        INTINT3P           PDDL     PDDL                                  
028714,001185: 34,3072           03374                                    TCDH                                  
028715,001186: 34,3073           03634                                    TTPI                                  
028716,001187: 34,3074           41525                           PDDL     PUSH                                  
028717,001188: 34,3075           32364                                    P30ZERO                               
028718,001189: 34,3076           77650                           GOTO                                           
028719,001190: 34,3077           73422                                    INTINT                                
028720,001191: 

Page 655

028722,001193:                                                                                                  #  ..... S32/33.1  .....
028723,001194: 
028724,001195:                                                                                                  #  SUBROUTINES USED
028725,001196: 
028726,001197:                                                                                                  #        S32/33.X
028727,001198: 
028728,001199: 34,3100           76020        S32/33.1           STQ      AXT,1                                 
028729,001200: 34,3101           03466                                    SUBEXIT                               
028730,001201: 34,3102           01521                           VN       0681                                  
028731,001202: 34,3103           77624                           CALL                                           
028732,001203: 34,3104           72334                                    DISDVLVC                              
028733,001204: 34,3105           77624                           CALL                                           
028734,001205: 34,3106           71120                                    S32/33.X                              
028735,001206: 34,3107           61375                           VLOAD    VXM                                   
028736,001207: 34,3110           03432                                    DELVLVC                               
028737,001208: 34,3111           00001                                    0D                                    
028738,001209: 34,3112           77772                           VSL1                                           
028739,001210: 34,3113           03654                           STORE    DELVSIN                               
028740,001211: 34,3114           51406                           PUSH     ABVAL                                 
028741,001212: 34,3115           27662                           STOVL    DELVSAB                               
028742,001213: 34,3116           77650                           GOTO                                           
028743,001214: 34,3117           03466                                    SUBEXIT                               
028744,001215: 

Page 656

028746,001217:                                                                                                  #  ..... S32/33.X  .....
028747,001218: 
028748,001219: 34,3120           77201        S32/33.X           SETPD    VLOAD                                 
028749,001220: 34,3121           00007                                    6D                                    
028750,001221: 34,3122           02265                                    UP1                                   
028751,001222: 34,3123           63276                           VCOMP    PDVL                                  
028752,001223: 34,3124           02307                                    RACT1                                 
028753,001224: 34,3125           57456                           UNIT     VCOMP                                 
028754,001225: 34,3126           47206                           PUSH     VXV                                   
028755,001226: 34,3127           02265                                    UP1                                   
028756,001227: 34,3130           77772                           VSL1                                           
028757,001228: 34,3131           00001                           STORE    0D                                    
028758,001229: 34,3132           77616                           RVQ                                            
028759,001230: 

Page 657

028761,001232:                                                                                                  #  ..... CDHMVR    .....
028762,001233: 
028763,001234:                                                                                                  #  SUBROUTINES USED
028764,001235: 
028765,001236:                                                                                                  #        VECSHIFT
028766,001237:                                                                                                  #        TIMETHET
028767,001238:                                                                                                  #        SHIFTR1
028768,001239: 
028769,001240: 34,3133           77220        CDHMVR             STQ      VLOAD                                 
028770,001241: 34,3134           03466                                    SUBEXIT                               
028771,001242: 34,3135           02315                                    RACT2                                 
028772,001243: 34,3136           53406                           PUSH     UNIT                                  
028773,001244: 34,3137           27542                           STOVL    UNVEC                                 #  UR SUB A
028774,001245: 34,3140           03520                                    RPASS2                                
028775,001246: 34,3141           50256                           UNIT     DOT                                   
028776,001247: 34,3142           03542                                    UNVEC                                 
028777,001248: 34,3143           72406                           PUSH     SL1                                   
028778,001249: 34,3144           16732                           STODL    CSTH                                  
028779,001250: 34,3145           65316                           DSQ      PDDL                                  
028780,001251: 34,3146           06414                                    DP1/4TH                               
028781,001252: 34,3147           45302                           SR2      DSU                                   
028782,001253: 34,3150           72566                           SQRT     SL1                                   
028783,001254: 34,3151           57515                           PDVL     VCOMP                                 
028784,001255: 34,3152           77635                           VXV                                            
028785,001256: 34,3153           03520                                    RPASS2                                
028786,001257: 34,3154           65241                           DOT      PDDL                                  
028787,001258: 34,3155           02265                                    UP1                                   
028788,001259: 34,3156           45565                           SIGN     STADR                                 
028789,001260: 34,3157           51047                           STOVL    SNTH                                  
028790,001261: 34,3160           03520                                    RPASS2                                
028791,001262: 34,3161           45115                           PDVL     CALL                                  
028792,001263: 34,3162           03526                                    VPASS2                                
028793,001264: 34,3163           46377                                    VECSHIFT                              
028794,001265: 34,3164           26744                           STOVL    VVEC                                  
028795,001266: 34,3165           77614                           CLEAR                                          
028796,001267: 34,3166           03666                                    RVSW                                  
028797,001268: 34,3167           36655                           STCALL   RVEC                                  
028798,001269: 34,3170           24745                                    TIMETHET                              
028799,001270: 34,3171           53754                           LXA,2    VSL*                                  
028800,001271: 34,3172           03376                                    RTX2                                  
028801,001272: 34,3173           57576                                    0,2                                   
028802,001273: 34,3174           00023                           STORE    18D                                   
028803,001274: 34,3175           76441                           DOT      SL1R                                  
028804,001275: 34,3176           03542                                    UNVEC                                 
028805,001276: 34,3177           51515                           PDVL     ABVAL                                 #  0D = V SUB PV
028806,001277: 34,3200           63257                           SL*      PDVL                                  
028807,001278: 34,3201           57576                                    0,2                                   
028808,001279: 34,3202           02315                                    RACT2                                 
028809,001280: 34,3203           65246                           ABVAL    PDDL                                  #  2D = LENGTH OF R SUB A
028810,001281: 34,3204           77625                           DSU                                            

Page 658

028812,001283: 34,3205           00003                                    02D                                   
028813,001284: 34,3206           17576                           STODL    DIFFALT                               #  DELTA H IN METERS          B+29
028814,001285: 34,3207           02742                                    R1A                                   
028815,001286: 34,3210           65301                           NORM     PDDL                                  #  2 - R V**/MU                        04D
028816,001287: 34,3211           00047                                    X1                                    
028817,001288: 34,3212           00041                                    R1                                    
028818,001289: 34,3213           77624                           CALL                                           
028819,001290: 34,3214           46407                                    SHIFTR1                               
028820,001291: 34,3215           56362                           SR1R     DDV                                   
028821,001292: 34,3216           41457                           SL*      PUSH                                  
028822,001293: 34,3217           20174                                    0          -5,1                       
028823,001294: 34,3220           65225                           DSU      PDDL                                  #  A SUB A                    B+29     04D
028824,001295: 34,3221           03576                                    DIFFALT                               
028825,001296: 34,3222           56302                           SR2      DDV                                   #  A SUB P                   B+31
028826,001297: 34,3223           00005                                    04D                                   #                            B+2
028827,001298: 34,3224           75406                           PUSH     SQRT                                  #     A SUB P/A SUB A          06D
028828,001299: 34,3225           41275                           DMPR     DMP                                   
028829,001300: 34,3226           00007                                    06D                                   
028830,001301: 34,3227           00001                                    00D                                   
028831,001302: 34,3230           65272                           SL3R     PDDL                                  #  V SUB AV METERS/CS         B+7      08D
028832,001303: 34,3231           00003                                    02D                                   #  R SUB A MAGNITUDE  B+29
028833,001304: 34,3232           65301                           NORM     PDDL                                  
028834,001305: 34,3233           00047                                    X1                                    
028835,001306: 34,3234           02325                                    RTMU                                  
028836,001307: 34,3235           56342                           SR1      DDV                                   #  2MU  B+38
028837,001308: 34,3236           65257                           SL*      PDDL                                  #     2 MU/R SUBAA    B+14     10D
028838,001309: 34,3237           20174                                    0          -5,1                       
028839,001310: 34,3240           00005                                    04D                                   #  ASUBA                     B+29
028840,001311: 34,3241           65301                           NORM     PDDL                                  
028841,001312: 34,3242           00050                                    X2                                    
028842,001313: 34,3243           02325                                    RTMU                                  
028843,001314: 34,3244           56342                           SR1      DDV                                   
028844,001315: 34,3245           44257                           SL*      BDSU                                  
028845,001316: 34,3246           57604                                    0          -6,2                       #  2U/R - U/A   B+14 (METERS/CS)SQ
028846,001317: 34,3247           63525                           PDDL     DSQ                                   #                                     10D
028847,001318: 34,3250           00011                                    08D                                   
028848,001319: 34,3251           75421                           BDSU     SQRT                                  
028849,001320: 34,3252           47315                           PDVL     VXV                                   #  SQRT(MU(2/R SUB A-1/A SUB A)-VSUBA2)10D
028850,001321: 34,3253           02265                                    UP1                                   
028851,001322: 34,3254           03542                                    UNVEC                                 
028852,001323: 34,3255           74256                           UNIT     VXSC                                  
028853,001324: 34,3256           00013                                    10D                                   
028854,001325: 34,3257           74315                           PDVL     VXSC                                  
028855,001326: 34,3260           03542                                    UNVEC                                 
028856,001327: 34,3261           00011                                    08D                                   
028857,001328: 34,3262           76455                           VAD      VSL1                                  
028858,001329: 34,3263           77626                           STADR                                          
028859,001330: 34,3264           74235                           STORE    VACT3                                 
028860,001331: 34,3265           77651                           VSU                                            
028861,001332: 34,3266           03512                                    VACT2                                 

Page 659

028863,001334: 34,3267           36301                           STCALL   DELVEET2                              #  DELTA VCDH - REFERENCE COORDINATES
028864,001335: 34,3270           03466                                    SUBEXIT                               
028865,001336: 

Page 660

028867,001338:                                                                                                  #  ..... COMPTGO   .....
028868,001339: 
028869,001340:                                                                                                  #  SUBROUTINES USED
028870,001341: 
028871,001342:                                                                                                  #        CLOKTASK
028872,001343:                                                                                                  #        2PHSCHNG
028873,001344: 
028874,001345: 35,2376                                           BANK     35                                    
028875,001346: 35,2000                                           SETLOC   CSI/CDH                               
028876,001347: 35,2000                                           BANK                                           
028877,001348: 
028878,001349: 35,2376  E7,1463                                  EBANK=   RTRN                                  
028879,001350: 
028880,001351: 35,2376                                           COUNT*   $$/P3575                              
028881,001352: 
028882,001353: 35,2376           00006        COMPTGO            EXTEND                                         
028883,001354: 35,2377           23463                           QXCH     RTRN                                  
028884,001355: 35,2400           34755                           CAF      ZERO                                  
028885,001356: 35,2401           55163                           TS       DISPDEX                               
028886,001357: 35,2402           34752                           CAF      BIT2                                  
028887,001358: 35,2403           00004                           INHINT                                         
028888,001359: 35,2404           05203                           TC       WAITLIST                              
028889,001360: 35,2405  E7,1453                                  EBANK=   WHICH                                 
028890,001361: 35,2405           02722 74067                     2CADR    CLOKTASK                              
028891,001362: 
028892,001363: 35,2407           05327                           TC       2PHSCHNG                              
028893,001364: 35,2410           40036                           OCT      40036                                 
028894,001365: 35,2411           05024                           OCT      05024                                 
028895,001366: 35,2412           13000                           OCT      13000                                 
028896,001367: 35,2413           01463                           TC       RTRN                                  

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