Source Code
|
These source code files are a reconstruction of Sundance, the Apollo 9 LM (Lunar Module) AGC
(Apollo Guidance Computer) flight software, created from binary dumps of original core rope
program modules, as follows:
Since only binary dumps (rather than listings) of Sundance are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
025577,000002: ## Copyright: Public domain.
025578,000003: ## Filename: P34-P35,_P74-P75.agc
025579,000004: ## Purpose: A section of a reconstructed, mixed version of Sundance
025580,000005: ## It is part of the reconstructed source code for the Lunar
025581,000006: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 9.
025582,000007: ## No original listings of this program are available;
025583,000008: ## instead, this file was created via disassembly of dumps
025584,000009: ## of various revisions of Sundance core rope modules.
025585,000010: ## Assembler: yaYUL
025586,000011: ## Contact: Ron Burkey <info@sandroid.org>.
025587,000012: ## Website: www.ibiblio.org/apollo/index.html
025588,000013: ## Mod history: 2020-06-17 MAS Created from Luminary 69.
025589,000014:
025590,000015: ## Sundance 292
025591,000016:
025592,000017: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
025593,000018:
025594,000019: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
025595,000020: # MOD BY WHITE.P DATE 1JUNE67
025596,000021:
025597,000022: # PURPOSE
025598,000023:
025599,000024: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
025600,000025: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
025601,000026: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
025602,000027:
025603,000028: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
025604,000029: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
025605,000030:
025606,000031: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
025607,000032: # INTERCEPT TIME (TIG (TPF)).
025608,000033:
025609,000034: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
025610,000035:
025611,000036: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
025612,000037: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
025613,000038:
025614,000039: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
025615,000040: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
025616,000041: # ASTRONAUT/GROUND.
025617,000042:
025618,000043: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
025619,000044: # THRUSTING PROGRAM.
025620,000045:
025621,000046: # ASSUMPTIONS
025622,000047:
025623,000048: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
025624,000049: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
025625,000050: # THEREFORE -
025626,000051:
025627,000052: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
025628,000053: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
025629,000054: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
025630,000055: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
025631,000056:
025632,000057: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
025633,000058: # COMPUTED TO BE GREATER THAN 10 MINUTES.
025634,000059:
025635,000060: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
025636,000061: # ORBITS WAS MINIMIZED.
025637,000062:
025638,000063: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
025639,000064: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
025640,000065: # ORBIT OR 85 NM FOR EARTH ORBIT.
025641,000066:
025642,000067: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
025643,000068: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
025644,000069: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
025645,000070: # IN AN OUT-OF-PLANE MANEUVER.
025646,000071:
025647,000072: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
025648,000073: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
025649,000074:
025650,000075: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
025651,000076: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
025652,000077: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
025653,000078: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
025654,000079: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
025655,000080: # FLIGHT PLAN MANEUVER SEQUENCES.
025656,000081:
025657,000082: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
025658,000083: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
025659,000084: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
025660,000085: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
025661,000086: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
025662,000087: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
025663,000088: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
025664,000089: # THRUSTING MANEUVER.
025665,000090:
025666,000091: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
025667,000092:
025668,000093: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
025669,000094:
025670,000095: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
025671,000096: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
025672,000097: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
025673,000098: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
025674,000099:
025675,000100: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
025676,000101: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
025677,000102:
025678,000103: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
025679,000104: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
025680,000105: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
025681,000106:
025682,000107: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
025683,000108: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
025684,000109: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
025685,000110: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
025686,000111: # THROUGH THE USE OF V06N52.
025687,000112:
025688,000113: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
025689,000114: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
025690,000115: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
025691,000116: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
025692,000117: # UPON DELTA V AND EXPECTED MANEUVER TIME.
025693,000118:
025694,000119: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
025695,000120:
025696,000121: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
025697,000122:
025698,000123: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
025699,000124:
025700,000125: # INPUT
025701,000126:
025702,000127: # (1) TTPI TIME OF THE TPI MANEUVER
025703,000128: # (2) ELEV DESIRED LOS ANGLE AT TPI
025704,000129: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
025705,000130: # TRANSFER FROM TPI TO TIME OF INTERCEPT
025706,000131:
025707,000132: # OUTPUT
025708,000133:
025709,000134: # (1) TRKMKCNT NUMBER OF MARKS
025710,000135: # (2) TTOGO TIME TO GO
025711,000136: # (3) +MGA MIDDLE GIMBAL ANGLE
025712,000137: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
025713,000138: # OR
025714,000139: # ELEV COMPUTED LOS ANGLE AT TPI
025715,000140: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
025716,000141: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
025717,000142: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
025718,000143: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
025719,000144: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
025720,000145:
025721,000146: # DOWNLINK
025722,000147:
025723,000148: # (1) TTPI TIME OF THE TPI MANEUVER
025724,000149: # (2) TIG TIME OF THE TPI MANEUVER
025725,000150: # (3) ELEV DESIRED LOS ANGLE AT TPI
025726,000151: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
025727,000152: # TRANSFER FROM TPI TO TIME OF INTERCEPT
025728,000153: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
025729,000154: # (6) TPASS4 TIME OF INTERCEPT
025730,000155:
025731,000156: # COMMUNICATION TO THRUSTING PROGRAMS
025732,000157:
025733,000158: # (1) TIG TIME OF THE TPI MANEUVER
025734,000159: # (2) RTARG OFFSET TARGET POSITION
025735,000160: # (3) TPASS4 TIME OF INTERCEPT
025736,000161: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
025737,000162:
025738,000163: # SUBROUTINES USED
025739,000164:
025740,000165: # AVFLAGA
025741,000166: # AVFLAGP
025742,000167: # VNPOOH
025743,000168: # DISPLAYE
025744,000169: # SELECTMU
025745,000170: # PRECSET
025746,000171: # S33/34.1
025747,000172: # ALARM
025748,000173: # BANKCALL
025749,000174: # GOFLASH
025750,000175: # GOTOPOOH
025751,000176: # TIMETHET
025752,000177: # S34/35.2
025753,000178: # PERIAPO1
025754,000179: # SHIFTR1
025755,000180: # S34/35.5
025756,000181: # VN1645
025757,000182:
025758,000183: 35,2000 SETLOC CSI/CDH
025759,000184: 35,2000 BANK
025760,000185: 35,2503 E7,1455 EBANK= SUBEXIT
025761,000186: 35,2503 COUNT* $$/P3474
025762,000187: 35,2503 02405 P34 TC AVFLAGA
025763,000188: 35,2504 02506 TC P34/P74A
025764,000189: 35,2505 02412 P74 TC AVFLAGP
025765,000190: 35,2506 33625 P34/P74A CAF V06N37 # TTPI
025766,000191: 35,2507 03614 TC VNPOOH
025767,000192: 35,2510 03573 TC DISPLAYE # ELEV AND CENTANG
025768,000193: 35,2511 06014 TC INTPRET
025769,000194: 35,2512 71214 CLEAR DLOAD
025770,000195: 35,2513 01270 ETPIFLAG
025771,000196: 35,2514 03623 TTPI
025772,000197: 35,2515 17425 STODL TIG
025773,000198: 35,2516 02265 ELEV
025774,000199: 35,2517 43054 BZE SET
025775,000200: 35,2520 72522 P34/P74B
025776,000201: 35,2521 01070 ETPIFLAG
025777,000202: 35,2522 77624 P34/P74B CALL
025778,000203: 35,2523 20045 SELECTMU
025779,000204: 35,2524 DELELO EQUALS 26D
025780,000205: 35,2524 43145 P34/P74C DLOAD SET
025781,000206: 35,2525 06233 ZEROVECS
025782,000207: 35,2526 03460 ITSWICH
025783,000208: 35,2527 43014 BON CLEAR
025784,000209: 35,2530 01310 ETPIFLAG
025785,000210: 35,2531 72533 SWCHSET
025786,000211: 35,2532 03660 ITSWICH
025787,000212: 35,2533 02335 SWCHSET STORE NOMTPI
025788,000213: 35,2534 43345 INTLOOP DLOAD DAD
025789,000214: 35,2535 03623 TTPI
025790,000215: 35,2536 02335 NOMTPI
025791,000216: 35,2537 34041 STCALL TDEC1
025792,000217: 35,2540 46150 PRECSET
025793,000218: 35,2541 77624 CALL
025794,000219: 35,2542 72721 S33/34.1
025795,000220: 35,2543 77454 BZE EXIT
025796,000221: 35,2544 72555 SWCHCLR
025797,000222: 35,2545 05646 TC ALARM
025798,000223: 35,2546 00611 OCT 611
025799,000224: 35,2547 35056 CAF V05N09
025800,000225: 35,2550 04655 TC BANKCALL
025801,000226: 35,2551 20406 CADR GOFLASH
025802,000227: 35,2552 04106 TC GOTOPOOH
025803,000228: 35,2553 02506 TC P34/P74A # PROCEED
025804,000229: 35,2554 02545 TC -7 # V32
025805,000230:
025806,000231: 35,2555 43014 SWCHCLR BONCLR BON
025807,000232: 35,2556 03600 ITSWICH
025808,000233: 35,2557 72534 INTLOOP
025809,000234: 35,2560 01310 ETPIFLAG
025810,000235: 35,2561 72565 P34/P74D # DISPLAY TTPI
025811,000236: 35,2562 77776 EXIT
025812,000237: 35,2563 03573 TC DISPLAYE # DISPLAY ELEV AND CENTANG
025813,000238: 35,2564 02570 TC P34/P74E
025814,000239: 35,2565 77776 P34/P74D EXIT
025815,000240: 35,2566 33625 CAF V06N37 # TTPI
025816,000241: 35,2567 03614 TC VNPOOH
025817,000242: 35,2570 06014 P34/P74E TC INTPRET
025818,000243: 35,2571 71201 SETPD DLOAD
025819,000244: 35,2572 00001 0D
025820,000245: 35,2573 02333 RTX1
025821,000246: 35,2574 14047 STODL X1
025822,000247: 35,2575 03606 CENTANG
025823,000248: 35,2576 71406 PUSH COS
025824,000249: 35,2577 16732 STODL CSTH
025825,000250: 35,2600 77756 SIN
025826,000251: 35,2601 26730 STOVL SNTH
025827,000252: 35,2602 03537 RPASS3
025828,000253: 35,2603 77657 VSR*
025829,000254: 35,2604 57176 0,2
025830,000255: 35,2605 26655 STOVL RVEC
025831,000256: 35,2606 03545 VPASS3
025832,000257: 35,2607 43057 VSR* SET
025833,000258: 35,2610 57176 0,2
025834,000259: 35,2611 03466 RVSW
025835,000260: 35,2612 36744 STCALL VVEC
025836,000261: 35,2613 24732 TIMETHET
025837,000262: 35,2614 77745 DLOAD
025838,000263: 35,2615 03623 TTPI
025839,000264: 35,2616 03577 STORE INTIME # FOR INITVEL
025840,000265: 35,2617 77615 DAD
025841,000266: 35,2620 00037 T # RENDEZVOUS TIME
025842,000267: 35,2621 37616 STCALL TPASS4 # FOR INITVEL
025843,000268: 35,2622 73243 S34/35.2
025844,000269: 35,2623 51575 VLOAD ABVAL
025845,000270: 35,2624 03363 DELVEET3
025846,000271: 35,2625 27563 STOVL DELVTPI
025847,000272: 35,2626 03473 VPASS4
025848,000273: 35,2627 51451 VSU ABVAL
025849,000274: 35,2630 03553 VTPRIME
025850,000275: 35,2631 27565 STOVL DELVTPF
025851,000276: 35,2632 03523 RACT3
025852,000277: 35,2633 45115 PDVL CALL
025853,000278: 35,2634 02357 VIPRIME
025854,000279: 35,2635 46106 PERIAPO1
025855,000280: 35,2636 77624 CALL
025856,000281: 35,2637 46216 SHIFTR1
025857,000282: 35,2640 17575 STODL POSTTPI
025858,000283: 35,2641 03623 TTPI
025859,000284: 35,2642 03425 STORE TIG
025860,000285: 35,2643 77776 EXIT
025861,000286: 35,2644 33627 CAF V06N58
025862,000287: 35,2645 03614 TC VNPOOH
025863,000288: 35,2646 06014 TC INTPRET
025864,000289: 35,2647 77624 CALL
025865,000290: 35,2650 73442 S34/35.5
025866,000291: 35,2651 77624 CALL
025867,000292: 35,2652 73505 VN1645
025868,000293: 35,2653 77650 GOTO
025869,000294: 35,2654 72524 P34/P74C
025870,000295: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
025871,000296:
025872,000297: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
025873,000298: # MOD BY WHITE.P DATE 1JUNE67
025874,000299:
025875,000300: # PURPOSE
025876,000301:
025877,000302: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
025878,000303: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
025879,000304: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
025880,000305: # VEHICLE RENDEZVOUS.
025881,000306:
025882,000307: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
025883,000308: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
025884,000309: # ASTRONAUT/GROUND.
025885,000310:
025886,000311: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
025887,000312: # THRUSTING PROGRAM.
025888,000313:
025889,000314: # ASSUMPTIONS
025890,000315:
025891,000316: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
025892,000317:
025893,000318: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
025894,000319: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
025895,000320:
025896,000321: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
025897,000322: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
025898,000323: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
025899,000324: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
025900,000325: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
025901,000326: # P20 AND AFTER EACH THRUSTING MANEUVER.
025902,000327:
025903,000328: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
025904,000329:
025905,000330: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
025906,000331: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
025907,000332: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
025908,000333: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
025909,000334:
025910,000335: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
025911,000336: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
025912,000337:
025913,000338: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
025914,000339: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
025915,000340: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
025916,000341:
025917,000342: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
025918,000343: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
025919,000344: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
025920,000345:
025921,000346: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
025922,000347: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
025923,000348: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
025924,000349: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
025925,000350: # THROUGH THE USE OF V06N52.
025926,000351:
025927,000352: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
025928,000353: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
025929,000354: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
025930,000355: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
025931,000356: # UPON DELTA V AND EXPECTED MANEUVER TIME.
025932,000357:
025933,000358: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
025934,000359:
025935,000360: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
025936,000361:
025937,000362: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
025938,000363:
025939,000364: # INPUT
025940,000365:
025941,000366: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
025942,000367: # OUTPUT
025943,000368:
025944,000369: # (1) TRKMKCNT NUMBER OF MARKS
025945,000370: # (2) TTOGO TIME TO GO
025946,000371: # (3) +MGA MIDDLE GIMBAL ANGLE
025947,000372: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
025948,000373: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
025949,000374:
025950,000375: # DOWNLINK
025951,000376:
025952,000377: # (1) TIG TIME OF THE TPM MANEUVER
025953,000378: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
025954,000379: # (3) TPASS4 TIME OF INTERCEPT
025955,000380: # COMMUNICATION TO THRUSTING PROGRAMS
025956,000381:
025957,000382: # (1) TIG TIME OF THE TPM MANEUVER
025958,000383: # (2) RTARG OFFSET TARGET POSITION
025959,000384: # (3) TPASS4 TIME OF INTERCEPT
025960,000385: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
025961,000386:
025962,000387: # SUBROUTINES USED
025963,000388:
025964,000389: # AVFLAGA
025965,000390: # AVFLAGP
025966,000391: # LOADTIME
025967,000392: # SELECTMU
025968,000393: # PRECSET
025969,000394: # S34/35.1
025970,000395: # S34/35.2
025971,000396: # S34/35.5
025972,000397: # VN1645
025973,000398:
025974,000399: 35,2655 COUNT* $$/P3575
025975,000400: 35,2655 E7,1562 EBANK= KT
025976,000401:
025977,000402: 35,2655 02405 P35 TC AVFLAGA
025978,000403: 35,2656 00006 EXTEND
025979,000404: 35,2657 31401 DCA ATIGINC
025980,000405: 35,2660 02664 TC P35/P75A
025981,000406: 35,2661 02412 P75 TC AVFLAGP
025982,000407: 35,2662 00006 EXTEND
025983,000408: 35,2663 31403 DCA PTIGINC
025984,000409: 35,2664 53563 P35/P75A DXCH KT
025985,000410: 35,2665 06014 TC INTPRET
025986,000411: 35,2666 77634 RTB
025987,000412: 35,2667 21454 LOADTIME
025988,000413: 35,2670 03565 STORE TSTRT
025989,000414: 35,2671 77615 DAD
025990,000415: 35,2672 03563 KT
025991,000416: 35,2673 37425 STCALL TIG
025992,000417: 35,2674 20045 SELECTMU
025993,000418: 35,2675 77745 P35/P75B DLOAD
025994,000419: 35,2676 03425 TIG
025995,000420: 35,2677 03577 STORE INTIME # FOR INITVEL
025996,000421: 35,2700 34041 STCALL TDEC1
025997,000422: 35,2701 46150 PRECSET # ADVANCE BOTH VEHICLES
025998,000423: 35,2702 77624 CALL
025999,000424: 35,2703 73231 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
026000,000425: 35,2704 77624 CALL
026001,000426: 35,2705 73243 S34/35.2 # GET DELTA V(LV)
026002,000427: 35,2706 77624 CALL
026003,000428: 35,2707 73442 S34/35.5
026004,000429: 35,2710 77624 CALL
026005,000430: 35,2711 73505 VN1645
026006,000431: 35,2712 77634 RTB
026007,000432: 35,2713 21454 LOADTIME
026008,000433: 35,2714 03565 STORE TSTRT
026009,000434: 35,2715 77615 DAD
026010,000435: 35,2716 03563 KT
026011,000436: 35,2717 37425 STCALL TIG
026012,000437: 35,2720 72675 P35/P75B
026013,000438: # ..... S33/34.1 .....
026014,000439:
026015,000440: 35,2721 66220 S33/34.1 STQ SSP
026016,000441: 35,2722 03450 NORMEX
026017,000442: 35,2723 03601 TITER
026018,000443: 35,2724 40000 OCT 40000
026019,000444: 35,2725 40345 DLOAD SETPD
026020,000445: 35,2726 33636 MAX250
026021,000446: 35,2727 00001 0D
026022,000447: 35,2730 27561 STOVL SECMAX
026023,000448: 35,2731 03523 RACT3
026024,000449: 35,2732 27465 STOVL RAPREC
026025,000450: 35,2733 03531 VACT3
026026,000451: 35,2734 27473 STOVL VAPREC
026027,000452: 35,2735 03537 RPASS3
026028,000453: 35,2736 27507 STOVL RPPREC
026029,000454: 35,2737 03545 VPASS3
026030,000455: 35,2740 03515 STORE VPPREC
026031,000456: 35,2741 77624 ELCALC CALL
026032,000457: 35,2742 73231 S34/35.1 # NORMAL AND LOS
026033,000458: 35,2743 63235 VXV PDVL
026034,000459: 35,2744 03523 RACT3 # (RA*VA)*RA 0D
026035,000460: 35,2745 53515 PDVL UNIT # ULOS AT 6D
026036,000461: 35,2746 03523 RACT3
026037,000462: 35,2747 46315 PDVL VPROJ # XCHNJ AND UP
026038,000463: 35,2750 51352 VSL2 BVSU
026039,000464: 35,2751 02325 ULOS
026040,000465: 35,2752 63256 UNIT PDVL # UP AT 0D
026041,000466: 35,2753 63241 DOT PDVL # UP.UN*RA AT 0D
026042,000467: 35,2754 00001 0D # UP IN MPAC
026043,000468: 35,2755 75241 DOT SIGN
026044,000469: 35,2756 02325 ULOS
026045,000470: 35,2757 65552 SL1 ACOS
026046,000471: 35,2760 50315 PDVL DOT # EA AT 0D
026047,000472: 35,2761 02325 ULOS
026048,000473: 35,2762 03523 RACT3
026049,000474: 35,2763 71244 BPL DLOAD
026050,000475: 35,2764 72767 TESTY
026051,000476: 35,2765 06241 DPPOSMAX
026052,000477: 35,2766 41425 DSU PUSH
026053,000478: 35,2767 71214 TESTY BOFF DLOAD
026054,000479: 35,2770 03740 ITSWICH
026055,000480: 35,2771 73216 ELEX
026056,000481: 35,2772 03563 DELEL
026057,000482: 35,2773 14033 STODL DELELO
026058,000483: 35,2774 77625 DSU
026059,000484: 35,2775 02265 ELEV
026060,000485: 35,2776 03563 STORE DELEL
026061,000486: 35,2777 45246 ABS DSU
026062,000487: 35,3000 33642 ELEPS
026063,000488: 35,3001 77640 BMN
026064,000489: 35,3002 73226 TIMEX # COMMERCIALS EVERYWHERE
026065,000490: 35,3003 70535 FIGTIME SLOAD SR1
026066,000491: 35,3004 03601 TITER
026067,000492: 35,3005 72030 BHIZ LXA,1
026068,000493: 35,3006 03450 NORMEX # TOO MANY ITERATIONS
026069,000494: 35,3007 00154 MPAC
026070,000495: 35,3010 77330 SXA,1 VLOAD
026071,000496: 35,3011 03600 TITER
026072,000497: 35,3012 03537 RPASS3
026073,000498: 35,3013 65256 UNIT PDDL
026074,000499: 35,3014 00045 36D
026075,000500: 35,3015 53515 PDVL UNIT
026076,000501: 35,3016 03523 RACT3
026077,000502: 35,3017 77725 PDDL
026078,000503: 35,3020 41525 PDDL PUSH
026079,000504: 35,3021 00045 36D
026080,000505: 35,3022 77621 BDSU
026081,000506: 35,3023 00015 12D
026082,000507: 35,3024 14037 STODL 30D # RP - RA MAGNITUDES
026083,000508: 35,3025 06231 DPHALF
026084,000509: 35,3026 41425 DSU PUSH
026085,000510: 35,3027 02265 ELEV
026086,000511: 35,3030 50165 SIGN BMN
026087,000512: 35,3031 00037 30D
026088,000513: 35,3032 03450 NORMEX
026089,000514: 35,3033 71545 DLOAD COS
026090,000515: 35,3034 56205 DMP DDV
026091,000516: 35,3035 00017 14D
026092,000517: 35,3036 00015 12D
026093,000518: 35,3037 77676 DCOMP # SINCE COS(180-A)=-COS A
026094,000519: 35,3040 00035 STORE 28D
026095,000520: 35,3041 44246 ABS BDSU
026096,000521: 35,3042 06231 DPHALF
026097,000522: 35,3043 77240 BMN VLOAD
026098,000523: 35,3044 03450 NORMEX
026099,000524: 35,3045 02275 UNRM
026100,000525: 35,3046 53435 VXV UNIT
026101,000526: 35,3047 00007 6D # UN*RA
026102,000527: 35,3050 41241 DOT DMP
026103,000528: 35,3051 03531 VACT3
026104,000529: 35,3052 00015 12D
026105,000530: 35,3053 47315 PDVL VXV
026106,000531: 35,3054 00001 0D
026107,000532: 35,3055 03545 VPASS3
026108,000533: 35,3056 53435 VXV UNIT
026109,000534: 35,3057 00001 0D # (RP*VP)*RP
026110,000535: 35,3060 41241 DOT DMP
026111,000536: 35,3061 03545 VPASS3
026112,000537: 35,3062 00017 14D
026113,000538: 35,3063 77621 BDSU
026114,000539: 35,3064 63301 NORM PDVL # NORMALIZED WA - WP 12D
026115,000540: 35,3065 00047 X1
026116,000541: 35,3066 00007 6D
026117,000542: 35,3067 50235 VXV DOT
026118,000543: 35,3070 00001 0D
026119,000544: 35,3071 02275 UNRM # RA*RP.UN 14D
026120,000545: 35,3072 50315 PDVL DOT
026121,000546: 35,3073 00001 0D
026122,000547: 35,3074 00007 6D
026123,000548: 35,3075 65552 SL1 ACOS
026124,000549: 35,3076 77765 SIGN
026125,000550: 35,3077 43225 DSU DAD # ALPHA PI
026126,000551: 35,3100 06231 DPHALF
026127,000552: 35,3101 02265 ELEV
026128,000553: 35,3102 65525 PDDL ACOS
026129,000554: 35,3103 00035 28D
026130,000555: 35,3104 75221 BDSU SIGN
026131,000556: 35,3105 06231 DPHALF
026132,000557: 35,3106 00037 30D # CONTAINS RP-RA
026133,000558: 35,3107 77615 DAD
026134,000559: 35,3110 56205 DMP DDV
026135,000560: 35,3111 33634 TWOPI
026136,000561: 35,3112 77605 DMP
026137,000562: 35,3113 41257 SL* DMP
026138,000563: 35,3114 20176 0 -3,1
026139,000564: 35,3115 51406 PUSH ABS
026140,000565: 35,3116 50025 DSU BMN
026141,000566: 35,3117 03561 SECMAX
026142,000567: 35,3120 73124 OKMAX
026143,000568: 35,3121 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
026144,000569: 35,3122 03561 SECMAX
026145,000570: 35,3123 77606 PUSH
026146,000571: 35,3124 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
026147,000572: 35,3125 03601 TITER
026148,000573: 35,3126 73134 REPETE
026149,000574: 35,3127 71331 SSP DLOAD
026150,000575: 35,3130 03601 TITER
026151,000576: 35,3131 37777 OCT 37777
026152,000577: 35,3132 77650 GOTO
026153,000578: 35,3133 73172 STORDELT
026154,000579: 35,3134 41345 REPETE DLOAD DMP
026155,000580: 35,3135 03563 DELEL
026156,000581: 35,3136 00033 DELELO
026157,000582: 35,3137 71244 BPL DLOAD
026158,000583: 35,3140 73150 NEXTES
026159,000584: 35,3141 03561 SECMAX
026160,000585: 35,3142 77605 DMP
026161,000586: 35,3143 33640 THIRD
026162,000587: 35,3144 17561 STODL SECMAX
026163,000588: 35,3145 70446 ABS SR1 # CROSSED OVER SOLUTION
026164,000589: 35,3146 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
026165,000590: 35,3147 73160 RESIGN
026166,000591: 35,3150 51545 NEXTES DLOAD ABS
026167,000592: 35,3151 03563 DELEL
026168,000593: 35,3152 51525 PDDL ABS
026169,000594: 35,3153 00033 DELELO
026170,000595: 35,3154 77625 DSU
026171,000596: 35,3155 71240 BMN DLOAD
026172,000597: 35,3156 73163 REVERS # WRONG DIRECTION
026173,000598: 35,3157 77646 ABS
026174,000599: 35,3160 52165 RESIGN SIGN GOTO
026175,000600: 35,3161 03575 DELTEEO
026176,000601: 35,3162 73172 STORDELT
026177,000602: 35,3163 57545 REVERS DLOAD DCOMP
026178,000603: 35,3164 03575 DELTEEO
026179,000604: 35,3165 70406 PUSH SR1
026180,000605: 35,3166 03575 STORE DELTEEO
026181,000606: 35,3167 77615 DAD
026182,000607: 35,3170 77650 GOTO
026183,000608: 35,3171 73173 ADTIME
026184,000609: 35,3172 03575 STORDELT STORE DELTEEO
026185,000610: 35,3173 77615 ADTIME DAD
026186,000611: 35,3174 02335 NOMTPI # SUM OF DELTA T:S
026187,000612: 35,3175 02335 STORE NOMTPI
026188,000613: 35,3176 63375 VLOAD PDVL
026189,000614: 35,3177 03473 VAPREC
026190,000615: 35,3200 03465 RAPREC
026191,000616: 35,3201 77624 CALL
026192,000617: 35,3202 73402 GOINT
026193,000618: 35,3203 77624 CALL
026194,000619: 35,3204 46172 ACTIVE # STORE NEW RACT3 VACT3
026195,000620: 35,3205 63375 VLOAD PDVL
026196,000621: 35,3206 03515 VPPREC
026197,000622: 35,3207 03507 RPPREC
026198,000623: 35,3210 77624 CALL
026199,000624: 35,3211 73402 GOINT
026200,000625: 35,3212 77624 CALL
026201,000626: 35,3213 46202 PASSIVE # STORE NEW RPASS3 VPASS3
026202,000627: 35,3214 77650 GOTO
026203,000628: 35,3215 72741 ELCALC
026204,000629: 35,3216 43345 ELEX DLOAD DAD
026205,000630: 35,3217 03623 TTPI
026206,000631: 35,3220 02335 NOMTPI
026207,000632: 35,3221 17623 STODL TTPI
026208,000633: 35,3222 77614 BON
026209,000634: 35,3223 01310 ETPIFLAG
026210,000635: 35,3224 73226 TIMEX
026211,000636: 35,3225 02265 STORE ELEV
026212,000637: 35,3226 52145 TIMEX DLOAD GOTO
026213,000638: 35,3227 06233 ZEROVECS
026214,000639: 35,3230 03450 NORMEX
026215,000640:
026216,000641: # ..... S34/35.1 .....
026217,000642:
026218,000643: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
026219,000644: # PASSIVE POS AND VEL AT TIME T3
026220,000645:
026221,000646: 35,3231 52375 S34/35.1 VLOAD VSU
026222,000647: 35,3232 03537 RPASS3
026223,000648: 35,3233 03523 RACT3
026224,000649: 35,3234 41456 UNIT PUSH
026225,000650: 35,3235 26325 STOVL ULOS
026226,000651: 35,3236 03523 RACT3
026227,000652: 35,3237 53435 VXV UNIT
026228,000653: 35,3240 03531 VACT3
026229,000654: 35,3241 02275 STORE UNRM
026230,000655: 35,3242 77616 RVQ
026231,000656:
026232,000657: # ..... S34/35.2 .....
026233,000658:
026234,000659: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
026235,000660:
026236,000661: 35,3243 77220 S34/35.2 STQ VLOAD
026237,000662: 35,3244 03450 NORMEX
026238,000663: 35,3245 03545 VPASS3
026239,000664: 35,3246 65315 PDVL PDDL
026240,000665: 35,3247 03537 RPASS3
026241,000666: 35,3250 03577 INTIME
026242,000667: 35,3251 65325 PDDL PDDL
026243,000668: 35,3252 03616 TPASS4
026244,000669: 35,3253 06233 ZEROVECS
026245,000670: 35,3254 45006 PUSH CALL
026246,000671: 35,3255 73406 INTINT # GET TARGET VECTOR
026247,000672: 35,3256 25772 S3435.25 STOVL RTARG
026248,000673: 35,3257 00007 VATT
026249,000674: 35,3260 27473 STOVL VPASS4
026250,000675: 35,3261 01772 RTARG
026251,000676: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
026252,000677: 35,3262 63256 UNIT PDVL # UNIT RP
026253,000678: 35,3263 03523 RACT3
026254,000679: 35,3264 41456 UNIT PUSH # UNIT RA
026255,000680: 35,3265 50235 VXV DOT
026256,000681: 35,3266 00001 0D
026257,000682: 35,3267 02275 UNRM # RA*RP.U
026258,000683: 35,3270 77715 PDVL
026259,000684: 35,3271 72441 DOT SL1 # UNIT RA.UNIT RP
026260,000685: 35,3272 00001 0D
026261,000686: 35,3273 75326 ACOS SIGN
026262,000687: 35,3274 43244 BPL DAD
026263,000688: 35,3275 73277 NOPIE
026264,000689: 35,3276 06241 DPPOSMAX # REASONABLE TWO PI
026265,000690: 35,3277 15770 NOPIE STODL ACTCENT
026266,000691: 35,3300 03616 TPASS4
026267,000692: 35,3301 77625 DSU
026268,000693: 35,3302 03577 INTIME
026269,000694: 35,3303 02355 STORE DELLT4
026270,000695: 35,3304 45135 SLOAD CALL
026271,000696: 35,3305 33644 DECTWO
026272,000697: 35,3306 22002 PREINITV
026273,000698: 35,3307 77624 CALL
026274,000699: 35,3310 73367 LOMAT
026275,000700: 35,3311 64375 VLOAD MXV
026276,000701: 35,3312 03363 DELVEET3
026277,000702: 35,3313 00001 0D
026278,000703: 35,3314 77772 VSL1
026279,000704: 35,3315 36267 STCALL DELVLVC
026280,000705: 35,3316 03450 NORMEX
026281,000706:
026282,000707: # ..... S34/35.3 .....
026283,000708:
026284,000709: 35,3317 45020 S34/35.3 STQ CALL
026285,000710: 35,3320 03450 NORMEX
026286,000711: 35,3321 73367 LOMAT # GET MATRIX IN PUSH LIST
026287,000712: 35,3322 61375 VLOAD VXM
026288,000713: 35,3323 02267 DELVLVC # NEW DEL V TPI
026289,000714: 35,3324 00001 0D
026290,000715: 35,3325 77772 VSL1
026291,000716: 35,3326 03363 STORE DELVEET3 # SAVE FOR TRANSFORM
026292,000717: 35,3327 63255 VAD PDVL
026293,000718: 35,3330 03531 VACT3 # NEW V REQ
026294,000719: 35,3331 03523 RACT3
026295,000720: 35,3332 65325 PDDL PDDL
026296,000721: 35,3333 03425 TIG
026297,000722: 35,3334 03616 TPASS4
026298,000723: 35,3335 41525 PDDL PUSH
026299,000724: 35,3336 06241 DPPOSMAX
026300,000725: 35,3337 77624 CALL # INTEG. FOR NEW TARGET VEC
026301,000726: 35,3340 73406 INTINT
026302,000727: 35,3341 77775 VLOAD
026303,000728: 35,3342 00001 RATT
026304,000729: 35,3343 01772 STORE RTARG
026305,000730: 35,3344 41575 NOVRWRT VLOAD PUSH
026306,000731: 35,3345 02325 ULOS
026307,000732: 35,3346 57435 VXV VCOMP
026308,000733: 35,3347 02275 UNRM
026309,000734: 35,3350 41456 UNIT PUSH
026310,000735: 35,3351 76435 VXV VSL1
026311,000736: 35,3352 02325 ULOS
026312,000737: 35,3353 77715 PDVL
026313,000738: 35,3354 64315 PDVL MXV
026314,000739: 35,3355 03363 DELVEET3
026315,000740: 35,3356 00001 0D
026316,000741: 35,3357 77772 VSL1
026317,000742: 35,3360 36317 STCALL DVLOS
026318,000743: 35,3361 03450 NORMEX
026319,000744:
026320,000745: # ..... S34/35.4 .....
026321,000746:
026322,000747: 35,3362 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
026323,000748: 35,3363 03450 NORMEX
026324,000749: 35,3364 00001 0D
026325,000750: 35,3365 77650 GOTO
026326,000751: 35,3366 73344 NOVRWRT
026327,000752:
026328,000753: # ..... LOMAT .....
026329,000754:
026330,000755: 35,3367 57575 LOMAT VLOAD VCOMP
026331,000756: 35,3370 02275 UNRM
026332,000757: 35,3371 24007 STOVL 6D # Y
026333,000758: 35,3372 03523 RACT3
026334,000759: 35,3373 57456 UNIT VCOMP
026335,000760: 35,3374 00015 STORE 12D
026336,000761: 35,3375 76435 VXV VSL1
026337,000762: 35,3376 02275 UNRM # Z*-Y
026338,000763: 35,3377 00001 STORE 0D
026339,000764: 35,3400 43401 SETPD RVQ
026340,000765: 35,3401 00023 18D
026341,000766: 35,3402 65325 GOINT PDDL PDDL # DO
026342,000767: 35,3403 06233 ZEROVECS # NOT
026343,000768: 35,3404 02335 NOMTPI
026344,000769: 35,3405 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
026345,000770: 35,3406 45020 INTINT STQ CALL
026346,000771: 35,3407 03452 RTRN
026347,000772: 35,3410 27362 INTSTALL
026348,000773: 35,3411 71214 CLEAR DLOAD
026349,000774: 35,3412 01673 INTYPFLG
026350,000775: 35,3413 43054 BZE SET
026351,000776: 35,3414 73416 +2
026352,000777: 35,3415 01473 INTYPFLG
026353,000778: 35,3416 45545 DLOAD STADR
026354,000779: 35,3417 63736 STODL TDEC1
026355,000780: 35,3420 73014 SET LXA,2
026356,000781: 35,3421 00063 MOONFLAG
026357,000782: 35,3422 02333 RTX2
026358,000783: 35,3423 43014 BON CLEAR
026359,000784: 35,3424 04303 CMOONFLG
026360,000785: 35,3425 73427 ALLSET
026361,000786: 35,3426 00263 MOONFLAG
026362,000787: 35,3427 25517 ALLSET STOVL TET
026363,000788: 35,3430 77657 VSR*
026364,000789: 35,3431 57176 0,2
026365,000790: 35,3432 25535 STOVL RCV
026366,000791: 35,3433 77657 VSR*
026367,000792: 35,3434 57176 0,2
026368,000793: 35,3435 35543 STCALL VCV
026369,000794: 35,3436 27060 INTEGRVS
026370,000795: 35,3437 52175 VLOAD GOTO
026371,000796: 35,3440 00001 RATT
026372,000797: 35,3441 03452 RTRN
026373,000798:
026374,000799: # ..... S34/35.5 .....
026375,000800: # SUBROUTINES USED
026376,000801: # BANKCALL
026377,000802: # GOFLASH
026378,000803: # GOTOPOOH
026379,000804: # S34/35.3
026380,000805: # S34/35.4
026381,000806: # VNPOOH
026382,000807:
026383,000808: 35,3442 43020 S34/35.5 STQ BON
026384,000809: 35,3443 03455 SUBEXIT
026385,000810: 35,3444 01311 FINALFLG
026386,000811: 35,3445 73451 FLAGON
026387,000812: 35,3446 52014 SET GOTO
026388,000813: 35,3447 00470 UPDATFLG
026389,000814: 35,3450 73475 FLAGOFF
026390,000815: 35,3451 77414 FLAGON CLEAR EXIT
026391,000816: 35,3452 03274 NTARGFLG
026392,000817: 35,3453 33631 +2 CAF V06N81
026393,000818: 35,3454 04655 TC BANKCALL
026394,000819: 35,3455 20406 CADR GOFLASH
026395,000820: 35,3456 04106 TC GOTOPOOH
026396,000821: 35,3457 03464 TC +5 # PRO
026397,000822: 35,3460 06014 TC INTPRET
026398,000823: 35,3461 77414 SET EXIT
026399,000824: 35,3462 03074 NTARGFLG
026400,000825: 35,3463 03453 TC FLAGON +2
026401,000826:
026402,000827: 35,3464 06014 TC INTPRET
026403,000828: 35,3465 45014 BOFF CALL
026404,000829: 35,3466 03354 NTARGFLG
026405,000830: 35,3467 73471 NOCHG
026406,000831: 35,3470 73317 S34/35.3
026407,000832: 35,3471 77214 NOCHG CLEAR VLOAD
026408,000833: 35,3472 01267 XDELVFLG
026409,000834: 35,3473 03363 DELVEET3
026410,000835: 35,3474 03643 STORE DELVSIN
026411,000836: 35,3475 77624 FLAGOFF CALL
026412,000837: 35,3476 73362 S34/35.4
026413,000838: 35,3477 77776 EXIT
026414,000839: 35,3500 33630 CAF V06N59
026415,000840: 35,3501 03614 TC VNPOOH
026416,000841: 35,3502 06014 TC INTPRET
026417,000842: 35,3503 77650 GOTO
026418,000843: 35,3504 03455 SUBEXIT
026419,000844:
026420,000845: # ..... VN1645 .....
026421,000846:
026422,000847: # SUBROUTINES USED
026423,000848: # P3XORP7X
026424,000849: # GET+MGA
026425,000850: # BANKCALL
026426,000851: # DELAYJOB
026427,000852: # COMPTGO
026428,000853: # GOFLASHR
026429,000854: # GOTOPOOH
026430,000855: # FLAGUP
026431,000856:
026432,000857: 35,3505 71220 VN1645 STQ DLOAD
026433,000858: 35,3506 03455 SUBEXIT
026434,000859: 35,3507 33645 DP-.01
026435,000860: 35,3510 02261 STORE +MGA # MGA = -.01
026436,000861: 35,3511 71214 BOFF DLOAD
026437,000862: 35,3512 01351 FINALFLG
026438,000863: 35,3513 73533 GET45
026439,000864: 35,3514 33645 DP-.01
026440,000865: 35,3515 77615 DAD
026441,000866: 35,3516 33645 DP-.01
026442,000867: 35,3517 02261 STORE +MGA # MGA = -.02
026443,000868: 35,3520 77414 BOFF EXIT
026444,000869: 35,3521 01742 REFSMFLG
026445,000870: 35,3522 73533 GET45
026446,000871: 35,3523 03606 TC P3XORP7X
026447,000872: 35,3524 03526 TC +2 # P3X
026448,000873: 35,3525 03534 TC GET45 +1 # P7X
026449,000874: 35,3526 06014 TC INTPRET
026450,000875: 35,3527 41575 VLOAD PUSH
026451,000876: 35,3530 03643 DELVSIN
026452,000877: 35,3531 77624 CALL # COMPUTE MGA
026453,000878: 35,3532 20007 GET+MGA
026454,000879: 35,3533 77776 GET45 EXIT
026455,000880: 35,3534 02465 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
026456,000881: 35,3535 31455 CA SUBEXIT
026457,000882: 35,3536 55451 TS QSAVED
026458,000883: 35,3537 35047 CAF 1SEC
026459,000884: 35,3540 04655 TC BANKCALL
026460,000885: 35,3541 01730 CADR DELAYJOB
026461,000886: 35,3542 33632 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
026462,000887: 35,3543 04655 TC BANKCALL
026463,000888: 35,3544 20406 CADR GOFLASH
026464,000889: 35,3545 03550 TC KILCLOCK # TERMINATE
026465,000890: 35,3546 03553 TC N45PROC # PROCEED
026466,000891: 35,3547 03563 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
026467,000892: 35,3550 33633 KILCLOCK CA TWOPI
026468,000893: 35,3551 55175 TS DISPDEX
026469,000894: 35,3552 04106 TC GOTOPOOH
026470,000895: 35,3553 40076 N45PROC CS FLAGWRD2
026471,000896: 35,3554 75021 MASK BIT6
026472,000897: 35,3555 00006 EXTEND
026473,000898: 35,3556 13550 BZF KILCLOCK # FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
026474,000899: 35,3557 05413 TC PHASCHNG
026475,000900: 35,3560 04024 OCT 04024
026476,000901: 35,3561 05563 TC UPFLAG # SET
026477,000902: 35,3562 00047 ADRES FINALFLG # FINALFLG
026478,000903: 35,3563 33633 CLUPDATE CA TWOPI
026479,000904: 35,3564 55175 TS DISPDEX
026480,000905: 35,3565 05413 TC PHASCHNG
026481,000906: 35,3566 04024 OCT 04024
026482,000907: 35,3567 06014 TC INTPRET
026483,000908: 35,3570 52014 CLEAR GOTO
026484,000909: 35,3571 00670 UPDATFLG
026485,000910: 35,3572 03451 QSAVED
026486,000911:
026487,000912: # ..... DISPLAYE .....
026488,000913:
026489,000914: # SUBROUTINES USED
026490,000915: # BANKCALL
026491,000916: # GOFLASHR
026492,000917: # GOTOPOOH
026493,000918: # BLANKET
026494,000919: # ENDOFJOB
026495,000920:
026496,000921: 35,3573 00006 DISPLAYE EXTEND
026497,000922: 35,3574 23450 QXCH NORMEX
026498,000923: 35,3575 33626 CAF V06N55
026499,000924: 35,3576 04655 TCR BANKCALL
026500,000925: 35,3577 20544 CADR GOFLASHR
026501,000926: 35,3600 14106 TCF GOTOPOOH
026502,000927: 35,3601 01450 TC NORMEX
026503,000928: 35,3602 13575 TCF -5
026504,000929: 35,3603 35026 CAF BIT1 # BLANK R1
026505,000930: 35,3604 05553 TCR BLANKET
026506,000931: 35,3605 15225 TCF ENDOFJOB
026507,000932:
026508,000933: # ..... P3XORP7X .....
026509,000934:
026510,000935: 35,3606 37715 P3XORP7X CAF HIGH9
026511,000936: 35,3607 71012 MASK MODREG
026512,000937: 35,3610 00006 EXTEND
026513,000938: 35,3611 13613 BZF +2
026514,000939: 35,3612 24002 INCR Q
026515,000940: 35,3613 00002 RETURN
026516,000941:
026517,000942: # ..... VNPOOH .....
026518,000943:
026519,000944: # SUBROUTINES USED
026520,000945: # BANKCALL
026521,000946: # GOFLASH
026522,000947: # GOTOPOOH
026523,000948:
026524,000949: 35,3614 00006 VNPOOH EXTEND
026525,000950: 35,3615 23452 QXCH RTRN
026526,000951: 35,3616 55602 TS VERBNOUN
026527,000952: 35,3617 31602 CA VERBNOUN
026528,000953: 35,3620 04655 TCR BANKCALL
026529,000954: 35,3621 20406 CADR GOFLASH
026530,000955: 35,3622 14106 TCF GOTOPOOH
026531,000956: 35,3623 01452 TC RTRN
026532,000957: 35,3624 13617 TCF -5
026533,000958:
026534,000959: # ..... CONSTANTS .....
026535,000960:
026536,000961: 35,3625 01445 V06N37 VN 0637
026537,000962: 35,3626 01467 V06N55 VN 0655
026538,000963: 35,3627 01472 V06N58 VN 0658
026539,000964: 35,3630 01473 V06N59 VN 0659
026540,000965: 35,3631 01521 V06N81 VN 0681
026541,000966: 35,3632 04055 V16N45 VN 1645
026542,000967: 35,3633 14441 37325 TWOPI 2DEC 6.283185307 B-4
026543,000968:
026544,000969: 35,3635 00001 20650 MAX250 2DEC 25 E3
026545,000970:
026546,000971: 35,3637 12525 12525 THIRD 2DEC .333333333
026547,000972:
026548,000973: 35,3641 00004 21505 ELEPS 2DEC .27777777 E-3
026549,000974: 35,3643 00002 DECTWO OCT 2
026550,000975: 35,3644 77777 DP-.01 OCT 77777 # CONSTANTS
026551,000976: 35,3645 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
026552,000977:
026553,000978:
|
|
Sundance 302 |
026555,000980:
026556,000981: # ..... INITVEL .....
026557,000982:
026558,000983: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
026559,000984: # MOD BY WHITE.P DATE 21NOV67
026560,000985:
026561,000986: # FUNCTIONAL DESCRIPTION
026562,000987:
026563,000988: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
026564,000989: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
026565,000990: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
026566,000991: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
026567,000992: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
026568,000993: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
026569,000994: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
026570,000995: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
026571,000996: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
026572,000997: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
026573,000998:
026574,000999: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
026575,001000: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
026576,001001: # SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
026577,001002: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
026578,001003: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
026579,001004: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
026580,001005: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
026581,001006: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
026582,001007:
026583,001008: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
026584,001009: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
026585,001010: # TRAJECTORY COMPUTATIONS.
026586,001011:
026587,001012: # CALLING SEQUENCE
026588,001013:
026589,001014: # L CALL
026590,001015: # L+1 INITVEL
026591,001016: # L+2 (RETURN - ALWAYS)
026592,001017:
026593,001018: # INPUT
026594,001019:
026595,001020: # (1) RINIT INITIAL POSITION RADIUS VECTOR
026596,001021: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
026597,001022: # (3) RTARG TARGET POSITION RADIUS VECTOR
026598,001023: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
026599,001024: # (5) INTIME TIME OF RINIT
026600,001025: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
026601,001026: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
026602,001027: # (8) X1 -2 FOR EARTH, -10D FOR LUNAR
026603,001028: # (9) B29FLAG CLEAR IF EARTH IS CENTRAL BODY
026604,001029: # PUSHLOC SET AT 4D
026605,001030:
026606,001031: # OUTPUT
026607,001032:
026608,001033: # (1) RTARG OFFSET TARGET POSITION VECTOR
026609,001034: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
026610,001035: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
026611,001036: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
026612,001037:
026613,001038: # SUBROUTINES USED
026614,001039:
026615,001040: # LAMBERT
026616,001041: # INTSTALL
026617,001042: # INTEGRVS
026618,001043:
026619,001044: 11,2000 SETLOC INTVEL
026620,001045: 11,2000 BANK
026621,001046:
026622,001047: 11,2000 COUNT* $$/INITV
026623,001048: 11,2000 01252 25253 EPSFOUR 2DEC .0416666666
026624,001049:
026625,001050: 11,2002 43001 PREINITV SETPD CLEAR
026626,001051: 11,2003 00001 0
026627,001052: 11,2004 00275 B29FLAG
026628,001053: 11,2005 63325 PDDL PDVL
026629,001054: 11,2006 22001 EPSFOUR
026630,001055: 11,2007 03523 RACT3
026631,001056: 11,2010 26341 STOVL RINIT
026632,001057: 11,2011 03531 VACT3
026633,001058: 11,2012 02347 STORE VINIT
026634,001059: 11,2013 43160 AXC,1 BOFF
026635,001060: 11,2014 00002 2D
026636,001061: 11,2015 04343 CMOONFLG
026637,001062: 11,2016 22022 INITVEL
026638,001063: 11,2017 74014 SET AXC,1
026639,001064: 11,2020 00075 B29FLAG
026640,001065: 11,2021 00012 10D
026641,001066:
026642,001067: 11,2022 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
026643,001068: 11,2023 00475 GUESSW
026644,001069: 11,2024 77620 HAVEGUES STQ
026645,001070: 11,2025 03452 RTRN
026646,001071: 11,2026 43130 SXA,1 BOFF
026647,001072: 11,2027 03564 X1INPUT
026648,001073: 11,2030 00355 B29FLAG
026649,001074: 11,2031 22043 INITVEL1
026650,001075: 11,2032 72575 VLOAD VSL2
026651,001076: 11,2033 02341 RINIT # B29
026652,001077: 11,2034 26341 STOVL RINIT # B27
026653,001078: 11,2035 02347 VINIT # B7
026654,001079: 11,2036 77752 VSL2
026655,001080: 11,2037 26347 STOVL VINIT # B5
026656,001081: 11,2040 01772 RTARG
026657,001082: 11,2041 77752 VSL2
026658,001083: 11,2042 01772 STORE RTARG
026659,001084: # INITIALIZATION
026660,001085:
026661,001086: 11,2043 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
026662,001087: 11,2044 03604 ITCTR
026663,001088: 11,2045 77776 0 -1
026664,001089: 11,2046 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
026665,001090: 11,2047 17654 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
026666,001091: 11,2050 67154 LXA,2 SXA,2
026667,001092: 11,2051 00154 MPAC
026668,001093: 11,2052 02701 VTARGTAG # SET VTARGTAG TO 0D (SP)
026669,001094: 11,2053 77775 VLOAD
026670,001095: 11,2054 02341 RINIT
026671,001096: 11,2055 26655 STOVL R1VEC # R1VEC EQ RINIT
026672,001097: 11,2056 01772 RTARG
026673,001098: 11,2057 16663 STODL R2VEC # R2VEC EQ RTARG
026674,001099: 11,2060 02355 DELLT4
026675,001100: 11,2061 02671 STORE TDESIRED # TDESIRED EQ DELLT4
026676,001101: 11,2062 77201 SETPD VLOAD
026677,001102: 11,2063 00001 0D # INITIALIZE PL TO 0D
026678,001103: 11,2064 02341 RINIT # MPAC EQ RINIT (+29)
026679,001104: 11,2065 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
026680,001105: 11,2066 53435 VXV UNIT
026681,001106: 11,2067 02347 VINIT # MPAC EQ UNIT(RI) X VI (+8)
026682,001107: 11,2070 26674 STOVL UN
026683,001108: 11,2071 01772 RTARG
026684,001109: 11,2072 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
026685,001110: 11,2073 43015 DAD CLEAR
026686,001111: 11,2074 03654 COZY4
026687,001112: 11,2075 03665 NORMSW
026688,001113: 11,2076 03654 STORE COZY4
026689,001114: 11,2077 43044 INITVEL2 BPL SET
026690,001115: 11,2100 22122 INITVEL3 # UN CALCULATED IN LAMBERT
026691,001116: 11,2101 03465 NORMSW
026692,001117:
026693,001118: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
026694,001119:
026695,001120: 11,2102 41575 VLOAD PUSH # (PL 6D)
026696,001121: 11,2103 02663 R2VEC # RC TO 6D (+29)
026697,001122: 11,2104 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
026698,001123: 11,2105 46206 PUSH VPROJ # (PL 8D)
026699,001124: 11,2106 02674 UN
026700,001125: 11,2107 51352 VSL2 BVSU
026701,001126: 11,2110 74256 UNIT VXSC # (PL 0D)
026702,001127: 11,2111 77772 VSL1
026703,001128: 11,2112 02663 STORE R2VEC
026704,001129: 11,2113 67351 TLOAD SLOAD
026705,001130: 11,2114 22276 ZEROVEC
026706,001131: 11,2115 03604 ITCTR
026707,001132: 11,2116 77244 BPL VLOAD
026708,001133: 11,2117 22122 INITVEL3
026709,001134: 11,2120 02663 R2VEC
026710,001135: 11,2121 01772 STORE RTARG
026711,001136: 11,2122 63345 INITVEL3 DLOAD PDVL # (PL 2D)
026712,001137: 11,2123 22001 EPSFOUR # POSITIVE VALUE
026713,001138: 11,2124 02674 UN
026714,001139: 11,2125 50235 VXV DOT # (PL 2D)
026715,001140: 11,2126 02655 R1VEC
026716,001141: 11,2127 02663 R2VEC
026717,001142: 11,2130 71244 BPL DLOAD # (PL 0D)
026718,001143: 11,2131 22133 INITVEL4
026719,001144: 11,2132 41476 DCOMP PUSH # (PL 2D)
026720,001145: 11,2133 67154 INITVEL4 LXA,2 SXA,2
026721,001146: 11,2134 00000 0D
026722,001147: 11,2135 02672 GEOMSGN
026723,001148: # SET INPUTS UP FOR LAMBERT
026724,001149:
026725,001150: 11,2136 43131 SSP BOFF
026726,001151: 11,2137 00027 ITERCTR
026727,001152: 11,2140 00024 20D
026728,001153: 11,2141 03752 AVEGFLAG
026729,001154: 11,2142 22146 +4
026730,001155: 11,2143 77731 SSP
026731,001156: 11,2144 00027 ITERCTR
026732,001157: 11,2145 00005 5
026733,001158: 11,2146 45150 LXA,1 CALL
026734,001159: 11,2147 03564 X1INPUT
026735,001160: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
026736,001161:
026737,001162: 11,2150 25254 LAMBERT
026738,001163:
026739,001164: # DELETE THRU 4521
026740,001165: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
026741,001166:
026742,001167: 11,2151 77214 CLEAR VLOAD
026743,001168: 11,2152 00675 GUESSW
026744,001169: 11,2153 02744 VVEC
026745,001170:
026746,001171: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
026747,001172:
026748,001173: 11,2154 16357 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
026749,001174:
026750,001175: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
026751,001176: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
026752,001177:
026753,001178: 11,2155 02702 VTARGTAG
026754,001179: 11,2156 45030 BHIZ CALL
026755,001180: 11,2157 22237 INITVEL7
026756,001181: 11,2160 27362 INTSTALL
026757,001182:
026758,001183: 11,2161 63154 LXA,2 INCR,2
026759,001184: 11,2162 03564 X1INPUT
026760,001185: 11,2163 00002 2D
026761,001186: 11,2164 43135 SLOAD CLEAR
026762,001187: 11,2165 00050 X2
026763,001188: 11,2166 00263 MOONFLAG
026764,001189: 11,2167 43030 BHIZ SET
026765,001190: 11,2170 22172 INITVEL5
026766,001191: 11,2171 00063 MOONFLAG
026767,001192: 11,2172 77775 INITVEL5 VLOAD
026768,001193: 11,2173 02341 RINIT
026769,001194: 11,2174 02655 STORE R1VEC
026770,001195: 11,2175 25535 STOVL RCV
026771,001196: 11,2176 02357 VIPRIME
026772,001197: 11,2177 15543 STODL VCV
026773,001198: 11,2200 03577 INTIME
026774,001199: 11,2201 01517 STORE TET
026775,001200: 11,2202 43015 DAD CLEAR
026776,001201: 11,2203 02355 DELLT4
026777,001202: 11,2204 01673 INTYPFLG
026778,001203: 11,2205 34041 STCALL TDEC1
026779,001204: 11,2206 27060 INTEGRVS
026780,001205: 11,2207 77775 VLOAD
026781,001206: 11,2210 00025 VATT1
026782,001207: 11,2211 02703 STORE VTARGET
026783,001208: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
026784,001209: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
026785,001210:
026786,001211: 11,2212 63154 LXA,2 INCR,2
026787,001212: 11,2213 03603 ITCTR
026788,001213: 11,2214 00001 1D # INCREMENT ITCTR
026789,001214: 11,2215 55134 SXA,2 XSU,2
026790,001215: 11,2216 03603 ITCTR
026791,001216: 11,2217 02701 VTARGTAG
026792,001217: 11,2220 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
026793,001218: 11,2221 00050 X2
026794,001219: 11,2222 22234 INITVEL6
026795,001220:
026796,001221: # OFFSET CONIC TARGET VECTOR
026797,001222:
026798,001223: 11,2223 52375 VLOAD VSU
026799,001224: 11,2224 01772 RTARG
026800,001225: 11,2225 00017 RATT1
026801,001226: 11,2226 77655 VAD
026802,001227: 11,2227 02663 R2VEC
026803,001228: 11,2230 16663 STODL R2VEC
026804,001229: 11,2231 03654 COZY4
026805,001230: 11,2232 77650 GOTO
026806,001231: 11,2233 22077 INITVEL2 # CONTINUE ITERATING AT INITVEL2
026807,001232: # COMPUTE THE DELTA VELOCITY
026808,001233:
026809,001234: 11,2234 77775 INITVEL6 VLOAD
026810,001235: 11,2235 02663 R2VEC
026811,001236: 11,2236 01772 STORE RTARG
026812,001237: 11,2237 52375 INITVEL7 VLOAD VSU
026813,001238: 11,2240 02357 VIPRIME
026814,001239: 11,2241 02347 VINIT
026815,001240: 11,2242 27363 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
026816,001241: 11,2243 02703 VTARGET
026817,001242: 11,2244 03553 STORE VTPRIME
026818,001243: 11,2245 70414 BOFF VSR2
026819,001244: 11,2246 00355 B29FLAG
026820,001245: 11,2247 22262 INITVELX
026821,001246: 11,2250 27553 STOVL VTPRIME
026822,001247: 11,2251 02357 VIPRIME
026823,001248: 11,2252 77742 VSR2
026824,001249: 11,2253 26357 STOVL VIPRIME
026825,001250: 11,2254 01772 RTARG
026826,001251: 11,2255 77742 VSR2
026827,001252: 11,2256 25772 STOVL RTARG
026828,001253: 11,2257 03363 DELVEET3
026829,001254: 11,2260 77742 VSR2
026830,001255: 11,2261 03363 STORE DELVEET3
026831,001256: 11,2262 72001 INITVELX SETPD LXA,1
026832,001257: 11,2263 00001 0D
026833,001258: 11,2264 03564 X1INPUT
026834,001259: 11,2265 77650 GOTO
026835,001260: 11,2266 03452 RTRN
026836,001261:
026837,001262: # ..... END OF INITVEL ROUTINE .....
026838,001263:
026839,001264: # ..... MIDGIM .....
026840,001265:
026841,001266: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
026842,001267: # REVISION 03, 17 FEB 67
026843,001268:
026844,001269: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
026845,001270: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
026846,001271: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
026847,001272: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
026848,001273: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
026849,001274:
026850,001275: # .. INPUTS ..
026851,001276:
026852,001277: # NAME MEANING UNITS/SCALING/MODE
026853,001278:
026854,001279: # AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT
026855,001280: # COMPUTER INT FLAG - 0 IS LEM COMPUTER, 1 IS CSM COMPUTER BIT
026856,001281: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
026857,001282: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
026858,001283: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
026859,001284:
026860,001285: # .. OUTPUTS ..
026861,001286:
026862,001287: # NAME MEANING UNITS/SCALING/MODE
026863,001288:
026864,001289: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
026865,001290: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT
026866,001291: # MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT
026867,001292:
026868,001293: # .. CALLING SEQUENCE ..
026869,001294:
026870,001295: # L CALL
026871,001296: # L+1 MIDGIM
026872,001297: # L+2 (RETURN - ALWAYS)
026873,001298:
026874,001299: # .. NO SUBROUTINES CALLED ..
026875,001300:
026876,001301: # .. DEBRIS - ERASEABLE TEMPORARY USAGE
026877,001302:
026878,001303: # A,Q,L, PUSH LIST, MPAC.
026879,001304:
026880,001305: # .. ALARMS - NONE ..
026881,001306:
026882,001307: # MIDDLE GIMBAL ANGLE COMPUTATION.
026883,001308:
026884,001309: 10,2000 SETLOC MIDDGIM
026885,001310: 10,2000 BANK
026886,001311:
026887,001312: 10,2000 COUNT* $$/MIDG
026888,001313:
026889,001314: 10,2000 20000 00000 HALFREV 2DEC 1 B-1
026890,001315:
026891,001316: 10,2002 43014 MIDGIM BON BOFF
026892,001317: 10,2003 01312 AVFLAG
026893,001318: 10,2004 20022 MIDGIM1
026894,001319: 10,2005 02747 COMPUTER
026895,001320: 10,2006 20025 GET.LVC
026896,001321: # COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
026897,001322: 10,2007 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
026898,001323: 10,2010 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
026899,001324: 10,2011 01744 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
026900,001325: 10,2012 51136 ARCSIN BPL
026901,001326: 10,2013 20017 SETMGA
026902,001327: 10,2014 43215 DAD DAD # CONVERT -MGA TO +MGA BY
026903,001328: 10,2015 20001 HALFREV # ADDING ONE REVOLUTION
026904,001329: 10,2016 20001 HALFREV
026905,001330: 10,2017 02261 SETMGA STORE +MGA
026906,001331: 10,2020 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
026907,001332: 10,2021 02675 MGLVFLAG # AND EXIT
026908,001333: 10,2022 77614 MIDGIM1 BOFF
026909,001334: 10,2023 02747 COMPUTER
026910,001335: 10,2024 20007 GET+MGA
026911,001336: # COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES.
026912,001337: 10,2025 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
026913,001338: 10,2026 02341 RINIT
026914,001339: 10,2027 77676 VCOMP # U(-R)
026915,001340: 10,2030 00023 STORE 18D # U(-R) TO 18D
026916,001341: 10,2031 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
026917,001342: 10,2032 02347 VINIT
026918,001343: 10,2033 00015 STORE 12D # U(V*R) TO 12D
026919,001344: 10,2034 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
026920,001345: 10,2035 00023 18D
026921,001346: 10,2036 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
026922,001347: 10,2037 00001 0D # DELTA V (+7) IN 0D
026923,001348: 10,2040 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
026924,001349: 10,2041 00007 6D # AND SCALE +7 IN MPAC
026925,001350: 10,2042 02267 STORE DELVLVC # STORE IN DELVLVC (+7)
026926,001351: 10,2043 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC
026927,001352: 10,2044 02475 MGLVFLAG # AND EXIT
026928,001353:
026929,001354: # ..... END OF MIDGIM ROUTINE .....
026930,001355:
026931,001356:
026932,001357: 10,2045 77160 SELECTMU AXC,1 AXT,2
026933,001358: 10,2046 00002 2D
026934,001359: 10,2047 00000 0D
026935,001360: 10,2050 77614 BOFF
026936,001361: 10,2051 04343 CMOONFLG
026937,001362: 10,2052 20056 SETMUER
026938,001363: 10,2053 77160 AXC,1 AXT,2
026939,001364: 10,2054 00012 10D
026940,001365: 10,2055 00002 2D
026941,001366: 10,2056 66143 SETMUER DLOAD* SXA,1
026942,001367: 10,2057 10762 MUTABLE +4,1
026943,001368: 10,2060 02332 RTX1
026944,001369: 10,2061 22335 STODL* RTSR1/MU
026945,001370: 10,2062 10754 MUTABLE -2,1
026946,001371: 10,2063 54214 BOFF SR
026947,001372: 10,2064 04343 CMOONFLG
026948,001373: 10,2065 20067 RTRNMU
026949,001374: 10,2066 20607 6D
026950,001375: 10,2067 02337 RTRNMU STORE RTMU
026951,001376: 10,2070 43134 SXA,2 CLEAR
026952,001377: 10,2071 02333 RTX2
026953,001378: 10,2072 01271 FINALFLG
026954,001379: 10,2073 43014 SET SET
026955,001380: 10,2074 00470 UPDATFLG
026956,001381: 10,2075 00472 TRACKFLG
026957,001382: 10,2076 77650 GOTO
026958,001383: 10,2077 73505 VN1645
026959,001384:
026960,001385: # ..... PERIAPO .....
026961,001386:
026962,001387: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
026963,001388: # MOD BY WHITE.P DATE 18JAN68
026964,001389:
026965,001390: # FUNCTIONAL DESCRIPTION
026966,001391:
026967,001392: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
026968,001393: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
026969,001394: # THE TRAJECTORY AND THE PRIMARY BODY.
026970,001395:
026971,001396: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
026972,001397:
026973,001398: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
026974,001399: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
026975,001400:
026976,001401: # CALLING SEQUENCE
026977,001402:
026978,001403: # L CALL
026979,001404: # L+1 PERIAPO
026980,001405: # L+2 (RETURN - ALWAYS)
026981,001406:
026982,001407: # INPUT
026983,001408:
026984,001409: # (1) RVEC POSITION VECTOR IN METERS
026985,001410: # SCALE FACTOR - EARTH +29, MOON +27
026986,001411: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
026987,001412: # SCALE FACTOR - EARTH +7, MOON +5
026988,001413: # (3) X1 PRIMARY BODY INDICATOR
026989,001414: # EARTH -2, MOON -10
026990,001415:
026991,001416: # OUTPUT
026992,001417:
026993,001418: # (1) 2D APOCENTER RADIUS IN METERS
026994,001419: # SCALE FACTOR - EARTH +29, MOON +27
026995,001420: # (2) 4D APOCENTER ALTITUDE IN METERS
026996,001421: # SCALE FACTOR - EARTH +29, MOON P27
026997,001422: # (3) 6D PERICENTER RADIUS IN METERS
026998,001423: # SCALE FACTOR - EARTH +29, MOON +27
026999,001424: # (4) 8D PERICENTER ALTITUDE IN METERS
027000,001425: # SCALE FACTOR - EARTH +29, MOON +27
027001,001426: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
027002,001427: # SCALE FACTOR - +3
027003,001428: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
027004,001429: # SCALE FACTOR - EARTH +29, MOON +27
027005,001430: # (7) PUSHLOC EQUALS 10D
027006,001431:
027007,001432: # SUBROUTINES USED
027008,001433:
027009,001434: # SETRAD
027010,001435: # APSIDES
027011,001436:
027012,001437: 23,2000 SETLOC APOPERI
027013,001438: 23,2000 BANK
027014,001439:
027015,001440: 23,2104 COUNT* $$/PERAP
027016,001441:
027017,001442: 23,2104 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
027018,001443: # = 20 909 901.57 FT
027019,001444:
027020,001445: 23,2106 53754 PERIAPO1 LXA,2 VSR*
027021,001446: 23,2107 02333 RTX2
027022,001447: 23,2110 57176 0,2
027023,001448: 23,2111 26744 STOVL VVEC
027024,001449: 23,2112 53750 LXA,1 VSR*
027025,001450: 23,2113 02332 RTX1
027026,001451: 23,2114 57176 0,2
027027,001452: 23,2115 02655 STORE RVEC
027028,001453: 23,2116 45020 PERIAPO STQ CALL
027029,001454: 23,2117 03450 NORMEX
027030,001455: 23,2120 46134 SETRAD
027031,001456: 23,2121 37656 STCALL XXXALT
027032,001457: 23,2122 25726 APSIDES
027033,001458: 23,2123 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
027034,001459: 23,2124 00003 2D
027035,001460: 23,2125 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
027036,001461: 23,2126 03656 XXXALT
027037,001462: 23,2127 00001 0D
027038,001463: 23,2130 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
027039,001464: 23,2131 03656 XXXALT
027040,001465: 23,2132 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
027041,001466: 23,2133 03450 NORMEX
027042,001467:
027043,001468: # SETRAD
027044,001469:
027045,001470: 23,2134 41545 SETRAD DLOAD PUSH
027046,001471: 23,2135 06105 RPAD
027047,001472: 23,2136 63130 SXA,1 INCR,2
027048,001473: 23,2137 00047 X2
027049,001474: 23,2140 00002 2D
027050,001475: 23,2141 46135 SLOAD BHIZ
027051,001476: 23,2142 00050 X2
027052,001477: 23,2143 46147 SETRADX
027053,001478: 23,2144 51575 VLOAD ABVAL
027054,001479: 23,2145 02025 RLS
027055,001480: 23,2146 77725 PDDL
027056,001481: 23,2147 43545 SETRADX DLOAD RVQ
027057,001482:
027058,001483: # PRECSET
027059,001484:
027060,001485: 23,2150 77620 PRECSET STQ
027061,001486: 23,2151 03450 NORMEX
027062,001487: 23,2152 37561 STCALL TDEC2
027063,001488: 23,2153 27030 LEMPREC
027064,001489: 23,2154 77624 CALL
027065,001490: 23,2155 46166 LEMSTORE
027066,001491: 23,2156 77745 DLOAD
027067,001492: 23,2157 03561 TDEC2
027068,001493: 23,2160 34041 STCALL TDEC1
027069,001494: 23,2161 27014 CSMPREC
027070,001495: 23,2162 77624 CALL
027071,001496: 23,2163 46176 CSMSTORE
027072,001497: 23,2164 77650 GOTO
027073,001498: 23,2165 03450 NORMEX
027074,001499: 23,2166 43175 LEMSTORE VLOAD BOFF
027075,001500: 23,2167 00001 RATT
027076,001501: 23,2170 01352 AVFLAG
027077,001502: 23,2171 46202 PASSIVE
027078,001503: 23,2172 27523 ACTIVE STOVL RACT3
027079,001504: 23,2173 00007 VATT
027080,001505: 23,2174 03531 STORE VACT3
027081,001506: 23,2175 77616 RVQ
027082,001507: 23,2176 43175 CSMSTORE VLOAD BOFF
027083,001508: 23,2177 00001 RATT
027084,001509: 23,2200 01352 AVFLAG
027085,001510: 23,2201 46172 ACTIVE
027086,001511: 23,2202 27537 PASSIVE STOVL RPASS3
027087,001512: 23,2203 00007 VATT
027088,001513: 23,2204 03545 STORE VPASS3
027089,001514: 23,2205 77616 RVQ
027090,001515:
027091,001516: # VECSHIFT
027092,001517: 23,2206 53754 VECSHIFT LXA,2 VSR*
027093,001518: 23,2207 02333 RTX2
027094,001519: 23,2210 57176 0,2
027095,001520: 23,2211 63350 LXA,1 PDVL
027096,001521: 23,2212 02332 RTX1
027097,001522: 23,2213 63257 VSR* PDVL
027098,001523: 23,2214 57176 0,2
027099,001524: 23,2215 77616 RVQ
027100,001525:
027101,001526: # SHIFTR1
027102,001527:
027103,001528: 23,2216 53754 SHIFTR1 LXA,2 SL*
027104,001529: 23,2217 02333 RTX2
027105,001530: 23,2220 57576 0,2
027106,001531: 23,2221 77616 RVQ
027107,001532:
|
|
Sundance 292 |
027109,001534:
027110,001535: # PROGRAM DESCRIPTION
027111,001536: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
027112,001537: # MOD NO. 0 DATE 22 DECEMBER 67
027113,001538: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS
027114,001539: # FUNCTIONAL DESCRIPTION
027115,001540:
027116,001541: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
027117,001542: # OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
027118,001543:
027119,001544: # CALLING SEQUENCE
027120,001545:
027121,001546: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
027122,001547:
027123,001548: # SUBROUTINES CALLED
027124,001549:
027125,001550: # EXDSPRET
027126,001551: # GOMARKF
027127,001552: # CSMPREC
027128,001553: # LEMPREC
027129,001554: # SGNAGREE
027130,001555: # LOADTIME
027131,001556:
027132,001557: # NORMAL EXIT MODES
027133,001558:
027134,001559: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
027135,001560:
027136,001561: # ALARM OR ABORT EXIT MODES
027137,001562:
027138,001563: # NONE
027139,001564:
027140,001565: # OUTPUT
027141,001566:
027142,001567: # DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
027143,001568:
027144,001569: # DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
027145,001570: # REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
027146,001571:
027147,001572: # ERASABLE INITIALIZATION REQUIRED
027148,001573:
027149,001574: # CSM AND LEM STATE VECTORS
027150,001575:
027151,001576: # DEBRIS
027152,001577:
027153,001578: # CENTRALS A,Q,L
027154,001579: # OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
027155,001580:
027156,001581: 20,2204 BANK 20
027157,001582: 04,2000 SETLOC R36LM
027158,001583: 04,2000 BANK
027159,001584: 04,2530 E4,1614 EBANK= RPASS36
027160,001585:
027161,001586: 04,2530 COUNT* $$/R36
027162,001587:
027163,001588: 04,2530 22007 R36 ZL
027164,001589: 04,2531 35030 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST
027165,001590: 04,2532 53053 DXCH DSPTEMX # DISPLAY
027166,001591: 04,2533 32661 CAF V06N16N
027167,001592: 04,2534 04655 TC BANKCALL
027168,001593: 04,2535 20226 CADR GOMARKF
027169,001594: 04,2536 15561 TCF ENDEXT # TERMINATE
027170,001595: 04,2537 12541 TCF +2 # PROCEED
027171,001596: 04,2540 12533 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME
027172,001597: 04,2541 53053 DXCH DSPTEMX
027173,001598: 04,2542 00006 EXTEND
027174,001599: 04,2543 12650 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO
027175,001600: 04,2544 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
027176,001601: 04,2545 06014 TC INTPRET
027177,001602: 04,2546 77634 RTB
027178,001603: 04,2547 21662 DPMODE
027179,001604: 04,2550 34041 R36INT STCALL TDEC1
027180,001605: 04,2551 27014 OTHPREC
027181,001606: 04,2552 63375 VLOAD PDVL
027182,001607: 04,2553 00007 VATT
027183,001608: 04,2554 00001 RATT # -
027184,001609: 04,2555 02215 STORE RPASS36 # R
027185,001610: 04,2556 63256 UNIT PDVL # P
027186,001611: 04,2557 53435 VXV UNIT # -
027187,001612: 04,2560 77626 STADR
027188,001613: 04,2561 61554 STODL UNP36 # U
027189,001614: 04,2562 00015 TAT
027190,001615: 04,2563 34041 STCALL TDEC1
027191,001616: 04,2564 27030 THISPREC
027192,001617: 04,2565 63375 VLOAD PDVL # -
027193,001618: 04,2566 00007 VATT # VELOCITY VECTOR V 00D
027194,001619: 04,2567 00001 RATT # A
027195,001620: 04,2570 77725 PDDL
027196,001621: 04,2571 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
027197,001622: 04,2572 24037 STOVL 30D # -
027198,001623: 04,2573 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
027199,001624: 04,2574 63245 BVSU PDVL # A - -
027200,001625: 04,2575 02215 RPASS36 # LINE OF SIGHT VECTOR R - R 12D
027201,001626: 04,2576 72441 DOT SL1 # P A
027202,001627: 04,2577 02223 UNP36 # - -
027203,001628: 04,2600 26207 STOVL RANGE # Y = U . R
027204,001629: 04,2601 00001 00D # A
027205,001630: 04,2602 72441 DOT SL1
027206,001631: 04,2603 02223 UNP36 # . - -
027207,001632: 04,2604 26211 STOVL RRATE # Y = U . V
027208,001633: 04,2605 00007 06D # - A -
027209,001634: 04,2606 41456 UNIT PUSH # U = UNIT ( R ) 18D
027210,001635: 04,2607 47235 VXV VXV # RA A
027211,001636: 04,2610 00001 00D # - - - -
027212,001637: 04,2611 00023 18D # (U X V ) X U = U
027213,001638: 04,2612 53552 VSL2 UNIT # RA A RA A
027214,001639: 04,2613 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
027215,001640: 04,2614 00023 18D
027216,001641: 04,2615 74241 DOT VXSC # -
027217,001642: 04,2616 00015 12D # U
027218,001643: 04,2617 77752 VSL2 # L
027219,001644: 04,2620 53445 BVSU UNIT
027220,001645: 04,2621 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D
027221,001646: 04,2622 00001 00D # PLANE
027222,001647: 04,2623 65552 SL1 ARCCOS # - -
027223,001648: 04,2624 26213 STOVL RTHETA # PSI = ARCCOS(U . U )
027224,001649: 04,2625 50235 VXV DOT # A L
027225,001650: 04,2626 00001 00D
027226,001651: 04,2627 71244 BPL DLOAD
027227,001652: 04,2630 10635 R36TAG2
027228,001653: 04,2631 22307 LODPMAX
027229,001654: 04,2632 77625 DSU
027230,001655: 04,2633 02213 RTHETA
027231,001656: 04,2634 02213 STORE RTHETA
027232,001657: 04,2635 47145 R36TAG2 DLOAD RTB
027233,001658: 04,2636 00037 30D
027234,001659: 04,2637 21510 SGNAGREE
027235,001660: 04,2640 01053 STORE DSPTEMX
027236,001661: 04,2641 77776 EXIT
027237,001662: 04,2642 32662 CAF V06N90N # DISPLAY Y , YDOT , AND PSI
027238,001663: 04,2643 04655 TC BANKCALL
027239,001664: 04,2644 20226 CADR GOMARKF
027240,001665: 04,2645 15561 TCF ENDEXT # TERMINATE
027241,001666: 04,2646 15561 TCF ENDEXT # PROCEED , END OF PROGRAM
027242,001667: 04,2647 12533 TCF R36 +3 # REDISPLAY OUTPUT
027243,001668: 04,2650 56001 LREGCHK XCH L
027244,001669: 04,2651 00006 EXTEND
027245,001670: 04,2652 12655 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
027246,001671: 04,2653 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
027247,001672: 04,2654 12544 TCF ASTROTIM
027248,001673: 04,2655 06014 ENTTIM2 TC INTPRET
027249,001674: 04,2656 52034 RTB GOTO
027250,001675: 04,2657 21454 LOADTIME
027251,001676: 04,2660 10550 R36INT
027252,001677: 04,2661 01420 V06N16N VN 00616
027253,001678: 04,2662 01532 V06N90N VN 00690
End of include-file P34-P35,_P74-P75.agc. Parent file is MAIN.agc