Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

029023,000002:                                                                                                  ## Copyright:   Public domain.
029024,000003:                                                                                                  ## Filename:    P34-P35,_P74-P75.agc
029025,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
029026,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
029027,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
029028,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
029029,000008:                                                                                                  ##              that the code format has been changed to conform to the
029030,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
029031,000010:                                                                                                  ##              original YUL assembler.
029032,000011:                                                                                                  ## Reference:   pp. 661-705
029033,000012:                                                                                                  ## Assembler:   yaYUL
029034,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
029035,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
029036,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
029037,000016:                                                                                                  ##              2016-12-07 HG   Transcribed
029038,000017:                                                                                                  ##              2016-12-07 HG   Fix P00 -> POO
029039,000018:                                                                                                  ##              2016-12-25 RSB  Comment-text proofed using ProoferComments
029040,000019:                                                                                                  ##                              and corrected errors found.
029041,000020:                                                                                                  ##              2017-03-09 RSB  Comment-text fixes noted in proofing Luminary 116. 
029042,000021: 

Page 661

029044,000023:                                                                                                  #  TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
029045,000024: 
029046,000025:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
029047,000026:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
029048,000027: 
029049,000028:                                                                                                  #  PURPOSE
029050,000029: 
029051,000030:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029052,000031:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
029053,000032:                                                                                                  #            PHASE INITIATION (TPI) MANEUVER, GIVEN -
029054,000033: 
029055,000034:                                                                                                  #            (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
029056,000035:                                                                                                  #                THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
029057,000036: 
029058,000037:                                                                                                  #            (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
029059,000038:                                                                                                  #                INTERCEPT TIME (TIG (TPF)).
029060,000039: 
029061,000040:                                                                                                  #        (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
029062,000041: 
029063,000042:                                                                                                  #        (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
029064,000043:                                                                                                  #            APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
029065,000044: 
029066,000045:                                                                                                  #        (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029067,000046:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029068,000047:                                                                                                  #            ASTRONAUT/GROUND.
029069,000048: 
029070,000049:                                                                                                  #        (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
029071,000050:                                                                                                  #            THRUSTING PROGRAM.
029072,000051: 
029073,000052:                                                                                                  #  ASSUMPTIONS
029074,000053: 
029075,000054:                                                                                                  #        (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
029076,000055:                                                                                                  #            THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
029077,000056:                                                                                                  #            THEREFORE -
029078,000057: 
029079,000058:                                                                                                  #            (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029080,000059:                                                                                                  #                BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029081,000060:                                                                                                  #                A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029082,000061:                                                                                                  #                HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029083,000062: 
029084,000063:                                                                                                  #            (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029085,000064:                                                                                                  #                COMPUTED TO BE GREATER THAN 10 MINUTES.
029086,000065: 
029087,000066:                                                                                                  #            (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029088,000067:                                                                                                  #                ORBITS WAS MINIMIZED.
029089,000068: 
029090,000069:                                                                                                  #            (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
029091,000070: 
029092,000071:                                                                                                  #                CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
029093,000072: 

Page 662

029095,000074:                                                                                                  #                ORBIT OR 85 NM FOR EARTH ORBIT.
029096,000075: 
029097,000076:                                                                                                  #            (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029098,000077:                                                                                                  #                THE PLANE OF THE PASSIVE VEHICLE ORBIT.  HOWEVER, CREW
029099,000078:                                                                                                  #                MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029100,000079:                                                                                                  #                IN AN OUT-OF-PLANE MANEUVER.
029101,000080: 
029102,000081:                                                                                                  #        (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
029103,000082:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
029104,000083: 
029105,000084:                                                                                                  #        (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
029106,000085:                                                                                                  #            TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT.  COMPUTED
029107,000086:                                                                                                  #            VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
029108,000087:                                                                                                  #            THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
029109,000088:                                                                                                  #            FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
029110,000089:                                                                                                  #            FLIGHT PLAN MANEUVER SEQUENCES.
029111,000090: 
029112,000091:                                                                                                  #        (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029113,000092:                                                                                                  #            OR CSM STATE VECTORS FOR THIS PROGRAM.  IF RADAR USE IS
029114,000093:                                                                                                  #            DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029115,000094:                                                                                                  #            PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS WILL BE MADE
029116,000095:                                                                                                  #            AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029117,000096:                                                                                                  #            TRACK AND UPDATE FLAGS (SEE P20).  THE RENDEZVOUS TRACKING
029118,000097:                                                                                                  #            MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029119,000098:                                                                                                  #            THRUSTING MANEUVER.
029120,000099: 
029121,000100:                                                                                                  #        (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029122,000101: 
029123,000102:                                                                                                  #        (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029124,000103: 
029125,000104:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029126,000105:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029127,000106:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029128,000107:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029129,000108: 
029130,000109:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029131,000110:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029132,000111: 
029133,000112:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029134,000113:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029135,000114:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029136,000115: 
029137,000116:                                                                                                  #        (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
029138,000117:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029139,000118:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029140,000119:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029141,000120:                                                                                                  #            THROUGH THE USE OF V06N52.
029142,000121: 
029143,000122:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029144,000123:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
029145,000124: 

Page 663

029147,000126:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
029148,000127:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029149,000128:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
029150,000129: 
029151,000130:                                                                                                  #        (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029152,000131: 
029153,000132:                                                                                                  #                P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
029154,000133: 
029155,000134:                                                                                                  #                P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
029156,000135: 
029157,000136:                                                                                                  #  INPUT
029158,000137: 
029159,000138:                                                                                                  #        (1) TTPI     TIME OF THE TPI MANEUVER
029160,000139:                                                                                                  #        (2) ELEV     DESIRED LOS ANGLE AT TPI
029161,000140:                                                                                                  #        (3) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029162,000141:                                                                                                  #                     TRANSFER FROM TPI TO TIME OF INTERCEPT
029163,000142: 
029164,000143:                                                                                                  #  OUTPUT
029165,000144: 
029166,000145:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
029167,000146:                                                                                                  #        (2) TTOGO    TIME TO GO
029168,000147:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
029169,000148:                                                                                                  #        (4) TTPI     COMPUTED TIME OF TPI MANEUVER
029170,000149:                                                                                                  #             OR
029171,000150:                                                                                                  #            ELEV     COMPUTED LOS ANGLE AT TPI
029172,000151:                                                                                                  #        (5) POSTTPI  PERIGEE ALTITUDE AFTER THE TPI MANEUVER
029173,000152:                                                                                                  #        (6) DELVTPI  MAGNITUDE OF DELTA V AT TPI
029174,000153:                                                                                                  #        (7) DELVTPF  MAGNITUDE OF DELTA V AT INTERCEPT
029175,000154:                                                                                                  #        (8) DVLOS    DELTA VELOCITY AT TPI - LINE OF SIGHT
029176,000155:                                                                                                  #        (9) DELVLVC  DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
029177,000156: 
029178,000157:                                                                                                  #  DOWNLINK
029179,000158: 
029180,000159:                                                                                                  #        (1) TTPI     TIME OF THE TPI MANEUVER
029181,000160:                                                                                                  #        (2) TIG      TIME OF THE TPI MANEUVER
029182,000161:                                                                                                  #        (3) ELEV     DESIRED LOS ANGLE AT TPI
029183,000162:                                                                                                  #        (4) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029184,000163:                                                                                                  #                     TRANSFER FROM TPI TO TIME OF INTERCEPT
029185,000164:                                                                                                  #        (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
029186,000165:                                                                                                  #        (6) TPASS4   TIME OF INTERCEPT
029187,000166:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029188,000167: 
029189,000168:                                                                                                  #        (1) TIG      TIME OF THE TPI MANEUVER
029190,000169:                                                                                                  #        (2) RTARG    OFFSET TARGET POSITION
029191,000170:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
029192,000171:                                                                                                  #        (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029193,000172: 
029194,000173:                                                                                                  #  SUBROUTINES USED
029195,000174: 
029196,000175:                                                                                                  #        AVFLAGA
029197,000176: 

Page 664

029199,000178:                                                                                                  #        AVFLAGP
029200,000179:                                                                                                  #        VNPOOH
029201,000180:                                                                                                  #        DISPLAYE
029202,000181:                                                                                                  #        SELECTMU
029203,000182:                                                                                                  #        PRECSET
029204,000183:                                                                                                  #        S33/34.1
029205,000184:                                                                                                  #        ALARM
029206,000185:                                                                                                  #        BANKCALL
029207,000186:                                                                                                  #        GOFLASH
029208,000187:                                                                                                  #        GOTOPOOH
029209,000188:                                                                                                  #        TIMETHET
029210,000189:                                                                                                  #        S34/35.2
029211,000190:                                                                                                  #        PERIAPO1
029212,000191:                                                                                                  #        SHIFTR1
029213,000192:                                                                                                  #        S34/35.5
029214,000193:                                                                                                  #        VN1645
029215,000194: 
029216,000195: 35,2000                                           SETLOC   CSI/CDH                               
029217,000196: 35,2000                                           BANK                                           
029218,000197: 35,2455  E7,1470                                  EBANK=   SUBEXIT                               
029219,000198: 35,2455                                           COUNT*   $$/P3474                              
029220,000199: 35,2455           02354        P34                TC       AVFLAGA                               
029221,000200: 35,2456           02460                           TC       P34/P74A                              
029222,000201: 35,2457           02361        P74                TC       AVFLAGP                               
029223,000202: 35,2460           02366        P34/P74A           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
029224,000203: 35,2461           33633                           CAF      V06N37                                #  TTPI
029225,000204: 35,2462           03622                           TC       VNPOOH                                
029226,000205: 35,2463           00006                           EXTEND                                         
029227,000206: 35,2464           33656                           DCA      130DEG                                
029228,000207: 35,2465           53621                           DXCH     CENTANG                               
029229,000208: 35,2466           34732                           CAF      EBANK4                                
029230,000209: 35,2467           54001                           TS       L                                     
029231,000210: 35,2470           32424                           CAF      P30ZERO                               #  INITIALIZE DISPLAYED REGISTERS TO ZERO
029232,000211: 35,2471           55466                           TS       NN                                    #  R1: NN -- NUMBER OF OFFSETS
029233,000212: 35,2472  E4,1647                                  EBANK=   ELEV                                  
029234,000213: 35,2472           22003                           LXCH     EBANK                                 
029235,000214: 35,2473           55647                           TS       ELEV                                  #  R2: ELEV (D.P.) -- ELEVATION ANGLE
029236,000215: 35,2474           55650                           TS       ELEV       +1                         
029237,000216: 35,2475           22003                           LXCH     EBANK                                 
029238,000217: 35,2476  E7,1470                                  EBANK=   SUBEXIT                               #  CHNG BACK TO WHAT IT WAS BEFORE
029239,000218: 35,2476           03604                           TC       DISPLAYE                              #  V06N55 GOFLASH CALL: NN,ELEV,CENTANG
029240,000219: 35,2477           06060                           TC       INTPRET                               
029241,000220: 35,2500           71214                           CLEAR    DLOAD                                 
029242,000221: 35,2501           01270                                    ETPIFLAG                              
029243,000222: 35,2502           03636                                    TTPI                                  
029244,000223: 35,2503           17442                           STODL    TIG                                   
029245,000224: 35,2504           02250                                    ELEV                                  
029246,000225: 35,2505           43054                           BZE      SET                                   
029247,000226: 35,2506           72510                                    P34/P74B                              
029248,000227: 35,2507           01070                                    ETPIFLAG                              
029249,000228: 

Page 665

029251,000230: 35,2510           77624        P34/P74B           CALL                                           
029252,000231: 35,2511           20000                                    SELECTMU                              
029253,000232: 35,2512                        DELELO             EQUALS   26D                                   
029254,000233: 35,2512           43145        P34/P74C           DLOAD    SET                                   
029255,000234: 35,2513           06505                                    ZEROVECS                              
029256,000235: 35,2514           03460                                    ITSWICH                               
029257,000236: 35,2515           43014                           BON      CLEAR                                 
029258,000237: 35,2516           01310                                    ETPIFLAG                              
029259,000238: 35,2517           72521                                    SWCHSET                               
029260,000239: 35,2520           03660                                    ITSWICH                               
029261,000240: 35,2521           02310        SWCHSET            STORE    NOMTPI                                
029262,000241: 35,2522           43345        INTLOOP            DLOAD    DAD                                   
029263,000242: 35,2523           03636                                    TTPI                                  
029264,000243: 35,2524           02310                                    NOMTPI                                
029265,000244: 35,2525           34041                           STCALL   TDEC1                                 
029266,000245: 35,2526           46401                                    PRECSET                               
029267,000246: 35,2527           77624                           CALL                                           
029268,000247: 35,2530           72702                                    S33/34.1                              
029269,000248: 35,2531           77454                           BZE      EXIT                                  
029270,000249: 35,2532           72543                                    SWCHCLR                               
029271,000250: 35,2533           05571                           TC       ALARM                                 
029272,000251: 35,2534           00611                           OCT      611                                   
029273,000252: 35,2535           34777                           CAF      V05N09                                
029274,000253: 35,2536           04607                           TC       BANKCALL                              
029275,000254: 35,2537           20471                           CADR     GOFLASH                               
029276,000255: 35,2540           06001                           TC       GOTOPOOH                              
029277,000256: 35,2541           02460                           TC       P34/P74A                              #  PROCEED
029278,000257: 35,2542           02533                           TC       -7                                    #  V32
029279,000258: 
029280,000259: 35,2543           43014        SWCHCLR            BONCLR   BON                                   
029281,000260: 35,2544           03600                                    ITSWICH                               
029282,000261: 35,2545           72522                                    INTLOOP                               
029283,000262: 35,2546           01310                                    ETPIFLAG                              
029284,000263: 35,2547           72553                                    P34/P74D                              #  DISPLAY TTPI
029285,000264: 35,2550           77776                           EXIT                                           
029286,000265: 35,2551           03604                           TC       DISPLAYE                              #  DISPLAY ELEV AND CENTANG
029287,000266: 35,2552           02556                           TC       P34/P74E                              
029288,000267: 35,2553           77776        P34/P74D           EXIT                                           
029289,000268: 35,2554           33633                           CAF      V06N37                                #  TTPI
029290,000269: 35,2555           03622                           TC       VNPOOH                                
029291,000270: 35,2556           06060        P34/P74E           TC       INTPRET                               
029292,000271: 35,2557           71201                           SETPD    DLOAD                                 
029293,000272: 35,2560           00001                                    0D                                    
029294,000273: 35,2561           02777                                    RTX1                                  
029295,000274: 35,2562           14047                           STODL    X1                                    
029296,000275: 35,2563           03621                                    CENTANG                               
029297,000276: 35,2564           71406                           PUSH     COS                                   
029298,000277: 35,2565           16732                           STODL    CSTH                                  
029299,000278: 35,2566           77756                           SIN                                            
029300,000279: 35,2567           26730                           STOVL    SNTH                                  
029301,000280: 

Page 666

029303,000282: 35,2570           03552                                    RPASS3                                
029304,000283: 35,2571           77657                           VSR*                                           
029305,000284: 35,2572           57176                                    0,2                                   
029306,000285: 35,2573           26655                           STOVL    RVEC                                  
029307,000286: 35,2574           03560                                    VPASS3                                
029308,000287: 35,2575           43057                           VSR*     SET                                   
029309,000288: 35,2576           57176                                    0,2                                   
029310,000289: 35,2577           03466                                    RVSW                                  
029311,000290: 35,2600           36744                           STCALL   VVEC                                  
029312,000291: 35,2601           24732                                    TIMETHET                              
029313,000292: 35,2602           77745                           DLOAD                                          
029314,000293: 35,2603           03636                                    TTPI                                  
029315,000294: 35,2604           03610                           STORE    INTIME                                #  FOR INITVEL
029316,000295: 35,2605           77615                           DAD                                            
029317,000296: 35,2606           00037                                    T                                     #  RENDEZVOUS TIME
029318,000297: 35,2607           37631                           STCALL   TPASS4                                #  FOR INITVEL
029319,000298: 35,2610           73224                                    S34/35.2                              
029320,000299: 35,2611           51575                           VLOAD    ABVAL                                 
029321,000300: 35,2612           02357                                    DELVEET3                              
029322,000301: 35,2613           27576                           STOVL    DELVTPI                               
029323,000302: 35,2614           03506                                    VPASS4                                
029324,000303: 35,2615           51451                           VSU      ABVAL                                 
029325,000304: 35,2616           03566                                    VTPRIME                               
029326,000305: 35,2617           26341                           STOVL    DELVTPF                               
029327,000306: 35,2620           03536                                    RACT3                                 
029328,000307: 35,2621           45115                           PDVL     CALL                                  
029329,000308: 35,2622           02330                                    VIPRIME                               
029330,000309: 35,2623           46337                                    PERIAPO1                              
029331,000310: 35,2624           77624                           CALL                                           
029332,000311: 35,2625           46447                                    SHIFTR1                               
029333,000312: 35,2626           17606                           STODL    POSTTPI                               
029334,000313: 35,2627           03636                                    TTPI                                  
029335,000314: 35,2630           03442                           STORE    TIG                                   
029336,000315: 35,2631           77776                           EXIT                                           
029337,000316: 35,2632           33635                           CAF      V06N58                                
029338,000317: 35,2633           03622                           TC       VNPOOH                                
029339,000318: 35,2634           06060                           TC       INTPRET                               
029340,000319: 35,2635           77624                           CALL                                           
029341,000320: 35,2636           73440                                    S34/35.5                              
029342,000321: 35,2637           77624                           CALL                                           
029343,000322: 35,2640           73516                                    VN1645                                
029344,000323: 35,2641           77650                           GOTO                                           
029345,000324: 35,2642           72512                                    P34/P74C                              
029346,000325: 

Page 667

029348,000327:                                                                                                  #  RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
029349,000328:                                                                                                  #  MOD NO -1       LOG SECTION - P32-P35, P72-P75
029350,000329:                                                                                                  #  MOD BY WHITE.P  DATE  1JUNE67
029351,000330: 
029352,000331:                                                                                                  #  PURPOSE
029353,000332: 
029354,000333:                                                                                                  #        (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029355,000334:                                                                                                  #            REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
029356,000335:                                                                                                  #            MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
029357,000336:                                                                                                  #            VEHICLE RENDEZVOUS.
029358,000337: 
029359,000338:                                                                                                  #        (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029360,000339:                                                                                                  #            VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029361,000340:                                                                                                  #            ASTRONAUT/GROUND.
029362,000341: 
029363,000342:                                                                                                  #        (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
029364,000343:                                                                                                  #            THRUSTING PROGRAM.
029365,000344: 
029366,000345:                                                                                                  #  ASSUMPTIONS
029367,000346: 
029368,000347:                                                                                                  #        (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029369,000348: 
029370,000349:                                                                                                  #        (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029371,000350:                                                                                                  #            STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
029372,000351: 
029373,000352:                                                                                                  #        (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM.  THIS WAS
029374,000353:                                                                                                  #            DONE DURING PREVIOUS SELECTION OF P20.  RADAR SIGHTING MARKS
029375,000354:                                                                                                  #            WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
029376,000355:                                                                                                  #            ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
029377,000356:                                                                                                  #            RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
029378,000357:                                                                                                  #            P20 AND AFTER EACH THRUSTING MANEUVER.
029379,000358: 
029380,000359:                                                                                                  #        (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029381,000360: 
029382,000361:                                                                                                  #                ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029383,000362:                                                                                                  #                DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029384,000363:                                                                                                  #                CALCULATES THE MANEUVER PARAMETERS.  SET AT THE START OF
029385,000364:                                                                                                  #                EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029386,000365: 
029387,000366:                                                                                                  #                FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029388,000367:                                                                                                  #                SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029389,000368: 
029390,000369:                                                                                                  #                EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029391,000370:                                                                                                  #                REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029392,000371:                                                                                                  #                PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029393,000372: 
029394,000373:                                                                                                  #        (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
029395,000374:                                                                                                  #            COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
029396,000375:                                                                                                  #            (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
029397,000376: 

Page 668

029399,000378:                                                                                                  #        (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
029400,000379:                                                                                                  #            HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029401,000380:                                                                                                  #            VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029402,000381:                                                                                                  #            THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029403,000382:                                                                                                  #            THROUGH THE USE OF V06N52.
029404,000383: 
029405,000384:                                                                                                  #            THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029406,000385:                                                                                                  #            CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
029407,000386:                                                                                                  #            170 TO 190 DEGREES.  IF THE ANGLE IS WITHIN THIS ZONE THE
029408,000387:                                                                                                  #            ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029409,000388:                                                                                                  #            UPON DELTA V AND EXPECTED MANEUVER TIME.
029410,000389: 
029411,000390:                                                                                                  #        (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029412,000391: 
029413,000392:                                                                                                  #                P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
029414,000393: 
029415,000394:                                                                                                  #                P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
029416,000395: 
029417,000396:                                                                                                  #  INPUT
029418,000397: 
029419,000398:                                                                                                  #        (1) TPASS4   TIME OF INTERCEPT - SAVED FROM P34/P74
029420,000399:                                                                                                  #  OUTPUT
029421,000400: 
029422,000401:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
029423,000402:                                                                                                  #        (2) TTOGO    TIME TO GO
029424,000403:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
029425,000404:                                                                                                  #        (4) DVLOS    DELTA VELOCITY AT MID - LINE OF SIGHT
029426,000405:                                                                                                  #        (5) DELVLVC  DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
029427,000406: 
029428,000407:                                                                                                  #  DOWNLINK
029429,000408: 
029430,000409:                                                                                                  #        (1) TIG      TIME OF THE TPM MANEUVER
029431,000410:                                                                                                  #        (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
029432,000411:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
029433,000412:                                                                                                  #  COMMUNICATION TO THRUSTING PROGRAMS
029434,000413: 
029435,000414:                                                                                                  #        (1) TIG      TIME OF THE TPM MANEUVER
029436,000415:                                                                                                  #        (2) RTARG    OFFSET TARGET POSITION
029437,000416:                                                                                                  #        (3) TPASS4   TIME OF INTERCEPT
029438,000417:                                                                                                  #        (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029439,000418: 
029440,000419:                                                                                                  #  SUBROUTINES USED
029441,000420: 
029442,000421:                                                                                                  #        AVFLAGA
029443,000422:                                                                                                  #        AVFLAGP
029444,000423:                                                                                                  #        LOADTIME
029445,000424:                                                                                                  #        SELECTMU
029446,000425:                                                                                                  #        PRECSET
029447,000426:                                                                                                  #        S34/35.1
029448,000427:                                                                                                  #        S34/35.2
029449,000428: 

Page 669

029451,000430:                                                                                                  #        S34/35.5
029452,000431:                                                                                                  #        VN1645
029453,000432: 
029454,000433: 35,2643                                           COUNT*   $$/P3575                              
029455,000434: 35,2643  E7,1575                                  EBANK=   KT                                    
029456,000435: 
029457,000436: 35,2643           02354        P35                TC       AVFLAGA                               
029458,000437: 35,2644           00006                           EXTEND                                         
029459,000438: 35,2645           31401                           DCA      ATIGINC                               
029460,000439: 35,2646           02652                           TC       P35/P75A                              
029461,000440: 35,2647           02361        P75                TC       AVFLAGP                               
029462,000441: 35,2650           00006                           EXTEND                                         
029463,000442: 35,2651           31403                           DCA      PTIGINC                               
029464,000443: 35,2652           53576        P35/P75A           DXCH     KT                                    
029465,000444: 35,2653           02366                           TC       P20FLGON                              #  SET UPDATFLG, TRACKFLG
029466,000445: 35,2654           06060                           TC       INTPRET                               
029467,000446: 35,2655           77624                           CALL                                           
029468,000447: 35,2656           20000                                    SELECTMU                              
029469,000448: 35,2657           77634        P35/P75B           RTB                                            
029470,000449: 35,2660           21603                                    LOADTIME                              
029471,000450: 35,2661           03612                           STORE    TSTRT                                 
029472,000451: 35,2662           77615                           DAD                                            
029473,000452: 35,2663           03576                                    KT                                    
029474,000453: 35,2664           03442                           STORE    TIG                                   
029475,000454: 35,2665           03610                           STORE    INTIME                                #  FOR INITVEL
029476,000455: 35,2666           34041                           STCALL   TDEC1                                 
029477,000456: 35,2667           46401                                    PRECSET                               #  ADVANCE BOTH VEHICLES
029478,000457: 35,2670           77624                           CALL                                           
029479,000458: 35,2671           73212                                    S34/35.1                              #  GET NORM AND LOS FOR TRANSFORM
029480,000459: 35,2672           77624                           CALL                                           
029481,000460: 35,2673           73224                                    S34/35.2                              #  GET DELTA V(LV)
029482,000461: 35,2674           77624                           CALL                                           
029483,000462: 35,2675           73440                                    S34/35.5                              
029484,000463: 35,2676           77624                           CALL                                           
029485,000464: 35,2677           73516                                    VN1645                                
029486,000465: 35,2700           77650                           GOTO                                           
029487,000466: 35,2701           72657                                    P35/P75B                              
029488,000467: 

Page 670

029490,000469:                                                                                                  #  ..... S33/34.1  .....
029491,000470: 
029492,000471: 35,2702           66220        S33/34.1           STQ      SSP                                   
029493,000472: 35,2703           03463                                    NORMEX                                
029494,000473: 35,2704           03614                                    TITER                                 
029495,000474: 35,2705           40000                           OCT      40000                                 
029496,000475: 35,2706           40345                           DLOAD    SETPD                                 
029497,000476: 35,2707           33644                                    MAX250                                
029498,000477: 35,2710           00001                                    0D                                    
029499,000478: 35,2711           27574                           STOVL    SECMAX                                
029500,000479: 35,2712           03536                                    RACT3                                 
029501,000480: 35,2713           27500                           STOVL    RAPREC                                
029502,000481: 35,2714           03544                                    VACT3                                 
029503,000482: 35,2715           27506                           STOVL    VAPREC                                
029504,000483: 35,2716           03552                                    RPASS3                                
029505,000484: 35,2717           27522                           STOVL    RPPREC                                
029506,000485: 35,2720           03560                                    VPASS3                                
029507,000486: 35,2721           03530                           STORE    VPPREC                                
029508,000487: 35,2722           77624        ELCALC             CALL                                           
029509,000488: 35,2723           73212                                    S34/35.1                              #  NORMAL AND LOS
029510,000489: 35,2724           63235                           VXV      PDVL                                  
029511,000490: 35,2725           03536                                    RACT3                                 #  (RA*VA)*RA 0D
029512,000491: 35,2726           53515                           PDVL     UNIT                                  #  ULOS AT 6D
029513,000492: 35,2727           03536                                    RACT3                                 
029514,000493: 35,2730           46315                           PDVL     VPROJ                                 #  XCHNJ AND UP
029515,000494: 35,2731           51352                           VSL2     BVSU                                  
029516,000495: 35,2732           02302                                    ULOS                                  
029517,000496: 35,2733           63256                           UNIT     PDVL                                  #  UP AT 0D
029518,000497: 35,2734           63241                           DOT      PDVL                                  #  UP.UN*RA AT 0D
029519,000498: 35,2735           00001                                    0D                                    #  UP IN MPAC
029520,000499: 35,2736           75241                           DOT      SIGN                                  
029521,000500: 35,2737           02302                                    ULOS                                  
029522,000501: 35,2740           65552                           SL1      ACOS                                  
029523,000502: 35,2741           50315                           PDVL     DOT                                   #  EA AT 0D
029524,000503: 35,2742           02302                                    ULOS                                  
029525,000504: 35,2743           03536                                    RACT3                                 
029526,000505: 35,2744           71244                           BPL      DLOAD                                 
029527,000506: 35,2745           72750                                    TESTY                                 
029528,000507: 35,2746           06513                                    DPPOSMAX                              
029529,000508: 35,2747           41425                           DSU      PUSH                                  
029530,000509: 35,2750           71214        TESTY              BOFF     DLOAD                                 
029531,000510: 35,2751           03740                                    ITSWICH                               
029532,000511: 35,2752           73177                                    ELEX                                  
029533,000512: 35,2753           03576                                    DELEL                                 
029534,000513: 35,2754           14033                           STODL    DELELO                                
029535,000514: 35,2755           77625                           DSU                                            
029536,000515: 35,2756           02250                                    ELEV                                  
029537,000516: 35,2757           03576                           STORE    DELEL                                 
029538,000517: 35,2760           45246                           ABS      DSU                                   
029539,000518: 35,2761           33650                                    ELEPS                                 

Page 671

029541,000520: 35,2762           77640                           BMN                                            
029542,000521: 35,2763           73207                                    TIMEX                                 #  COMMERCIALS EVERYWHERE
029543,000522: 35,2764           70535        FIGTIME            SLOAD    SR1                                   
029544,000523: 35,2765           03614                                    TITER                                 
029545,000524: 35,2766           72030                           BHIZ     LXA,1                                 
029546,000525: 35,2767           03463                                    NORMEX                                #  TOO MANY ITERATIONS
029547,000526: 35,2770           00154                                    MPAC                                  
029548,000527: 35,2771           77330                           SXA,1    VLOAD                                 
029549,000528: 35,2772           03613                                    TITER                                 
029550,000529: 35,2773           03552                                    RPASS3                                
029551,000530: 35,2774           65256                           UNIT     PDDL                                  
029552,000531: 35,2775           00045                                    36D                                   
029553,000532: 35,2776           53515                           PDVL     UNIT                                  
029554,000533: 35,2777           03536                                    RACT3                                 
029555,000534: 35,3000           77725                           PDDL                                           
029556,000535: 35,3001           41525                           PDDL     PUSH                                  
029557,000536: 35,3002           00045                                    36D                                   
029558,000537: 35,3003           77621                           BDSU                                           
029559,000538: 35,3004           00015                                    12D                                   
029560,000539: 35,3005           14037                           STODL    30D                                   #  RP - RA MAGNITUDES
029561,000540: 35,3006           06503                                    DPHALF                                
029562,000541: 35,3007           41425                           DSU      PUSH                                  
029563,000542: 35,3010           02250                                    ELEV                                  
029564,000543: 35,3011           50165                           SIGN     BMN                                   
029565,000544: 35,3012           00037                                    30D                                   
029566,000545: 35,3013           03463                                    NORMEX                                
029567,000546: 35,3014           71545                           DLOAD    COS                                   
029568,000547: 35,3015           56205                           DMP      DDV                                   
029569,000548: 35,3016           00017                                    14D                                   
029570,000549: 35,3017           00015                                    12D                                   
029571,000550: 35,3020           77676                           DCOMP                                          #  SINCE COS(180-A)=-COS A
029572,000551: 35,3021           00035                           STORE    28D                                   
029573,000552: 35,3022           44246                           ABS      BDSU                                  
029574,000553: 35,3023           06503                                    DPHALF                                
029575,000554: 35,3024           77240                           BMN      VLOAD                                 
029576,000555: 35,3025           03463                                    NORMEX                                
029577,000556: 35,3026           02252                                    UNRM                                  
029578,000557: 35,3027           53435                           VXV      UNIT                                  
029579,000558: 35,3030           00007                                    6D                                    #  UN*RA
029580,000559: 35,3031           41241                           DOT      DMP                                   
029581,000560: 35,3032           03544                                    VACT3                                 
029582,000561: 35,3033           00015                                    12D                                   
029583,000562: 35,3034           47315                           PDVL     VXV                                   
029584,000563: 35,3035           00001                                    0D                                    
029585,000564: 35,3036           03560                                    VPASS3                                
029586,000565: 35,3037           53435                           VXV      UNIT                                  
029587,000566: 35,3040           00001                                    0D                                    #  (RP*VP)*RP
029588,000567: 35,3041           41241                           DOT      DMP                                   
029589,000568: 35,3042           03560                                    VPASS3                                
029590,000569: 35,3043           00017                                    14D                                   
029591,000570: 

Page 672

029593,000572: 35,3044           77621                           BDSU                                           
029594,000573: 35,3045           63301                           NORM     PDVL                                  #  NORMALIZED WA - WP 12D
029595,000574: 35,3046           00047                                    X1                                    
029596,000575: 35,3047           00007                                    6D                                    
029597,000576: 35,3050           50235                           VXV      DOT                                   
029598,000577: 35,3051           00001                                    0D                                    
029599,000578: 35,3052           02252                                    UNRM                                  #  RA*RP.UN 14D
029600,000579: 35,3053           50315                           PDVL     DOT                                   
029601,000580: 35,3054           00001                                    0D                                    
029602,000581: 35,3055           00007                                    6D                                    
029603,000582: 35,3056           65552                           SL1      ACOS                                  
029604,000583: 35,3057           77765                           SIGN                                           
029605,000584: 35,3060           43225                           DSU      DAD                                   #    ALPHA PI
029606,000585: 35,3061           06503                                    DPHALF                                
029607,000586: 35,3062           02250                                    ELEV                                  
029608,000587: 35,3063           65525                           PDDL     ACOS                                  
029609,000588: 35,3064           00035                                    28D                                   
029610,000589: 35,3065           75221                           BDSU     SIGN                                  
029611,000590: 35,3066           06503                                    DPHALF                                
029612,000591: 35,3067           00037                                    30D                                   #  CONTAINS RP-RA
029613,000592: 35,3070           77615                           DAD                                            
029614,000593: 35,3071           56205                           DMP      DDV                                   
029615,000594: 35,3072           33642                                    TWOPI                                 
029616,000595: 35,3073           77605                           DMP                                            
029617,000596: 35,3074           41257                           SL*      DMP                                   
029618,000597: 35,3075           20176                                    0          -3,1                       
029619,000598: 35,3076           51406                           PUSH     ABS                                   
029620,000599: 35,3077           50025                           DSU      BMN                                   
029621,000600: 35,3100           03574                                    SECMAX                                
029622,000601: 35,3101           73105                                    OKMAX                                 
029623,000602: 35,3102           75345                           DLOAD    SIGN                                  #   REPLACE TIME WITH MAX TIME SIGNED
029624,000603: 35,3103           03574                                    SECMAX                                
029625,000604: 35,3104           77606                           PUSH                                           
029626,000605: 35,3105           51135        OKMAX              SLOAD    BPL                                   #  TEST FIRST ITERATION
029627,000606: 35,3106           03614                                    TITER                                 
029628,000607: 35,3107           73115                                    REPETE                                
029629,000608: 35,3110           71331                           SSP      DLOAD                                 
029630,000609: 35,3111           03614                                    TITER                                 
029631,000610: 35,3112           37777                           OCT      37777                                 
029632,000611: 35,3113           77650                           GOTO                                           
029633,000612: 35,3114           73153                                    STORDELT                              
029634,000613: 35,3115           41345        REPETE             DLOAD    DMP                                   
029635,000614: 35,3116           03576                                    DELEL                                 
029636,000615: 35,3117           00033                                    DELELO                                
029637,000616: 35,3120           71244                           BPL      DLOAD                                 
029638,000617: 35,3121           73131                                    NEXTES                                
029639,000618: 35,3122           03574                                    SECMAX                                
029640,000619: 35,3123           77605                           DMP                                            
029641,000620: 35,3124           33646                                    THIRD                                 
029642,000621: 35,3125           17574                           STODL    SECMAX                                
029643,000622: 

Page 673

029645,000624: 35,3126           70446                           ABS      SR1                                   #  CROSSED OVER SOLUTION
029646,000625: 35,3127           52076                           DCOMP    GOTO                                  #  DT=(-SIGN(DTO)//DT//)/2
029647,000626: 35,3130           73141                                    RESIGN                                
029648,000627: 35,3131           51545        NEXTES             DLOAD    ABS                                   
029649,000628: 35,3132           03576                                    DELEL                                 
029650,000629: 35,3133           51525                           PDDL     ABS                                   
029651,000630: 35,3134           00033                                    DELELO                                
029652,000631: 35,3135           77625                           DSU                                            
029653,000632: 35,3136           71240                           BMN      DLOAD                                 
029654,000633: 35,3137           73144                                    REVERS                                #  WRONG DIRECTION
029655,000634: 35,3140           77646                           ABS                                            
029656,000635: 35,3141           52165        RESIGN             SIGN     GOTO                                  
029657,000636: 35,3142           03606                                    DELTEEO                               
029658,000637: 35,3143           73153                                    STORDELT                              
029659,000638: 35,3144           57545        REVERS             DLOAD    DCOMP                                 
029660,000639: 35,3145           03606                                    DELTEEO                               
029661,000640: 35,3146           70406                           PUSH     SR1                                   
029662,000641: 35,3147           03606                           STORE    DELTEEO                               
029663,000642: 35,3150           77615                           DAD                                            
029664,000643: 35,3151           77650                           GOTO                                           
029665,000644: 35,3152           73154                                    ADTIME                                
029666,000645: 35,3153           03606        STORDELT           STORE    DELTEEO                               
029667,000646: 35,3154           77615        ADTIME             DAD                                            
029668,000647: 35,3155           02310                                    NOMTPI                                #  SUM OF DELTA T:S
029669,000648: 35,3156           02310                           STORE    NOMTPI                                
029670,000649: 35,3157           63375                           VLOAD    PDVL                                  
029671,000650: 35,3160           03506                                    VAPREC                                
029672,000651: 35,3161           03500                                    RAPREC                                
029673,000652: 35,3162           77624                           CALL                                           
029674,000653: 35,3163           73400                                    GOINT                                 
029675,000654: 35,3164           77624                           CALL                                           
029676,000655: 35,3165           46423                                    ACTIVE                                #  STORE NEW RACT3 VACT3
029677,000656: 35,3166           63375                           VLOAD    PDVL                                  
029678,000657: 35,3167           03530                                    VPPREC                                
029679,000658: 35,3170           03522                                    RPPREC                                
029680,000659: 35,3171           77624                           CALL                                           
029681,000660: 35,3172           73400                                    GOINT                                 
029682,000661: 35,3173           77624                           CALL                                           
029683,000662: 35,3174           46433                                    PASSIVE                               #  STORE NEW RPASS3 VPASS3
029684,000663: 35,3175           77650                           GOTO                                           
029685,000664: 35,3176           72722                                    ELCALC                                
029686,000665: 35,3177           43345        ELEX               DLOAD    DAD                                   
029687,000666: 35,3200           03636                                    TTPI                                  
029688,000667: 35,3201           02310                                    NOMTPI                                
029689,000668: 35,3202           17636                           STODL    TTPI                                  
029690,000669: 35,3203           77614                           BON                                            
029691,000670: 35,3204           01310                                    ETPIFLAG                              
029692,000671: 35,3205           73207                                    TIMEX                                 
029693,000672: 35,3206           02250                           STORE    ELEV                                  
029694,000673: 35,3207           52145        TIMEX              DLOAD    GOTO                                  
029695,000674: 

Page 674

029697,000676: 35,3210           06505                                    ZEROVECS                              
029698,000677: 35,3211           03463                                    NORMEX                                
029699,000678: 

Page 675

029701,000680:                                                                                                  #  ..... S34/35.1  .....
029702,000681: 
029703,000682:                                                                                                  #  COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029704,000683:                                                                                                  #  PASSIVE POS AND VEL AT TIME T3
029705,000684: 
029706,000685: 35,3212           52375        S34/35.1           VLOAD    VSU                                   
029707,000686: 35,3213           03552                                    RPASS3                                
029708,000687: 35,3214           03536                                    RACT3                                 
029709,000688: 35,3215           41456                           UNIT     PUSH                                  
029710,000689: 35,3216           26302                           STOVL    ULOS                                  
029711,000690: 35,3217           03536                                    RACT3                                 
029712,000691: 35,3220           53435                           VXV      UNIT                                  
029713,000692: 35,3221           03544                                    VACT3                                 
029714,000693: 35,3222           02252                           STORE    UNRM                                  
029715,000694: 35,3223           77616                           RVQ                                            
029716,000695: 

Page 676

029718,000697:                                                                                                  #  ..... S34/35.2  .....
029719,000698: 
029720,000699:                                                                                                  #  ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
029721,000700: 35,3224           77220        S34/35.2           STQ      VLOAD                                 
029722,000701: 35,3225           03470                                    SUBEXIT                               
029723,000702: 35,3226           03560                                    VPASS3                                
029724,000703: 35,3227           65315                           PDVL     PDDL                                  
029725,000704: 35,3230           03552                                    RPASS3                                
029726,000705: 35,3231           03610                                    INTIME                                
029727,000706: 35,3232           65325                           PDDL     PDDL                                  
029728,000707: 35,3233           03631                                    TPASS4                                
029729,000708: 35,3234           33642                                    TWOPI                                 #  CONIC
029730,000709: 35,3235           46125                           PDDL     BHIZ                                  
029731,000710: 35,3236           03467                                    NN                                    
029732,000711: 35,3237           73243                                    S3435.23                              
029733,000712: 35,3240           77745                           DLOAD                                          
029734,000713: 35,3241           41545                           DLOAD    PUSH                                  
029735,000714: 35,3242           06505                                    ZEROVECS                              #  PRECISION
029736,000715: 35,3243           77624        S3435.23           CALL                                           
029737,000716: 35,3244           73404                                    INTINT                                #  GET TARGET VECTOR
029738,000717: 35,3245           27444        S3435.25           STOVL    RTARG                                 
029739,000718: 35,3246           00007                                    VATT                                  
029740,000719: 35,3247           27506                           STOVL    VPASS4                                
029741,000720: 35,3250           03444                                    RTARG                                 
029742,000721:                                                                                                  #  COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
029743,000722: 35,3251           63256                           UNIT     PDVL                                  #  UNIT RP
029744,000723: 35,3252           03536                                    RACT3                                 
029745,000724: 35,3253           41456                           UNIT     PUSH                                  #  UNIT RA
029746,000725: 35,3254           50235                           VXV      DOT                                   
029747,000726: 35,3255           00001                                    0D                                    
029748,000727: 35,3256           02252                                    UNRM                                  #  RA*RP.U
029749,000728: 35,3257           77715                           PDVL                                           
029750,000729: 35,3260           72441                           DOT      SL1                                   #  UNIT RA.UNIT RP
029751,000730: 35,3261           00001                                    0D                                    
029752,000731: 35,3262           75326                           ACOS     SIGN                                  
029753,000732: 35,3263           43244                           BPL      DAD                                   
029754,000733: 35,3264           73266                                    NOPIE                                 
029755,000734: 35,3265           06513                                    DPPOSMAX                              #  REASONABLE TWO PI
029756,000735: 35,3266           15754        NOPIE              STODL    ACTCENT                               
029757,000736: 35,3267           03631                                    TPASS4                                
029758,000737: 35,3270           77625                           DSU                                            
029759,000738: 35,3271           03610                                    INTIME                                
029760,000739: 35,3272           03452                           STORE    DELLT4                                
029761,000740: 35,3273           40335                           SLOAD    SETPD                                 
029762,000741: 35,3274           03467                                    NN                                    #  NUMBER OF OFFSETS
029763,000742: 35,3275           00001                                    0D                                    
029764,000743: 35,3276           63325                           PDDL     PDVL                                  
029765,000744: 35,3277           33654                                    EPSFOUR                               
029766,000745: 35,3300           03536                                    RACT3                                 
029767,000746: 35,3301           26314                           STOVL    RINIT                                 
029768,000747: 

Page 677

029770,000749: 35,3302           03544                                    VACT3                                 
029771,000750: 35,3303           36322                           STCALL   VINIT                                 
029772,000751: 35,3304           22000                                    INITVEL                               
029773,000752: 35,3305           77624                           CALL                                           
029774,000753: 35,3306           73365                                    LOMAT                                 
029775,000754: 35,3307           64375                           VLOAD    MXV                                   
029776,000755: 35,3310           02357                                    DELVEET3                              
029777,000756: 35,3311           00001                                    0D                                    
029778,000757: 35,3312           77772                           VSL1                                           
029779,000758: 35,3313           37434                           STCALL   DELVLVC                               
029780,000759: 35,3314           03470                                    SUBEXIT                               
029781,000760: 

Page 678

029783,000762:                                                                                                  #  ..... S34/35.3  .....
029784,000763: 
029785,000764: 35,3315           45020        S34/35.3           STQ      CALL                                  
029786,000765: 35,3316           03463                                    NORMEX                                
029787,000766: 35,3317           73365                                    LOMAT                                 #  GET MATRIX IN PUSH LIST
029788,000767: 35,3320           61375                           VLOAD    VXM                                   
029789,000768: 35,3321           03434                                    DELVLVC                               #  NEW DEL V TPI
029790,000769: 35,3322           00001                                    0D                                    
029791,000770: 35,3323           77772                           VSL1                                           
029792,000771: 35,3324           02357                           STORE    DELVEET3                              #  SAVE FOR TRANSFORM
029793,000772: 35,3325           63255                           VAD      PDVL                                  
029794,000773: 35,3326           03544                                    VACT3                                 #  NEW V REQ
029795,000774: 35,3327           03536                                    RACT3                                 
029796,000775: 35,3330           65325                           PDDL     PDDL                                  
029797,000776: 35,3331           03442                                    TIG                                   
029798,000777: 35,3332           03631                                    TPASS4                                
029799,000778: 35,3333           41525                           PDDL     PUSH                                  
029800,000779: 35,3334           06513                                    DPPOSMAX                              
029801,000780: 35,3335           77624                           CALL                                           #  INTEG. FOR NEW TARGET VEC
029802,000781: 35,3336           73404                                    INTINT                                
029803,000782: 35,3337           77775                           VLOAD                                          
029804,000783: 35,3340           00001                                    RATT                                  
029805,000784: 35,3341           03444                           STORE    RTARG                                 
029806,000785: 35,3342           41575        NOVRWRT            VLOAD    PUSH                                  
029807,000786: 35,3343           02302                                    ULOS                                  
029808,000787: 35,3344           57435                           VXV      VCOMP                                 
029809,000788: 35,3345           02252                                    UNRM                                  
029810,000789: 35,3346           41456                           UNIT     PUSH                                  
029811,000790: 35,3347           76435                           VXV      VSL1                                  
029812,000791: 35,3350           02302                                    ULOS                                  
029813,000792: 35,3351           77715                           PDVL                                           
029814,000793: 35,3352           64315                           PDVL     MXV                                   
029815,000794: 35,3353           02357                                    DELVEET3                              
029816,000795: 35,3354           00001                                    0D                                    
029817,000796: 35,3355           77772                           VSL1                                           
029818,000797: 35,3356           36274                           STCALL   DVLOS                                 
029819,000798: 35,3357           03463                                    NORMEX                                
029820,000799: 

Page 679

029822,000801:                                                                                                  #  ..... S34/35.4  .....
029823,000802: 
029824,000803: 35,3360           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
029825,000804: 35,3361           03463                                    NORMEX                                
029826,000805: 35,3362           00001                                    0D                                    
029827,000806: 35,3363           77650                           GOTO                                           
029828,000807: 35,3364           73342                                    NOVRWRT                               
029829,000808: 

Page 680

029831,000810:                                                                                                  #  ..... LOMAT    .....
029832,000811: 
029833,000812: 35,3365           57575        LOMAT              VLOAD    VCOMP                                 
029834,000813: 35,3366           02252                                    UNRM                                  
029835,000814: 35,3367           24007                           STOVL    6D                                    #  Y
029836,000815: 35,3370           03536                                    RACT3                                 
029837,000816: 35,3371           57456                           UNIT     VCOMP                                 
029838,000817: 35,3372           00015                           STORE    12D                                   
029839,000818: 35,3373           76435                           VXV      VSL1                                  
029840,000819: 35,3374           02252                                    UNRM                                  #  Z*-Y
029841,000820: 35,3375           00001                           STORE    0D                                    
029842,000821: 35,3376           43401                           SETPD    RVQ                                   
029843,000822: 35,3377           00023                                    18D                                   
029844,000823: 35,3400           65325        GOINT              PDDL     PDDL                                  #  DO
029845,000824: 35,3401           06505                                    ZEROVECS                              #   NOT
029846,000825: 35,3402           02310                                    NOMTPI                                
029847,000826: 35,3403           41406                           PUSH     PUSH                                  #               ORDER OR INSERT BEFORE INTINT
029848,000827: 35,3404           45020        INTINT             STQ      CALL                                  
029849,000828: 35,3405           03465                                    RTRN                                  
029850,000829: 35,3406           27447                                    INTSTALL                              
029851,000830: 35,3407           71214                           CLEAR    DLOAD                                 
029852,000831: 35,3410           01673                                    INTYPFLG                              
029853,000832: 35,3411           43054                           BZE      SET                                   
029854,000833: 35,3412           73414                                    +2                                    
029855,000834: 35,3413           01473                                    INTYPFLG                              
029856,000835: 35,3414           45545                           DLOAD    STADR                                 
029857,000836: 35,3415           63736                           STODL    TDEC1                                 
029858,000837: 35,3416           73014                           SET      LXA,2                                 
029859,000838: 35,3417           00063                                    MOONFLAG                              
029860,000839: 35,3420           02777                                    RTX2                                  
029861,000840: 35,3421           43014                           BON      CLEAR                                 
029862,000841: 35,3422           04303                                    CMOONFLG                              
029863,000842: 35,3423           73425                                    ALLSET                                
029864,000843: 35,3424           00263                                    MOONFLAG                              
029865,000844: 35,3425           25517        ALLSET             STOVL    TET                                   
029866,000845: 35,3426           77657                           VSR*                                           
029867,000846: 35,3427           57176                                    0,2                                   
029868,000847: 35,3430           25535                           STOVL    RCV                                   
029869,000848: 35,3431           77657                           VSR*                                           
029870,000849: 35,3432           57176                                    0,2                                   
029871,000850: 35,3433           35543                           STCALL   VCV                                   
029872,000851: 35,3434           27145                                    INTEGRVS                              
029873,000852: 35,3435           52175                           VLOAD    GOTO                                  
029874,000853: 35,3436           00001                                    RATT                                  
029875,000854: 35,3437           03465                                    RTRN                                  
029876,000855: 

Page 681

029878,000857:                                                                                                  #  ..... S34/35.5  .....
029879,000858:                                                                                                  #  SUBROUTINES USED
029880,000859: 
029881,000860:                                                                                                  #        BANKCALL
029882,000861:                                                                                                  #        GOFLASH
029883,000862:                                                                                                  #        GOTOPOOH
029884,000863:                                                                                                  #        S34/35.3
029885,000864:                                                                                                  #        S34/35.4
029886,000865:                                                                                                  #        VNPOOH
029887,000866: 
029888,000867: 35,3440           43020        S34/35.5           STQ      BON                                   
029889,000868: 35,3441           03470                                    SUBEXIT                               
029890,000869: 35,3442           01311                                    FINALFLG                              
029891,000870: 35,3443           73446                                    FLAGON                                
029892,000871: 35,3444           77614                           SET                                            
029893,000872: 35,3445           00470                                    UPDATFLG                              
029894,000873: 35,3446           77214        FLAGON             CLEAR    VLOAD                                 
029895,000874: 35,3447           03274                                    NTARGFLG                              
029896,000875: 35,3450           03434                                    DELVLVC                               
029897,000876: 35,3451           01236                           STORE    TMPDV                                 #  SAVE DV BEFORE DISPLAY
029898,000877: 35,3452           77776                           EXIT                                           
029899,000878: 35,3453           33637                 +5        CAF      V06N81                                
029900,000879: 35,3454           04607                           TC       BANKCALL                              
029901,000880: 35,3455           20471                           CADR     GOFLASH                               
029902,000881: 35,3456           06001                           TC       GOTOPOOH                              
029903,000882: 35,3457           03461                           TC       +2                                    #  PRO
029904,000883: 35,3460           03453                           TC       FLAGON     +5                         #  LOAD
029905,000884: 35,3461           35007                 +2        CA       EBANK7                                
029906,000885: 35,3462           54003                           TS       EBANK                                 #  TO BE SURE
029907,000886: 
029908,000887: 35,3463           22007                           ZL                                             
029909,000888: 35,3464           34747                           CA       FIVE                                  
029910,000889: 35,3465           54002        NTARGCHK           TS       Q                                     
029911,000890: 35,3466           50002                           INDEX    Q                                     
029912,000891: 35,3467           41433                           CS       DELVLVC                               
029913,000892: 35,3470           50002                           INDEX    Q                                     
029914,000893: 35,3471           61235                           AD       TMPDV                                 
029915,000894: 35,3472           26001                           ADS      L                                     
029916,000895: 35,3473           10002                           CCS      Q                                     
029917,000896: 35,3474           13465                           TCF      NTARGCHK                              
029918,000897: 35,3475           22000                           LXCH     A                                     
029919,000898: 35,3476           00006                           EXTEND                                         
029920,000899: 35,3477           13502                           BZF      +3                                    
029921,000900: 35,3500           05506                           TC       UPFLAG                                
029922,000901: 35,3501           00146                           ADRES    NTARGFLG                              
029923,000902: 
029924,000903: 35,3502           06060                           TC       INTPRET                               
029925,000904: 35,3503           45014                           BOFF     CALL                                  
029926,000905: 35,3504           03354                                    NTARGFLG                              
029927,000906: 35,3505           73507                                    NOCHG                                 
029928,000907: 

Page 682

029930,000909: 35,3506           73315                                    S34/35.3                              
029931,000910: 35,3507           77775        NOCHG              VLOAD                                          
029932,000911: 35,3510           02357                                    DELVEET3                              
029933,000912: 35,3511           03656                           STORE    DELVSIN                               
029934,000913: 35,3512           77624        FLAGOFF            CALL                                           
029935,000914: 35,3513           73360                                    S34/35.4                              
029936,000915: 35,3514           77650                           GOTO                                           
029937,000916: 35,3515           03470                                    SUBEXIT                               
029938,000917: 

Page 683

029940,000919:                                                                                                  #  ..... VN1645    .....
029941,000920: 
029942,000921:                                                                                                  #  SUBROUTINES USED
029943,000922: 
029944,000923:                                                                                                  #        P3XORP7X
029945,000924:                                                                                                  #        GET+MGA
029946,000925:                                                                                                  #        BANKCALL
029947,000926:                                                                                                  #        DELAYJOB
029948,000927:                                                                                                  #        COMPTGO
029949,000928:                                                                                                  #        GOFLASHR
029950,000929:                                                                                                  #        GOTOPOOH
029951,000930:                                                                                                  #        FLAGUP
029952,000931: 
029953,000932: 35,3516           71220        VN1645             STQ      DLOAD                                 
029954,000933: 35,3517           03470                                    SUBEXIT                               
029955,000934: 35,3520           33652                                    DP-.01                                
029956,000935: 35,3521           02244                           STORE    +MGA                                  #  MGA = -.01
029957,000936: 35,3522           71214                           BOFF     DLOAD                                 
029958,000937: 35,3523           01351                                    FINALFLG                              
029959,000938: 35,3524           73544                                    GET45                                 
029960,000939: 35,3525           33652                                    DP-.01                                
029961,000940: 35,3526           77615                           DAD                                            
029962,000941: 35,3527           33652                                    DP-.01                                
029963,000942: 35,3530           02244                           STORE    +MGA                                  #  MGA = -.02
029964,000943: 35,3531           77414                           BOFF     EXIT                                  
029965,000944: 35,3532           01742                                    REFSMFLG                              
029966,000945: 35,3533           73544                                    GET45                                 
029967,000946: 35,3534           03614                           TC       P3XORP7X                              
029968,000947: 35,3535           03537                           TC       +2                                    #  P3X
029969,000948: 35,3536           03545                           TC       GET45      +1                         #  P7X
029970,000949: 35,3537           06060                           TC       INTPRET                               
029971,000950: 35,3540           41575                           VLOAD    PUSH                                  
029972,000951: 35,3541           03656                                    DELVSIN                               
029973,000952: 35,3542           77624                           CALL                                           #  COMPUTE MGA
029974,000953: 35,3543           42006                                    GET+MGA                               
029975,000954: 35,3544           77776        GET45              EXIT                                           
029976,000955: 35,3545           02437                           TC       COMPTGO                               #  INITIATE TASK TO UPDATE TTOGO
029977,000956: 35,3546           31470                           CA       SUBEXIT                               
029978,000957: 35,3547           55464                           TS       QSAVED                                
029979,000958: 35,3550           34770                           CAF      1SEC                                  
029980,000959: 35,3551           04607                           TC       BANKCALL                              
029981,000960: 35,3552           01736                           CADR     DELAYJOB                              
029982,000961: 35,3553           33640                           CAF      V16N45                                #  TRKMKCNT, TTOGO, +MGA
029983,000962: 35,3554           04607                           TC       BANKCALL                              
029984,000963: 35,3555           20471                           CADR     GOFLASH                               
029985,000964: 35,3556           03561                           TC       KILCLOCK                              #  TERMINATE
029986,000965: 35,3557           03564                           TC       N45PROC                               #  PROCEED
029987,000966: 35,3560           03574                           TC       CLUPDATE                              #  RECYCLE - RETURN FOR INITIAL COMPUTATION
029988,000967: 35,3561           30005        KILCLOCK           CA       Z                                     
029989,000968: 35,3562           55162                           TS       DISPDEX                               
029990,000969: 

Page 684

029992,000971: 35,3563           06001                           TC       GOTOPOOH                              
029993,000972: 35,3564           40076        N45PROC            CS       FLAGWRD2                              
029994,000973: 35,3565           74737                           MASK     BIT6                                  
029995,000974: 35,3566           00006                           EXTEND                                         
029996,000975: 35,3567           13561                           BZF      KILCLOCK                              #  FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
029997,000976: 35,3570           05355                           TC       PHASCHNG                              
029998,000977: 35,3571           04024                           OCT      04024                                 
029999,000978: 35,3572           05506                           TC       UPFLAG                                #  SET
030000,000979: 35,3573           00047                           ADRES    FINALFLG                              #  FINALFLG
030001,000980: 35,3574           30005        CLUPDATE           CA       Z                                     
030002,000981: 35,3575           55162                           TS       DISPDEX                               
030003,000982: 35,3576           05355                           TC       PHASCHNG                              
030004,000983: 35,3577           04024                           OCT      04024                                 
030005,000984: 35,3600           06060                           TC       INTPRET                               
030006,000985: 35,3601           52014                           CLEAR    GOTO                                  
030007,000986: 35,3602           00670                                    UPDATFLG                              
030008,000987: 35,3603           03464                                    QSAVED                                
030009,000988: 

Page 685

030011,000990:                                                                                                  #  ..... DISPLAYE   .....
030012,000991: 
030013,000992:                                                                                                  #  SUBROUTINES USED
030014,000993: 
030015,000994:                                                                                                  #        BANKCALL
030016,000995:                                                                                                  #        GOFLASHR
030017,000996:                                                                                                  #        GOTOPOOH
030018,000997:                                                                                                  #        BLANKET
030019,000998:                                                                                                  #        ENDOFJOB
030020,000999: 
030021,001000: 35,3604           00006        DISPLAYE           EXTEND                                         
030022,001001: 35,3605           23463                           QXCH     NORMEX                                
030023,001002: 35,3606           33634                           CAF      V06N55                                
030024,001003: 35,3607           04607                           TCR      BANKCALL                              
030025,001004: 35,3610           20471                           CADR     GOFLASH                               
030026,001005: 35,3611           16001                           TCF      GOTOPOOH                              
030027,001006: 35,3612           01463                           TC       NORMEX                                
030028,001007: 35,3613           13606                           TCF      -5                                    
030029,001008: 

Page 686

030031,001010:                                                                                                  #  ..... P3XORP7X  .....
030032,001011: 
030033,001012: 35,3614           37765        P3XORP7X           CAF      HIGH9                                 
030034,001013: 35,3615           71010                           MASK     MODREG                                
030035,001014: 35,3616           00006                           EXTEND                                         
030036,001015: 35,3617           13621                           BZF      +2                                    
030037,001016: 35,3620           24002                           INCR     Q                                     
030038,001017: 35,3621           00002                           RETURN                                         
030039,001018: 
030040,001019:                                                                                                  #  ..... VNPOOH     .....
030041,001020: 
030042,001021:                                                                                                  #  SUBROUTINES USED
030043,001022: 
030044,001023:                                                                                                  #        BANKCALL
030045,001024:                                                                                                  #        GOFLASH
030046,001025:                                                                                                  #        GOTOPOOH
030047,001026: 
030048,001027: 35,3622           00006        VNPOOH             EXTEND                                         
030049,001028: 35,3623           23465                           QXCH     RTRN                                  
030050,001029: 35,3624           55615                           TS       VERBNOUN                              
030051,001030: 35,3625           31615                           CA       VERBNOUN                              
030052,001031: 35,3626           04607                           TCR      BANKCALL                              
030053,001032: 35,3627           20471                           CADR     GOFLASH                               
030054,001033: 35,3630           16001                           TCF      GOTOPOOH                              
030055,001034: 35,3631           01465                           TC       RTRN                                  
030056,001035: 35,3632           13625                           TCF      -5                                    
030057,001036: 

Page 687

030059,001038:                                                                                                  #  ..... CONSTANTS .....
030060,001039: 
030061,001040: 35,3633           01445        V06N37             VN       0637                                  
030062,001041: 35,3634           01467        V06N55             VN       0655                                  
030063,001042: 35,3635           01472        V06N58             VN       0658                                  
030064,001043: 35,3636           01473        V06N59             VN       0659                                  
030065,001044: 35,3637           01521        V06N81             VN       0681                                  
030066,001045: 35,3640           04055        V16N45             VN       1645                                  
030067,001046: 35,3641           14441 37325  TWOPI              2DEC     6.283185307 B-4                        
030068,001047: 35,3643           00001 20650  MAX250             2DEC     25         E3                         
030069,001048: 35,3645           12525 12525  THIRD              2DEC     .333333333                            
030070,001049: 35,3647           00004 21505  ELEPS              2DEC     .27777777  E-3                        
030071,001050: 35,3651           77777        DP-.01             OCT      77777                                 #  CONSTANTS
030072,001051: 35,3652           61337                           OCT      61337                                 #  ADJACENT      -.01 FOR MGA DSP
030073,001052: 35,3653           01252 25253  EPSFOUR            2DEC     .0416666666                            
030074,001053: 35,3655           13434 16162  130DEG             2DEC     .3611111111                            
030075,001054: 

Page 688

030077,001056:                                                                                                  #  ..... INITVEL .....
030078,001057:                                                                                                  #  MOD NO -1        LOG SECTION - P34-P35, P74-P75
030079,001058:                                                                                                  #  MOD BY WHITE.P   DATE  21NOV67
030080,001059: 
030081,001060:                                                                                                  #  FUNCTIONAL DESCRIPTION
030082,001061: 
030083,001062:                                                                                                  #        THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
030084,001063:                                                                                                  #        A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
030085,001064:                                                                                                  #        AND TARGET POSITIONS.  THE TRAJECTORY MAY BE EITHER CONIC OR
030086,001065:                                                                                                  #        PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
030087,001066:                                                                                                  #        OFFSETS).  IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
030088,001067:                                                                                                  #        SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
030089,001068:                                                                                                  #        DURING PURE-CONIC CROSS-PRODUCT STEERING.  THE OFFSET TARGET
030090,001069:                                                                                                  #        VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
030091,001070:                                                                                                  #        HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
030092,001071:                                                                                                  #        TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
030093,001072: 
030094,001073:                                                                                                  #        IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
030095,001074:                                                                                                  #        TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
030096,001075:                                                                                                  #        SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
030097,001076:                                                                                                  #        VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
030098,001077:                                                                                                  #        AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
030099,001078:                                                                                                  #        WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
030100,001079:                                                                                                  #        IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
030101,001080:                                                                                                  #        TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
030102,001081: 
030103,001082:                                                                                                  #        THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
030104,001083:                                                                                                  #        THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
030105,001084:                                                                                                  #        TRAJECTORY COMPUTATIONS.
030106,001085: 
030107,001086:                                                                                                  #  CALLING SEQUENCE
030108,001087: 
030109,001088:                                                                                                  #        L         CALL
030110,001089:                                                                                                  #        L+1               INITVEL
030111,001090:                                                                                                  #        L+2       (RETURN - ALWAYS)
030112,001091: 
030113,001092:                                                                                                  #  INPUT
030114,001093: 
030115,001094:                                                                                                  #        (1) RINIT    INITIAL POSITION RADIUS VECTOR
030116,001095:                                                                                                  #        (2) VINIT    INITIAL POSITION VELOCITY VECTOR
030117,001096:                                                                                                  #        (3) RTARG    TARGET POSITION RADIUS VECTOR
030118,001097:                                                                                                  #        (4) DELLT4   DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
030119,001098:                                                                                                  #        (5) INTIME   TIME OF RINIT
030120,001099:                                                                                                  #        (6) 0D       NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
030121,001100:                                                                                                  #        (7) 2D       ANGLE TO 180 DEGREES WHEN ROTATION STARTS
030122,001101:                                                                                                  #        (8) RTX1     -2 FOR EARTH, -10D FOR LUNAR
030123,001102:                                                                                                  #        (9) RTX2     COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
030124,001103:                                                                                                  #        PUSHLOC SET AT 4D
030125,001104: 

Page 689

030127,001106:                                                                                                  #  OUTPUT
030128,001107: 
030129,001108:                                                                                                  #        (1) RTARG    OFFSET TARGET POSITION VECTOR
030130,001109:                                                                                                  #        (2) VIPRIME  MANEUVER VELOCITY REQUIRED
030131,001110:                                                                                                  #        (3) VTPRIME  VELOCITY AT TARGET AFTER MANEUVER
030132,001111:                                                                                                  #        (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
030133,001112: 
030134,001113:                                                                                                  #  SUBROUTINES USED
030135,001114: 
030136,001115:                                                                                                  #        LAMBERT
030137,001116:                                                                                                  #        INTSTALL
030138,001117:                                                                                                  #        INTEGRVS
030139,001118: 
030140,001119: 11,2000                                           SETLOC   INTVEL                                
030141,001120: 11,2000                                           BANK                                           
030142,001121: 
030143,001122: 11,2000                                           COUNT*   $$/INITV                              
030144,001123: 11,2000           77614        INITVEL            SET                                            #  COGA GUESS NOT AVAILABLE
030145,001124: 11,2001           00475                                    GUESSW                                
030146,001125: 11,2002           44175        HAVEGUES           VLOAD    STQ                                   
030147,001126: 11,2003           03444                                    RTARG                                 
030148,001127: 11,2004           03463                                    NORMEX                                
030149,001128: 11,2005           03472                           STORE    RTARG1                                
030150,001129: 11,2006           77646                           ABVAL                                          
030151,001130: 11,2007           03723                           STORE    RTMAG                                 
030152,001131: 11,2010           46135                           SLOAD    BHIZ                                  
030153,001132: 11,2011           03000                                    RTX2                                  
030154,001133: 11,2012           22026                                    INITVEL1                              
030155,001134: 11,2013           72575                           VLOAD    VSL2                                  
030156,001135: 11,2014           02314                                    RINIT                                 #  B29
030157,001136: 11,2015           26314                           STOVL    RINIT                                 #  B27
030158,001137: 11,2016           02322                                    VINIT                                 #  B7
030159,001138: 11,2017           77752                           VSL2                                           
030160,001139: 11,2020           26322                           STOVL    VINIT                                 #  B5
030161,001140: 11,2021           03472                                    RTARG1                                
030162,001141: 11,2022           77752                           VSL2                                           
030163,001142: 11,2023           03472                           STORE    RTARG1                                
030164,001143: 11,2024           77646                           ABVAL                                          
030165,001144: 11,2025           03723                           STORE    RTMAG                                 
030166,001145:                                                                                                  #        INITIALIZATION
030167,001146: 
030168,001147: 11,2026           71331        INITVEL1           SSP      DLOAD                                 #  SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
030169,001148: 11,2027           03617                                    ITCTR                                 
030170,001149: 11,2030           77776                                    0          -1                         
030171,001150: 11,2031           70546                           COSINE   SR1                                   #  CALCULATE COSINE (E4) (+2)
030172,001151: 11,2032           17667                           STODL    COZY4                                 #  SET COZY4 TO COSINE (E4)          (PL 0D)
030173,001152: 11,2033           67154                           LXA,2    SXA,2                                 
030174,001153: 11,2034           00154                                    MPAC                                  
030175,001154: 11,2035           02701                                    VTARGTAG                              #  SET VTARGTAG TO 0D (SP)
030176,001155: 11,2036           77775                           VLOAD                                          
030177,001156: 

Page 690

030179,001158: 11,2037           02314                                    RINIT                                 
030180,001159: 11,2040           26655                           STOVL    R1VEC                                 #  R1VEC EQ RINIT
030181,001160: 11,2041           03472                                    RTARG1                                
030182,001161: 11,2042           16663                           STODL    R2VEC                                 #  R2VEC EQ RTARG
030183,001162: 11,2043           03452                                    DELLT4                                
030184,001163: 11,2044           02671                           STORE    TDESIRED                              #  TDESIRED EQ DELLT4
030185,001164: 11,2045           77201                           SETPD    VLOAD                                 
030186,001165: 11,2046           00001                                    0D                                    #  INITIALIZE PL TO 0D
030187,001166: 11,2047           02314                                    RINIT                                 #  MPAC EQ RINIT (+29)
030188,001167: 11,2050           41456                           UNIT     PUSH                                  #  UNIT(RI)  (+1)                   (PL 6D)
030189,001168: 11,2051           53435                           VXV      UNIT                                  
030190,001169: 11,2052           02322                                    VINIT                                 #  MPAC EQ UNIT(RI) X VI  (+8)
030191,001170: 11,2053           26674                           STOVL    UN                                    
030192,001171: 11,2054           03472                                    RTARG1                                
030193,001172: 11,2055           50256                           UNIT     DOT                                   #  TEMP=URT.URI (+2)                (PL 0D)
030194,001173: 11,2056           43015                           DAD      CLEAR                                 
030195,001174: 11,2057           03667                                    COZY4                                 
030196,001175: 11,2060           03665                                    NORMSW                                
030197,001176: 11,2061           03667                           STORE    COZY4                                 
030198,001177: 11,2062           43044        INITVEL2           BPL      SET                                   
030199,001178: 11,2063           22105                                    INITVEL3                              #  UN CALCULATED IN LAMBERT
030200,001179: 11,2064           03465                                    NORMSW                                
030201,001180:                                                                                                  #        ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
030202,001181: 
030203,001182: 11,2065           41575                           VLOAD    PUSH                                  #                                   (PL 6D)
030204,001183: 11,2066           02663                                    R2VEC                                 #  RC TO 6D  (+29)
030205,001184: 11,2067           63246                           ABVAL    PDVL                                  #  RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
030206,001185: 11,2070           46206                           PUSH     VPROJ                                 #                                   (PL 8D)
030207,001186: 11,2071           02674                                    UN                                    
030208,001187: 11,2072           51352                           VSL2     BVSU                                  
030209,001188: 11,2073           74256                           UNIT     VXSC                                  #                                   (PL 0D)
030210,001189: 11,2074           77772                           VSL1                                           
030211,001190: 11,2075           02663                           STORE    R2VEC                                 
030212,001191: 11,2076           67351                           TLOAD    SLOAD                                 
030213,001192: 11,2077           24007                                    ZEROVEC                               
030214,001193: 11,2100           03617                                    ITCTR                                 
030215,001194: 11,2101           77244                           BPL      VLOAD                                 
030216,001195: 11,2102           22105                                    INITVEL3                              
030217,001196: 11,2103           02663                                    R2VEC                                 
030218,001197: 11,2104           03472                           STORE    RTARG1                                
030219,001198: 11,2105           63345        INITVEL3           DLOAD    PDVL                                  #                                   (PL 2D)
030220,001199: 11,2106           26007                                    MUEARTH                               #  POSITIVE VALUE
030221,001200: 11,2107           02663                                    R2VEC                                 
030222,001201: 11,2110           63256                           UNIT     PDVL                                  #  2D = UNIT(R2VEC)                 (PL 8D)
030223,001202: 11,2111           02655                                    R1VEC                                 
030224,001203: 11,2112           41456                           UNIT     PUSH                                  #  8D = UNIT(R1VEC)                 (PL14D)
030225,001204: 11,2113           57435                           VXV      VCOMP                                 #  -N = UNIT(R2VEC) X UNIT(R1VEC)
030226,001205: 11,2114           00003                                    2D                                    
030227,001206: 11,2115           77606                           PUSH                                           #                                   (PL20D)
030228,001207: 11,2116           71350                           LXA,1    DLOAD                                 
030229,001208: 

Page 691

030231,001210: 11,2117           02776                                    RTX1                                  
030232,001211: 11,2120           00023                                    18D                                   
030233,001212: 11,2121           62040                           BMN      INCR,1                                
030234,001213: 11,2122           22124                                    +2                                    
030235,001214: 11,2123           77767                           DEC      -8         B-14                       
030236,001215: 11,2124           67310                           INCR,1   SLOAD                                 
030237,001216: 11,2125           00012                                    10D                                   
030238,001217: 11,2126           00047                                    X1                                    
030239,001218: 11,2127           77230                           BHIZ     VLOAD                                 #                                        (PL14D)
030240,001219: 11,2130           22132                                    +2                                    
030241,001220: 11,2131           41476                           VCOMP    PUSH                                  #                                        (PL20D)
030242,001221: 11,2132           77775                           VLOAD                                          #                                        (PL14D)
030243,001222: 11,2133           50235                           VXV      DOT                                   #                                        (PL 2D)
030244,001223: 11,2134           71244                           BPL      DLOAD                                 #                                        (PL 0D)
030245,001224: 11,2135           22137                                    INITVEL4                              
030246,001225: 11,2136           41476                           DCOMP    PUSH                                  #                                        (PL 2D)
030247,001226: 11,2137           67154        INITVEL4           LXA,2    SXA,2                                 
030248,001227: 11,2140           00000                                    0D                                    
030249,001228: 11,2141           02672                                    GEOMSGN                               
030250,001229: 
030251,001230:                                                                                                  #  SET INPUTS UP FOR LAMBERT
030252,001231: 
030253,001232: 11,2142           66350                           LXA,1    SSP                                   
030254,001233: 11,2143           02776                                    RTX1                                  
030255,001234: 11,2144           00027                                    ITERCTR                               
030256,001235: 11,2145           00024                                    20D                                   
030257,001236:                                                                                                  #   OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
030258,001237: 
030259,001238: 11,2146           77624                           CALL                                           
030260,001239: 11,2147           25212                                    LAMBERT                               
030261,001240: 
030262,001241:                                                                                                  #  ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
030263,001242: 
030264,001243: 11,2150           77214                           CLEAR    VLOAD                                 
030265,001244: 11,2151           00675                                    GUESSW                                
030266,001245: 11,2152           02744                                    VVEC                                  
030267,001246:                                                                                                  #  STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
030268,001247: 
030269,001248: 11,2153           16330                           STODL    VIPRIME                               #  INITIAL VELOCITY REQUIRED  (+7)
030270,001249: 
030271,001250:                                                                                                  #     IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
030272,001251:                                                                                                  #  SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
030273,001252: 
030274,001253: 11,2154           02702                                    VTARGTAG                              
030275,001254: 11,2155           45030                           BHIZ     CALL                                  
030276,001255: 11,2156           22233                                    INITVEL7                              
030277,001256: 11,2157           27447                                    INTSTALL                              
030278,001257: 11,2160           43135                           SLOAD    CLEAR                                 
030279,001258: 11,2161           03000                                    RTX2                                  
030280,001259: 11,2162           00263                                    MOONFLAG                              
030281,001260: 11,2163           43030                           BHIZ     SET                                   
030282,001261: 

Page 692

030284,001263: 11,2164           22166                                    INITVEL5                              
030285,001264: 11,2165           00063                                    MOONFLAG                              
030286,001265: 11,2166           77775        INITVEL5           VLOAD                                          
030287,001266: 11,2167           02314                                    RINIT                                 
030288,001267: 11,2170           02655                           STORE    R1VEC                                 
030289,001268: 11,2171           25535                           STOVL    RCV                                   
030290,001269: 11,2172           02330                                    VIPRIME                               
030291,001270: 11,2173           15543                           STODL    VCV                                   
030292,001271: 11,2174           03610                                    INTIME                                
030293,001272: 11,2175           01517                           STORE    TET                                   
030294,001273: 11,2176           43015                           DAD      CLEAR                                 
030295,001274: 11,2177           03452                                    DELLT4                                
030296,001275: 11,2200           01673                                    INTYPFLG                              
030297,001276: 11,2201           34041                           STCALL   TDEC1                                 
030298,001277: 11,2202           27145                                    INTEGRVS                              
030299,001278: 11,2203           77775                           VLOAD                                          
030300,001279: 11,2204           00025                                    VATT1                                 
030301,001280: 11,2205           02703                           STORE    VTARGET                               
030302,001281: 
030303,001282:                                                                                                  #   IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
030304,001283:                                                                                                  #  INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
030305,001284: 
030306,001285: 11,2206           63154                           LXA,2    INCR,2                                
030307,001286: 11,2207           03616                                    ITCTR                                 
030308,001287: 11,2210           00001                                    1D                                    #  INCREMENT ITCTR
030309,001288: 11,2211           55134                           SXA,2    XSU,2                                 
030310,001289: 11,2212           03616                                    ITCTR                                 
030311,001290: 11,2213           02701                                    VTARGTAG                              
030312,001291: 11,2214           46135                           SLOAD    BHIZ                                  #  IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
030313,001292: 11,2215           00050                                    X2                                    
030314,001293: 11,2216           22230                                    INITVEL6                              
030315,001294: 
030316,001295:                                                                                                  #  OFFSET CONIC TARGET VECTOR
030317,001296: 
030318,001297: 11,2217           52375                           VLOAD    VSU                                   
030319,001298: 11,2220           03472                                    RTARG1                                
030320,001299: 11,2221           00017                                    RATT1                                 
030321,001300: 11,2222           77655                           VAD                                            
030322,001301: 11,2223           02663                                    R2VEC                                 
030323,001302: 11,2224           16663                           STODL    R2VEC                                 
030324,001303: 11,2225           03667                                    COZY4                                 
030325,001304: 11,2226           77650                           GOTO                                           
030326,001305: 11,2227           22062                                    INITVEL2                              #  CONTINUE ITERATING AT INITVEL2
030327,001306: 
030328,001307:                                                                                                  #  COMPUTE THE DELTA VELOCITY
030329,001308: 
030330,001309: 11,2230           77775        INITVEL6           VLOAD                                          
030331,001310: 11,2231           02663                                    R2VEC                                 
030332,001311: 11,2232           03472                           STORE    RTARG1                                
030333,001312: 11,2233           52375        INITVEL7           VLOAD    VSU                                   
030334,001313: 11,2234           02330                                    VIPRIME                               
030335,001314: 11,2235           02322                                    VINIT                                 

Page 693

030337,001316: 11,2236           26357                           STOVL    DELVEET3                              #  DELVEET3 = VIPRIME-VINIT (+7)
030338,001317: 11,2237           02703                                    VTARGET                               
030339,001318: 11,2240           03566                           STORE    VTPRIME                               
030340,001319: 11,2241           46135                           SLOAD    BHIZ                                  
030341,001320: 11,2242           03000                                    RTX2                                  
030342,001321: 11,2243           22260                                    INITVELX                              
030343,001322: 11,2244           70575                           VLOAD    VSR2                                  
030344,001323: 11,2245           03566                                    VTPRIME                               
030345,001324: 11,2246           27566                           STOVL    VTPRIME                               
030346,001325: 11,2247           02330                                    VIPRIME                               
030347,001326: 11,2250           77742                           VSR2                                           
030348,001327: 11,2251           26330                           STOVL    VIPRIME                               
030349,001328: 11,2252           03472                                    RTARG1                                
030350,001329: 11,2253           77742                           VSR2                                           
030351,001330: 11,2254           27472                           STOVL    RTARG1                                
030352,001331: 11,2255           02357                                    DELVEET3                              
030353,001332: 11,2256           77742                           VSR2                                           
030354,001333: 11,2257           02357                           STORE    DELVEET3                              
030355,001334: 11,2260           70750        INITVELX           LXA,1    DLOAD*                                
030356,001335: 11,2261           02776                                    RTX1                                  
030357,001336: 11,2262           10003                                    MUTABLE    -2,1                       
030358,001337: 11,2263           41206                           PUSH     DMP                                   
030359,001338: 11,2264           02742                                    R1A                                   
030360,001339: 11,2265           56342                           SR1      DDV                                   
030361,001340: 11,2266           00041                                    R1                                    
030362,001341: 11,2267           17721                           STODL    MU/A                                  
030363,001342: 11,2270           77661                           SR                                             
030364,001343: 11,2271           20607                                    6                                     
030365,001344: 11,2272           03717                           STORE    MUASTEER                              
030366,001345: 11,2273           77201                           SETPD    VLOAD                                 
030367,001346: 11,2274           00001                                    0D                                    
030368,001347: 11,2275           03472                                    RTARG1                                
030369,001348: 11,2276           03444                           STORE    RTARG                                 
030370,001349: 11,2277           52014                           CLEAR    GOTO                                  
030371,001350: 11,2300           01267                                    XDELVFLG                              
030372,001351: 11,2301           03463                                    NORMEX                                
030373,001352: 
030374,001353:                                                                                                  #  ..... END OF INITVEL ROUTINE .....
030375,001354: 

Page 694

030377,001356:                                                                                                  #  ..... MIDGIM .....
030378,001357: 
030379,001358:                                                                                                  #  MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
030380,001359:                                                                                                  #   REVISION 03, 17 FEB 67
030381,001360: 
030382,001361:                                                                                                  #           IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
030383,001362:                                                                                                  #  THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
030384,001363:                                                                                                  #  DELTA VELOCITY VECTOR (0D IN PUSH LIST),  OTHERWISE
030385,001364:                                                                                                  #  MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
030386,001365:                                                                                                  #  ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
030387,001366: 
030388,001367:                                                                                                  #    .. INPUTS ..
030389,001368: 
030390,001369:                                                                                                  #       NAME      MEANING                              UNITS/SCALING/MODE
030391,001370: 
030392,001371:                                                                                                  #     AVFLAG  INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE             BIT
030393,001372:                                                                                                  #     RINIT   ACTIVE VEHICLE RADIUS VECTOR            METERS/CSEC (+7) VT
030394,001373:                                                                                                  #     VINIT   ACTIVE VEHICLE VELOCITY VECTOR          METERS/CSEC (+7) VT
030395,001374:                                                                                                  #     0D(PL)  ACTIVE VEHICLE DELTA VELOCITY VECTOR    METERS/CSEC (+7) VT
030396,001375: 
030397,001376:                                                                                                  #   .. OUTPUTS ..
030398,001377: 
030399,001378:                                                                                                  #     NAME        MEANING                                UNITS/SCALING/MODE
030400,001379: 
030401,001380:                                                                                                  #      +MGA  + MIDDLE GIMBAL ANGLE                   REVOLUTIONS (+0) DP
030402,001381:                                                                                                  #    DELVLVC DELTA VELOCITY VECTOR IN LV COORD.      METERS/CSEC (+7) VT
030403,001382:                                                                                                  #   MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP.   -   BIT
030404,001383: 
030405,001384:                                                                                                  #   .. CALLING SEQUENCE ..
030406,001385: 
030407,001386:                                                                                                  #  L       CALL
030408,001387:                                                                                                  #  L+1             MIDGIM
030409,001388:                                                                                                  #  L+2     (RETURN - ALWAYS)
030410,001389: 
030411,001390:                                                                                                  #    .. NO SUBROUTINES CALLED ..
030412,001391: 
030413,001392:                                                                                                  #    .. DEBRIS - ERASEABLE TEMPORARY USAGE
030414,001393: 
030415,001394:                                                                                                  #         A,Q,L, PUSH LIST, MPAC.
030416,001395: 
030417,001396:                                                                                                  #    .. ALARMS - NONE ..
030418,001397: 

Page 695

030420,001399:                                                                                                  #  MIDDLE GIMBAL ANGLE COMPUTATION.
030421,001400: 
030422,001401: 22,2000                                           SETLOC   MIDDGIM                               
030423,001402: 22,2000                                           BANK                                           
030424,001403: 
030425,001404: 22,3242                                           COUNT*   $$/MIDG                               
030426,001405: 
030427,001406: 22,3242           20000 00000  HALFREV            2DEC     1          B-1                        
030428,001407: 21,2000                                           SETLOC   MIDDGIM1                              
030429,001408: 21,2000                                           BANK                                           
030430,001409: 21,2006                                           COUNT*   $$/MIDG                               
030431,001410: 
030432,001411: 21,2006           53575        GET+MGA            VLOAD    UNIT                                  #  (PL 0D) V (+7) TO MPAC, UNITIZE  UV (+1)
030433,001412: 21,2007           77656                           UNIT                                           
030434,001413: 21,2010           72441                           DOT      SL1                                   #  DOT UV WITH Y(STABLE MEMBER) AND RESCALE
030435,001414: 21,2011           01740                                    REFSMMAT   +6                         #   FROM +2 TO +1 FOR ASIN ROUTINE
030436,001415: 21,2012           51136                           ARCSIN   BPL                                   
030437,001416: 21,2013           42017                                    SETMGA                                
030438,001417: 21,2014           43215                           DAD      DAD                                   #  CONVERT -MGA TO +MGA BY
030439,001418: 21,2015           05243                                    HALFREV                               #  ADDING ONE REVOLUTION
030440,001419: 21,2016           05243                                    HALFREV                               
030441,001420: 21,2017           02244        SETMGA             STORE    +MGA                                  
030442,001421: 21,2020           43414                           CLR      RVQ                                   #  CLEAR MGLVFLAG TO INDICATE +MGA CALC
030443,001422: 21,2021           02675                                    MGLVFLAG                              #      AND EXIT
030444,001423: 21,2022           53575        GET.LVC            VLOAD    UNIT                                  #  (PL 6D)   R (+29) IN MPAC, UNITIZE UR
030445,001424: 21,2023           02314                                    RINIT                                 
030446,001425: 21,2024           77676                           VCOMP                                          #  U(-R)
030447,001426: 21,2025           00023                           STORE    18D                                   #  U(-R) TO 18D
030448,001427: 21,2026           53435                           VXV      UNIT                                  #  U(-R)*V EQ V*U(R), U(V*R)
030449,001428: 21,2027           02322                                    VINIT                                 
030450,001429: 21,2030           00015                           STORE    12D                                   #  U(V*R) TO 12D
030451,001430: 21,2031           53435                           VXV      UNIT                                  #  U(V*R)*U(-R), U((V*R)*(-R))
030452,001431: 21,2032           00023                                    18D                                   
030453,001432: 21,2033           24007                           STOVL    6D                                    #  TRANSFORMATION MATRIX IS IN 6D (+1)
030454,001433: 21,2034           00001                                    0D                                    #  DELTA V (+7) IN 0D
030455,001434: 21,2035           76521                           MXV      VSL1                                  #  CONVERT FROM INER COOR TO LV COOR (+8)
030456,001435: 21,2036           00007                                    6D                                    #   AND SCALE +7 IN MPAC
030457,001436: 21,2037           03434                           STORE    DELVLVC                               #  STORE IN DELVLVC (+7)
030458,001437: 21,2040           43414                           SET      RVQ                                   #  SET MGLVFLAG TO INDICATE LVC CALC
030459,001438: 21,2041           02475                                    MGLVFLAG                              #      AND EXIT
030460,001439:                                                                                                  #        ..... END OF MIDGIM ROUTINE .....
030461,001440: 

Page 696

030463,001442: 10,2000                                           BANK     10                                    
030464,001443: 10,2000                                           SETLOC   SLCTMU                                
030465,001444: 10,2000                                           BANK                                           
030466,001445: 10,2000                                           COUNT*   $$/MIDG                               
030467,001446: 
030468,001447: 10,2000           77160        SELECTMU           AXC,1    AXT,2                                 
030469,001448: 10,2001           00002                                    2D                                    
030470,001449: 10,2002           00000                                    0D                                    
030471,001450: 10,2003           77614                           BOFF                                           
030472,001451: 10,2004           04343                                    CMOONFLG                              
030473,001452: 10,2005           20011                                    SETMUER                               
030474,001453: 10,2006           77160                           AXC,1    AXT,2                                 
030475,001454: 10,2007           00012                                    10D                                   
030476,001455: 10,2010           00002                                    2D                                    
030477,001456: 10,2011           66143        SETMUER            DLOAD*   SXA,1                                 
030478,001457: 10,2012           10011                                    MUTABLE    +4,1                       
030479,001458: 10,2013           02776                                    RTX1                                  
030480,001459: 10,2014           22310                           STODL*   RTSR1/MU                              
030481,001460: 10,2015           10003                                    MUTABLE    -2,1                       
030482,001461: 10,2016           54214                           BOFF     SR                                    
030483,001462: 10,2017           04343                                    CMOONFLG                              
030484,001463: 10,2020           20022                                    RTRNMU                                
030485,001464: 10,2021           20607                                    6D                                    
030486,001465: 10,2022           02312        RTRNMU             STORE    RTMU                                  
030487,001466: 10,2023           43134                           SXA,2    CLEAR                                 
030488,001467: 10,2024           02777                                    RTX2                                  
030489,001468: 10,2025           01271                                    FINALFLG                              
030490,001469: 10,2026           77650                           GOTO                                           
030491,001470: 10,2027           73516                                    VN1645                                
030492,001471: 

Page 697

030494,001473:                                                                                                  #  ..... PERIAPO .....
030495,001474: 
030496,001475:                                                                                                  #  MOD NO -1       LOG SECTION - P34-P35, P74-P75
030497,001476:                                                                                                  #  MOD BY WHITE.P  DATE 18JAN68
030498,001477: 
030499,001478:                                                                                                  #  FUNCTIONAL DESCRIPTION
030500,001479: 
030501,001480:                                                                                                  #        THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
030502,001481:                                                                                                  #        ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
030503,001482:                                                                                                  #        THE TRAJECTORY AND THE PRIMARY BODY.
030504,001483: 
030505,001484:                                                                                                  #        SETRAD IS CALLED TO  DETERMINE THE RADIUS OF THE PRIMARY BODY.
030506,001485: 
030507,001486:                                                                                                  #        APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
030508,001487:                                                                                                  #        PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
030509,001488: 
030510,001489:                                                                                                  #  CALLING SEQUENCE
030511,001490: 
030512,001491:                                                                                                  #        L         CALL
030513,001492:                                                                                                  #        L+1               PERIAPO
030514,001493:                                                                                                  #        L+2       (RETURN - ALWAYS)
030515,001494: 
030516,001495:                                                                                                  #  INPUT
030517,001496: 
030518,001497:                                                                                                  #        (1) RVEC     POSITION VECTOR IN METERS
030519,001498:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030520,001499:                                                                                                  #        (2) VVEC     VELOCITY VECTOR IN METERS/CENTISECOND
030521,001500:                                                                                                  #                     SCALE FACTOR - EARTH +7, MOON +5
030522,001501:                                                                                                  #        (3) X1       PRIMARY BODY INDICATOR
030523,001502:                                                                                                  #                     EARTH -2, MOON -10
030524,001503: 
030525,001504:                                                                                                  #  OUTPUT
030526,001505: 
030527,001506:                                                                                                  #        (1) 2D       APOCENTER RADIUS IN METERS
030528,001507:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030529,001508:                                                                                                  #        (2) 4D       APOCENTER ALTITUDE IN METERS
030530,001509:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON P27
030531,001510:                                                                                                  #        (3) 6D       PERICENTER RADIUS IN METERS
030532,001511:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030533,001512:                                                                                                  #        (4) 8D       PERICENTER ALTITUDE IN METERS
030534,001513:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030535,001514:                                                                                                  #        (5) ECC      ECCENTRICITY OF CONIC TRAJECTORY
030536,001515:                                                                                                  #                     SCALE FACTOR - +3
030537,001516:                                                                                                  #        (6) XXXALT   RADIUS OF THE PRIMARY BODY IN METERS
030538,001517:                                                                                                  #                     SCALE FACTOR - EARTH +29, MOON +27
030539,001518:                                                                                                  #        (7) PUSHLOC  EQUALS 10D
030540,001519: 
030541,001520:                                                                                                  #  SUBROUTINES USED
030542,001521: 
030543,001522:                                                                                                  #        SETRAD
030544,001523: 

Page 698

030546,001525:                                                                                                  #        APSIDES
030547,001526: 
030548,001527: 23,2000                                           SETLOC   APOPERI                               
030549,001528: 23,2000                                           BANK                                           
030550,001529: 
030551,001530: 23,2335                                           COUNT*   $$/PERAP                              
030552,001531: 
030553,001532: 23,2335           00302 17755  RPAD               2DEC     6373338    B-29                       #  STANDARD RADIUS  OF PAD 37-B.
030554,001533:                                                                                                  #  = 20 909 901.57 FT
030555,001534: 
030556,001535: 23,2337           53754        PERIAPO1           LXA,2    VSR*                                  
030557,001536: 23,2340           02777                                    RTX2                                  
030558,001537: 23,2341           57176                                    0,2                                   
030559,001538: 23,2342           26744                           STOVL    VVEC                                  
030560,001539: 23,2343           53750                           LXA,1    VSR*                                  
030561,001540: 23,2344           02776                                    RTX1                                  
030562,001541: 23,2345           57176                                    0,2                                   
030563,001542: 23,2346           02655                           STORE    RVEC                                  
030564,001543: 23,2347           45020        PERIAPO            STQ      CALL                                  
030565,001544: 23,2350           03463                                    NORMEX                                
030566,001545: 23,2351           46365                                    SETRAD                                
030567,001546: 23,2352           37671                           STCALL   XXXALT                                
030568,001547: 23,2353           25704                                    APSIDES                               
030569,001548: 23,2354           41401                           SETPD    PUSH                                  #  2D = APOCENTER RADIUS   B29 OR B27
030570,001549: 23,2355           00003                                    2D                                    
030571,001550: 23,2356           65225                           DSU      PDDL                                  #  4D = APOGEE ALTITUDE    B29 OR B27
030572,001551: 23,2357           03671                                    XXXALT                                
030573,001552: 23,2360           00001                                    0D                                    
030574,001553: 23,2361           45206                           PUSH     DSU                                   #  6D = PERICENTER RADIUS  B29 OR B27
030575,001554: 23,2362           03671                                    XXXALT                                
030576,001555: 23,2363           52006                           PUSH     GOTO                                  #  8D = PERIGEE ALTITUDE   B29 OR B27
030577,001556: 23,2364           03463                                    NORMEX                                
030578,001557: 

Page 699

030580,001559:                                                                                                  #  SETRAD
030581,001560: 
030582,001561: 23,2365           41545        SETRAD             DLOAD    PUSH                                  
030583,001562: 23,2366           06336                                    RPAD                                  
030584,001563: 23,2367           63130                           SXA,1    INCR,2                                
030585,001564: 23,2370           00047                                    X2                                    
030586,001565: 23,2371           00002                                    2D                                    
030587,001566: 23,2372           46135                           SLOAD    BHIZ                                  
030588,001567: 23,2373           00050                                    X2                                    
030589,001568: 23,2374           46400                                    SETRADX                               
030590,001569: 23,2375           51575                           VLOAD    ABVAL                                 
030591,001570: 23,2376           02021                                    RLS                                   
030592,001571: 23,2377           77725                           PDDL                                           
030593,001572: 23,2400           43545        SETRADX            DLOAD    RVQ                                   
030594,001573: 

Page 700

030596,001575:                                                                                                  #  PRECSET
030597,001576: 
030598,001577: 23,2401           77620        PRECSET            STQ                                            
030599,001578: 23,2402           03463                                    NORMEX                                
030600,001579: 23,2403           37574                           STCALL   TDEC2                                 
030601,001580: 23,2404           27115                                    LEMPREC                               
030602,001581: 23,2405           77624                           CALL                                           
030603,001582: 23,2406           46417                                    LEMSTORE                              
030604,001583: 23,2407           77745                           DLOAD                                          
030605,001584: 23,2410           03574                                    TDEC2                                 
030606,001585: 23,2411           34041                           STCALL   TDEC1                                 
030607,001586: 23,2412           27101                                    CSMPREC                               
030608,001587: 23,2413           77624                           CALL                                           
030609,001588: 23,2414           46427                                    CSMSTORE                              
030610,001589: 23,2415           77650                           GOTO                                           
030611,001590: 23,2416           03463                                    NORMEX                                
030612,001591: 23,2417           43175        LEMSTORE           VLOAD    BOFF                                  
030613,001592: 23,2420           00001                                    RATT                                  
030614,001593: 23,2421           01352                                    AVFLAG                                
030615,001594: 23,2422           46433                                    PASSIVE                               
030616,001595: 23,2423           27536        ACTIVE             STOVL    RACT3                                 
030617,001596: 23,2424           00007                                    VATT                                  
030618,001597: 23,2425           03544                           STORE    VACT3                                 
030619,001598: 23,2426           77616                           RVQ                                            
030620,001599: 23,2427           43175        CSMSTORE           VLOAD    BOFF                                  
030621,001600: 23,2430           00001                                    RATT                                  
030622,001601: 23,2431           01352                                    AVFLAG                                
030623,001602: 23,2432           46423                                    ACTIVE                                
030624,001603: 23,2433           27552        PASSIVE            STOVL    RPASS3                                
030625,001604: 23,2434           00007                                    VATT                                  
030626,001605: 23,2435           03560                           STORE    VPASS3                                
030627,001606: 23,2436           77616                           RVQ                                            
030628,001607: 

Page 701

030630,001609:                                                                                                  #  VECSHIFT
030631,001610: 
030632,001611: 23,2437           53754        VECSHIFT           LXA,2    VSR*                                  
030633,001612: 23,2440           02777                                    RTX2                                  
030634,001613: 23,2441           57176                                    0,2                                   
030635,001614: 23,2442           63350                           LXA,1    PDVL                                  
030636,001615: 23,2443           02776                                    RTX1                                  
030637,001616: 23,2444           63257                           VSR*     PDVL                                  
030638,001617: 23,2445           57176                                    0,2                                   
030639,001618: 23,2446           77616                           RVQ                                            
030640,001619: 

Page 702

030642,001621:                                                                                                  #  SHIFTR1
030643,001622: 
030644,001623: 23,2447           53754        SHIFTR1            LXA,2    SL*                                   
030645,001624: 23,2450           02777                                    RTX2                                  
030646,001625: 23,2451           57576                                    0,2                                   
030647,001626: 23,2452           77616                           RVQ                                            
030648,001627: 

Page 703

030650,001629:                                                                                                  #  PROGRAM DESCRIPTION
030651,001630:                                                                                                  #  SUBROUTINE NAME        R36     OUT-OF-PLANE RENDEZVOUS ROUTINE
030652,001631:                                                                                                  #  MOD NO.  0                          DATE      22 DECEMBER 67
030653,001632:                                                                                                  #  MOD BY   N.M.NEVILLE                LOG SECTION  EXTENDED VERBS
030654,001633:                                                                                                  #  FUNCTIONAL DESCRIPTION
030655,001634: 
030656,001635:                                                                                                  #  TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
030657,001636:                                                                                                  #  OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
030658,001637: 
030659,001638:                                                                                                  #  CALLING SEQUENCE
030660,001639: 
030661,001640:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY  V 90 E
030662,001641: 
030663,001642:                                                                                                  #  SUBROUTINES CALLED
030664,001643: 
030665,001644:                                                                                                  #  EXDSPRET
030666,001645:                                                                                                  #  GOMARKF
030667,001646:                                                                                                  #  CSMPREC
030668,001647:                                                                                                  #  LEMPREC
030669,001648:                                                                                                  #  SGNAGREE
030670,001649:                                                                                                  #  LOADTIME
030671,001650: 
030672,001651:                                                                                                  #  NORMAL EXIT MODES
030673,001652: 
030674,001653:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
030675,001654: 
030676,001655:                                                                                                  #  ALARM OR ABORT EXIT MODES
030677,001656: 
030678,001657:                                                                                                  #  NONE
030679,001658: 
030680,001659:                                                                                                  #  OUTPUT
030681,001660: 
030682,001661:                                                                                                  #  DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
030683,001662: 
030684,001663:                                                                                                  #  DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
030685,001664:                                                                                                  #  REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
030686,001665: 
030687,001666:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
030688,001667:                                                                                                  #  CSM AND LEM STATE VECTORS
030689,001668: 
030690,001669:                                                                                                  #  DEBRIS
030691,001670: 
030692,001671:                                                                                                  #  CENTRALS A,Q,L
030693,001672: 
030694,001673:                                                                                                  #  OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
030695,001674: 
030696,001675: 20,2115                                           BANK     20                                    
030697,001676: 04,2000                                           SETLOC   R36LM                                 
030698,001677: 04,2000                                           BANK                                           
030699,001678: 

Page 704

030701,001680: 04,2677  E7,1441                                  EBANK=   TIG                                   
030702,001681: 04,2677                                           COUNT*   $$/R36                                
030703,001682: 
030704,001683: 04,2677           00006        R36                EXTEND                                         
030705,001684: 04,2700           31442                           DCA      TIG                                   #  SET TIME-OF-EVENT TO TIG FOR NOMINAL
030706,001685: 04,2701           53051                           DXCH     DSPTEMX                               #  DISPLAY
030707,001686: 04,2702           33012                           CAF      V06N16N                               
030708,001687: 04,2703           04607                           TC       BANKCALL                              
030709,001688: 04,2704           20323                           CADR     GOMARKF                               
030710,001689: 04,2705           15474                           TCF      ENDEXT                                #  TERMINATE
030711,001690: 04,2706           12710                           TCF      +2                                    #  PROCEED
030712,001691: 04,2707           12702                           TCF      -5                                    #  RECYCLE FOR ASTRONAUT INPUT TIME
030713,001692: 04,2710           06060                           TC       INTPRET                               
030714,001693: 04,2711           53145                           DLOAD    BZE                                   
030715,001694: 04,2712           01051                                    DSPTEMX                               
030716,001695: 04,2713           11007                                    GETNOW                                #  ASTOR-LOADED ZERO, GET PRES TIME
030717,001696: 04,2714           34041        R36INT             STCALL   TDEC1                                 
030718,001697: 04,2715           27101                                    OTHPREC                               
030719,001698: 04,2716           63375                           VLOAD    PDVL                                  
030720,001699: 04,2717           00007                                    VATT                                  
030721,001700: 04,2720           00001                                    RATT                                  #  -
030722,001701: 04,2721           02200                           STORE    RPASS36                               #  R
030723,001702: 04,2722           63256                           UNIT     PDVL                                  #   P
030724,001703: 04,2723           53435                           VXV      UNIT                                  #  -
030725,001704: 04,2724           77626                           STADR                                          
030726,001705: 04,2725           61571                           STODL    UNP36                                 #  U
030727,001706: 04,2726           00015                                    TAT                                   
030728,001707: 04,2727           34041                           STCALL   TDEC1                                 
030729,001708: 04,2730           27115                                    THISPREC                              
030730,001709: 04,2731           63375                           VLOAD    PDVL                                  #                   -
030731,001710: 04,2732           00007                                    VATT                                  #  VELOCITY VECTOR  V               00D
030732,001711: 04,2733           00001                                    RATT                                  #                    A
030733,001712: 04,2734           41406                           PUSH     PUSH                                  #  POSITION VECTOR  R   IN  06D AND 12D
030734,001713: 04,2735           63245                           BVSU     PDVL                                  #                    A   -   -
030735,001714: 04,2736           02200                                    RPASS36                               #  LINE OF SIGHT VECTOR  R - R      12D
030736,001715: 04,2737           72441                           DOT      SL1                                   #                         P   A
030737,001716: 04,2740           02206                                    UNP36                                 #      -   -
030738,001717: 04,2741           26172                           STOVL    YLEM                                  
030739,001718: 04,2742           00001                                    00D                                   #           A
030740,001719: 04,2743           72441                           DOT      SL1                                   
030741,001720: 04,2744           02206                                    UNP36                                 #  .   -   -
030742,001721: 04,2745           26174                           STOVL    YDOTLEM                               
030743,001722: 04,2746           00007                                    06D                                   #  -      A   -
030744,001723: 04,2747           41456                           UNIT     PUSH                                  #  U  = UNIT( R  )                  18D
030745,001724: 04,2750           47235                           VXV      VXV                                   #   RA          A
030746,001725: 04,2751           00001                                    00D                                   #   -    -     -    -
030747,001726: 04,2752           00023                                    18D                                   #  (U  X V ) X U   =U
030748,001727: 04,2753           53552                           VSL2     UNIT                                  #    RA   A     RA    A
030749,001728: 04,2754           77656                           UNIT                                           
030750,001729: 04,2755           24001                           STOVL    00D                                   #  UNIT HORIZONTAL IN FORWARD DIR.  00D
030751,001730: 

Page 705

030753,001732: 04,2756           00023                                    18D                                   
030754,001733: 04,2757           74241                           DOT      VXSC                                  #  -
030755,001734: 04,2760           00015                                    12D                                   #  U
030756,001735: 04,2761           77752                           VSL2                                           #   L
030757,001736: 04,2762           53445                           BVSU     UNIT                                  
030758,001737: 04,2763           77656                           UNIT                                           
030759,001738: 04,2764           50206                           PUSH     DOT                                   #  LOS PROJECTED INTO HORIZONTAL    12D
030760,001739: 04,2765           00001                                    00D                                   #  PLANE
030761,001740: 04,2766           65552                           SL1      ARCCOS                                #               -   -
030762,001741: 04,2767           26176                           STOVL    PHILEM                                
030763,001742: 04,2770           50235                           VXV      DOT                                   #                A   L
030764,001743: 04,2771           00001                                    00D                                   
030765,001744: 04,2772           71244                           BPL      DLOAD                                 
030766,001745: 04,2773           11000                                    R36TAG2                               
030767,001746: 04,2774           24020                                    LODPMAX                               
030768,001747: 04,2775           77625                           DSU                                            
030769,001748: 04,2776           02176                                    PHILEM                                
030770,001749: 04,2777           02176                           STORE    PHILEM                                
030771,001750: 04,3000           77776        R36TAG2            EXIT                                           
030772,001751: 04,3001           33013                           CAF      V06N90N                               #   DISPLAY Y , YDOT , AND PSI
030773,001752: 04,3002           04607                           TC       BANKCALL                              
030774,001753: 04,3003           20323                           CADR     GOMARKF                               
030775,001754: 04,3004           15474                           TCF      ENDEXT                                #  TERMINATE
030776,001755: 04,3005           15474                           TCF      ENDEXT                                #  PROCEED , END OF PROGRAM
030777,001756: 04,3006           12677                           TCF      R36                                   #  RECYCLE, TIG OR ASTRO-OPTION
030778,001757: 04,3007           52034        GETNOW             RTB      GOTO                                  #  ASTRO-SELECTED PRESENT TIME
030779,001758: 04,3010           21603                                    LOADTIME                              
030780,001759: 04,3011           10714                                    R36INT                                
030781,001760: 04,3012           01420        V06N16N            VN       00616                                 
030782,001761: 04,3013           01532        V06N90N            VN       00690                                 

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