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