Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

028943,000002:                                                                                                  ## Copyright:   Public domain.
028944,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
028945,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
028946,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
028947,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
028948,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
028949,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
028950,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
028951,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
028952,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
028953,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
028954,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
028955,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
028956,000015:                                                                                                  ## Reference:   pp. 653-697
028957,000016:                                                                                                  ## Assembler:   yaYUL
028958,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028959,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028960,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
028961,000020:                                                                                                  ##              2017-08-22 MAS  Updated for Zerlina 56.
028962,000021: 

Page 653

028964,000023:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028965,000024: 
028966,000025:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
028967,000026:                                                                                                  #  MOD BY WHITE.P  DATE 1JUNE67
028968,000027: 
028969,000028:                                                                                                  #  PURPOSE
028970,000029: 
028971,000030:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028972,000031:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028973,000032:                                                                                                  #            PHASE INITIATION (TPI) MANEUVER, GIVEN -
028974,000033: 
028975,000034:                                                                                                  #            (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028976,000035:                                                                                                  #                THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028977,000036: 
028978,000037:                                                                                                  #            (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028979,000038:                                                                                                  #                INTERCEPT TIME (TIG (TPF)).
028980,000039: 
028981,000040:                                                                                                  #        (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028982,000041: 
028983,000042:                                                                                                  #        (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028984,000043:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028985,000044: 
028986,000045:                                                                                                  #        (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028987,000046:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028988,000047:                                                                                                  #            ASTRONAUT/GROUND.
028989,000048: 
028990,000049:                                                                                                  #        (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028991,000050:                                                                                                  #            THRUSTING PROGRAM.
028992,000051: 
028993,000052:                                                                                                  #  ASSUMPTIONS
028994,000053: 
028995,000054:                                                                                                  #        (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028996,000055:                                                                                                  #            THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028997,000056:                                                                                                  #            THEREFORE -
028998,000057: 
028999,000058:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029000,000059:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029001,000060:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029002,000061:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029003,000062: 
029004,000063:                                                                                                  #            (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029005,000064:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
029006,000065: 
029007,000066:                                                                                                  #            (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029008,000067:                                                                                                  #                ORBITS WAS MINIMIZED.
029009,000068: 
029010,000069:                                                                                                  #            (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
029011,000070: 
029012,000071:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR

Page 654

029014,000073:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
029015,000074: 
029016,000075:                                                                                                  #            (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029017,000076:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
029018,000077:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029019,000078:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
029020,000079: 
029021,000080:                                                                                                  #        (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
029022,000081:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
029023,000082: 
029024,000083:                                                                                                  #        (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
029025,000084:                                                                                                  #            TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
029026,000085:                                                                                                  #            VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
029027,000086:                                                                                                  #            THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
029028,000087:                                                                                                  #            FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
029029,000088:                                                                                                  #            FLIGHT PLAN MANEUVER SEQUENCES.
029030,000089: 
029031,000090:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029032,000091:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029033,000092:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029034,000093:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029035,000094:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029036,000095:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029037,000096:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029038,000097:                                                                                                  #            THRUSTING MANEUVER.
029039,000098: 
029040,000099:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029041,000100: 
029042,000101:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029043,000102: 
029044,000103:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029045,000104:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029046,000105:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029047,000106:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029048,000107: 
029049,000108:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029050,000109:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029051,000110: 
029052,000111:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029053,000112:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029054,000113:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029055,000114: 
029056,000115:                                                                                                  #        (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
029057,000116:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029058,000117:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029059,000118:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029060,000119:                                                                                                  #            THROUGH THE USE OF V06N52.
029061,000120: 
029062,000121:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029063,000122:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN

Page 655

029065,000124:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
029066,000125:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029067,000126:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
029068,000127: 
029069,000128:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029070,000129: 
029071,000130:                                                                                                  #                P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
029072,000131: 
029073,000132:                                                                                                  #                P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
029074,000133: 
029075,000134:                                                                                                  #  INPUT
029076,000135: 
029077,000136:                                                                                                  #        (1) TTPI     TIME OF THE TPI MANEUVER
029078,000137:                                                                                                  #        (2) ELEV     DESIRED LOS ANGLE AT TPI
029079,000138:                                                                                                  #        (3) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029080,000139:                                                                                                  #                     TRANSFER FROM TPI TO TIME OF INTERCEPT
029081,000140: 
029082,000141:                                                                                                  #  OUTPUT
029083,000142: 
029084,000143:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
029085,000144:                                                                                                  #        (2) TTOGO    TIME TO GO
029086,000145:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
029087,000146:                                                                                                  #        (4) TTPI     COMPUTED TIME OF TPI MANEUVER
029088,000147:                                                                                                  #             OR
029089,000148:                                                                                                  #            ELEV     COMPUTED LOS ANGLE AT TPI
029090,000149:                                                                                                  #        (5) POSTTPI  PERIGEE ALTITUDE AFTER THE TPI MANEUVER
029091,000150:                                                                                                  #        (6) DELVTPI  MAGNITUDE OF DELTA V AT TPI
029092,000151:                                                                                                  #        (7) DELVTPF  MAGNITUDE OF DELTA V AT INTERCEPT
029093,000152:                                                                                                  #        (8) DVLOS    DELTA VELOCITY AT TPI - LINE OF SIGHT
029094,000153:                                                                                                  #        (9) DELVLVC  DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
029095,000154: 
029096,000155:                                                                                                  #  DOWNLINK
029097,000156: 
029098,000157:                                                                                                  #        (1) TTPI     TIME OF THE TPI MANEUVER
029099,000158:                                                                                                  #        (2) TIG      TIME OF THE TPI MANEUVER
029100,000159:                                                                                                  #        (3) ELEV     DESIRED LOS ANGLE AT TPI
029101,000160:                                                                                                  #        (4) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029102,000161:                                                                                                  #                     TRANSFER FROM TPI TO TIME OF INTERCEPT
029103,000162:                                                                                                  #        (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
029104,000163:                                                                                                  #        (6) TPASS4   TIME OF INTERCEPT
029105,000164:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029106,000165: 
029107,000166:                                                                                                  #        (1) TIG      TIME OF THE TPI MANEUVER
029108,000167:                                                                                                  #        (2) RTARG    OFFSET TARGET POSITION
029109,000168:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
029110,000169:                                                                                                  #        (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029111,000170: 
029112,000171:                                                                                                  #  SUBROUTINES USED
029113,000172: 
029114,000173:                                                                                                  #        AVFLAGA

Page 656

029116,000175:                                                                                                  #        AVFLAGP
029117,000176:                                                                                                  #        VNPOOH
029118,000177:                                                                                                  #        DISPLAYE
029119,000178:                                                                                                  #        SELECTMU
029120,000179:                                                                                                  #        PRECSET
029121,000180:                                                                                                  #        S33/34.1
029122,000181:                                                                                                  #        ALARM
029123,000182:                                                                                                  #        BANKCALL
029124,000183:                                                                                                  #        GOFLASH
029125,000184:                                                                                                  #        GOTOPOOH
029126,000185:                                                                                                  #        TIMETHET
029127,000186:                                                                                                  #        S34/35.2
029128,000187:                                                                                                  #        PERIAPO1
029129,000188:                                                                                                  #        SHIFTR1
029130,000189:                                                                                                  #        S34/35.5
029131,000190:                                                                                                  #        VN1645
029132,000191: 
029133,000192: 35,2000                                           SETLOC   CSI/CDH                               
029134,000193: 35,2000                                           BANK                                           
029135,000194: 35,2455  E7,1470                                  EBANK=   SUBEXIT                               
029136,000195: 35,2455                                           COUNT*   $$/P3474                              
029137,000196: 35,2455           02354        P34                TC       AVFLAGA                               
029138,000197: 35,2456           02460                           TC       P34/P74A                              
029139,000198: 35,2457           02361        P74                TC       AVFLAGP                               
029140,000199: 35,2460           02366        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
029141,000200: 35,2461           33640                           CAF      V06N37                                #  TTPI
029142,000201: 35,2462           03627                           TC       VNPOOH                                
029143,000202: 35,2463           00006                           EXTEND                                         
029144,000203: 35,2464           33663                           DCA      130DEG                                
029145,000204: 35,2465           53621                           DXCH     CENTANG                               
029146,000205: 35,2466           34741                           CAF      EBANK4                                
029147,000206: 35,2467           54001                           TS       L                                     
029148,000207: 35,2470           32424                           CAF      P30ZERO                               #  INITIALIZE DISPLAYED REGISTERS TO ZERO
029149,000208: 35,2471           55466                           TS       NN                                    #  R1: NN -- NUMBER OF OFFSETS
029150,000209: 35,2472  E4,1647                                  EBANK=   ELEV                                  
029151,000210: 35,2472           22003                           LXCH     EBANK                                 
029152,000211: 35,2473           55647                           TS       ELEV                                  #  R2: ELEV (D.P.) -- ELEVATION ANGLE
029153,000212: 35,2474           55650                           TS       ELEV       +1                         
029154,000213: 35,2475           22003                           LXCH     EBANK                                 
029155,000214: 35,2476  E7,1470                                  EBANK=   SUBEXIT                               #  CHNG BACK TO WHAT IT WAS BEFORE
029156,000215: 35,2476           03611                           TC       DISPLAYE                              #  V06N55 GOFLASH CALL: NN,ELEV,CENTANG
029157,000216: 35,2477           06051                           TC       INTPRET                               
029158,000217: 35,2500           71214                           CLEAR    DLOAD                                 
029159,000218: 35,2501           01270                                    ETPIFLAG                              
029160,000219: 35,2502           03636                                    TTPI                                  
029161,000220: 35,2503           17442                           STODL    TIG                                   
029162,000221: 35,2504           02250                                    ELEV                                  
029163,000222: 35,2505           43054                           BZE      SET                                   
029164,000223: 35,2506           72510                                    P34/P74B                              
029165,000224: 35,2507           01070                                    ETPIFLAG                              
029166,000225: 

Page 657

029168,000227: 35,2510           77624        P34/P74B           CALL                                           
029169,000228: 35,2511           20000                                    SELECTMU                              
029170,000229: 35,2512                        DELELO             EQUALS   26D                                   
029171,000230: 35,2512           43145        P34/P74C           DLOAD    SET                                   
029172,000231: 35,2513           06520                                    ZEROVECS                              
029173,000232: 35,2514           03460                                    ITSWICH                               
029174,000233: 35,2515           43014                           BON      CLEAR                                 
029175,000234: 35,2516           01310                                    ETPIFLAG                              
029176,000235: 35,2517           72521                                    SWCHSET                               
029177,000236: 35,2520           03660                                    ITSWICH                               
029178,000237: 35,2521           02310        SWCHSET            STORE    NOMTPI                                
029179,000238: 35,2522           43345        INTLOOP            DLOAD    DAD                                   
029180,000239: 35,2523           03636                                    TTPI                                  
029181,000240: 35,2524           02310                                    NOMTPI                                
029182,000241: 35,2525           34041                           STCALL   TDEC1                                 
029183,000242: 35,2526           46401                                    PRECSET                               
029184,000243: 35,2527           77624                           CALL                                           
029185,000244: 35,2530           72702                                    S33/34.1                              
029186,000245: 35,2531           77454                           BZE      EXIT                                  
029187,000246: 35,2532           72543                                    SWCHCLR                               
029188,000247: 35,2533           05600                           TC       ALARM                                 
029189,000248: 35,2534           00611                           OCT      611                                   
029190,000249: 35,2535           35006                           CAF      V05N09                                
029191,000250: 35,2536           04616                           TC       BANKCALL                              
029192,000251: 35,2537           20477                           CADR     GOFLASH                               
029193,000252: 35,2540           06001                           TC       GOTOPOOH                              
029194,000253: 35,2541           02460                           TC       P34/P74A                              #  PROCEED
029195,000254: 35,2542           02533                           TC       -7                                    #  V32
029196,000255: 
029197,000256: 35,2543           43014        SWCHCLR            BONCLR   BON                                   
029198,000257: 35,2544           03600                                    ITSWICH                               
029199,000258: 35,2545           72522                                    INTLOOP                               
029200,000259: 35,2546           01310                                    ETPIFLAG                              
029201,000260: 35,2547           72553                                    P34/P74D                              #  DISPLAY TTPI
029202,000261: 35,2550           77776                           EXIT                                           
029203,000262: 35,2551           03611                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
029204,000263: 35,2552           02556                           TC       P34/P74E                              
029205,000264: 35,2553           77776        P34/P74D           EXIT                                           
029206,000265: 35,2554           33640                           CAF      V06N37                                #  TTPI
029207,000266: 35,2555           03627                           TC       VNPOOH                                
029208,000267: 35,2556           06051        P34/P74E           TC       INTPRET                               
029209,000268: 35,2557           71201                           SETPD    DLOAD                                 
029210,000269: 35,2560           00001                                    0D                                    
029211,000270: 35,2561           02777                                    RTX1                                  
029212,000271: 35,2562           14047                           STODL    X1                                    
029213,000272: 35,2563           03621                                    CENTANG                               
029214,000273: 35,2564           71406                           PUSH     COS                                   
029215,000274: 35,2565           16732                           STODL    CSTH                                  
029216,000275: 35,2566           77756                           SIN                                            
029217,000276: 35,2567           26730                           STOVL    SNTH                                  

Page 658

029219,000278: 35,2570           03552                                    RPASS3                                
029220,000279: 35,2571           77657                           VSR*                                           
029221,000280: 35,2572           57176                                    0,2                                   
029222,000281: 35,2573           26655                           STOVL    RVEC                                  
029223,000282: 35,2574           03560                                    VPASS3                                
029224,000283: 35,2575           43057                           VSR*     SET                                   
029225,000284: 35,2576           57176                                    0,2                                   
029226,000285: 35,2577           03466                                    RVSW                                  
029227,000286: 35,2600           36744                           STCALL   VVEC                                  
029228,000287: 35,2601           24732                                    TIMETHET                              
029229,000288: 35,2602           77745                           DLOAD                                          
029230,000289: 35,2603           03636                                    TTPI                                  
029231,000290: 35,2604           03610                           STORE    INTIME                                #  FOR INITVEL
029232,000291: 35,2605           77615                           DAD                                            
029233,000292: 35,2606           00037                                    T                                     #  RENDEZVOUS TIME
029234,000293: 35,2607           37631                           STCALL   TPASS4                                #  FOR INITVEL
029235,000294: 35,2610           73224                                    S34/35.2                              
029236,000295: 35,2611           51575                           VLOAD    ABVAL                                 
029237,000296: 35,2612           02357                                    DELVEET3                              
029238,000297: 35,2613           27576                           STOVL    DELVTPI                               
029239,000298: 35,2614           03506                                    VPASS4                                
029240,000299: 35,2615           51451                           VSU      ABVAL                                 
029241,000300: 35,2616           03566                                    VTPRIME                               
029242,000301: 35,2617           26341                           STOVL    DELVTPF                               
029243,000302: 35,2620           03536                                    RACT3                                 
029244,000303: 35,2621           45115                           PDVL     CALL                                  
029245,000304: 35,2622           02330                                    VIPRIME                               
029246,000305: 35,2623           46337                                    PERIAPO1                              
029247,000306: 35,2624           77624                           CALL                                           
029248,000307: 35,2625           46447                                    SHIFTR1                               
029249,000308: 35,2626           17606                           STODL    POSTTPI                               
029250,000309: 35,2627           03636                                    TTPI                                  
029251,000310: 35,2630           03442                           STORE    TIG                                   
029252,000311: 35,2631           77776                           EXIT                                           
029253,000312: 35,2632           33642                           CAF      V06N58                                
029254,000313: 35,2633           03627                           TC       VNPOOH                                
029255,000314: 35,2634           06051                           TC       INTPRET                               
029256,000315: 35,2635           77624                           CALL                                           
029257,000316: 35,2636           73440                                    S34/35.5                              
029258,000317: 35,2637           77624                           CALL                                           
029259,000318: 35,2640           73523                                    VN1645                                
029260,000319: 35,2641           77650                           GOTO                                           
029261,000320: 35,2642           72512                                    P34/P74C                              
029262,000321: 

Page 659

029264,000323:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
029265,000324: 
029266,000325:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
029267,000326:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
029268,000327: 
029269,000328:                                                                                                  #  PURPOSE
029270,000329: 
029271,000330:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029272,000331:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
029273,000332:                                                                                                  #            MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
029274,000333:                                                                                                  #            VEHICLE RENDEZVOUS.
029275,000334: 
029276,000335:                                                                                                  #        (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029277,000336:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029278,000337:                                                                                                  #            ASTRONAUT/GROUND.
029279,000338: 
029280,000339:                                                                                                  #        (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
029281,000340:                                                                                                  #            THRUSTING PROGRAM.
029282,000341: 
029283,000342:                                                                                                  #  ASSUMPTIONS
029284,000343: 
029285,000344:                                                                                                  #        (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029286,000345: 
029287,000346:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029288,000347:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
029289,000348: 
029290,000349:                                                                                                  #        (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
029291,000350:                                                                                                  #            DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
029292,000351:                                                                                                  #            WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
029293,000352:                                                                                                  #            ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
029294,000353:                                                                                                  #            RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
029295,000354:                                                                                                  #            P20 AND AFTER EACH THRUSTING MANEUVER.
029296,000355: 
029297,000356:                                                                                                  #        (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029298,000357: 
029299,000358:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029300,000359:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029301,000360:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029302,000361:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029303,000362: 
029304,000363:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029305,000364:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029306,000365: 
029307,000366:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029308,000367:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029309,000368:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029310,000369: 
029311,000370:                                                                                                  #        (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
029312,000371:                                                                                                  #            COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
029313,000372:                                                                                                  #            (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
029314,000373: 

Page 660

029316,000375:                                                                                                  #        (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
029317,000376:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029318,000377:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029319,000378:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029320,000379:                                                                                                  #            THROUGH THE USE OF V06N52.
029321,000380: 
029322,000381:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029323,000382:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
029324,000383:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
029325,000384:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029326,000385:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
029327,000386: 
029328,000387:                                                                                                  #        (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029329,000388: 
029330,000389:                                                                                                  #                P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
029331,000390: 
029332,000391:                                                                                                  #                P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
029333,000392: 
029334,000393:                                                                                                  #  INPUT
029335,000394: 
029336,000395:                                                                                                  #        (1) TPASS4   TIME OF INTERCEPT - SAVED FROM P34/P74
029337,000396:                                                                                                  #  OUTPUT
029338,000397: 
029339,000398:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
029340,000399:                                                                                                  #        (2) TTOGO    TIME TO GO
029341,000400:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
029342,000401:                                                                                                  #        (4) DVLOS    DELTA VELOCITY AT MID - LINE OF SIGHT
029343,000402:                                                                                                  #        (5) DELVLVC  DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
029344,000403: 
029345,000404:                                                                                                  #  DOWNLINK
029346,000405: 
029347,000406:                                                                                                  #        (1) TIG      TIME OF THE TPM MANEUVER
029348,000407:                                                                                                  #        (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
029349,000408:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
029350,000409:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029351,000410: 
029352,000411:                                                                                                  #        (1) TIG      TIME OF THE TPM MANEUVER
029353,000412:                                                                                                  #        (2) RTARG    OFFSET TARGET POSITION
029354,000413:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
029355,000414:                                                                                                  #        (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029356,000415: 
029357,000416:                                                                                                  #  SUBROUTINES USED
029358,000417: 
029359,000418:                                                                                                  #        AVFLAGA
029360,000419:                                                                                                  #        AVFLAGP
029361,000420:                                                                                                  #        LOADTIME
029362,000421:                                                                                                  #        SELECTMU
029363,000422:                                                                                                  #        PRECSET
029364,000423:                                                                                                  #        S34/35.1
029365,000424:                                                                                                  #        S34/35.2

Page 661

029367,000426:                                                                                                  #        S34/35.5
029368,000427:                                                                                                  #        VN1645
029369,000428: 
029370,000429: 35,2643                                           COUNT*   $$/P3575                              
029371,000430: 35,2643  E7,1575                                  EBANK=   KT                                    
029372,000431: 
029373,000432: 35,2643           02354        P35                TC       AVFLAGA                               
029374,000433: 35,2644           00006                           EXTEND                                         
029375,000434: 35,2645           31401                           DCA      ATIGINC                               
029376,000435: 35,2646           02652                           TC       P35/P75A                              
029377,000436: 35,2647           02361        P75                TC       AVFLAGP                               
029378,000437: 35,2650           00006                           EXTEND                                         
029379,000438: 35,2651           31403                           DCA      PTIGINC                               
029380,000439: 35,2652           53576        P35/P75A           DXCH     KT                                    
029381,000440: 35,2653           02366                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
029382,000441: 35,2654           06051                           TC       INTPRET                               
029383,000442: 35,2655           77624                           CALL                                           
029384,000443: 35,2656           20000                                    SELECTMU                              
029385,000444: 35,2657           77634        P35/P75B           RTB                                            
029386,000445: 35,2660           21555                                    LOADTIME                              
029387,000446: 35,2661           03612                           STORE    TSTRT                                 
029388,000447: 35,2662           77615                           DAD                                            
029389,000448: 35,2663           03576                                    KT                                    
029390,000449: 35,2664           03442                           STORE    TIG                                   
029391,000450: 35,2665           03610                           STORE    INTIME                                #  FOR INITVEL
029392,000451: 35,2666           34041                           STCALL   TDEC1                                 
029393,000452: 35,2667           46401                                    PRECSET                               #  ADVANCE BOTH VEHICLES
029394,000453: 35,2670           77624                           CALL                                           
029395,000454: 35,2671           73212                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
029396,000455: 35,2672           77624                           CALL                                           
029397,000456: 35,2673           73224                                    S34/35.2                              #  GET DELTA V(LV)
029398,000457: 35,2674           77624                           CALL                                           
029399,000458: 35,2675           73440                                    S34/35.5                              
029400,000459: 35,2676           77624                           CALL                                           
029401,000460: 35,2677           73523                                    VN1645                                
029402,000461: 35,2700           77650                           GOTO                                           
029403,000462: 35,2701           72657                                    P35/P75B                              
029404,000463: 

Page 662

029406,000465:                                                                                                  #  ..... S33/34.1  .....
029407,000466: 
029408,000467: 35,2702           66220        S33/34.1           STQ      SSP                                   
029409,000468: 35,2703           03463                                    NORMEX                                
029410,000469: 35,2704           03614                                    TITER                                 
029411,000470: 35,2705           40000                           OCT      40000                                 
029412,000471: 35,2706           40345                           DLOAD    SETPD                                 
029413,000472: 35,2707           33651                                    MAX250                                
029414,000473: 35,2710           00001                                    0D                                    
029415,000474: 35,2711           27574                           STOVL    SECMAX                                
029416,000475: 35,2712           03536                                    RACT3                                 
029417,000476: 35,2713           27500                           STOVL    RAPREC                                
029418,000477: 35,2714           03544                                    VACT3                                 
029419,000478: 35,2715           27506                           STOVL    VAPREC                                
029420,000479: 35,2716           03552                                    RPASS3                                
029421,000480: 35,2717           27522                           STOVL    RPPREC                                
029422,000481: 35,2720           03560                                    VPASS3                                
029423,000482: 35,2721           03530                           STORE    VPPREC                                
029424,000483: 35,2722           77624        ELCALC             CALL                                           
029425,000484: 35,2723           73212                                    S34/35.1                              #  NORMAL AND LOS
029426,000485: 35,2724           63235                           VXV      PDVL                                  
029427,000486: 35,2725           03536                                    RACT3                                 #  (RA*VA)*RA 0D
029428,000487: 35,2726           53515                           PDVL     UNIT                                  #  ULOS AT 6D
029429,000488: 35,2727           03536                                    RACT3                                 
029430,000489: 35,2730           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
029431,000490: 35,2731           51352                           VSL2     BVSU                                  
029432,000491: 35,2732           02302                                    ULOS                                  
029433,000492: 35,2733           63256                           UNIT     PDVL                                  #  UP AT 0D
029434,000493: 35,2734           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
029435,000494: 35,2735           00001                                    0D                                    #  UP IN MPAC
029436,000495: 35,2736           75241                           DOT      SIGN                                  
029437,000496: 35,2737           02302                                    ULOS                                  
029438,000497: 35,2740           65552                           SL1      ACOS                                  
029439,000498: 35,2741           50315                           PDVL     DOT                                   #  EA AT 0D
029440,000499: 35,2742           02302                                    ULOS                                  
029441,000500: 35,2743           03536                                    RACT3                                 
029442,000501: 35,2744           71244                           BPL      DLOAD                                 
029443,000502: 35,2745           72750                                    TESTY                                 
029444,000503: 35,2746           06526                                    DPPOSMAX                              
029445,000504: 35,2747           41425                           DSU      PUSH                                  
029446,000505: 35,2750           71214        TESTY              BOFF     DLOAD                                 
029447,000506: 35,2751           03740                                    ITSWICH                               
029448,000507: 35,2752           73177                                    ELEX                                  
029449,000508: 35,2753           03576                                    DELEL                                 
029450,000509: 35,2754           14033                           STODL    DELELO                                
029451,000510: 35,2755           77625                           DSU                                            
029452,000511: 35,2756           02250                                    ELEV                                  
029453,000512: 35,2757           03576                           STORE    DELEL                                 
029454,000513: 35,2760           45246                           ABS      DSU                                   
029455,000514: 35,2761           33655                                    ELEPS                                 

Page 663

029457,000516: 35,2762           77640                           BMN                                            
029458,000517: 35,2763           73207                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
029459,000518: 35,2764           70535        FIGTIME            SLOAD    SR1                                   
029460,000519: 35,2765           03614                                    TITER                                 
029461,000520: 35,2766           72030                           BHIZ     LXA,1                                 
029462,000521: 35,2767           03463                                    NORMEX                                #  TOO MANY ITERATIONS
029463,000522: 35,2770           00154                                    MPAC                                  
029464,000523: 35,2771           77330                           SXA,1    VLOAD                                 
029465,000524: 35,2772           03613                                    TITER                                 
029466,000525: 35,2773           03552                                    RPASS3                                
029467,000526: 35,2774           65256                           UNIT     PDDL                                  
029468,000527: 35,2775           00045                                    36D                                   
029469,000528: 35,2776           53515                           PDVL     UNIT                                  
029470,000529: 35,2777           03536                                    RACT3                                 
029471,000530: 35,3000           77725                           PDDL                                           
029472,000531: 35,3001           41525                           PDDL     PUSH                                  
029473,000532: 35,3002           00045                                    36D                                   
029474,000533: 35,3003           77621                           BDSU                                           
029475,000534: 35,3004           00015                                    12D                                   
029476,000535: 35,3005           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
029477,000536: 35,3006           06516                                    DPHALF                                
029478,000537: 35,3007           41425                           DSU      PUSH                                  
029479,000538: 35,3010           02250                                    ELEV                                  
029480,000539: 35,3011           50165                           SIGN     BMN                                   
029481,000540: 35,3012           00037                                    30D                                   
029482,000541: 35,3013           03463                                    NORMEX                                
029483,000542: 35,3014           71545                           DLOAD    COS                                   
029484,000543: 35,3015           56205                           DMP      DDV                                   
029485,000544: 35,3016           00017                                    14D                                   
029486,000545: 35,3017           00015                                    12D                                   
029487,000546: 35,3020           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
029488,000547: 35,3021           00035                           STORE    28D                                   
029489,000548: 35,3022           44246                           ABS      BDSU                                  
029490,000549: 35,3023           06516                                    DPHALF                                
029491,000550: 35,3024           77240                           BMN      VLOAD                                 
029492,000551: 35,3025           03463                                    NORMEX                                
029493,000552: 35,3026           02252                                    UNRM                                  
029494,000553: 35,3027           53435                           VXV      UNIT                                  
029495,000554: 35,3030           00007                                    6D                                    #  UN*RA
029496,000555: 35,3031           41241                           DOT      DMP                                   
029497,000556: 35,3032           03544                                    VACT3                                 
029498,000557: 35,3033           00015                                    12D                                   
029499,000558: 35,3034           47315                           PDVL     VXV                                   
029500,000559: 35,3035           00001                                    0D                                    
029501,000560: 35,3036           03560                                    VPASS3                                
029502,000561: 35,3037           53435                           VXV      UNIT                                  
029503,000562: 35,3040           00001                                    0D                                    #  (RP*VP)*RP
029504,000563: 35,3041           41241                           DOT      DMP                                   
029505,000564: 35,3042           03560                                    VPASS3                                
029506,000565: 35,3043           00017                                    14D                                   

Page 664

029508,000567: 35,3044           77621                           BDSU                                           
029509,000568: 35,3045           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
029510,000569: 35,3046           00047                                    X1                                    
029511,000570: 35,3047           00007                                    6D                                    
029512,000571: 35,3050           50235                           VXV      DOT                                   
029513,000572: 35,3051           00001                                    0D                                    
029514,000573: 35,3052           02252                                    UNRM                                  #  RA*RP.UN 14D
029515,000574: 35,3053           50315                           PDVL     DOT                                   
029516,000575: 35,3054           00001                                    0D                                    
029517,000576: 35,3055           00007                                    6D                                    
029518,000577: 35,3056           65552                           SL1      ACOS                                  
029519,000578: 35,3057           77765                           SIGN                                           
029520,000579: 35,3060           43225                           DSU      DAD                                   #    ALPHA   PI
029521,000580: 35,3061           06516                                    DPHALF                                
029522,000581: 35,3062           02250                                    ELEV                                  
029523,000582: 35,3063           65525                           PDDL     ACOS                                  
029524,000583: 35,3064           00035                                    28D                                   
029525,000584: 35,3065           75221                           BDSU     SIGN                                  
029526,000585: 35,3066           06516                                    DPHALF                                
029527,000586: 35,3067           00037                                    30D                                   #  CONTAINS RP-RA
029528,000587: 35,3070           77615                           DAD                                            
029529,000588: 35,3071           56205                           DMP      DDV                                   
029530,000589: 35,3072           33647                                    TWOPI                                 
029531,000590: 35,3073           77605                           DMP                                            
029532,000591: 35,3074           41257                           SL*      DMP                                   
029533,000592: 35,3075           20176                                    0          -3,1                       
029534,000593: 35,3076           51406                           PUSH     ABS                                   
029535,000594: 35,3077           50025                           DSU      BMN                                   
029536,000595: 35,3100           03574                                    SECMAX                                
029537,000596: 35,3101           73105                                    OKMAX                                 
029538,000597: 35,3102           75345                           DLOAD    SIGN                                  #   REPLACE TIME WITH MAX TIME SIGNED
029539,000598: 35,3103           03574                                    SECMAX                                
029540,000599: 35,3104           77606                           PUSH                                           
029541,000600: 35,3105           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
029542,000601: 35,3106           03614                                    TITER                                 
029543,000602: 35,3107           73115                                    REPETE                                
029544,000603: 35,3110           71331                           SSP      DLOAD                                 
029545,000604: 35,3111           03614                                    TITER                                 
029546,000605: 35,3112           37777                           OCT      37777                                 
029547,000606: 35,3113           77650                           GOTO                                           
029548,000607: 35,3114           73153                                    STORDELT                              
029549,000608: 35,3115           41345        REPETE             DLOAD    DMP                                   
029550,000609: 35,3116           03576                                    DELEL                                 
029551,000610: 35,3117           00033                                    DELELO                                
029552,000611: 35,3120           71244                           BPL      DLOAD                                 
029553,000612: 35,3121           73131                                    NEXTES                                
029554,000613: 35,3122           03574                                    SECMAX                                
029555,000614: 35,3123           77605                           DMP                                            
029556,000615: 35,3124           33653                                    THIRD                                 
029557,000616: 35,3125           17574                           STODL    SECMAX                                

Page 665

029559,000618: 35,3126           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
029560,000619: 35,3127           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
029561,000620: 35,3130           73141                                    RESIGN                                
029562,000621: 35,3131           51545        NEXTES             DLOAD    ABS                                   
029563,000622: 35,3132           03576                                    DELEL                                 
029564,000623: 35,3133           51525                           PDDL     ABS                                   
029565,000624: 35,3134           00033                                    DELELO                                
029566,000625: 35,3135           77625                           DSU                                            
029567,000626: 35,3136           71240                           BMN      DLOAD                                 
029568,000627: 35,3137           73144                                    REVERS                                #  WRONG DIRECTION
029569,000628: 35,3140           77646                           ABS                                            
029570,000629: 35,3141           52165        RESIGN             SIGN     GOTO                                  
029571,000630: 35,3142           03606                                    DELTEEO                               
029572,000631: 35,3143           73153                                    STORDELT                              
029573,000632: 35,3144           57545        REVERS             DLOAD    DCOMP                                 
029574,000633: 35,3145           03606                                    DELTEEO                               
029575,000634: 35,3146           70406                           PUSH     SR1                                   
029576,000635: 35,3147           03606                           STORE    DELTEEO                               
029577,000636: 35,3150           77615                           DAD                                            
029578,000637: 35,3151           77650                           GOTO                                           
029579,000638: 35,3152           73154                                    ADTIME                                
029580,000639: 35,3153           03606        STORDELT           STORE    DELTEEO                               
029581,000640: 35,3154           77615        ADTIME             DAD                                            
029582,000641: 35,3155           02310                                    NOMTPI                                #  SUM OF DELTA T:S
029583,000642: 35,3156           02310                           STORE    NOMTPI                                
029584,000643: 35,3157           63375                           VLOAD    PDVL                                  
029585,000644: 35,3160           03506                                    VAPREC                                
029586,000645: 35,3161           03500                                    RAPREC                                
029587,000646: 35,3162           77624                           CALL                                           
029588,000647: 35,3163           73400                                    GOINT                                 
029589,000648: 35,3164           77624                           CALL                                           
029590,000649: 35,3165           46423                                    ACTIVE                                #  STORE NEW RACT3 VACT3
029591,000650: 35,3166           63375                           VLOAD    PDVL                                  
029592,000651: 35,3167           03530                                    VPPREC                                
029593,000652: 35,3170           03522                                    RPPREC                                
029594,000653: 35,3171           77624                           CALL                                           
029595,000654: 35,3172           73400                                    GOINT                                 
029596,000655: 35,3173           77624                           CALL                                           
029597,000656: 35,3174           46433                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
029598,000657: 35,3175           77650                           GOTO                                           
029599,000658: 35,3176           72722                                    ELCALC                                
029600,000659: 35,3177           43345        ELEX               DLOAD    DAD                                   
029601,000660: 35,3200           03636                                    TTPI                                  
029602,000661: 35,3201           02310                                    NOMTPI                                
029603,000662: 35,3202           17636                           STODL    TTPI                                  
029604,000663: 35,3203           77614                           BON                                            
029605,000664: 35,3204           01310                                    ETPIFLAG                              
029606,000665: 35,3205           73207                                    TIMEX                                 
029607,000666: 35,3206           02250                           STORE    ELEV                                  
029608,000667: 35,3207           52145        TIMEX              DLOAD    GOTO                                  

Page 666

029610,000669: 35,3210           06520                                    ZEROVECS                              
029611,000670: 35,3211           03463                                    NORMEX                                
029612,000671: 

Page 667

029614,000673:                                                                                                  #  ..... S34/35.1  .....
029615,000674: 
029616,000675:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029617,000676:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
029618,000677: 35,3212           52375        S34/35.1           VLOAD    VSU                                   
029619,000678: 35,3213           03552                                    RPASS3                                
029620,000679: 35,3214           03536                                    RACT3                                 
029621,000680: 35,3215           41456                           UNIT     PUSH                                  
029622,000681: 35,3216           26302                           STOVL    ULOS                                  
029623,000682: 35,3217           03536                                    RACT3                                 
029624,000683: 35,3220           53435                           VXV      UNIT                                  
029625,000684: 35,3221           03544                                    VACT3                                 
029626,000685: 35,3222           02252                           STORE    UNRM                                  
029627,000686: 35,3223           77616                           RVQ                                            
029628,000687: 

Page 668

029630,000689:                                                                                                  #  ..... S34/35.2  .....
029631,000690: 
029632,000691:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
029633,000692: 35,3224           77220        S34/35.2           STQ      VLOAD                                 
029634,000693: 35,3225           03470                                    SUBEXIT                               
029635,000694: 35,3226           03560                                    VPASS3                                
029636,000695: 35,3227           65315                           PDVL     PDDL                                  
029637,000696: 35,3230           03552                                    RPASS3                                
029638,000697: 35,3231           03610                                    INTIME                                
029639,000698: 35,3232           65325                           PDDL     PDDL                                  
029640,000699: 35,3233           03631                                    TPASS4                                
029641,000700: 35,3234           33647                                    TWOPI                                 #  CONIC
029642,000701: 35,3235           46125                           PDDL     BHIZ                                  
029643,000702: 35,3236           03467                                    NN                                    
029644,000703: 35,3237           73243                                    S3435.23                              
029645,000704: 35,3240           77745                           DLOAD                                          
029646,000705: 35,3241           41545                           DLOAD    PUSH                                  
029647,000706: 35,3242           06520                                    ZEROVECS                              #  PRECISION
029648,000707: 35,3243           77624        S3435.23           CALL                                           
029649,000708: 35,3244           73404                                    INTINT                                #  GET TARGET VECTOR
029650,000709: 35,3245           27444        S3435.25           STOVL    RTARG                                 
029651,000710: 35,3246           00007                                    VATT                                  
029652,000711: 35,3247           27506                           STOVL    VPASS4                                
029653,000712: 35,3250           03444                                    RTARG                                 
029654,000713:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
029655,000714: 35,3251           63256                           UNIT     PDVL                                  #  UNIT RP
029656,000715: 35,3252           03536                                    RACT3                                 
029657,000716: 35,3253           41456                           UNIT     PUSH                                  #  UNIT RA
029658,000717: 35,3254           50235                           VXV      DOT                                   
029659,000718: 35,3255           00001                                    0D                                    
029660,000719: 35,3256           02252                                    UNRM                                  #  RA*RP.U
029661,000720: 35,3257           77715                           PDVL                                           
029662,000721: 35,3260           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
029663,000722: 35,3261           00001                                    0D                                    
029664,000723: 35,3262           75326                           ACOS     SIGN                                  
029665,000724: 35,3263           43244                           BPL      DAD                                   
029666,000725: 35,3264           73266                                    NOPIE                                 
029667,000726: 35,3265           06526                                    DPPOSMAX                              #  REASONABLE TWO PI
029668,000727: 35,3266           15754        NOPIE              STODL    ACTCENT                               
029669,000728: 35,3267           03631                                    TPASS4                                
029670,000729: 35,3270           77625                           DSU                                            
029671,000730: 35,3271           03610                                    INTIME                                
029672,000731: 35,3272           03452                           STORE    DELLT4                                
029673,000732: 35,3273           40335                           SLOAD    SETPD                                 
029674,000733: 35,3274           03467                                    NN                                    #  NUMBER OF OFFSETS
029675,000734: 35,3275           00001                                    0D                                    
029676,000735: 35,3276           63325                           PDDL     PDVL                                  
029677,000736: 35,3277           33661                                    EPSFOUR                               
029678,000737: 35,3300           03536                                    RACT3                                 
029679,000738: 35,3301           26314                           STOVL    RINIT                                 

Page 669

029681,000740: 35,3302           03544                                    VACT3                                 
029682,000741: 35,3303           36322                           STCALL   VINIT                                 
029683,000742: 35,3304           22000                                    INITVEL                               
029684,000743: 35,3305           77624                           CALL                                           
029685,000744: 35,3306           73365                                    LOMAT                                 
029686,000745: 35,3307           64375                           VLOAD    MXV                                   
029687,000746: 35,3310           02357                                    DELVEET3                              
029688,000747: 35,3311           00001                                    0D                                    
029689,000748: 35,3312           77772                           VSL1                                           
029690,000749: 35,3313           37434                           STCALL   DELVLVC                               
029691,000750: 35,3314           03470                                    SUBEXIT                               
029692,000751: 

Page 670

029694,000753:                                                                                                  #  ..... S34/35.3  .....
029695,000754: 
029696,000755: 35,3315           45020        S34/35.3           STQ      CALL                                  
029697,000756: 35,3316           03463                                    NORMEX                                
029698,000757: 35,3317           73365                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
029699,000758: 35,3320           61375                           VLOAD    VXM                                   
029700,000759: 35,3321           03434                                    DELVLVC                               #  NEW DEL V TPI
029701,000760: 35,3322           00001                                    0D                                    
029702,000761: 35,3323           77772                           VSL1                                           
029703,000762: 35,3324           02357                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
029704,000763: 35,3325           63255                           VAD      PDVL                                  
029705,000764: 35,3326           03544                                    VACT3                                 #  NEW V REQ
029706,000765: 35,3327           03536                                    RACT3                                 
029707,000766: 35,3330           65325                           PDDL     PDDL                                  
029708,000767: 35,3331           03442                                    TIG                                   
029709,000768: 35,3332           03631                                    TPASS4                                
029710,000769: 35,3333           41525                           PDDL     PUSH                                  
029711,000770: 35,3334           06526                                    DPPOSMAX                              
029712,000771: 35,3335           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
029713,000772: 35,3336           73404                                    INTINT                                
029714,000773: 35,3337           77775                           VLOAD                                          
029715,000774: 35,3340           00001                                    RATT                                  
029716,000775: 35,3341           03444                           STORE    RTARG                                 
029717,000776: 35,3342           41575        NOVRWRT            VLOAD    PUSH                                  
029718,000777: 35,3343           02302                                    ULOS                                  
029719,000778: 35,3344           57435                           VXV      VCOMP                                 
029720,000779: 35,3345           02252                                    UNRM                                  
029721,000780: 35,3346           41456                           UNIT     PUSH                                  
029722,000781: 35,3347           76435                           VXV      VSL1                                  
029723,000782: 35,3350           02302                                    ULOS                                  
029724,000783: 35,3351           77715                           PDVL                                           
029725,000784: 35,3352           64315                           PDVL     MXV                                   
029726,000785: 35,3353           02357                                    DELVEET3                              
029727,000786: 35,3354           00001                                    0D                                    
029728,000787: 35,3355           77772                           VSL1                                           
029729,000788: 35,3356           36274                           STCALL   DVLOS                                 
029730,000789: 35,3357           03463                                    NORMEX                                
029731,000790: 

Page 671

029733,000792:                                                                                                  #  ..... S34/35.4  .....
029734,000793: 
029735,000794: 35,3360           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
029736,000795: 35,3361           03463                                    NORMEX                                
029737,000796: 35,3362           00001                                    0D                                    
029738,000797: 35,3363           77650                           GOTO                                           
029739,000798: 35,3364           73342                                    NOVRWRT                               
029740,000799: 

Page 672

029742,000801:                                                                                                  #  ..... LOMAT     .....
029743,000802: 
029744,000803: 35,3365           57575        LOMAT              VLOAD    VCOMP                                 
029745,000804: 35,3366           02252                                    UNRM                                  
029746,000805: 35,3367           24007                           STOVL    6D                                    #  Y
029747,000806: 35,3370           03536                                    RACT3                                 
029748,000807: 35,3371           57456                           UNIT     VCOMP                                 
029749,000808: 35,3372           00015                           STORE    12D                                   
029750,000809: 35,3373           76435                           VXV      VSL1                                  
029751,000810: 35,3374           02252                                    UNRM                                  #  Z*-Y
029752,000811: 35,3375           00001                           STORE    0D                                    
029753,000812: 35,3376           43401                           SETPD    RVQ                                   
029754,000813: 35,3377           00023                                    18D                                   
029755,000814: 35,3400           65325        GOINT              PDDL     PDDL                                  #  DO
029756,000815: 35,3401           06520                                    ZEROVECS                              #    NOT
029757,000816: 35,3402           02310                                    NOMTPI                                
029758,000817: 35,3403           41406                           PUSH     PUSH                                  #             ORDER OR INSERT BEFORE INTINT
029759,000818: 35,3404           45020        INTINT             STQ      CALL                                  
029760,000819: 35,3405           03465                                    RTRN                                  
029761,000820: 35,3406           27410                                    INTSTALL                              
029762,000821: 35,3407           71214                           CLEAR    DLOAD                                 
029763,000822: 35,3410           01673                                    INTYPFLG                              
029764,000823: 35,3411           43054                           BZE      SET                                   
029765,000824: 35,3412           73414                                    +2                                    
029766,000825: 35,3413           01473                                    INTYPFLG                              
029767,000826: 35,3414           45545                           DLOAD    STADR                                 
029768,000827: 35,3415           63736                           STODL    TDEC1                                 
029769,000828: 35,3416           73014                           SET      LXA,2                                 
029770,000829: 35,3417           00063                                    MOONFLAG                              
029771,000830: 35,3420           02777                                    RTX2                                  
029772,000831: 35,3421           43014                           BON      CLEAR                                 
029773,000832: 35,3422           04303                                    CMOONFLG                              
029774,000833: 35,3423           73425                                    ALLSET                                
029775,000834: 35,3424           00263                                    MOONFLAG                              
029776,000835: 35,3425           25517        ALLSET             STOVL    TET                                   
029777,000836: 35,3426           77657                           VSR*                                           
029778,000837: 35,3427           57176                                    0,2                                   
029779,000838: 35,3430           25535                           STOVL    RCV                                   
029780,000839: 35,3431           77657                           VSR*                                           
029781,000840: 35,3432           57176                                    0,2                                   
029782,000841: 35,3433           35543                           STCALL   VCV                                   
029783,000842: 35,3434           27106                                    INTEGRVS                              
029784,000843: 35,3435           52175                           VLOAD    GOTO                                  
029785,000844: 35,3436           00001                                    RATT                                  
029786,000845: 35,3437           03465                                    RTRN                                  
029787,000846: 

Page 673

029789,000848:                                                                                                  #  ..... S34/35.5  .....
029790,000849:                                                                                                  #  SUBROUTINES USED
029791,000850: 
029792,000851:                                                                                                  #        BANKCALL
029793,000852:                                                                                                  #        GOFLASH
029794,000853:                                                                                                  #        GOTOPOOH
029795,000854:                                                                                                  #        S34/35.3
029796,000855:                                                                                                  #        S34/35.4
029797,000856:                                                                                                  #        VNPOOH
029798,000857: 
029799,000858: 35,3440           43020        S34/35.5           STQ      BON                                   
029800,000859: 35,3441           03470                                    SUBEXIT                               
029801,000860: 35,3442           01311                                    FINALFLG                              
029802,000861: 35,3443           73447                                    FLAGON                                
029803,000862: 35,3444           52014                           SET      GOTO                                  
029804,000863: 35,3445           00470                                    UPDATFLG                              
029805,000864: 35,3446           73513                                    FLAGOFF                               
029806,000865: 35,3447           77214        FLAGON             CLEAR    VLOAD                                 
029807,000866: 35,3450           03274                                    NTARGFLG                              
029808,000867: 35,3451           03434                                    DELVLVC                               

The following line is marked as having been changed between KISSING.063 and KISSING.064.

029810,000869: 35,3452           01236                           STORE    TMPDV                                 #  SAVE DV BEFORE DISPLAY
029811,000870: 35,3453           77776                           EXIT                                           
029812,000871: 35,3454           33644                 +5        CAF      V06N81                                
029813,000872: 35,3455           04616                           TC       BANKCALL                              
029814,000873: 35,3456           20477                           CADR     GOFLASH                               
029815,000874: 35,3457           06001                           TC       GOTOPOOH                              
029816,000875: 35,3460           03462                           TC       +2                                    #  PRO
029817,000876: 35,3461           03454                           TC       FLAGON     +5                         #  LOAD
029818,000877: 35,3462           35016                 +2        CA       EBANK7                                
029819,000878: 35,3463           54003                           TS       EBANK                                 #  TO BE SURE
029820,000879: 
029821,000880: 35,3464           22007                           ZL                                             
029822,000881: 35,3465           34756                           CA       FIVE                                  
029823,000882: 35,3466           54002        NTARGCHK           TS       Q                                     
029824,000883: 35,3467           50002                           INDEX    Q                                     
029825,000884: 35,3470           41433                           CS       DELVLVC                               
029826,000885: 35,3471           50002                           INDEX    Q                                     

The following line is marked as having been changed between KISSING.063 and KISSING.064.

029828,000887: 35,3472           61235                           AD       TMPDV                                 
029829,000888: 35,3473           26001                           ADS      L                                     
029830,000889: 35,3474           10002                           CCS      Q                                     
029831,000890: 35,3475           13466                           TCF      NTARGCHK                              
029832,000891: 35,3476           22000                           LXCH     A                                     
029833,000892: 35,3477           00006                           EXTEND                                         
029834,000893: 35,3500           13503                           BZF      +3                                    
029835,000894: 35,3501           05515                           TC       UPFLAG                                
029836,000895: 35,3502           00146                           ADRES    NTARGFLG                              
029837,000896: 
029838,000897: 35,3503           06051                           TC       INTPRET                               
029839,000898: 35,3504           45014                           BOFF     CALL                                  
029840,000899: 35,3505           03354                                    NTARGFLG                              

Page 674

029842,000901: 35,3506           73510                                    NOCHG                                 
029843,000902: 35,3507           73315                                    S34/35.3                              
029844,000903: 35,3510           77775        NOCHG              VLOAD                                          
029845,000904: 35,3511           02357                                    DELVEET3                              
029846,000905: 35,3512           03656                           STORE    DELVSIN                               
029847,000906: 35,3513           77624        FLAGOFF            CALL                                           
029848,000907: 35,3514           73360                                    S34/35.4                              
029849,000908: 35,3515           77776                           EXIT                                           
029850,000909: 35,3516           33643                           CAF      V06N59                                
029851,000910: 35,3517           03627                           TC       VNPOOH                                
029852,000911: 35,3520           06051                           TC       INTPRET                               
029853,000912: 35,3521           77650                           GOTO                                           
029854,000913: 35,3522           03470                                    SUBEXIT                               
029855,000914: 

Page 675

029857,000916:                                                                                                  #  ..... VN1645    .....
029858,000917: 
029859,000918:                                                                                                  #  SUBROUTINES USED
029860,000919: 
029861,000920:                                                                                                  #        P3XORP7X
029862,000921:                                                                                                  #        GET+MGA
029863,000922:                                                                                                  #        BANKCALL
029864,000923:                                                                                                  #        DELAYJOB
029865,000924:                                                                                                  #        COMPTGO
029866,000925:                                                                                                  #        GOFLASHR
029867,000926:                                                                                                  #        GOTOPOOH
029868,000927:                                                                                                  #        FLAGUP
029869,000928: 
029870,000929: 35,3523           71220        VN1645             STQ      DLOAD                                 
029871,000930: 35,3524           03470                                    SUBEXIT                               
029872,000931: 35,3525           33657                                    DP-.01                                
029873,000932: 35,3526           02244                           STORE    +MGA                                  #  MGA = -.01
029874,000933: 35,3527           71214                           BOFF     DLOAD                                 
029875,000934: 35,3530           01351                                    FINALFLG                              
029876,000935: 35,3531           73551                                    GET45                                 
029877,000936: 35,3532           33657                                    DP-.01                                
029878,000937: 35,3533           77615                           DAD                                            
029879,000938: 35,3534           33657                                    DP-.01                                
029880,000939: 35,3535           02244                           STORE    +MGA                                  #  MGA = -.02
029881,000940: 35,3536           77414                           BOFF     EXIT                                  
029882,000941: 35,3537           01742                                    REFSMFLG                              
029883,000942: 35,3540           73551                                    GET45                                 
029884,000943: 35,3541           03621                           TC       P3XORP7X                              
029885,000944: 35,3542           03544                           TC       +2                                    #  P3X
029886,000945: 35,3543           03552                           TC       GET45      +1                         #  P7X
029887,000946: 35,3544           06051                           TC       INTPRET                               
029888,000947: 35,3545           41575                           VLOAD    PUSH                                  
029889,000948: 35,3546           03656                                    DELVSIN                               
029890,000949: 35,3547           77624                           CALL                                           #  COMPUTE MGA
029891,000950: 35,3550           15725                                    GET+MGA                               
029892,000951: 35,3551           77776        GET45              EXIT                                           
029893,000952: 35,3552           02437                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
029894,000953: 35,3553           31470                           CA       SUBEXIT                               
029895,000954: 35,3554           55464                           TS       QSAVED                                
029896,000955: 35,3555           34777                           CAF      1SEC                                  
029897,000956: 35,3556           04616                           TC       BANKCALL                              
029898,000957: 35,3557           01736                           CADR     DELAYJOB                              
029899,000958: 35,3560           33645                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
029900,000959: 35,3561           04616                           TC       BANKCALL                              
029901,000960: 35,3562           20477                           CADR     GOFLASH                               
029902,000961: 35,3563           03566                           TC       KILCLOCK                              #  TERMINATE
029903,000962: 35,3564           03571                           TC       N45PROC                               #  PROCEED
029904,000963: 35,3565           03601                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
029905,000964: 35,3566           30005        KILCLOCK           CA       Z                                     
029906,000965: 35,3567           55162                           TS       DISPDEX                               

Page 676

029908,000967: 35,3570           06001                           TC       GOTOPOOH                              
029909,000968: 35,3571           40076        N45PROC            CS       FLAGWRD2                              
029910,000969: 35,3572           74746                           MASK     BIT6                                  
029911,000970: 35,3573           00006                           EXTEND                                         
029912,000971: 35,3574           13566                           BZF      KILCLOCK                              #  FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
029913,000972: 35,3575           05364                           TC       PHASCHNG                              
029914,000973: 35,3576           04024                           OCT      04024                                 
029915,000974: 35,3577           05515                           TC       UPFLAG                                #  SET
029916,000975: 35,3600           00047                           ADRES    FINALFLG                              #  FINALFLG
029917,000976: 35,3601           30005        CLUPDATE           CA       Z                                     
029918,000977: 35,3602           55162                           TS       DISPDEX                               
029919,000978: 35,3603           05364                           TC       PHASCHNG                              
029920,000979: 35,3604           04024                           OCT      04024                                 
029921,000980: 35,3605           06051                           TC       INTPRET                               
029922,000981: 35,3606           52014                           CLEAR    GOTO                                  
029923,000982: 35,3607           00670                                    UPDATFLG                              
029924,000983: 35,3610           03464                                    QSAVED                                
029925,000984: 

Page 677

029927,000986:                                                                                                  #  ..... DISPLAYE  .....
029928,000987: 
029929,000988:                                                                                                  #  SUBROUTINES USED
029930,000989: 
029931,000990:                                                                                                  #        BANKCALL
029932,000991:                                                                                                  #        GOFLASHR
029933,000992:                                                                                                  #        GOTOPOOH
029934,000993:                                                                                                  #        BLANKET
029935,000994:                                                                                                  #        ENDOFJOB
029936,000995: 
029937,000996: 35,3611           00006        DISPLAYE           EXTEND                                         
029938,000997: 35,3612           23463                           QXCH     NORMEX                                
029939,000998: 35,3613           33641                           CAF      V06N55                                
029940,000999: 35,3614           04616                           TCR      BANKCALL                              
029941,001000: 35,3615           20477                           CADR     GOFLASH                               
029942,001001: 35,3616           16001                           TCF      GOTOPOOH                              
029943,001002: 35,3617           01463                           TC       NORMEX                                
029944,001003: 35,3620           13613                           TCF      -5                                    
029945,001004: 

Page 678

029947,001006:                                                                                                  #  ..... P3XORP7X  .....
029948,001007: 
029949,001008: 35,3621           37756        P3XORP7X           CAF      HIGH9                                 
029950,001009: 35,3622           71010                           MASK     MODREG                                
029951,001010: 35,3623           00006                           EXTEND                                         
029952,001011: 35,3624           13626                           BZF      +2                                    
029953,001012: 35,3625           24002                           INCR     Q                                     
029954,001013: 35,3626           00002                           RETURN                                         
029955,001014: 
029956,001015:                                                                                                  #  ..... VNPOOH    .....
029957,001016: 
029958,001017:                                                                                                  #  SUBROUTINES USED
029959,001018: 
029960,001019:                                                                                                  #        BANKCALL
029961,001020:                                                                                                  #        GOFLASH
029962,001021:                                                                                                  #        GOTOPOOH
029963,001022: 
029964,001023: 35,3627           00006        VNPOOH             EXTEND                                         
029965,001024: 35,3630           23465                           QXCH     RTRN                                  
029966,001025: 35,3631           55615                           TS       VERBNOUN                              
029967,001026: 35,3632           31615                           CA       VERBNOUN                              
029968,001027: 35,3633           04616                           TCR      BANKCALL                              
029969,001028: 35,3634           20477                           CADR     GOFLASH                               
029970,001029: 35,3635           16001                           TCF      GOTOPOOH                              
029971,001030: 35,3636           01465                           TC       RTRN                                  
029972,001031: 35,3637           13632                           TCF      -5                                    
029973,001032: 

Page 679

029975,001034:                                                                                                  #  ..... CONSTANTS .....
029976,001035: 
029977,001036: 35,3640           01445        V06N37             VN       0637                                  
029978,001037: 35,3641           01467        V06N55             VN       0655                                  
029979,001038: 35,3642           01472        V06N58             VN       0658                                  
029980,001039: 35,3643           01473        V06N59             VN       0659                                  
029981,001040: 35,3644           01521        V06N81             VN       0681                                  
029982,001041: 35,3645           04055        V16N45             VN       1645                                  
029983,001042: 35,3646           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
029984,001043: 
029985,001044: 35,3650           00001 20650  MAX250             2DEC     25         E3                         
029986,001045: 
029987,001046: 35,3652           12525 12525  THIRD              2DEC     .333333333                            
029988,001047: 
029989,001048: 35,3654           00004 21505  ELEPS              2DEC     .27777777  E-3                        
029990,001049: 
029991,001050: 35,3656           77777        DP-.01             OCT      77777                                 #  CONSTANTS
029992,001051: 35,3657           61337                           OCT      61337                                 #  ADJACENT       -.01 FOR MGA DSP
029993,001052: 35,3660           01252 25253  EPSFOUR            2DEC     .0416666666                            
029994,001053: 
029995,001054: 35,3662           13434 16162  130DEG             2DEC     .3611111111                            
029996,001055: 

Page 680

029998,001057:                                                                                                  #  ..... INITVEL .....
029999,001058:                                                                                                  #  MOD NO -1       LOG SECTION - P34-P35, P74-P75
030000,001059:                                                                                                  #  MOD BY WHITE.P  DATE  21NOV67
030001,001060: 
030002,001061:                                                                                                  #  FUNCTIONAL DESCRIPTION
030003,001062: 
030004,001063:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
030005,001064:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
030006,001065:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
030007,001066:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
030008,001067:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
030009,001068:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
030010,001069:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
030011,001070:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
030012,001071:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
030013,001072:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
030014,001073: 
030015,001074:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
030016,001075:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
030017,001076:                                                                                                  #        SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
030018,001077:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
030019,001078:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
030020,001079:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
030021,001080:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
030022,001081:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
030023,001082: 
030024,001083:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
030025,001084:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
030026,001085:                                                                                                  #        TRAJECTORY COMPUTATIONS.
030027,001086: 
030028,001087:                                                                                                  #  CALLING SEQUENCE
030029,001088: 
030030,001089:                                                                                                  #        L         CALL
030031,001090:                                                                                                  #        L+1               INITVEL
030032,001091:                                                                                                  #        L+2       (RETURN - ALWAYS)
030033,001092: 
030034,001093:                                                                                                  #  INPUT
030035,001094: 
030036,001095:                                                                                                  #        (1) RINIT    INITIAL POSITION RADIUS VECTOR
030037,001096:                                                                                                  #        (2) VINIT    INITIAL POSITION VELOCITY VECTOR
030038,001097:                                                                                                  #        (3) RTARG    TARGET POSITION RADIUS VECTOR
030039,001098:                                                                                                  #        (4) DELLT4   DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
030040,001099:                                                                                                  #        (5) INTIME   TIME OF RINIT
030041,001100:                                                                                                  #        (6) 0D       NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
030042,001101:                                                                                                  #        (7) 2D       ANGLE TO 180 DEGREES WHEN ROTATION STARTS
030043,001102:                                                                                                  #        (8) RTX1     -2 FOR EARTH, -10D FOR LUNAR
030044,001103:                                                                                                  #        (9) RTX2     COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
030045,001104:                                                                                                  #        PUSHLOC SET AT 4D
030046,001105: 

Page 681

030048,001107:                                                                                                  #  OUTPUT
030049,001108: 
030050,001109:                                                                                                  #        (1) RTARG    OFFSET TARGET POSITION VECTOR
030051,001110:                                                                                                  #        (2) VIPRIME  MANEUVER VELOCITY REQUIRED
030052,001111:                                                                                                  #        (3) VTPRIME  VELOCITY AT TARGET AFTER MANEUVER
030053,001112:                                                                                                  #        (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
030054,001113: 
030055,001114:                                                                                                  #  SUBROUTINES USED
030056,001115: 
030057,001116:                                                                                                  #        LAMBERT
030058,001117:                                                                                                  #        INTSTALL
030059,001118:                                                                                                  #        INTEGRVS
030060,001119: 
030061,001120: 11,2000                                           SETLOC   INTVEL                                
030062,001121: 11,2000                                           BANK                                           
030063,001122: 
030064,001123: 11,2000                                           COUNT*   $$/INITV                              
030065,001124: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
030066,001125: 11,2001           00475                                    GUESSW                                
030067,001126: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
030068,001127: 11,2003           03444                                    RTARG                                 
030069,001128: 11,2004           03463                                    NORMEX                                
030070,001129: 11,2005           03472                           STORE    RTARG1                                
030071,001130: 11,2006           77646                           ABVAL                                          
030072,001131: 11,2007           03723                           STORE    RTMAG                                 
030073,001132: 11,2010           46135                           SLOAD    BHIZ                                  
030074,001133: 11,2011           03000                                    RTX2                                  
030075,001134: 11,2012           22026                                    INITVEL1                              
030076,001135: 11,2013           72575                           VLOAD    VSL2                                  
030077,001136: 11,2014           02314                                    RINIT                                 #  B29
030078,001137: 11,2015           26314                           STOVL    RINIT                                 #  B27
030079,001138: 11,2016           02322                                    VINIT                                 #  B7
030080,001139: 11,2017           77752                           VSL2                                           
030081,001140: 11,2020           26322                           STOVL    VINIT                                 #  B5
030082,001141: 11,2021           03472                                    RTARG1                                
030083,001142: 11,2022           77752                           VSL2                                           
030084,001143: 11,2023           03472                           STORE    RTARG1                                
030085,001144: 11,2024           77646                           ABVAL                                          
030086,001145: 11,2025           03723                           STORE    RTMAG                                 
030087,001146:                                                                                                  #       INITIALIZATION
030088,001147: 
030089,001148: 11,2026           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
030090,001149: 11,2027           03617                                    ITCTR                                 
030091,001150: 11,2030           77776                                    0          -1                         
030092,001151: 11,2031           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4)  (+2)
030093,001152: 11,2032           17667                           STODL    COZY4                                 #  SET COZY4 TO COSINE(E4)          (PL 0D)
030094,001153: 11,2033           67154                           LXA,2    SXA,2                                 
030095,001154: 11,2034           00154                                    MPAC                                  
030096,001155: 11,2035           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
030097,001156: 11,2036           77775                           VLOAD                                          

Page 682

030099,001158: 11,2037           02314                                    RINIT                                 
030100,001159: 11,2040           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
030101,001160: 11,2041           03472                                    RTARG1                                
030102,001161: 11,2042           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
030103,001162: 11,2043           03452                                    DELLT4                                
030104,001163: 11,2044           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
030105,001164: 11,2045           77201                           SETPD    VLOAD                                 
030106,001165: 11,2046           00001                                    0D                                    #  INITIALIZE PL TO 0D
030107,001166: 11,2047           02314                                    RINIT                                 #  MPAC EQ RINIT (+29)
030108,001167: 11,2050           41456                           UNIT     PUSH                                  #  UNIT(RI)  (+1)                   (PL 6D)
030109,001168: 11,2051           53435                           VXV      UNIT                                  
030110,001169: 11,2052           02322                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI   (+8)
030111,001170: 11,2053           26674                           STOVL    UN                                    
030112,001171: 11,2054           03472                                    RTARG1                                
030113,001172: 11,2055           50256                           UNIT     DOT                                   #  TEMP=URT.URI  (+2)               (PL 0D)
030114,001173: 11,2056           43015                           DAD      CLEAR                                 
030115,001174: 11,2057           03667                                    COZY4                                 
030116,001175: 11,2060           03665                                    NORMSW                                
030117,001176: 11,2061           03667                           STORE    COZY4                                 
030118,001177: 11,2062           43044        INITVEL2           BPL      SET                                   
030119,001178: 11,2063           22105                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
030120,001179: 11,2064           03465                                    NORMSW                                
030121,001180:                                                                                                  #     ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
030122,001181: 
030123,001182: 11,2065           41575                           VLOAD    PUSH                                  #                                   (PL 6D)
030124,001183: 11,2066           02663                                    R2VEC                                 #  RC TO 6D  (+29)
030125,001184: 11,2067           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
030126,001185: 11,2070           46206                           PUSH     VPROJ                                 #                                   (PL 8D)
030127,001186: 11,2071           02674                                    UN                                    
030128,001187: 11,2072           51352                           VSL2     BVSU                                  
030129,001188: 11,2073           74256                           UNIT     VXSC                                  #                                   (PL 0D)
030130,001189: 11,2074           77772                           VSL1                                           
030131,001190: 11,2075           02663                           STORE    R2VEC                                 
030132,001191: 11,2076           67351                           TLOAD    SLOAD                                 
030133,001192: 11,2077           24007                                    ZEROVEC                               
030134,001193: 11,2100           03617                                    ITCTR                                 
030135,001194: 11,2101           77244                           BPL      VLOAD                                 
030136,001195: 11,2102           22105                                    INITVEL3                              
030137,001196: 11,2103           02663                                    R2VEC                                 
030138,001197: 11,2104           03472                           STORE    RTARG1                                
030139,001198: 11,2105           63345        INITVEL3           DLOAD    PDVL                                  #                                   (PL 2D)
030140,001199: 11,2106           26007                                    MUEARTH                               #  POSITIVE VALUE
030141,001200: 11,2107           02663                                    R2VEC                                 
030142,001201: 11,2110           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                 (PL 8D)
030143,001202: 11,2111           02655                                    R1VEC                                 
030144,001203: 11,2112           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL14D)
030145,001204: 11,2113           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
030146,001205: 11,2114           00003                                    2D                                    
030147,001206: 11,2115           77606                           PUSH                                           #                                   (PL20D)
030148,001207: 11,2116           71350                           LXA,1    DLOAD                                 

Page 683

030150,001209: 11,2117           02776                                    RTX1                                  
030151,001210: 11,2120           00023                                    18D                                   
030152,001211: 11,2121           62040                           BMN      INCR,1                                
030153,001212: 11,2122           22124                                    +2                                    
030154,001213: 11,2123           77767                           DEC      -8         B-14                       
030155,001214: 11,2124           67310                           INCR,1   SLOAD                                 
030156,001215: 11,2125           00012                                    10D                                   
030157,001216: 11,2126           00047                                    X1                                    
030158,001217: 11,2127           77230                           BHIZ     VLOAD                                 #                                   (PL14D)
030159,001218: 11,2130           22132                                    +2                                    
030160,001219: 11,2131           41476                           VCOMP    PUSH                                  #                                   (PL20D)
030161,001220: 11,2132           77775                           VLOAD                                          #                                   (PL14D)
030162,001221: 11,2133           50235                           VXV      DOT                                   #                                   (PL 2D)
030163,001222: 11,2134           71244                           BPL      DLOAD                                 #                                   (PL 0D)
030164,001223: 11,2135           22137                                    INITVEL4                              
030165,001224: 11,2136           41476                           DCOMP    PUSH                                  #                                   (PL 2D)
030166,001225: 11,2137           67154        INITVEL4           LXA,2    SXA,2                                 
030167,001226: 11,2140           00000                                    0D                                    
030168,001227: 11,2141           02672                                    GEOMSGN                               
030169,001228:                                                                                                  #    SET INPUTS UP FOR LAMBERT
030170,001229: 
030171,001230: 11,2142           66350                           LXA,1    SSP                                   
030172,001231: 11,2143           02776                                    RTX1                                  
030173,001232: 11,2144           00027                                    ITERCTR                               
030174,001233: 11,2145           00024                                    20D                                   
030175,001234:                                                                                                  #     OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
030176,001235: 
030177,001236: 11,2146           77624                           CALL                                           
030178,001237: 11,2147           25212                                    LAMBERT                               
030179,001238: 
030180,001239:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
030181,001240: 
030182,001241: 11,2150           77214                           CLEAR    VLOAD                                 
030183,001242: 11,2151           00675                                    GUESSW                                
030184,001243: 11,2152           02744                                    VVEC                                  
030185,001244:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
030186,001245: 
030187,001246: 11,2153           16330                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED  (+7)
030188,001247: 
030189,001248:                                                                                                  #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
030190,001249:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
030191,001250: 
030192,001251: 11,2154           02702                                    VTARGTAG                              
030193,001252: 11,2155           45030                           BHIZ     CALL                                  
030194,001253: 11,2156           22233                                    INITVEL7                              
030195,001254: 11,2157           27410                                    INTSTALL                              
030196,001255: 11,2160           43135                           SLOAD    CLEAR                                 
030197,001256: 11,2161           03000                                    RTX2                                  
030198,001257: 11,2162           00263                                    MOONFLAG                              
030199,001258: 11,2163           43030                           BHIZ     SET                                   

Page 684

030201,001260: 11,2164           22166                                    INITVEL5                              
030202,001261: 11,2165           00063                                    MOONFLAG                              
030203,001262: 11,2166           77775        INITVEL5           VLOAD                                          
030204,001263: 11,2167           02314                                    RINIT                                 
030205,001264: 11,2170           02655                           STORE    R1VEC                                 
030206,001265: 11,2171           25535                           STOVL    RCV                                   
030207,001266: 11,2172           02330                                    VIPRIME                               
030208,001267: 11,2173           15543                           STODL    VCV                                   
030209,001268: 11,2174           03610                                    INTIME                                
030210,001269: 11,2175           01517                           STORE    TET                                   
030211,001270: 11,2176           43015                           DAD      CLEAR                                 
030212,001271: 11,2177           03452                                    DELLT4                                
030213,001272: 11,2200           01673                                    INTYPFLG                              
030214,001273: 11,2201           34041                           STCALL   TDEC1                                 
030215,001274: 11,2202           27106                                    INTEGRVS                              
030216,001275: 11,2203           77775                           VLOAD                                          
030217,001276: 11,2204           00025                                    VATT1                                 
030218,001277: 11,2205           02703                           STORE    VTARGET                               
030219,001278: 
030220,001279:                                                                                                  #   IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
030221,001280:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
030222,001281: 
030223,001282: 11,2206           63154                           LXA,2    INCR,2                                
030224,001283: 11,2207           03616                                    ITCTR                                 
030225,001284: 11,2210           00001                                    1D                                    #  INCREMENT ITCTR
030226,001285: 11,2211           55134                           SXA,2    XSU,2                                 
030227,001286: 11,2212           03616                                    ITCTR                                 
030228,001287: 11,2213           02701                                    VTARGTAG                              
030229,001288: 11,2214           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
030230,001289: 11,2215           00050                                    X2                                    
030231,001290: 11,2216           22230                                    INITVEL6                              
030232,001291: 
030233,001292:                                                                                                  #    OFFSET CONIC TARGET VECTOR
030234,001293: 
030235,001294: 11,2217           52375                           VLOAD    VSU                                   
030236,001295: 11,2220           03472                                    RTARG1                                
030237,001296: 11,2221           00017                                    RATT1                                 
030238,001297: 11,2222           77655                           VAD                                            
030239,001298: 11,2223           02663                                    R2VEC                                 
030240,001299: 11,2224           16663                           STODL    R2VEC                                 
030241,001300: 11,2225           03667                                    COZY4                                 
030242,001301: 11,2226           77650                           GOTO                                           
030243,001302: 11,2227           22062                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
030244,001303:                                                                                                  #  COMPUTE THE DELTA VELOCITY
030245,001304: 
030246,001305: 11,2230           77775        INITVEL6           VLOAD                                          
030247,001306: 11,2231           02663                                    R2VEC                                 
030248,001307: 11,2232           03472                           STORE    RTARG1                                
030249,001308: 11,2233           52375        INITVEL7           VLOAD    VSU                                   
030250,001309: 11,2234           02330                                    VIPRIME                               
030251,001310: 11,2235           02322                                    VINIT                                 

Page 685

030253,001312: 11,2236           26357                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT  (+7)
030254,001313: 11,2237           02703                                    VTARGET                               
030255,001314: 11,2240           03566                           STORE    VTPRIME                               
030256,001315: 11,2241           46135                           SLOAD    BHIZ                                  
030257,001316: 11,2242           03000                                    RTX2                                  
030258,001317: 11,2243           22260                                    INITVELX                              
030259,001318: 11,2244           70575                           VLOAD    VSR2                                  
030260,001319: 11,2245           03566                                    VTPRIME                               
030261,001320: 11,2246           27566                           STOVL    VTPRIME                               
030262,001321: 11,2247           02330                                    VIPRIME                               
030263,001322: 11,2250           77742                           VSR2                                           
030264,001323: 11,2251           26330                           STOVL    VIPRIME                               
030265,001324: 11,2252           03472                                    RTARG1                                
030266,001325: 11,2253           77742                           VSR2                                           
030267,001326: 11,2254           27472                           STOVL    RTARG1                                
030268,001327: 11,2255           02357                                    DELVEET3                              
030269,001328: 11,2256           77742                           VSR2                                           
030270,001329: 11,2257           02357                           STORE    DELVEET3                              
030271,001330: 11,2260           70750        INITVELX           LXA,1    DLOAD*                                
030272,001331: 11,2261           02776                                    RTX1                                  
030273,001332: 11,2262           10003                                    MUTABLE    -2,1                       
030274,001333: 11,2263           41206                           PUSH     DMP                                   
030275,001334: 11,2264           02742                                    R1A                                   
030276,001335: 11,2265           56342                           SR1      DDV                                   
030277,001336: 11,2266           00041                                    R1                                    
030278,001337: 11,2267           17721                           STODL    MU/A                                  
030279,001338: 11,2270           77661                           SR                                             
030280,001339: 11,2271           20607                                    6                                     
030281,001340: 11,2272           03717                           STORE    MUASTEER                              
030282,001341: 11,2273           77201                           SETPD    VLOAD                                 
030283,001342: 11,2274           00001                                    0D                                    
030284,001343: 11,2275           03472                                    RTARG1                                
030285,001344: 11,2276           03444                           STORE    RTARG                                 
030286,001345: 11,2277           52014                           CLEAR    GOTO                                  
030287,001346: 11,2300           01267                                    XDELVFLG                              
030288,001347: 11,2301           03463                                    NORMEX                                
030289,001348: 
030290,001349:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
030291,001350: 

Page 686

030293,001352:                                                                                                  #  ..... MIDGIM .....
030294,001353: 
030295,001354:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
030296,001355:                                                                                                  #   REVISION 03, 17 FEB 67
030297,001356: 
030298,001357:                                                                                                  #           IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
030299,001358:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
030300,001359:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST),  OTHERWISE
030301,001360:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
030302,001361:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
030303,001362: 
030304,001363:                                                                                                  #    .. INPUTS ..
030305,001364: 
030306,001365:                                                                                                  #      NAME        MEANING                              UNITS/SCALING/MODE
030307,001366: 
030308,001367:                                                                                                  #     AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE             BIT
030309,001368:                                                                                                  #     RINIT   ACTIVE VEHICLE RADIUS VECTOR            METERS/CSEC (+7) VT
030310,001369:                                                                                                  #     VINIT   ACTIVE VEHICLE VELOCITY VECTOR          METERS/CSEC (+7) VT
030311,001370:                                                                                                  #     0D (PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR    METERS/CSEC (+7) VT
030312,001371: 
030313,001372:                                                                                                  #    .. OUTPUTS ..
030314,001373: 
030315,001374:                                                                                                  #      NAME        MEANING                              UNITS/SCALING/MODE
030316,001375: 
030317,001376:                                                                                                  #       +MGA  + MIDDLE GIMBAL ANGLE                  REVOLUTIONS (+0) DP
030318,001377:                                                                                                  #     DELVLVC DELTA VELOCITY VECTOR IN LV COORD.     METERS/CSEC (+7) VT
030319,001378:                                                                                                  #    MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.  -   BIT
030320,001379: 
030321,001380:                                                                                                  #   .. CALLING SEQUENCE ..
030322,001381: 
030323,001382:                                                                                                  #  L       CALL
030324,001383:                                                                                                  #  L+1            MIDGIM
030325,001384:                                                                                                  #  L+2     (RETURN - ALWAYS)
030326,001385: 
030327,001386:                                                                                                  #    .. NO SUBROUTINES CALLED ..
030328,001387: 
030329,001388:                                                                                                  #    .. DEBRIS - ERASEABLE TEMPORARY USAGE
030330,001389: 
030331,001390:                                                                                                  #         A,Q,L, PUSH LIST, MPAC.
030332,001391: 
030333,001392:                                                                                                  #    .. ALARMS - NONE ..
030334,001393: 

Page 687

030336,001395:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
030337,001396: 
030338,001397: 06,2000                                           SETLOC   MIDDGIM                               
030339,001398: 06,2000                                           BANK                                           
030340,001399: 
030341,001400: 06,3723                                           COUNT*   $$/MIDG                               
030342,001401: 
030343,001402: 06,3723           20000 00000  HALFREV            2DEC     1          B-1                        
030344,001403: 
030345,001404: 06,3725           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE  UV (+1)
030346,001405: 06,3726           77656                           UNIT                                           
030347,001406: 06,3727           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
030348,001407: 06,3730           01740                                    REFSMMAT   +6                         #   FROM +2 TO +1 FOR ASIN ROUTINE
030349,001408: 06,3731           51136                           ARCSIN   BPL                                   
030350,001409: 06,3732           15736                                    SETMGA                                
030351,001410: 06,3733           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
030352,001411: 06,3734           15724                                    HALFREV                               #  ADDING ONE REVOLUTION
030353,001412: 06,3735           15724                                    HALFREV                               
030354,001413: 06,3736           02244        SETMGA             STORE    +MGA                                  
030355,001414: 06,3737           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
030356,001415: 06,3740           02675                                    MGLVFLAG                              #      AND EXIT
030357,001416: 06,3741           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D)   R (+29) IN MPAC, UNITIZE UR
030358,001417: 06,3742           02314                                    RINIT                                 
030359,001418: 06,3743           77676                           VCOMP                                          #  U(-R)
030360,001419: 06,3744           00023                           STORE    18D                                   #  U(-R) TO 18D
030361,001420: 06,3745           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
030362,001421: 06,3746           02322                                    VINIT                                 
030363,001422: 06,3747           00015                           STORE    12D                                   #  U(V*R) TO 12D
030364,001423: 06,3750           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
030365,001424: 06,3751           00023                                    18D                                   
030366,001425: 06,3752           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
030367,001426: 06,3753           00001                                    0D                                    #  DELTA V (+7) IN 0D
030368,001427: 06,3754           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
030369,001428: 06,3755           00007                                    6D                                    #   AND SCALE +7 IN MPAC
030370,001429: 06,3756           03434                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
030371,001430: 06,3757           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
030372,001431: 06,3760           02475                                    MGLVFLAG                              #      AND EXIT
030373,001432:                                                                                                  #     ..... END OF MIDGIM ROUTINE .....
030374,001433: 

Page 688

030376,001435: 10,2000                                           BANK     10                                    
030377,001436: 10,2000                                           SETLOC   SLCTMU                                
030378,001437: 10,2000                                           BANK                                           
030379,001438: 10,2000                                           COUNT*   $$/MIDG                               
030380,001439: 
030381,001440: 10,2000           77160        SELECTMU           AXC,1    AXT,2                                 
030382,001441: 10,2001           00002                                    2D                                    
030383,001442: 10,2002           00000                                    0D                                    
030384,001443: 10,2003           77614                           BOFF                                           
030385,001444: 10,2004           04343                                    CMOONFLG                              
030386,001445: 10,2005           20011                                    SETMUER                               
030387,001446: 10,2006           77160                           AXC,1    AXT,2                                 
030388,001447: 10,2007           00012                                    10D                                   
030389,001448: 10,2010           00002                                    2D                                    
030390,001449: 10,2011           66143        SETMUER            DLOAD*   SXA,1                                 
030391,001450: 10,2012           10011                                    MUTABLE    +4,1                       
030392,001451: 10,2013           02776                                    RTX1                                  
030393,001452: 10,2014           22310                           STODL*   RTSR1/MU                              
030394,001453: 10,2015           10003                                    MUTABLE    -2,1                       
030395,001454: 10,2016           54214                           BOFF     SR                                    
030396,001455: 10,2017           04343                                    CMOONFLG                              
030397,001456: 10,2020           20022                                    RTRNMU                                
030398,001457: 10,2021           20607                                    6D                                    
030399,001458: 10,2022           02312        RTRNMU             STORE    RTMU                                  
030400,001459: 10,2023           43134                           SXA,2    CLEAR                                 
030401,001460: 10,2024           02777                                    RTX2                                  
030402,001461: 10,2025           01271                                    FINALFLG                              
030403,001462: 10,2026           77650                           GOTO                                           
030404,001463: 10,2027           73523                                    VN1645                                
030405,001464: 

Page 689

030407,001466:                                                                                                  #  ..... PERIAPO .....
030408,001467: 
030409,001468:                                                                                                  #  MOD NO -1       LOG SECTION - P34-P35, P74-P75
030410,001469:                                                                                                  #  MOD BY WHITE.P  DATE  18JAN68
030411,001470: 
030412,001471:                                                                                                  #  FUNCTIONAL DESCRIPTION
030413,001472: 
030414,001473:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
030415,001474:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
030416,001475:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
030417,001476: 
030418,001477:                                                                                                  #        SETRAD IS CALLED TO  DETERMINE THE RADIUS OF THE PRIMARY BODY.
030419,001478: 
030420,001479:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
030421,001480:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
030422,001481: 
030423,001482:                                                                                                  #  CALLING SEQUENCE
030424,001483: 
030425,001484:                                                                                                  #        L         CALL
030426,001485:                                                                                                  #        L+1               PERIAPO
030427,001486:                                                                                                  #        L+2       (RETURN - ALWAYS)
030428,001487: 
030429,001488:                                                                                                  #  INPUT
030430,001489: 
030431,001490:                                                                                                  #        (1) RVEC     POSITION VECTOR IN METERS
030432,001491:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030433,001492:                                                                                                  #        (2) VVEC     VELOCITY VECTOR IN METERS/CENTISECOND
030434,001493:                                                                                                  #                     SCALE FACTOR - EARTH +7, MOON +5
030435,001494:                                                                                                  #        (3) X1       PRIMARY BODY INDICATOR
030436,001495:                                                                                                  #                     EARTH -2, MOON -10
030437,001496: 
030438,001497:                                                                                                  #  OUTPUT
030439,001498: 
030440,001499:                                                                                                  #        (1) 2D       APOCENTER RADIUS IN METERS
030441,001500:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030442,001501:                                                                                                  #        (2) 4D       APOCENTER ALTITUDE IN METERS
030443,001502:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON P27
030444,001503:                                                                                                  #        (3) 6D       PERICENTER RADIUS IN METERS
030445,001504:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030446,001505:                                                                                                  #        (4) 8D       PERICENTER ALTITUDE IN METERS
030447,001506:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030448,001507:                                                                                                  #        (5) ECC      ECCENTRICITY OF CONIC TRAJECTORY
030449,001508:                                                                                                  #                     SCALE FACTOR - +3
030450,001509:                                                                                                  #        (6) XXXALT   RADIUS OF THE PRIMARY BODY IN METERS
030451,001510:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030452,001511:                                                                                                  #        (7) PUSHLOC  EQUALS 10D
030453,001512: 
030454,001513:                                                                                                  #  SUBROUTINES USED
030455,001514: 
030456,001515:                                                                                                  #        SETRAD

Page 690

030458,001517:                                                                                                  #        APSIDES
030459,001518: 
030460,001519: 23,2000                                           SETLOC   APOPERI                               
030461,001520: 23,2000                                           BANK                                           
030462,001521: 
030463,001522: 23,2335                                           COUNT*   $$/PERAP                              
030464,001523: 
030465,001524: 23,2335           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS  OF PAD 37-B.
030466,001525: 
030467,001526:                                                                                                  #  = 20 909 901.57 FT
030468,001527: 
030469,001528: 23,2337           53754        PERIAPO1           LXA,2    VSR*                                  
030470,001529: 23,2340           02777                                    RTX2                                  
030471,001530: 23,2341           57176                                    0,2                                   
030472,001531: 23,2342           26744                           STOVL    VVEC                                  
030473,001532: 23,2343           53750                           LXA,1    VSR*                                  
030474,001533: 23,2344           02776                                    RTX1                                  
030475,001534: 23,2345           57176                                    0,2                                   
030476,001535: 23,2346           02655                           STORE    RVEC                                  
030477,001536: 23,2347           45020        PERIAPO            STQ      CALL                                  
030478,001537: 23,2350           03463                                    NORMEX                                
030479,001538: 23,2351           46365                                    SETRAD                                
030480,001539: 23,2352           37671                           STCALL   XXXALT                                
030481,001540: 23,2353           25704                                    APSIDES                               
030482,001541: 23,2354           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS   B29 OR B27
030483,001542: 23,2355           00003                                    2D                                    
030484,001543: 23,2356           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE    B29 OR B27
030485,001544: 23,2357           03671                                    XXXALT                                
030486,001545: 23,2360           00001                                    0D                                    
030487,001546: 23,2361           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS  B29 OR B27
030488,001547: 23,2362           03671                                    XXXALT                                
030489,001548: 23,2363           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE   B29 OR B27
030490,001549: 23,2364           03463                                    NORMEX                                
030491,001550: 

Page 691

030493,001552:                                                                                                  #  SETRAD
030494,001553: 23,2365           41545        SETRAD             DLOAD    PUSH                                  
030495,001554: 23,2366           06336                                    RPAD                                  
030496,001555: 23,2367           63130                           SXA,1    INCR,2                                
030497,001556: 23,2370           00047                                    X2                                    
030498,001557: 23,2371           00002                                    2D                                    
030499,001558: 23,2372           46135                           SLOAD    BHIZ                                  
030500,001559: 23,2373           00050                                    X2                                    
030501,001560: 23,2374           46400                                    SETRADX                               
030502,001561: 23,2375           51575                           VLOAD    ABVAL                                 
030503,001562: 23,2376           02021                                    RLS                                   
030504,001563: 23,2377           77725                           PDDL                                           
030505,001564: 23,2400           43545        SETRADX            DLOAD    RVQ                                   
030506,001565: 

Page 692

030508,001567:                                                                                                  #  PRECSET
030509,001568: 23,2401           77620        PRECSET            STQ                                            
030510,001569: 23,2402           03463                                    NORMEX                                
030511,001570: 23,2403           37574                           STCALL   TDEC2                                 
030512,001571: 23,2404           27056                                    LEMPREC                               
030513,001572: 23,2405           77624                           CALL                                           
030514,001573: 23,2406           46417                                    LEMSTORE                              
030515,001574: 23,2407           77745                           DLOAD                                          
030516,001575: 23,2410           03574                                    TDEC2                                 
030517,001576: 23,2411           34041                           STCALL   TDEC1                                 
030518,001577: 23,2412           27042                                    CSMPREC                               
030519,001578: 23,2413           77624                           CALL                                           
030520,001579: 23,2414           46427                                    CSMSTORE                              
030521,001580: 23,2415           77650                           GOTO                                           
030522,001581: 23,2416           03463                                    NORMEX                                
030523,001582: 23,2417           43175        LEMSTORE           VLOAD    BOFF                                  
030524,001583: 23,2420           00001                                    RATT                                  
030525,001584: 23,2421           01352                                    AVFLAG                                
030526,001585: 23,2422           46433                                    PASSIVE                               
030527,001586: 23,2423           27536        ACTIVE             STOVL    RACT3                                 
030528,001587: 23,2424           00007                                    VATT                                  
030529,001588: 23,2425           03544                           STORE    VACT3                                 
030530,001589: 23,2426           77616                           RVQ                                            
030531,001590: 23,2427           43175        CSMSTORE           VLOAD    BOFF                                  
030532,001591: 23,2430           00001                                    RATT                                  
030533,001592: 23,2431           01352                                    AVFLAG                                
030534,001593: 23,2432           46423                                    ACTIVE                                
030535,001594: 23,2433           27552        PASSIVE            STOVL    RPASS3                                
030536,001595: 23,2434           00007                                    VATT                                  
030537,001596: 23,2435           03560                           STORE    VPASS3                                
030538,001597: 23,2436           77616                           RVQ                                            
030539,001598: 

Page 693

030541,001600:                                                                                                  #  VECSHIFT
030542,001601: 23,2437           53754        VECSHIFT           LXA,2    VSR*                                  
030543,001602: 23,2440           02777                                    RTX2                                  
030544,001603: 23,2441           57176                                    0,2                                   
030545,001604: 23,2442           63350                           LXA,1    PDVL                                  
030546,001605: 23,2443           02776                                    RTX1                                  
030547,001606: 23,2444           63257                           VSR*     PDVL                                  
030548,001607: 23,2445           57176                                    0,2                                   
030549,001608: 23,2446           77616                           RVQ                                            
030550,001609: 

Page 694

030552,001611:                                                                                                  #  SHIFTR1
030553,001612: 23,2447           53754        SHIFTR1            LXA,2    SL*                                   
030554,001613: 23,2450           02777                                    RTX2                                  
030555,001614: 23,2451           57576                                    0,2                                   
030556,001615: 23,2452           77616                           RVQ                                            
030557,001616: 

Page 695

030559,001618:                                                                                                  #  PROGRAM DESCRIPTION
030560,001619:                                                                                                  #  SUBROUTINE NAME       R36  OUT-OF-PLANE RENDEZVOUS ROUTINE
030561,001620:                                                                                                  #  MOD NO.  0                      DATE      22 DECEMBER 67
030562,001621:                                                                                                  #  MOD BY   N.M.NEVILLE            LOG SECTION  EXTENDED VERBS
030563,001622:                                                                                                  #  FUNCTIONAL DESCRIPTION
030564,001623: 
030565,001624:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
030566,001625:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
030567,001626: 
030568,001627:                                                                                                  #  CALLING SEQUENCE
030569,001628: 
030570,001629:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY  V 90 E
030571,001630: 
030572,001631:                                                                                                  #  SUBROUTINES CALLED
030573,001632: 
030574,001633:                                                                                                  #  EXDSPRET
030575,001634:                                                                                                  #  GOMARKF
030576,001635:                                                                                                  #  CSMPREC
030577,001636:                                                                                                  #  LEMPREC
030578,001637:                                                                                                  #  SGNAGREE
030579,001638:                                                                                                  #  LOADTIME
030580,001639: 
030581,001640:                                                                                                  #  NORMAL EXIT MODES
030582,001641: 
030583,001642:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
030584,001643: 
030585,001644:                                                                                                  #  ALARM OR ABORT EXIT MODES
030586,001645: 
030587,001646:                                                                                                  #  NONE
030588,001647: 
030589,001648:                                                                                                  #  OUTPUT
030590,001649: 
030591,001650:                                                                                                  #  DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
030592,001651: 
030593,001652:                                                                                                  #  DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
030594,001653:                                                                                                  #  REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
030595,001654: 
030596,001655:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030597,001656: 
030598,001657:                                                                                                  #  CSM AND LEM STATE VECTORS
030599,001658: 
030600,001659:                                                                                                  #  DEBRIS
030601,001660: 
030602,001661:                                                                                                  #  CENTRALS A,Q,L
030603,001662: 
030604,001663:                                                                                                  #  OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
030605,001664: 
030606,001665: 20,2115                                           BANK     20                                    
030607,001666: 04,2000                                           SETLOC   R36LM                                 
030608,001667: 04,2000                                           BANK                                           
030609,001668: 

Page 696

030611,001670: 04,2650  E7,1441                                  EBANK=   TIG                                   
030612,001671: 04,2650                                           COUNT*   $$/R36                                
030613,001672: 
030614,001673: 04,2650           00006        R36                EXTEND                                         
030615,001674: 04,2651           31442                           DCA      TIG                                   #  SET TIME-OF-EVENT TO TIG FOR NOMINAL
030616,001675: 04,2652           53051                           DXCH     DSPTEMX                               #  DISPLAY
030617,001676: 04,2653           32763                           CAF      V06N16N                               
030618,001677: 04,2654           04616                           TC       BANKCALL                              
030619,001678: 04,2655           20334                           CADR     GOMARKF                               
030620,001679: 04,2656           15503                           TCF      ENDEXT                                #  TERMINATE
030621,001680: 04,2657           12661                           TCF      +2                                    #  PROCEED
030622,001681: 04,2660           12653                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
030623,001682: 04,2661           06051                           TC       INTPRET                               
030624,001683: 04,2662           53145                           DLOAD    BZE                                   
030625,001684: 04,2663           01051                                    DSPTEMX                               
030626,001685: 04,2664           10760                                    GETNOW                                #  ASTOR-LOADED ZERO, GET PRES TIME
030627,001686: 04,2665           34041        R36INT             STCALL   TDEC1                                 
030628,001687: 04,2666           27042                                    OTHPREC                               
030629,001688: 04,2667           63375                           VLOAD    PDVL                                  
030630,001689: 04,2670           00007                                    VATT                                  
030631,001690: 04,2671           00001                                    RATT                                  #  -
030632,001691: 04,2672           02200                           STORE    RPASS36                               #  R
030633,001692: 04,2673           63256                           UNIT     PDVL                                  #   P
030634,001693: 04,2674           53435                           VXV      UNIT                                  #  -
030635,001694: 04,2675           77626                           STADR                                          
030636,001695: 04,2676           61571                           STODL    UNP36                                 #  U
030637,001696: 04,2677           00015                                    TAT                                   
030638,001697: 04,2700           34041                           STCALL   TDEC1                                 
030639,001698: 04,2701           27056                                    THISPREC                              
030640,001699: 04,2702           63375                           VLOAD    PDVL                                  #                   -
030641,001700: 04,2703           00007                                    VATT                                  #  VELOCITY VECTOR  V               00D
030642,001701: 04,2704           00001                                    RATT                                  #                    A
030643,001702: 04,2705           41406                           PUSH     PUSH                                  #  POSITION VECTOR  R   IN  06D AND 12D
030644,001703: 04,2706           63245                           BVSU     PDVL                                  #                    A  -   -
030645,001704: 04,2707           02200                                    RPASS36                               #  LINE OF SIGHT VECTOR R - R       12D
030646,001705: 04,2710           72441                           DOT      SL1                                   #                         P   A
030647,001706: 04,2711           02206                                    UNP36                                 #      -  -
030648,001707: 04,2712           26172                           STOVL    YLEM                                  
030649,001708: 04,2713           00001                                    00D                                   #          A
030650,001709: 04,2714           72441                           DOT      SL1                                   
030651,001710: 04,2715           02206                                    UNP36                                 #  .   -  -
030652,001711: 04,2716           26174                           STOVL    YDOTLEM                               
030653,001712: 04,2717           00007                                    06D                                   #  -       A   -
030654,001713: 04,2720           41456                           UNIT     PUSH                                  #  U   = UNIT( R )                  18D
030655,001714: 04,2721           47235                           VXV      VXV                                   #   RA          A
030656,001715: 04,2722           00001                                    00D                                   #   -   -   -     -
030657,001716: 04,2723           00023                                    18D                                   #  (U  XV )XU    =U
030658,001717: 04,2724           53552                           VSL2     UNIT                                  #    RA  A   RA    A
030659,001718: 04,2725           77656                           UNIT                                           
030660,001719: 04,2726           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR.  00D

Page 697

030662,001721: 04,2727           00023                                    18D                                   
030663,001722: 04,2730           74241                           DOT      VXSC                                  #  -
030664,001723: 04,2731           00015                                    12D                                   #  U
030665,001724: 04,2732           77752                           VSL2                                           #   L
030666,001725: 04,2733           53445                           BVSU     UNIT                                  
030667,001726: 04,2734           77656                           UNIT                                           
030668,001727: 04,2735           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL    12D
030669,001728: 04,2736           00001                                    00D                                   #  PLANE
030670,001729: 04,2737           65552                           SL1      ARCCOS                                #              -  -
030671,001730: 04,2740           26176                           STOVL    PHILEM                                
030672,001731: 04,2741           50235                           VXV      DOT                                   #               A  L
030673,001732: 04,2742           00001                                    00D                                   
030674,001733: 04,2743           71244                           BPL      DLOAD                                 
030675,001734: 04,2744           10751                                    R36TAG2                               
030676,001735: 04,2745           24020                                    LODPMAX                               
030677,001736: 04,2746           77625                           DSU                                            
030678,001737: 04,2747           02176                                    PHILEM                                
030679,001738: 04,2750           02176                           STORE    PHILEM                                
030680,001739: 04,2751           77776        R36TAG2            EXIT                                           
030681,001740: 04,2752           32764                           CAF      V06N90N                               #   DISPLAY Y , YDOT , AND PSI
030682,001741: 04,2753           04616                           TC       BANKCALL                              
030683,001742: 04,2754           20334                           CADR     GOMARKF                               
030684,001743: 04,2755           15503                           TCF      ENDEXT                                #  TERMINATE
030685,001744: 04,2756           15503                           TCF      ENDEXT                                #  PROCEED , END OF PROGRAM
030686,001745: 04,2757           12650                           TCF      R36                                   #  RECYCLE, TIG OR ASTRO-OPTION
030687,001746: 04,2760           52034        GETNOW             RTB      GOTO                                  #  ASTRO-SELECTED PRESENT TIME
030688,001747: 04,2761           21555                                    LOADTIME                              
030689,001748: 04,2762           10665                                    R36INT                                
030690,001749: 04,2763           01420        V06N16N            VN       00616                                 
030691,001750: 04,2764           01532        V06N90N            VN       00690                                 

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