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