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