Source Code
![]() |
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
028383,000002: ## Copyright: Public domain.
028384,000003: ## Filename: P34-35_P74-75.agc
028385,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
028386,000005: ## It is part of the source code for the Lunar Module's (LM)
028387,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
028388,000007: ## Assembler: yaYUL
028389,000008: ## Contact: Ron Burkey <info@sandroid.org>.
028390,000009: ## Website: www.ibiblio.org/apollo.
028391,000010: ## Pages: 658-702
028392,000011: ## Mod history: 2009-05-19 RSB Adapted from the corresponding
028393,000012: ## Luminary131 file, using page
028394,000013: ## images from Luminary 1A.
028395,000014: ## 2009-06-05 RSB Corrected a typo.
028396,000015: ## 2011-01-06 JL Fixed pseudo-label indentation.
028397,000016: ## 2011-01-06 JL Added missing comment characters.
028398,000017: ## 2011-05-07 JL Removed workaround.
028399,000018: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH
028400,000019: ## 2016-12-14 RSB VNP00H -> VNPOOH.
028401,000020: ## 2016-12-14 RSB Proofed text comments with octopus/ProoferComments
028402,000021: ## and corrected the errors found.
028403,000022: ## 2017-01-28 RSB Back-ported some comment fixes I noticed while
028404,000023: ## proofing Luminary 69.
028405,000024: ## 2017-03-09 RSB Comment-text fixes noted in proofing Luminary 116.
028406,000025: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
028407,000026: ## side-by-side diff of Luminary 69/99/116/131/210.
028408,000027:
028409,000028: ## This source code has been transcribed or otherwise adapted from
028410,000029: ## digitized images of a hardcopy from the MIT Museum. The digitization
028411,000030: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
028412,000031: ## the Museum. Many thanks to both. The images (with suitable reduction
028413,000032: ## in storage size and consequent reduction in image quality as well) are
028414,000033: ## available online at www.ibiblio.org/apollo. If for some reason you
028415,000034: ## find that the images are illegible, contact me at info@sandroid.org
028416,000035: ## about getting access to the (much) higher-quality images which Paul
028417,000036: ## actually created.
028418,000037: ##
028419,000038: ## Notations on the hardcopy document read, in part:
028420,000039: ##
028421,000040: ## Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
028422,000041: ## 16:27 JULY 14, 1969
028423,000042:
![]() |
Page 658 |
028425,000044: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028426,000045:
028427,000046: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028428,000047: # MOD BY WHITE.P DATE 1JUNE67
028429,000048:
028430,000049: # PURPOSE
028431,000050:
028432,000051: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028433,000052: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028434,000053: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
028435,000054:
028436,000055: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028437,000056: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028438,000057:
028439,000058: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028440,000059: # INTERCEPT TIME (TIG (TPF)).
028441,000060:
028442,000061: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028443,000062:
028444,000063: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028445,000064: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028446,000065:
028447,000066: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028448,000067: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028449,000068: # ASTRONAUT/GROUND.
028450,000069:
028451,000070: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028452,000071: # THRUSTING PROGRAM.
028453,000072:
028454,000073: # ASSUMPTIONS
028455,000074:
028456,000075: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
028457,000076: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
028458,000077: # THEREFORE -
028459,000078:
028460,000079: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
028461,000080: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
028462,000081: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
028463,000082: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
028464,000083:
028465,000084: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
028466,000085: # COMPUTED TO BE GREATER THAN 10 MINUTES.
028467,000086:
028468,000087: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
028469,000088: # ORBITS WAS MINIMIZED.
028470,000089:
028471,000090: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
028472,000091: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
![]() |
Page 659 |
028474,000093: # ORBIT OR 85 NM FOR EARTH ORBIT.
028475,000094:
028476,000095: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
028477,000096: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
028478,000097: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
028479,000098: # IN AN OUT-OF-PLANE MANEUVER.
028480,000099:
028481,000100: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
028482,000101: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
028483,000102:
028484,000103: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
028485,000104: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
028486,000105: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
028487,000106: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
028488,000107: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
028489,000108: # FLIGHT PLAN MANEUVER SEQUENCES.
028490,000109:
028491,000110: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
028492,000111: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
028493,000112: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
028494,000113: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
028495,000114: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
028496,000115: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
028497,000116: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
028498,000117: # THRUSTING MANEUVER.
028499,000118:
028500,000119: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028501,000120:
028502,000121: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028503,000122:
028504,000123: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028505,000124: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028506,000125: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
028507,000126: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028508,000127:
028509,000128: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028510,000129: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028511,000130:
028512,000131: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028513,000132: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028514,000133: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028515,000134:
028516,000135: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
028517,000136: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028518,000137: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028519,000138: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028520,000139: # THROUGH THE USE OF V06N52.
028521,000140:
028522,000141: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028523,000142: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
![]() |
Page 660 |
028525,000144: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
028526,000145: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028527,000146: # UPON DELTA V AND EXPECTED MANEUVER TIME.
028528,000147:
028529,000148: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028530,000149:
028531,000150: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
028532,000151:
028533,000152: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
028534,000153:
028535,000154: # INPUT
028536,000155:
028537,000156: # (1) TTPI TIME OF THE TPI MANEUVER
028538,000157: # (2) ELEV DESIRED LOS ANGLE AT TPI
028539,000158: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028540,000159: # TRANSFER FROM TPI TO TIME OF INTERCEPT
028541,000160:
028542,000161: # OUTPUT
028543,000162:
028544,000163: # (1) TRKMKCNT NUMBER OF MARKS
028545,000164: # (2) TTOGO TIME TO GO
028546,000165: # (3) +MGA MIDDLE GIMBAL ANGLE
028547,000166: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
028548,000167: # OR
028549,000168: # ELEV COMPUTED LOS ANGLE AT TPI
028550,000169: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
028551,000170: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
028552,000171: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
028553,000172: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
028554,000173: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
028555,000174:
028556,000175: # DOWNLINK
028557,000176:
028558,000177: # (1) TTPI TIME OF THE TPI MANEUVER
028559,000178: # (2) TIG TIME OF THE TPI MANEUVER
028560,000179: # (3) ELEV DESIRED LOS ANGLE AT TPI
028561,000180: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028562,000181: # TRANSFER FROM TPI TO TIME OF INTERCEPT
028563,000182: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
028564,000183: # (6) TPASS4 TIME OF INTERCEPT
028565,000184:
028566,000185: # COMMUNICATION TO THRUSTING PROGRAMS
028567,000186:
028568,000187: # (1) TIG TIME OF THE TPI MANEUVER
028569,000188: # (2) RTARG OFFSET TARGET POSITION
028570,000189: # (3) TPASS4 TIME OF INTERCEPT
028571,000190: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028572,000191:
028573,000192: # SUBROUTINES USED
028574,000193:
028575,000194: # AVFLAGA
![]() |
Page 661 |
028577,000196: # AVFLAGP
028578,000197: # VNPOOH
028579,000198: # DISPLAYE
028580,000199: # SELECTMU
028581,000200: # PRECSET
028582,000201: # S33/34.1
028583,000202: # ALARM
028584,000203: # BANKCALL
028585,000204: # GOFLASH
028586,000205: # GOTOPOOH
028587,000206: # TIMETHET
028588,000207: # S34/35.2
028589,000208: # PERIAPO1
028590,000209: # SHIFTR1
028591,000210: # S34/35.5
028592,000211: # VN1645
028593,000212:
028594,000213: 35,2000 SETLOC CSI/CDH
028595,000214: 35,2000 BANK
028596,000215: 35,2545 E7,1470 EBANK= SUBEXIT
028597,000216: 35,2545 COUNT* $$/P3474
028598,000217: 35,2545 02347 P34 TC AVFLAGA
028599,000218: 35,2546 02550 TC P34/P74A
028600,000219: 35,2547 02354 P74 TC AVFLAGP
028601,000220: 35,2550 02361 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
028602,000221: 35,2551 33723 CAF V06N37 # TTPI
028603,000222: 35,2552 03712 TC VNPOOH
028604,000223: 35,2553 00006 EXTEND
028605,000224: 35,2554 33746 DCA 130DEG
028606,000225: 35,2555 53621 DXCH CENTANG
028607,000226: 35,2556 32417 CAF P30ZERO
028608,000227: 35,2557 55466 TS NN
028609,000228: 35,2560 03674 TC DISPLAYE # ELEV AND CENTANG
028610,000229: 35,2561 06037 TC INTPRET
028611,000230: 35,2562 71214 CLEAR DLOAD
028612,000231: 35,2563 01270 ETPIFLAG
028613,000232: 35,2564 03636 TTPI
028614,000233: 35,2565 17442 STODL TIG
028615,000234: 35,2566 02257 ELEV
028616,000235: 35,2567 43054 BZE SET
028617,000236: 35,2570 72572 P34/P74B
028618,000237: 35,2571 01070 ETPIFLAG
028619,000238: 35,2572 77624 P34/P74B CALL
028620,000239: 35,2573 20000 SELECTMU
028621,000240: 35,2574 DELELO EQUALS 26D
028622,000241: 35,2574 43145 P34/P74C DLOAD SET
028623,000242: 35,2575 06522 ZEROVECS
028624,000243: 35,2576 03460 ITSWICH
028625,000244: 35,2577 43014 BON CLEAR
028626,000245: 35,2600 01310 ETPIFLAG
![]() |
Page 662 |
028628,000247: 35,2601 72603 SWCHSET
028629,000248: 35,2602 03660 ITSWICH
028630,000249: 35,2603 02317 SWCHSET STORE NOMTPI
028631,000250: 35,2604 43345 INTLOOP DLOAD DAD
028632,000251: 35,2605 03636 TTPI
028633,000252: 35,2606 02317 NOMTPI
028634,000253: 35,2607 34041 STCALL TDEC1
028635,000254: 35,2610 46360 PRECSET
028636,000255: 35,2611 77624 CALL
028637,000256: 35,2612 72764 S33/34.1
028638,000257: 35,2613 77454 BZE EXIT
028639,000258: 35,2614 72625 SWCHCLR
028640,000259: 35,2615 05567 TC ALARM
028641,000260: 35,2616 00611 OCT 611
028642,000261: 35,2617 35006 CAF V05N09
028643,000262: 35,2620 04616 TC BANKCALL
028644,000263: 35,2621 20476 CADR GOFLASH
028645,000264: 35,2622 06001 TC GOTOPOOH
028646,000265: 35,2623 02550 TC P34/P74A # PROCEED
028647,000266: 35,2624 02615 TC -7 # V32
028648,000267:
028649,000268: 35,2625 43014 SWCHCLR BONCLR BON
028650,000269: 35,2626 03600 ITSWICH
028651,000270: 35,2627 72604 INTLOOP
028652,000271: 35,2630 01310 ETPIFLAG
028653,000272: 35,2631 72635 P34/P74D # DISPLAY TTPI
028654,000273: 35,2632 77776 EXIT
028655,000274: 35,2633 03674 TC DISPLAYE # DISPLAY ELEV AND CENTANG
028656,000275: 35,2634 02640 TC P34/P74E
028657,000276: 35,2635 77776 P34/P74D EXIT
028658,000277: 35,2636 33723 CAF V06N37 # TTPI
028659,000278: 35,2637 03712 TC VNPOOH
028660,000279: 35,2640 06037 P34/P74E TC INTPRET
028661,000280: 35,2641 71201 SETPD DLOAD
028662,000281: 35,2642 00001 0D
028663,000282: 35,2643 02777 RTX1
028664,000283: 35,2644 14047 STODL X1
028665,000284: 35,2645 03621 CENTANG
028666,000285: 35,2646 71406 PUSH COS
028667,000286: 35,2647 16732 STODL CSTH
028668,000287: 35,2650 77756 SIN
028669,000288: 35,2651 26730 STOVL SNTH
028670,000289: 35,2652 03552 RPASS3
028671,000290: 35,2653 77657 VSR*
028672,000291: 35,2654 57176 0,2
028673,000292: 35,2655 26655 STOVL RVEC
028674,000293: 35,2656 03560 VPASS3
028675,000294: 35,2657 43057 VSR* SET
028676,000295: 35,2660 57176 0,2
028677,000296: 35,2661 03466 RVSW
![]() |
Page 663 |
028679,000298: 35,2662 36744 STCALL VVEC
028680,000299: 35,2663 24732 TIMETHET
028681,000300: 35,2664 77745 DLOAD
028682,000301: 35,2665 03636 TTPI
028683,000302: 35,2666 03610 STORE INTIME # FOR INITVEL
028684,000303: 35,2667 77615 DAD
028685,000304: 35,2670 00037 T # RENDEZVOUS TIME
028686,000305: 35,2671 37631 STCALL TPASS4 # FOR INITVEL
028687,000306: 35,2672 73306 S34/35.2
028688,000307: 35,2673 51575 VLOAD ABVAL
028689,000308: 35,2674 02366 DELVEET3
028690,000309: 35,2675 27576 STOVL DELVTPI
028691,000310: 35,2676 03506 VPASS4
028692,000311: 35,2677 51451 VSU ABVAL
028693,000312: 35,2700 03566 VTPRIME
028694,000313: 35,2701 26350 STOVL DELVTPF
028695,000314: 35,2702 03536 RACT3
028696,000315: 35,2703 45115 PDVL CALL
028697,000316: 35,2704 02337 VIPRIME
028698,000317: 35,2705 46316 PERIAPO1
028699,000318: 35,2706 77624 CALL
028700,000319: 35,2707 46426 SHIFTR1
028701,000320: 35,2710 17606 STODL POSTTPI
028702,000321: 35,2711 03636 TTPI
028703,000322: 35,2712 03442 STORE TIG
028704,000323: 35,2713 77776 EXIT
028705,000324: 35,2714 33725 CAF V06N58
028706,000325: 35,2715 03712 TC VNPOOH
028707,000326: 35,2716 06037 TC INTPRET
028708,000327: 35,2717 77624 CALL
028709,000328: 35,2720 73522 S34/35.5
028710,000329: 35,2721 77624 CALL
028711,000330: 35,2722 73606 VN1645
028712,000331: 35,2723 77650 GOTO
028713,000332: 35,2724 72574 P34/P74C
![]() |
Page 664 |
028715,000334: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
028716,000335:
028717,000336: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028718,000337: # MOD BY WHITE.P DATE 1JUNE67
028719,000338:
028720,000339: # PURPOSE
028721,000340:
028722,000341: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028723,000342: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
028724,000343: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
028725,000344: # VEHICLE RENDEZVOUS.
028726,000345:
028727,000346: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028728,000347: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028729,000348: # ASTRONAUT/GROUND.
028730,000349:
028731,000350: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
028732,000351: # THRUSTING PROGRAM.
028733,000352:
028734,000353: # ASSUMPTIONS
028735,000354:
028736,000355: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028737,000356:
028738,000357: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028739,000358: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
028740,000359:
028741,000360: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
028742,000361: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
028743,000362: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
028744,000363: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
028745,000364: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
028746,000365: # P20 AND AFTER EACH THRUSTING MANEUVER.
028747,000366:
028748,000367: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028749,000368:
028750,000369: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028751,000370: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028752,000371: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
028753,000372: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028754,000373:
028755,000374: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028756,000375: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028757,000376:
028758,000377: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028759,000378: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028760,000379: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028761,000380:
028762,000381: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
028763,000382: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
028764,000383: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
028765,000384:
![]() |
Page 665 |
028767,000386: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
028768,000387: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028769,000388: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028770,000389: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028771,000390: # THROUGH THE USE OF V06N52.
028772,000391:
028773,000392: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028774,000393: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
028775,000394: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
028776,000395: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028777,000396: # UPON DELTA V AND EXPECTED MANEUVER TIME.
028778,000397:
028779,000398: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028780,000399:
028781,000400: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
028782,000401:
028783,000402: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
028784,000403:
028785,000404: # INPUT
028786,000405:
028787,000406: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
028788,000407:
028789,000408: # OUTPUT
028790,000409:
028791,000410: # (1) TRKMKCNT NUMBER OF MARKS
028792,000411: # (2) TTOGO TIME TO GO
028793,000412: # (3) +MGA MIDDLE GIMBAL ANGLE
028794,000413: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
028795,000414: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
028796,000415:
028797,000416: # DOWNLINK
028798,000417:
028799,000418: # (1) TIG TIME OF THE TPM MANEUVER
028800,000419: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
028801,000420: # (3) TPASS4 TIME OF INTERCEPT
028802,000421:
028803,000422: # COMMUNICATION TO THRUSTING PROGRAMS
028804,000423:
028805,000424: # (1) TIG TIME OF THE TPM MANEUVER
028806,000425: # (2) RTARG OFFSET TARGET POSITION
028807,000426: # (3) TPASS4 TIME OF INTERCEPT
028808,000427: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028809,000428:
028810,000429: # SUBROUTINES USED
028811,000430:
028812,000431: # AVFLAGA
028813,000432: # AVFLAGP
028814,000433: # LOADTIME
028815,000434: # SELECTMU
028816,000435: # PRECSET
028817,000436: # S34/35.1
028818,000437: # S34/35.2
![]() |
Page 666 |
028820,000439: # S34/35.5
028821,000440: # VN1645
028822,000441:
028823,000442: 35,2725 COUNT* $$/P3575
028824,000443: 35,2725 E7,1575 EBANK= KT
028825,000444:
028826,000445: 35,2725 02347 P35 TC AVFLAGA
028827,000446: 35,2726 00006 EXTEND
028828,000447: 35,2727 31401 DCA ATIGINC
028829,000448: 35,2730 02734 TC P35/P75A
028830,000449: 35,2731 02354 P75 TC AVFLAGP
028831,000450: 35,2732 00006 EXTEND
028832,000451: 35,2733 31403 DCA PTIGINC
028833,000452: 35,2734 53576 P35/P75A DXCH KT
028834,000453: 35,2735 02361 TC P20FLGON # SET UPDATFLG, TRACKFLG
028835,000454: 35,2736 06037 TC INTPRET
028836,000455: 35,2737 77624 CALL
028837,000456: 35,2740 20000 SELECTMU
028838,000457: 35,2741 77634 P35/P75B RTB
028839,000458: 35,2742 21573 LOADTIME
028840,000459: 35,2743 03612 STORE TSTRT
028841,000460: 35,2744 77615 DAD
028842,000461: 35,2745 03576 KT
028843,000462: 35,2746 03442 STORE TIG
028844,000463: 35,2747 03610 STORE INTIME # FOR INITVEL
028845,000464: 35,2750 34041 STCALL TDEC1
028846,000465: 35,2751 46360 PRECSET # ADVANCE BOTH VEHICLES
028847,000466: 35,2752 77624 CALL
028848,000467: 35,2753 73274 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
028849,000468: 35,2754 77624 CALL
028850,000469: 35,2755 73306 S34/35.2 # GET DELTA V(LV)
028851,000470: 35,2756 77624 CALL
028852,000471: 35,2757 73522 S34/35.5
028853,000472: 35,2760 77624 CALL
028854,000473: 35,2761 73606 VN1645
028855,000474: 35,2762 77650 GOTO
028856,000475: 35,2763 72741 P35/P75B
![]() |
Page 667 |
028858,000477: # ..... S33/34.1 .....
028859,000478:
028860,000479: 35,2764 66220 S33/34.1 STQ SSP
028861,000480: 35,2765 03463 NORMEX
028862,000481: 35,2766 03614 TITER
028863,000482: 35,2767 40000 OCT 40000
028864,000483: 35,2770 40345 DLOAD SETPD
028865,000484: 35,2771 33734 MAX250
028866,000485: 35,2772 00001 0D
028867,000486: 35,2773 27574 STOVL SECMAX
028868,000487: 35,2774 03536 RACT3
028869,000488: 35,2775 27500 STOVL RAPREC
028870,000489: 35,2776 03544 VACT3
028871,000490: 35,2777 27506 STOVL VAPREC
028872,000491: 35,3000 03552 RPASS3
028873,000492: 35,3001 27522 STOVL RPPREC
028874,000493: 35,3002 03560 VPASS3
028875,000494: 35,3003 03530 STORE VPPREC
028876,000495: 35,3004 77624 ELCALC CALL
028877,000496: 35,3005 73274 S34/35.1 # NORMAL AND LOS
028878,000497: 35,3006 63235 VXV PDVL
028879,000498: 35,3007 03536 RACT3 # (RA*VA)*RA 0D
028880,000499: 35,3010 53515 PDVL UNIT # ULOS AT 6D
028881,000500: 35,3011 03536 RACT3
028882,000501: 35,3012 46315 PDVL VPROJ # XCHNJ AND UP
028883,000502: 35,3013 51352 VSL2 BVSU
028884,000503: 35,3014 02311 ULOS
028885,000504: 35,3015 63256 UNIT PDVL # UP AT 0D
028886,000505: 35,3016 63241 DOT PDVL # UP.UN*RA AT 0D
028887,000506: 35,3017 00001 0D # UP IN MPAC
028888,000507: 35,3020 75241 DOT SIGN
028889,000508: 35,3021 02311 ULOS
028890,000509: 35,3022 65552 SL1 ACOS
028891,000510: 35,3023 50315 PDVL DOT # EA AT 0D
028892,000511: 35,3024 02311 ULOS
028893,000512: 35,3025 03536 RACT3
028894,000513: 35,3026 71244 BPL DLOAD
028895,000514: 35,3027 73032 TESTY
028896,000515: 35,3030 06530 DPPOSMAX
028897,000516: 35,3031 41425 DSU PUSH
028898,000517: 35,3032 71214 TESTY BOFF DLOAD
028899,000518: 35,3033 03740 ITSWICH
028900,000519: 35,3034 73261 ELEX
028901,000520: 35,3035 03576 DELEL
028902,000521: 35,3036 14033 STODL DELELO
028903,000522: 35,3037 77625 DSU
028904,000523: 35,3040 02257 ELEV
028905,000524: 35,3041 03576 STORE DELEL
028906,000525: 35,3042 45246 ABS DSU
028907,000526: 35,3043 33740 ELEPS
![]() |
Page 668 |
028909,000528: 35,3044 77640 BMN
028910,000529: 35,3045 73271 TIMEX # COMMERCIALS EVERYWHERE
028911,000530: 35,3046 70535 FIGTIME SLOAD SR1
028912,000531: 35,3047 03614 TITER
028913,000532: 35,3050 72030 BHIZ LXA,1
028914,000533: 35,3051 03463 NORMEX # TOO MANY ITERATIONS
028915,000534: 35,3052 00154 MPAC
028916,000535: 35,3053 77330 SXA,1 VLOAD
028917,000536: 35,3054 03613 TITER
028918,000537: 35,3055 03552 RPASS3
028919,000538: 35,3056 65256 UNIT PDDL
028920,000539: 35,3057 00045 36D
028921,000540: 35,3060 53515 PDVL UNIT
028922,000541: 35,3061 03536 RACT3
028923,000542: 35,3062 77725 PDDL
028924,000543: 35,3063 41525 PDDL PUSH
028925,000544: 35,3064 00045 36D
028926,000545: 35,3065 77621 BDSU
028927,000546: 35,3066 00015 12D
028928,000547: 35,3067 14037 STODL 30D # RP - RA MAGNITUDES
028929,000548: 35,3070 06520 DPHALF
028930,000549: 35,3071 41425 DSU PUSH
028931,000550: 35,3072 02257 ELEV
028932,000551: 35,3073 50165 SIGN BMN
028933,000552: 35,3074 00037 30D
028934,000553: 35,3075 03463 NORMEX
028935,000554: 35,3076 71545 DLOAD COS
028936,000555: 35,3077 56205 DMP DDV
028937,000556: 35,3100 00017 14D
028938,000557: 35,3101 00015 12D
028939,000558: 35,3102 77676 DCOMP # SINCE COS(180-A)=-COS A
028940,000559: 35,3103 00035 STORE 28D
028941,000560: 35,3104 44246 ABS BDSU
028942,000561: 35,3105 06520 DPHALF
028943,000562: 35,3106 77240 BMN VLOAD
028944,000563: 35,3107 03463 NORMEX
028945,000564: 35,3110 02261 UNRM
028946,000565: 35,3111 53435 VXV UNIT
028947,000566: 35,3112 00007 6D # UN*RA
028948,000567: 35,3113 41241 DOT DMP
028949,000568: 35,3114 03544 VACT3
028950,000569: 35,3115 00015 12D
028951,000570: 35,3116 47315 PDVL VXV
028952,000571: 35,3117 00001 0D
028953,000572: 35,3120 03560 VPASS3
028954,000573: 35,3121 53435 VXV UNIT
028955,000574: 35,3122 00001 0D # (RP*VP)*RP
028956,000575: 35,3123 41241 DOT DMP
028957,000576: 35,3124 03560 VPASS3
028958,000577: 35,3125 00017 14D
![]() |
Page 669 |
028960,000579: 35,3126 77621 BDSU
028961,000580: 35,3127 63301 NORM PDVL # NORMALIZED WA - WP 12D
028962,000581: 35,3130 00047 X1
028963,000582: 35,3131 00007 6D
028964,000583: 35,3132 50235 VXV DOT
028965,000584: 35,3133 00001 0D
028966,000585: 35,3134 02261 UNRM # RA*RP.UN 14D
028967,000586: 35,3135 50315 PDVL DOT
028968,000587: 35,3136 00001 0D
028969,000588: 35,3137 00007 6D
028970,000589: 35,3140 65552 SL1 ACOS
028971,000590: 35,3141 77765 SIGN
028972,000591: 35,3142 43225 DSU DAD # ALPHA PI
028973,000592: 35,3143 06520 DPHALF
028974,000593: 35,3144 02257 ELEV
028975,000594: 35,3145 65525 PDDL ACOS
028976,000595: 35,3146 00035 28D
028977,000596: 35,3147 75221 BDSU SIGN
028978,000597: 35,3150 06520 DPHALF
028979,000598: 35,3151 00037 30D # CONTAINS RP-RA
028980,000599: 35,3152 77615 DAD
028981,000600: 35,3153 56205 DMP DDV
028982,000601: 35,3154 33732 TWOPI
028983,000602: 35,3155 77605 DMP
028984,000603: 35,3156 41257 SL* DMP
028985,000604: 35,3157 20176 0 -3,1
028986,000605: 35,3160 51406 PUSH ABS
028987,000606: 35,3161 50025 DSU BMN
028988,000607: 35,3162 03574 SECMAX
028989,000608: 35,3163 73167 OKMAX
028990,000609: 35,3164 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
028991,000610: 35,3165 03574 SECMAX
028992,000611: 35,3166 77606 PUSH
028993,000612: 35,3167 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
028994,000613: 35,3170 03614 TITER
028995,000614: 35,3171 73177 REPETE
028996,000615: 35,3172 71331 SSP DLOAD
028997,000616: 35,3173 03614 TITER
028998,000617: 35,3174 37777 OCT 37777
028999,000618: 35,3175 77650 GOTO
029000,000619: 35,3176 73235 STORDELT
029001,000620: 35,3177 41345 REPETE DLOAD DMP
029002,000621: 35,3200 03576 DELEL
029003,000622: 35,3201 00033 DELELO
029004,000623: 35,3202 71244 BPL DLOAD
029005,000624: 35,3203 73213 NEXTES
029006,000625: 35,3204 03574 SECMAX
029007,000626: 35,3205 77605 DMP
029008,000627: 35,3206 33736 THIRD
029009,000628: 35,3207 17574 STODL SECMAX
![]() |
Page 670 |
029011,000630: 35,3210 70446 ABS SR1 # CROSSED OVER SOLUTION
029012,000631: 35,3211 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
029013,000632: 35,3212 73223 RESIGN
029014,000633: 35,3213 51545 NEXTES DLOAD ABS
029015,000634: 35,3214 03576 DELEL
029016,000635: 35,3215 51525 PDDL ABS
029017,000636: 35,3216 00033 DELELO
029018,000637: 35,3217 77625 DSU
029019,000638: 35,3220 71240 BMN DLOAD
029020,000639: 35,3221 73226 REVERS # WRONG DIRECTION
029021,000640: 35,3222 77646 ABS
029022,000641: 35,3223 52165 RESIGN SIGN GOTO
029023,000642: 35,3224 03606 DELTEEO
029024,000643: 35,3225 73235 STORDELT
029025,000644: 35,3226 57545 REVERS DLOAD DCOMP
029026,000645: 35,3227 03606 DELTEEO
029027,000646: 35,3230 70406 PUSH SR1
029028,000647: 35,3231 03606 STORE DELTEEO
029029,000648: 35,3232 77615 DAD
029030,000649: 35,3233 77650 GOTO
029031,000650: 35,3234 73236 ADTIME
029032,000651: 35,3235 03606 STORDELT STORE DELTEEO
029033,000652: 35,3236 77615 ADTIME DAD
029034,000653: 35,3237 02317 NOMTPI # SUM OF DELTA T:S
029035,000654: 35,3240 02317 STORE NOMTPI
029036,000655: 35,3241 63375 VLOAD PDVL
029037,000656: 35,3242 03506 VAPREC
029038,000657: 35,3243 03500 RAPREC
029039,000658: 35,3244 77624 CALL
029040,000659: 35,3245 73462 GOINT
029041,000660: 35,3246 77624 CALL
029042,000661: 35,3247 46402 ACTIVE # STORE NEW RACT3 VACT3
029043,000662: 35,3250 63375 VLOAD PDVL
029044,000663: 35,3251 03530 VPPREC
029045,000664: 35,3252 03522 RPPREC
029046,000665: 35,3253 77624 CALL
029047,000666: 35,3254 73462 GOINT
029048,000667: 35,3255 77624 CALL
029049,000668: 35,3256 46412 PASSIVE # STORE NEW RPASS3 VPASS3
029050,000669: 35,3257 77650 GOTO
029051,000670: 35,3260 73004 ELCALC
029052,000671: 35,3261 43345 ELEX DLOAD DAD
029053,000672: 35,3262 03636 TTPI
029054,000673: 35,3263 02317 NOMTPI
029055,000674: 35,3264 17636 STODL TTPI
029056,000675: 35,3265 77614 BON
029057,000676: 35,3266 01310 ETPIFLAG
029058,000677: 35,3267 73271 TIMEX
029059,000678: 35,3270 02257 STORE ELEV
029060,000679: 35,3271 52145 TIMEX DLOAD GOTO
![]() |
Page 671 |
029062,000681: 35,3272 06522 ZEROVECS
029063,000682: 35,3273 03463 NORMEX
029064,000683:
![]() |
Page 672 |
029066,000685: # ..... S34/35.1 .....
029067,000686:
029068,000687: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029069,000688: # PASSIVE POS AND VEL AT TIME T3
029070,000689:
029071,000690: 35,3274 52375 S34/35.1 VLOAD VSU
029072,000691: 35,3275 03552 RPASS3
029073,000692: 35,3276 03536 RACT3
029074,000693: 35,3277 41456 UNIT PUSH
029075,000694: 35,3300 26311 STOVL ULOS
029076,000695: 35,3301 03536 RACT3
029077,000696: 35,3302 53435 VXV UNIT
029078,000697: 35,3303 03544 VACT3
029079,000698: 35,3304 02261 STORE UNRM
029080,000699: 35,3305 77616 RVQ
029081,000700:
![]() |
Page 673 |
029083,000702: # ..... S34/35.2 .....
029084,000703:
029085,000704: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
029086,000705:
029087,000706: 35,3306 77220 S34/35.2 STQ VLOAD
029088,000707: 35,3307 03470 SUBEXIT
029089,000708: 35,3310 03560 VPASS3
029090,000709: 35,3311 65315 PDVL PDDL
029091,000710: 35,3312 03552 RPASS3
029092,000711: 35,3313 03610 INTIME
029093,000712: 35,3314 65325 PDDL PDDL
029094,000713: 35,3315 03631 TPASS4
029095,000714: 35,3316 33732 TWOPI # CONIC
029096,000715: 35,3317 46125 PDDL BHIZ
029097,000716: 35,3320 03467 NN
029098,000717: 35,3321 73325 S3435.23
029099,000718: 35,3322 77745 DLOAD
029100,000719: 35,3323 41545 DLOAD PUSH
029101,000720: 35,3324 06522 ZEROVECS # PRECISION
029102,000721: 35,3325 77624 S3435.23 CALL
029103,000722: 35,3326 73466 INTINT # GET TARGET VECTOR
029104,000723: 35,3327 27444 S3435.25 STOVL RTARG
029105,000724: 35,3330 00007 VATT
029106,000725: 35,3331 27506 STOVL VPASS4
029107,000726: 35,3332 03444 RTARG
029108,000727: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
029109,000728: 35,3333 63256 UNIT PDVL # UNIT RP
029110,000729: 35,3334 03536 RACT3
029111,000730: 35,3335 41456 UNIT PUSH # UNIT RA
029112,000731: 35,3336 50235 VXV DOT
029113,000732: 35,3337 00001 0D
029114,000733: 35,3340 02261 UNRM # RA*RP.U
029115,000734: 35,3341 77715 PDVL
029116,000735: 35,3342 72441 DOT SL1 # UNIT RA.UNIT RP
029117,000736: 35,3343 00001 0D
029118,000737: 35,3344 75326 ACOS SIGN
029119,000738: 35,3345 43244 BPL DAD
029120,000739: 35,3346 73350 NOPIE
029121,000740: 35,3347 06530 DPPOSMAX # REASONABLE TWO PI
029122,000741: 35,3350 15756 NOPIE STODL ACTCENT
029123,000742: 35,3351 03631 TPASS4
029124,000743: 35,3352 77625 DSU
029125,000744: 35,3353 03610 INTIME
029126,000745: 35,3354 03452 STORE DELLT4
029127,000746: 35,3355 40335 SLOAD SETPD
029128,000747: 35,3356 03467 NN # NUMBER OF OFFSETS
029129,000748: 35,3357 00001 0D
029130,000749: 35,3360 63325 PDDL PDVL
029131,000750: 35,3361 33744 EPSFOUR
029132,000751: 35,3362 03536 RACT3
029133,000752: 35,3363 26323 STOVL RINIT
![]() |
Page 674 |
029135,000754: 35,3364 03544 VACT3
029136,000755: 35,3365 36331 STCALL VINIT
029137,000756: 35,3366 22000 INITVEL
029138,000757: 35,3367 77624 CALL
029139,000758: 35,3370 73447 LOMAT
029140,000759: 35,3371 64375 VLOAD MXV
029141,000760: 35,3372 02366 DELVEET3
029142,000761: 35,3373 00001 0D
029143,000762: 35,3374 77772 VSL1
029144,000763: 35,3375 37434 STCALL DELVLVC
029145,000764: 35,3376 03470 SUBEXIT
029146,000765:
![]() |
Page 675 |
029148,000767: # ..... S34/35.3 .....
029149,000768:
029150,000769: 35,3377 45020 S34/35.3 STQ CALL
029151,000770: 35,3400 03463 NORMEX
029152,000771: 35,3401 73447 LOMAT # GET MATRIX IN PUSH LIST
029153,000772: 35,3402 61375 VLOAD VXM
029154,000773: 35,3403 03434 DELVLVC # NEW DEL V TPI
029155,000774: 35,3404 00001 0D
029156,000775: 35,3405 77772 VSL1
029157,000776: 35,3406 02366 STORE DELVEET3 # SAVE FOR TRANSFORM
029158,000777: 35,3407 63255 VAD PDVL
029159,000778: 35,3410 03544 VACT3 # NEW V REQ
029160,000779: 35,3411 03536 RACT3
029161,000780: 35,3412 65325 PDDL PDDL
029162,000781: 35,3413 03442 TIG
029163,000782: 35,3414 03631 TPASS4
029164,000783: 35,3415 41525 PDDL PUSH
029165,000784: 35,3416 06530 DPPOSMAX
029166,000785: 35,3417 77624 CALL # INTEG. FOR NEW TARGET VEC
029167,000786: 35,3420 73466 INTINT
029168,000787: 35,3421 77775 VLOAD
029169,000788: 35,3422 00001 RATT
029170,000789: 35,3423 03444 STORE RTARG
029171,000790: 35,3424 41575 NOVRWRT VLOAD PUSH
029172,000791: 35,3425 02311 ULOS
029173,000792: 35,3426 57435 VXV VCOMP
029174,000793: 35,3427 02261 UNRM
029175,000794: 35,3430 41456 UNIT PUSH
029176,000795: 35,3431 76435 VXV VSL1
029177,000796: 35,3432 02311 ULOS
029178,000797: 35,3433 77715 PDVL
029179,000798: 35,3434 64315 PDVL MXV
029180,000799: 35,3435 02366 DELVEET3
029181,000800: 35,3436 00001 0D
029182,000801: 35,3437 77772 VSL1
029183,000802: 35,3440 36303 STCALL DVLOS
029184,000803: 35,3441 03463 NORMEX
029185,000804:
![]() |
Page 676 |
029187,000806: # ..... S34/35.4 .....
029188,000807:
029189,000808: 35,3442 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
029190,000809: 35,3443 03463 NORMEX
029191,000810: 35,3444 00001 0D
029192,000811: 35,3445 77650 GOTO
029193,000812: 35,3446 73424 NOVRWRT
029194,000813:
![]() |
Page 677 |
029196,000815: # ..... LOMAT .....
029197,000816:
029198,000817: 35,3447 57575 LOMAT VLOAD VCOMP
029199,000818: 35,3450 02261 UNRM
029200,000819: 35,3451 24007 STOVL 6D # Y
029201,000820: 35,3452 03536 RACT3
029202,000821: 35,3453 57456 UNIT VCOMP
029203,000822: 35,3454 00015 STORE 12D
029204,000823: 35,3455 76435 VXV VSL1
029205,000824: 35,3456 02261 UNRM # Z*-Y
029206,000825: 35,3457 00001 STORE 0D
029207,000826: 35,3460 43401 SETPD RVQ
029208,000827: 35,3461 00023 18D
029209,000828: 35,3462 65325 GOINT PDDL PDDL # DO
029210,000829: 35,3463 06522 ZEROVECS # NOT
029211,000830: 35,3464 02317 NOMTPI
029212,000831: 35,3465 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
029213,000832: 35,3466 45020 INTINT STQ CALL
029214,000833: 35,3467 03465 RTRN
029215,000834: 35,3470 27414 INTSTALL
029216,000835: 35,3471 71214 CLEAR DLOAD
029217,000836: 35,3472 01673 INTYPFLG
029218,000837: 35,3473 43054 BZE SET
029219,000838: 35,3474 73476 +2
029220,000839: 35,3475 01473 INTYPFLG
029221,000840: 35,3476 45545 DLOAD STADR
029222,000841: 35,3477 63736 STODL TDEC1
029223,000842: 35,3500 73014 SET LXA,2
029224,000843: 35,3501 00063 MOONFLAG
029225,000844: 35,3502 02777 RTX2
029226,000845: 35,3503 43014 BON CLEAR
029227,000846: 35,3504 04303 CMOONFLG
029228,000847: 35,3505 73507 ALLSET
029229,000848: 35,3506 00263 MOONFLAG
029230,000849: 35,3507 25517 ALLSET STOVL TET
029231,000850: 35,3510 77657 VSR*
029232,000851: 35,3511 57176 0,2
029233,000852: 35,3512 25535 STOVL RCV
029234,000853: 35,3513 77657 VSR*
029235,000854: 35,3514 57176 0,2
029236,000855: 35,3515 35543 STCALL VCV
029237,000856: 35,3516 27107 INTEGRVS
029238,000857: 35,3517 52175 VLOAD GOTO
029239,000858: 35,3520 00001 RATT
029240,000859: 35,3521 03465 RTRN
029241,000860:
![]() |
Page 678 |
029243,000862: # ..... S34/35.5 .....
029244,000863: # SUBROUTINES USED
029245,000864: # BANKCALL
029246,000865: # GOFLASH
029247,000866: # GOTOPOOH
029248,000867: # S34/35.3
029249,000868: # S34/35.4
029250,000869: # VNPOOH
029251,000870:
029252,000871: 35,3522 43020 S34/35.5 STQ BON
029253,000872: 35,3523 03470 SUBEXIT
029254,000873: 35,3524 01311 FINALFLG
029255,000874: 35,3525 73531 FLAGON
029256,000875: 35,3526 52014 SET GOTO
029257,000876: 35,3527 00470 UPDATFLG
029258,000877: 35,3530 73576 FLAGOFF
029259,000878: 35,3531 77214 FLAGON CLEAR VLOAD
029260,000879: 35,3532 03274 NTARGFLG
029261,000880: 35,3533 03434 DELVLVC
029262,000881: 35,3534 01237 STORE GDT/2
029263,000882: 35,3535 77776 EXIT
029264,000883: 35,3536 33727 +5 CAF V06N81
029265,000884: 35,3537 04616 TC BANKCALL
029266,000885: 35,3540 20476 CADR GOFLASH
029267,000886: 35,3541 06001 TC GOTOPOOH
029268,000887: 35,3542 03544 TC +2 # PRO
029269,000888: 35,3543 03536 TC FLAGON +5 # LOAD
029270,000889: 35,3544 35016 +2 CA EBANK7
029271,000890: 35,3545 54003 TS EBANK # TO BE SURE
029272,000891:
029273,000892: 35,3546 22007 ZL
029274,000893: 35,3547 34756 CA FIVE
029275,000894: 35,3550 54002 NTARGCHK TS Q
029276,000895: 35,3551 50002 INDEX Q
029277,000896: 35,3552 41433 CS DELVLVC
029278,000897: 35,3553 50002 INDEX Q
029279,000898: 35,3554 61236 AD GDT/2
029280,000899: 35,3555 26001 ADS L
029281,000900: 35,3556 10002 CCS Q
029282,000901: 35,3557 13550 TCF NTARGCHK
029283,000902: 35,3560 22000 LXCH A
029284,000903: 35,3561 00006 EXTEND
029285,000904: 35,3562 13565 BZF +3
029286,000905: 35,3563 05504 TC UPFLAG
029287,000906: 35,3564 00146 ADRES NTARGFLG
029288,000907:
029289,000908: 35,3565 06037 TC INTPRET
029290,000909: 35,3566 45014 BOFF CALL
029291,000910: 35,3567 03354 NTARGFLG
![]() |
Page 679 |
029293,000912: 35,3570 73572 NOCHG
029294,000913: 35,3571 73377 S34/35.3
029295,000914: 35,3572 77214 NOCHG CLEAR VLOAD
029296,000915: 35,3573 01267 XDELVFLG
029297,000916: 35,3574 02366 DELVEET3
029298,000917: 35,3575 03656 STORE DELVSIN
029299,000918: 35,3576 77624 FLAGOFF CALL
029300,000919: 35,3577 73442 S34/35.4
029301,000920: 35,3600 77776 EXIT
029302,000921: 35,3601 33726 CAF V06N59
029303,000922: 35,3602 03712 TC VNPOOH
029304,000923: 35,3603 06037 TC INTPRET
029305,000924: 35,3604 77650 GOTO
029306,000925: 35,3605 03470 SUBEXIT
029307,000926:
![]() |
Page 680 |
029309,000928: # ..... VN1645 .....
029310,000929:
029311,000930: # SUBROUTINES USED
029312,000931: # P3XORP7X
029313,000932: # GET+MGA
029314,000933: # BANKCALL
029315,000934: # DELAYJOB
029316,000935: # COMPTGO
029317,000936: # GOFLASHR
029318,000937: # GOTOPOOH
029319,000938: # FLAGUP
029320,000939:
029321,000940: 35,3606 71220 VN1645 STQ DLOAD
029322,000941: 35,3607 03470 SUBEXIT
029323,000942: 35,3610 33742 DP-.01
029324,000943: 35,3611 02253 STORE +MGA # MGA = -.01
029325,000944: 35,3612 71214 BOFF DLOAD
029326,000945: 35,3613 01351 FINALFLG
029327,000946: 35,3614 73634 GET45
029328,000947: 35,3615 33742 DP-.01
029329,000948: 35,3616 77615 DAD
029330,000949: 35,3617 33742 DP-.01
029331,000950: 35,3620 02253 STORE +MGA # MGA = -.02
029332,000951: 35,3621 77414 BOFF EXIT
029333,000952: 35,3622 01742 REFSMFLG
029334,000953: 35,3623 73634 GET45
029335,000954: 35,3624 03704 TC P3XORP7X
029336,000955: 35,3625 03627 TC +2 # P3X
029337,000956: 35,3626 03635 TC GET45 +1 # P7X
029338,000957: 35,3627 06037 TC INTPRET
029339,000958: 35,3630 41575 VLOAD PUSH
029340,000959: 35,3631 03656 DELVSIN
029341,000960: 35,3632 77624 CALL # COMPUTE MGA
029342,000961: 35,3633 15717 GET+MGA
029343,000962: 35,3634 77776 GET45 EXIT
029344,000963: 35,3635 02432 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
029345,000964: 35,3636 31470 CA SUBEXIT
029346,000965: 35,3637 55464 TS QSAVED
029347,000966: 35,3640 34777 CAF 1SEC
029348,000967: 35,3641 04616 TC BANKCALL
029349,000968: 35,3642 01735 CADR DELAYJOB
029350,000969: 35,3643 33730 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
029351,000970: 35,3644 04616 TC BANKCALL
029352,000971: 35,3645 20476 CADR GOFLASH
029353,000972: 35,3646 03651 TC KILCLOCK # TERMINATE
029354,000973: 35,3647 03654 TC N45PROC # PROCEED
029355,000974: 35,3650 03664 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
029356,000975: 35,3651 30005 KILCLOCK CA Z
029357,000976: 35,3652 55163 TS DISPDEX
![]() |
Page 681 |
029359,000978: 35,3653 06001 TC GOTOPOOH
029360,000979: 35,3654 40076 N45PROC CS FLAGWRD2
029361,000980: 35,3655 74746 MASK BIT6
029362,000981: 35,3656 00006 EXTEND
029363,000982: 35,3657 13651 BZF KILCLOCK # FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
029364,000983: 35,3660 05353 TC PHASCHNG
029365,000984: 35,3661 04024 OCT 04024
029366,000985: 35,3662 05504 TC UPFLAG # SET
029367,000986: 35,3663 00047 ADRES FINALFLG # FINALFLG
029368,000987: 35,3664 30005 CLUPDATE CA Z
029369,000988: 35,3665 55163 TS DISPDEX
029370,000989: 35,3666 05353 TC PHASCHNG
029371,000990: 35,3667 04024 OCT 04024
029372,000991: 35,3670 06037 TC INTPRET
029373,000992: 35,3671 52014 CLEAR GOTO
029374,000993: 35,3672 00670 UPDATFLG
029375,000994: 35,3673 03464 QSAVED
029376,000995:
![]() |
Page 682 |
029378,000997: # ..... DISPLAYE .....
029379,000998:
029380,000999: # SUBROUTINES USED
029381,001000: # BANKCALL
029382,001001: # GOFLASHR
029383,001002: # GOTOPOOH
029384,001003: # BLANKET
029385,001004: # ENDOFJOB
029386,001005:
029387,001006: 35,3674 00006 DISPLAYE EXTEND
029388,001007: 35,3675 23463 QXCH NORMEX
029389,001008: 35,3676 33724 CAF V06N55
029390,001009: 35,3677 04616 TCR BANKCALL
029391,001010: 35,3700 20476 CADR GOFLASH
029392,001011: 35,3701 16001 TCF GOTOPOOH
029393,001012: 35,3702 01463 TC NORMEX
029394,001013: 35,3703 13676 TCF -5
029395,001014:
![]() |
Page 683 |
029397,001016: # ..... P3XORP7X .....
029398,001017:
029399,001018: 35,3704 37744 P3XORP7X CAF HIGH9
029400,001019: 35,3705 71011 MASK MODREG
029401,001020: 35,3706 00006 EXTEND
029402,001021: 35,3707 13711 BZF +2
029403,001022: 35,3710 24002 INCR Q
029404,001023: 35,3711 00002 RETURN
029405,001024:
029406,001025: # ..... VNPOOH .....
029407,001026:
029408,001027: # SUBROUTINES USED
029409,001028: # BANKCALL
029410,001029: # GOFLASH
029411,001030: # GOTOPOOH
029412,001031:
029413,001032: 35,3712 00006 VNPOOH EXTEND
029414,001033: 35,3713 23465 QXCH RTRN
029415,001034: 35,3714 55615 TS VERBNOUN
029416,001035: 35,3715 31615 CA VERBNOUN
029417,001036: 35,3716 04616 TCR BANKCALL
029418,001037: 35,3717 20476 CADR GOFLASH
029419,001038: 35,3720 16001 TCF GOTOPOOH
029420,001039: 35,3721 01465 TC RTRN
029421,001040: 35,3722 13715 TCF -5
029422,001041:
![]() |
Page 684 |
029424,001043: # ..... CONSTANTS .....
029425,001044:
029426,001045: 35,3723 01445 V06N37 VN 0637
029427,001046: 35,3724 01467 V06N55 VN 0655
029428,001047: 35,3725 01472 V06N58 VN 0658
029429,001048: 35,3726 01473 V06N59 VN 0659
029430,001049: 35,3727 01521 V06N81 VN 0681
029431,001050: 35,3730 04055 V16N45 VN 1645
029432,001051: 35,3731 14441 37325 TWOPI 2DEC 6.283185307 B-4
029433,001052:
029434,001053: 35,3733 00001 20650 MAX250 2DEC 25 E3
029435,001054:
029436,001055: 35,3735 12525 12525 THIRD 2DEC .333333333
029437,001056:
029438,001057: 35,3737 00004 21505 ELEPS 2DEC .27777777 E-3
029439,001058:
029440,001059: 35,3741 77777 DP-.01 OCT 77777 # CONSTANTS
029441,001060: 35,3742 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
029442,001061: 35,3743 01252 25253 EPSFOUR 2DEC .0416666666
029443,001062:
029444,001063: 35,3745 13434 16162 130DEG 2DEC .3611111111
029445,001064:
![]() |
Page 685 |
029447,001066: # ..... INITVEL .....
029448,001067:
029449,001068: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
029450,001069: # MOD BY WHITE.P DATE 21NOV67
029451,001070:
029452,001071: # FUNCTIONAL DESCRIPTION
029453,001072:
029454,001073: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
029455,001074: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
029456,001075: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
029457,001076: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
029458,001077: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
029459,001078: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
029460,001079: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
029461,001080: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
029462,001081: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
029463,001082: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
029464,001083:
029465,001084: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
029466,001085: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
029467,001086: # SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
029468,001087: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
029469,001088: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
029470,001089: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
029471,001090: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
029472,001091: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
029473,001092:
029474,001093: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
029475,001094: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
029476,001095: # TRAJECTORY COMPUTATIONS.
029477,001096:
029478,001097: # CALLING SEQUENCE
029479,001098:
029480,001099: # L CALL
029481,001100: # L+1 INITVEL
029482,001101: # L+2 (RETURN - ALWAYS)
029483,001102:
029484,001103: # INPUT
029485,001104:
029486,001105: # (1) RINIT INITIAL POSITION RADIUS VECTOR
029487,001106: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
029488,001107: # (3) RTARG TARGET POSITION RADIUS VECTOR
029489,001108: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
029490,001109: # (5) INTIME TIME OF RINIT
029491,001110: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
029492,001111: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
029493,001112: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
029494,001113: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
029495,001114: # PUSHLOC SET AT 4D
029496,001115:
![]() |
Page 686 |
029498,001117: # OUTPUT
029499,001118:
029500,001119: # (1) RTARG OFFSET TARGET POSITION VECTOR
029501,001120: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
029502,001121: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
029503,001122: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
029504,001123:
029505,001124: # SUBROUTINES USED
029506,001125:
029507,001126: # LAMBERT
029508,001127: # INTSTALL
029509,001128: # INTEGRVS
029510,001129:
029511,001130: 11,2000 SETLOC INTVEL
029512,001131: 11,2000 BANK
029513,001132:
029514,001133: 11,2000 COUNT* $$/INITV
029515,001134: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
029516,001135: 11,2001 00475 GUESSW
029517,001136: 11,2002 44175 HAVEGUES VLOAD STQ
029518,001137: 11,2003 03444 RTARG
029519,001138: 11,2004 03463 NORMEX
029520,001139: 11,2005 03472 STORE RTARG1
029521,001140: 11,2006 77646 ABVAL
029522,001141: 11,2007 03723 STORE RTMAG
029523,001142: 11,2010 46135 SLOAD BHIZ
029524,001143: 11,2011 03000 RTX2
029525,001144: 11,2012 22026 INITVEL1
029526,001145: 11,2013 72575 VLOAD VSL2
029527,001146: 11,2014 02323 RINIT # B29
029528,001147: 11,2015 26323 STOVL RINIT # B27
029529,001148: 11,2016 02331 VINIT # B7
029530,001149: 11,2017 77752 VSL2
029531,001150: 11,2020 26331 STOVL VINIT # B5
029532,001151: 11,2021 03472 RTARG1
029533,001152: 11,2022 77752 VSL2
029534,001153: 11,2023 03472 STORE RTARG1
029535,001154: 11,2024 77646 ABVAL
029536,001155: 11,2025 03723 STORE RTMAG
029537,001156:
029538,001157: # INITIALIZATION
029539,001158:
029540,001159: 11,2026 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
029541,001160: 11,2027 03617 ITCTR
029542,001161: 11,2030 77776 0 -1
029543,001162: 11,2031 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
029544,001163: 11,2032 17667 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
029545,001164: 11,2033 67154 LXA,2 SXA,2
029546,001165: 11,2034 00154 MPAC
029547,001166: 11,2035 02701 VTARGTAG # SET VTARGTAG TO 0D (SP)
029548,001167: 11,2036 77775 VLOAD
![]() |
Page 687 |
029550,001169: 11,2037 02323 RINIT
029551,001170: 11,2040 26655 STOVL R1VEC # R1VEC EQ RINIT
029552,001171: 11,2041 03472 RTARG1
029553,001172: 11,2042 16663 STODL R2VEC # R2VEC EQ RTARG
029554,001173: 11,2043 03452 DELLT4
029555,001174: 11,2044 02671 STORE TDESIRED # TDESIRED EQ DELLT4
029556,001175: 11,2045 77201 SETPD VLOAD
029557,001176: 11,2046 00001 0D # INITIALIZE PL TO 0D
029558,001177: 11,2047 02323 RINIT # MPAC EQ RINIT (+29)
029559,001178: 11,2050 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
029560,001179: 11,2051 53435 VXV UNIT
029561,001180: 11,2052 02331 VINIT # MPAC EQ UNIT(RI) X VI (+8)
029562,001181: 11,2053 26674 STOVL UN
029563,001182: 11,2054 03472 RTARG1
029564,001183: 11,2055 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
029565,001184: 11,2056 43015 DAD CLEAR
029566,001185: 11,2057 03667 COZY4
029567,001186: 11,2060 03665 NORMSW
029568,001187: 11,2061 03667 STORE COZY4
029569,001188: 11,2062 43044 INITVEL2 BPL SET
029570,001189: 11,2063 22105 INITVEL3 # UN CALCULATED IN LAMBERT
029571,001190: 11,2064 03465 NORMSW
029572,001191:
029573,001192: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
029574,001193:
029575,001194: 11,2065 41575 VLOAD PUSH # (PL 6D)
029576,001195: 11,2066 02663 R2VEC # RC TO 6D (+29)
029577,001196: 11,2067 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
029578,001197: 11,2070 46206 PUSH VPROJ # (PL 8D)
029579,001198: 11,2071 02674 UN
029580,001199: 11,2072 51352 VSL2 BVSU
029581,001200: 11,2073 74256 UNIT VXSC # (PL 0D)
029582,001201: 11,2074 77772 VSL1
029583,001202: 11,2075 02663 STORE R2VEC
029584,001203: 11,2076 67351 TLOAD SLOAD
029585,001204: 11,2077 24007 ZEROVEC
029586,001205: 11,2100 03617 ITCTR
029587,001206: 11,2101 77244 BPL VLOAD
029588,001207: 11,2102 22105 INITVEL3
029589,001208: 11,2103 02663 R2VEC
029590,001209: 11,2104 03472 STORE RTARG1
029591,001210: 11,2105 63345 INITVEL3 DLOAD PDVL # (PL 2D)
029592,001211: 11,2106 26007 MUEARTH # POSITIVE VALUE
029593,001212: 11,2107 02663 R2VEC
029594,001213: 11,2110 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
029595,001214: 11,2111 02655 R1VEC
029596,001215: 11,2112 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D)
029597,001216: 11,2113 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
029598,001217: 11,2114 00003 2D
029599,001218: 11,2115 77606 PUSH # (PL 20D)
029600,001219: 11,2116 71350 LXA,1 DLOAD
![]() |
Page 688 |
029602,001221: 11,2117 02776 RTX1
029603,001222: 11,2120 00023 18D
029604,001223: 11,2121 62040 BMN INCR,1
029605,001224: 11,2122 22124 +2
029606,001225: 11,2123 77767 DEC -8 B-14
029607,001226: 11,2124 67310 INCR,1 SLOAD
029608,001227: 11,2125 00012 10D
029609,001228: 11,2126 00047 X1
029610,001229: 11,2127 77230 BHIZ VLOAD # (PL 14D)
029611,001230: 11,2130 22132 +2
029612,001231: 11,2131 41476 VCOMP PUSH # (PL 20D)
029613,001232: 11,2132 77775 VLOAD # (PL 14D)
029614,001233: 11,2133 50235 VXV DOT # (PL 2D)
029615,001234: 11,2134 71244 BPL DLOAD # (PL 0D)
029616,001235: 11,2135 22137 INITVEL4
029617,001236: 11,2136 41476 DCOMP PUSH # (PL 2D)
029618,001237: 11,2137 67154 INITVEL4 LXA,2 SXA,2
029619,001238: 11,2140 00000 0D
029620,001239: 11,2141 02672 GEOMSGN
029621,001240:
029622,001241: # SET INPUTS UP FOR LAMBERT
029623,001242:
029624,001243: 11,2142 45150 LXA,1 CALL
029625,001244: 11,2143 02776 RTX1
029626,001245:
029627,001246: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
029628,001247:
029629,001248: 11,2144 23765 SETITCTR # GO TO END OF BANK TO SET ITERCTR BEFORE
029630,001249: # CALLING LAMBERT (FOR REMANUFACTURE ONLY)
029631,001250:
029632,001251: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
029633,001252:
029634,001253: 11,2145 77214 CLEAR VLOAD
029635,001254: 11,2146 00675 GUESSW
029636,001255: 11,2147 02744 VVEC
029637,001256:
029638,001257: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
029639,001258:
029640,001259: 11,2150 16337 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
029641,001260:
029642,001261: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
029643,001262: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
029644,001263:
029645,001264: 11,2151 02702 VTARGTAG
029646,001265: 11,2152 45030 BHIZ CALL
029647,001266: 11,2153 22230 INITVEL7
029648,001267: 11,2154 27414 INTSTALL
029649,001268: 11,2155 43135 SLOAD CLEAR
029650,001269: 11,2156 03000 RTX2
029651,001270: 11,2157 00263 MOONFLAG
029652,001271: 11,2160 43030 BHIZ SET
029653,001272: 11,2161 22163 INITVEL5
![]() |
Page 689 |
029655,001274: 11,2162 00063 MOONFLAG
029656,001275: 11,2163 77775 INITVEL5 VLOAD
029657,001276: 11,2164 02323 RINIT
029658,001277: 11,2165 02655 STORE R1VEC
029659,001278: 11,2166 25535 STOVL RCV
029660,001279: 11,2167 02337 VIPRIME
029661,001280: 11,2170 15543 STODL VCV
029662,001281: 11,2171 03610 INTIME
029663,001282: 11,2172 01517 STORE TET
029664,001283: 11,2173 43015 DAD CLEAR
029665,001284: 11,2174 03452 DELLT4
029666,001285: 11,2175 01673 INTYPFLG
029667,001286: 11,2176 34041 STCALL TDEC1
029668,001287: 11,2177 27107 INTEGRVS
029669,001288: 11,2200 77775 VLOAD
029670,001289: 11,2201 00025 VATT1
029671,001290: 11,2202 02703 STORE VTARGET
029672,001291:
029673,001292: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
029674,001293: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
029675,001294:
029676,001295: 11,2203 63154 LXA,2 INCR,2
029677,001296: 11,2204 03616 ITCTR
029678,001297: 11,2205 00001 1D # INCREMENT ITCTR
029679,001298: 11,2206 55134 SXA,2 XSU,2
029680,001299: 11,2207 03616 ITCTR
029681,001300: 11,2210 02701 VTARGTAG
029682,001301: 11,2211 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
029683,001302: 11,2212 00050 X2
029684,001303: 11,2213 22225 INITVEL6
029685,001304:
029686,001305: # OFFSET CONIC TARGET VECTOR
029687,001306:
029688,001307: 11,2214 52375 VLOAD VSU
029689,001308: 11,2215 03472 RTARG1
029690,001309: 11,2216 00017 RATT1
029691,001310: 11,2217 77655 VAD
029692,001311: 11,2220 02663 R2VEC
029693,001312: 11,2221 16663 STODL R2VEC
029694,001313: 11,2222 03667 COZY4
029695,001314: 11,2223 77650 GOTO
029696,001315: 11,2224 22062 INITVEL2 # CONTINUE ITERATING AT INITVEL2
029697,001316:
029698,001317: # COMPUTE THE DELTA VELOCITY
029699,001318:
029700,001319: 11,2225 77775 INITVEL6 VLOAD
029701,001320: 11,2226 02663 R2VEC
029702,001321: 11,2227 03472 STORE RTARG1
029703,001322: 11,2230 52375 INITVEL7 VLOAD VSU
029704,001323: 11,2231 02337 VIPRIME
029705,001324: 11,2232 02331 VINIT
029706,001325: 11,2233 26366 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
![]() |
Page 690 |
029708,001327: 11,2234 02703 VTARGET
029709,001328: 11,2235 03566 STORE VTPRIME
029710,001329: 11,2236 46135 SLOAD BHIZ
029711,001330: 11,2237 03000 RTX2
029712,001331: 11,2240 22255 INITVELX
029713,001332: 11,2241 70575 VLOAD VSR2
029714,001333: 11,2242 03566 VTPRIME
029715,001334: 11,2243 27566 STOVL VTPRIME
029716,001335: 11,2244 02337 VIPRIME
029717,001336: 11,2245 77742 VSR2
029718,001337: 11,2246 26337 STOVL VIPRIME
029719,001338: 11,2247 03472 RTARG1
029720,001339: 11,2250 77742 VSR2
029721,001340: 11,2251 27472 STOVL RTARG1
029722,001341: 11,2252 02366 DELVEET3
029723,001342: 11,2253 77742 VSR2
029724,001343: 11,2254 02366 STORE DELVEET3
029725,001344: 11,2255 70750 INITVELX LXA,1 DLOAD*
029726,001345: 11,2256 02776 RTX1
029727,001346: 11,2257 10003 MUTABLE -2,1
029728,001347: 11,2260 41206 PUSH DMP
029729,001348: 11,2261 02742 R1A
029730,001349: 11,2262 56342 SR1 DDV
029731,001350: 11,2263 00041 R1
029732,001351: 11,2264 17721 STODL MU/A
029733,001352: 11,2265 77661 SR
029734,001353: 11,2266 20607 6
029735,001354: 11,2267 03717 STORE MUASTEER
029736,001355: 11,2270 77201 SETPD VLOAD
029737,001356: 11,2271 00001 0D
029738,001357: 11,2272 03472 RTARG1
029739,001358: 11,2273 37444 STCALL RTARG
029740,001359: 11,2274 03463 NORMEX
029741,001360:
029742,001361: # ..... END OF INITVEL ROUTINE .....
029743,001362:
![]() |
Page 691 |
029745,001364: # ..... MIDGIM .....
029746,001365:
029747,001366: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
029748,001367: # REVISION 03, 17 FEB 67
029749,001368:
029750,001369: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
029751,001370: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
029752,001371: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
029753,001372: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
029754,001373: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
029755,001374:
029756,001375: # .. INPUTS ..
029757,001376:
029758,001377: # NAME MEANING UNITS/SCALING/MODE
029759,001378:
029760,001379: # AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT
029761,001380: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
029762,001381: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
029763,001382: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
029764,001383:
029765,001384: # .. OUTPUTS ..
029766,001385:
029767,001386: # NAME MEANING UNITS/SCALING/MODE
029768,001387:
029769,001388: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
029770,001389: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT
029771,001390: # MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT
029772,001391:
029773,001392: # .. CALLING SEQUENCE ..
029774,001393:
029775,001394: # L CALL
029776,001395: # L+1 MIDGIM
029777,001396: # L+2 (RETURN - ALWAYS)
029778,001397:
029779,001398: # .. NO SUBROUTINES CALLED ..
029780,001399:
029781,001400: # .. DEBRIS - ERASEABLE TEMPORARY USAGE
029782,001401:
029783,001402: # A,Q,L, PUSH LIST, MPAC.
029784,001403:
029785,001404: # .. ALARMS - NONE ..
029786,001405:
![]() |
Page 692 |
029788,001407: # MIDDLE GIMBAL ANGLE COMPUTATION.
029789,001408:
029790,001409: 06,2000 SETLOC MIDDGIM
029791,001410: 06,2000 BANK
029792,001411:
029793,001412: 06,3715 COUNT* $$/MIDG
029794,001413:
029795,001414: 06,3715 20000 00000 HALFREV 2DEC 1 B-1
029796,001415:
029797,001416: 06,3717 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
029798,001417: 06,3720 77656 UNIT
029799,001418: 06,3721 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
029800,001419: 06,3722 01742 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
029801,001420: 06,3723 51136 ARCSIN BPL
029802,001421: 06,3724 15730 SETMGA
029803,001422: 06,3725 43215 DAD DAD # CONVERT -MGA TO +MGA BY
029804,001423: 06,3726 15716 HALFREV # ADDING ONE REVOLUTION
029805,001424: 06,3727 15716 HALFREV
029806,001425: 06,3730 02253 SETMGA STORE +MGA
029807,001426: 06,3731 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
029808,001427: 06,3732 02675 MGLVFLAG # AND EXIT
029809,001428: 06,3733 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
029810,001429: 06,3734 02323 RINIT
029811,001430: 06,3735 77676 VCOMP # U(-R)
029812,001431: 06,3736 00023 STORE 18D # U(-R) TO 18D
029813,001432: 06,3737 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
029814,001433: 06,3740 02331 VINIT
029815,001434: 06,3741 00015 STORE 12D # U(V*R) TO 12D
029816,001435: 06,3742 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
029817,001436: 06,3743 00023 18D
029818,001437: 06,3744 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
029819,001438: 06,3745 00001 0D # DELTA V (+7) IN 0D
029820,001439: 06,3746 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
029821,001440: 06,3747 00007 6D # AND SCALE +7 IN MPAC
029822,001441: 06,3750 03434 STORE DELVLVC # STORE IN DELVLVC (+7)
029823,001442: 06,3751 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC
029824,001443: 06,3752 02475 MGLVFLAG # AND EXIT
029825,001444:
029826,001445: # ..... END OF MIDGIM ROUTINE .....
029827,001446:
![]() |
Page 693 |
029829,001448: 10,2000 BANK 10
029830,001449: 10,2000 SETLOC SLCTMU
029831,001450: 10,2000 BANK
029832,001451: 10,2000 COUNT* $$/MIDG
029833,001452:
029834,001453: 10,2000 77160 SELECTMU AXC,1 AXT,2
029835,001454: 10,2001 00002 2D
029836,001455: 10,2002 00000 0D
029837,001456: 10,2003 77614 BOFF
029838,001457: 10,2004 04343 CMOONFLG
029839,001458: 10,2005 20011 SETMUER
029840,001459: 10,2006 77160 AXC,1 AXT,2
029841,001460: 10,2007 00012 10D
029842,001461: 10,2010 00002 2D
029843,001462: 10,2011 66143 SETMUER DLOAD* SXA,1
029844,001463: 10,2012 10011 MUTABLE +4,1
029845,001464: 10,2013 02776 RTX1
029846,001465: 10,2014 22317 STODL* RTSR1/MU
029847,001466: 10,2015 10003 MUTABLE -2,1
029848,001467: 10,2016 54214 BOFF SR
029849,001468: 10,2017 04343 CMOONFLG
029850,001469: 10,2020 20022 RTRNMU
029851,001470: 10,2021 20607 6D
029852,001471: 10,2022 02321 RTRNMU STORE RTMU
029853,001472: 10,2023 43134 SXA,2 CLEAR
029854,001473: 10,2024 02777 RTX2
029855,001474: 10,2025 01271 FINALFLG
029856,001475: 10,2026 77650 GOTO
029857,001476: 10,2027 73606 VN1645
029858,001477:
![]() |
Page 694 |
029860,001479: # ..... PERIAPO .....
029861,001480:
029862,001481: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
029863,001482: # MOD BY WHITE.P DATE 18JAN68
029864,001483:
029865,001484: # FUNCTIONAL DESCRIPTION
029866,001485:
029867,001486: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
029868,001487: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
029869,001488: # THE TRAJECTORY AND THE PRIMARY BODY.
029870,001489:
029871,001490: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
029872,001491:
029873,001492: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
029874,001493: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
029875,001494:
029876,001495: # CALLING SEQUENCE
029877,001496:
029878,001497: # L CALL
029879,001498: # L+1 PERIAPO
029880,001499: # L+2 (RETURN - ALWAYS)
029881,001500:
029882,001501: # INPUT
029883,001502:
029884,001503: # (1) RVEC POSITION VECTOR IN METERS
029885,001504: # SCALE FACTOR - EARTH +29, MOON +27
029886,001505: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
029887,001506: # SCALE FACTOR - EARTH +7, MOON +5
029888,001507: # (3) X1 PRIMARY BODY INDICATOR
029889,001508: # EARTH -2, MOON -10
029890,001509:
029891,001510: # OUTPUT
029892,001511:
029893,001512: # (1) 2D APOCENTER RADIUS IN METERS
029894,001513: # SCALE FACTOR - EARTH +29, MOON +27
029895,001514: # (2) 4D APOCENTER ALTITUDE IN METERS
029896,001515: # SCALE FACTOR - EARTH +29, MOON P27
029897,001516: # (3) 6D PERICENTER RADIUS IN METERS
029898,001517: # SCALE FACTOR - EARTH +29, MOON +27
029899,001518: # (4) 8D PERICENTER ALTITUDE IN METERS
029900,001519: # SCALE FACTOR - EARTH +29, MOON +27
029901,001520: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
029902,001521: # SCALE FACTOR - +3
029903,001522: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
029904,001523: # SCALE FACTOR - EARTH +29, MOON +27
029905,001524: # (7) PUSHLOC EQUALS 10D
029906,001525:
029907,001526: # SUBROUTINES USED
029908,001527:
029909,001528: # SETRAD
![]() |
Page 695 |
029911,001530: # APSIDES
029912,001531:
029913,001532: 23,2000 SETLOC APOPERI
029914,001533: 23,2000 BANK
029915,001534:
029916,001535: 23,2314 COUNT* $$/PERAP
029917,001536:
029918,001537: 23,2314 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
029919,001538: # = 20 909 901.57 FT
029920,001539:
029921,001540: 23,2316 53754 PERIAPO1 LXA,2 VSR*
029922,001541: 23,2317 02777 RTX2
029923,001542: 23,2320 57176 0,2
029924,001543: 23,2321 26744 STOVL VVEC
029925,001544: 23,2322 53750 LXA,1 VSR*
029926,001545: 23,2323 02776 RTX1
029927,001546: 23,2324 57176 0,2
029928,001547: 23,2325 02655 STORE RVEC
029929,001548: 23,2326 45020 PERIAPO STQ CALL
029930,001549: 23,2327 03463 NORMEX
029931,001550: 23,2330 46344 SETRAD
029932,001551: 23,2331 37671 STCALL XXXALT
029933,001552: 23,2332 25674 APSIDES
029934,001553: 23,2333 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
029935,001554: 23,2334 00003 2D
029936,001555: 23,2335 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
029937,001556: 23,2336 03671 XXXALT
029938,001557: 23,2337 00001 0D
029939,001558: 23,2340 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
029940,001559: 23,2341 03671 XXXALT
029941,001560: 23,2342 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
029942,001561: 23,2343 03463 NORMEX
029943,001562:
![]() |
Page 696 |
029945,001564: # SETRAD
029946,001565:
029947,001566: 23,2344 41545 SETRAD DLOAD PUSH
029948,001567: 23,2345 06315 RPAD
029949,001568: 23,2346 63130 SXA,1 INCR,2
029950,001569: 23,2347 00047 X2
029951,001570: 23,2350 00002 2D
029952,001571: 23,2351 46135 SLOAD BHIZ
029953,001572: 23,2352 00050 X2
029954,001573: 23,2353 46357 SETRADX
029955,001574: 23,2354 51575 VLOAD ABVAL
029956,001575: 23,2355 02023 RLS
029957,001576: 23,2356 77725 PDDL
029958,001577: 23,2357 43545 SETRADX DLOAD RVQ
029959,001578:
![]() |
Page 697 |
029961,001580: # PRECSET
029962,001581:
029963,001582: 23,2360 77620 PRECSET STQ
029964,001583: 23,2361 03463 NORMEX
029965,001584: 23,2362 37574 STCALL TDEC2
029966,001585: 23,2363 27057 LEMPREC
029967,001586: 23,2364 77624 CALL
029968,001587: 23,2365 46376 LEMSTORE
029969,001588: 23,2366 77745 DLOAD
029970,001589: 23,2367 03574 TDEC2
029971,001590: 23,2370 34041 STCALL TDEC1
029972,001591: 23,2371 27043 CSMPREC
029973,001592: 23,2372 77624 CALL
029974,001593: 23,2373 46406 CSMSTORE
029975,001594: 23,2374 77650 GOTO
029976,001595: 23,2375 03463 NORMEX
029977,001596: 23,2376 43175 LEMSTORE VLOAD BOFF
029978,001597: 23,2377 00001 RATT
029979,001598: 23,2400 01352 AVFLAG
029980,001599: 23,2401 46412 PASSIVE
029981,001600: 23,2402 27536 ACTIVE STOVL RACT3
029982,001601: 23,2403 00007 VATT
029983,001602: 23,2404 03544 STORE VACT3
029984,001603: 23,2405 77616 RVQ
029985,001604: 23,2406 43175 CSMSTORE VLOAD BOFF
029986,001605: 23,2407 00001 RATT
029987,001606: 23,2410 01352 AVFLAG
029988,001607: 23,2411 46402 ACTIVE
029989,001608: 23,2412 27552 PASSIVE STOVL RPASS3
029990,001609: 23,2413 00007 VATT
029991,001610: 23,2414 03560 STORE VPASS3
029992,001611: 23,2415 77616 RVQ
029993,001612:
![]() |
Page 698 |
029995,001614: # VECSHIFT
029996,001615:
029997,001616: 23,2416 53754 VECSHIFT LXA,2 VSR*
029998,001617: 23,2417 02777 RTX2
029999,001618: 23,2420 57176 0,2
030000,001619: 23,2421 63350 LXA,1 PDVL
030001,001620: 23,2422 02776 RTX1
030002,001621: 23,2423 63257 VSR* PDVL
030003,001622: 23,2424 57176 0,2
030004,001623: 23,2425 77616 RVQ
030005,001624:
![]() |
Page 699 |
030007,001626: # SHIFTR1
030008,001627:
030009,001628: 23,2426 53754 SHIFTR1 LXA,2 SL*
030010,001629: 23,2427 02777 RTX2
030011,001630: 23,2430 57576 0,2
030012,001631: 23,2431 77616 RVQ
030013,001632:
![]() |
Page 700 |
030015,001634: # PROGRAM DESCRIPTION
030016,001635: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
030017,001636: # MOD NO. 0 DATE 22 DECEMBER 67
030018,001637: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS
030019,001638: # FUNCTIONAL DESCRIPTION
030020,001639:
030021,001640: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
030022,001641: # OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY).
030023,001642:
030024,001643: # CALLING SEQUENCE
030025,001644:
030026,001645: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
030027,001646:
030028,001647: # SUBROUTINES CALLED
030029,001648:
030030,001649: # EXDSPRET
030031,001650: # GOMARKF
030032,001651: # CSMPREC
030033,001652: # LEMPREC
030034,001653: # SGNAGREE
030035,001654: # LOADTIME
030036,001655:
030037,001656: # NORMAL EXIT MODES
030038,001657:
030039,001658: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
030040,001659:
030041,001660: # ALARM OR ABORT EXIT MODES
030042,001661:
030043,001662: # NONE
030044,001663:
030045,001664: # OUTPUT
030046,001665:
030047,001666: # DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
030048,001667:
030049,001668: # DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
030050,001669: # REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
030051,001670:
030052,001671: # ERASABLE INITIALIZATION REQUIRED
030053,001672:
030054,001673: # CSM AND LEM STATE VECTORS
030055,001674:
030056,001675: # DEBRIS
030057,001676:
030058,001677: # CENTRALS A,Q,L
030059,001678: # OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
030060,001679:
030061,001680: 20,2115 BANK 20
030062,001681: 04,2000 SETLOC R36LM
030063,001682: 04,2000 BANK
![]() |
Page 701 |
030065,001684: 04,2656 E4,1606 EBANK= RPASS36
030066,001685:
030067,001686: 04,2656 COUNT* $$/R36
030068,001687:
030069,001688: 04,2656 22007 R36 ZL
030070,001689: 04,2657 34755 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST
030071,001690: 04,2660 53052 DXCH DSPTEMX # DISPLAY
030072,001691: 04,2661 33011 CAF V06N16N
030073,001692: 04,2662 04616 TC BANKCALL
030074,001693: 04,2663 20334 CADR GOMARKF
030075,001694: 04,2664 15472 TCF ENDEXT # TERMINATE
030076,001695: 04,2665 12667 TCF +2 # PROCEED
030077,001696: 04,2666 12661 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME
030078,001697: 04,2667 53052 DXCH DSPTEMX
030079,001698: 04,2670 00006 EXTEND
030080,001699: 04,2671 13000 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO
030081,001700: 04,2672 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
030082,001701: 04,2673 06037 TC INTPRET
030083,001702: 04,2674 77634 RTB
030084,001703: 04,2675 21716 DPMODE
030085,001704: 04,2676 34041 R36INT STCALL TDEC1
030086,001705: 04,2677 27043 OTHPREC
030087,001706: 04,2700 63375 VLOAD PDVL
030088,001707: 04,2701 00007 VATT
030089,001708: 04,2702 00001 RATT # -
030090,001709: 04,2703 02207 STORE RPASS36 # R
030091,001710: 04,2704 63256 UNIT PDVL # P
030092,001711: 04,2705 53435 VXV UNIT
030093,001712: 04,2706 77626 STADR # -
030094,001713: 04,2707 61562 STODL UNP36 # U
030095,001714: 04,2710 00015 TAT
030096,001715: 04,2711 34041 STCALL TDEC1
030097,001716: 04,2712 27057 THISPREC
030098,001717: 04,2713 63375 VLOAD PDVL # -
030099,001718: 04,2714 00007 VATT # VELOCITY VECTOR V 00D
030100,001719: 04,2715 00001 RATT # A
030101,001720: 04,2716 77725 PDDL
030102,001721: 04,2717 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
030103,001722: 04,2720 24037 STOVL 30D # -
030104,001723: 04,2721 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
030105,001724: 04,2722 63245 BVSU PDVL # A - -
030106,001725: 04,2723 02207 RPASS36 # LINE OF SIGHT VECTOR R - R 12D
030107,001726: 04,2724 72441 DOT SL1 # P A
030108,001727: 04,2725 02215 UNP36 # - -
030109,001728: 04,2726 26201 STOVL RANGE # Y = U . R
030110,001729: 04,2727 00001 00D # A
030111,001730: 04,2730 72441 DOT SL1
030112,001731: 04,2731 02215 UNP36 # . - -
030113,001732: 04,2732 26203 STOVL RRATE # Y = U . V
030114,001733: 04,2733 00007 06D # - A -
![]() |
Page 702 |
030116,001735: 04,2734 41456 UNIT PUSH # U = UNIT ( R ) 18D
030117,001736: 04,2735 47235 VXV VXV # RA A
030118,001737: 04,2736 00001 00D # - - - -
030119,001738: 04,2737 00023 18D # (U X V ) X U = U
030120,001739: 04,2740 53552 VSL2 UNIT # RA A RA A
030121,001740: 04,2741 77656 UNIT
030122,001741: 04,2742 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
030123,001742: 04,2743 00023 18D
030124,001743: 04,2744 74241 DOT VXSC # -
030125,001744: 04,2745 00015 12D # U
030126,001745: 04,2746 77752 VSL2 # L
030127,001746: 04,2747 53445 BVSU UNIT
030128,001747: 04,2750 77656 UNIT
030129,001748: 04,2751 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D
030130,001749: 04,2752 00001 00D # PLANE
030131,001750: 04,2753 65552 SL1 ARCCOS # - -
030132,001751: 04,2754 26205 STOVL RTHETA # PSI = ARCCOS(U . U )
030133,001752: 04,2755 50235 VXV DOT # A L
030134,001753: 04,2756 00001 00D
030135,001754: 04,2757 71244 BPL DLOAD
030136,001755: 04,2760 10765 R36TAG2
030137,001756: 04,2761 24020 LODPMAX
030138,001757: 04,2762 77625 DSU
030139,001758: 04,2763 02205 RTHETA
030140,001759: 04,2764 02205 STORE RTHETA
030141,001760: 04,2765 47145 R36TAG2 DLOAD RTB
030142,001761: 04,2766 00037 30D
030143,001762: 04,2767 21612 SGNAGREE
030144,001763: 04,2770 01052 STORE DSPTEMX
030145,001764: 04,2771 77776 EXIT
030146,001765: 04,2772 33012 CAF V06N90N # DISPLAY Y, YDOT, AND PSI
030147,001766: 04,2773 04616 TC BANKCALL
030148,001767: 04,2774 20334 CADR GOMARKF
030149,001768: 04,2775 15472 TCF ENDEXT # TERMINATE
030150,001769: 04,2776 15472 TCF ENDEXT # PROCEED, END OF PROGRAM
030151,001770: 04,2777 12661 TCF R36 +3 # REDISPLAY OUTPUT
030152,001771: 04,3000 56001 LREGCHK XCH L
030153,001772: 04,3001 00006 EXTEND
030154,001773: 04,3002 13005 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
030155,001774: 04,3003 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
030156,001775: 04,3004 12672 TCF ASTROTIM
030157,001776: 04,3005 06037 ENTTIM2 TC INTPRET
030158,001777: 04,3006 52034 RTB GOTO
030159,001778: 04,3007 21573 LOADTIME
030160,001779: 04,3010 10676 R36INT
030161,001780: 04,3011 01420 V06N16N VN 00616
030162,001781: 04,3012 01532 V06N90N VN 00690
End of include-file P34-P35,_P74-P75.agc. Parent file is MAIN.agc