Source Code

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

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

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

019467,000002:                                                                                                  ## Copyright:   Public domain.
019468,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
019469,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
019470,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
019471,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
019472,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
019473,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
019474,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
019475,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
019476,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
019477,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
019478,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
019479,000014:                                                                                                  ##              reconstruction is correct.
019480,000015:                                                                                                  ## Assembler:   yaYUL
019481,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
019482,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
019483,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
019484,000019:                                                                                                  ##              2024-05-16 MAS  Implemented PCR-936.1, "Initialize V90 time
019485,000020:                                                                                                  ##                              to TIG".
019486,000021: 
019487,000022:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
019488,000023:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
019489,000024:                                                                                                  #  MOD BY WHITE.P                DATE 1JUNE67
019490,000025: 
019491,000026:                                                                                                  #  PURPOSE
019492,000027:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019493,000028:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
019494,000029:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
019495,000030:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
019496,000031:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
019497,000032:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
019498,000033:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
019499,000034:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
019500,000035:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
019501,000036:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
019502,000037:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
019503,000038:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
019504,000039:                                                                                                  #                ASTRONAUT/GROUND.
019505,000040:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
019506,000041:                                                                                                  #                THRUSTING PROGRAM.
019507,000042: 
019508,000043:                                                                                                  #  ASSUMPTIONS
019509,000044:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
019510,000045:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
019511,000046:                                                                                                  #                THEREFORE -
019512,000047:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
019513,000048:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
019514,000049:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
019515,000050:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
019516,000051:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
019517,000052:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
019518,000053:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
019519,000054:                                                                                                  #                        ORBITS WAS MINIMIZED.
019520,000055:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
019521,000056:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
019522,000057:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
019523,000058:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
019524,000059:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
019525,000060:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
019526,000061:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
019527,000062:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
019528,000063:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
019529,000064:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
019530,000065:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
019531,000066:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
019532,000067:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
019533,000068:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
019534,000069:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
019535,000070:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
019536,000071:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
019537,000072:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
019538,000073:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
019539,000074:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
019540,000075:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
019541,000076:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
019542,000077:                                                                                                  #                THRUSTING MANEUVER.
019543,000078:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
019544,000079:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
019545,000080: 
019546,000081:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
019547,000082:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
019548,000083:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
019549,000084:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
019550,000085: 
019551,000086:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
019552,000087:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
019553,000088: 
019554,000089:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
019555,000090:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
019556,000091:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
019557,000092: 
019558,000093:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
019559,000094:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
019560,000095:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
019561,000096:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
019562,000097:                                                                                                  #                THROUGH THE USE OF V06N52.
019563,000098: 
019564,000099:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
019565,000100:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
019566,000101:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
019567,000102:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
019568,000103:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
019569,000104:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
019570,000105: 
019571,000106:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
019572,000107: 
019573,000108:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
019574,000109: 
019575,000110:                                                                                                  #  INPUT
019576,000111:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
019577,000112:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
019578,000113:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019579,000114:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
019580,000115: 
019581,000116:                                                                                                  #  OUTPUT
019582,000117:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
019583,000118:                                                                                                  #        (2)     TTOGO           TIME TO GO
019584,000119:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
019585,000120:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
019586,000121:                                                                                                  #                 OR
019587,000122:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
019588,000123:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
019589,000124:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
019590,000125:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
019591,000126:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
019592,000127:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
019593,000128: 
019594,000129:                                                                                                  #  DOWNLINK
019595,000130:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
019596,000131:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
019597,000132:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
019598,000133:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019599,000134:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
019600,000135:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
019601,000136:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
019602,000137: 
019603,000138:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
019604,000139:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
019605,000140:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
019606,000141:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
019607,000142:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
019608,000143: 
019609,000144:                                                                                                  #  SUBROUTINES USED
019610,000145:                                                                                                  #        AVFLAGA
019611,000146:                                                                                                  #        AVFLAGP
019612,000147:                                                                                                  #        VNPOOH
019613,000148:                                                                                                  #        DISPLAYE
019614,000149:                                                                                                  #        SELECTMU
019615,000150:                                                                                                  #        PRECSET
019616,000151:                                                                                                  #        S33/34.1
019617,000152:                                                                                                  #        ALARM
019618,000153:                                                                                                  #        BANKCALL
019619,000154:                                                                                                  #        GOFLASH
019620,000155:                                                                                                  #        GOTOPOOH
019621,000156:                                                                                                  #        TIMETHET
019622,000157:                                                                                                  #        S34/35.2
019623,000158:                                                                                                  #        PERIAPO1
019624,000159:                                                                                                  #        SHIFTR1
019625,000160:                                                                                                  #        S34/35.5
019626,000161:                                                                                                  #        VN1645
019627,000162: 
019628,000163: 35,2000                                           SETLOC   CSI/CDH                               
019629,000164: 35,2000                                           BANK                                           
019630,000165: 35,2000  E4,1770                                  EBANK=   SUBEXIT                               
019631,000166: 35,2000                                           COUNT    35/P3474                              
019632,000167: 
019633,000168: 35,2000           04627        P34                TC       AVFLAGA                               
019634,000169: 35,2001           02003                           TC       P34/P74A                              
019635,000170: 35,2002           04642        P74                TC       AVFLAGP                               
019636,000171: 35,2003           04647        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
019637,000172: 35,2004           34614                           CAF      V06N37                                #  TTPI
019638,000173: 35,2005           04575                           TC       VNPOOH                                
019639,000174: 35,2006           06006                           TC       INTPRET                               
019640,000175: 35,2007           77531                           SSP      EXIT                                  
019641,000176: 35,2010           03766                                    NN                                    
019642,000177: 35,2011           00000                                    0                                     
019643,000178: 35,2012           03070                           TC       DISPLAYE                              #  ELEV AND CENTANG
019644,000179: 35,2013           06006                           TC       INTPRET                               
019645,000180: 35,2014           71214                           CLEAR    DLOAD                                 
019646,000181: 35,2015           01270                                    ETPIFLAG                              
019647,000182: 35,2016           03663                                    TTPI                                  
019648,000183: 35,2017           17413                           STODL    TIG                                   
019649,000184: 35,2020           03744                                    ELEV                                  
019650,000185: 35,2021           43054                           BZE      SET                                   
019651,000186: 35,2022           72024                                    P34/P74B                              
019652,000187: 35,2023           01070                                    ETPIFLAG                              
019653,000188: 35,2024           77624        P34/P74B           CALL                                           
019654,000189: 35,2025           10712                                    SELECTMU                              
019655,000190: 35,2026                        DELELO             EQUALS   26D                                   
019656,000191: 35,2026           43145        P34/P74C           DLOAD    SET                                   
019657,000192: 35,2027           15334                                    ZEROVECS                              
019658,000193: 35,2030           03461                                    ITSWICH                               
019659,000194: 35,2031           43014                           BON      CLEAR                                 
019660,000195: 35,2032           01310                                    ETPIFLAG                              
019661,000196: 35,2033           72035                                    SWCHSET                               
019662,000197: 35,2034           03661                                    ITSWICH                               
019663,000198: 35,2035           02364        SWCHSET            STORE    NOMTPI                                
019664,000199: 35,2036           43345        INTLOOP            DLOAD    DAD                                   
019665,000200: 35,2037           03663                                    TTPI                                  
019666,000201: 35,2040           02364                                    NOMTPI                                
019667,000202: 35,2041           34041                           STCALL   TDEC1                                 
019668,000203: 35,2042           45215                                    PRECSET                               
019669,000204: 35,2043           77624                           CALL                                           
019670,000205: 35,2044           72216                                    S33/34.1                              
019671,000206: 35,2045           77454                           BZE      EXIT                                  
019672,000207: 35,2046           72057                                    SWCHCLR                               
019673,000208: 35,2047           05664                           TC       ALARM                                 
019674,000209: 35,2050           00611                           OCT      611                                   
019675,000210: 35,2051           35064                           CAF      V05N09                                
019676,000211: 35,2052           04676                           TC       BANKCALL                              
019677,000212: 35,2053           20720                           CADR     GOFLASH                               
019678,000213: 35,2054           04106                           TC       GOTOPOOH                              
019679,000214: 35,2055           02003                           TC       P34/P74A                              #  PROCEED
019680,000215: 35,2056           02047                           TC       -7                                    #  V32
019681,000216: 
019682,000217: 35,2057           43014        SWCHCLR            BONCLR   BON                                   
019683,000218: 35,2060           03601                                    ITSWICH                               
019684,000219: 35,2061           72036                                    INTLOOP                               
019685,000220: 35,2062           01310                                    ETPIFLAG                              
019686,000221: 35,2063           72067                                    P34/P74D                              #  DISPLAY TTPI
019687,000222: 35,2064           77776                           EXIT                                           
019688,000223: 35,2065           03070                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
019689,000224: 35,2066           02072                           TC       P34/P74E                              
019690,000225: 35,2067           77776        P34/P74D           EXIT                                           
019691,000226: 35,2070           34614                           CAF      V06N37                                #  TTPI
019692,000227: 35,2071           04575                           TC       VNPOOH                                
019693,000228: 35,2072           06006        P34/P74E           TC       INTPRET                               
019694,000229: 35,2073           71201                           SETPD    DLOAD                                 
019695,000230: 35,2074           00001                                    0D                                    
019696,000231: 35,2075           03746                                    RTX1                                  
019697,000232: 35,2076           14047                           STODL    X1                                    
019698,000233: 35,2077           03754                                    CENTANG                               
019699,000234: 35,2100           71406                           PUSH     COS                                   
019700,000235: 35,2101           16734                           STODL    CSTH                                  
019701,000236: 35,2102           77756                           SIN                                            
019702,000237: 35,2103           26732                           STOVL    SNTH                                  
019703,000238: 35,2104           03554                                    RPASS3                                
019704,000239: 35,2105           77657                           VSR*                                           
019705,000240: 35,2106           57176                                    0,2                                   
019706,000241: 35,2107           26657                           STOVL    RVEC                                  
019707,000242: 35,2110           03562                                    VPASS3                                
019708,000243: 35,2111           43057                           VSR*     SET                                   
019709,000244: 35,2112           57176                                    0,2                                   
019710,000245: 35,2113           03466                                    RVSW                                  
019711,000246: 35,2114           36746                           STCALL   VVEC                                  
019712,000247: 35,2115           24744                                    TIMETHET                              
019713,000248: 35,2116           77745                           DLOAD                                          
019714,000249: 35,2117           03663                                    TTPI                                  
019715,000250: 35,2120           03503                           STORE    INTIME                                #  FOR INITVEL
019716,000251: 35,2121           77615                           DAD                                            
019717,000252: 35,2122           00037                                    T                                     #  RENDEZVOUS TIME
019718,000253: 35,2123           37656                           STCALL   TPASS4                                #  FOR INITVEL
019719,000254: 35,2124           72526                                    S34/35.2                              
019720,000255: 35,2125           51575                           VLOAD    ABVAL                                 
019721,000256: 35,2126           03646                                    DELVEET3                              
019722,000257: 35,2127           26635                           STOVL    DELVTPI                               
019723,000258: 35,2130           03640                                    VPASS4                                
019724,000259: 35,2131           51451                           VSU      ABVAL                                 
019725,000260: 35,2132           03620                                    VTPRIME                               
019726,000261: 35,2133           26637                           STOVL    DELVTPF                               
019727,000262: 35,2134           03540                                    RACT3                                 
019728,000263: 35,2135           45115                           PDVL     CALL                                  
019729,000264: 35,2136           03612                                    VIPRIME                               
019730,000265: 35,2137           45153                                    PERIAPO1                              
019731,000266: 35,2140           77624                           CALL                                           
019732,000267: 35,2141           45263                                    SHIFTR1                               
019733,000268: 35,2142           16641                           STODL    POSTTPI                               
019734,000269: 35,2143           03663                                    TTPI                                  
019735,000270: 35,2144           03413                           STORE    TIG                                   
019736,000271: 35,2145           77776                           EXIT                                           
019737,000272: 35,2146           34616                           CAF      V06N58                                
019738,000273: 35,2147           04575                           TC       VNPOOH                                
019739,000274: 35,2150           06006                           TC       INTPRET                               
019740,000275: 35,2151           77624                           CALL                                           
019741,000276: 35,2152           72741                                    S34/35.5                              
019742,000277: 35,2153           77624                           CALL                                           
019743,000278: 35,2154           73002                                    VN1645                                
019744,000279: 35,2155           77650                           GOTO                                           
019745,000280: 35,2156           72026                                    P34/P74C                              
019746,000281: 
019747,000282:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
019748,000283:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
019749,000284:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
019750,000285: 
019751,000286:                                                                                                  #  PURPOSE
019752,000287:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019753,000288:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
019754,000289:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
019755,000290:                                                                                                  #                VEHICLE RENDEZVOUS.
019756,000291:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
019757,000292:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
019758,000293:                                                                                                  #                ASTRONAUT/GROUND.
019759,000294:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
019760,000295:                                                                                                  #                THRUSTING PROGRAM.
019761,000296: 
019762,000297:                                                                                                  #  ASSUMPTIONS
019763,000298:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
019764,000299:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
019765,000300:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
019766,000301:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
019767,000302:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
019768,000303:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
019769,000304:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
019770,000305:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
019771,000306:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
019772,000307:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
019773,000308: 
019774,000309:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
019775,000310:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
019776,000311:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
019777,000312:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
019778,000313: 
019779,000314:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
019780,000315:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
019781,000316: 
019782,000317:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
019783,000318:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
019784,000319:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
019785,000320: 
019786,000321:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
019787,000322:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
019788,000323:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
019789,000324:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
019790,000325:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
019791,000326:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
019792,000327:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
019793,000328:                                                                                                  #                THROUGH THE USE OF V06N52.
019794,000329: 
019795,000330:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
019796,000331:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
019797,000332:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
019798,000333:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
019799,000334:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
019800,000335:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
019801,000336: 
019802,000337:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
019803,000338: 
019804,000339:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
019805,000340: 
019806,000341:                                                                                                  #  INPUT
019807,000342:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
019808,000343: 
019809,000344:                                                                                                  #  OUTPUT
019810,000345:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
019811,000346:                                                                                                  #        (2)     TTOGO           TIME TO GO
019812,000347:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
019813,000348:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
019814,000349:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
019815,000350: 
019816,000351:                                                                                                  #  DOWNLINK
019817,000352:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
019818,000353:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
019819,000354:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
019820,000355: 
019821,000356:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
019822,000357:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
019823,000358:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
019824,000359:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
019825,000360:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
019826,000361: 
019827,000362:                                                                                                  #  SUBROUTINES USED
019828,000363:                                                                                                  #        AVFLAGA
019829,000364:                                                                                                  #        AVFLAGP
019830,000365:                                                                                                  #        LOADTIME
019831,000366:                                                                                                  #        SELECTMU
019832,000367:                                                                                                  #        PRECSET
019833,000368:                                                                                                  #        S34/35.1
019834,000369:                                                                                                  #        S34/35.2
019835,000370:                                                                                                  #        S34/35.5
019836,000371:                                                                                                  #        VN1645
019837,000372: 
019838,000373: 35,2157                                           COUNT    35/P3575                              
019839,000374: 35,2157  E4,1763                                  EBANK=   KT                                    
019840,000375: 
019841,000376: 35,2157           04627        P35                TC       AVFLAGA                               
019842,000377: 35,2160           00006                           EXTEND                                         
019843,000378: 35,2161           31422                           DCA      ATIGINC                               
019844,000379: 35,2162           02166                           TC       P35/P75A                              
019845,000380: 35,2163           04642        P75                TC       AVFLAGP                               
019846,000381: 35,2164           00006                           EXTEND                                         
019847,000382: 35,2165           31424                           DCA      PTIGINC                               
019848,000383: 35,2166           53764        P35/P75A           DXCH     KT                                    
019849,000384: 35,2167           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
019850,000385: 35,2170           06006                           TC       INTPRET                               
019851,000386: 35,2171           77624                           CALL                                           
019852,000387: 35,2172           10712                                    SELECTMU                              
019853,000388: 35,2173           77634        P35/P75B           RTB                                            
019854,000389: 35,2174           45510                                    LOADTIME                              
019855,000390: 35,2175           03665                           STORE    TSTRT                                 
019856,000391: 35,2176           77615                           DAD                                            
019857,000392: 35,2177           02364                                    KT                                    
019858,000393: 35,2200           03413                           STORE    TIG                                   
019859,000394: 35,2201           03503                           STORE    INTIME                                #  FOR INITVEL
019860,000395: 35,2202           34041                           STCALL   TDEC1                                 
019861,000396: 35,2203           45215                                    PRECSET                               #  ADVANCE BOTH VEHICLES
019862,000397: 35,2204           77624                           CALL                                           
019863,000398: 35,2205           74000                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
019864,000399: 35,2206           77624                           CALL                                           
019865,000400: 35,2207           72526                                    S34/35.2                              #  GET DELTA V(LV)
019866,000401: 35,2210           77624                           CALL                                           
019867,000402: 35,2211           72741                                    S34/35.5                              
019868,000403: 35,2212           77624                           CALL                                           
019869,000404: 35,2213           73002                                    VN1645                                
019870,000405: 35,2214           77650                           GOTO                                           
019871,000406: 35,2215           72173                                    P35/P75B                              
019872,000407:                                                                                                  #  ..... S33/34.1 .....
019873,000408: 
019874,000409: 35,2216           66220        S33/34.1           STQ      SSP                                   
019875,000410: 35,2217           01340                                    NORMEX                                
019876,000411: 35,2220           03665                                    TITER                                 
019877,000412: 35,2221           40000                           OCT      40000                                 
019878,000413: 35,2222           40345                           DLOAD    SETPD                                 
019879,000414: 35,2223           33111                                    MAX250                                
019880,000415: 35,2224           00001                                    0D                                    
019881,000416: 35,2225           27454                           STOVL    SECMAX                                
019882,000417: 35,2226           03540                                    RACT3                                 
019883,000418: 35,2227           27576                           STOVL    RAPREC                                
019884,000419: 35,2230           03546                                    VACT3                                 
019885,000420: 35,2231           27570                           STOVL    VAPREC                                
019886,000421: 35,2232           03554                                    RPASS3                                
019887,000422: 35,2233           27620                           STOVL    RPPREC                                
019888,000423: 35,2234           03562                                    VPASS3                                
019889,000424: 35,2235           03612                           STORE    VPPREC                                
019890,000425: 35,2236           77624        ELCALC             CALL                                           
019891,000426: 35,2237           74000                                    S34/35.1                              #  NORMAL AND LOS
019892,000427: 35,2240           63235                           VXV      PDVL                                  
019893,000428: 35,2241           03540                                    RACT3                                 #  (RA*VA)*RA 0D
019894,000429: 35,2242           53515                           PDVL     UNIT                                  #  ULOS AT 6D
019895,000430: 35,2243           03540                                    RACT3                                 
019896,000431: 35,2244           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
019897,000432: 35,2245           51352                           VSL2     BVSU                                  
019898,000433: 35,2246           02625                                    ULOS                                  
019899,000434: 35,2247           63256                           UNIT     PDVL                                  #  UP AT 0D
019900,000435: 35,2250           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
019901,000436: 35,2251           00001                                    0D                                    #  UP IN MPAC
019902,000437: 35,2252           75241                           DOT      SIGN                                  
019903,000438: 35,2253           02625                                    ULOS                                  
019904,000439: 35,2254           65552                           SL1      ACOS                                  
019905,000440: 35,2255           50315                           PDVL     DOT                                   #  EA AT 0D
019906,000441: 35,2256           02625                                    ULOS                                  
019907,000442: 35,2257           03540                                    RACT3                                 
019908,000443: 35,2260           71244                           BPL      DLOAD                                 
019909,000444: 35,2261           72264                                    TESTY                                 
019910,000445: 35,2262           15342                                    DPPOSMAX                              
019911,000446: 35,2263           41425                           DSU      PUSH                                  
019912,000447: 35,2264           71214        TESTY              BOFF     DLOAD                                 
019913,000448: 35,2265           03741                                    ITSWICH                               
019914,000449: 35,2266           72513                                    ELEX                                  
019915,000450: 35,2267           03452                                    DELEL                                 
019916,000451: 35,2270           14033                           STODL    DELELO                                
019917,000452: 35,2271           77625                           DSU                                            
019918,000453: 35,2272           03744                                    ELEV                                  
019919,000454: 35,2273           03452                           STORE    DELEL                                 
019920,000455: 35,2274           45246                           ABS      DSU                                   
019921,000456: 35,2275           33115                                    ELEPS                                 
019922,000457: 35,2276           77640                           BMN                                            
019923,000458: 35,2277           72523                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
019924,000459: 35,2300           70535        FIGTIME            SLOAD    SR1                                   
019925,000460: 35,2301           03665                                    TITER                                 
019926,000461: 35,2302           72030                           BHIZ     LXA,1                                 
019927,000462: 35,2303           01340                                    NORMEX                                #  TOO MANY ITERATIONS
019928,000463: 35,2304           00154                                    MPAC                                  
019929,000464: 35,2305           77330                           SXA,1    VLOAD                                 
019930,000465: 35,2306           03664                                    TITER                                 
019931,000466: 35,2307           03554                                    RPASS3                                
019932,000467: 35,2310           65256                           UNIT     PDDL                                  
019933,000468: 35,2311           00045                                    36D                                   
019934,000469: 35,2312           53515                           PDVL     UNIT                                  
019935,000470: 35,2313           03540                                    RACT3                                 
019936,000471: 35,2314           77725                           PDDL                                           
019937,000472: 35,2315           41525                           PDDL     PUSH                                  
019938,000473: 35,2316           00045                                    36D                                   
019939,000474: 35,2317           77621                           BDSU                                           
019940,000475: 35,2320           00015                                    12D                                   
019941,000476: 35,2321           14037                           STODL    30D                                   #  RP-RA MAGNITUDES
019942,000477: 35,2322           15332                                    DPHALF                                
019943,000478: 35,2323           41425                           DSU      PUSH                                  
019944,000479: 35,2324           03744                                    ELEV                                  
019945,000480: 35,2325           50165                           SIGN     BMN                                   
019946,000481: 35,2326           00037                                    30D                                   
019947,000482: 35,2327           01340                                    NORMEX                                
019948,000483: 35,2330           71545                           DLOAD    COS                                   
019949,000484: 35,2331           56205                           DMP      DDV                                   
019950,000485: 35,2332           00017                                    14D                                   
019951,000486: 35,2333           00015                                    12D                                   
019952,000487: 35,2334           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
019953,000488: 35,2335           00035                           STORE    28D                                   
019954,000489: 35,2336           44246                           ABS      BDSU                                  
019955,000490: 35,2337           15332                                    DPHALF                                
019956,000491: 35,2340           77240                           BMN      VLOAD                                 
019957,000492: 35,2341           01340                                    NORMEX                                
019958,000493: 35,2342           02617                                    UNRM                                  
019959,000494: 35,2343           53435                           VXV      UNIT                                  
019960,000495: 35,2344           00007                                    6D                                    #  UN*RA
019961,000496: 35,2345           41241                           DOT      DMP                                   
019962,000497: 35,2346           03546                                    VACT3                                 
019963,000498: 35,2347           00015                                    12D                                   
019964,000499: 35,2350           47315                           PDVL     VXV                                   
019965,000500: 35,2351           00001                                    0D                                    
019966,000501: 35,2352           03562                                    VPASS3                                
019967,000502: 35,2353           53435                           VXV      UNIT                                  
019968,000503: 35,2354           00001                                    0D                                    #  (RP*VP)*RP
019969,000504: 35,2355           41241                           DOT      DMP                                   
019970,000505: 35,2356           03562                                    VPASS3                                
019971,000506: 35,2357           00017                                    14D                                   
019972,000507: 35,2360           77621                           BDSU                                           
019973,000508: 35,2361           63301                           NORM     PDVL                                  #  NORMALIZED WA-WP 12D
019974,000509: 35,2362           00047                                    X1                                    
019975,000510: 35,2363           00007                                    6D                                    
019976,000511: 35,2364           50235                           VXV      DOT                                   
019977,000512: 35,2365           00001                                    0D                                    
019978,000513: 35,2366           02617                                    UNRM                                  #  RA*RP.UN 14D
019979,000514: 35,2367           50315                           PDVL     DOT                                   
019980,000515: 35,2370           00001                                    0D                                    
019981,000516: 35,2371           00007                                    6D                                    
019982,000517: 35,2372           65552                           SL1      ACOS                                  
019983,000518: 35,2373           77765                           SIGN                                           
019984,000519: 35,2374           43225                           DSU      DAD                                   #  ALPHA PI
019985,000520: 35,2375           15332                                    DPHALF                                
019986,000521: 35,2376           03744                                    ELEV                                  
019987,000522: 35,2377           65525                           PDDL     ACOS                                  
019988,000523: 35,2400           00035                                    28D                                   
019989,000524: 35,2401           75221                           BDSU     SIGN                                  
019990,000525: 35,2402           15332                                    DPHALF                                
019991,000526: 35,2403           00037                                    30D                                   #  CONTAINS RP-RA
019992,000527: 35,2404           77615                           DAD                                            
019993,000528: 35,2405           56205                           DMP      DDV                                   
019994,000529: 35,2406           33107                                    TWOPI                                 
019995,000530: 35,2407           77605                           DMP                                            
019996,000531: 35,2410           41257                           SL*      DMP                                   
019997,000532: 35,2411           20176                                    0          -3,1                       
019998,000533: 35,2412           51406                           PUSH     ABS                                   
019999,000534: 35,2413           50025                           DSU      BMN                                   
020000,000535: 35,2414           03454                                    SECMAX                                
020001,000536: 35,2415           72421                                    OKMAX                                 
020002,000537: 35,2416           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
020003,000538: 35,2417           03454                                    SECMAX                                
020004,000539: 35,2420           77606                           PUSH                                           
020005,000540: 35,2421           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
020006,000541: 35,2422           03665                                    TITER                                 
020007,000542: 35,2423           72431                                    REPETE                                
020008,000543: 35,2424           71331                           SSP      DLOAD                                 
020009,000544: 35,2425           03665                                    TITER                                 
020010,000545: 35,2426           37777                           OCT      37777                                 
020011,000546: 35,2427           77650                           GOTO                                           
020012,000547: 35,2430           72467                                    STORDELT                              
020013,000548: 35,2431           41345        REPETE             DLOAD    DMP                                   
020014,000549: 35,2432           03452                                    DELEL                                 
020015,000550: 35,2433           00033                                    DELELO                                
020016,000551: 35,2434           71244                           BPL      DLOAD                                 
020017,000552: 35,2435           72445                                    NEXTES                                
020018,000553: 35,2436           03454                                    SECMAX                                
020019,000554: 35,2437           77605                           DMP                                            
020020,000555: 35,2440           33113                                    THIRD                                 
020021,000556: 35,2441           17454                           STODL    SECMAX                                
020022,000557: 35,2442           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
020023,000558: 35,2443           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
020024,000559: 35,2444           72455                                    RESIGN                                
020025,000560: 35,2445           51545        NEXTES             DLOAD    ABS                                   
020026,000561: 35,2446           03452                                    DELEL                                 
020027,000562: 35,2447           51525                           PDDL     ABS                                   
020028,000563: 35,2450           00033                                    DELELO                                
020029,000564: 35,2451           77625                           DSU                                            
020030,000565: 35,2452           71240                           BMN      DLOAD                                 
020031,000566: 35,2453           72460                                    REVERS                                #  WRONG DIRECTION
020032,000567: 35,2454           77646                           ABS                                            
020033,000568: 35,2455           52165        RESIGN             SIGN     GOTO                                  
020034,000569: 35,2456           03450                                    DELTEEO                               
020035,000570: 35,2457           72467                                    STORDELT                              
020036,000571: 35,2460           57545        REVERS             DLOAD    DCOMP                                 
020037,000572: 35,2461           03450                                    DELTEEO                               
020038,000573: 35,2462           70406                           PUSH     SR1                                   
020039,000574: 35,2463           03450                           STORE    DELTEEO                               
020040,000575: 35,2464           77615                           DAD                                            
020041,000576: 35,2465           77650                           GOTO                                           
020042,000577: 35,2466           72470                                    ADTIME                                
020043,000578: 35,2467           03450        STORDELT           STORE    DELTEEO                               
020044,000579: 35,2470           77615        ADTIME             DAD                                            
020045,000580: 35,2471           02364                                    NOMTPI                                #  SUM OF DELTA T:S
020046,000581: 35,2472           02364                           STORE    NOMTPI                                
020047,000582: 35,2473           63375                           VLOAD    PDVL                                  
020048,000583: 35,2474           03570                                    VAPREC                                
020049,000584: 35,2475           03576                                    RAPREC                                
020050,000585: 35,2476           77624                           CALL                                           
020051,000586: 35,2477           72701                                    GOINT                                 
020052,000587: 35,2500           77624                           CALL                                           
020053,000588: 35,2501           45237                                    ACTIVE                                #  STORE NEW RACT3 VACT3
020054,000589: 35,2502           63375                           VLOAD    PDVL                                  
020055,000590: 35,2503           03612                                    VPPREC                                
020056,000591: 35,2504           03620                                    RPPREC                                
020057,000592: 35,2505           77624                           CALL                                           
020058,000593: 35,2506           72701                                    GOINT                                 
020059,000594: 35,2507           77624                           CALL                                           
020060,000595: 35,2510           45247                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
020061,000596: 35,2511           77650                           GOTO                                           
020062,000597: 35,2512           72236                                    ELCALC                                
020063,000598: 35,2513           43345        ELEX               DLOAD    DAD                                   
020064,000599: 35,2514           03663                                    TTPI                                  
020065,000600: 35,2515           02364                                    NOMTPI                                
020066,000601: 35,2516           17663                           STODL    TTPI                                  
020067,000602: 35,2517           77614                           BON                                            
020068,000603: 35,2520           01310                                    ETPIFLAG                              
020069,000604: 35,2521           72523                                    TIMEX                                 
020070,000605: 35,2522           03744                           STORE    ELEV                                  
020071,000606: 35,2523           52145        TIMEX              DLOAD    GOTO                                  
020072,000607: 35,2524           15334                                    ZEROVECS                              
020073,000608: 35,2525           01340                                    NORMEX                                
020074,000609: 
020075,000610:                                                                                                  #  ..... S34/35.1 .....
020076,000611: 
020077,000612:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
020078,000613:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
020079,000614: 36,2000                                           SETLOC   S3435LOC                              
020080,000615: 36,2000                                           BANK                                           
020081,000616: 
020082,000617: 36,2000           52375        S34/35.1           VLOAD    VSU                                   
020083,000618: 36,2001           03554                                    RPASS3                                
020084,000619: 36,2002           03540                                    RACT3                                 
020085,000620: 36,2003           41456                           UNIT     PUSH                                  
020086,000621: 36,2004           26625                           STOVL    ULOS                                  
020087,000622: 36,2005           03540                                    RACT3                                 
020088,000623: 36,2006           53435                           VXV      UNIT                                  
020089,000624: 36,2007           03546                                    VACT3                                 
020090,000625: 36,2010           02617                           STORE    UNRM                                  
020091,000626: 36,2011           77616                           RVQ                                            
020092,000627: 
020093,000628:                                                                                                  #  ..... S34/35.2 .....
020094,000629: 
020095,000630:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
020096,000631: 35,2000                                           SETLOC   CSI/CDH                               
020097,000632: 35,2000                                           BANK                                           
020098,000633: 
020099,000634: 35,2526           77220        S34/35.2           STQ      VLOAD                                 
020100,000635: 35,2527           02370                                    SUBEXIT                               
020101,000636: 35,2530           03562                                    VPASS3                                
020102,000637: 35,2531           65315                           PDVL     PDDL                                  
020103,000638: 35,2532           03554                                    RPASS3                                
020104,000639: 35,2533           03503                                    INTIME                                
020105,000640: 35,2534           65325                           PDDL     PDDL                                  
020106,000641: 35,2535           03656                                    TPASS4                                
020107,000642: 35,2536           33107                                    TWOPI                                 #  CONIC
020108,000643: 35,2537           46125                           PDDL     BHIZ                                  
020109,000644: 35,2540           03766                                    NN                                    
020110,000645: 35,2541           72544                                    S3435.23                              
020111,000646: 35,2542           65345                           DLOAD    PDDL                                  
020112,000647: 35,2543           15334                                    ZEROVECS                              #  PRECISION
020113,000648: 35,2544           77624        S3435.23           CALL                                           
020114,000649: 35,2545           72705                                    INTINT                                #  GET TARGET VECTOR
020115,000650: 35,2546           27415        S3435.25           STOVL    RTARG                                 
020116,000651: 35,2547           00007                                    VATT                                  
020117,000652: 35,2550           27640                           STOVL    VPASS4                                
020118,000653: 35,2551           03415                                    RTARG                                 
020119,000654:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U)
020120,000655: 35,2552           63256                           UNIT     PDVL                                  #  UNIT RP
020121,000656: 35,2553           03540                                    RACT3                                 
020122,000657: 35,2554           41456                           UNIT     PUSH                                  #  UNIT RA
020123,000658: 35,2555           50235                           VXV      DOT                                   
020124,000659: 35,2556           00001                                    0D                                    
020125,000660: 35,2557           02617                                    UNRM                                  #  RA*RP.U
020126,000661: 35,2560           77715                           PDVL                                           
020127,000662: 35,2561           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
020128,000663: 35,2562           00001                                    0D                                    
020129,000664: 35,2563           75326                           ACOS     SIGN                                  
020130,000665: 35,2564           43244                           BPL      DAD                                   
020131,000666: 35,2565           72567                                    NOPIE                                 
020132,000667: 35,2566           15342                                    DPPOSMAX                              #  REASONABLE TWO PI
020133,000668: 35,2567           16633        NOPIE              STODL    ACTCENT                               
020134,000669: 35,2570           03656                                    TPASS4                                
020135,000670: 35,2571           77625                           DSU                                            
020136,000671: 35,2572           03503                                    INTIME                                
020137,000672: 35,2573           03423                           STORE    DELLT4                                
020138,000673: 35,2574           40335                           SLOAD    SETPD                                 
020139,000674: 35,2575           03766                                    NN                                    #  NUMBER OF OFFSETS
020140,000675: 35,2576           00001                                    0D                                    
020141,000676: 35,2577           63325                           PDDL     PDVL                                  
020142,000677: 35,2600           33122                                    EPSFOUR                               
020143,000678: 35,2601           03540                                    RACT3                                 
020144,000679: 35,2602           27570                           STOVL    RINIT                                 
020145,000680: 35,2603           03546                                    VACT3                                 
020146,000681: 35,2604           37576                           STCALL   VINIT                                 
020147,000682: 35,2605           22000                                    INITVEL                               
020148,000683: 35,2606           77624                           CALL                                           
020149,000684: 35,2607           72666                                    LOMAT                                 
020150,000685: 35,2610           64375                           VLOAD    MXV                                   
020151,000686: 35,2611           03646                                    DELVEET3                              
020152,000687: 35,2612           00001                                    0D                                    
020153,000688: 35,2613           77772                           VSL1                                           
020154,000689: 35,2614           37405                           STCALL   DELVLVC                               
020155,000690: 35,2615           02370                                    SUBEXIT                               
020156,000691: 
020157,000692:                                                                                                  #  ..... S34/35.3 .....
020158,000693: 
020159,000694: 35,2616           45020        S34/35.3           STQ      CALL                                  
020160,000695: 35,2617           01340                                    NORMEX                                
020161,000696: 35,2620           72666                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
020162,000697: 35,2621           61375                           VLOAD    VXM                                   
020163,000698: 35,2622           03405                                    DELVLVC                               #  NEW DEL V TPI
020164,000699: 35,2623           00001                                    0D                                    
020165,000700: 35,2624           77772                           VSL1                                           
020166,000701: 35,2625           03646                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
020167,000702: 35,2626           63255                           VAD      PDVL                                  
020168,000703: 35,2627           03546                                    VACT3                                 #  NEW V REQ
020169,000704: 35,2630           03540                                    RACT3                                 
020170,000705: 35,2631           65325                           PDDL     PDDL                                  
020171,000706: 35,2632           03413                                    TIG                                   
020172,000707: 35,2633           03656                                    TPASS4                                
020173,000708: 35,2634           41525                           PDDL     PUSH                                  
020174,000709: 35,2635           15342                                    DPPOSMAX                              
020175,000710: 35,2636           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
020176,000711: 35,2637           72705                                    INTINT                                
020177,000712: 35,2640           77775                           VLOAD                                          
020178,000713: 35,2641           00001                                    RATT                                  
020179,000714: 35,2642           03415                           STORE    RTARG                                 
020180,000715: 35,2643           41575        NOVRWRT            VLOAD    PUSH                                  
020181,000716: 35,2644           02625                                    ULOS                                  
020182,000717: 35,2645           57435                           VXV      VCOMP                                 
020183,000718: 35,2646           02617                                    UNRM                                  
020184,000719: 35,2647           41456                           UNIT     PUSH                                  
020185,000720: 35,2650           76435                           VXV      VSL1                                  
020186,000721: 35,2651           02625                                    ULOS                                  
020187,000722: 35,2652           77715                           PDVL                                           
020188,000723: 35,2653           64315                           PDVL     MXV                                   
020189,000724: 35,2654           03646                                    DELVEET3                              
020190,000725: 35,2655           00001                                    0D                                    
020191,000726: 35,2656           77772                           VSL1                                           
020192,000727: 35,2657           36611                           STCALL   DVLOS                                 
020193,000728: 35,2660           01340                                    NORMEX                                
020194,000729: 
020195,000730:                                                                                                  #  ..... S34/35.4 .....
020196,000731: 
020197,000732: 35,2661           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
020198,000733: 35,2662           01340                                    NORMEX                                
020199,000734: 35,2663           00001                                    0D                                    
020200,000735: 35,2664           77650                           GOTO                                           
020201,000736: 35,2665           72643                                    NOVRWRT                               
020202,000737: 
020203,000738:                                                                                                  #  ..... LOMAT .....
020204,000739: 
020205,000740: 35,2666           57575        LOMAT              VLOAD    VCOMP                                 
020206,000741: 35,2667           02617                                    UNRM                                  
020207,000742: 35,2670           24007                           STOVL    6D                                    #  Y
020208,000743: 35,2671           03540                                    RACT3                                 
020209,000744: 35,2672           57456                           UNIT     VCOMP                                 
020210,000745: 35,2673           00015                           STORE    12D                                   
020211,000746: 35,2674           76435                           VXV      VSL1                                  
020212,000747: 35,2675           02617                                    UNRM                                  #  Z*-Y
020213,000748: 35,2676           00001                           STORE    0D                                    
020214,000749: 35,2677           43401                           SETPD    RVQ                                   
020215,000750: 35,2700           00023                                    18D                                   
020216,000751: 35,2701           65325        GOINT              PDDL     PDDL                                  #  DO
020217,000752: 35,2702           15334                                    ZEROVECS                              #        NOT
020218,000753: 35,2703           02364                                    NOMTPI                                
020219,000754: 35,2704           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
020220,000755: 35,2705           45020        INTINT             STQ      CALL                                  
020221,000756: 35,2706           02367                                    RTRN                                  
020222,000757: 35,2707           27446                                    INTSTALL                              
020223,000758: 35,2710           71214                           CLEAR    DLOAD                                 
020224,000759: 35,2711           01673                                    INTYPFLG                              
020225,000760: 35,2712           43054                           BZE      SET                                   
020226,000761: 35,2713           72715                                    +2                                    
020227,000762: 35,2714           01473                                    INTYPFLG                              
020228,000763: 35,2715           45545                           DLOAD    STADR                                 
020229,000764: 35,2716           63736                           STODL    TDEC1                                 
020230,000765: 35,2717           73014                           SET      LXA,2                                 
020231,000766: 35,2720           00063                                    MOONFLAG                              
020232,000767: 35,2721           03746                                    RTX2                                  
020233,000768: 35,2722           43014                           BON      CLEAR                                 
020234,000769: 35,2723           04303                                    CMOONFLG                              
020235,000770: 35,2724           72726                                    ALLSET                                
020236,000771: 35,2725           00263                                    MOONFLAG                              
020237,000772: 35,2726           25517        ALLSET             STOVL    TET                                   
020238,000773: 35,2727           77657                           VSR*                                           
020239,000774: 35,2730           57176                                    0,2                                   
020240,000775: 35,2731           25535                           STOVL    RCV                                   
020241,000776: 35,2732           77657                           VSR*                                           
020242,000777: 35,2733           57176                                    0,2                                   
020243,000778: 35,2734           35543                           STCALL   VCV                                   
020244,000779: 35,2735           27144                                    INTEGRVS                              
020245,000780: 35,2736           52175                           VLOAD    GOTO                                  
020246,000781: 35,2737           00001                                    RATT                                  
020247,000782: 35,2740           02367                                    RTRN                                  
020248,000783: 
020249,000784:                                                                                                  #  ..... S34/35.5 .....
020250,000785: 
020251,000786:                                                                                                  #  SUBROUTINES USED
020252,000787:                                                                                                  #        BANKCALL
020253,000788:                                                                                                  #        GOFLASH
020254,000789:                                                                                                  #        GOTOPOOH
020255,000790:                                                                                                  #        S34/35.3
020256,000791:                                                                                                  #        S34/35.4
020257,000792:                                                                                                  #        VNPOOH
020258,000793: 
020259,000794: 35,2741           43020        S34/35.5           STQ      BON                                   
020260,000795: 35,2742           02370                                    SUBEXIT                               
020261,000796: 35,2743           01311                                    FINALFLG                              
020262,000797: 35,2744           72750                                    FLAGON                                
020263,000798: 35,2745           52014                           SET      GOTO                                  
020264,000799: 35,2746           00470                                    UPDATFLG                              
020265,000800: 35,2747           72772                                    FLAGOFF                               
020266,000801: 35,2750           77775        FLAGON             VLOAD                                          
020267,000802: 35,2751           03405                                    DELVLVC                               
020268,000803: 35,2752           02611                           STORE    DVLOS                                 #  SAVE DELTA V BEFORE DISPLAY
020269,000804: 35,2753           77776                           EXIT                                           
020270,000805: 35,2754           34620                           CAF      V06N81                                
020271,000806: 35,2755           04575                           TC       VNPOOH                                
020272,000807: 35,2756           06006                           TC       INTPRET                               
020273,000808: 35,2757           52375                           VLOAD    VSU                                   #  TEST FOR OVERWRITE OF COMPUTED
020274,000809: 35,2760           03405                                    DELVLVC                               #                       DELTA V
020275,000810: 35,2761           02611                                    DVLOS                                 
020276,000811: 35,2762           53046                           ABVAL    BZE                                   
020277,000812: 35,2763           72766                                    NOCHG                                 #  NO OVERWRITE
020278,000813: 35,2764           77624                           CALL                                           
020279,000814: 35,2765           72616                                    S34/35.3                              #  COMPUTE NEW TARGET VECTOR
020280,000815: 35,2766           77214        NOCHG              CLEAR    VLOAD                                 
020281,000816: 35,2767           01267                                    XDELVFLG                              
020282,000817: 35,2770           03646                                    DELVEET3                              
020283,000818: 35,2771           03646                           STORE    DELVSIN                               
020284,000819: 35,2772           77624        FLAGOFF            CALL                                           
020285,000820: 35,2773           72661                                    S34/35.4                              
020286,000821: 35,2774           77776                           EXIT                                           
020287,000822: 35,2775           34617                           CAF      V06N59                                
020288,000823: 35,2776           04575                           TC       VNPOOH                                
020289,000824: 35,2777           06006                           TC       INTPRET                               
020290,000825: 35,3000           77650                           GOTO                                           
020291,000826: 35,3001           02370                                    SUBEXIT                               
020292,000827: 
020293,000828:                                                                                                  #  ..... VN1645 .....
020294,000829: 
020295,000830:                                                                                                  #  SUBROUTINES USED
020296,000831:                                                                                                  #        P3XORP7X
020297,000832:                                                                                                  #        GET+MGA
020298,000833:                                                                                                  #        BANKCALL
020299,000834:                                                                                                  #        DELAYJOB
020300,000835:                                                                                                  #        COMPTGO
020301,000836:                                                                                                  #        GOFLASHR
020302,000837:                                                                                                  #        GOTOPOOH
020303,000838:                                                                                                  #        FLAGUP
020304,000839: 
020305,000840: 35,3002           71220        VN1645             STQ      DLOAD                                 
020306,000841: 35,3003           02370                                    SUBEXIT                               
020307,000842: 35,3004           33120                                    DP-.01                                
020308,000843: 35,3005           03626                           STORE    +MGA                                  #  MGA = -.01
020309,000844: 35,3006           71214                           BOFF     DLOAD                                 
020310,000845: 35,3007           01351                                    FINALFLG                              
020311,000846: 35,3010           73030                                    GET45                                 
020312,000847: 35,3011           33120                                    DP-.01                                
020313,000848: 35,3012           77615                           DAD                                            
020314,000849: 35,3013           33120                                    DP-.01                                
020315,000850: 35,3014           03626                           STORE    +MGA                                  #  MGA = -.02
020316,000851: 35,3015           77414                           BOFF     EXIT                                  
020317,000852: 35,3016           01742                                    REFSMFLG                              
020318,000853: 35,3017           73030                                    GET45                                 
020319,000854: 35,3020           03100                           TC       P3XORP7X                              
020320,000855: 35,3021           03023                           TC       +2                                    #  P3X
020321,000856: 35,3022           03031                           TC       GET45      +1                         #  P7X
020322,000857: 35,3023           06006                           TC       INTPRET                               
020323,000858: 35,3024           41575                           VLOAD    PUSH                                  
020324,000859: 35,3025           03646                                    DELVSIN                               
020325,000860: 35,3026           77624                           CALL                                           #  COMPUTE MGA
020326,000861: 35,3027           10654                                    GET+MGA                               
020327,000862: 35,3030           77776        GET45              EXIT                                           
020328,000863: 35,3031           03304                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
020329,000864: 35,3032           31770                           CA       SUBEXIT                               
020330,000865: 35,3033           55766                           TS       QSAVED                                
020331,000866: 35,3034           35055                           CAF      1SEC                                  
020332,000867: 35,3035           04676                           TC       BANKCALL                              
020333,000868: 35,3036           01732                           CADR     DELAYJOB                              
020334,000869: 35,3037           34621                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
020335,000870: 35,3040           04676                           TC       BANKCALL                              
020336,000871: 35,3041           20720                           CADR     GOFLASH                               
020337,000872: 35,3042           03045                           TC       KILCLOCK                              #  TERMINATE
020338,000873: 35,3043           03050                           TC       N45PROC                               #  PROCEED
020339,000874: 35,3044           03060                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
020340,000875: 35,3045           30005        KILCLOCK           CA       Z                                     
020341,000876: 35,3046           54000                           TS       DISPDEX                               
020342,000877: 35,3047           04106                           TC       GOTOPOOH                              
020343,000878: 35,3050           40076        N45PROC            CS       FLAGWRD2                              
020344,000879: 35,3051           75026                           MASK     BIT6                                  
020345,000880: 35,3052           00006                           EXTEND                                         
020346,000881: 35,3053           13045                           BZF      KILCLOCK                              #  FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
020347,000882: 35,3054           05426                           TC       PHASCHNG                              
020348,000883: 35,3055           04024                           OCT      04024                                 
020349,000884: 35,3056           05562                           TC       UPFLAG                                #  SET
020350,000885: 35,3057           00047                           ADRES    FINALFLG                              #  FINALFLG
020351,000886: 35,3060           30005        CLUPDATE           CA       Z                                     
020352,000887: 35,3061           54000                           TS       DISPDEX                               
020353,000888: 35,3062           05426                           TC       PHASCHNG                              
020354,000889: 35,3063           04024                           OCT      04024                                 
020355,000890: 35,3064           06006                           TC       INTPRET                               
020356,000891: 35,3065           52014                           CLEAR    GOTO                                  
020357,000892: 35,3066           00670                                    UPDATFLG                              
020358,000893: 35,3067           02366                                    QSAVED                                
020359,000894: 
020360,000895:                                                                                                  #  ..... DISPLAYE .....
020361,000896: 
020362,000897:                                                                                                  #  SUBROUTINES USED
020363,000898:                                                                                                  #        BANKCALL
020364,000899:                                                                                                  #        GOFLASHR
020365,000900:                                                                                                  #        GOTOPOOH
020366,000901:                                                                                                  #        BLANKET
020367,000902:                                                                                                  #        ENDOFJOB
020368,000903: 
020369,000904: 35,3070           00006        DISPLAYE           EXTEND                                         
020370,000905: 35,3071           23340                           QXCH     NORMEX                                
020371,000906: 35,3072           34615                           CAF      V06N55                                
020372,000907: 35,3073           04676                           TCR      BANKCALL                              
020373,000908: 35,3074           20720                           CADR     GOFLASH                               
020374,000909: 35,3075           14106                           TCF      GOTOPOOH                              
020375,000910: 35,3076           01340                           TC       NORMEX                                
020376,000911: 35,3077           13072                           TCF      -5                                    
020377,000912: 
020378,000913:                                                                                                  #  ..... P3XORP7X .....
020379,000914: 
020380,000915: 35,3100           37713        P3XORP7X           CAF      HIGH9                                 
020381,000916: 35,3101           71011                           MASK     MODREG                                
020382,000917: 35,3102           00006                           EXTEND                                         
020383,000918: 35,3103           13105                           BZF      +2                                    
020384,000919: 35,3104           24002                           INCR     Q                                     
020385,000920: 35,3105           00002                           RETURN                                         
020386,000921: 
020387,000922:                                                                                                  #  ..... VNPOOH .....
020388,000923: 
020389,000924:                                                                                                  #  SUBROUTINES USED
020390,000925:                                                                                                  #        BANKCALL
020391,000926:                                                                                                  #        GOFLASH
020392,000927:                                                                                                  #        GOTOPOOH
020393,000928: 
020394,000929:    4000                                           SETLOC   P30SUBS                               
020395,000930:    4000                                           BANK                                           
020396,000931: 
020397,000932:    4575           00006        VNPOOH             EXTEND                                         
020398,000933:    4576           23767                           QXCH     RTRN                                  
020399,000934:    4577           55765                           TS       VERBNOUN                              
020400,000935:    4600           34610                           CAF      VNBANK                                #  ***** THIS ROUTINE MUST REMAIN IN
020401,000936:    4601           56004                           XCH      FBANK                                 #        FIXED-FIXED *****
020402,000937:    4602           55063                           TS       TBASE5                                #  * WATCH OUT *
020403,000938: 
020404,000939:    4603           31765                           CA       VERBNOUN                              
020405,000940:    4604           04676                           TCR      BANKCALL                              
020406,000941:    4605           20720                           CADR     GOFLASH                               
020407,000942:    4606           14106                           TCF      GOTOPOOH                              
020408,000943:    4607           14611                           TCF      +2                                    
020409,000944:    4610           04603        VNBANK             TC       -5                                    
020410,000945: 
020411,000946:    4611           31063                           CA       TBASE5                                
020412,000947:    4612           54004                           TS       FBANK                                 
020413,000948:    4613           01767                           TC       RTRN                                  
020414,000949: 
020415,000950:                                                                                                  #  ..... CONSTANTS .....
020416,000951: 
020417,000952:    4614           01445        V06N37             VN       0637                                  
020418,000953:    4615           01467        V06N55             VN       0655                                  
020419,000954:    4616           01472        V06N58             VN       0658                                  
020420,000955:    4617           01473        V06N59             VN       0659                                  
020421,000956:    4620           01521        V06N81             VN       0681                                  
020422,000957:    4621           04055        V16N45             VN       1645                                  
020423,000958: 35,2000                                           SETLOC   CSI/CDH                               
020424,000959: 35,2000                                           BANK                                           
020425,000960: 
020426,000961: 35,3106           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
020427,000962: 35,3110           00001 20650  MAX250             2DEC     25         E3                         
020428,000963: 35,3112           12525 12525  THIRD              2DEC     .333333333                            
020429,000964: 35,3114           00004 21505  ELEPS              2DEC     .27777777  E-3                        
020430,000965: 35,3116           00002        DECTWO             OCT      2                                     
020431,000966: 35,3117           77777        DP-.01             OCT      77777                                 #  CONSTANTS
020432,000967: 35,3120           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
020433,000968: 35,3121           01252 25253  EPSFOUR            2DEC     .0416666666                            
020434,000969: 
020435,000970:                                                                                                  #  ..... INITVEL .....
020436,000971:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
020437,000972:                                                                                                  #  MOD BY WHITE.P                DATE  21NOV67
020438,000973: 
020439,000974:                                                                                                  #  FUNCTIONAL DESCRIPTION
020440,000975:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
020441,000976:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
020442,000977:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
020443,000978:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
020444,000979:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
020445,000980:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
020446,000981:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
020447,000982:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
020448,000983:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
020449,000984:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
020450,000985: 
020451,000986:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
020452,000987:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
020453,000988:                                                                                                  #        SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
020454,000989:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
020455,000990:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
020456,000991:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
020457,000992:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
020458,000993:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
020459,000994: 
020460,000995:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
020461,000996:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
020462,000997:                                                                                                  #        TRAJECTORY COMPUTATIONS.
020463,000998: 
020464,000999:                                                                                                  #  CALLING SEQUENCE
020465,001000:                                                                                                  #        L       CALL
020466,001001:                                                                                                  #        L+1             INITVEL
020467,001002:                                                                                                  #        L+2     (RETURN - ALWAYS)
020468,001003: 
020469,001004:                                                                                                  #  INPUT
020470,001005:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
020471,001006:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
020472,001007:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
020473,001008:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
020474,001009:                                                                                                  #        (5)     INTIME          TIME OF RINIT
020475,001010:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
020476,001011:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
020477,001012:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
020478,001013:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
020479,001014:                                                                                                  #        PUSHLOC SET AT 4D
020480,001015: 
020481,001016:                                                                                                  #  OUTPUT
020482,001017:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
020483,001018:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
020484,001019:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
020485,001020:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
020486,001021: 
020487,001022:                                                                                                  #  SUBROUTINES USED
020488,001023:                                                                                                  #        LAMBERT
020489,001024:                                                                                                  #        INTSTALL
020490,001025:                                                                                                  #        INTEGRVS
020491,001026: 
020492,001027: 11,2000                                           SETLOC   INTVEL                                
020493,001028: 11,2000                                           BANK                                           
020494,001029: 
020495,001030: 11,2000                                           COUNT    11/INITV                              
020496,001031: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
020497,001032: 11,2001           00475                                    GUESSW                                
020498,001033: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
020499,001034: 11,2003           03415                                    RTARG                                 
020500,001035: 11,2004           01340                                    NORMEX                                
020501,001036: 11,2005           03604                           STORE    RTARG1                                
020502,001037: 11,2006           46135                           SLOAD    BHIZ                                  
020503,001038: 11,2007           03747                                    RTX2                                  
020504,001039: 11,2010           22022                                    INITVEL1                              
020505,001040: 11,2011           72575                           VLOAD    VSL2                                  
020506,001041: 11,2012           03570                                    RINIT                                 #  B29
020507,001042: 11,2013           27570                           STOVL    RINIT                                 #  B27
020508,001043: 11,2014           03576                                    VINIT                                 #  B7
020509,001044: 11,2015           77752                           VSL2                                           
020510,001045: 11,2016           27576                           STOVL    VINIT                                 #  B5
020511,001046: 11,2017           03604                                    RTARG1                                
020512,001047: 11,2020           77752                           VSL2                                           
020513,001048: 11,2021           03604                           STORE    RTARG1                                
020514,001049: 
020515,001050:                                                                                                  #  INITIALIZATION
020516,001051: 
020517,001052: 11,2022           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
020518,001053: 11,2023           03505                                    ITCTR                                 
020519,001054: 11,2024           77776                                    0          -1                         
020520,001055: 11,2025           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
020521,001056: 11,2026           17630                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4) (PL 0D)
020522,001057: 11,2027           67154                           LXA,2    SXA,2                                 
020523,001058: 11,2030           00154                                    MPAC                                  
020524,001059: 11,2031           02703                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
020525,001060: 11,2032           77775                           VLOAD                                          
020526,001061: 11,2033           03570                                    RINIT                                 
020527,001062: 11,2034           26657                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
020528,001063: 11,2035           03604                                    RTARG1                                
020529,001064: 11,2036           16665                           STODL    R2VEC                                 #  R2VEC EQ RTARG
020530,001065: 11,2037           03423                                    DELLT4                                
020531,001066: 11,2040           02673                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
020532,001067: 11,2041           77201                           SETPD    VLOAD                                 
020533,001068: 11,2042           00001                                    0D                                    #  INITIALIZE PL TO 0D
020534,001069: 11,2043           03570                                    RINIT                                 #  MPAC EQ RINIT (+29)
020535,001070: 11,2044           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)         (PL 6D)
020536,001071: 11,2045           53435                           VXV      UNIT                                  
020537,001072: 11,2046           03576                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
020538,001073: 11,2047           26676                           STOVL    UN                                    
020539,001074: 11,2050           03604                                    RTARG1                                
020540,001075: 11,2051           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)     (PL 0D)
020541,001076: 11,2052           43015                           DAD      CLEAR                                 
020542,001077: 11,2053           03630                                    COZY4                                 
020543,001078: 11,2054           03665                                    NORMSW                                
020544,001079: 11,2055           03630                           STORE    COZY4                                 
020545,001080: 11,2056           43044        INITVEL2           BPL      SET                                   
020546,001081: 11,2057           22101                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
020547,001082: 11,2060           03465                                    NORMSW                                
020548,001083: 
020549,001084:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
020550,001085: 
020551,001086: 11,2061           41575                           VLOAD    PUSH                                  #                                   (PL 6D)
020552,001087: 11,2062           02665                                    R2VEC                                 #  RC TO 6D (+29)
020553,001088: 11,2063           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
020554,001089: 11,2064           46206                           PUSH     VPROJ                                 #                                   (PL 8D)
020555,001090: 11,2065           02676                                    UN                                    
020556,001091: 11,2066           51352                           VSL2     BVSU                                  
020557,001092: 11,2067           74256                           UNIT     VXSC                                  #                                   (PL 0D)
020558,001093: 11,2070           77772                           VSL1                                           
020559,001094: 11,2071           02665                           STORE    R2VEC                                 
020560,001095: 11,2072           67351                           TLOAD    SLOAD                                 
020561,001096: 11,2073           11566                                    ZEROVEC                               
020562,001097: 11,2074           03505                                    ITCTR                                 
020563,001098: 11,2075           77244                           BPL      VLOAD                                 
020564,001099: 11,2076           22101                                    INITVEL3                              
020565,001100: 11,2077           02665                                    R2VEC                                 
020566,001101: 11,2100           03604                           STORE    RTARG1                                
020567,001102: 11,2101           63345        INITVEL3           DLOAD    PDVL                                  #                                (PL 2D)
020568,001103: 11,2102           27741                                    MUEARTH                               #  POSITIVE VALUE
020569,001104: 11,2103           02665                                    R2VEC                                 
020570,001105: 11,2104           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)              (PL 8D)
020571,001106: 11,2105           02657                                    R1VEC                                 
020572,001107: 11,2106           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)              (PL 14D)
020573,001108: 11,2107           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
020574,001109: 11,2110           00003                                    2D                                    
020575,001110: 11,2111           77606                           PUSH                                           #                                (PL 20D)
020576,001111: 11,2112           71350                           LXA,1    DLOAD                                 
020577,001112: 11,2113           03745                                    RTX1                                  
020578,001113: 11,2114           00023                                    18D                                   
020579,001114: 11,2115           62040                           BMN      INCR,1                                
020580,001115: 11,2116           22120                                    +2                                    
020581,001116: 11,2117           77767                           DEC      -8         B-14                       
020582,001117: 11,2120           67310                           INCR,1   SLOAD                                 
020583,001118: 11,2121           00012                                    10D                                   
020584,001119: 11,2122           00047                                    X1                                    
020585,001120: 11,2123           77230                           BHIZ     VLOAD                                 #                        (PL 14D)
020586,001121: 11,2124           22126                                    +2                                    
020587,001122: 11,2125           41476                           VCOMP    PUSH                                  #                        (PL 20 D)
020588,001123: 11,2126           77775                           VLOAD                                          #                        (PL 14D)
020589,001124: 11,2127           50235                           VXV      DOT                                   #                        (PL 2D)
020590,001125: 11,2130           71244                           BPL      DLOAD                                 #                        (PL 0D)
020591,001126: 11,2131           22133                                    INITVEL4                              
020592,001127: 11,2132           41476                           DCOMP    PUSH                                  #                        (PL 2D)
020593,001128: 11,2133           67154        INITVEL4           LXA,2    SXA,2                                 
020594,001129: 11,2134           00000                                    0D                                    
020595,001130: 11,2135           02674                                    GEOMSGN                               
020596,001131: 
020597,001132:                                                                                                  #  SET INPUTS UP FOR LAMBERT
020598,001133: 
020599,001134: 11,2136           45150                           LXA,1    CALL                                  
020600,001135: 11,2137           03745                                    RTX1                                  
020601,001136:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
020602,001137: 
020603,001138: 11,2140           25224                                    LAMBERT                               
020604,001139: 
020605,001140:                                                                                                  #        DELETE THRU 4521
020606,001141:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
020607,001142: 
020608,001143: 11,2141           77214                           CLEAR    VLOAD                                 
020609,001144: 11,2142           00675                                    GUESSW                                
020610,001145: 11,2143           02746                                    VVEC                                  
020611,001146: 
020612,001147:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
020613,001148: 
020614,001149: 11,2144           17612                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
020615,001150: 
020616,001151:                                                                                                  #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
020617,001152:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
020618,001153: 
020619,001154: 11,2145           02704                                    VTARGTAG                              
020620,001155: 11,2146           45030                           BHIZ     CALL                                  
020621,001156: 11,2147           22224                                    INITVEL7                              
020622,001157: 11,2150           27446                                    INTSTALL                              
020623,001158: 11,2151           43135                           SLOAD    CLEAR                                 
020624,001159: 11,2152           03747                                    RTX2                                  
020625,001160: 11,2153           00263                                    MOONFLAG                              
020626,001161: 11,2154           43030                           BHIZ     SET                                   
020627,001162: 11,2155           22157                                    INITVEL5                              
020628,001163: 11,2156           00063                                    MOONFLAG                              
020629,001164: 11,2157           77775        INITVEL5           VLOAD                                          
020630,001165: 11,2160           03570                                    RINIT                                 
020631,001166: 11,2161           02657                           STORE    R1VEC                                 
020632,001167: 11,2162           25535                           STOVL    RCV                                   
020633,001168: 11,2163           03612                                    VIPRIME                               
020634,001169: 11,2164           15543                           STODL    VCV                                   
020635,001170: 11,2165           03503                                    INTIME                                
020636,001171: 11,2166           01517                           STORE    TET                                   
020637,001172: 11,2167           43015                           DAD      CLEAR                                 
020638,001173: 11,2170           03423                                    DELLT4                                
020639,001174: 11,2171           01673                                    INTYPFLG                              
020640,001175: 11,2172           34041                           STCALL   TDEC1                                 
020641,001176: 11,2173           27144                                    INTEGRVS                              
020642,001177: 11,2174           77775                           VLOAD                                          
020643,001178: 11,2175           00025                                    VATT1                                 
020644,001179: 11,2176           02705                           STORE    VTARGET                               
020645,001180: 
020646,001181:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
020647,001182:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
020648,001183: 
020649,001184: 11,2177           63154                           LXA,2    INCR,2                                
020650,001185: 11,2200           03504                                    ITCTR                                 
020651,001186: 11,2201           00001                                    1D                                    #  INCREMENT ITCTR
020652,001187: 11,2202           55134                           SXA,2    XSU,2                                 
020653,001188: 11,2203           03504                                    ITCTR                                 
020654,001189: 11,2204           02703                                    VTARGTAG                              
020655,001190: 11,2205           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
020656,001191: 11,2206           00050                                    X2                                    
020657,001192: 11,2207           22221                                    INITVEL6                              
020658,001193: 
020659,001194:                                                                                                  #  OFFSET CONIC TARGET VECTOR
020660,001195: 
020661,001196: 11,2210           52375                           VLOAD    VSU                                   
020662,001197: 11,2211           03604                                    RTARG1                                
020663,001198: 11,2212           00017                                    RATT1                                 
020664,001199: 11,2213           77655                           VAD                                            
020665,001200: 11,2214           02665                                    R2VEC                                 
020666,001201: 11,2215           16665                           STODL    R2VEC                                 
020667,001202: 11,2216           03630                                    COZY4                                 
020668,001203: 11,2217           77650                           GOTO                                           
020669,001204: 11,2220           22056                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
020670,001205: 
020671,001206:                                                                                                  #  COMPUTE THE DELTA VELOCITY
020672,001207: 
020673,001208: 11,2221           77775        INITVEL6           VLOAD                                          
020674,001209: 11,2222           02665                                    R2VEC                                 
020675,001210: 11,2223           03604                           STORE    RTARG1                                
020676,001211: 11,2224           52375        INITVEL7           VLOAD    VSU                                   
020677,001212: 11,2225           03612                                    VIPRIME                               
020678,001213: 11,2226           03576                                    VINIT                                 
020679,001214: 11,2227           27646                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
020680,001215: 11,2230           02705                                    VTARGET                               
020681,001216: 11,2231           03620                           STORE    VTPRIME                               
020682,001217: 11,2232           46135                           SLOAD    BHIZ                                  
020683,001218: 11,2233           03747                                    RTX2                                  
020684,001219: 11,2234           22251                                    INITVELX                              
020685,001220: 11,2235           70575                           VLOAD    VSR2                                  
020686,001221: 11,2236           03620                                    VTPRIME                               
020687,001222: 11,2237           27620                           STOVL    VTPRIME                               
020688,001223: 11,2240           03612                                    VIPRIME                               
020689,001224: 11,2241           77742                           VSR2                                           
020690,001225: 11,2242           27612                           STOVL    VIPRIME                               
020691,001226: 11,2243           03604                                    RTARG1                                
020692,001227: 11,2244           77742                           VSR2                                           
020693,001228: 11,2245           27604                           STOVL    RTARG1                                
020694,001229: 11,2246           03646                                    DELVEET3                              
020695,001230: 11,2247           77742                           VSR2                                           
020696,001231: 11,2250           03646                           STORE    DELVEET3                              
020697,001232: 11,2251           77201        INITVELX           SETPD    VLOAD                                 
020698,001233: 11,2252           00001                                    0D                                    
020699,001234: 11,2253           03604                                    RTARG1                                
020700,001235: 11,2254           03415                           STORE    RTARG                                 
020701,001236: 11,2255           77614                           CLRGO                                          
020702,001237: 11,2256           01227                                    XDELVFLG                              
020703,001238: 11,2257           01340                                    NORMEX                                
020704,001239: 
020705,001240:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
020706,001241: 
020707,001242:                                                                                                  #  ..... MIDGIM .....
020708,001243:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
020709,001244:                                                                                                  #  REVISION 03, 17 FEB 67
020710,001245: 
020711,001246:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
020712,001247:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
020713,001248:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
020714,001249:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
020715,001250:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
020716,001251: 
020717,001252:                                                                                                  #  .. INPUTS ..
020718,001253:                                                                                                  #    NAME     MEANING                                            UNITS/SCALING/MODE
020719,001254:                                                                                                  #    AVFLAG   INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE        BIT
020720,001255:                                                                                                  #    COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER    BIT
020721,001256:                                                                                                  #    RINIT    ACTIVE VEHICLE RADIUS VECTOR                       METERS/CSEC (+7) VT
020722,001257:                                                                                                  #    VINIT    ACTIVE VEHICLE VELOCITY VECTOR                     METERS/CSEC (+7) VT
020723,001258:                                                                                                  #    0D(PL)   ACTIVE VEHICLE DELTA VELOCITY VECTOR               METERS/CSEC (+7) VT
020724,001259: 
020725,001260:                                                                                                  #  .. OUTPUTS ..
020726,001261:                                                                                                  #    NAME     MEANING                                            UNITS/SCALING/MODE
020727,001262:                                                                                                  #    +MGA     + MIDDLE GIMBAL ANGLE                              REVOLUTIONS (+0) DP
020728,001263:                                                                                                  #    DELVLVC  DELTA VELOCITY VECTOR IN LV COORD.                 METERS/CSEC (+7) VT
020729,001264:                                                                                                  #    MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.        -         BIT
020730,001265: 
020731,001266:                                                                                                  #  .. CALLING SEQUENCE ..
020732,001267:                                                                                                  #        L       CALL
020733,001268:                                                                                                  #        L+1             MIDGIM
020734,001269:                                                                                                  #        L+2     (RETURN - ALWAYS)
020735,001270: 
020736,001271:                                                                                                  #  .. NO SUBROUTINES CALLED ..
020737,001272: 
020738,001273:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE 
020739,001274:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
020740,001275: 
020741,001276:                                                                                                  #  .. ALARMS - NONE ..
020742,001277: 
020743,001278:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
020744,001279: 04,2000                                           SETLOC   MIDDGIM                               
020745,001280: 04,2000                                           BANK                                           
020746,001281: 
020747,001282: 04,2645                                           COUNT*   $$/MIDG                               
020748,001283: 
020749,001284: 04,2645           20000 00000  HALFREV            2DEC     1          B-1                        
020750,001285: 
020751,001286: 04,2647           43014        MIDGIM             BON      BOFF                                  
020752,001287: 04,2650           01312                                    AVFLAG                                
020753,001288: 04,2651           10667                                    MIDGIM1                               
020754,001289: 04,2652           02747                                    COMPUTER                              
020755,001290: 04,2653           10672                                    GET.LVC                               
020756,001291: 
020757,001292:                                                                                                  #  COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
020758,001293: 
020759,001294: 04,2654           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
020760,001295: 04,2655           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
020761,001296: 04,2656           01744                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
020762,001297: 04,2657           51136                           ARCSIN   BPL                                   
020763,001298: 04,2660           10664                                    SETMGA                                
020764,001299: 04,2661           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
020765,001300: 04,2662           10646                                    HALFREV                               #  ADDING ONE REVOLUTION
020766,001301: 04,2663           10646                                    HALFREV                               
020767,001302: 04,2664           03626        SETMGA             STORE    +MGA                                  
020768,001303: 04,2665           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
020769,001304: 04,2666           02675                                    MGLVFLAG                              #  AND EXIT
020770,001305: 
020771,001306: 04,2667           77614        MIDGIM1            BOFF                                           
020772,001307: 04,2670           02747                                    COMPUTER                              
020773,001308: 04,2671           10654                                    GET+MGA                               
020774,001309: 
020775,001310:                                                                                                  #  COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
020776,001311: 
020777,001312: 04,2672           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
020778,001313: 04,2673           03570                                    RINIT                                 
020779,001314: 04,2674           77676                           VCOMP                                          #  U(-R)
020780,001315: 04,2675           00023                           STORE    18D                                   #  U(-R) TO 18D
020781,001316: 04,2676           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
020782,001317: 04,2677           03576                                    VINIT                                 
020783,001318: 04,2700           00015                           STORE    12D                                   #  U(V*R) TO 12D
020784,001319: 04,2701           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
020785,001320: 04,2702           00023                                    18D                                   
020786,001321: 04,2703           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
020787,001322: 04,2704           00001                                    0D                                    #  DELTA V (+7) IN 0D
020788,001323: 04,2705           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
020789,001324: 04,2706           00007                                    6D                                    #  AND SCALE +7 IN MPAC
020790,001325: 04,2707           03405                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
020791,001326: 04,2710           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
020792,001327: 04,2711           02475                                    MGLVFLAG                              #  AND EXIT
020793,001328: 
020794,001329:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
020795,001330: 
020796,001331: 04,2712           77160        SELECTMU           AXC,1    AXT,2                                 
020797,001332: 04,2713           00002                                    2D                                    
020798,001333: 04,2714           00000                                    0D                                    
020799,001334: 04,2715           77614                           BOFF                                           
020800,001335: 04,2716           04343                                    CMOONFLG                              
020801,001336: 04,2717           10723                                    SETMUER                               
020802,001337: 04,2720           77160                           AXC,1    AXT,2                                 
020803,001338: 04,2721           00012                                    10D                                   
020804,001339: 04,2722           00002                                    2D                                    
020805,001340: 04,2723           66143        SETMUER            DLOAD*   SXA,1                                 
020806,001341: 04,2724           11744                                    MUTABLE    +4,1                       
020807,001342: 04,2725           03745                                    RTX1                                  
020808,001343: 04,2726           23752                           STODL*   RTSR1/MU                              
020809,001344: 04,2727           11736                                    MUTABLE    -2,1                       
020810,001345: 04,2730           54214                           BOFF     SR                                    
020811,001346: 04,2731           04343                                    CMOONFLG                              
020812,001347: 04,2732           10734                                    RTRNMU                                
020813,001348: 04,2733           20607                                    6D                                    
020814,001349: 04,2734           03750        RTRNMU             STORE    RTMU                                  
020815,001350: 04,2735           43134                           SXA,2    CLEAR                                 
020816,001351: 04,2736           03746                                    RTX2                                  
020817,001352: 04,2737           01271                                    FINALFLG                              
020818,001353: 04,2740           77650                           GOTO                                           
020819,001354: 04,2741           73002                                    VN1645                                
020820,001355: 
020821,001356:                                                                                                  #  ..... PERIAPO .....
020822,001357:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
020823,001358:                                                                                                  #  MOD BY WHITE.P                DATE 18JAN68
020824,001359: 
020825,001360:                                                                                                  #  FUNCTIONAL DESCRIPTION
020826,001361: 
020827,001362:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
020828,001363:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
020829,001364:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
020830,001365: 
020831,001366:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
020832,001367: 
020833,001368:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
020834,001369:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
020835,001370: 
020836,001371:                                                                                                  #  CALLING SEQUENCE
020837,001372:                                                                                                  #        L       CALL
020838,001373:                                                                                                  #        L+1             PERIAPO
020839,001374:                                                                                                  #        L+2     (RETURN - ALWAYS)
020840,001375: 
020841,001376:                                                                                                  #  INPUT
020842,001377:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
020843,001378:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
020844,001379:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
020845,001380:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
020846,001381:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
020847,001382:                                                                                                  #                        EARTH -2, MOON -10
020848,001383: 
020849,001384:                                                                                                  #  OUTPUT
020850,001385:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
020851,001386:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
020852,001387:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
020853,001388:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
020854,001389:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
020855,001390:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
020856,001391:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
020857,001392:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
020858,001393:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
020859,001394:                                                                                                  #                        SCALE FACTOR - +3
020860,001395:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
020861,001396:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
020862,001397:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
020863,001398: 
020864,001399:                                                                                                  #  SUBROUTINES USED
020865,001400:                                                                                                  #        SETRAD
020866,001401:                                                                                                  #        APSIDES
020867,001402: 
020868,001403: 22,2000                                           SETLOC   APOPERI                               
020869,001404: 22,2000                                           BANK                                           
020870,001405: 
020871,001406: 22,3151                                           COUNT*   $$/PERAP                              
020872,001407: 
020873,001408: 22,3151           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
020874,001409:                                                                                                  #  = 20 909 901.57 FT
020875,001410: 
020876,001411: 22,3153           53754        PERIAPO1           LXA,2    VSR*                                  
020877,001412: 22,3154           03746                                    RTX2                                  
020878,001413: 22,3155           57176                                    0,2                                   
020879,001414: 22,3156           26746                           STOVL    VVEC                                  
020880,001415: 22,3157           53750                           LXA,1    VSR*                                  
020881,001416: 22,3160           03745                                    RTX1                                  
020882,001417: 22,3161           57176                                    0,2                                   
020883,001418: 22,3162           02657                           STORE    RVEC                                  
020884,001419: 22,3163           45020        PERIAPO            STQ      CALL                                  
020885,001420: 22,3164           01340                                    NORMEX                                
020886,001421: 22,3165           45201                                    SETRAD                                
020887,001422: 22,3166           37456                           STCALL   XXXALT                                
020888,001423: 22,3167           25713                                    APSIDES                               
020889,001424: 22,3170           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
020890,001425: 22,3171           00003                                    2D                                    
020891,001426: 22,3172           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
020892,001427: 22,3173           03456                                    XXXALT                                
020893,001428: 22,3174           00001                                    0D                                    
020894,001429: 22,3175           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
020895,001430: 22,3176           03456                                    XXXALT                                
020896,001431: 22,3177           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
020897,001432: 22,3200           01340                                    NORMEX                                
020898,001433:                                                                                                  #  SETRAD
020899,001434: 22,3201           41545        SETRAD             DLOAD    PUSH                                  
020900,001435: 22,3202           05152                                    RPAD                                  
020901,001436: 22,3203           63130                           SXA,1    INCR,2                                
020902,001437: 22,3204           00047                                    X2                                    
020903,001438: 22,3205           00002                                    2D                                    
020904,001439: 22,3206           46135                           SLOAD    BHIZ                                  
020905,001440: 22,3207           00050                                    X2                                    
020906,001441: 22,3210           45214                                    SETRADX                               
020907,001442: 22,3211           51575                           VLOAD    ABVAL                                 
020908,001443: 22,3212           02026                                    RLS                                   
020909,001444: 22,3213           77725                           PDDL                                           
020910,001445: 22,3214           43545        SETRADX            DLOAD    RVQ                                   
020911,001446: 
020912,001447:                                                                                                  #  PRECSET
020913,001448: 22,3215           77620        PRECSET            STQ                                            
020914,001449: 22,3216           01340                                    NORMEX                                
020915,001450: 22,3217           36635                           STCALL   TDEC2                                 
020916,001451: 22,3220           27114                                    LEMPREC                               
020917,001452: 22,3221           77624                           CALL                                           
020918,001453: 22,3222           45233                                    LEMSTORE                              
020919,001454: 22,3223           77745                           DLOAD                                          
020920,001455: 22,3224           02635                                    TDEC2                                 
020921,001456: 22,3225           34041                           STCALL   TDEC1                                 
020922,001457: 22,3226           27100                                    CSMPREC                               
020923,001458: 22,3227           77624                           CALL                                           
020924,001459: 22,3230           45243                                    CSMSTORE                              
020925,001460: 22,3231           77650                           GOTO                                           
020926,001461: 22,3232           01340                                    NORMEX                                
020927,001462: 22,3233           43175        LEMSTORE           VLOAD    BOFF                                  
020928,001463: 22,3234           00001                                    RATT                                  
020929,001464: 22,3235           01352                                    AVFLAG                                
020930,001465: 22,3236           45247                                    PASSIVE                               
020931,001466: 22,3237           27540        ACTIVE             STOVL    RACT3                                 
020932,001467: 22,3240           00007                                    VATT                                  
020933,001468: 22,3241           03546                           STORE    VACT3                                 
020934,001469: 22,3242           77616                           RVQ                                            
020935,001470: 22,3243           43175        CSMSTORE           VLOAD    BOFF                                  
020936,001471: 22,3244           00001                                    RATT                                  
020937,001472: 22,3245           01352                                    AVFLAG                                
020938,001473: 22,3246           45237                                    ACTIVE                                
020939,001474: 22,3247           27554        PASSIVE            STOVL    RPASS3                                
020940,001475: 22,3250           00007                                    VATT                                  
020941,001476: 22,3251           03562                           STORE    VPASS3                                
020942,001477: 22,3252           77616                           RVQ                                            
020943,001478: 
020944,001479:                                                                                                  #  VECSHIFT
020945,001480: 22,3253           53754        VECSHIFT           LXA,2    VSR*                                  
020946,001481: 22,3254           03746                                    RTX2                                  
020947,001482: 22,3255           57176                                    0,2                                   
020948,001483: 22,3256           63350                           LXA,1    PDVL                                  
020949,001484: 22,3257           03745                                    RTX1                                  
020950,001485: 22,3260           63257                           VSR*     PDVL                                  
020951,001486: 22,3261           57176                                    0,2                                   
020952,001487: 22,3262           77616                           RVQ                                            
020953,001488: 
020954,001489:                                                                                                  #  SHIFTR1
020955,001490: 22,3263           53754        SHIFTR1            LXA,2    SL*                                   
020956,001491: 22,3264           03746                                    RTX2                                  
020957,001492: 22,3265           57576                                    0,2                                   
020958,001493: 22,3266           77616                           RVQ                                            
020959,001494: 
020960,001495:                                                                                                  #  PROGRAM DESCRIPTION
020961,001496: 
020962,001497:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
020963,001498:                                                                                                  #  MOD NO. 2             DATE 2 JANUARY 1969
020964,001499:                                                                                                  #  MOD BY A.W.BANCROFT   LOG SECTION EXTENDED VERBS
020965,001500: 
020966,001501:                                                                                                  #  FUNCTIONAL DESCRIPTION
020967,001502: 
020968,001503:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
020969,001504:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
020970,001505: 
020971,001506:                                                                                                  #  CALLING SEQUENCE
020972,001507:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
020973,001508: 
020974,001509:                                                                                                  #  SUBROUTINES CALLED
020975,001510:                                                                                                  #        EXDSPRET
020976,001511:                                                                                                  #        GOMARKF
020977,001512:                                                                                                  #        CSMPREC
020978,001513:                                                                                                  #        LEMPREC
020979,001514:                                                                                                  #        SGNAGREE
020980,001515:                                                                                                  #        LOADTIME
020981,001516: 
020982,001517:                                                                                                  #  NORMAL EXIT MODES
020983,001518:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
020984,001519: 
020985,001520:                                                                                                  #  ALARM OR ABORT EXIT MODES
020986,001521:                                                                                                  #        NONE
020987,001522: 
020988,001523:                                                                                                  #  OUTPUT
020989,001524:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
020990,001525: 
020991,001526:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
020992,001527:                                                                                                  #        REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
020993,001528: 
020994,001529:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
020995,001530:                                                                                                  #        CSM AND LEM STATE VECTORS
020996,001531: 
020997,001532:                                                                                                  #  DEBRIS
020998,001533:                                                                                                  #        CENTRALS A,Q,L
020999,001534:                                                                                                  #        OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
021000,001535: 

Comanche 67 and earlier used EBANK= RPASS36 (erasable bank 4) for R36. It has been changed to EBANK= TIG (erasable bank 7) as part of PCR 936.1, "Initialize V90 time to TIG", in order to give R36 easier access to TIG.

021005,001540: 20,2164                                           BANK     20                                    
021006,001541: 20,2000                                           SETLOC   R36CM                                 
021007,001542: 20,2000                                           BANK                                           
021008,001543: 20,2164  E7,1412                                  EBANK=   TIG                                   
021009,001544: 
021010,001545: 20,2164  41,3734                                  SBANK=   R36A                                  
021011,001546: 20,2164                                           COUNT*   $$/R36                                
021012,001547: 
021013,001548: 20,2164           35032        R36                CAF      TWO                                   
021014,001549: 20,2165           55051                           TS       OPTIONX                               
021015,001550: 20,2166           35033                           CAF      ONE                                   
021016,001551: 20,2167           55052                           TS       OPTIONX    +1                         
021017,001552: 20,2170           32200                           CAF      OPTION36                              #  V 04 N 12
021018,001553: 20,2171           04676                           TC       BANKCALL                              
021019,001554: 20,2172           20561                           CADR     GOXDSPF                               
021020,001555: 20,2173           05550                           TC       ENDEXT                                #  TERMINATE
021021,001556: 20,2174           02176                           TC       +2                                    #  PROCEED
021022,001557: 20,2175           02170                           TC       -5                                    #  R2 LOADED VIA DSKY
021023,001558: 20,2176           04715                           TC       POSTJUMP                              
021024,001559: 20,2177           63734                           CADR     R36A                                  
021025,001560: 
021026,001561: 20,2200           01014        OPTION36           VN       0412                                  
021027,001562: 
021028,001563: 41,2000                                           SETLOC   R36LM                                 
021029,001564: 41,2000                                           BANK                                           
021030,001565: 

Reconstruction: As part of PCR 936.1, "Initialize V90 time to TIG", R36A was changed to not zero DSPTEMX, and R36P3 was changed to initialize DSPTEMX to TIG.

021034,001569: 41,3734           31052        R36A               CA       OPTIONX    +1                         
021035,001570: 41,3735           54111                           TS       OPTIONY                               #  SAVE VEH. OPTION
021036,001571: 41,3736           00006        R36P3              EXTEND                                         
021037,001572: 41,3737           31413                           DCA      TIG                                   
021038,001573: 41,3740           53052                           DXCH     DSPTEMX                               
021039,001574: 41,3741           33773                           CAF      V06N16N                               
021040,001575: 41,3742           04676                           TC       BANKCALL                              
021041,001576: 41,3743           20561                           CADR     GOMARKF                               
021042,001577: 41,3744           15550                           TCF      ENDEXT                                #  TERMINATE
021043,001578: 41,3745           13747                           TCF      +2                                    #  PROCEED
021044,001579: 41,3746           13741                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME

Reconstruction: The following code, down to the next SETLOC, was completely rewritten in Comanche 72 as part of PCR 936.1, "Initialize V90 time to TIG". The logic in Comanche 67 and earlier accomplished essentially the same thing, but it was written in basic instead of interpretive, and did not write the time into TDEC1.

021050,001585: 41,3747           06006                           TC       INTPRET                               
021051,001586: 41,3750           53145                           DLOAD    BZE                                   
021052,001587: 41,3751           01052                                    DSPTEMX                               
021053,001588: 41,3752           63770                                    ENTTIM2                               #  ASTOR-LOADED ZERO, GET PRES TIME
021054,001589: 41,3753           34041        ASTROTIM           STCALL   TDEC1                                 
021055,001590: 41,3754           65521                                    R36INT                                
021056,001591: 
021057,001592: 42,2000                                           SETLOC   R36LM1                                
021058,001593: 42,2000                                           BANK                                           
021059,001594: 

Reconstruction: R36INT began with STORE TDEC1 in Comanche 67 and earlier. It has been deleted for Comanche 72 as part of PCR 936.1, "Initialize V90 time to TIG", because the storing into TDEC1 is now performed by ASTROTIM.

021064,001599: 42,3521           70535        R36INT             SLOAD    SR1                                   
021065,001600: 42,3522           00112                                    OPTIONY                               
021066,001601: 42,3523           45030                           BHIZ     CALL                                  
021067,001602: 42,3524           65530                                    R36PROG2                              #  FOR CSM DISPLAY
021068,001603: 42,3525           27100                                    THISPREC                              #  FOR LEM DISPLAY
021069,001604: 42,3526           77650                           GOTO                                           
021070,001605: 42,3527           65532                                    R36PROG3                              
021071,001606: 42,3530           77624        R36PROG2           CALL                                           
021072,001607: 42,3531           27114                                    OTHPREC                               
021073,001608: 42,3532           63375        R36PROG3           VLOAD    PDVL                                  
021074,001609: 42,3533           00007                                    VATT                                  
021075,001610: 42,3534           00001                                    RATT                                  #  -
021076,001611: 42,3535           02327                           STORE    RPASS36                               #  R
021077,001612: 42,3536           63256                           UNIT     PDVL                                  #   P
021078,001613: 42,3537           53435                           VXV      UNIT                                  #  -
021079,001614: 42,3540           77626                           STADR                                          
021080,001615: 42,3541           61442                           STODL    UNP36                                 #  U
021081,001616: 42,3542           00015                                    TAT                                   
021082,001617: 42,3543           00041                           STORE    TDEC1                                 
021083,001618: 42,3544           70535                           SLOAD    SR1                                   
021084,001619: 42,3545           00112                                    OPTIONY                               
021085,001620: 42,3546           45030                           BHIZ     CALL                                  
021086,001621: 42,3547           65553                                    R36PROG4                              #  FOR CSM DISPLAY
021087,001622: 42,3550           27114                                    OTHPREC                               #  FOR LEM DISPLAY
021088,001623: 42,3551           77650                           GOTO                                           
021089,001624: 42,3552           65555                                    R36PROG5                              
021090,001625: 42,3553           77624        R36PROG4           CALL                                           
021091,001626: 42,3554           27100                                    THISPREC                              
021092,001627: 42,3555           63375        R36PROG5           VLOAD    PDVL                                  #                        -
021093,001628: 42,3556           00007                                    VATT                                  #  VELOCITY VECTOR       V       00D
021094,001629: 42,3557           00001                                    RATT                                  #                         A
021095,001630: 42,3560           77725                           PDDL                                           
021096,001631: 42,3561           00015                                    TAT                                   #  SAVE TIME IN LOCATION 30D FOR REDISPLAY
021097,001632: 42,3562           24037                           STOVL    30D                                   #                   -
021098,001633: 42,3563           41406                           PUSH     PUSH                                  #  POSITION VECTOR  R   IN  06D AND 12D
021099,001634: 42,3564           63245                           BVSU     PDVL                                  #                    A  -   -
021100,001635: 42,3565           02327                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R       12D
021101,001636: 42,3566           72441                           DOT      SL1                                   #                        P   A
021102,001637: 42,3567           02335                                    UNP36                                 #      -   -
021103,001638: 42,3570           26321                           STOVL    RANGE                                 #  Y = U . R
021104,001639: 42,3571           00001                                    00D                                   #           A
021105,001640: 42,3572           72441                           DOT      SL1                                   
021106,001641: 42,3573           02335                                    UNP36                                 #  .   -   -
021107,001642: 42,3574           26323                           STOVL    RRATE                                 #  Y = U . V
021108,001643: 42,3575           00007                                    06D                                   #  -        A  -
021109,001644: 42,3576           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
021110,001645: 42,3577           47235                           VXV      VXV                                   #   RA          A
021111,001646: 42,3600           00001                                    00D                                   #   -    -     -     -
021112,001647: 42,3601           00023                                    18D                                   #  (U  X V ) X U   = U
021113,001648: 42,3602           53552                           VSL2     UNIT                                  #    RA   A     RA    A
021114,001649: 42,3603           52056                           UNIT     GOTO                                  
021115,001650: 42,3604           61606                                    R36B                                  
021116,001651: 
021117,001652: 40,2000                                           SETLOC   R36CM1                                
021118,001653: 40,2000                                           BANK                                           
021119,001654: 
021120,001655: 40,3606           24001        R36B               STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D
021121,001656: 40,3607           00023                                    18D                                   
021122,001657: 40,3610           74241                           DOT      VXSC                                  #  -
021123,001658: 40,3611           00015                                    12D                                   #  U
021124,001659: 40,3612           77752                           VSL2                                           #   L
021125,001660: 40,3613           53445                           BVSU     UNIT                                  
021126,001661: 40,3614           77656                           UNIT                                           
021127,001662: 40,3615           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
021128,001663: 40,3616           00001                                    00D                                   #  PLANE
021129,001664: 40,3617           65552                           SL1      ARCCOS                                #               -   -
021130,001665: 40,3620           26325                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
021131,001666: 40,3621           50235                           VXV      DOT                                   #                A   L
021132,001667: 40,3622           00001                                    00D                                   
021133,001668: 40,3623           71244                           BPL      DLOAD                                 
021134,001669: 40,3624           63755                                    R36TAG2                               
021135,001670: 40,3625           15342                                    DPPOSMAX                              
021136,001671: 40,3626           77625                           DSU                                            
021137,001672: 40,3627           02325                                    RTHETA                                
021138,001673: 40,3630           36325                           STCALL   RTHETA                                
021139,001674: 40,3631           63755                                    R36TAG2                               
021140,001675: 
021141,001676: 41,2000                                           SETLOC   R36LM                                 
021142,001677: 41,2000                                           BANK                                           
021143,001678: 
021144,001679: 41,3755           47145        R36TAG2            DLOAD    RTB                                   
021145,001680: 41,3756           00037                                    30D                                   
021146,001681: 41,3757           45544                                    SGNAGREE                              
021147,001682: 41,3760           01052                           STORE    DSPTEMX                               
021148,001683: 41,3761           77776                           EXIT                                           
021149,001684: 41,3762           33774                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI
021150,001685: 41,3763           04676                           TC       BANKCALL                              
021151,001686: 41,3764           20561                           CADR     GOMARKF                               
021152,001687: 41,3765           15550                           TCF      ENDEXT                                #  TERMINATE
021153,001688: 41,3766           15550                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
021154,001689: 41,3767           13736                           TCF      R36P3                                 #  REDISPLAY OUTPUT

Reconstruction: Comanche 67 and earlier define LREGCHK here. It has been deleted for Comanche 72 as part of PCR 936.1, "Initialize V90 time to TIG", because it is no longer necessary. Furthermore, the TC INTPRET at the beginning of ENTTIM2 has been removed, and ENTTIM2 has been changed to jump to ASTROTIM instead of R36INT upon completion.

021160,001695: 41,3770           52034        ENTTIM2            RTB      GOTO                                  
021161,001696: 41,3771           45510                                    LOADTIME                              
021162,001697: 41,3772           63753                                    ASTROTIM                              
021163,001698: 41,3773           01420        V06N16N            VN       00616                                 
021164,001699: 41,3774           01532        V06N90N            VN       00690                                 
021165,001700: 41,3775  30,2000                                  SBANK=   LOWSUPER                              

End of include-file P34-P35,_P74-P75.agc.  Parent file is MAIN.agc