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