Source Code

These source-code files are part of a reconstructed copy of Comanche 45/2 (AKA Manche45 revision 2), the final, flown mission release of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Comanche 45/2 was preceded by Comanche 44 and Comanche 45. The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 45/2, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 45 (itself previously accurately reconstructed). Comanche 45 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 45 and 45/2. The now-reconstructed Comanche 45/2 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code tend to match those in the Comanche 55, the most-similar revision of Comanche for which we have access to an actual non-reconstructed hardcopy; the source code would likely have different page numbers in a contemporary Comanche 45 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 44. Here's a guide to the Apollo documentation referenced in those annotations:
Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

019748,000002:                                                                                                  ## Copyright:   Public domain.
019749,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
019750,000004:                                                                                                  ## Purpose:     A section of Manche45 revision 2.
019751,000005:                                                                                                  ##              It is part of the reconstructed source code for the
019752,000006:                                                                                                  ##              final, flown release of the flight software for the Command
019753,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
019754,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
019755,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
019756,000010:                                                                                                  ##              exactly match those specified for Manche 45/2 in NASA drawing
019757,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
019758,000012:                                                                                                  ##              reconstruction is correct.
019759,000013:                                                                                                  ## Assembler:   yaYUL
019760,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
019761,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
019762,000016:                                                                                                  ## Mod history: 2020-12-24 MAS  Created from Comanche 45.
019763,000017: 

Page 460

019765,000019:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
019766,000020:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
019767,000021:                                                                                                  #  MOD BY WHITE.P                DATE 1JUNE67
019768,000022: 
019769,000023:                                                                                                  #  PURPOSE
019770,000024:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
019771,000025:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
019772,000026:                                                                                                  #                PHASE INITIATION (TPI) MANEUVER, GIVEN -
019773,000027:                                                                                                  #                (A)     TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
019774,000028:                                                                                                  #                        THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
019775,000029:                                                                                                  #                (B)     CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
019776,000030:                                                                                                  #                        INTERCEPT TIME (TIG (TPF)).
019777,000031:                                                                                                  #        (2)     TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
019778,000032:                                                                                                  #        (3)     TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
019779,000033:                                                                                                  #                APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
019780,000034:                                                                                                  #        (4)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
019781,000035:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
019782,000036:                                                                                                  #                ASTRONAUT/GROUND.
019783,000037:                                                                                                  #        (5)     TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
019784,000038:                                                                                                  #                THRUSTING PROGRAM.
019785,000039: 
019786,000040:                                                                                                  #  ASSUMPTIONS
019787,000041:                                                                                                  #        (1)     LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
019788,000042:                                                                                                  #                THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
019789,000043:                                                                                                  #                THEREFORE -
019790,000044:                                                                                                  #                (A)     AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
019791,000045:                                                                                                  #                        BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
019792,000046:                                                                                                  #                        A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
019793,000047:                                                                                                  #                        HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
019794,000048:                                                                                                  #                (B)     THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
019795,000049:                                                                                                  #                        COMPUTED TO BE GREATER THAN 10 MINUTES.
019796,000050:                                                                                                  #                (C)     THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
019797,000051:                                                                                                  #                        ORBITS WAS MINIMIZED.
019798,000052:                                                                                                  #                (D)     THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
019799,000053:                                                                                                  #                        CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 461

019801,000055:                                                                                                  #                        ORBIT OR 85 NM FOR EARTH ORBIT.
019802,000056:                                                                                                  #                (E)     THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
019803,000057:                                                                                                  #                        THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
019804,000058:                                                                                                  #                        MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
019805,000059:                                                                                                  #                        IN AN OUT-OF-PLANE MANEUVER.
019806,000060:                                                                                                  #        (2)     STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
019807,000061:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
019808,000062:                                                                                                  #        (3)     THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
019809,000063:                                                                                                  #                TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
019810,000064:                                                                                                  #                VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
019811,000065:                                                                                                  #                THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
019812,000066:                                                                                                  #                FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
019813,000067:                                                                                                  #                FLIGHT PLAN MANEUVER SEQUENCES.
019814,000068:                                                                                                  #        (4)     THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
019815,000069:                                                                                                  #                OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
019816,000070:                                                                                                  #                DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
019817,000071:                                                                                                  #                PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
019818,000072:                                                                                                  #                AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
019819,000073:                                                                                                  #                TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
019820,000074:                                                                                                  #                MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
019821,000075:                                                                                                  #                THRUSTING MANEUVER.
019822,000076:                                                                                                  #        (5)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
019823,000077:                                                                                                  #        (6)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
019824,000078: 
019825,000079:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
019826,000080:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
019827,000081:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
019828,000082:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
019829,000083: 
019830,000084:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
019831,000085:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
019832,000086: 
019833,000087:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
019834,000088:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
019835,000089:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
019836,000090: 
019837,000091:                                                                                                  #        (7)     ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
019838,000092:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
019839,000093:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
019840,000094:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
019841,000095:                                                                                                  #                THROUGH THE USE OF V06N52.
019842,000096: 
019843,000097:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
019844,000098:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 462

019846,000100:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
019847,000101:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
019848,000102:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
019849,000103:                                                                                                  #        (8)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
019850,000104: 
019851,000105:                                                                                                  #                        P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
019852,000106: 
019853,000107:                                                                                                  #                        P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
019854,000108: 
019855,000109:                                                                                                  #  INPUT
019856,000110:                                                                                                  #        (1)     TTPI    TIME OF THE TPI MANEUVER
019857,000111:                                                                                                  #        (2)     ELEV    DESIRED LOS ANGLE AT TPI
019858,000112:                                                                                                  #        (3)     CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019859,000113:                                                                                                  #                        TRANSFER FROM TPI TO TIME OF INTERCEPT
019860,000114: 
019861,000115:                                                                                                  #  OUTPUT
019862,000116:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
019863,000117:                                                                                                  #        (2)     TTOGO           TIME TO GO
019864,000118:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
019865,000119:                                                                                                  #        (4)     TTPI            COMPUTED TIME OF TPI MANEUVER
019866,000120:                                                                                                  #                 OR
019867,000121:                                                                                                  #                ELEV            COMPUTED LOS ANGLE AT TPI
019868,000122:                                                                                                  #        (5)     POSTTPI         PERIGEE ALTITUDE AFTER THE TPI MANEUVER
019869,000123:                                                                                                  #        (6)     DELVTPI         MAGNITUDE OF DELTA V AT TPI
019870,000124:                                                                                                  #        (7)     DELVTPF         MAGNITUDE OF DELTA V AT INTERCEPT
019871,000125:                                                                                                  #        (8)     DVLOS           DELTA VELOCITY AT TPI - LINE OF SIGHT
019872,000126:                                                                                                  #        (9)     DELVLVC         DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
019873,000127: 
019874,000128:                                                                                                  #  DOWNLINK
019875,000129:                                                                                                  #        (1)     TTPI            TIME OF THE TPI MANEUVER
019876,000130:                                                                                                  #        (2)     TIG             TIME OF THE TPI MANEUVER
019877,000131:                                                                                                  #        (3)     ELEV            DESIRED LOS ANGLE AT TPI
019878,000132:                                                                                                  #        (4)     CENTANG         ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
019879,000133:                                                                                                  #                                TRANSFER FROM TPI TO TIME OF INTERCEPT
019880,000134:                                                                                                  #        (5)     DELVEET3        DELTA VELOCITY AT TPI - REFERENCE COORDINATES
019881,000135:                                                                                                  #        (6)     TPASS4          TIME OF INTERCEPT
019882,000136: 
019883,000137:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
019884,000138:                                                                                                  #        (1)     TIG             TIME OF THE TPI MANEUVER
019885,000139:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
019886,000140:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
019887,000141:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
019888,000142: 
019889,000143:                                                                                                  #  SUBROUTINES USED
019890,000144:                                                                                                  #        AVFLAGA

Page 463

019892,000146:                                                                                                  #        AVFLAGP
019893,000147:                                                                                                  #        VNPOOH
019894,000148:                                                                                                  #        DISPLAYE
019895,000149:                                                                                                  #        SELECTMU
019896,000150:                                                                                                  #        PRECSET
019897,000151:                                                                                                  #        S33/34.1
019898,000152:                                                                                                  #        ALARM
019899,000153:                                                                                                  #        BANKCALL
019900,000154:                                                                                                  #        GOFLASH
019901,000155:                                                                                                  #        GOTOPOOH
019902,000156:                                                                                                  #        TIMETHET
019903,000157:                                                                                                  #        S34/35.2
019904,000158:                                                                                                  #        PERIAPO1
019905,000159:                                                                                                  #        SHIFTR1
019906,000160:                                                                                                  #        S34/35.5
019907,000161:                                                                                                  #        VN1645
019908,000162: 
019909,000163: 35,2000                                           SETLOC   CSI/CDH                               
019910,000164: 35,2000                                           BANK                                           
019911,000165: 35,2000  E4,1770                                  EBANK=   SUBEXIT                               
019912,000166: 35,2000                                           COUNT    35/P3474                              
019913,000167: 
019914,000168: 35,2000           04627        P34                TC       AVFLAGA                               
019915,000169: 35,2001           02003                           TC       P34/P74A                              
019916,000170: 35,2002           04642        P74                TC       AVFLAGP                               
019917,000171: 35,2003           04647        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
019918,000172: 35,2004           34614                           CAF      V06N37                                #  TTPI
019919,000173: 35,2005           04575                           TC       VNPOOH                                
019920,000174: 35,2006           03071                           TC       DISPLAYE                              #  ELEV AND CENTANG
019921,000175: 35,2007           06006                           TC       INTPRET                               
019922,000176: 35,2010           71214                           CLEAR    DLOAD                                 
019923,000177: 35,2011           01270                                    ETPIFLAG                              
019924,000178: 35,2012           03663                                    TTPI                                  
019925,000179: 35,2013           17413                           STODL    TIG                                   
019926,000180: 35,2014           03744                                    ELEV                                  
019927,000181: 35,2015           43054                           BZE      SET                                   
019928,000182: 35,2016           72020                                    P34/P74B                              
019929,000183: 35,2017           01070                                    ETPIFLAG                              
019930,000184: 35,2020           77624        P34/P74B           CALL                                           
019931,000185: 35,2021           10712                                    SELECTMU                              
019932,000186: 35,2022                        DELELO             EQUALS   26D                                   
019933,000187: 35,2022           43145        P34/P74C           DLOAD    SET                                   
019934,000188: 35,2023           15335                                    ZEROVECS                              
019935,000189: 35,2024           03461                                    ITSWICH                               
019936,000190: 35,2025           43014                           BON      CLEAR                                 
019937,000191: 35,2026           01310                                    ETPIFLAG                              

Page 464

019939,000193: 35,2027           72031                                    SWCHSET                               
019940,000194: 35,2030           03661                                    ITSWICH                               
019941,000195: 35,2031           02364        SWCHSET            STORE    NOMTPI                                
019942,000196: 35,2032           43345        INTLOOP            DLOAD    DAD                                   
019943,000197: 35,2033           03663                                    TTPI                                  
019944,000198: 35,2034           02364                                    NOMTPI                                
019945,000199: 35,2035           34041                           STCALL   TDEC1                                 
019946,000200: 35,2036           45215                                    PRECSET                               
019947,000201: 35,2037           77624                           CALL                                           
019948,000202: 35,2040           72212                                    S33/34.1                              
019949,000203: 35,2041           77454                           BZE      EXIT                                  
019950,000204: 35,2042           72053                                    SWCHCLR                               
019951,000205: 35,2043           05650                           TC       ALARM                                 
019952,000206: 35,2044           00611                           OCT      611                                   
019953,000207: 35,2045           35050                           CAF      V05N09                                
019954,000208: 35,2046           04662                           TC       BANKCALL                              
019955,000209: 35,2047           20720                           CADR     GOFLASH                               
019956,000210: 35,2050           04106                           TC       GOTOPOOH                              
019957,000211: 35,2051           02003                           TC       P34/P74A                              #  PROCEED
019958,000212: 35,2052           02043                           TC       -7                                    #  V32
019959,000213: 
019960,000214: 35,2053           43014        SWCHCLR            BONCLR   BON                                   
019961,000215: 35,2054           03601                                    ITSWICH                               
019962,000216: 35,2055           72032                                    INTLOOP                               
019963,000217: 35,2056           01310                                    ETPIFLAG                              
019964,000218: 35,2057           72063                                    P34/P74D                              #  DISPLAY TTPI
019965,000219: 35,2060           77776                           EXIT                                           
019966,000220: 35,2061           03071                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
019967,000221: 35,2062           02066                           TC       P34/P74E                              
019968,000222: 35,2063           77776        P34/P74D           EXIT                                           
019969,000223: 35,2064           34614                           CAF      V06N37                                #  TTPI
019970,000224: 35,2065           04575                           TC       VNPOOH                                
019971,000225: 35,2066           06006        P34/P74E           TC       INTPRET                               
019972,000226: 35,2067           71201                           SETPD    DLOAD                                 
019973,000227: 35,2070           00001                                    0D                                    
019974,000228: 35,2071           03746                                    RTX1                                  
019975,000229: 35,2072           14047                           STODL    X1                                    
019976,000230: 35,2073           03754                                    CENTANG                               
019977,000231: 35,2074           71406                           PUSH     COS                                   
019978,000232: 35,2075           16734                           STODL    CSTH                                  
019979,000233: 35,2076           77756                           SIN                                            
019980,000234: 35,2077           26732                           STOVL    SNTH                                  
019981,000235: 35,2100           03554                                    RPASS3                                
019982,000236: 35,2101           77657                           VSR*                                           
019983,000237: 35,2102           57176                                    0,2                                   
019984,000238: 35,2103           26657                           STOVL    RVEC                                  
019985,000239: 35,2104           03562                                    VPASS3                                
019986,000240: 35,2105           43057                           VSR*     SET                                   
019987,000241: 35,2106           57176                                    0,2                                   
019988,000242: 35,2107           03466                                    RVSW                                  

Page 465

019990,000244: 35,2110           36746                           STCALL   VVEC                                  
019991,000245: 35,2111           24744                                    TIMETHET                              
019992,000246: 35,2112           77745                           DLOAD                                          
019993,000247: 35,2113           03663                                    TTPI                                  
019994,000248: 35,2114           03503                           STORE    INTIME                                #  FOR INITVEL
019995,000249: 35,2115           77615                           DAD                                            
019996,000250: 35,2116           00037                                    T                                     #  RENDEZVOUS TIME
019997,000251: 35,2117           37656                           STCALL   TPASS4                                #  FOR INITVEL
019998,000252: 35,2120           72534                                    S34/35.2                              
019999,000253: 35,2121           51575                           VLOAD    ABVAL                                 
020000,000254: 35,2122           03646                                    DELVEET3                              
020001,000255: 35,2123           26635                           STOVL    DELVTPI                               
020002,000256: 35,2124           03640                                    VPASS4                                
020003,000257: 35,2125           51451                           VSU      ABVAL                                 
020004,000258: 35,2126           03620                                    VTPRIME                               
020005,000259: 35,2127           26637                           STOVL    DELVTPF                               
020006,000260: 35,2130           03540                                    RACT3                                 
020007,000261: 35,2131           45115                           PDVL     CALL                                  
020008,000262: 35,2132           03612                                    VIPRIME                               
020009,000263: 35,2133           45153                                    PERIAPO1                              
020010,000264: 35,2134           77624                           CALL                                           
020011,000265: 35,2135           45263                                    SHIFTR1                               
020012,000266: 35,2136           16641                           STODL    POSTTPI                               
020013,000267: 35,2137           03663                                    TTPI                                  
020014,000268: 35,2140           03413                           STORE    TIG                                   
020015,000269: 35,2141           77776                           EXIT                                           
020016,000270: 35,2142           34616                           CAF      V06N58                                
020017,000271: 35,2143           04575                           TC       VNPOOH                                
020018,000272: 35,2144           06006                           TC       INTPRET                               
020019,000273: 35,2145           77624                           CALL                                           
020020,000274: 35,2146           72742                                    S34/35.5                              
020021,000275: 35,2147           77624                           CALL                                           
020022,000276: 35,2150           73003                                    VN1645                                
020023,000277: 35,2151           77650                           GOTO                                           
020024,000278: 35,2152           72022                                    P34/P74C                              
020025,000279: 

Page 466

020027,000281:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
020028,000282:                                                                                                  #  MOD NO -1                     LOG SECTION - P32-P35, P72-P75
020029,000283:                                                                                                  #  MOD BY WHITE.P                DATE  1JUNE67
020030,000284: 
020031,000285:                                                                                                  #  PURPOSE
020032,000286:                                                                                                  #        (1)     TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
020033,000287:                                                                                                  #                REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
020034,000288:                                                                                                  #                MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
020035,000289:                                                                                                  #                VEHICLE RENDEZVOUS.
020036,000290:                                                                                                  #        (2)     TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
020037,000291:                                                                                                  #                VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
020038,000292:                                                                                                  #                ASTRONAUT/GROUND.
020039,000293:                                                                                                  #        (3)     TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
020040,000294:                                                                                                  #                THRUSTING PROGRAM.
020041,000295: 
020042,000296:                                                                                                  #  ASSUMPTIONS
020043,000297:                                                                                                  #        (1)     THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
020044,000298:                                                                                                  #        (2)     STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
020045,000299:                                                                                                  #                STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
020046,000300:                                                                                                  #        (3)     THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
020047,000301:                                                                                                  #                DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
020048,000302:                                                                                                  #                WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
020049,000303:                                                                                                  #                ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20).  THE
020050,000304:                                                                                                  #                RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
020051,000305:                                                                                                  #                P20 AND AFTER EACH THRUSTING MANEUVER.
020052,000306:                                                                                                  #        (4)     THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
020053,000307: 
020054,000308:                                                                                                  #                        ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
020055,000309:                                                                                                  #                        DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
020056,000310:                                                                                                  #                        CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
020057,000311:                                                                                                  #                        EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
020058,000312: 
020059,000313:                                                                                                  #                        FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
020060,000314:                                                                                                  #                        SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
020061,000315: 
020062,000316:                                                                                                  #                        EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
020063,000317:                                                                                                  #                        REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
020064,000318:                                                                                                  #                        PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
020065,000319: 
020066,000320:                                                                                                  #        (5)     THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
020067,000321:                                                                                                  #                COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
020068,000322:                                                                                                  #                (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.

Page 467

020070,000324:                                                                                                  #        (6)     ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
020071,000325:                                                                                                  #                HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
020072,000326:                                                                                                  #                VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
020073,000327:                                                                                                  #                THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
020074,000328:                                                                                                  #                THROUGH THE USE OF V06N52.
020075,000329: 
020076,000330:                                                                                                  #                THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
020077,000331:                                                                                                  #                CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
020078,000332:                                                                                                  #                170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
020079,000333:                                                                                                  #                ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
020080,000334:                                                                                                  #                UPON DELTA V AND EXPECTED MANEUVER TIME.
020081,000335:                                                                                                  #        (7)     THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
020082,000336: 
020083,000337:                                                                                                  #                        P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
020084,000338: 
020085,000339:                                                                                                  #                        P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
020086,000340: 
020087,000341:                                                                                                  #  INPUT
020088,000342:                                                                                                  #        (1)     TPASS4          TIME OF INTERCEPT - SAVED FROM P34/P74
020089,000343: 
020090,000344:                                                                                                  #  OUTPUT
020091,000345:                                                                                                  #        (1)     TRKMKCNT        NUMBER OF MARKS
020092,000346:                                                                                                  #        (2)     TTOGO           TIME TO GO
020093,000347:                                                                                                  #        (3)     +MGA            MIDDLE GIMBAL ANGLE
020094,000348:                                                                                                  #        (4)     DVLOS           DELTA VELOCITY AT MID - LINE OF SIGHT
020095,000349:                                                                                                  #        (5)     DELVLVC         DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
020096,000350: 
020097,000351:                                                                                                  #  DOWNLINK
020098,000352:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
020099,000353:                                                                                                  #        (2)     DELVEET3        DELTA VELOCITY AT TPM - REFERENCE COORDINATES
020100,000354:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
020101,000355: 
020102,000356:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
020103,000357:                                                                                                  #        (1)     TIG             TIME OF THE TPM MANEUVER
020104,000358:                                                                                                  #        (2)     RTARG           OFFSET TARGET POSITION
020105,000359:                                                                                                  #        (3)     TPASS4          TIME OF INTERCEPT
020106,000360:                                                                                                  #        (4)     XDELVFLG        RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
020107,000361: 
020108,000362:                                                                                                  #  SUBROUTINES USED
020109,000363:                                                                                                  #        AVFLAGA
020110,000364:                                                                                                  #        AVFLAGP
020111,000365:                                                                                                  #        LOADTIME
020112,000366:                                                                                                  #        SELECTMU
020113,000367:                                                                                                  #        PRECSET
020114,000368:                                                                                                  #        S34/35.1
020115,000369:                                                                                                  #        S34/35.2

Page 468

020117,000371:                                                                                                  #        S34/35.5
020118,000372:                                                                                                  #        VN1645
020119,000373: 
020120,000374: 35,2153                                           COUNT    35/P3575                              
020121,000375: 35,2153  E4,1763                                  EBANK=   KT                                    
020122,000376: 
020123,000377: 35,2153           04627        P35                TC       AVFLAGA                               
020124,000378: 35,2154           00006                           EXTEND                                         
020125,000379: 35,2155           31422                           DCA      ATIGINC                               
020126,000380: 35,2156           02162                           TC       P35/P75A                              
020127,000381: 35,2157           04642        P75                TC       AVFLAGP                               
020128,000382: 35,2160           00006                           EXTEND                                         
020129,000383: 35,2161           31424                           DCA      PTIGINC                               
020130,000384: 35,2162           53764        P35/P75A           DXCH     KT                                    
020131,000385: 35,2163           04647                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
020132,000386: 35,2164           06006                           TC       INTPRET                               
020133,000387: 35,2165           77624                           CALL                                           
020134,000388: 35,2166           10712                                    SELECTMU                              
020135,000389: 35,2167           77634        P35/P75B           RTB                                            
020136,000390: 35,2170           45510                                    LOADTIME                              
020137,000391: 35,2171           03665                           STORE    TSTRT                                 
020138,000392: 35,2172           77615                           DAD                                            
020139,000393: 35,2173           02364                                    KT                                    
020140,000394: 35,2174           03413                           STORE    TIG                                   
020141,000395: 35,2175           03503                           STORE    INTIME                                #  FOR INITVEL
020142,000396: 35,2176           34041                           STCALL   TDEC1                                 
020143,000397: 35,2177           45215                                    PRECSET                               #  ADVANCE BOTH VEHICLES
020144,000398: 35,2200           77624                           CALL                                           
020145,000399: 35,2201           72522                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
020146,000400: 35,2202           77624                           CALL                                           
020147,000401: 35,2203           72534                                    S34/35.2                              #  GET DELTA V(LV)
020148,000402: 35,2204           77624                           CALL                                           
020149,000403: 35,2205           72742                                    S34/35.5                              
020150,000404: 35,2206           77624                           CALL                                           
020151,000405: 35,2207           73003                                    VN1645                                
020152,000406: 35,2210           77650                           GOTO                                           
020153,000407: 35,2211           72167                                    P35/P75B                              

Page 469

020155,000409:                                                                                                  #  ..... S33/34.1 .....
020156,000410: 
020157,000411: 35,2212           66220        S33/34.1           STQ      SSP                                   
020158,000412: 35,2213           01340                                    NORMEX                                
020159,000413: 35,2214           03665                                    TITER                                 
020160,000414: 35,2215           40000                           OCT      40000                                 
020161,000415: 35,2216           40345                           DLOAD    SETPD                                 
020162,000416: 35,2217           33115                                    MAX250                                
020163,000417: 35,2220           00001                                    0D                                    
020164,000418: 35,2221           27454                           STOVL    SECMAX                                
020165,000419: 35,2222           03540                                    RACT3                                 
020166,000420: 35,2223           27576                           STOVL    RAPREC                                
020167,000421: 35,2224           03546                                    VACT3                                 
020168,000422: 35,2225           27570                           STOVL    VAPREC                                
020169,000423: 35,2226           03554                                    RPASS3                                
020170,000424: 35,2227           27620                           STOVL    RPPREC                                
020171,000425: 35,2230           03562                                    VPASS3                                
020172,000426: 35,2231           03612                           STORE    VPPREC                                
020173,000427: 35,2232           77624        ELCALC             CALL                                           
020174,000428: 35,2233           72522                                    S34/35.1                              #  NORMAL AND LOS
020175,000429: 35,2234           63235                           VXV      PDVL                                  
020176,000430: 35,2235           03540                                    RACT3                                 #  (RA*VA)*RA 0D
020177,000431: 35,2236           53515                           PDVL     UNIT                                  #  ULOS AT 6D
020178,000432: 35,2237           03540                                    RACT3                                 
020179,000433: 35,2240           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
020180,000434: 35,2241           51352                           VSL2     BVSU                                  
020181,000435: 35,2242           02625                                    ULOS                                  
020182,000436: 35,2243           63256                           UNIT     PDVL                                  #  UP AT 0D
020183,000437: 35,2244           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
020184,000438: 35,2245           00001                                    0D                                    #  UP IN MPAC
020185,000439: 35,2246           75241                           DOT      SIGN                                  
020186,000440: 35,2247           02625                                    ULOS                                  
020187,000441: 35,2250           65552                           SL1      ACOS                                  
020188,000442: 35,2251           50315                           PDVL     DOT                                   #  EA AT 0D
020189,000443: 35,2252           02625                                    ULOS                                  
020190,000444: 35,2253           03540                                    RACT3                                 
020191,000445: 35,2254           71244                           BPL      DLOAD                                 
020192,000446: 35,2255           72260                                    TESTY                                 
020193,000447: 35,2256           15343                                    DPPOSMAX                              
020194,000448: 35,2257           41425                           DSU      PUSH                                  
020195,000449: 35,2260           71214        TESTY              BOFF     DLOAD                                 
020196,000450: 35,2261           03741                                    ITSWICH                               
020197,000451: 35,2262           72507                                    ELEX                                  
020198,000452: 35,2263           03452                                    DELEL                                 
020199,000453: 35,2264           14033                           STODL    DELELO                                
020200,000454: 35,2265           77625                           DSU                                            
020201,000455: 35,2266           03744                                    ELEV                                  
020202,000456: 35,2267           03452                           STORE    DELEL                                 
020203,000457: 35,2270           45246                           ABS      DSU                                   
020204,000458: 35,2271           33121                                    ELEPS                                 

Page 470

020206,000460: 35,2272           77640                           BMN                                            
020207,000461: 35,2273           72517                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
020208,000462: 35,2274           70535        FIGTIME            SLOAD    SR1                                   
020209,000463: 35,2275           03665                                    TITER                                 
020210,000464: 35,2276           72030                           BHIZ     LXA,1                                 
020211,000465: 35,2277           01340                                    NORMEX                                #  TOO MANY ITERATIONS
020212,000466: 35,2300           00154                                    MPAC                                  
020213,000467: 35,2301           77330                           SXA,1    VLOAD                                 
020214,000468: 35,2302           03664                                    TITER                                 
020215,000469: 35,2303           03554                                    RPASS3                                
020216,000470: 35,2304           65256                           UNIT     PDDL                                  
020217,000471: 35,2305           00045                                    36D                                   
020218,000472: 35,2306           53515                           PDVL     UNIT                                  
020219,000473: 35,2307           03540                                    RACT3                                 
020220,000474: 35,2310           77725                           PDDL                                           
020221,000475: 35,2311           41525                           PDDL     PUSH                                  
020222,000476: 35,2312           00045                                    36D                                   
020223,000477: 35,2313           77621                           BDSU                                           
020224,000478: 35,2314           00015                                    12D                                   
020225,000479: 35,2315           14037                           STODL    30D                                   #  RP-RA MAGNITUDES
020226,000480: 35,2316           15333                                    DPHALF                                
020227,000481: 35,2317           41425                           DSU      PUSH                                  
020228,000482: 35,2320           03744                                    ELEV                                  
020229,000483: 35,2321           50165                           SIGN     BMN                                   
020230,000484: 35,2322           00037                                    30D                                   
020231,000485: 35,2323           01340                                    NORMEX                                
020232,000486: 35,2324           71545                           DLOAD    COS                                   
020233,000487: 35,2325           56205                           DMP      DDV                                   
020234,000488: 35,2326           00017                                    14D                                   
020235,000489: 35,2327           00015                                    12D                                   
020236,000490: 35,2330           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
020237,000491: 35,2331           00035                           STORE    28D                                   
020238,000492: 35,2332           44246                           ABS      BDSU                                  
020239,000493: 35,2333           15333                                    DPHALF                                
020240,000494: 35,2334           77240                           BMN      VLOAD                                 
020241,000495: 35,2335           01340                                    NORMEX                                
020242,000496: 35,2336           02617                                    UNRM                                  
020243,000497: 35,2337           53435                           VXV      UNIT                                  
020244,000498: 35,2340           00007                                    6D                                    #  UN*RA
020245,000499: 35,2341           41241                           DOT      DMP                                   
020246,000500: 35,2342           03546                                    VACT3                                 
020247,000501: 35,2343           00015                                    12D                                   
020248,000502: 35,2344           47315                           PDVL     VXV                                   
020249,000503: 35,2345           00001                                    0D                                    
020250,000504: 35,2346           03562                                    VPASS3                                
020251,000505: 35,2347           53435                           VXV      UNIT                                  
020252,000506: 35,2350           00001                                    0D                                    #  (RP*VP)*RP
020253,000507: 35,2351           41241                           DOT      DMP                                   
020254,000508: 35,2352           03562                                    VPASS3                                
020255,000509: 35,2353           00017                                    14D                                   

Page 471

020257,000511: 35,2354           77621                           BDSU                                           
020258,000512: 35,2355           63301                           NORM     PDVL                                  #  NORMALIZED WA-WP 12D
020259,000513: 35,2356           00047                                    X1                                    
020260,000514: 35,2357           00007                                    6D                                    
020261,000515: 35,2360           50235                           VXV      DOT                                   
020262,000516: 35,2361           00001                                    0D                                    
020263,000517: 35,2362           02617                                    UNRM                                  #  RA*RP.UN 14D
020264,000518: 35,2363           50315                           PDVL     DOT                                   
020265,000519: 35,2364           00001                                    0D                                    
020266,000520: 35,2365           00007                                    6D                                    
020267,000521: 35,2366           65552                           SL1      ACOS                                  
020268,000522: 35,2367           77765                           SIGN                                           
020269,000523: 35,2370           43225                           DSU      DAD                                   #  ALPHA PI
020270,000524: 35,2371           15333                                    DPHALF                                
020271,000525: 35,2372           03744                                    ELEV                                  
020272,000526: 35,2373           65525                           PDDL     ACOS                                  
020273,000527: 35,2374           00035                                    28D                                   
020274,000528: 35,2375           75221                           BDSU     SIGN                                  
020275,000529: 35,2376           15333                                    DPHALF                                
020276,000530: 35,2377           00037                                    30D                                   #  CONTAINS RP-RA
020277,000531: 35,2400           77615                           DAD                                            
020278,000532: 35,2401           56205                           DMP      DDV                                   
020279,000533: 35,2402           33113                                    TWOPI                                 
020280,000534: 35,2403           77605                           DMP                                            
020281,000535: 35,2404           41257                           SL*      DMP                                   
020282,000536: 35,2405           20176                                    0          -3,1                       
020283,000537: 35,2406           51406                           PUSH     ABS                                   
020284,000538: 35,2407           50025                           DSU      BMN                                   
020285,000539: 35,2410           03454                                    SECMAX                                
020286,000540: 35,2411           72415                                    OKMAX                                 
020287,000541: 35,2412           75345                           DLOAD    SIGN                                  #  REPLACE TIME WITH MAX TIME SIGNED
020288,000542: 35,2413           03454                                    SECMAX                                
020289,000543: 35,2414           77606                           PUSH                                           
020290,000544: 35,2415           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
020291,000545: 35,2416           03665                                    TITER                                 
020292,000546: 35,2417           72425                                    REPETE                                
020293,000547: 35,2420           71331                           SSP      DLOAD                                 
020294,000548: 35,2421           03665                                    TITER                                 
020295,000549: 35,2422           37777                           OCT      37777                                 
020296,000550: 35,2423           77650                           GOTO                                           
020297,000551: 35,2424           72463                                    STORDELT                              
020298,000552: 35,2425           41345        REPETE             DLOAD    DMP                                   
020299,000553: 35,2426           03452                                    DELEL                                 
020300,000554: 35,2427           00033                                    DELELO                                
020301,000555: 35,2430           71244                           BPL      DLOAD                                 
020302,000556: 35,2431           72441                                    NEXTES                                
020303,000557: 35,2432           03454                                    SECMAX                                
020304,000558: 35,2433           77605                           DMP                                            
020305,000559: 35,2434           33117                                    THIRD                                 
020306,000560: 35,2435           17454                           STODL    SECMAX                                

Page 472

020308,000562: 35,2436           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
020309,000563: 35,2437           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
020310,000564: 35,2440           72451                                    RESIGN                                
020311,000565: 35,2441           51545        NEXTES             DLOAD    ABS                                   
020312,000566: 35,2442           03452                                    DELEL                                 
020313,000567: 35,2443           51525                           PDDL     ABS                                   
020314,000568: 35,2444           00033                                    DELELO                                
020315,000569: 35,2445           77625                           DSU                                            
020316,000570: 35,2446           71240                           BMN      DLOAD                                 
020317,000571: 35,2447           72454                                    REVERS                                #  WRONG DIRECTION
020318,000572: 35,2450           77646                           ABS                                            
020319,000573: 35,2451           52165        RESIGN             SIGN     GOTO                                  
020320,000574: 35,2452           03450                                    DELTEEO                               
020321,000575: 35,2453           72463                                    STORDELT                              
020322,000576: 35,2454           57545        REVERS             DLOAD    DCOMP                                 
020323,000577: 35,2455           03450                                    DELTEEO                               
020324,000578: 35,2456           70406                           PUSH     SR1                                   
020325,000579: 35,2457           03450                           STORE    DELTEEO                               
020326,000580: 35,2460           77615                           DAD                                            
020327,000581: 35,2461           77650                           GOTO                                           
020328,000582: 35,2462           72464                                    ADTIME                                
020329,000583: 35,2463           03450        STORDELT           STORE    DELTEEO                               
020330,000584: 35,2464           77615        ADTIME             DAD                                            
020331,000585: 35,2465           02364                                    NOMTPI                                #  SUM OF DELTA T:S
020332,000586: 35,2466           02364                           STORE    NOMTPI                                
020333,000587: 35,2467           63375                           VLOAD    PDVL                                  
020334,000588: 35,2470           03570                                    VAPREC                                
020335,000589: 35,2471           03576                                    RAPREC                                
020336,000590: 35,2472           77624                           CALL                                           
020337,000591: 35,2473           72702                                    GOINT                                 
020338,000592: 35,2474           77624                           CALL                                           
020339,000593: 35,2475           45237                                    ACTIVE                                #  STORE NEW RACT3 VACT3
020340,000594: 35,2476           63375                           VLOAD    PDVL                                  
020341,000595: 35,2477           03612                                    VPPREC                                
020342,000596: 35,2500           03620                                    RPPREC                                
020343,000597: 35,2501           77624                           CALL                                           
020344,000598: 35,2502           72702                                    GOINT                                 
020345,000599: 35,2503           77624                           CALL                                           
020346,000600: 35,2504           45247                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
020347,000601: 35,2505           77650                           GOTO                                           
020348,000602: 35,2506           72232                                    ELCALC                                
020349,000603: 35,2507           43345        ELEX               DLOAD    DAD                                   
020350,000604: 35,2510           03663                                    TTPI                                  
020351,000605: 35,2511           02364                                    NOMTPI                                
020352,000606: 35,2512           17663                           STODL    TTPI                                  
020353,000607: 35,2513           77614                           BON                                            
020354,000608: 35,2514           01310                                    ETPIFLAG                              
020355,000609: 35,2515           72517                                    TIMEX                                 
020356,000610: 35,2516           03744                           STORE    ELEV                                  
020357,000611: 35,2517           52145        TIMEX              DLOAD    GOTO                                  

Page 473

020359,000613: 35,2520           15335                                    ZEROVECS                              
020360,000614: 35,2521           01340                                    NORMEX                                
020361,000615: 

Page 474

020363,000617:                                                                                                  #  ..... S34/35.1 .....
020364,000618: 
020365,000619:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
020366,000620:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
020367,000621: 
020368,000622: 35,2522           52375        S34/35.1           VLOAD    VSU                                   
020369,000623: 35,2523           03554                                    RPASS3                                
020370,000624: 35,2524           03540                                    RACT3                                 
020371,000625: 35,2525           41456                           UNIT     PUSH                                  
020372,000626: 35,2526           26625                           STOVL    ULOS                                  
020373,000627: 35,2527           03540                                    RACT3                                 
020374,000628: 35,2530           53435                           VXV      UNIT                                  
020375,000629: 35,2531           03546                                    VACT3                                 
020376,000630: 35,2532           02617                           STORE    UNRM                                  
020377,000631: 35,2533           77616                           RVQ                                            
020378,000632: 

Page 475

020380,000634:                                                                                                  #  ..... S34/35.2 .....
020381,000635: 
020382,000636:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
020383,000637: 
020384,000638: 35,2534           77220        S34/35.2           STQ      VLOAD                                 
020385,000639: 35,2535           02370                                    SUBEXIT                               
020386,000640: 35,2536           03562                                    VPASS3                                
020387,000641: 35,2537           65315                           PDVL     PDDL                                  
020388,000642: 35,2540           03554                                    RPASS3                                
020389,000643: 35,2541           03503                                    INTIME                                
020390,000644: 35,2542           65325                           PDDL     PDDL                                  
020391,000645: 35,2543           03656                                    TPASS4                                
020392,000646: 35,2544           15335                                    ZEROVECS                              
020393,000647: 35,2545           45006                           PUSH     CALL                                  
020394,000648: 35,2546           72706                                    INTINT                                #  GET TARGET VECTOR
020395,000649: 35,2547           27415        S3435.25           STOVL    RTARG                                 
020396,000650: 35,2550           00007                                    VATT                                  
020397,000651: 35,2551           27640                           STOVL    VPASS4                                
020398,000652: 35,2552           03415                                    RTARG                                 
020399,000653:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI) SIGN(RA*RP.U)
020400,000654: 35,2553           63256                           UNIT     PDVL                                  #  UNIT RP
020401,000655: 35,2554           03540                                    RACT3                                 
020402,000656: 35,2555           41456                           UNIT     PUSH                                  #  UNIT RA
020403,000657: 35,2556           50235                           VXV      DOT                                   
020404,000658: 35,2557           00001                                    0D                                    
020405,000659: 35,2560           02617                                    UNRM                                  #  RA*RP.U
020406,000660: 35,2561           77715                           PDVL                                           
020407,000661: 35,2562           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
020408,000662: 35,2563           00001                                    0D                                    
020409,000663: 35,2564           75326                           ACOS     SIGN                                  
020410,000664: 35,2565           43244                           BPL      DAD                                   
020411,000665: 35,2566           72570                                    NOPIE                                 
020412,000666: 35,2567           15343                                    DPPOSMAX                              #  REASONABLE TWO PI
020413,000667: 35,2570           16633        NOPIE              STODL    ACTCENT                               
020414,000668: 35,2571           03656                                    TPASS4                                
020415,000669: 35,2572           77625                           DSU                                            
020416,000670: 35,2573           03503                                    INTIME                                
020417,000671: 35,2574           03423                           STORE    DELLT4                                
020418,000672: 35,2575           40335                           SLOAD    SETPD                                 
020419,000673: 35,2576           33123                                    DECTWO                                
020420,000674: 35,2577           00001                                    0D                                    
020421,000675: 35,2600           63325                           PDDL     PDVL                                  
020422,000676: 35,2601           33126                                    EPSFOUR                               

Page 476

020424,000678: 35,2602           03540                                    RACT3                                 
020425,000679: 35,2603           27570                           STOVL    RINIT                                 
020426,000680: 35,2604           03546                                    VACT3                                 
020427,000681: 35,2605           37576                           STCALL   VINIT                                 
020428,000682: 35,2606           22000                                    INITVEL                               
020429,000683: 35,2607           77624                           CALL                                           
020430,000684: 35,2610           72667                                    LOMAT                                 
020431,000685: 35,2611           64375                           VLOAD    MXV                                   
020432,000686: 35,2612           03646                                    DELVEET3                              
020433,000687: 35,2613           00001                                    0D                                    
020434,000688: 35,2614           77772                           VSL1                                           
020435,000689: 35,2615           37405                           STCALL   DELVLVC                               
020436,000690: 35,2616           02370                                    SUBEXIT                               
020437,000691: 

Page 477

020439,000693:                                                                                                  #  ..... S34/35.3 .....
020440,000694: 
020441,000695: 35,2617           45020        S34/35.3           STQ      CALL                                  
020442,000696: 35,2620           01340                                    NORMEX                                
020443,000697: 35,2621           72667                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
020444,000698: 35,2622           61375                           VLOAD    VXM                                   
020445,000699: 35,2623           03405                                    DELVLVC                               #  NEW DEL V TPI
020446,000700: 35,2624           00001                                    0D                                    
020447,000701: 35,2625           77772                           VSL1                                           
020448,000702: 35,2626           03646                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
020449,000703: 35,2627           63255                           VAD      PDVL                                  
020450,000704: 35,2630           03546                                    VACT3                                 #  NEW V REQ
020451,000705: 35,2631           03540                                    RACT3                                 
020452,000706: 35,2632           65325                           PDDL     PDDL                                  
020453,000707: 35,2633           03413                                    TIG                                   
020454,000708: 35,2634           03656                                    TPASS4                                
020455,000709: 35,2635           41525                           PDDL     PUSH                                  
020456,000710: 35,2636           15343                                    DPPOSMAX                              
020457,000711: 35,2637           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
020458,000712: 35,2640           72706                                    INTINT                                
020459,000713: 35,2641           77775                           VLOAD                                          
020460,000714: 35,2642           00001                                    RATT                                  
020461,000715: 35,2643           03415                           STORE    RTARG                                 
020462,000716: 35,2644           41575        NOVRWRT            VLOAD    PUSH                                  
020463,000717: 35,2645           02625                                    ULOS                                  
020464,000718: 35,2646           57435                           VXV      VCOMP                                 
020465,000719: 35,2647           02617                                    UNRM                                  
020466,000720: 35,2650           41456                           UNIT     PUSH                                  
020467,000721: 35,2651           76435                           VXV      VSL1                                  
020468,000722: 35,2652           02625                                    ULOS                                  
020469,000723: 35,2653           77715                           PDVL                                           
020470,000724: 35,2654           64315                           PDVL     MXV                                   
020471,000725: 35,2655           03646                                    DELVEET3                              
020472,000726: 35,2656           00001                                    0D                                    
020473,000727: 35,2657           77772                           VSL1                                           
020474,000728: 35,2660           36611                           STCALL   DVLOS                                 
020475,000729: 35,2661           01340                                    NORMEX                                
020476,000730: 

Page 478

020478,000732:                                                                                                  #  ..... S34/35.4 .....
020479,000733: 
020480,000734: 35,2662           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
020481,000735: 35,2663           01340                                    NORMEX                                
020482,000736: 35,2664           00001                                    0D                                    
020483,000737: 35,2665           77650                           GOTO                                           
020484,000738: 35,2666           72644                                    NOVRWRT                               
020485,000739: 

Page 479

020487,000741:                                                                                                  #  ..... LOMAT .....
020488,000742: 
020489,000743: 35,2667           57575        LOMAT              VLOAD    VCOMP                                 
020490,000744: 35,2670           02617                                    UNRM                                  
020491,000745: 35,2671           24007                           STOVL    6D                                    #  Y
020492,000746: 35,2672           03540                                    RACT3                                 
020493,000747: 35,2673           57456                           UNIT     VCOMP                                 
020494,000748: 35,2674           00015                           STORE    12D                                   
020495,000749: 35,2675           76435                           VXV      VSL1                                  
020496,000750: 35,2676           02617                                    UNRM                                  #  Z*-Y
020497,000751: 35,2677           00001                           STORE    0D                                    
020498,000752: 35,2700           43401                           SETPD    RVQ                                   
020499,000753: 35,2701           00023                                    18D                                   
020500,000754: 35,2702           65325        GOINT              PDDL     PDDL                                  #  DO
020501,000755: 35,2703           15335                                    ZEROVECS                              #        NOT
020502,000756: 35,2704           02364                                    NOMTPI                                
020503,000757: 35,2705           41406                           PUSH     PUSH                                  #                ORDER OR INSERT BEFORE INTINT
020504,000758: 35,2706           45020        INTINT             STQ      CALL                                  
020505,000759: 35,2707           02367                                    RTRN                                  
020506,000760: 35,2710           27442                                    INTSTALL                              
020507,000761: 35,2711           71214                           CLEAR    DLOAD                                 
020508,000762: 35,2712           01673                                    INTYPFLG                              
020509,000763: 35,2713           43054                           BZE      SET                                   
020510,000764: 35,2714           72716                                    +2                                    
020511,000765: 35,2715           01473                                    INTYPFLG                              
020512,000766: 35,2716           45545                           DLOAD    STADR                                 
020513,000767: 35,2717           63736                           STODL    TDEC1                                 
020514,000768: 35,2720           73014                           SET      LXA,2                                 
020515,000769: 35,2721           00063                                    MOONFLAG                              
020516,000770: 35,2722           03746                                    RTX2                                  
020517,000771: 35,2723           43014                           BON      CLEAR                                 
020518,000772: 35,2724           04303                                    CMOONFLG                              
020519,000773: 35,2725           72727                                    ALLSET                                
020520,000774: 35,2726           00263                                    MOONFLAG                              
020521,000775: 35,2727           25517        ALLSET             STOVL    TET                                   
020522,000776: 35,2730           77657                           VSR*                                           
020523,000777: 35,2731           57176                                    0,2                                   
020524,000778: 35,2732           25535                           STOVL    RCV                                   
020525,000779: 35,2733           77657                           VSR*                                           
020526,000780: 35,2734           57176                                    0,2                                   
020527,000781: 35,2735           35543                           STCALL   VCV                                   
020528,000782: 35,2736           27135                                    INTEGRVS                              
020529,000783: 35,2737           52175                           VLOAD    GOTO                                  
020530,000784: 35,2740           00001                                    RATT                                  
020531,000785: 35,2741           02367                                    RTRN                                  
020532,000786: 

Page 480

020534,000788:                                                                                                  #  ..... S34/35.5 .....
020535,000789: 
020536,000790:                                                                                                  #  SUBROUTINES USED
020537,000791:                                                                                                  #        BANKCALL
020538,000792:                                                                                                  #        GOFLASH
020539,000793:                                                                                                  #        GOTOPOOH
020540,000794:                                                                                                  #        S34/35.3
020541,000795:                                                                                                  #        S34/35.4
020542,000796:                                                                                                  #        VNPOOH
020543,000797: 
020544,000798: 35,2742           43020        S34/35.5           STQ      BON                                   
020545,000799: 35,2743           02370                                    SUBEXIT                               
020546,000800: 35,2744           01311                                    FINALFLG                              
020547,000801: 35,2745           72751                                    FLAGON                                
020548,000802: 35,2746           52014                           SET      GOTO                                  
020549,000803: 35,2747           00470                                    UPDATFLG                              
020550,000804: 35,2750           72773                                    FLAGOFF                               
020551,000805: 35,2751           77775        FLAGON             VLOAD                                          
020552,000806: 35,2752           03405                                    DELVLVC                               
020553,000807: 35,2753           02611                           STORE    DVLOS                                 #  SAVE DELTA V BEFORE DISPLAY
020554,000808: 35,2754           77776                           EXIT                                           
020555,000809: 35,2755           34620                           CAF      V06N81                                
020556,000810: 35,2756           04575                           TC       VNPOOH                                
020557,000811: 35,2757           06006                           TC       INTPRET                               
020558,000812: 35,2760           52375                           VLOAD    VSU                                   #  TEST FOR OVERWRITE OF COMPUTED
020559,000813: 35,2761           03405                                    DELVLVC                               #                       DELTA V
020560,000814: 35,2762           02611                                    DVLOS                                 
020561,000815: 35,2763           53046                           ABVAL    BZE                                   
020562,000816: 35,2764           72767                                    NOCHG                                 #  NO OVERWRITE
020563,000817: 35,2765           77624                           CALL                                           
020564,000818: 35,2766           72617                                    S34/35.3                              #  COMPUTE NEW TARGET VECTOR
020565,000819: 35,2767           77214        NOCHG              CLEAR    VLOAD                                 
020566,000820: 35,2770           01267                                    XDELVFLG                              
020567,000821: 35,2771           03646                                    DELVEET3                              
020568,000822: 35,2772           03646                           STORE    DELVSIN                               
020569,000823: 35,2773           77624        FLAGOFF            CALL                                           
020570,000824: 35,2774           72662                                    S34/35.4                              
020571,000825: 35,2775           77776                           EXIT                                           
020572,000826: 35,2776           34617                           CAF      V06N59                                
020573,000827: 35,2777           04575                           TC       VNPOOH                                
020574,000828: 35,3000           06006                           TC       INTPRET                               
020575,000829: 35,3001           77650                           GOTO                                           
020576,000830: 35,3002           02370                                    SUBEXIT                               
020577,000831: 

Page 481

020579,000833:                                                                                                  #  ..... VN1645 .....
020580,000834: 
020581,000835:                                                                                                  #  SUBROUTINES USED
020582,000836:                                                                                                  #        P3XORP7X
020583,000837:                                                                                                  #        GET+MGA
020584,000838:                                                                                                  #        BANKCALL
020585,000839:                                                                                                  #        DELAYJOB
020586,000840:                                                                                                  #        COMPTGO
020587,000841:                                                                                                  #        GOFLASHR
020588,000842:                                                                                                  #        GOTOPOOH
020589,000843:                                                                                                  #        FLAGUP
020590,000844: 
020591,000845: 35,3003           71220        VN1645             STQ      DLOAD                                 
020592,000846: 35,3004           02370                                    SUBEXIT                               
020593,000847: 35,3005           33124                                    DP-.01                                
020594,000848: 35,3006           03626                           STORE    +MGA                                  #  MGA = -.01
020595,000849: 35,3007           71214                           BOFF     DLOAD                                 
020596,000850: 35,3010           01351                                    FINALFLG                              
020597,000851: 35,3011           73031                                    GET45                                 
020598,000852: 35,3012           33124                                    DP-.01                                
020599,000853: 35,3013           77615                           DAD                                            
020600,000854: 35,3014           33124                                    DP-.01                                
020601,000855: 35,3015           03626                           STORE    +MGA                                  #  MGA = -.02
020602,000856: 35,3016           77414                           BOFF     EXIT                                  
020603,000857: 35,3017           01742                                    REFSMFLG                              
020604,000858: 35,3020           73031                                    GET45                                 
020605,000859: 35,3021           03104                           TC       P3XORP7X                              
020606,000860: 35,3022           03024                           TC       +2                                    #  P3X
020607,000861: 35,3023           03032                           TC       GET45      +1                         #  P7X
020608,000862: 35,3024           06006                           TC       INTPRET                               
020609,000863: 35,3025           41575                           VLOAD    PUSH                                  
020610,000864: 35,3026           03646                                    DELVSIN                               
020611,000865: 35,3027           77624                           CALL                                           #  COMPUTE MGA
020612,000866: 35,3030           10654                                    GET+MGA                               
020613,000867: 35,3031           77776        GET45              EXIT                                           
020614,000868: 35,3032           03310                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
020615,000869: 35,3033           31770                           CA       SUBEXIT                               
020616,000870: 35,3034           55766                           TS       QSAVED                                
020617,000871: 35,3035           35041                           CAF      1SEC                                  
020618,000872: 35,3036           04662                           TC       BANKCALL                              
020619,000873: 35,3037           01732                           CADR     DELAYJOB                              
020620,000874: 35,3040           34621                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
020621,000875: 35,3041           04662                           TC       BANKCALL                              
020622,000876: 35,3042           20720                           CADR     GOFLASH                               
020623,000877: 35,3043           03046                           TC       KILCLOCK                              #  TERMINATE
020624,000878: 35,3044           03051                           TC       N45PROC                               #  PROCEED
020625,000879: 35,3045           03061                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
020626,000880: 35,3046           30005        KILCLOCK           CA       Z                                     
020627,000881: 35,3047           54000                           TS       DISPDEX                               

Page 482

020629,000883: 35,3050           04106                           TC       GOTOPOOH                              
020630,000884: 35,3051           40076        N45PROC            CS       FLAGWRD2                              
020631,000885: 35,3052           75012                           MASK     BIT6                                  
020632,000886: 35,3053           00006                           EXTEND                                         
020633,000887: 35,3054           13046                           BZF      KILCLOCK                              #  FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
020634,000888: 35,3055           05412                           TC       PHASCHNG                              
020635,000889: 35,3056           04024                           OCT      04024                                 
020636,000890: 35,3057           05546                           TC       UPFLAG                                #  SET
020637,000891: 35,3060           00047                           ADRES    FINALFLG                              #  FINALFLG
020638,000892: 35,3061           30005        CLUPDATE           CA       Z                                     
020639,000893: 35,3062           54000                           TS       DISPDEX                               
020640,000894: 35,3063           05412                           TC       PHASCHNG                              
020641,000895: 35,3064           04024                           OCT      04024                                 
020642,000896: 35,3065           06006                           TC       INTPRET                               
020643,000897: 35,3066           52014                           CLEAR    GOTO                                  
020644,000898: 35,3067           00670                                    UPDATFLG                              
020645,000899: 35,3070           02366                                    QSAVED                                
020646,000900: 

Page 483

020648,000902:                                                                                                  #  ..... DISPLAYE .....
020649,000903: 
020650,000904:                                                                                                  #  SUBROUTINES USED
020651,000905:                                                                                                  #        BANKCALL
020652,000906:                                                                                                  #        GOFLASHR
020653,000907:                                                                                                  #        GOTOPOOH
020654,000908:                                                                                                  #        BLANKET
020655,000909:                                                                                                  #        ENDOFJOB
020656,000910: 
020657,000911: 35,3071           00006        DISPLAYE           EXTEND                                         
020658,000912: 35,3072           23340                           QXCH     NORMEX                                
020659,000913: 35,3073           34615                           CAF      V06N55                                
020660,000914: 35,3074           04662                           TCR      BANKCALL                              
020661,000915: 35,3075           21057                           CADR     GOFLASHR                              
020662,000916: 35,3076           14106                           TCF      GOTOPOOH                              
020663,000917: 35,3077           01340                           TC       NORMEX                                
020664,000918: 35,3100           13073                           TCF      -5                                    
020665,000919: 35,3101           35017                           CAF      BIT1                                  #  BLANK R1
020666,000920: 35,3102           05526                           TCR      BLANKET                               
020667,000921: 35,3103           15217                           TCF      ENDOFJOB                              
020668,000922: 

Page 484

020670,000924:                                                                                                  #  ..... P3XORP7X .....
020671,000925: 
020672,000926: 35,3104           37713        P3XORP7X           CAF      HIGH9                                 
020673,000927: 35,3105           71011                           MASK     MODREG                                
020674,000928: 35,3106           00006                           EXTEND                                         
020675,000929: 35,3107           13111                           BZF      +2                                    
020676,000930: 35,3110           24002                           INCR     Q                                     
020677,000931: 35,3111           00002                           RETURN                                         
020678,000932: 
020679,000933:                                                                                                  #  ..... VNPOOH .....
020680,000934: 
020681,000935:                                                                                                  #  SUBROUTINES USED
020682,000936:                                                                                                  #        BANKCALL
020683,000937:                                                                                                  #        GOFLASH
020684,000938:                                                                                                  #        GOTOPOOH
020685,000939: 
020686,000940:    4000                                           SETLOC   P30SUBS                               
020687,000941:    4000                                           BANK                                           
020688,000942: 
020689,000943:    4575           00006        VNPOOH             EXTEND                                         
020690,000944:    4576           23767                           QXCH     RTRN                                  
020691,000945:    4577           55765                           TS       VERBNOUN                              
020692,000946:    4600           34610                           CAF      VNBANK                                #  ***** THIS ROUTINE MUST REMAIN IN
020693,000947:    4601           56004                           XCH      FBANK                                 #        FIXED-FIXED *****
020694,000948:    4602           55063                           TS       TBASE5                                #  * WATCH OUT *
020695,000949: 
020696,000950:    4603           31765                           CA       VERBNOUN                              
020697,000951:    4604           04662                           TCR      BANKCALL                              
020698,000952:    4605           20720                           CADR     GOFLASH                               
020699,000953:    4606           14106                           TCF      GOTOPOOH                              
020700,000954:    4607           14611                           TCF      +2                                    
020701,000955:    4610           04603        VNBANK             TC       -5                                    
020702,000956: 
020703,000957:    4611           31063                           CA       TBASE5                                
020704,000958:    4612           54004                           TS       FBANK                                 
020705,000959:    4613           01767                           TC       RTRN                                  
020706,000960: 

Page 485

020708,000962:                                                                                                  #  ..... CONSTANTS .....
020709,000963: 
020710,000964:    4614           01445        V06N37             VN       0637                                  
020711,000965:    4615           01467        V06N55             VN       0655                                  
020712,000966:    4616           01472        V06N58             VN       0658                                  
020713,000967:    4617           01473        V06N59             VN       0659                                  
020714,000968:    4620           01521        V06N81             VN       0681                                  
020715,000969:    4621           04055        V16N45             VN       1645                                  
020716,000970: 35,2000                                           SETLOC   CSI/CDH                               
020717,000971: 35,2000                                           BANK                                           
020718,000972: 
020719,000973: 35,3112           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
020720,000974: 35,3114           00001 20650  MAX250             2DEC     25         E3                         
020721,000975: 35,3116           12525 12525  THIRD              2DEC     .333333333                            
020722,000976: 35,3120           00004 21505  ELEPS              2DEC     .27777777  E-3                        
020723,000977: 35,3122           00002        DECTWO             OCT      2                                     
020724,000978: 35,3123           77777        DP-.01             OCT      77777                                 #  CONSTANTS
020725,000979: 35,3124           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
020726,000980: 35,3125           01252 25253  EPSFOUR            2DEC     .0416666666                            
020727,000981: 

Page 486

020729,000983:                                                                                                  #  ..... INITVEL .....
020730,000984:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
020731,000985:                                                                                                  #  MOD BY WHITE.P                DATE  21NOV67
020732,000986: 
020733,000987:                                                                                                  #  FUNCTIONAL DESCRIPTION
020734,000988:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
020735,000989:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
020736,000990:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
020737,000991:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
020738,000992:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
020739,000993:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
020740,000994:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
020741,000995:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
020742,000996:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
020743,000997:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
020744,000998: 
020745,000999:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
020746,001000:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
020747,001001:                                                                                                  #        SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
020748,001002:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
020749,001003:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
020750,001004:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
020751,001005:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
020752,001006:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
020753,001007: 
020754,001008:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
020755,001009:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
020756,001010:                                                                                                  #        TRAJECTORY COMPUTATIONS.
020757,001011: 
020758,001012:                                                                                                  #  CALLING SEQUENCE
020759,001013:                                                                                                  #        L       CALL
020760,001014:                                                                                                  #        L+1             INITVEL
020761,001015:                                                                                                  #        L+2     (RETURN - ALWAYS)
020762,001016: 
020763,001017:                                                                                                  #  INPUT
020764,001018:                                                                                                  #        (1)     RINIT           INITIAL POSITION RADIUS VECTOR
020765,001019:                                                                                                  #        (2)     VINIT           INITIAL POSITION VELOCITY VECTOR
020766,001020:                                                                                                  #        (3)     RTARG           TARGET POSITION RADIUS VECTOR
020767,001021:                                                                                                  #        (4)     DELLT4          DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
020768,001022:                                                                                                  #        (5)     INTIME          TIME OF RINIT
020769,001023:                                                                                                  #        (6)     0D              NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
020770,001024:                                                                                                  #        (7)     2D              ANGLE TO 180 DEGREES WHEN ROTATION STARTS
020771,001025:                                                                                                  #        (8)     RTX1            -2 FOR EARTH, -10D FOR LUNAR
020772,001026:                                                                                                  #        (9)     RTX2            COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
020773,001027:                                                                                                  #        PUSHLOC SET AT 4D
020774,001028: 

Page 487

020776,001030:                                                                                                  #  OUTPUT
020777,001031:                                                                                                  #        (1)     RTARG           OFFSET TARGET POSITION VECTOR
020778,001032:                                                                                                  #        (2)     VIPRIME         MANEUVER VELOCITY REQUIRED
020779,001033:                                                                                                  #        (3)     VTPRIME         VELOCITY AT TARGET AFTER MANEUVER
020780,001034:                                                                                                  #        (4)     DELVEET3        DELTA VELOCITY REQUIRED FOR MANEUVER
020781,001035: 
020782,001036:                                                                                                  #  SUBROUTINES USED
020783,001037:                                                                                                  #        LAMBERT
020784,001038:                                                                                                  #        INTSTALL
020785,001039:                                                                                                  #        INTEGRVS
020786,001040: 
020787,001041: 11,2000                                           SETLOC   INTVEL                                
020788,001042: 11,2000                                           BANK                                           
020789,001043: 
020790,001044: 11,2000                                           COUNT    11/INITV                              
020791,001045: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
020792,001046: 11,2001           00475                                    GUESSW                                
020793,001047: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
020794,001048: 11,2003           03415                                    RTARG                                 
020795,001049: 11,2004           01340                                    NORMEX                                
020796,001050: 11,2005           03604                           STORE    RTARG1                                
020797,001051: 11,2006           46135                           SLOAD    BHIZ                                  
020798,001052: 11,2007           03747                                    RTX2                                  
020799,001053: 11,2010           22022                                    INITVEL1                              
020800,001054: 11,2011           72575                           VLOAD    VSL2                                  
020801,001055: 11,2012           03570                                    RINIT                                 #  B29
020802,001056: 11,2013           27570                           STOVL    RINIT                                 #  B27
020803,001057: 11,2014           03576                                    VINIT                                 #  B7
020804,001058: 11,2015           77752                           VSL2                                           
020805,001059: 11,2016           27576                           STOVL    VINIT                                 #  B5
020806,001060: 11,2017           03604                                    RTARG1                                
020807,001061: 11,2020           77752                           VSL2                                           
020808,001062: 11,2021           03604                           STORE    RTARG1                                
020809,001063: 
020810,001064:                                                                                                  #  INITIALIZATION
020811,001065: 
020812,001066: 11,2022           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
020813,001067: 11,2023           03505                                    ITCTR                                 
020814,001068: 11,2024           77776                                    0          -1                         
020815,001069: 11,2025           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
020816,001070: 11,2026           17630                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4) (PL 0D)
020817,001071: 11,2027           67154                           LXA,2    SXA,2                                 
020818,001072: 11,2030           00154                                    MPAC                                  
020819,001073: 11,2031           02703                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
020820,001074: 11,2032           77775                           VLOAD                                          
020821,001075: 11,2033           03570                                    RINIT                                 
020822,001076: 11,2034           26657                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
020823,001077: 11,2035           03604                                    RTARG1                                

Page 488

020825,001079: 11,2036           16665                           STODL    R2VEC                                 #  R2VEC EQ RTARG
020826,001080: 11,2037           03423                                    DELLT4                                
020827,001081: 11,2040           02673                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
020828,001082: 11,2041           77201                           SETPD    VLOAD                                 
020829,001083: 11,2042           00001                                    0D                                    #  INITIALIZE PL TO 0D
020830,001084: 11,2043           03570                                    RINIT                                 #  MPAC EQ RINIT (+29)
020831,001085: 11,2044           41456                           UNIT     PUSH                                  #  UNIT(RI) (+1)         (PL 6D)
020832,001086: 11,2045           53435                           VXV      UNIT                                  
020833,001087: 11,2046           03576                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI (+8)
020834,001088: 11,2047           26676                           STOVL    UN                                    
020835,001089: 11,2050           03604                                    RTARG1                                
020836,001090: 11,2051           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)     (PL 0D)
020837,001091: 11,2052           43015                           DAD      CLEAR                                 
020838,001092: 11,2053           03630                                    COZY4                                 
020839,001093: 11,2054           03665                                    NORMSW                                
020840,001094: 11,2055           03630                           STORE    COZY4                                 
020841,001095: 11,2056           43044        INITVEL2           BPL      SET                                   
020842,001096: 11,2057           22101                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
020843,001097: 11,2060           03465                                    NORMSW                                
020844,001098: 
020845,001099:                                                                                                  #  ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
020846,001100: 
020847,001101: 11,2061           41575                           VLOAD    PUSH                                  #                                   (PL 6D)
020848,001102: 11,2062           02665                                    R2VEC                                 #  RC TO 6D (+29)
020849,001103: 11,2063           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
020850,001104: 11,2064           46206                           PUSH     VPROJ                                 #                                   (PL 8D)
020851,001105: 11,2065           02676                                    UN                                    
020852,001106: 11,2066           51352                           VSL2     BVSU                                  
020853,001107: 11,2067           74256                           UNIT     VXSC                                  #                                   (PL 0D)
020854,001108: 11,2070           77772                           VSL1                                           
020855,001109: 11,2071           02665                           STORE    R2VEC                                 
020856,001110: 11,2072           67351                           TLOAD    SLOAD                                 
020857,001111: 11,2073           11563                                    ZEROVEC                               
020858,001112: 11,2074           03505                                    ITCTR                                 
020859,001113: 11,2075           77244                           BPL      VLOAD                                 
020860,001114: 11,2076           22101                                    INITVEL3                              
020861,001115: 11,2077           02665                                    R2VEC                                 
020862,001116: 11,2100           03604                           STORE    RTARG1                                
020863,001117: 11,2101           63345        INITVEL3           DLOAD    PDVL                                  #                                (PL 2D)
020864,001118: 11,2102           27735                                    MUEARTH                               #  POSITIVE VALUE
020865,001119: 11,2103           02665                                    R2VEC                                 
020866,001120: 11,2104           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)              (PL 8D)
020867,001121: 11,2105           02657                                    R1VEC                                 
020868,001122: 11,2106           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)              (PL 14D)
020869,001123: 11,2107           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
020870,001124: 11,2110           00003                                    2D                                    
020871,001125: 11,2111           77606                           PUSH                                           #                                (PL 20D)
020872,001126: 11,2112           71350                           LXA,1    DLOAD                                 
020873,001127: 11,2113           03745                                    RTX1                                  
020874,001128: 11,2114           00023                                    18D                                   
020875,001129: 11,2115           62040                           BMN      INCR,1                                

Page 489

020877,001131: 11,2116           22120                                    +2                                    
020878,001132: 11,2117           77767                           DEC      -8         B-14                       
020879,001133: 11,2120           67310                           INCR,1   SLOAD                                 
020880,001134: 11,2121           00012                                    10D                                   
020881,001135: 11,2122           00047                                    X1                                    
020882,001136: 11,2123           77230                           BHIZ     VLOAD                                 #                        (PL 14D)
020883,001137: 11,2124           22126                                    +2                                    
020884,001138: 11,2125           41476                           VCOMP    PUSH                                  #                        (PL 20 D)
020885,001139: 11,2126           77775                           VLOAD                                          #                        (PL 14D)
020886,001140: 11,2127           50235                           VXV      DOT                                   #                        (PL 2D)
020887,001141: 11,2130           71244                           BPL      DLOAD                                 #                        (PL 0D)
020888,001142: 11,2131           22133                                    INITVEL4                              
020889,001143: 11,2132           41476                           DCOMP    PUSH                                  #                        (PL 2D)
020890,001144: 11,2133           67154        INITVEL4           LXA,2    SXA,2                                 
020891,001145: 11,2134           00000                                    0D                                    
020892,001146: 11,2135           02674                                    GEOMSGN                               
020893,001147: 
020894,001148:                                                                                                  #  SET INPUTS UP FOR LAMBERT
020895,001149: 
020896,001150: 11,2136           45150                           LXA,1    CALL                                  
020897,001151: 11,2137           03745                                    RTX1                                  
020898,001152:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
020899,001153: 
020900,001154: 11,2140           25224                                    LAMBERT                               
020901,001155: 
020902,001156:                                                                                                  #        DELETE THRU 4521
020903,001157:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
020904,001158: 
020905,001159: 11,2141           77214                           CLEAR    VLOAD                                 
020906,001160: 11,2142           00675                                    GUESSW                                
020907,001161: 11,2143           02746                                    VVEC                                  
020908,001162: 
020909,001163:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
020910,001164: 
020911,001165: 11,2144           17612                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED (+7)
020912,001166: 
020913,001167:                                                                                                  #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
020914,001168:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
020915,001169: 
020916,001170: 11,2145           02704                                    VTARGTAG                              
020917,001171: 11,2146           45030                           BHIZ     CALL                                  
020918,001172: 11,2147           22224                                    INITVEL7                              
020919,001173: 11,2150           27442                                    INTSTALL                              
020920,001174: 11,2151           43135                           SLOAD    CLEAR                                 
020921,001175: 11,2152           03747                                    RTX2                                  
020922,001176: 11,2153           00263                                    MOONFLAG                              
020923,001177: 11,2154           43030                           BHIZ     SET                                   
020924,001178: 11,2155           22157                                    INITVEL5                              
020925,001179: 11,2156           00063                                    MOONFLAG                              
020926,001180: 11,2157           77775        INITVEL5           VLOAD                                          
020927,001181: 11,2160           03570                                    RINIT                                 
020928,001182: 11,2161           02657                           STORE    R1VEC                                 

Page 490

020930,001184: 11,2162           25535                           STOVL    RCV                                   
020931,001185: 11,2163           03612                                    VIPRIME                               
020932,001186: 11,2164           15543                           STODL    VCV                                   
020933,001187: 11,2165           03503                                    INTIME                                
020934,001188: 11,2166           01517                           STORE    TET                                   
020935,001189: 11,2167           43015                           DAD      CLEAR                                 
020936,001190: 11,2170           03423                                    DELLT4                                
020937,001191: 11,2171           01673                                    INTYPFLG                              
020938,001192: 11,2172           34041                           STCALL   TDEC1                                 
020939,001193: 11,2173           27135                                    INTEGRVS                              
020940,001194: 11,2174           77775                           VLOAD                                          
020941,001195: 11,2175           00025                                    VATT1                                 
020942,001196: 11,2176           02705                           STORE    VTARGET                               
020943,001197: 
020944,001198:                                                                                                  #  IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
020945,001199:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
020946,001200: 
020947,001201: 11,2177           63154                           LXA,2    INCR,2                                
020948,001202: 11,2200           03504                                    ITCTR                                 
020949,001203: 11,2201           00001                                    1D                                    #  INCREMENT ITCTR
020950,001204: 11,2202           55134                           SXA,2    XSU,2                                 
020951,001205: 11,2203           03504                                    ITCTR                                 
020952,001206: 11,2204           02703                                    VTARGTAG                              
020953,001207: 11,2205           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
020954,001208: 11,2206           00050                                    X2                                    
020955,001209: 11,2207           22221                                    INITVEL6                              
020956,001210: 
020957,001211:                                                                                                  #  OFFSET CONIC TARGET VECTOR
020958,001212: 
020959,001213: 11,2210           52375                           VLOAD    VSU                                   
020960,001214: 11,2211           03604                                    RTARG1                                
020961,001215: 11,2212           00017                                    RATT1                                 
020962,001216: 11,2213           77655                           VAD                                            
020963,001217: 11,2214           02665                                    R2VEC                                 
020964,001218: 11,2215           16665                           STODL    R2VEC                                 
020965,001219: 11,2216           03630                                    COZY4                                 
020966,001220: 11,2217           77650                           GOTO                                           
020967,001221: 11,2220           22056                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
020968,001222: 
020969,001223:                                                                                                  #  COMPUTE THE DELTA VELOCITY
020970,001224: 
020971,001225: 11,2221           77775        INITVEL6           VLOAD                                          
020972,001226: 11,2222           02665                                    R2VEC                                 
020973,001227: 11,2223           03604                           STORE    RTARG1                                
020974,001228: 11,2224           52375        INITVEL7           VLOAD    VSU                                   
020975,001229: 11,2225           03612                                    VIPRIME                               
020976,001230: 11,2226           03576                                    VINIT                                 
020977,001231: 11,2227           27646                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
020978,001232: 11,2230           02705                                    VTARGET                               
020979,001233: 11,2231           03620                           STORE    VTPRIME                               
020980,001234: 11,2232           46135                           SLOAD    BHIZ                                  
020981,001235: 11,2233           03747                                    RTX2                                  

Page 491

020983,001237: 11,2234           22251                                    INITVELX                              
020984,001238: 11,2235           70575                           VLOAD    VSR2                                  
020985,001239: 11,2236           03620                                    VTPRIME                               
020986,001240: 11,2237           27620                           STOVL    VTPRIME                               
020987,001241: 11,2240           03612                                    VIPRIME                               
020988,001242: 11,2241           77742                           VSR2                                           
020989,001243: 11,2242           27612                           STOVL    VIPRIME                               
020990,001244: 11,2243           03604                                    RTARG1                                
020991,001245: 11,2244           77742                           VSR2                                           
020992,001246: 11,2245           27604                           STOVL    RTARG1                                
020993,001247: 11,2246           03646                                    DELVEET3                              
020994,001248: 11,2247           77742                           VSR2                                           
020995,001249: 11,2250           03646                           STORE    DELVEET3                              
020996,001250: 11,2251           77201        INITVELX           SETPD    VLOAD                                 
020997,001251: 11,2252           00001                                    0D                                    
020998,001252: 11,2253           03604                                    RTARG1                                
020999,001253: 11,2254           37415                           STCALL   RTARG                                 
021000,001254: 11,2255           01340                                    NORMEX                                
021001,001255: 
021002,001256:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
021003,001257: 

Page 492

021005,001259:                                                                                                  #  ..... MIDGIM .....
021006,001260:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
021007,001261:                                                                                                  #  REVISION 03, 17 FEB 67
021008,001262: 
021009,001263:                                                                                                  #  IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
021010,001264:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
021011,001265:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
021012,001266:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
021013,001267:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
021014,001268: 
021015,001269:                                                                                                  #  .. INPUTS ..
021016,001270:                                                                                                  #    NAME     MEANING                                            UNITS/SCALING/MODE
021017,001271:                                                                                                  #    AVFLAG   INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE        BIT
021018,001272:                                                                                                  #    COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER    BIT
021019,001273:                                                                                                  #    RINIT    ACTIVE VEHICLE RADIUS VECTOR                       METERS/CSEC (+7) VT
021020,001274:                                                                                                  #    VINIT    ACTIVE VEHICLE VELOCITY VECTOR                     METERS/CSEC (+7) VT
021021,001275:                                                                                                  #    0D(PL)   ACTIVE VEHICLE DELTA VELOCITY VECTOR               METERS/CSEC (+7) VT
021022,001276: 
021023,001277:                                                                                                  #  .. OUTPUTS ..
021024,001278:                                                                                                  #    NAME     MEANING                                            UNITS/SCALING/MODE
021025,001279:                                                                                                  #    +MGA     + MIDDLE GIMBAL ANGLE                              REVOLUTIONS (+0) DP
021026,001280:                                                                                                  #    DELVLVC  DELTA VELOCITY VECTOR IN LV COORD.                 METERS/CSEC (+7) VT
021027,001281:                                                                                                  #    MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.        -         BIT
021028,001282: 
021029,001283:                                                                                                  #  .. CALLING SEQUENCE ..
021030,001284:                                                                                                  #        L       CALL
021031,001285:                                                                                                  #        L+1             MIDGIM
021032,001286:                                                                                                  #        L+2     (RETURN - ALWAYS)
021033,001287: 
021034,001288:                                                                                                  #  .. NO SUBROUTINES CALLED ..
021035,001289: 
021036,001290:                                                                                                  #  .. DEBRIS - ERASEABLE TEMPORARY USAGE 
021037,001291:                                                                                                  #        A,Q,L, PUSH LIST, MPAC.
021038,001292: 
021039,001293:                                                                                                  #  .. ALARMS - NONE ..
021040,001294: 

Page 493

021042,001296:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
021043,001297: 04,2000                                           SETLOC   MIDDGIM                               
021044,001298: 04,2000                                           BANK                                           
021045,001299: 
021046,001300: 04,2645                                           COUNT*   $$/MIDG                               
021047,001301: 
021048,001302: 04,2645           20000 00000  HALFREV            2DEC     1          B-1                        
021049,001303: 
021050,001304: 04,2647           43014        MIDGIM             BON      BOFF                                  
021051,001305: 04,2650           01312                                    AVFLAG                                
021052,001306: 04,2651           10667                                    MIDGIM1                               
021053,001307: 04,2652           02747                                    COMPUTER                              
021054,001308: 04,2653           10672                                    GET.LVC                               
021055,001309: 
021056,001310:                                                                                                  #  COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
021057,001311: 
021058,001312: 04,2654           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
021059,001313: 04,2655           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
021060,001314: 04,2656           01744                                    REFSMMAT   +6                         #  FROM +2 TO +1 FOR ASIN ROUTINE
021061,001315: 04,2657           51136                           ARCSIN   BPL                                   
021062,001316: 04,2660           10664                                    SETMGA                                
021063,001317: 04,2661           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
021064,001318: 04,2662           10646                                    HALFREV                               #  ADDING ONE REVOLUTION
021065,001319: 04,2663           10646                                    HALFREV                               
021066,001320: 04,2664           03626        SETMGA             STORE    +MGA                                  
021067,001321: 04,2665           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
021068,001322: 04,2666           02675                                    MGLVFLAG                              #  AND EXIT
021069,001323: 
021070,001324: 04,2667           77614        MIDGIM1            BOFF                                           
021071,001325: 04,2670           02747                                    COMPUTER                              
021072,001326: 04,2671           10654                                    GET+MGA                               
021073,001327: 
021074,001328:                                                                                                  #  COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
021075,001329: 
021076,001330: 04,2672           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D) R (+29) IN MPAC, UNITIZE UR
021077,001331: 04,2673           03570                                    RINIT                                 
021078,001332: 04,2674           77676                           VCOMP                                          #  U(-R)
021079,001333: 04,2675           00023                           STORE    18D                                   #  U(-R) TO 18D
021080,001334: 04,2676           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
021081,001335: 04,2677           03576                                    VINIT                                 
021082,001336: 04,2700           00015                           STORE    12D                                   #  U(V*R) TO 12D
021083,001337: 04,2701           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
021084,001338: 04,2702           00023                                    18D                                   
021085,001339: 04,2703           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
021086,001340: 04,2704           00001                                    0D                                    #  DELTA V (+7) IN 0D
021087,001341: 04,2705           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
021088,001342: 04,2706           00007                                    6D                                    #  AND SCALE +7 IN MPAC
021089,001343: 04,2707           03405                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
021090,001344: 04,2710           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
021091,001345: 04,2711           02475                                    MGLVFLAG                              #  AND EXIT
021092,001346: 
021093,001347:                                                                                                  #  ..... END OF MIDGIM ROUTINE .....
021094,001348: 

Page 494

021096,001350: 04,2712           77160        SELECTMU           AXC,1    AXT,2                                 
021097,001351: 04,2713           00002                                    2D                                    
021098,001352: 04,2714           00000                                    0D                                    
021099,001353: 04,2715           77614                           BOFF                                           
021100,001354: 04,2716           04343                                    CMOONFLG                              
021101,001355: 04,2717           10723                                    SETMUER                               
021102,001356: 04,2720           77160                           AXC,1    AXT,2                                 
021103,001357: 04,2721           00012                                    10D                                   
021104,001358: 04,2722           00002                                    2D                                    
021105,001359: 04,2723           66143        SETMUER            DLOAD*   SXA,1                                 
021106,001360: 04,2724           11741                                    MUTABLE    +4,1                       
021107,001361: 04,2725           03745                                    RTX1                                  
021108,001362: 04,2726           23752                           STODL*   RTSR1/MU                              
021109,001363: 04,2727           11733                                    MUTABLE    -2,1                       
021110,001364: 04,2730           54214                           BOFF     SR                                    
021111,001365: 04,2731           04343                                    CMOONFLG                              
021112,001366: 04,2732           10734                                    RTRNMU                                
021113,001367: 04,2733           20607                                    6D                                    
021114,001368: 04,2734           03750        RTRNMU             STORE    RTMU                                  
021115,001369: 04,2735           43134                           SXA,2    CLEAR                                 
021116,001370: 04,2736           03746                                    RTX2                                  
021117,001371: 04,2737           01271                                    FINALFLG                              
021118,001372: 04,2740           77650                           GOTO                                           
021119,001373: 04,2741           73003                                    VN1645                                
021120,001374: 

Page 495

021122,001376:                                                                                                  #  ..... PERIAPO .....
021123,001377:                                                                                                  #  MOD NO -1                     LOG SECTION - P34-P35, P74-P75
021124,001378:                                                                                                  #  MOD BY WHITE.P                DATE 18JAN68
021125,001379: 
021126,001380:                                                                                                  #  FUNCTIONAL DESCRIPTION
021127,001381: 
021128,001382:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
021129,001383:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
021130,001384:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
021131,001385: 
021132,001386:                                                                                                  #        SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
021133,001387: 
021134,001388:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
021135,001389:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
021136,001390: 
021137,001391:                                                                                                  #  CALLING SEQUENCE
021138,001392:                                                                                                  #        L       CALL
021139,001393:                                                                                                  #        L+1             PERIAPO
021140,001394:                                                                                                  #        L+2     (RETURN - ALWAYS)
021141,001395: 
021142,001396:                                                                                                  #  INPUT
021143,001397:                                                                                                  #        (1)     RVEC    POSITION VECTOR IN METERS
021144,001398:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021145,001399:                                                                                                  #        (2)     VVEC    VELOCITY VECTOR IN METERS/CENTISECOND
021146,001400:                                                                                                  #                        SCALE FACTOR - EARTH +7, MOON +5
021147,001401:                                                                                                  #        (3)     X1      PRIMARY BODY INDICATOR
021148,001402:                                                                                                  #                        EARTH -2, MOON -10
021149,001403: 
021150,001404:                                                                                                  #  OUTPUT
021151,001405:                                                                                                  #        (1)     2D      APOCENTER RADIUS IN METERS
021152,001406:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021153,001407:                                                                                                  #        (2)     4D      APOCENTER ALTITUDE IN METERS
021154,001408:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON P27
021155,001409:                                                                                                  #        (3)     6D      PERICENTER RADIUS IN METERS
021156,001410:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021157,001411:                                                                                                  #        (4)     8D      PERICENTER ALTITUDE IN METERS
021158,001412:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021159,001413:                                                                                                  #        (5)     ECC     ECCENTRICITY OF CONIC TRAJECTORY
021160,001414:                                                                                                  #                        SCALE FACTOR - +3
021161,001415:                                                                                                  #        (6)     XXXALT  RADIUS OF THE PRIMARY BODY IN METERS
021162,001416:                                                                                                  #                        SCALE FACTOR - EARTH +29, MOON +27
021163,001417:                                                                                                  #        (7)     PUSHLOC EQUALS 10D
021164,001418: 
021165,001419:                                                                                                  #  SUBROUTINES USED
021166,001420:                                                                                                  #        SETRAD

Page 496

021168,001422:                                                                                                  #        APSIDES
021169,001423: 
021170,001424: 22,2000                                           SETLOC   APOPERI                               
021171,001425: 22,2000                                           BANK                                           
021172,001426: 
021173,001427: 22,3151                                           COUNT*   $$/PERAP                              
021174,001428: 
021175,001429: 22,3151           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS OF PAD 37-B.
021176,001430:                                                                                                  #  = 20 909 901.57 FT
021177,001431: 
021178,001432: 22,3153           53754        PERIAPO1           LXA,2    VSR*                                  
021179,001433: 22,3154           03746                                    RTX2                                  
021180,001434: 22,3155           57176                                    0,2                                   
021181,001435: 22,3156           26746                           STOVL    VVEC                                  
021182,001436: 22,3157           53750                           LXA,1    VSR*                                  
021183,001437: 22,3160           03745                                    RTX1                                  
021184,001438: 22,3161           57176                                    0,2                                   
021185,001439: 22,3162           02657                           STORE    RVEC                                  
021186,001440: 22,3163           45020        PERIAPO            STQ      CALL                                  
021187,001441: 22,3164           01340                                    NORMEX                                
021188,001442: 22,3165           45201                                    SETRAD                                
021189,001443: 22,3166           37456                           STCALL   XXXALT                                
021190,001444: 22,3167           25703                                    APSIDES                               
021191,001445: 22,3170           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS         B29 OR B27
021192,001446: 22,3171           00003                                    2D                                    
021193,001447: 22,3172           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE          B29 OR B27
021194,001448: 22,3173           03456                                    XXXALT                                
021195,001449: 22,3174           00001                                    0D                                    
021196,001450: 22,3175           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS        B29 OR B27
021197,001451: 22,3176           03456                                    XXXALT                                
021198,001452: 22,3177           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE         B29 OR B27
021199,001453: 22,3200           01340                                    NORMEX                                

Page 497

021201,001455:                                                                                                  #  SETRAD
021202,001456: 22,3201           41545        SETRAD             DLOAD    PUSH                                  
021203,001457: 22,3202           05152                                    RPAD                                  
021204,001458: 22,3203           63130                           SXA,1    INCR,2                                
021205,001459: 22,3204           00047                                    X2                                    
021206,001460: 22,3205           00002                                    2D                                    
021207,001461: 22,3206           46135                           SLOAD    BHIZ                                  
021208,001462: 22,3207           00050                                    X2                                    
021209,001463: 22,3210           45214                                    SETRADX                               
021210,001464: 22,3211           51575                           VLOAD    ABVAL                                 
021211,001465: 22,3212           02026                                    RLS                                   
021212,001466: 22,3213           77725                           PDDL                                           
021213,001467: 22,3214           43545        SETRADX            DLOAD    RVQ                                   
021214,001468: 

Page 498

021216,001470:                                                                                                  #  PRECSET
021217,001471: 22,3215           77620        PRECSET            STQ                                            
021218,001472: 22,3216           01340                                    NORMEX                                
021219,001473: 22,3217           36635                           STCALL   TDEC2                                 
021220,001474: 22,3220           27105                                    LEMPREC                               
021221,001475: 22,3221           77624                           CALL                                           
021222,001476: 22,3222           45233                                    LEMSTORE                              
021223,001477: 22,3223           77745                           DLOAD                                          
021224,001478: 22,3224           02635                                    TDEC2                                 
021225,001479: 22,3225           34041                           STCALL   TDEC1                                 
021226,001480: 22,3226           27071                                    CSMPREC                               
021227,001481: 22,3227           77624                           CALL                                           
021228,001482: 22,3230           45243                                    CSMSTORE                              
021229,001483: 22,3231           77650                           GOTO                                           
021230,001484: 22,3232           01340                                    NORMEX                                
021231,001485: 22,3233           43175        LEMSTORE           VLOAD    BOFF                                  
021232,001486: 22,3234           00001                                    RATT                                  
021233,001487: 22,3235           01352                                    AVFLAG                                
021234,001488: 22,3236           45247                                    PASSIVE                               
021235,001489: 22,3237           27540        ACTIVE             STOVL    RACT3                                 
021236,001490: 22,3240           00007                                    VATT                                  
021237,001491: 22,3241           03546                           STORE    VACT3                                 
021238,001492: 22,3242           77616                           RVQ                                            
021239,001493: 22,3243           43175        CSMSTORE           VLOAD    BOFF                                  
021240,001494: 22,3244           00001                                    RATT                                  
021241,001495: 22,3245           01352                                    AVFLAG                                
021242,001496: 22,3246           45237                                    ACTIVE                                
021243,001497: 22,3247           27554        PASSIVE            STOVL    RPASS3                                
021244,001498: 22,3250           00007                                    VATT                                  
021245,001499: 22,3251           03562                           STORE    VPASS3                                
021246,001500: 22,3252           77616                           RVQ                                            
021247,001501: 

Page 499

021249,001503:                                                                                                  #  VECSHIFT
021250,001504: 22,3253           53754        VECSHIFT           LXA,2    VSR*                                  
021251,001505: 22,3254           03746                                    RTX2                                  
021252,001506: 22,3255           57176                                    0,2                                   
021253,001507: 22,3256           63350                           LXA,1    PDVL                                  
021254,001508: 22,3257           03745                                    RTX1                                  
021255,001509: 22,3260           63257                           VSR*     PDVL                                  
021256,001510: 22,3261           57176                                    0,2                                   
021257,001511: 22,3262           77616                           RVQ                                            
021258,001512: 

Page 500

021260,001514:                                                                                                  #  SHIFTR1
021261,001515: 22,3263           53754        SHIFTR1            LXA,2    SL*                                   
021262,001516: 22,3264           03746                                    RTX2                                  
021263,001517: 22,3265           57576                                    0,2                                   
021264,001518: 22,3266           77616                           RVQ                                            
021265,001519: 

Page 501

021267,001521:                                                                                                  #  PROGRAM DESCRIPTION
021268,001522: 
021269,001523:                                                                                                  #  SUBROUTINE NAME       R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
021270,001524:                                                                                                  #  MOD NO. 2             DATE 2 JANUARY 1969
021271,001525:                                                                                                  #  MOD BY A.W.BANCROFT   LOG SECTION EXTENDED VERBS
021272,001526: 
021273,001527:                                                                                                  #  FUNCTIONAL DESCRIPTION
021274,001528: 
021275,001529:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
021276,001530:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI).  (REQUESTED BY DSKY).
021277,001531: 
021278,001532:                                                                                                  #  CALLING SEQUENCE
021279,001533:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V 90 E
021280,001534: 
021281,001535:                                                                                                  #  SUBROUTINES CALLED
021282,001536:                                                                                                  #        EXDSPRET
021283,001537:                                                                                                  #        GOMARKF
021284,001538:                                                                                                  #        CSMPREC
021285,001539:                                                                                                  #        LEMPREC
021286,001540:                                                                                                  #        SGNAGREE
021287,001541:                                                                                                  #        LOADTIME
021288,001542: 
021289,001543:                                                                                                  #  NORMAL EXIT MODES
021290,001544:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
021291,001545: 
021292,001546:                                                                                                  #  ALARM OR ABORT EXIT MODES
021293,001547:                                                                                                  #        NONE
021294,001548: 
021295,001549:                                                                                                  #  OUTPUT
021296,001550:                                                                                                  #        DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
021297,001551: 
021298,001552:                                                                                                  #        DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
021299,001553:                                                                                                  #        REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
021300,001554: 
021301,001555:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
021302,001556:                                                                                                  #        CSM AND LEM STATE VECTORS
021303,001557: 
021304,001558:                                                                                                  #  DEBRIS
021305,001559:                                                                                                  #        CENTRALS A,Q,L
021306,001560:                                                                                                  #        OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
021307,001561: 
021308,001562: 20,2164                                           BANK     20                                    
021309,001563: 20,2000                                           SETLOC   R36CM                                 
021310,001564: 20,2000                                           BANK                                           

Page 502

021312,001566: 20,2164  E4,1726                                  EBANK=   RPASS36                               
021313,001567: 
021314,001568: 20,2164  41,3725                                  SBANK=   R36A                                  
021315,001569: 20,2164                                           COUNT*   $$/R36                                
021316,001570: 
021317,001571: 20,2164           35016        R36                CAF      TWO                                   
021318,001572: 20,2165           55051                           TS       OPTIONX                               
021319,001573: 20,2166           35017                           CAF      ONE                                   
021320,001574: 20,2167           55052                           TS       OPTIONX    +1                         
021321,001575: 20,2170           32200                           CAF      OPTION36                              #  V 04 N 12
021322,001576: 20,2171           04662                           TC       BANKCALL                              
021323,001577: 20,2172           20561                           CADR     GOXDSPF                               
021324,001578: 20,2173           05534                           TC       ENDEXT                                #  TERMINATE
021325,001579: 20,2174           02176                           TC       +2                                    #  PROCEED
021326,001580: 20,2175           02170                           TC       -5                                    #  R2 LOADED VIA DSKY
021327,001581: 20,2176           04701                           TC       POSTJUMP                              
021328,001582: 20,2177           63725                           CADR     R36A                                  
021329,001583: 
021330,001584: 20,2200           01014        OPTION36           VN       0412                                  
021331,001585: 
021332,001586: 41,2000                                           SETLOC   R36LM                                 
021333,001587: 41,2000                                           BANK                                           
021334,001588: 
021335,001589: 41,3725           22007        R36A               ZL                                             
021336,001590: 41,3726           35021                           CAF      ZERO                                  #  SET TIME OF EVENT TO ZERO FOR FIRST
021337,001591: 41,3727           53052                           DXCH     DSPTEMX                               #  DISPLAY
021338,001592: 41,3730           23742                           LXCH     OPTIONY                               #  SAVE VEH. OPTION
021339,001593: 41,3731           33773        R36P3              CAF      V06N16N                               
021340,001594: 41,3732           04662                           TC       BANKCALL                              
021341,001595: 41,3733           20561                           CADR     GOMARKF                               
021342,001596: 41,3734           15534                           TCF      ENDEXT                                #  TERMINATE
021343,001597: 41,3735           13737                           TCF      +2                                    #  PROCEED
021344,001598: 41,3736           13731                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
021345,001599: 41,3737           53052                           DXCH     DSPTEMX                               
021346,001600: 41,3740           00006                           EXTEND                                         
021347,001601: 41,3741           13762                           BZF      LREGCHK                               #  A-REG ZERO GOTO CHECK L-REG FOR ZERO
021348,001602: 41,3742           52155        ASTROTIM           DXCH     MPAC                                  #  A-REG NON-ZERO, TIME = ASTRO INPUT TIME
021349,001603: 41,3743           06006                           TC       INTPRET                               
021350,001604: 41,3744           52034                           RTB      GOTO                                  
021351,001605: 41,3745           45716                                    DPMODE                                
021352,001606: 41,3746           65521                                    R36INT                                
021353,001607: 
021354,001608: 42,2000                                           SETLOC   R36LM1                                
021355,001609: 42,2000                                           BANK                                           
021356,001610: 
021357,001611: 42,3521           00041        R36INT             STORE    TDEC1                                 
021358,001612: 42,3522           70535                           SLOAD    SR1                                   
021359,001613: 42,3523           02343                                    OPTIONY                               
021360,001614: 42,3524           45030                           BHIZ     CALL                                  
021361,001615: 42,3525           65531                                    R36PROG2                              #  FOR CSM DISPLAY

Page 503

021363,001617: 42,3526           27071                                    THISPREC                              #  FOR LEM DISPLAY
021364,001618: 42,3527           77650                           GOTO                                           
021365,001619: 42,3530           65533                                    R36PROG3                              
021366,001620: 42,3531           77624        R36PROG2           CALL                                           
021367,001621: 42,3532           27105                                    OTHPREC                               
021368,001622: 42,3533           63375        R36PROG3           VLOAD    PDVL                                  
021369,001623: 42,3534           00007                                    VATT                                  
021370,001624: 42,3535           00001                                    RATT                                  #  -
021371,001625: 42,3536           02327                           STORE    RPASS36                               #  R
021372,001626: 42,3537           63256                           UNIT     PDVL                                  #   P
021373,001627: 42,3540           53435                           VXV      UNIT                                  #  -
021374,001628: 42,3541           77626                           STADR                                          
021375,001629: 42,3542           61442                           STODL    UNP36                                 #  U
021376,001630: 42,3543           00015                                    TAT                                   
021377,001631: 42,3544           00041                           STORE    TDEC1                                 
021378,001632: 42,3545           70535                           SLOAD    SR1                                   
021379,001633: 42,3546           02343                                    OPTIONY                               
021380,001634: 42,3547           45030                           BHIZ     CALL                                  
021381,001635: 42,3550           65554                                    R36PROG4                              #  FOR CSM DISPLAY
021382,001636: 42,3551           27105                                    OTHPREC                               #  FOR LEM DISPLAY
021383,001637: 42,3552           77650                           GOTO                                           
021384,001638: 42,3553           65556                                    R36PROG5                              
021385,001639: 42,3554           77624        R36PROG4           CALL                                           
021386,001640: 42,3555           27071                                    THISPREC                              
021387,001641: 42,3556           63375        R36PROG5           VLOAD    PDVL                                  #                        -
021388,001642: 42,3557           00007                                    VATT                                  #  VELOCITY VECTOR       V       00D
021389,001643: 42,3560           00001                                    RATT                                  #                         A
021390,001644: 42,3561           77725                           PDDL                                           
021391,001645: 42,3562           00015                                    TAT                                   #  SAVE TIME IN LOCATION 30D FOR REDISPLAY
021392,001646: 42,3563           24037                           STOVL    30D                                   #                   -
021393,001647: 42,3564           41406                           PUSH     PUSH                                  #  POSITION VECTOR  R   IN  06D AND 12D
021394,001648: 42,3565           63245                           BVSU     PDVL                                  #                    A  -   -
021395,001649: 42,3566           02327                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R       12D
021396,001650: 42,3567           72441                           DOT      SL1                                   #                        P   A
021397,001651: 42,3570           02335                                    UNP36                                 #      -   -
021398,001652: 42,3571           26321                           STOVL    RANGE                                 #  Y = U . R
021399,001653: 42,3572           00001                                    00D                                   #           A
021400,001654: 42,3573           72441                           DOT      SL1                                   
021401,001655: 42,3574           02335                                    UNP36                                 #  .   -   -
021402,001656: 42,3575           26323                           STOVL    RRATE                                 #  Y = U . V
021403,001657: 42,3576           00007                                    06D                                   #  -        A  -
021404,001658: 42,3577           41456                           UNIT     PUSH                                  #  U  = UNIT ( R  )              18D
021405,001659: 42,3600           47235                           VXV      VXV                                   #   RA          A
021406,001660: 42,3601           00001                                    00D                                   #   -    -     -     -
021407,001661: 42,3602           00023                                    18D                                   #  (U  X V ) X U   = U
021408,001662: 42,3603           53552                           VSL2     UNIT                                  #    RA   A     RA    A
021409,001663: 42,3604           52056                           UNIT     GOTO                                  
021410,001664: 42,3605           61600                                    R36B                                  
021411,001665: 
021412,001666: 40,2000                                           SETLOC   R36CM1                                

Page 504

021414,001668: 40,2000                                           BANK                                           
021415,001669: 
021416,001670: 40,3600           24001        R36B               STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR. 00D
021417,001671: 40,3601           00023                                    18D                                   
021418,001672: 40,3602           74241                           DOT      VXSC                                  #  -
021419,001673: 40,3603           00015                                    12D                                   #  U
021420,001674: 40,3604           77752                           VSL2                                           #   L
021421,001675: 40,3605           53445                           BVSU     UNIT                                  
021422,001676: 40,3606           77656                           UNIT                                           
021423,001677: 40,3607           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL  12D
021424,001678: 40,3610           00001                                    00D                                   #  PLANE
021425,001679: 40,3611           65552                           SL1      ARCCOS                                #               -   -
021426,001680: 40,3612           26325                           STOVL    RTHETA                                #  PSI = ARCCOS(U . U )
021427,001681: 40,3613           50235                           VXV      DOT                                   #                A   L
021428,001682: 40,3614           00001                                    00D                                   
021429,001683: 40,3615           71244                           BPL      DLOAD                                 
021430,001684: 40,3616           63747                                    R36TAG2                               
021431,001685: 40,3617           15343                                    DPPOSMAX                              
021432,001686: 40,3620           77625                           DSU                                            
021433,001687: 40,3621           02325                                    RTHETA                                
021434,001688: 40,3622           36325                           STCALL   RTHETA                                
021435,001689: 40,3623           63747                                    R36TAG2                               
021436,001690: 
021437,001691: 41,2000                                           SETLOC   R36LM                                 
021438,001692: 41,2000                                           BANK                                           
021439,001693: 
021440,001694: 41,3747           47145        R36TAG2            DLOAD    RTB                                   
021441,001695: 41,3750           00037                                    30D                                   
021442,001696: 41,3751           45544                                    SGNAGREE                              
021443,001697: 41,3752           01052                           STORE    DSPTEMX                               
021444,001698: 41,3753           77776                           EXIT                                           
021445,001699: 41,3754           33774                           CAF      V06N90N                               #  DISPLAY Y, YDOT, AND PSI
021446,001700: 41,3755           04662                           TC       BANKCALL                              
021447,001701: 41,3756           20561                           CADR     GOMARKF                               
021448,001702: 41,3757           15534                           TCF      ENDEXT                                #  TERMINATE
021449,001703: 41,3760           15534                           TCF      ENDEXT                                #  PROCEED, END OF PROGRAM
021450,001704: 41,3761           13731                           TCF      R36P3                                 #  REDISPLAY OUTPUT
021451,001705: 41,3762           56001        LREGCHK            XCH      L                                     
021452,001706: 41,3763           00006                           EXTEND                                         
021453,001707: 41,3764           13767                           BZF      ENTTIM2                               #  L-REG ZERO, SET TIME = PRESENT TIME
021454,001708: 41,3765           56001                           XCH      L                                     #  L-REG NON ZERO, TIME = ASTRO INPUT TIME
021455,001709: 41,3766           13742                           TCF      ASTROTIM                              
021456,001710: 41,3767           06006        ENTTIM2            TC       INTPRET                               
021457,001711: 41,3770           52034                           RTB      GOTO                                  
021458,001712: 41,3771           45510                                    LOADTIME                              
021459,001713: 41,3772           65521                                    R36INT                                
021460,001714: 41,3773           01420        V06N16N            VN       00616                                 
021461,001715: 41,3774           01532        V06N90N            VN       00690                                 
021462,001716: 41,3775  30,2000                                  SBANK=   LOWSUPER                              

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