Source Code
|
These source-code files are part of a reconstructed copy of Luminary 97, the
original release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Luminary 99 revision 1 previously
transcribed from a digitized copy of that program. The code was then updated
by undoing changes described in original Luminary memos 83 and 85, using asterisks
indicating changed lines in the listing as a guide. The reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152D.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 97 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
027859,000002: ## Copyright: Public domain.
027860,000003: ## Filename: P34-P35,_P74-P75.agc
027861,000004: ## Purpose: A section of Luminary revision 97.
027862,000005: ## It is part of the reconstructed source code for the
027863,000006: ## original release of the flight software for the Lunar
027864,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
027865,000008: ## The code has been recreated from a copy of Luminary 99
027866,000009: ## revision 001, using asterisks indicating changed lines in
027867,000010: ## the listing and Luminary Memos #83 and #85, which list
027868,000011: ## changes between Luminary 97 and 98, and 98 and 99. The
027869,000012: ## code has been adapted such that the resulting bugger words
027870,000013: ## exactly match those specified for Luminary 97 in NASA drawing
027871,000014: ## 2021152D, which gives relatively high confidence that the
027872,000015: ## reconstruction is correct.
027873,000016: ## Reference: pp. 658-702
027874,000017: ## Assembler: yaYUL
027875,000018: ## Contact: Ron Burkey <info@sandroid.org>.
027876,000019: ## Website: www.ibiblio.org/apollo/index.html
027877,000020: ## Mod history: 2019-07-28 MAS Created from Luminary 99. Replaced the call
027878,000021: ## to SETITCTR with LAMBERT to undo the fix
027879,000022: ## for anomaly 65 made in Luminary 98.
027880,000023:
|
|
Page 658
|
027882,000025: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
027883,000026:
027884,000027: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
027885,000028: # MOD BY WHITE.P DATE 1JUNE67
027886,000029:
027887,000030: # PURPOSE
027888,000031:
027889,000032: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
027890,000033: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
027891,000034: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
027892,000035:
027893,000036: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
027894,000037: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
027895,000038:
027896,000039: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
027897,000040: # INTERCEPT TIME (TIG (TPF)).
027898,000041:
027899,000042: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
027900,000043:
027901,000044: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
027902,000045: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
027903,000046:
027904,000047: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
027905,000048: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
027906,000049: # ASTRONAUT/GROUND.
027907,000050:
027908,000051: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
027909,000052: # THRUSTING PROGRAM.
027910,000053:
027911,000054: # ASSUMPTIONS
027912,000055:
027913,000056: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
027914,000057: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
027915,000058: # THEREFORE -
027916,000059:
027917,000060: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
027918,000061: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
027919,000062: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
027920,000063: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
027921,000064:
027922,000065: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
027923,000066: # COMPUTED TO BE GREATER THAN 10 MINUTES.
027924,000067:
027925,000068: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
027926,000069: # ORBITS WAS MINIMIZED.
027927,000070:
027928,000071: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
027929,000072: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
|
|
Page 659
|
027931,000074: # ORBIT OR 85 NM FOR EARTH ORBIT.
027932,000075:
027933,000076: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
027934,000077: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
027935,000078: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
027936,000079: # IN AN OUT-OF-PLANE MANEUVER.
027937,000080:
027938,000081: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
027939,000082: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
027940,000083:
027941,000084: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
027942,000085: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
027943,000086: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
027944,000087: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
027945,000088: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
027946,000089: # FLIGHT PLAN MANEUVER SEQUENCES.
027947,000090:
027948,000091: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
027949,000092: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
027950,000093: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
027951,000094: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
027952,000095: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
027953,000096: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
027954,000097: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
027955,000098: # THRUSTING MANEUVER.
027956,000099:
027957,000100: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
027958,000101:
027959,000102: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
027960,000103:
027961,000104: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
027962,000105: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
027963,000106: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
027964,000107: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
027965,000108:
027966,000109: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
027967,000110: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
027968,000111:
027969,000112: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
027970,000113: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
027971,000114: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
027972,000115:
027973,000116: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
027974,000117: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
027975,000118: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
027976,000119: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
027977,000120: # THROUGH THE USE OF V06N52.
027978,000121:
027979,000122: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
027980,000123: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
|
|
Page 660
|
027982,000125: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
027983,000126: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
027984,000127: # UPON DELTA V AND EXPECTED MANEUVER TIME.
027985,000128:
027986,000129: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
027987,000130:
027988,000131: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
027989,000132:
027990,000133: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
027991,000134:
027992,000135: # INPUT
027993,000136:
027994,000137: # (1) TTPI TIME OF THE TPI MANEUVER
027995,000138: # (2) ELEV DESIRED LOS ANGLE AT TPI
027996,000139: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
027997,000140: # TRANSFER FROM TPI TO TIME OF INTERCEPT
027998,000141:
027999,000142: # OUTPUT
028000,000143:
028001,000144: # (1) TRKMKCNT NUMBER OF MARKS
028002,000145: # (2) TTOGO TIME TO GO
028003,000146: # (3) +MGA MIDDLE GIMBAL ANGLE
028004,000147: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
028005,000148: # OR
028006,000149: # ELEV COMPUTED LOS ANGLE AT TPI
028007,000150: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
028008,000151: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
028009,000152: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
028010,000153: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
028011,000154: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
028012,000155:
028013,000156: # DOWNLINK
028014,000157:
028015,000158: # (1) TTPI TIME OF THE TPI MANEUVER
028016,000159: # (2) TIG TIME OF THE TPI MANEUVER
028017,000160: # (3) ELEV DESIRED LOS ANGLE AT TPI
028018,000161: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
028019,000162: # TRANSFER FROM TPI TO TIME OF INTERCEPT
028020,000163: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
028021,000164: # (6) TPASS4 TIME OF INTERCEPT
028022,000165:
028023,000166: # COMMUNICATION TO THRUSTING PROGRAMS
028024,000167:
028025,000168: # (1) TIG TIME OF THE TPI MANEUVER
028026,000169: # (2) RTARG OFFSET TARGET POSITION
028027,000170: # (3) TPASS4 TIME OF INTERCEPT
028028,000171: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028029,000172:
028030,000173: # SUBROUTINES USED
028031,000174:
028032,000175: # AVFLAGA
|
|
Page 661
|
028034,000177: # AVFLAGP
028035,000178: # VNPOOH
028036,000179: # DISPLAYE
028037,000180: # SELECTMU
028038,000181: # PRECSET
028039,000182: # S33/34.1
028040,000183: # ALARM
028041,000184: # BANKCALL
028042,000185: # GOFLASH
028043,000186: # GOTOPOOH
028044,000187: # TIMETHET
028045,000188: # S34/35.2
028046,000189: # PERIAPO1
028047,000190: # SHIFTR1
028048,000191: # S34/35.5
028049,000192: # VN1645
028050,000193:
028051,000194: 35,2000 SETLOC CSI/CDH
028052,000195: 35,2000 BANK
028053,000196: 35,2545 E7,1470 EBANK= SUBEXIT
028054,000197: 35,2545 COUNT* $$/P3474
028055,000198: 35,2545 02347 P34 TC AVFLAGA
028056,000199: 35,2546 02550 TC P34/P74A
028057,000200: 35,2547 02354 P74 TC AVFLAGP
028058,000201: 35,2550 02361 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
028059,000202: 35,2551 33723 CAF V06N37 # TTPI
028060,000203: 35,2552 03712 TC VNPOOH
028061,000204: 35,2553 00006 EXTEND
028062,000205: 35,2554 33746 DCA 130DEG
028063,000206: 35,2555 53621 DXCH CENTANG
028064,000207: 35,2556 32417 CAF P30ZERO
028065,000208: 35,2557 55466 TS NN
028066,000209: 35,2560 03674 TC DISPLAYE # ELEV AND CENTANG
028067,000210: 35,2561 06037 TC INTPRET
028068,000211: 35,2562 71214 CLEAR DLOAD
028069,000212: 35,2563 01270 ETPIFLAG
028070,000213: 35,2564 03636 TTPI
028071,000214: 35,2565 17442 STODL TIG
028072,000215: 35,2566 02257 ELEV
028073,000216: 35,2567 43054 BZE SET
028074,000217: 35,2570 72572 P34/P74B
028075,000218: 35,2571 01070 ETPIFLAG
028076,000219: 35,2572 77624 P34/P74B CALL
028077,000220: 35,2573 20000 SELECTMU
028078,000221: 35,2574 DELELO EQUALS 26D
028079,000222: 35,2574 43145 P34/P74C DLOAD SET
028080,000223: 35,2575 06522 ZEROVECS
028081,000224: 35,2576 03460 ITSWICH
028082,000225: 35,2577 43014 BON CLEAR
028083,000226: 35,2600 01310 ETPIFLAG
|
|
Page 662
|
028085,000228: 35,2601 72603 SWCHSET
028086,000229: 35,2602 03660 ITSWICH
028087,000230: 35,2603 02317 SWCHSET STORE NOMTPI
028088,000231: 35,2604 43345 INTLOOP DLOAD DAD
028089,000232: 35,2605 03636 TTPI
028090,000233: 35,2606 02317 NOMTPI
028091,000234: 35,2607 34041 STCALL TDEC1
028092,000235: 35,2610 46360 PRECSET
028093,000236: 35,2611 77624 CALL
028094,000237: 35,2612 72764 S33/34.1
028095,000238: 35,2613 77454 BZE EXIT
028096,000239: 35,2614 72625 SWCHCLR
028097,000240: 35,2615 05567 TC ALARM
028098,000241: 35,2616 00611 OCT 611
028099,000242: 35,2617 35006 CAF V05N09
028100,000243: 35,2620 04616 TC BANKCALL
028101,000244: 35,2621 20476 CADR GOFLASH
028102,000245: 35,2622 06001 TC GOTOPOOH
028103,000246: 35,2623 02550 TC P34/P74A # PROCEED
028104,000247: 35,2624 02615 TC -7 # V32
028105,000248:
028106,000249: 35,2625 43014 SWCHCLR BONCLR BON
028107,000250: 35,2626 03600 ITSWICH
028108,000251: 35,2627 72604 INTLOOP
028109,000252: 35,2630 01310 ETPIFLAG
028110,000253: 35,2631 72635 P34/P74D # DISPLAY TTPI
028111,000254: 35,2632 77776 EXIT
028112,000255: 35,2633 03674 TC DISPLAYE # DISPLAY ELEV AND CENTANG
028113,000256: 35,2634 02640 TC P34/P74E
028114,000257: 35,2635 77776 P34/P74D EXIT
028115,000258: 35,2636 33723 CAF V06N37 # TTPI
028116,000259: 35,2637 03712 TC VNPOOH
028117,000260: 35,2640 06037 P34/P74E TC INTPRET
028118,000261: 35,2641 71201 SETPD DLOAD
028119,000262: 35,2642 00001 0D
028120,000263: 35,2643 02777 RTX1
028121,000264: 35,2644 14047 STODL X1
028122,000265: 35,2645 03621 CENTANG
028123,000266: 35,2646 71406 PUSH COS
028124,000267: 35,2647 16732 STODL CSTH
028125,000268: 35,2650 77756 SIN
028126,000269: 35,2651 26730 STOVL SNTH
028127,000270: 35,2652 03552 RPASS3
028128,000271: 35,2653 77657 VSR*
028129,000272: 35,2654 57176 0,2
028130,000273: 35,2655 26655 STOVL RVEC
028131,000274: 35,2656 03560 VPASS3
028132,000275: 35,2657 43057 VSR* SET
028133,000276: 35,2660 57176 0,2
028134,000277: 35,2661 03466 RVSW
|
|
Page 663
|
028136,000279: 35,2662 36744 STCALL VVEC
028137,000280: 35,2663 24732 TIMETHET
028138,000281: 35,2664 77745 DLOAD
028139,000282: 35,2665 03636 TTPI
028140,000283: 35,2666 03610 STORE INTIME # FOR INITVEL
028141,000284: 35,2667 77615 DAD
028142,000285: 35,2670 00037 T # RENDEZVOUS TIME
028143,000286: 35,2671 37631 STCALL TPASS4 # FOR INITVEL
028144,000287: 35,2672 73306 S34/35.2
028145,000288: 35,2673 51575 VLOAD ABVAL
028146,000289: 35,2674 02366 DELVEET3
028147,000290: 35,2675 27576 STOVL DELVTPI
028148,000291: 35,2676 03506 VPASS4
028149,000292: 35,2677 51451 VSU ABVAL
028150,000293: 35,2700 03566 VTPRIME
028151,000294: 35,2701 26350 STOVL DELVTPF
028152,000295: 35,2702 03536 RACT3
028153,000296: 35,2703 45115 PDVL CALL
028154,000297: 35,2704 02337 VIPRIME
028155,000298: 35,2705 46316 PERIAPO1
028156,000299: 35,2706 77624 CALL
028157,000300: 35,2707 46426 SHIFTR1
028158,000301: 35,2710 17606 STODL POSTTPI
028159,000302: 35,2711 03636 TTPI
028160,000303: 35,2712 03442 STORE TIG
028161,000304: 35,2713 77776 EXIT
028162,000305: 35,2714 33725 CAF V06N58
028163,000306: 35,2715 03712 TC VNPOOH
028164,000307: 35,2716 06037 TC INTPRET
028165,000308: 35,2717 77624 CALL
028166,000309: 35,2720 73522 S34/35.5
028167,000310: 35,2721 77624 CALL
028168,000311: 35,2722 73606 VN1645
028169,000312: 35,2723 77650 GOTO
028170,000313: 35,2724 72574 P34/P74C
|
|
Page 664
|
028172,000315: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
028173,000316:
028174,000317: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028175,000318: # MOD BY WHITE.P DATE 1JUNE67
028176,000319:
028177,000320: # PURPOSE
028178,000321:
028179,000322: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028180,000323: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
028181,000324: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
028182,000325: # VEHICLE RENDEZVOUS.
028183,000326:
028184,000327: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028185,000328: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028186,000329: # ASTRONAUT/GROUND.
028187,000330:
028188,000331: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
028189,000332: # THRUSTING PROGRAM.
028190,000333:
028191,000334: # ASSUMPTIONS
028192,000335:
028193,000336: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
028194,000337:
028195,000338: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
028196,000339: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
028197,000340:
028198,000341: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
028199,000342: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
028200,000343: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
028201,000344: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
028202,000345: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
028203,000346: # P20 AND AFTER EACH THRUSTING MANEUVER.
028204,000347:
028205,000348: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
028206,000349:
028207,000350: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
028208,000351: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
028209,000352: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
028210,000353: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
028211,000354:
028212,000355: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
028213,000356: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
028214,000357:
028215,000358: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
028216,000359: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
028217,000360: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
028218,000361:
028219,000362: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
028220,000363: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
028221,000364: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
028222,000365:
|
|
Page 665
|
028224,000367: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
028225,000368: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
028226,000369: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
028227,000370: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
028228,000371: # THROUGH THE USE OF V06N52.
028229,000372:
028230,000373: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
028231,000374: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
028232,000375: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
028233,000376: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
028234,000377: # UPON DELTA V AND EXPECTED MANEUVER TIME.
028235,000378:
028236,000379: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
028237,000380:
028238,000381: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
028239,000382:
028240,000383: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
028241,000384:
028242,000385: # INPUT
028243,000386:
028244,000387: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
028245,000388:
028246,000389: # OUTPUT
028247,000390:
028248,000391: # (1) TRKMKCNT NUMBER OF MARKS
028249,000392: # (2) TTOGO TIME TO GO
028250,000393: # (3) +MGA MIDDLE GIMBAL ANGLE
028251,000394: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
028252,000395: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
028253,000396:
028254,000397: # DOWNLINK
028255,000398:
028256,000399: # (1) TIG TIME OF THE TPM MANEUVER
028257,000400: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
028258,000401: # (3) TPASS4 TIME OF INTERCEPT
028259,000402:
028260,000403: # COMMUNICATION TO THRUSTING PROGRAMS
028261,000404:
028262,000405: # (1) TIG TIME OF THE TPM MANEUVER
028263,000406: # (2) RTARG OFFSET TARGET POSITION
028264,000407: # (3) TPASS4 TIME OF INTERCEPT
028265,000408: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
028266,000409:
028267,000410: # SUBROUTINES USED
028268,000411:
028269,000412: # AVFLAGA
028270,000413: # AVFLAGP
028271,000414: # LOADTIME
028272,000415: # SELECTMU
028273,000416: # PRECSET
028274,000417: # S34/35.1
028275,000418: # S34/35.2
|
|
Page 666
|
028277,000420: # S34/35.5
028278,000421: # VN1645
028279,000422:
028280,000423: 35,2725 COUNT* $$/P3575
028281,000424: 35,2725 E7,1575 EBANK= KT
028282,000425:
028283,000426: 35,2725 02347 P35 TC AVFLAGA
028284,000427: 35,2726 00006 EXTEND
028285,000428: 35,2727 31401 DCA ATIGINC
028286,000429: 35,2730 02734 TC P35/P75A
028287,000430: 35,2731 02354 P75 TC AVFLAGP
028288,000431: 35,2732 00006 EXTEND
028289,000432: 35,2733 31403 DCA PTIGINC
028290,000433: 35,2734 53576 P35/P75A DXCH KT
028291,000434: 35,2735 02361 TC P20FLGON # SET UPDATFLG, TRACKFLG
028292,000435: 35,2736 06037 TC INTPRET
028293,000436: 35,2737 77624 CALL
028294,000437: 35,2740 20000 SELECTMU
028295,000438: 35,2741 77634 P35/P75B RTB
028296,000439: 35,2742 21573 LOADTIME
028297,000440: 35,2743 03612 STORE TSTRT
028298,000441: 35,2744 77615 DAD
028299,000442: 35,2745 03576 KT
028300,000443: 35,2746 03442 STORE TIG
028301,000444: 35,2747 03610 STORE INTIME # FOR INITVEL
028302,000445: 35,2750 34041 STCALL TDEC1
028303,000446: 35,2751 46360 PRECSET # ADVANCE BOTH VEHICLES
028304,000447: 35,2752 77624 CALL
028305,000448: 35,2753 73274 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
028306,000449: 35,2754 77624 CALL
028307,000450: 35,2755 73306 S34/35.2 # GET DELTA V(LV)
028308,000451: 35,2756 77624 CALL
028309,000452: 35,2757 73522 S34/35.5
028310,000453: 35,2760 77624 CALL
028311,000454: 35,2761 73606 VN1645
028312,000455: 35,2762 77650 GOTO
028313,000456: 35,2763 72741 P35/P75B
|
|
Page 667
|
028315,000458: # ..... S33/34.1 .....
028316,000459:
028317,000460: 35,2764 66220 S33/34.1 STQ SSP
028318,000461: 35,2765 03463 NORMEX
028319,000462: 35,2766 03614 TITER
028320,000463: 35,2767 40000 OCT 40000
028321,000464: 35,2770 40345 DLOAD SETPD
028322,000465: 35,2771 33734 MAX250
028323,000466: 35,2772 00001 0D
028324,000467: 35,2773 27574 STOVL SECMAX
028325,000468: 35,2774 03536 RACT3
028326,000469: 35,2775 27500 STOVL RAPREC
028327,000470: 35,2776 03544 VACT3
028328,000471: 35,2777 27506 STOVL VAPREC
028329,000472: 35,3000 03552 RPASS3
028330,000473: 35,3001 27522 STOVL RPPREC
028331,000474: 35,3002 03560 VPASS3
028332,000475: 35,3003 03530 STORE VPPREC
028333,000476: 35,3004 77624 ELCALC CALL
028334,000477: 35,3005 73274 S34/35.1 # NORMAL AND LOS
028335,000478: 35,3006 63235 VXV PDVL
028336,000479: 35,3007 03536 RACT3 # (RA*VA)*RA 0D
028337,000480: 35,3010 53515 PDVL UNIT # ULOS AT 6D
028338,000481: 35,3011 03536 RACT3
028339,000482: 35,3012 46315 PDVL VPROJ # XCHNJ AND UP
028340,000483: 35,3013 51352 VSL2 BVSU
028341,000484: 35,3014 02311 ULOS
028342,000485: 35,3015 63256 UNIT PDVL # UP AT 0D
028343,000486: 35,3016 63241 DOT PDVL # UP.UN*RA AT 0D
028344,000487: 35,3017 00001 0D # UP IN MPAC
028345,000488: 35,3020 75241 DOT SIGN
028346,000489: 35,3021 02311 ULOS
028347,000490: 35,3022 65552 SL1 ACOS
028348,000491: 35,3023 50315 PDVL DOT # EA AT 0D
028349,000492: 35,3024 02311 ULOS
028350,000493: 35,3025 03536 RACT3
028351,000494: 35,3026 71244 BPL DLOAD
028352,000495: 35,3027 73032 TESTY
028353,000496: 35,3030 06530 DPPOSMAX
028354,000497: 35,3031 41425 DSU PUSH
028355,000498: 35,3032 71214 TESTY BOFF DLOAD
028356,000499: 35,3033 03740 ITSWICH
028357,000500: 35,3034 73261 ELEX
028358,000501: 35,3035 03576 DELEL
028359,000502: 35,3036 14033 STODL DELELO
028360,000503: 35,3037 77625 DSU
028361,000504: 35,3040 02257 ELEV
028362,000505: 35,3041 03576 STORE DELEL
028363,000506: 35,3042 45246 ABS DSU
028364,000507: 35,3043 33740 ELEPS
|
|
Page 668
|
028366,000509: 35,3044 77640 BMN
028367,000510: 35,3045 73271 TIMEX # COMMERCIALS EVERYWHERE
028368,000511: 35,3046 70535 FIGTIME SLOAD SR1
028369,000512: 35,3047 03614 TITER
028370,000513: 35,3050 72030 BHIZ LXA,1
028371,000514: 35,3051 03463 NORMEX # TOO MANY ITERATIONS
028372,000515: 35,3052 00154 MPAC
028373,000516: 35,3053 77330 SXA,1 VLOAD
028374,000517: 35,3054 03613 TITER
028375,000518: 35,3055 03552 RPASS3
028376,000519: 35,3056 65256 UNIT PDDL
028377,000520: 35,3057 00045 36D
028378,000521: 35,3060 53515 PDVL UNIT
028379,000522: 35,3061 03536 RACT3
028380,000523: 35,3062 77725 PDDL
028381,000524: 35,3063 41525 PDDL PUSH
028382,000525: 35,3064 00045 36D
028383,000526: 35,3065 77621 BDSU
028384,000527: 35,3066 00015 12D
028385,000528: 35,3067 14037 STODL 30D # RP - RA MAGNITUDES
028386,000529: 35,3070 06520 DPHALF
028387,000530: 35,3071 41425 DSU PUSH
028388,000531: 35,3072 02257 ELEV
028389,000532: 35,3073 50165 SIGN BMN
028390,000533: 35,3074 00037 30D
028391,000534: 35,3075 03463 NORMEX
028392,000535: 35,3076 71545 DLOAD COS
028393,000536: 35,3077 56205 DMP DDV
028394,000537: 35,3100 00017 14D
028395,000538: 35,3101 00015 12D
028396,000539: 35,3102 77676 DCOMP # SINCE COS(180-A)=-COS A
028397,000540: 35,3103 00035 STORE 28D
028398,000541: 35,3104 44246 ABS BDSU
028399,000542: 35,3105 06520 DPHALF
028400,000543: 35,3106 77240 BMN VLOAD
028401,000544: 35,3107 03463 NORMEX
028402,000545: 35,3110 02261 UNRM
028403,000546: 35,3111 53435 VXV UNIT
028404,000547: 35,3112 00007 6D # UN*RA
028405,000548: 35,3113 41241 DOT DMP
028406,000549: 35,3114 03544 VACT3
028407,000550: 35,3115 00015 12D
028408,000551: 35,3116 47315 PDVL VXV
028409,000552: 35,3117 00001 0D
028410,000553: 35,3120 03560 VPASS3
028411,000554: 35,3121 53435 VXV UNIT
028412,000555: 35,3122 00001 0D # (RP*VP)*RP
028413,000556: 35,3123 41241 DOT DMP
028414,000557: 35,3124 03560 VPASS3
028415,000558: 35,3125 00017 14D
|
|
Page 669
|
028417,000560: 35,3126 77621 BDSU
028418,000561: 35,3127 63301 NORM PDVL # NORMALIZED WA - WP 12D
028419,000562: 35,3130 00047 X1
028420,000563: 35,3131 00007 6D
028421,000564: 35,3132 50235 VXV DOT
028422,000565: 35,3133 00001 0D
028423,000566: 35,3134 02261 UNRM # RA*RP.UN 14D
028424,000567: 35,3135 50315 PDVL DOT
028425,000568: 35,3136 00001 0D
028426,000569: 35,3137 00007 6D
028427,000570: 35,3140 65552 SL1 ACOS
028428,000571: 35,3141 77765 SIGN
028429,000572: 35,3142 43225 DSU DAD # ALPHA PI
028430,000573: 35,3143 06520 DPHALF
028431,000574: 35,3144 02257 ELEV
028432,000575: 35,3145 65525 PDDL ACOS
028433,000576: 35,3146 00035 28D
028434,000577: 35,3147 75221 BDSU SIGN
028435,000578: 35,3150 06520 DPHALF
028436,000579: 35,3151 00037 30D # CONTAINS RP-RA
028437,000580: 35,3152 77615 DAD
028438,000581: 35,3153 56205 DMP DDV
028439,000582: 35,3154 33732 TWOPI
028440,000583: 35,3155 77605 DMP
028441,000584: 35,3156 41257 SL* DMP
028442,000585: 35,3157 20176 0 -3,1
028443,000586: 35,3160 51406 PUSH ABS
028444,000587: 35,3161 50025 DSU BMN
028445,000588: 35,3162 03574 SECMAX
028446,000589: 35,3163 73167 OKMAX
028447,000590: 35,3164 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
028448,000591: 35,3165 03574 SECMAX
028449,000592: 35,3166 77606 PUSH
028450,000593: 35,3167 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
028451,000594: 35,3170 03614 TITER
028452,000595: 35,3171 73177 REPETE
028453,000596: 35,3172 71331 SSP DLOAD
028454,000597: 35,3173 03614 TITER
028455,000598: 35,3174 37777 OCT 37777
028456,000599: 35,3175 77650 GOTO
028457,000600: 35,3176 73235 STORDELT
028458,000601: 35,3177 41345 REPETE DLOAD DMP
028459,000602: 35,3200 03576 DELEL
028460,000603: 35,3201 00033 DELELO
028461,000604: 35,3202 71244 BPL DLOAD
028462,000605: 35,3203 73213 NEXTES
028463,000606: 35,3204 03574 SECMAX
028464,000607: 35,3205 77605 DMP
028465,000608: 35,3206 33736 THIRD
028466,000609: 35,3207 17574 STODL SECMAX
|
|
Page 670
|
028468,000611: 35,3210 70446 ABS SR1 # CROSSED OVER SOLUTION
028469,000612: 35,3211 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
028470,000613: 35,3212 73223 RESIGN
028471,000614: 35,3213 51545 NEXTES DLOAD ABS
028472,000615: 35,3214 03576 DELEL
028473,000616: 35,3215 51525 PDDL ABS
028474,000617: 35,3216 00033 DELELO
028475,000618: 35,3217 77625 DSU
028476,000619: 35,3220 71240 BMN DLOAD
028477,000620: 35,3221 73226 REVERS # WRONG DIRECTION
028478,000621: 35,3222 77646 ABS
028479,000622: 35,3223 52165 RESIGN SIGN GOTO
028480,000623: 35,3224 03606 DELTEEO
028481,000624: 35,3225 73235 STORDELT
028482,000625: 35,3226 57545 REVERS DLOAD DCOMP
028483,000626: 35,3227 03606 DELTEEO
028484,000627: 35,3230 70406 PUSH SR1
028485,000628: 35,3231 03606 STORE DELTEEO
028486,000629: 35,3232 77615 DAD
028487,000630: 35,3233 77650 GOTO
028488,000631: 35,3234 73236 ADTIME
028489,000632: 35,3235 03606 STORDELT STORE DELTEEO
028490,000633: 35,3236 77615 ADTIME DAD
028491,000634: 35,3237 02317 NOMTPI # SUM OF DELTA T:S
028492,000635: 35,3240 02317 STORE NOMTPI
028493,000636: 35,3241 63375 VLOAD PDVL
028494,000637: 35,3242 03506 VAPREC
028495,000638: 35,3243 03500 RAPREC
028496,000639: 35,3244 77624 CALL
028497,000640: 35,3245 73462 GOINT
028498,000641: 35,3246 77624 CALL
028499,000642: 35,3247 46402 ACTIVE # STORE NEW RACT3 VACT3
028500,000643: 35,3250 63375 VLOAD PDVL
028501,000644: 35,3251 03530 VPPREC
028502,000645: 35,3252 03522 RPPREC
028503,000646: 35,3253 77624 CALL
028504,000647: 35,3254 73462 GOINT
028505,000648: 35,3255 77624 CALL
028506,000649: 35,3256 46412 PASSIVE # STORE NEW RPASS3 VPASS3
028507,000650: 35,3257 77650 GOTO
028508,000651: 35,3260 73004 ELCALC
028509,000652: 35,3261 43345 ELEX DLOAD DAD
028510,000653: 35,3262 03636 TTPI
028511,000654: 35,3263 02317 NOMTPI
028512,000655: 35,3264 17636 STODL TTPI
028513,000656: 35,3265 77614 BON
028514,000657: 35,3266 01310 ETPIFLAG
028515,000658: 35,3267 73271 TIMEX
028516,000659: 35,3270 02257 STORE ELEV
028517,000660: 35,3271 52145 TIMEX DLOAD GOTO
|
|
Page 671
|
028519,000662: 35,3272 06522 ZEROVECS
028520,000663: 35,3273 03463 NORMEX
028521,000664:
|
|
Page 672
|
028523,000666: # ..... S34/35.1 .....
028524,000667:
028525,000668: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
028526,000669: # PASSIVE POS AND VEL AT TIME T3
028527,000670:
028528,000671: 35,3274 52375 S34/35.1 VLOAD VSU
028529,000672: 35,3275 03552 RPASS3
028530,000673: 35,3276 03536 RACT3
028531,000674: 35,3277 41456 UNIT PUSH
028532,000675: 35,3300 26311 STOVL ULOS
028533,000676: 35,3301 03536 RACT3
028534,000677: 35,3302 53435 VXV UNIT
028535,000678: 35,3303 03544 VACT3
028536,000679: 35,3304 02261 STORE UNRM
028537,000680: 35,3305 77616 RVQ
028538,000681:
|
|
Page 673
|
028540,000683: # ..... S34/35.2 .....
028541,000684:
028542,000685: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
028543,000686:
028544,000687: 35,3306 77220 S34/35.2 STQ VLOAD
028545,000688: 35,3307 03470 SUBEXIT
028546,000689: 35,3310 03560 VPASS3
028547,000690: 35,3311 65315 PDVL PDDL
028548,000691: 35,3312 03552 RPASS3
028549,000692: 35,3313 03610 INTIME
028550,000693: 35,3314 65325 PDDL PDDL
028551,000694: 35,3315 03631 TPASS4
028552,000695: 35,3316 33732 TWOPI # CONIC
028553,000696: 35,3317 46125 PDDL BHIZ
028554,000697: 35,3320 03467 NN
028555,000698: 35,3321 73325 S3435.23
028556,000699: 35,3322 77745 DLOAD
028557,000700: 35,3323 41545 DLOAD PUSH
028558,000701: 35,3324 06522 ZEROVECS # PRECISION
028559,000702: 35,3325 77624 S3435.23 CALL
028560,000703: 35,3326 73466 INTINT # GET TARGET VECTOR
028561,000704: 35,3327 27444 S3435.25 STOVL RTARG
028562,000705: 35,3330 00007 VATT
028563,000706: 35,3331 27506 STOVL VPASS4
028564,000707: 35,3332 03444 RTARG
028565,000708: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP) - PI)SIGN(RA*RP.U)
028566,000709: 35,3333 63256 UNIT PDVL # UNIT RP
028567,000710: 35,3334 03536 RACT3
028568,000711: 35,3335 41456 UNIT PUSH # UNIT RA
028569,000712: 35,3336 50235 VXV DOT
028570,000713: 35,3337 00001 0D
028571,000714: 35,3340 02261 UNRM # RA*RP.U
028572,000715: 35,3341 77715 PDVL
028573,000716: 35,3342 72441 DOT SL1 # UNIT RA.UNIT RP
028574,000717: 35,3343 00001 0D
028575,000718: 35,3344 75326 ACOS SIGN
028576,000719: 35,3345 43244 BPL DAD
028577,000720: 35,3346 73350 NOPIE
028578,000721: 35,3347 06530 DPPOSMAX # REASONABLE TWO PI
028579,000722: 35,3350 15756 NOPIE STODL ACTCENT
028580,000723: 35,3351 03631 TPASS4
028581,000724: 35,3352 77625 DSU
028582,000725: 35,3353 03610 INTIME
028583,000726: 35,3354 03452 STORE DELLT4
028584,000727: 35,3355 40335 SLOAD SETPD
028585,000728: 35,3356 03467 NN # NUMBER OF OFFSETS
028586,000729: 35,3357 00001 0D
028587,000730: 35,3360 63325 PDDL PDVL
028588,000731: 35,3361 33744 EPSFOUR
028589,000732: 35,3362 03536 RACT3
028590,000733: 35,3363 26323 STOVL RINIT
|
|
Page 674
|
028592,000735: 35,3364 03544 VACT3
028593,000736: 35,3365 36331 STCALL VINIT
028594,000737: 35,3366 22000 INITVEL
028595,000738: 35,3367 77624 CALL
028596,000739: 35,3370 73447 LOMAT
028597,000740: 35,3371 64375 VLOAD MXV
028598,000741: 35,3372 02366 DELVEET3
028599,000742: 35,3373 00001 0D
028600,000743: 35,3374 77772 VSL1
028601,000744: 35,3375 37434 STCALL DELVLVC
028602,000745: 35,3376 03470 SUBEXIT
028603,000746:
|
|
Page 675
|
028605,000748: # ..... S34/35.3 .....
028606,000749:
028607,000750: 35,3377 45020 S34/35.3 STQ CALL
028608,000751: 35,3400 03463 NORMEX
028609,000752: 35,3401 73447 LOMAT # GET MATRIX IN PUSH LIST
028610,000753: 35,3402 61375 VLOAD VXM
028611,000754: 35,3403 03434 DELVLVC # NEW DEL V TPI
028612,000755: 35,3404 00001 0D
028613,000756: 35,3405 77772 VSL1
028614,000757: 35,3406 02366 STORE DELVEET3 # SAVE FOR TRANSFORM
028615,000758: 35,3407 63255 VAD PDVL
028616,000759: 35,3410 03544 VACT3 # NEW V REQ
028617,000760: 35,3411 03536 RACT3
028618,000761: 35,3412 65325 PDDL PDDL
028619,000762: 35,3413 03442 TIG
028620,000763: 35,3414 03631 TPASS4
028621,000764: 35,3415 41525 PDDL PUSH
028622,000765: 35,3416 06530 DPPOSMAX
028623,000766: 35,3417 77624 CALL # INTEG. FOR NEW TARGET VEC
028624,000767: 35,3420 73466 INTINT
028625,000768: 35,3421 77775 VLOAD
028626,000769: 35,3422 00001 RATT
028627,000770: 35,3423 03444 STORE RTARG
028628,000771: 35,3424 41575 NOVRWRT VLOAD PUSH
028629,000772: 35,3425 02311 ULOS
028630,000773: 35,3426 57435 VXV VCOMP
028631,000774: 35,3427 02261 UNRM
028632,000775: 35,3430 41456 UNIT PUSH
028633,000776: 35,3431 76435 VXV VSL1
028634,000777: 35,3432 02311 ULOS
028635,000778: 35,3433 77715 PDVL
028636,000779: 35,3434 64315 PDVL MXV
028637,000780: 35,3435 02366 DELVEET3
028638,000781: 35,3436 00001 0D
028639,000782: 35,3437 77772 VSL1
028640,000783: 35,3440 36303 STCALL DVLOS
028641,000784: 35,3441 03463 NORMEX
028642,000785:
|
|
Page 676
|
028644,000787: # ..... S34/35.4 .....
028645,000788:
028646,000789: 35,3442 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
028647,000790: 35,3443 03463 NORMEX
028648,000791: 35,3444 00001 0D
028649,000792: 35,3445 77650 GOTO
028650,000793: 35,3446 73424 NOVRWRT
028651,000794:
|
|
Page 677
|
028653,000796: # ..... LOMAT .....
028654,000797:
028655,000798: 35,3447 57575 LOMAT VLOAD VCOMP
028656,000799: 35,3450 02261 UNRM
028657,000800: 35,3451 24007 STOVL 6D # Y
028658,000801: 35,3452 03536 RACT3
028659,000802: 35,3453 57456 UNIT VCOMP
028660,000803: 35,3454 00015 STORE 12D
028661,000804: 35,3455 76435 VXV VSL1
028662,000805: 35,3456 02261 UNRM # Z*-Y
028663,000806: 35,3457 00001 STORE 0D
028664,000807: 35,3460 43401 SETPD RVQ
028665,000808: 35,3461 00023 18D
028666,000809: 35,3462 65325 GOINT PDDL PDDL # DO
028667,000810: 35,3463 06522 ZEROVECS # NOT
028668,000811: 35,3464 02317 NOMTPI
028669,000812: 35,3465 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
028670,000813: 35,3466 45020 INTINT STQ CALL
028671,000814: 35,3467 03465 RTRN
028672,000815: 35,3470 27414 INTSTALL
028673,000816: 35,3471 71214 CLEAR DLOAD
028674,000817: 35,3472 01673 INTYPFLG
028675,000818: 35,3473 43054 BZE SET
028676,000819: 35,3474 73476 +2
028677,000820: 35,3475 01473 INTYPFLG
028678,000821: 35,3476 45545 DLOAD STADR
028679,000822: 35,3477 63736 STODL TDEC1
028680,000823: 35,3500 73014 SET LXA,2
028681,000824: 35,3501 00063 MOONFLAG
028682,000825: 35,3502 02777 RTX2
028683,000826: 35,3503 43014 BON CLEAR
028684,000827: 35,3504 04303 CMOONFLG
028685,000828: 35,3505 73507 ALLSET
028686,000829: 35,3506 00263 MOONFLAG
028687,000830: 35,3507 25517 ALLSET STOVL TET
028688,000831: 35,3510 77657 VSR*
028689,000832: 35,3511 57176 0,2
028690,000833: 35,3512 25535 STOVL RCV
028691,000834: 35,3513 77657 VSR*
028692,000835: 35,3514 57176 0,2
028693,000836: 35,3515 35543 STCALL VCV
028694,000837: 35,3516 27107 INTEGRVS
028695,000838: 35,3517 52175 VLOAD GOTO
028696,000839: 35,3520 00001 RATT
028697,000840: 35,3521 03465 RTRN
028698,000841:
|
|
Page 678
|
028700,000843: # ..... S34/35.5 .....
028701,000844: # SUBROUTINES USED
028702,000845: # BANKCALL
028703,000846: # GOFLASH
028704,000847: # GOTOPOOH
028705,000848: # S34/35.3
028706,000849: # S34/35.4
028707,000850: # VNPOOH
028708,000851:
028709,000852: 35,3522 43020 S34/35.5 STQ BON
028710,000853: 35,3523 03470 SUBEXIT
028711,000854: 35,3524 01311 FINALFLG
028712,000855: 35,3525 73531 FLAGON
028713,000856: 35,3526 52014 SET GOTO
028714,000857: 35,3527 00470 UPDATFLG
028715,000858: 35,3530 73576 FLAGOFF
028716,000859: 35,3531 77214 FLAGON CLEAR VLOAD
028717,000860: 35,3532 03274 NTARGFLG
028718,000861: 35,3533 03434 DELVLVC
028719,000862: 35,3534 01237 STORE GDT/2
028720,000863: 35,3535 77776 EXIT
028721,000864: 35,3536 33727 +5 CAF V06N81
028722,000865: 35,3537 04616 TC BANKCALL
028723,000866: 35,3540 20476 CADR GOFLASH
028724,000867: 35,3541 06001 TC GOTOPOOH
028725,000868: 35,3542 03544 TC +2 # PRO
028726,000869: 35,3543 03536 TC FLAGON +5 # LOAD
028727,000870: 35,3544 35016 +2 CA EBANK7
028728,000871: 35,3545 54003 TS EBANK # TO BE SURE
028729,000872:
028730,000873: 35,3546 22007 ZL
028731,000874: 35,3547 34756 CA FIVE
028732,000875: 35,3550 54002 NTARGCHK TS Q
028733,000876: 35,3551 50002 INDEX Q
028734,000877: 35,3552 41433 CS DELVLVC
028735,000878: 35,3553 50002 INDEX Q
028736,000879: 35,3554 61236 AD GDT/2
028737,000880: 35,3555 26001 ADS L
028738,000881: 35,3556 10002 CCS Q
028739,000882: 35,3557 13550 TCF NTARGCHK
028740,000883: 35,3560 22000 LXCH A
028741,000884: 35,3561 00006 EXTEND
028742,000885: 35,3562 13565 BZF +3
028743,000886: 35,3563 05504 TC UPFLAG
028744,000887: 35,3564 00146 ADRES NTARGFLG
028745,000888:
028746,000889: 35,3565 06037 TC INTPRET
028747,000890: 35,3566 45014 BOFF CALL
028748,000891: 35,3567 03354 NTARGFLG
|
|
Page 679
|
028750,000893: 35,3570 73572 NOCHG
028751,000894: 35,3571 73377 S34/35.3
028752,000895: 35,3572 77214 NOCHG CLEAR VLOAD
028753,000896: 35,3573 01267 XDELVFLG
028754,000897: 35,3574 02366 DELVEET3
028755,000898: 35,3575 03656 STORE DELVSIN
028756,000899: 35,3576 77624 FLAGOFF CALL
028757,000900: 35,3577 73442 S34/35.4
028758,000901: 35,3600 77776 EXIT
028759,000902: 35,3601 33726 CAF V06N59
028760,000903: 35,3602 03712 TC VNPOOH
028761,000904: 35,3603 06037 TC INTPRET
028762,000905: 35,3604 77650 GOTO
028763,000906: 35,3605 03470 SUBEXIT
028764,000907:
|
|
Page 680
|
028766,000909: # ..... VN1645 .....
028767,000910:
028768,000911: # SUBROUTINES USED
028769,000912: # P3XORP7X
028770,000913: # GET+MGA
028771,000914: # BANKCALL
028772,000915: # DELAYJOB
028773,000916: # COMPTGO
028774,000917: # GOFLASHR
028775,000918: # GOTOPOOH
028776,000919: # FLAGUP
028777,000920:
028778,000921: 35,3606 71220 VN1645 STQ DLOAD
028779,000922: 35,3607 03470 SUBEXIT
028780,000923: 35,3610 33742 DP-.01
028781,000924: 35,3611 02253 STORE +MGA # MGA = -.01
028782,000925: 35,3612 71214 BOFF DLOAD
028783,000926: 35,3613 01351 FINALFLG
028784,000927: 35,3614 73634 GET45
028785,000928: 35,3615 33742 DP-.01
028786,000929: 35,3616 77615 DAD
028787,000930: 35,3617 33742 DP-.01
028788,000931: 35,3620 02253 STORE +MGA # MGA = -.02
028789,000932: 35,3621 77414 BOFF EXIT
028790,000933: 35,3622 01742 REFSMFLG
028791,000934: 35,3623 73634 GET45
028792,000935: 35,3624 03704 TC P3XORP7X
028793,000936: 35,3625 03627 TC +2 # P3X
028794,000937: 35,3626 03635 TC GET45 +1 # P7X
028795,000938: 35,3627 06037 TC INTPRET
028796,000939: 35,3630 41575 VLOAD PUSH
028797,000940: 35,3631 03656 DELVSIN
028798,000941: 35,3632 77624 CALL # COMPUTE MGA
028799,000942: 35,3633 15717 GET+MGA
028800,000943: 35,3634 77776 GET45 EXIT
028801,000944: 35,3635 02432 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
028802,000945: 35,3636 31470 CA SUBEXIT
028803,000946: 35,3637 55464 TS QSAVED
028804,000947: 35,3640 34777 CAF 1SEC
028805,000948: 35,3641 04616 TC BANKCALL
028806,000949: 35,3642 01735 CADR DELAYJOB
028807,000950: 35,3643 33730 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
028808,000951: 35,3644 04616 TC BANKCALL
028809,000952: 35,3645 20476 CADR GOFLASH
028810,000953: 35,3646 03651 TC KILCLOCK # TERMINATE
028811,000954: 35,3647 03654 TC N45PROC # PROCEED
028812,000955: 35,3650 03664 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
028813,000956: 35,3651 30005 KILCLOCK CA Z
028814,000957: 35,3652 55163 TS DISPDEX
|
|
Page 681
|
028816,000959: 35,3653 06001 TC GOTOPOOH
028817,000960: 35,3654 40076 N45PROC CS FLAGWRD2
028818,000961: 35,3655 74746 MASK BIT6
028819,000962: 35,3656 00006 EXTEND
028820,000963: 35,3657 13651 BZF KILCLOCK # FINALFLG IS SET - FLASH V37 - AWAIT NEW PGM
028821,000964: 35,3660 05353 TC PHASCHNG
028822,000965: 35,3661 04024 OCT 04024
028823,000966: 35,3662 05504 TC UPFLAG # SET
028824,000967: 35,3663 00047 ADRES FINALFLG # FINALFLG
028825,000968: 35,3664 30005 CLUPDATE CA Z
028826,000969: 35,3665 55163 TS DISPDEX
028827,000970: 35,3666 05353 TC PHASCHNG
028828,000971: 35,3667 04024 OCT 04024
028829,000972: 35,3670 06037 TC INTPRET
028830,000973: 35,3671 52014 CLEAR GOTO
028831,000974: 35,3672 00670 UPDATFLG
028832,000975: 35,3673 03464 QSAVED
028833,000976:
|
|
Page 682
|
028835,000978: # ..... DISPLAYE .....
028836,000979:
028837,000980: # SUBROUTINES USED
028838,000981: # BANKCALL
028839,000982: # GOFLASHR
028840,000983: # GOTOPOOH
028841,000984: # BLANKET
028842,000985: # ENDOFJOB
028843,000986:
028844,000987: 35,3674 00006 DISPLAYE EXTEND
028845,000988: 35,3675 23463 QXCH NORMEX
028846,000989: 35,3676 33724 CAF V06N55
028847,000990: 35,3677 04616 TCR BANKCALL
028848,000991: 35,3700 20476 CADR GOFLASH
028849,000992: 35,3701 16001 TCF GOTOPOOH
028850,000993: 35,3702 01463 TC NORMEX
028851,000994: 35,3703 13676 TCF -5
028852,000995:
|
|
Page 683
|
028854,000997: # ..... P3XORP7X .....
028855,000998:
028856,000999: 35,3704 37744 P3XORP7X CAF HIGH9
028857,001000: 35,3705 71011 MASK MODREG
028858,001001: 35,3706 00006 EXTEND
028859,001002: 35,3707 13711 BZF +2
028860,001003: 35,3710 24002 INCR Q
028861,001004: 35,3711 00002 RETURN
028862,001005:
028863,001006: # ..... VNPOOH .....
028864,001007:
028865,001008: # SUBROUTINES USED
028866,001009: # BANKCALL
028867,001010: # GOFLASH
028868,001011: # GOTOPOOH
028869,001012:
028870,001013: 35,3712 00006 VNPOOH EXTEND
028871,001014: 35,3713 23465 QXCH RTRN
028872,001015: 35,3714 55615 TS VERBNOUN
028873,001016: 35,3715 31615 CA VERBNOUN
028874,001017: 35,3716 04616 TCR BANKCALL
028875,001018: 35,3717 20476 CADR GOFLASH
028876,001019: 35,3720 16001 TCF GOTOPOOH
028877,001020: 35,3721 01465 TC RTRN
028878,001021: 35,3722 13715 TCF -5
028879,001022:
|
|
Page 684
|
028881,001024: # ..... CONSTANTS .....
028882,001025:
028883,001026: 35,3723 01445 V06N37 VN 0637
028884,001027: 35,3724 01467 V06N55 VN 0655
028885,001028: 35,3725 01472 V06N58 VN 0658
028886,001029: 35,3726 01473 V06N59 VN 0659
028887,001030: 35,3727 01521 V06N81 VN 0681
028888,001031: 35,3730 04055 V16N45 VN 1645
028889,001032: 35,3731 14441 37325 TWOPI 2DEC 6.283185307 B-4
028890,001033:
028891,001034: 35,3733 00001 20650 MAX250 2DEC 25 E3
028892,001035:
028893,001036: 35,3735 12525 12525 THIRD 2DEC .333333333
028894,001037:
028895,001038: 35,3737 00004 21505 ELEPS 2DEC .27777777 E-3
028896,001039:
028897,001040: 35,3741 77777 DP-.01 OCT 77777 # CONSTANTS
028898,001041: 35,3742 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
028899,001042: 35,3743 01252 25253 EPSFOUR 2DEC .0416666666
028900,001043:
028901,001044: 35,3745 13434 16162 130DEG 2DEC .3611111111
028902,001045:
|
|
Page 685
|
028904,001047: # ..... INITVEL .....
028905,001048:
028906,001049: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
028907,001050: # MOD BY WHITE.P DATE 21NOV67
028908,001051:
028909,001052: # FUNCTIONAL DESCRIPTION
028910,001053:
028911,001054: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
028912,001055: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
028913,001056: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
028914,001057: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
028915,001058: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
028916,001059: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
028917,001060: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
028918,001061: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
028919,001062: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
028920,001063: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
028921,001064:
028922,001065: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
028923,001066: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
028924,001067: # SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
028925,001068: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
028926,001069: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
028927,001070: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
028928,001071: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
028929,001072: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
028930,001073:
028931,001074: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
028932,001075: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
028933,001076: # TRAJECTORY COMPUTATIONS.
028934,001077:
028935,001078: # CALLING SEQUENCE
028936,001079:
028937,001080: # L CALL
028938,001081: # L+1 INITVEL
028939,001082: # L+2 (RETURN - ALWAYS)
028940,001083:
028941,001084: # INPUT
028942,001085:
028943,001086: # (1) RINIT INITIAL POSITION RADIUS VECTOR
028944,001087: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
028945,001088: # (3) RTARG TARGET POSITION RADIUS VECTOR
028946,001089: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
028947,001090: # (5) INTIME TIME OF RINIT
028948,001091: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
028949,001092: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
028950,001093: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
028951,001094: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
028952,001095: # PUSHLOC SET AT 4D
028953,001096:
|
|
Page 686
|
028955,001098: # OUTPUT
028956,001099:
028957,001100: # (1) RTARG OFFSET TARGET POSITION VECTOR
028958,001101: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
028959,001102: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
028960,001103: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
028961,001104:
028962,001105: # SUBROUTINES USED
028963,001106:
028964,001107: # LAMBERT
028965,001108: # INTSTALL
028966,001109: # INTEGRVS
028967,001110:
028968,001111: 11,2000 SETLOC INTVEL
028969,001112: 11,2000 BANK
028970,001113:
028971,001114: 11,2000 COUNT* $$/INITV
028972,001115: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
028973,001116: 11,2001 00475 GUESSW
028974,001117: 11,2002 44175 HAVEGUES VLOAD STQ
028975,001118: 11,2003 03444 RTARG
028976,001119: 11,2004 03463 NORMEX
028977,001120: 11,2005 03472 STORE RTARG1
028978,001121: 11,2006 77646 ABVAL
028979,001122: 11,2007 03723 STORE RTMAG
028980,001123: 11,2010 46135 SLOAD BHIZ
028981,001124: 11,2011 03000 RTX2
028982,001125: 11,2012 22026 INITVEL1
028983,001126: 11,2013 72575 VLOAD VSL2
028984,001127: 11,2014 02323 RINIT # B29
028985,001128: 11,2015 26323 STOVL RINIT # B27
028986,001129: 11,2016 02331 VINIT # B7
028987,001130: 11,2017 77752 VSL2
028988,001131: 11,2020 26331 STOVL VINIT # B5
028989,001132: 11,2021 03472 RTARG1
028990,001133: 11,2022 77752 VSL2
028991,001134: 11,2023 03472 STORE RTARG1
028992,001135: 11,2024 77646 ABVAL
028993,001136: 11,2025 03723 STORE RTMAG
028994,001137:
028995,001138: # INITIALIZATION
028996,001139:
028997,001140: 11,2026 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4 (PL 2D)
028998,001141: 11,2027 03617 ITCTR
028999,001142: 11,2030 77776 0 -1
029000,001143: 11,2031 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
029001,001144: 11,2032 17667 STODL COZY4 # SET COZY4 TO COSINE (E4) (PL 0D)
029002,001145: 11,2033 67154 LXA,2 SXA,2
029003,001146: 11,2034 00154 MPAC
029004,001147: 11,2035 02701 VTARGTAG # SET VTARGTAG TO 0D (SP)
029005,001148: 11,2036 77775 VLOAD
|
|
Page 687
|
029007,001150: 11,2037 02323 RINIT
029008,001151: 11,2040 26655 STOVL R1VEC # R1VEC EQ RINIT
029009,001152: 11,2041 03472 RTARG1
029010,001153: 11,2042 16663 STODL R2VEC # R2VEC EQ RTARG
029011,001154: 11,2043 03452 DELLT4
029012,001155: 11,2044 02671 STORE TDESIRED # TDESIRED EQ DELLT4
029013,001156: 11,2045 77201 SETPD VLOAD
029014,001157: 11,2046 00001 0D # INITIALIZE PL TO 0D
029015,001158: 11,2047 02323 RINIT # MPAC EQ RINIT (+29)
029016,001159: 11,2050 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
029017,001160: 11,2051 53435 VXV UNIT
029018,001161: 11,2052 02331 VINIT # MPAC EQ UNIT(RI) X VI (+8)
029019,001162: 11,2053 26674 STOVL UN
029020,001163: 11,2054 03472 RTARG1
029021,001164: 11,2055 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
029022,001165: 11,2056 43015 DAD CLEAR
029023,001166: 11,2057 03667 COZY4
029024,001167: 11,2060 03665 NORMSW
029025,001168: 11,2061 03667 STORE COZY4
029026,001169: 11,2062 43044 INITVEL2 BPL SET
029027,001170: 11,2063 22105 INITVEL3 # UN CALCULATED IN LAMBERT
029028,001171: 11,2064 03465 NORMSW
029029,001172:
029030,001173: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
029031,001174:
029032,001175: 11,2065 41575 VLOAD PUSH # (PL 6D)
029033,001176: 11,2066 02663 R2VEC # RC TO 6D (+29)
029034,001177: 11,2067 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD (PL 2D)
029035,001178: 11,2070 46206 PUSH VPROJ # (PL 8D)
029036,001179: 11,2071 02674 UN
029037,001180: 11,2072 51352 VSL2 BVSU
029038,001181: 11,2073 74256 UNIT VXSC # (PL 0D)
029039,001182: 11,2074 77772 VSL1
029040,001183: 11,2075 02663 STORE R2VEC
029041,001184: 11,2076 67351 TLOAD SLOAD
029042,001185: 11,2077 24007 ZEROVEC
029043,001186: 11,2100 03617 ITCTR
029044,001187: 11,2101 77244 BPL VLOAD
029045,001188: 11,2102 22105 INITVEL3
029046,001189: 11,2103 02663 R2VEC
029047,001190: 11,2104 03472 STORE RTARG1
029048,001191: 11,2105 63345 INITVEL3 DLOAD PDVL # (PL 2D)
029049,001192: 11,2106 26007 MUEARTH # POSITIVE VALUE
029050,001193: 11,2107 02663 R2VEC
029051,001194: 11,2110 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
029052,001195: 11,2111 02655 R1VEC
029053,001196: 11,2112 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL 14D)
029054,001197: 11,2113 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
029055,001198: 11,2114 00003 2D
029056,001199: 11,2115 77606 PUSH # (PL 20D)
029057,001200: 11,2116 71350 LXA,1 DLOAD
|
|
Page 688
|
029059,001202: 11,2117 02776 RTX1
029060,001203: 11,2120 00023 18D
029061,001204: 11,2121 62040 BMN INCR,1
029062,001205: 11,2122 22124 +2
029063,001206: 11,2123 77767 DEC -8 B-14
029064,001207: 11,2124 67310 INCR,1 SLOAD
029065,001208: 11,2125 00012 10D
029066,001209: 11,2126 00047 X1
029067,001210: 11,2127 77230 BHIZ VLOAD # (PL 14D)
029068,001211: 11,2130 22132 +2
029069,001212: 11,2131 41476 VCOMP PUSH # (PL 20D)
029070,001213: 11,2132 77775 VLOAD # (PL 14D)
029071,001214: 11,2133 50235 VXV DOT # (PL 2D)
029072,001215: 11,2134 71244 BPL DLOAD # (PL 0D)
029073,001216: 11,2135 22137 INITVEL4
029074,001217: 11,2136 41476 DCOMP PUSH # (PL 2D)
029075,001218: 11,2137 67154 INITVEL4 LXA,2 SXA,2
029076,001219: 11,2140 00000 0D
029077,001220: 11,2141 02672 GEOMSGN
029078,001221:
029079,001222: # SET INPUTS UP FOR LAMBERT
029080,001223:
029081,001224: 11,2142 45150 LXA,1 CALL
029082,001225: 11,2143 02776 RTX1
029083,001226:
029084,001227: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
029085,001228:
|
|
In Luminary 98, the following LAMBERT call was replaced with a call to
the new routine SETITCTR to correct Luminary anomaly 65.
|
029088,001231: 11,2144 25212 LAMBERT
029089,001232:
029090,001233: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
029091,001234:
029092,001235: 11,2145 77214 CLEAR VLOAD
029093,001236: 11,2146 00675 GUESSW
029094,001237: 11,2147 02744 VVEC
029095,001238:
029096,001239: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
029097,001240:
029098,001241: 11,2150 16337 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
029099,001242:
029100,001243: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
029101,001244: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
029102,001245:
029103,001246: 11,2151 02702 VTARGTAG
029104,001247: 11,2152 45030 BHIZ CALL
029105,001248: 11,2153 22230 INITVEL7
029106,001249: 11,2154 27414 INTSTALL
029107,001250: 11,2155 43135 SLOAD CLEAR
029108,001251: 11,2156 03000 RTX2
029109,001252: 11,2157 00263 MOONFLAG
029110,001253: 11,2160 43030 BHIZ SET
029111,001254: 11,2161 22163 INITVEL5
|
|
Page 689
|
029113,001256: 11,2162 00063 MOONFLAG
029114,001257: 11,2163 77775 INITVEL5 VLOAD
029115,001258: 11,2164 02323 RINIT
029116,001259: 11,2165 02655 STORE R1VEC
029117,001260: 11,2166 25535 STOVL RCV
029118,001261: 11,2167 02337 VIPRIME
029119,001262: 11,2170 15543 STODL VCV
029120,001263: 11,2171 03610 INTIME
029121,001264: 11,2172 01517 STORE TET
029122,001265: 11,2173 43015 DAD CLEAR
029123,001266: 11,2174 03452 DELLT4
029124,001267: 11,2175 01673 INTYPFLG
029125,001268: 11,2176 34041 STCALL TDEC1
029126,001269: 11,2177 27107 INTEGRVS
029127,001270: 11,2200 77775 VLOAD
029128,001271: 11,2201 00025 VATT1
029129,001272: 11,2202 02703 STORE VTARGET
029130,001273:
029131,001274: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
029132,001275: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
029133,001276:
029134,001277: 11,2203 63154 LXA,2 INCR,2
029135,001278: 11,2204 03616 ITCTR
029136,001279: 11,2205 00001 1D # INCREMENT ITCTR
029137,001280: 11,2206 55134 SXA,2 XSU,2
029138,001281: 11,2207 03616 ITCTR
029139,001282: 11,2210 02701 VTARGTAG
029140,001283: 11,2211 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
029141,001284: 11,2212 00050 X2
029142,001285: 11,2213 22225 INITVEL6
029143,001286:
029144,001287: # OFFSET CONIC TARGET VECTOR
029145,001288:
029146,001289: 11,2214 52375 VLOAD VSU
029147,001290: 11,2215 03472 RTARG1
029148,001291: 11,2216 00017 RATT1
029149,001292: 11,2217 77655 VAD
029150,001293: 11,2220 02663 R2VEC
029151,001294: 11,2221 16663 STODL R2VEC
029152,001295: 11,2222 03667 COZY4
029153,001296: 11,2223 77650 GOTO
029154,001297: 11,2224 22062 INITVEL2 # CONTINUE ITERATING AT INITVEL2
029155,001298:
029156,001299: # COMPUTE THE DELTA VELOCITY
029157,001300:
029158,001301: 11,2225 77775 INITVEL6 VLOAD
029159,001302: 11,2226 02663 R2VEC
029160,001303: 11,2227 03472 STORE RTARG1
029161,001304: 11,2230 52375 INITVEL7 VLOAD VSU
029162,001305: 11,2231 02337 VIPRIME
029163,001306: 11,2232 02331 VINIT
029164,001307: 11,2233 26366 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
|
|
Page 690
|
029166,001309: 11,2234 02703 VTARGET
029167,001310: 11,2235 03566 STORE VTPRIME
029168,001311: 11,2236 46135 SLOAD BHIZ
029169,001312: 11,2237 03000 RTX2
029170,001313: 11,2240 22255 INITVELX
029171,001314: 11,2241 70575 VLOAD VSR2
029172,001315: 11,2242 03566 VTPRIME
029173,001316: 11,2243 27566 STOVL VTPRIME
029174,001317: 11,2244 02337 VIPRIME
029175,001318: 11,2245 77742 VSR2
029176,001319: 11,2246 26337 STOVL VIPRIME
029177,001320: 11,2247 03472 RTARG1
029178,001321: 11,2250 77742 VSR2
029179,001322: 11,2251 27472 STOVL RTARG1
029180,001323: 11,2252 02366 DELVEET3
029181,001324: 11,2253 77742 VSR2
029182,001325: 11,2254 02366 STORE DELVEET3
029183,001326: 11,2255 70750 INITVELX LXA,1 DLOAD*
029184,001327: 11,2256 02776 RTX1
029185,001328: 11,2257 10003 MUTABLE -2,1
029186,001329: 11,2260 41206 PUSH DMP
029187,001330: 11,2261 02742 R1A
029188,001331: 11,2262 56342 SR1 DDV
029189,001332: 11,2263 00041 R1
029190,001333: 11,2264 17721 STODL MU/A
029191,001334: 11,2265 77661 SR
029192,001335: 11,2266 20607 6
029193,001336: 11,2267 03717 STORE MUASTEER
029194,001337: 11,2270 77201 SETPD VLOAD
029195,001338: 11,2271 00001 0D
029196,001339: 11,2272 03472 RTARG1
029197,001340: 11,2273 37444 STCALL RTARG
029198,001341: 11,2274 03463 NORMEX
029199,001342:
029200,001343: # ..... END OF INITVEL ROUTINE .....
029201,001344:
|
|
Page 691
|
029203,001346: # ..... MIDGIM .....
029204,001347:
029205,001348: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
029206,001349: # REVISION 03, 17 FEB 67
029207,001350:
029208,001351: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
029209,001352: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
029210,001353: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
029211,001354: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
029212,001355: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
029213,001356:
029214,001357: # .. INPUTS ..
029215,001358:
029216,001359: # NAME MEANING UNITS/SCALING/MODE
029217,001360:
029218,001361: # AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT
029219,001362: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
029220,001363: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
029221,001364: # 0D(PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
029222,001365:
029223,001366: # .. OUTPUTS ..
029224,001367:
029225,001368: # NAME MEANING UNITS/SCALING/MODE
029226,001369:
029227,001370: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
029228,001371: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT
029229,001372: # MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT
029230,001373:
029231,001374: # .. CALLING SEQUENCE ..
029232,001375:
029233,001376: # L CALL
029234,001377: # L+1 MIDGIM
029235,001378: # L+2 (RETURN - ALWAYS)
029236,001379:
029237,001380: # .. NO SUBROUTINES CALLED ..
029238,001381:
029239,001382: # .. DEBRIS - ERASEABLE TEMPORARY USAGE
029240,001383:
029241,001384: # A,Q,L, PUSH LIST, MPAC.
029242,001385:
029243,001386: # .. ALARMS - NONE ..
029244,001387:
|
|
Page 692
|
029246,001389: # MIDDLE GIMBAL ANGLE COMPUTATION.
029247,001390:
029248,001391: 06,2000 SETLOC MIDDGIM
029249,001392: 06,2000 BANK
029250,001393:
029251,001394: 06,3715 COUNT* $$/MIDG
029252,001395:
029253,001396: 06,3715 20000 00000 HALFREV 2DEC 1 B-1
029254,001397:
029255,001398: 06,3717 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
029256,001399: 06,3720 77656 UNIT
029257,001400: 06,3721 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
029258,001401: 06,3722 01742 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
029259,001402: 06,3723 51136 ARCSIN BPL
029260,001403: 06,3724 15730 SETMGA
029261,001404: 06,3725 43215 DAD DAD # CONVERT -MGA TO +MGA BY
029262,001405: 06,3726 15716 HALFREV # ADDING ONE REVOLUTION
029263,001406: 06,3727 15716 HALFREV
029264,001407: 06,3730 02253 SETMGA STORE +MGA
029265,001408: 06,3731 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
029266,001409: 06,3732 02675 MGLVFLAG # AND EXIT
029267,001410: 06,3733 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
029268,001411: 06,3734 02323 RINIT
029269,001412: 06,3735 77676 VCOMP # U(-R)
029270,001413: 06,3736 00023 STORE 18D # U(-R) TO 18D
029271,001414: 06,3737 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
029272,001415: 06,3740 02331 VINIT
029273,001416: 06,3741 00015 STORE 12D # U(V*R) TO 12D
029274,001417: 06,3742 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
029275,001418: 06,3743 00023 18D
029276,001419: 06,3744 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
029277,001420: 06,3745 00001 0D # DELTA V (+7) IN 0D
029278,001421: 06,3746 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
029279,001422: 06,3747 00007 6D # AND SCALE +7 IN MPAC
029280,001423: 06,3750 03434 STORE DELVLVC # STORE IN DELVLVC (+7)
029281,001424: 06,3751 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC
029282,001425: 06,3752 02475 MGLVFLAG # AND EXIT
029283,001426:
029284,001427: # ..... END OF MIDGIM ROUTINE .....
029285,001428:
|
|
Page 693
|
029287,001430: 10,2000 BANK 10
029288,001431: 10,2000 SETLOC SLCTMU
029289,001432: 10,2000 BANK
029290,001433: 10,2000 COUNT* $$/MIDG
029291,001434:
029292,001435: 10,2000 77160 SELECTMU AXC,1 AXT,2
029293,001436: 10,2001 00002 2D
029294,001437: 10,2002 00000 0D
029295,001438: 10,2003 77614 BOFF
029296,001439: 10,2004 04343 CMOONFLG
029297,001440: 10,2005 20011 SETMUER
029298,001441: 10,2006 77160 AXC,1 AXT,2
029299,001442: 10,2007 00012 10D
029300,001443: 10,2010 00002 2D
029301,001444: 10,2011 66143 SETMUER DLOAD* SXA,1
029302,001445: 10,2012 10011 MUTABLE +4,1
029303,001446: 10,2013 02776 RTX1
029304,001447: 10,2014 22317 STODL* RTSR1/MU
029305,001448: 10,2015 10003 MUTABLE -2,1
029306,001449: 10,2016 54214 BOFF SR
029307,001450: 10,2017 04343 CMOONFLG
029308,001451: 10,2020 20022 RTRNMU
029309,001452: 10,2021 20607 6D
029310,001453: 10,2022 02321 RTRNMU STORE RTMU
029311,001454: 10,2023 43134 SXA,2 CLEAR
029312,001455: 10,2024 02777 RTX2
029313,001456: 10,2025 01271 FINALFLG
029314,001457: 10,2026 77650 GOTO
029315,001458: 10,2027 73606 VN1645
029316,001459:
|
|
Page 694
|
029318,001461: # ..... PERIAPO .....
029319,001462:
029320,001463: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
029321,001464: # MOD BY WHITE.P DATE 18JAN68
029322,001465:
029323,001466: # FUNCTIONAL DESCRIPTION
029324,001467:
029325,001468: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
029326,001469: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
029327,001470: # THE TRAJECTORY AND THE PRIMARY BODY.
029328,001471:
029329,001472: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
029330,001473:
029331,001474: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
029332,001475: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
029333,001476:
029334,001477: # CALLING SEQUENCE
029335,001478:
029336,001479: # L CALL
029337,001480: # L+1 PERIAPO
029338,001481: # L+2 (RETURN - ALWAYS)
029339,001482:
029340,001483: # INPUT
029341,001484:
029342,001485: # (1) RVEC POSITION VECTOR IN METERS
029343,001486: # SCALE FACTOR - EARTH +29, MOON +27
029344,001487: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
029345,001488: # SCALE FACTOR - EARTH +7, MOON +5
029346,001489: # (3) X1 PRIMARY BODY INDICATOR
029347,001490: # EARTH -2, MOON -10
029348,001491:
029349,001492: # OUTPUT
029350,001493:
029351,001494: # (1) 2D APOCENTER RADIUS IN METERS
029352,001495: # SCALE FACTOR - EARTH +29, MOON +27
029353,001496: # (2) 4D APOCENTER ALTITUDE IN METERS
029354,001497: # SCALE FACTOR - EARTH +29, MOON P27
029355,001498: # (3) 6D PERICENTER RADIUS IN METERS
029356,001499: # SCALE FACTOR - EARTH +29, MOON +27
029357,001500: # (4) 8D PERICENTER ALTITUDE IN METERS
029358,001501: # SCALE FACTOR - EARTH +29, MOON +27
029359,001502: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
029360,001503: # SCALE FACTOR - +3
029361,001504: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
029362,001505: # SCALE FACTOR - EARTH +29, MOON +27
029363,001506: # (7) PUSHLOC EQUALS 10D
029364,001507:
029365,001508: # SUBROUTINES USED
029366,001509:
029367,001510: # SETRAD
|
|
Page 695
|
029369,001512: # APSIDES
029370,001513:
029371,001514: 23,2000 SETLOC APOPERI
029372,001515: 23,2000 BANK
029373,001516:
029374,001517: 23,2314 COUNT* $$/PERAP
029375,001518:
029376,001519: 23,2314 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
029377,001520: # = 20 909 901.57 FT
029378,001521:
029379,001522: 23,2316 53754 PERIAPO1 LXA,2 VSR*
029380,001523: 23,2317 02777 RTX2
029381,001524: 23,2320 57176 0,2
029382,001525: 23,2321 26744 STOVL VVEC
029383,001526: 23,2322 53750 LXA,1 VSR*
029384,001527: 23,2323 02776 RTX1
029385,001528: 23,2324 57176 0,2
029386,001529: 23,2325 02655 STORE RVEC
029387,001530: 23,2326 45020 PERIAPO STQ CALL
029388,001531: 23,2327 03463 NORMEX
029389,001532: 23,2330 46344 SETRAD
029390,001533: 23,2331 37671 STCALL XXXALT
029391,001534: 23,2332 25674 APSIDES
029392,001535: 23,2333 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
029393,001536: 23,2334 00003 2D
029394,001537: 23,2335 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
029395,001538: 23,2336 03671 XXXALT
029396,001539: 23,2337 00001 0D
029397,001540: 23,2340 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
029398,001541: 23,2341 03671 XXXALT
029399,001542: 23,2342 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
029400,001543: 23,2343 03463 NORMEX
029401,001544:
|
|
Page 696
|
029403,001546: # SETRAD
029404,001547:
029405,001548: 23,2344 41545 SETRAD DLOAD PUSH
029406,001549: 23,2345 06315 RPAD
029407,001550: 23,2346 63130 SXA,1 INCR,2
029408,001551: 23,2347 00047 X2
029409,001552: 23,2350 00002 2D
029410,001553: 23,2351 46135 SLOAD BHIZ
029411,001554: 23,2352 00050 X2
029412,001555: 23,2353 46357 SETRADX
029413,001556: 23,2354 51575 VLOAD ABVAL
029414,001557: 23,2355 02023 RLS
029415,001558: 23,2356 77725 PDDL
029416,001559: 23,2357 43545 SETRADX DLOAD RVQ
029417,001560:
|
|
Page 697
|
029419,001562: # PRECSET
029420,001563:
029421,001564: 23,2360 77620 PRECSET STQ
029422,001565: 23,2361 03463 NORMEX
029423,001566: 23,2362 37574 STCALL TDEC2
029424,001567: 23,2363 27057 LEMPREC
029425,001568: 23,2364 77624 CALL
029426,001569: 23,2365 46376 LEMSTORE
029427,001570: 23,2366 77745 DLOAD
029428,001571: 23,2367 03574 TDEC2
029429,001572: 23,2370 34041 STCALL TDEC1
029430,001573: 23,2371 27043 CSMPREC
029431,001574: 23,2372 77624 CALL
029432,001575: 23,2373 46406 CSMSTORE
029433,001576: 23,2374 77650 GOTO
029434,001577: 23,2375 03463 NORMEX
029435,001578: 23,2376 43175 LEMSTORE VLOAD BOFF
029436,001579: 23,2377 00001 RATT
029437,001580: 23,2400 01352 AVFLAG
029438,001581: 23,2401 46412 PASSIVE
029439,001582: 23,2402 27536 ACTIVE STOVL RACT3
029440,001583: 23,2403 00007 VATT
029441,001584: 23,2404 03544 STORE VACT3
029442,001585: 23,2405 77616 RVQ
029443,001586: 23,2406 43175 CSMSTORE VLOAD BOFF
029444,001587: 23,2407 00001 RATT
029445,001588: 23,2410 01352 AVFLAG
029446,001589: 23,2411 46402 ACTIVE
029447,001590: 23,2412 27552 PASSIVE STOVL RPASS3
029448,001591: 23,2413 00007 VATT
029449,001592: 23,2414 03560 STORE VPASS3
029450,001593: 23,2415 77616 RVQ
029451,001594:
|
|
Page 698
|
029453,001596: # VECSHIFT
029454,001597:
029455,001598: 23,2416 53754 VECSHIFT LXA,2 VSR*
029456,001599: 23,2417 02777 RTX2
029457,001600: 23,2420 57176 0,2
029458,001601: 23,2421 63350 LXA,1 PDVL
029459,001602: 23,2422 02776 RTX1
029460,001603: 23,2423 63257 VSR* PDVL
029461,001604: 23,2424 57176 0,2
029462,001605: 23,2425 77616 RVQ
029463,001606:
|
|
Page 699
|
029465,001608: # SHIFTR1
029466,001609:
029467,001610: 23,2426 53754 SHIFTR1 LXA,2 SL*
029468,001611: 23,2427 02777 RTX2
029469,001612: 23,2430 57576 0,2
029470,001613: 23,2431 77616 RVQ
029471,001614:
|
|
Page 700
|
029473,001616: # PROGRAM DESCRIPTION
029474,001617: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
029475,001618: # MOD NO. 0 DATE 22 DECEMBER 67
029476,001619: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS
029477,001620: # FUNCTIONAL DESCRIPTION
029478,001621:
029479,001622: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
029480,001623: # OUT-OF-PLANE PARAMETERS (Y, YDOT, PSI). (REQUESTED BY DSKY).
029481,001624:
029482,001625: # CALLING SEQUENCE
029483,001626:
029484,001627: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
029485,001628:
029486,001629: # SUBROUTINES CALLED
029487,001630:
029488,001631: # EXDSPRET
029489,001632: # GOMARKF
029490,001633: # CSMPREC
029491,001634: # LEMPREC
029492,001635: # SGNAGREE
029493,001636: # LOADTIME
029494,001637:
029495,001638: # NORMAL EXIT MODES
029496,001639:
029497,001640: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
029498,001641:
029499,001642: # ALARM OR ABORT EXIT MODES
029500,001643:
029501,001644: # NONE
029502,001645:
029503,001646: # OUTPUT
029504,001647:
029505,001648: # DECIMAL DISPLAY OF TIME, Y, YDOT AND PSI
029506,001649:
029507,001650: # DISPLAYED VALUES Y, YDOT, AND PSI, ARE STORED IN ERASABLE
029508,001651: # REGISTERS RANGE, RRATE AND RTHETA RESPECTIVELY.
029509,001652:
029510,001653: # ERASABLE INITIALIZATION REQUIRED
029511,001654:
029512,001655: # CSM AND LEM STATE VECTORS
029513,001656:
029514,001657: # DEBRIS
029515,001658:
029516,001659: # CENTRALS A,Q,L
029517,001660: # OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
029518,001661:
029519,001662: 20,2115 BANK 20
029520,001663: 04,2000 SETLOC R36LM
029521,001664: 04,2000 BANK
|
|
Page 701
|
029523,001666: 04,2656 E4,1606 EBANK= RPASS36
029524,001667:
029525,001668: 04,2656 COUNT* $$/R36
029526,001669:
029527,001670: 04,2656 22007 R36 ZL
029528,001671: 04,2657 34755 CAF ZERO # SET TIME OF EVENT TO ZERO FOR FIRST
029529,001672: 04,2660 53052 DXCH DSPTEMX # DISPLAY
029530,001673: 04,2661 33011 CAF V06N16N
029531,001674: 04,2662 04616 TC BANKCALL
029532,001675: 04,2663 20334 CADR GOMARKF
029533,001676: 04,2664 15472 TCF ENDEXT # TERMINATE
029534,001677: 04,2665 12667 TCF +2 # PROCEED
029535,001678: 04,2666 12661 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME
029536,001679: 04,2667 53052 DXCH DSPTEMX
029537,001680: 04,2670 00006 EXTEND
029538,001681: 04,2671 13000 BZF LREGCHK # A-REG ZERO GOTO CHECK L-REG FOR ZERO
029539,001682: 04,2672 52155 ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
029540,001683: 04,2673 06037 TC INTPRET
029541,001684: 04,2674 77634 RTB
029542,001685: 04,2675 21716 DPMODE
029543,001686: 04,2676 34041 R36INT STCALL TDEC1
029544,001687: 04,2677 27043 OTHPREC
029545,001688: 04,2700 63375 VLOAD PDVL
029546,001689: 04,2701 00007 VATT
029547,001690: 04,2702 00001 RATT # -
029548,001691: 04,2703 02207 STORE RPASS36 # R
029549,001692: 04,2704 63256 UNIT PDVL # P
029550,001693: 04,2705 53435 VXV UNIT
029551,001694: 04,2706 77626 STADR # -
029552,001695: 04,2707 61562 STODL UNP36 # U
029553,001696: 04,2710 00015 TAT
029554,001697: 04,2711 34041 STCALL TDEC1
029555,001698: 04,2712 27057 THISPREC
029556,001699: 04,2713 63375 VLOAD PDVL # -
029557,001700: 04,2714 00007 VATT # VELOCITY VECTOR V 00D
029558,001701: 04,2715 00001 RATT # A
029559,001702: 04,2716 77725 PDDL
029560,001703: 04,2717 00015 TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
029561,001704: 04,2720 24037 STOVL 30D # -
029562,001705: 04,2721 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
029563,001706: 04,2722 63245 BVSU PDVL # A - -
029564,001707: 04,2723 02207 RPASS36 # LINE OF SIGHT VECTOR R - R 12D
029565,001708: 04,2724 72441 DOT SL1 # P A
029566,001709: 04,2725 02215 UNP36 # - -
029567,001710: 04,2726 26201 STOVL RANGE # Y = U . R
029568,001711: 04,2727 00001 00D # A
029569,001712: 04,2730 72441 DOT SL1
029570,001713: 04,2731 02215 UNP36 # . - -
029571,001714: 04,2732 26203 STOVL RRATE # Y = U . V
029572,001715: 04,2733 00007 06D # - A -
|
|
Page 702
|
029574,001717: 04,2734 41456 UNIT PUSH # U = UNIT ( R ) 18D
029575,001718: 04,2735 47235 VXV VXV # RA A
029576,001719: 04,2736 00001 00D # - - - -
029577,001720: 04,2737 00023 18D # (U X V ) X U = U
029578,001721: 04,2740 53552 VSL2 UNIT # RA A RA A
029579,001722: 04,2741 77656 UNIT
029580,001723: 04,2742 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
029581,001724: 04,2743 00023 18D
029582,001725: 04,2744 74241 DOT VXSC # -
029583,001726: 04,2745 00015 12D # U
029584,001727: 04,2746 77752 VSL2 # L
029585,001728: 04,2747 53445 BVSU UNIT
029586,001729: 04,2750 77656 UNIT
029587,001730: 04,2751 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D
029588,001731: 04,2752 00001 00D # PLANE
029589,001732: 04,2753 65552 SL1 ARCCOS # - -
029590,001733: 04,2754 26205 STOVL RTHETA # PSI = ARCCOS(U . U )
029591,001734: 04,2755 50235 VXV DOT # A L
029592,001735: 04,2756 00001 00D
029593,001736: 04,2757 71244 BPL DLOAD
029594,001737: 04,2760 10765 R36TAG2
029595,001738: 04,2761 24020 LODPMAX
029596,001739: 04,2762 77625 DSU
029597,001740: 04,2763 02205 RTHETA
029598,001741: 04,2764 02205 STORE RTHETA
029599,001742: 04,2765 47145 R36TAG2 DLOAD RTB
029600,001743: 04,2766 00037 30D
029601,001744: 04,2767 21612 SGNAGREE
029602,001745: 04,2770 01052 STORE DSPTEMX
029603,001746: 04,2771 77776 EXIT
029604,001747: 04,2772 33012 CAF V06N90N # DISPLAY Y, YDOT, AND PSI
029605,001748: 04,2773 04616 TC BANKCALL
029606,001749: 04,2774 20334 CADR GOMARKF
029607,001750: 04,2775 15472 TCF ENDEXT # TERMINATE
029608,001751: 04,2776 15472 TCF ENDEXT # PROCEED, END OF PROGRAM
029609,001752: 04,2777 12661 TCF R36 +3 # REDISPLAY OUTPUT
029610,001753: 04,3000 56001 LREGCHK XCH L
029611,001754: 04,3001 00006 EXTEND
029612,001755: 04,3002 13005 BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
029613,001756: 04,3003 56001 XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
029614,001757: 04,3004 12672 TCF ASTROTIM
029615,001758: 04,3005 06037 ENTTIM2 TC INTPRET
029616,001759: 04,3006 52034 RTB GOTO
029617,001760: 04,3007 21573 LOADTIME
029618,001761: 04,3010 10676 R36INT
029619,001762: 04,3011 01420 V06N16N VN 00616
029620,001763: 04,3012 01532 V06N90N VN 00690
End of include-file P34-P35,_P74-P75.agc. Parent file is MAIN.agc