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.

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

Page 661

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

Page 662

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

Page 663

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

Page 664

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

Page 665

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

Page 666

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

Page 667

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

Page 668

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

Page 669

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

Page 670

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

Page 671

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

Page 672

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

Page 673

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

Page 674

029689,000676: 35,3210           06505                                    ZEROVECS                              
029690,000677: 35,3211           03463                                    NORMEX                                
029691,000678: 

Page 675

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

Page 676

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

Page 677

029762,000749: 35,3302           03544                                    VACT3                                 
029763,000750: 35,3303           36322                           STCALL   VINIT                                 
029764,000751: 35,3304           22000                                    INITVEL                               
029765,000752: 35,3305           77624                           CALL                                           
029766,000753: 35,3306           73365                                    LOMAT                                 
029767,000754: 35,3307           64375                           VLOAD    MXV                                   
029768,000755: 35,3310           02357                                    DELVEET3                              
029769,000756: 35,3311           00001                                    0D                                    
029770,000757: 35,3312           77772                           VSL1                                           
029771,000758: 35,3313           37434                           STCALL   DELVLVC                               
029772,000759: 35,3314           03470                                    SUBEXIT                               
029773,000760: 

Page 678

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

Page 679

029814,000801:                                                                                                  #  ..... S34/35.4  .....
029815,000802: 
029816,000803: 35,3360           40220        S34/35.4           STQ      SETPD                                 #  NO ASTRONAUT OVERWRITE
029817,000804: 35,3361           03463                                    NORMEX                                
029818,000805: 35,3362           00001                                    0D                                    
029819,000806: 35,3363           77650                           GOTO                                           
029820,000807: 35,3364           73342                                    NOVRWRT                               
029821,000808: 

Page 680

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

Page 681

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

Page 682

029922,000909: 35,3506           73315                                    S34/35.3                              
029923,000910: 35,3507           77775        NOCHG              VLOAD                                          
029924,000911: 35,3510           02357                                    DELVEET3                              
029925,000912: 35,3511           03656                           STORE    DELVSIN                               
029926,000913: 35,3512           77624        FLAGOFF            CALL                                           
029927,000914: 35,3513           73360                                    S34/35.4                              
029928,000915: 35,3514           77650                           GOTO                                           
029929,000916: 35,3515           03470                                    SUBEXIT                               
029930,000917: 

Page 683

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

Page 684

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

Page 685

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

Page 686

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

Page 687

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

Page 688

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

Page 689

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

Page 690

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

Page 691

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

Page 692

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

Page 693

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

Page 694

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

Page 695

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

Page 696

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

Page 697

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

Page 698

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

Page 699

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

Page 700

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

Page 701

030622,001609:                                                                                                  #  VECSHIFT
030623,001610: 
030624,001611: 23,2437           53754        VECSHIFT           LXA,2    VSR*                                  
030625,001612: 23,2440           02777                                    RTX2                                  
030626,001613: 23,2441           57176                                    0,2                                   
030627,001614: 23,2442           63350                           LXA,1    PDVL                                  
030628,001615: 23,2443           02776                                    RTX1                                  
030629,001616: 23,2444           63257                           VSR*     PDVL                                  
030630,001617: 23,2445           57176                                    0,2                                   
030631,001618: 23,2446           77616                           RVQ                                            
030632,001619: 

Page 702

030634,001621:                                                                                                  #  SHIFTR1
030635,001622: 
030636,001623: 23,2447           53754        SHIFTR1            LXA,2    SL*                                   
030637,001624: 23,2450           02777                                    RTX2                                  
030638,001625: 23,2451           57576                                    0,2                                   
030639,001626: 23,2452           77616                           RVQ                                            
030640,001627: 

Page 703

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

Page 704

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

Page 705

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

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