Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
028950,000002: ## Copyright: Public domain.
028951,000003: ## Filename: P34-P35,_P74-P75.agc
028952,000004: ## Purpose: A log section of Zerlina 56, the final revision of
028953,000005: ## Don Eyles's offline development program for the variable
028954,000006: ## guidance period servicer. It also includes a new P66 with LPD
028955,000007: ## (Landing Point Designator) capability, based on an idea of John
028956,000008: ## Young's. Neither of these advanced features were actually flown,
028957,000009: ## but Zerlina was also the birthplace of other big improvements to
028958,000010: ## Luminary including the terrain model and new (Luminary 1E)
028959,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
028960,000012: ## and revision 56 includes all changes up to and including Luminary
028961,000013: ## 183. It is therefore quite close to the Apollo 14 program,
028962,000014: ## Luminary 178, where not modified with new features.
028963,000015: ## Reference: pp. 653-697
028964,000016: ## Assembler: yaYUL
028965,000017: ## Contact: Ron Burkey <info@sandroid.org>.
028966,000018: ## Website: www.ibiblio.org/apollo/index.html
028967,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
028968,000020: ## 2017-08-22 MAS Updated for Zerlina 56.
028969,000021:
|
|
Page 653 |
028971,000023: # TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74)
028972,000024:
028973,000025: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
028974,000026: # MOD BY WHITE.P DATE 1JUNE67
028975,000027:
028976,000028: # PURPOSE
028977,000029:
028978,000030: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
028979,000031: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER
028980,000032: # PHASE INITIATION (TPI) MANEUVER, GIVEN -
028981,000033:
028982,000034: # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
028983,000035: # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
028984,000036:
028985,000037: # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
028986,000038: # INTERCEPT TIME (TIG (TPF)).
028987,000039:
028988,000040: # (2) TO CALCULATE TIG (TPI) GIVEN E OR E GIVEN TIG (TPI).
028989,000041:
028990,000042: # (3) TO CALCULATE THESE PARAMETERS BASED UPON MANEUVER DATA
028991,000043: # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
028992,000044:
028993,000045: # (4) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
028994,000046: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
028995,000047: # ASTRONAUT/GROUND.
028996,000048:
028997,000049: # (5) TO STORE THE TPI TARGET PARAMETERS FOR USE BY THE DESIRED
028998,000050: # THRUSTING PROGRAM.
028999,000051:
029000,000052: # ASSUMPTIONS
029001,000053:
029002,000054: # (1) LM ONLY - THIS PROGRAM IS BASED UPON PREVIOUS COMPLETION OF
029003,000055: # THE CONSTANT DELTA ALTITUDE (CDH) PROGRAM (P33/P73).
029004,000056: # THEREFORE -
029005,000057:
029006,000058: # (A) AT A SELECTED TPI TIME (NOW IN STORAGE) THE LINE OF SIGHT
029007,000059: # BETWEEN THE ACTIVE AND PASSIVE VEHICLES WAS SELECTED TO BE
029008,000060: # A PRESCRIBED ANGLE (E) (NOW IN STORAGE) FROM THE
029009,000061: # HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE POSITION.
029010,000062:
029011,000063: # (B) THE TIME BETWEEN CDH IGNITION AND TPI IGNITION WAS
029012,000064: # COMPUTED TO BE GREATER THAN 10 MINUTES.
029013,000065:
029014,000066: # (C) THE VARIATION OF THE ALTITUDE DIFFERENCE BETWEEN THE
029015,000067: # ORBITS WAS MINIMIZED.
029016,000068:
029017,000069: # (D) THE PERICENTER ALTITUDES OF ORBITS FOLLOWING CSI AND
029018,000070:
029019,000071: # CDH WERE COMPUTED TO BE GREATER THAN 35,000 FT FOR LUNAR
|
|
Page 654 |
029021,000073: # ORBIT OR 85 NM FOR EARTH ORBIT.
029022,000074:
029023,000075: # (E) THE CSI AND CDH MANEUVERS WERE ASSUMED TO BE PARALLEL TO
029024,000076: # THE PLANE OF THE PASSIVE VEHICLE ORBIT. HOWEVER, CREW
029025,000077: # MODIFICATION OF DELTA V (LV) COMPONENTS MAY HAVE RESULTED
029026,000078: # IN AN OUT-OF-PLANE MANEUVER.
029027,000079:
029028,000080: # (2) STATE VECTOR UPDATED BY P27 ARE DISALLOWED DURING AUTOMATIC
029029,000081: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (4)).
029030,000082:
029031,000083: # (3) THIS PROGRAM MUST BE DONE OVER A TRACKING STATION FOR REAL
029032,000084: # TIME GROUND PARTICIPATION IN DATA INPUT AND OUTPUT. COMPUTED
029033,000085: # VARIABLES MAY BE STORED FOR LATER VERIFICATION BY THE GROUND.
029034,000086: # THESE STORAGE CAPABILITIES ARE LIMITED ONLY TO THE PARAMETERS
029035,000087: # FOR ONE THRUSTING MANEUVER AT A TIME EXCEPT FOR CONCENTRIC
029036,000088: # FLIGHT PLAN MANEUVER SEQUENCES.
029037,000089:
029038,000090: # (4) THE RENDEZVOUS RADAR MAY OR MAY NOT BE USED TO UPDATE THE LM
029039,000091: # OR CSM STATE VECTORS FOR THIS PROGRAM. IF RADAR USE IS
029040,000092: # DESIRED THE RADAR WAS TURNED ON AND LOCKED ON THE CSM BY
029041,000093: # PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS WILL BE MADE
029042,000094: # AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN ENABLED BY THE
029043,000095: # TRACK AND UPDATE FLAGS (SEE P20). THE RENDEZVOUS TRACKING
029044,000096: # MARK COUNTER IS ZEROED BY THE SELECTION OF P20 AND AFTER EACH
029045,000097: # THRUSTING MANEUVER.
029046,000098:
029047,000099: # (5) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029048,000100:
029049,000101: # (6) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029050,000102:
029051,000103: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029052,000104: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029053,000105: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029054,000106: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029055,000107:
029056,000108: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029057,000109: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029058,000110:
029059,000111: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029060,000112: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029061,000113: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029062,000114:
029063,000115: # (7) ONCE THE PARAMETWRS REQUIRED FOR COMPUTION OF THE MANEUVER
029064,000116: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029065,000117: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029066,000118: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029067,000119: # THROUGH THE USE OF V06N52.
029068,000120:
029069,000121: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029070,000122: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
|
|
Page 655 |
029072,000124: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
029073,000125: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029074,000126: # UPON DELTA V AND EXPECTED MANEUVER TIME.
029075,000127:
029076,000128: # (8) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029077,000129:
029078,000130: # P34 IF THIS VEHICLE IS ACTIVE VEHICLE.
029079,000131:
029080,000132: # P74 IF THIS VEHICLE IS PASSIVE VEHICLE.
029081,000133:
029082,000134: # INPUT
029083,000135:
029084,000136: # (1) TTPI TIME OF THE TPI MANEUVER
029085,000137: # (2) ELEV DESIRED LOS ANGLE AT TPI
029086,000138: # (3) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029087,000139: # TRANSFER FROM TPI TO TIME OF INTERCEPT
029088,000140:
029089,000141: # OUTPUT
029090,000142:
029091,000143: # (1) TRKMKCNT NUMBER OF MARKS
029092,000144: # (2) TTOGO TIME TO GO
029093,000145: # (3) +MGA MIDDLE GIMBAL ANGLE
029094,000146: # (4) TTPI COMPUTED TIME OF TPI MANEUVER
029095,000147: # OR
029096,000148: # ELEV COMPUTED LOS ANGLE AT TPI
029097,000149: # (5) POSTTPI PERIGEE ALTITUDE AFTER THE TPI MANEUVER
029098,000150: # (6) DELVTPI MAGNITUDE OF DELTA V AT TPI
029099,000151: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT
029100,000152: # (8) DVLOS DELTA VELOCITY AT TPI - LINE OF SIGHT
029101,000153: # (9) DELVLVC DELTA VELOCITY AT TPI - LOCAL VERTICAL COORDINATES
029102,000154:
029103,000155: # DOWNLINK
029104,000156:
029105,000157: # (1) TTPI TIME OF THE TPI MANEUVER
029106,000158: # (2) TIG TIME OF THE TPI MANEUVER
029107,000159: # (3) ELEV DESIRED LOS ANGLE AT TPI
029108,000160: # (4) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE DURING
029109,000161: # TRANSFER FROM TPI TO TIME OF INTERCEPT
029110,000162: # (5) DELVEET3 DELTA VELOCITY AT TPI - REFERENCE COORDINATES
029111,000163: # (6) TPASS4 TIME OF INTERCEPT
029112,000164: # COMMUNICATION TO THRUSTING PROGRAMS
029113,000165:
029114,000166: # (1) TIG TIME OF THE TPI MANEUVER
029115,000167: # (2) RTARG OFFSET TARGET POSITION
029116,000168: # (3) TPASS4 TIME OF INTERCEPT
029117,000169: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029118,000170:
029119,000171: # SUBROUTINES USED
029120,000172:
029121,000173: # AVFLAGA
|
|
Page 656 |
029123,000175: # AVFLAGP
029124,000176: # VNPOOH
029125,000177: # DISPLAYE
029126,000178: # SELECTMU
029127,000179: # PRECSET
029128,000180: # S33/34.1
029129,000181: # ALARM
029130,000182: # BANKCALL
029131,000183: # GOFLASH
029132,000184: # GOTOPOOH
029133,000185: # TIMETHET
029134,000186: # S34/35.2
029135,000187: # PERIAPO1
029136,000188: # SHIFTR1
029137,000189: # S34/35.5
029138,000190: # VN1645
029139,000191:
029140,000192: 35,2000 SETLOC CSI/CDH
029141,000193: 35,2000 BANK
029142,000194: 35,2455 E7,1470 EBANK= SUBEXIT
029143,000195: 35,2455 COUNT* $$/P3474
029144,000196: 35,2455 02354 P34 TC AVFLAGA
029145,000197: 35,2456 02460 TC P34/P74A
029146,000198: 35,2457 02361 P74 TC AVFLAGP
029147,000199: 35,2460 02366 P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
029148,000200: 35,2461 33640 CAF V06N37 # TTPI
029149,000201: 35,2462 03627 TC VNPOOH
029150,000202: 35,2463 00006 EXTEND
029151,000203: 35,2464 33663 DCA 130DEG
029152,000204: 35,2465 53621 DXCH CENTANG
029153,000205: 35,2466 34741 CAF EBANK4
029154,000206: 35,2467 54001 TS L
029155,000207: 35,2470 32424 CAF P30ZERO # INITIALIZE DISPLAYED REGISTERS TO ZERO
029156,000208: 35,2471 55466 TS NN # R1: NN -- NUMBER OF OFFSETS
029157,000209: 35,2472 E4,1647 EBANK= ELEV
029158,000210: 35,2472 22003 LXCH EBANK
029159,000211: 35,2473 55647 TS ELEV # R2: ELEV (D.P.) -- ELEVATION ANGLE
029160,000212: 35,2474 55650 TS ELEV +1
029161,000213: 35,2475 22003 LXCH EBANK
029162,000214: 35,2476 E7,1470 EBANK= SUBEXIT # CHNG BACK TO WHAT IT WAS BEFORE
029163,000215: 35,2476 03611 TC DISPLAYE # V06N55 GOFLASH CALL: NN,ELEV,CENTANG
029164,000216: 35,2477 06051 TC INTPRET
029165,000217: 35,2500 71214 CLEAR DLOAD
029166,000218: 35,2501 01270 ETPIFLAG
029167,000219: 35,2502 03636 TTPI
029168,000220: 35,2503 17442 STODL TIG
029169,000221: 35,2504 02250 ELEV
029170,000222: 35,2505 43054 BZE SET
029171,000223: 35,2506 72510 P34/P74B
029172,000224: 35,2507 01070 ETPIFLAG
029173,000225:
|
|
Page 657 |
029175,000227: 35,2510 77624 P34/P74B CALL
029176,000228: 35,2511 20000 SELECTMU
029177,000229: 35,2512 DELELO EQUALS 26D
029178,000230: 35,2512 43145 P34/P74C DLOAD SET
029179,000231: 35,2513 06520 ZEROVECS
029180,000232: 35,2514 03460 ITSWICH
029181,000233: 35,2515 43014 BON CLEAR
029182,000234: 35,2516 01310 ETPIFLAG
029183,000235: 35,2517 72521 SWCHSET
029184,000236: 35,2520 03660 ITSWICH
029185,000237: 35,2521 02310 SWCHSET STORE NOMTPI
029186,000238: 35,2522 43345 INTLOOP DLOAD DAD
029187,000239: 35,2523 03636 TTPI
029188,000240: 35,2524 02310 NOMTPI
029189,000241: 35,2525 34041 STCALL TDEC1
029190,000242: 35,2526 46401 PRECSET
029191,000243: 35,2527 77624 CALL
029192,000244: 35,2530 72702 S33/34.1
029193,000245: 35,2531 77454 BZE EXIT
029194,000246: 35,2532 72543 SWCHCLR
029195,000247: 35,2533 05600 TC ALARM
029196,000248: 35,2534 00611 OCT 611
029197,000249: 35,2535 35006 CAF V05N09
029198,000250: 35,2536 04616 TC BANKCALL
029199,000251: 35,2537 20477 CADR GOFLASH
029200,000252: 35,2540 06001 TC GOTOPOOH
029201,000253: 35,2541 02460 TC P34/P74A # PROCEED
029202,000254: 35,2542 02533 TC -7 # V32
029203,000255:
029204,000256: 35,2543 43014 SWCHCLR BONCLR BON
029205,000257: 35,2544 03600 ITSWICH
029206,000258: 35,2545 72522 INTLOOP
029207,000259: 35,2546 01310 ETPIFLAG
029208,000260: 35,2547 72553 P34/P74D # DISPLAY TTPI
029209,000261: 35,2550 77776 EXIT
029210,000262: 35,2551 03611 TC DISPLAYE # DISPLAY ELEV AND CENTANG
029211,000263: 35,2552 02556 TC P34/P74E
029212,000264: 35,2553 77776 P34/P74D EXIT
029213,000265: 35,2554 33640 CAF V06N37 # TTPI
029214,000266: 35,2555 03627 TC VNPOOH
029215,000267: 35,2556 06051 P34/P74E TC INTPRET
029216,000268: 35,2557 71201 SETPD DLOAD
029217,000269: 35,2560 00001 0D
029218,000270: 35,2561 02777 RTX1
029219,000271: 35,2562 14047 STODL X1
029220,000272: 35,2563 03621 CENTANG
029221,000273: 35,2564 71406 PUSH COS
029222,000274: 35,2565 16732 STODL CSTH
029223,000275: 35,2566 77756 SIN
029224,000276: 35,2567 26730 STOVL SNTH
|
|
Page 658 |
029226,000278: 35,2570 03552 RPASS3
029227,000279: 35,2571 77657 VSR*
029228,000280: 35,2572 57176 0,2
029229,000281: 35,2573 26655 STOVL RVEC
029230,000282: 35,2574 03560 VPASS3
029231,000283: 35,2575 43057 VSR* SET
029232,000284: 35,2576 57176 0,2
029233,000285: 35,2577 03466 RVSW
029234,000286: 35,2600 36744 STCALL VVEC
029235,000287: 35,2601 24732 TIMETHET
029236,000288: 35,2602 77745 DLOAD
029237,000289: 35,2603 03636 TTPI
029238,000290: 35,2604 03610 STORE INTIME # FOR INITVEL
029239,000291: 35,2605 77615 DAD
029240,000292: 35,2606 00037 T # RENDEZVOUS TIME
029241,000293: 35,2607 37631 STCALL TPASS4 # FOR INITVEL
029242,000294: 35,2610 73224 S34/35.2
029243,000295: 35,2611 51575 VLOAD ABVAL
029244,000296: 35,2612 02357 DELVEET3
029245,000297: 35,2613 27576 STOVL DELVTPI
029246,000298: 35,2614 03506 VPASS4
029247,000299: 35,2615 51451 VSU ABVAL
029248,000300: 35,2616 03566 VTPRIME
029249,000301: 35,2617 26341 STOVL DELVTPF
029250,000302: 35,2620 03536 RACT3
029251,000303: 35,2621 45115 PDVL CALL
029252,000304: 35,2622 02330 VIPRIME
029253,000305: 35,2623 46337 PERIAPO1
029254,000306: 35,2624 77624 CALL
029255,000307: 35,2625 46447 SHIFTR1
029256,000308: 35,2626 17606 STODL POSTTPI
029257,000309: 35,2627 03636 TTPI
029258,000310: 35,2630 03442 STORE TIG
029259,000311: 35,2631 77776 EXIT
029260,000312: 35,2632 33642 CAF V06N58
029261,000313: 35,2633 03627 TC VNPOOH
029262,000314: 35,2634 06051 TC INTPRET
029263,000315: 35,2635 77624 CALL
029264,000316: 35,2636 73440 S34/35.5
029265,000317: 35,2637 77624 CALL
029266,000318: 35,2640 73523 VN1645
029267,000319: 35,2641 77650 GOTO
029268,000320: 35,2642 72512 P34/P74C
029269,000321:
|
|
Page 659 |
029271,000323: # RENDEZVOUS MID-COURSE MANEUVER PROGRAMS (P35 AND P75)
029272,000324:
029273,000325: # MOD NO -1 LOG SECTION - P32-P35, P72-P75
029274,000326: # MOD BY WHITE.P DATE 1JUNE67
029275,000327:
029276,000328: # PURPOSE
029277,000329:
029278,000330: # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
029279,000331: # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE NEXT
029280,000332: # MIDCOURSE CORRECTION OF THE TRANSFER PHASE OF AN ACTIVE
029281,000333: # VEHICLE RENDEZVOUS.
029282,000334:
029283,000335: # (2) TO DISPLAY TO THE ASTRONAUT AND THE GROUND CERTAIN DEPENDENT
029284,000336: # VARIABLES ASSOCIATED WITH THE MANEUVER FOR APPROVAL BY THE
029285,000337: # ASTRONAUT/GROUND.
029286,000338:
029287,000339: # (3) TO STORE THE TPM TARGET PARAMETERS FOR USE BY THE DESIRED
029288,000340: # THRUSTING PROGRAM.
029289,000341:
029290,000342: # ASSUMPTIONS
029291,000343:
029292,000344: # (1) THE ISS NEED NOT BE ON TO COMPLETE THIS PROGRAM.
029293,000345:
029294,000346: # (2) STATE VECTOR UPDATES BY P27 ARE DISALLOWED DURING AUTOMATIC
029295,000347: # STATE VECTOR UPDATING INITIATED BY P20 (SEE ASSUMPTION (3)).
029296,000348:
029297,000349: # (3) THE RENDEZVOUS RADAR IS ON AND IS LOCKED ON THE CSM. THIS WAS
029298,000350: # DONE DURING PREVIOUS SELECTION OF P20. RADAR SIGHTING MARKS
029299,000351: # WILL BE MADE AUTOMATICALLY APPROXIMATELY ONCE A MINUTE WHEN
029300,000352: # ENABLED BY THE TRACK AND UPDATE FLAGS (SEE P20). THE
029301,000353: # RENDEZVOUS TRACKING MARK COUNTER IS ZEROED BY THE SELECTION OF
029302,000354: # P20 AND AFTER EACH THRUSTING MANEUVER.
029303,000355:
029304,000356: # (4) THE OPERATION OF THE PROGRAM UTILIZES THE FOLLOWING FLAGS -
029305,000357:
029306,000358: # ACTIVE VEHICLE FLAG - DESIGNATES THE VEHICLE WHICH IS
029307,000359: # DOING RENDEZVOUS THRUSTING MANEUVERS TO THE PROGRAM WHICH
029308,000360: # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
029309,000361: # EACH RENDEZVOUS PRE-THRUSTING PROGRAM.
029310,000362:
029311,000363: # FINAL FLAG - SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS
029312,000364: # SELECTED THE FINAL MANEUVER COMPUTATION CYCLE.
029313,000365:
029314,000366: # EXTERNAL DELTA V FLAG - DESIGNATES THE TYPE OF STEERING
029315,000367: # REQUIRED FOR EXECUTION OF THIS MANEUVER BY THE THRUSTING
029316,000368: # PROGRAM SELECTED AFTER COMPLETION OF THIS PROGRAM.
029317,000369:
029318,000370: # (5) THE TIME OF INTERCEPT (T(INT)) WAS DEFINED BY PREVIOUS
029319,000371: # COMPLETION OF THE TRANSFER PHASE INITIATION (TPI) PROGRAM
029320,000372: # (P34/P74) AND IS PRESENTLY AVAILABLE IN STORAGE.
029321,000373:
|
|
Page 660 |
029323,000375: # (6) ONCE THE PARAMETERS REQUIRED FOR COMPUTION OF THE MANEUVER
029324,000376: # HAVE BEEN COMPLETELY SPECIFIED, THE VALUE OF THE ACTIVE
029325,000377: # VEHICLE CENTRAL ANGLE OF TRANSFER IS COMPUTED AND STORED.
029326,000378: # THIS NUMBER WILL BE AVAILABLE FOR DISPLAY TO THE ASTRONAUT
029327,000379: # THROUGH THE USE OF V06N52.
029328,000380:
029329,000381: # THE ASTRONAUT WILL CALL THIS DISPLAY TO VERIFY THAT THE
029330,000382: # CENTRAL ANGLE OF TRANSFER OF THE ACTIVE VEHICLE IS NOT WITHIN
029331,000383: # 170 TO 190 DEGREES. IF THE ANGLE IS WITHIN THIS ZONE THE
029332,000384: # ASTRONAUT SHOULD REASSESS THE INPUT TARGETING PARAMETERS BASED
029333,000385: # UPON DELTA V AND EXPECTED MANEUVER TIME.
029334,000386:
029335,000387: # (7) THIS PROGRAM IS SELECTED BY THE ASTRONAUT BY DSKY ENTRY -
029336,000388:
029337,000389: # P35 IF THIS VEHICLE IS ACTIVE VEHICLE.
029338,000390:
029339,000391: # P75 IF THIS VEHICLE IS PASSIVE VEHICLE.
029340,000392:
029341,000393: # INPUT
029342,000394:
029343,000395: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P34/P74
029344,000396: # OUTPUT
029345,000397:
029346,000398: # (1) TRKMKCNT NUMBER OF MARKS
029347,000399: # (2) TTOGO TIME TO GO
029348,000400: # (3) +MGA MIDDLE GIMBAL ANGLE
029349,000401: # (4) DVLOS DELTA VELOCITY AT MID - LINE OF SIGHT
029350,000402: # (5) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
029351,000403:
029352,000404: # DOWNLINK
029353,000405:
029354,000406: # (1) TIG TIME OF THE TPM MANEUVER
029355,000407: # (2) DELVEET3 DELTA VELOCITY AT TPM - REFERENCE COORDINATES
029356,000408: # (3) TPASS4 TIME OF INTERCEPT
029357,000409: # COMMUNICATION TO THRUSTING PROGRAMS
029358,000410:
029359,000411: # (1) TIG TIME OF THE TPM MANEUVER
029360,000412: # (2) RTARG OFFSET TARGET POSITION
029361,000413: # (3) TPASS4 TIME OF INTERCEPT
029362,000414: # (4) XDELVFLG RESET TO INDICATE LAMBERT (AIMPOINT) VG COMPUTATION
029363,000415:
029364,000416: # SUBROUTINES USED
029365,000417:
029366,000418: # AVFLAGA
029367,000419: # AVFLAGP
029368,000420: # LOADTIME
029369,000421: # SELECTMU
029370,000422: # PRECSET
029371,000423: # S34/35.1
029372,000424: # S34/35.2
|
|
Page 661 |
029374,000426: # S34/35.5
029375,000427: # VN1645
029376,000428:
029377,000429: 35,2643 COUNT* $$/P3575
029378,000430: 35,2643 E7,1575 EBANK= KT
029379,000431:
029380,000432: 35,2643 02354 P35 TC AVFLAGA
029381,000433: 35,2644 00006 EXTEND
029382,000434: 35,2645 31401 DCA ATIGINC
029383,000435: 35,2646 02652 TC P35/P75A
029384,000436: 35,2647 02361 P75 TC AVFLAGP
029385,000437: 35,2650 00006 EXTEND
029386,000438: 35,2651 31403 DCA PTIGINC
029387,000439: 35,2652 53576 P35/P75A DXCH KT
029388,000440: 35,2653 02366 TC P20FLGON # SET UPDATFLG, TRACKFLG
029389,000441: 35,2654 06051 TC INTPRET
029390,000442: 35,2655 77624 CALL
029391,000443: 35,2656 20000 SELECTMU
029392,000444: 35,2657 77634 P35/P75B RTB
029393,000445: 35,2660 21555 LOADTIME
029394,000446: 35,2661 03612 STORE TSTRT
029395,000447: 35,2662 77615 DAD
029396,000448: 35,2663 03576 KT
029397,000449: 35,2664 03442 STORE TIG
029398,000450: 35,2665 03610 STORE INTIME # FOR INITVEL
029399,000451: 35,2666 34041 STCALL TDEC1
029400,000452: 35,2667 46401 PRECSET # ADVANCE BOTH VEHICLES
029401,000453: 35,2670 77624 CALL
029402,000454: 35,2671 73212 S34/35.1 # GET NORM AND LOS FOR TRANSFORM
029403,000455: 35,2672 77624 CALL
029404,000456: 35,2673 73224 S34/35.2 # GET DELTA V(LV)
029405,000457: 35,2674 77624 CALL
029406,000458: 35,2675 73440 S34/35.5
029407,000459: 35,2676 77624 CALL
029408,000460: 35,2677 73523 VN1645
029409,000461: 35,2700 77650 GOTO
029410,000462: 35,2701 72657 P35/P75B
029411,000463:
|
|
Page 662 |
029413,000465: # ..... S33/34.1 .....
029414,000466:
029415,000467: 35,2702 66220 S33/34.1 STQ SSP
029416,000468: 35,2703 03463 NORMEX
029417,000469: 35,2704 03614 TITER
029418,000470: 35,2705 40000 OCT 40000
029419,000471: 35,2706 40345 DLOAD SETPD
029420,000472: 35,2707 33651 MAX250
029421,000473: 35,2710 00001 0D
029422,000474: 35,2711 27574 STOVL SECMAX
029423,000475: 35,2712 03536 RACT3
029424,000476: 35,2713 27500 STOVL RAPREC
029425,000477: 35,2714 03544 VACT3
029426,000478: 35,2715 27506 STOVL VAPREC
029427,000479: 35,2716 03552 RPASS3
029428,000480: 35,2717 27522 STOVL RPPREC
029429,000481: 35,2720 03560 VPASS3
029430,000482: 35,2721 03530 STORE VPPREC
029431,000483: 35,2722 77624 ELCALC CALL
029432,000484: 35,2723 73212 S34/35.1 # NORMAL AND LOS
029433,000485: 35,2724 63235 VXV PDVL
029434,000486: 35,2725 03536 RACT3 # (RA*VA)*RA 0D
029435,000487: 35,2726 53515 PDVL UNIT # ULOS AT 6D
029436,000488: 35,2727 03536 RACT3
029437,000489: 35,2730 46315 PDVL VPROJ # XCHNJ AND UP
029438,000490: 35,2731 51352 VSL2 BVSU
029439,000491: 35,2732 02302 ULOS
029440,000492: 35,2733 63256 UNIT PDVL # UP AT 0D
029441,000493: 35,2734 63241 DOT PDVL # UP.UN*RA AT 0D
029442,000494: 35,2735 00001 0D # UP IN MPAC
029443,000495: 35,2736 75241 DOT SIGN
029444,000496: 35,2737 02302 ULOS
029445,000497: 35,2740 65552 SL1 ACOS
029446,000498: 35,2741 50315 PDVL DOT # EA AT 0D
029447,000499: 35,2742 02302 ULOS
029448,000500: 35,2743 03536 RACT3
029449,000501: 35,2744 71244 BPL DLOAD
029450,000502: 35,2745 72750 TESTY
029451,000503: 35,2746 06526 DPPOSMAX
029452,000504: 35,2747 41425 DSU PUSH
029453,000505: 35,2750 71214 TESTY BOFF DLOAD
029454,000506: 35,2751 03740 ITSWICH
029455,000507: 35,2752 73177 ELEX
029456,000508: 35,2753 03576 DELEL
029457,000509: 35,2754 14033 STODL DELELO
029458,000510: 35,2755 77625 DSU
029459,000511: 35,2756 02250 ELEV
029460,000512: 35,2757 03576 STORE DELEL
029461,000513: 35,2760 45246 ABS DSU
029462,000514: 35,2761 33655 ELEPS
|
|
Page 663 |
029464,000516: 35,2762 77640 BMN
029465,000517: 35,2763 73207 TIMEX # COMMERCIALS EVERYWHERE
029466,000518: 35,2764 70535 FIGTIME SLOAD SR1
029467,000519: 35,2765 03614 TITER
029468,000520: 35,2766 72030 BHIZ LXA,1
029469,000521: 35,2767 03463 NORMEX # TOO MANY ITERATIONS
029470,000522: 35,2770 00154 MPAC
029471,000523: 35,2771 77330 SXA,1 VLOAD
029472,000524: 35,2772 03613 TITER
029473,000525: 35,2773 03552 RPASS3
029474,000526: 35,2774 65256 UNIT PDDL
029475,000527: 35,2775 00045 36D
029476,000528: 35,2776 53515 PDVL UNIT
029477,000529: 35,2777 03536 RACT3
029478,000530: 35,3000 77725 PDDL
029479,000531: 35,3001 41525 PDDL PUSH
029480,000532: 35,3002 00045 36D
029481,000533: 35,3003 77621 BDSU
029482,000534: 35,3004 00015 12D
029483,000535: 35,3005 14037 STODL 30D # RP - RA MAGNITUDES
029484,000536: 35,3006 06516 DPHALF
029485,000537: 35,3007 41425 DSU PUSH
029486,000538: 35,3010 02250 ELEV
029487,000539: 35,3011 50165 SIGN BMN
029488,000540: 35,3012 00037 30D
029489,000541: 35,3013 03463 NORMEX
029490,000542: 35,3014 71545 DLOAD COS
029491,000543: 35,3015 56205 DMP DDV
029492,000544: 35,3016 00017 14D
029493,000545: 35,3017 00015 12D
029494,000546: 35,3020 77676 DCOMP # SINCE COS(180-A)=-COS A
029495,000547: 35,3021 00035 STORE 28D
029496,000548: 35,3022 44246 ABS BDSU
029497,000549: 35,3023 06516 DPHALF
029498,000550: 35,3024 77240 BMN VLOAD
029499,000551: 35,3025 03463 NORMEX
029500,000552: 35,3026 02252 UNRM
029501,000553: 35,3027 53435 VXV UNIT
029502,000554: 35,3030 00007 6D # UN*RA
029503,000555: 35,3031 41241 DOT DMP
029504,000556: 35,3032 03544 VACT3
029505,000557: 35,3033 00015 12D
029506,000558: 35,3034 47315 PDVL VXV
029507,000559: 35,3035 00001 0D
029508,000560: 35,3036 03560 VPASS3
029509,000561: 35,3037 53435 VXV UNIT
029510,000562: 35,3040 00001 0D # (RP*VP)*RP
029511,000563: 35,3041 41241 DOT DMP
029512,000564: 35,3042 03560 VPASS3
029513,000565: 35,3043 00017 14D
|
|
Page 664 |
029515,000567: 35,3044 77621 BDSU
029516,000568: 35,3045 63301 NORM PDVL # NORMALIZED WA - WP 12D
029517,000569: 35,3046 00047 X1
029518,000570: 35,3047 00007 6D
029519,000571: 35,3050 50235 VXV DOT
029520,000572: 35,3051 00001 0D
029521,000573: 35,3052 02252 UNRM # RA*RP.UN 14D
029522,000574: 35,3053 50315 PDVL DOT
029523,000575: 35,3054 00001 0D
029524,000576: 35,3055 00007 6D
029525,000577: 35,3056 65552 SL1 ACOS
029526,000578: 35,3057 77765 SIGN
029527,000579: 35,3060 43225 DSU DAD # ALPHA PI
029528,000580: 35,3061 06516 DPHALF
029529,000581: 35,3062 02250 ELEV
029530,000582: 35,3063 65525 PDDL ACOS
029531,000583: 35,3064 00035 28D
029532,000584: 35,3065 75221 BDSU SIGN
029533,000585: 35,3066 06516 DPHALF
029534,000586: 35,3067 00037 30D # CONTAINS RP-RA
029535,000587: 35,3070 77615 DAD
029536,000588: 35,3071 56205 DMP DDV
029537,000589: 35,3072 33647 TWOPI
029538,000590: 35,3073 77605 DMP
029539,000591: 35,3074 41257 SL* DMP
029540,000592: 35,3075 20176 0 -3,1
029541,000593: 35,3076 51406 PUSH ABS
029542,000594: 35,3077 50025 DSU BMN
029543,000595: 35,3100 03574 SECMAX
029544,000596: 35,3101 73105 OKMAX
029545,000597: 35,3102 75345 DLOAD SIGN # REPLACE TIME WITH MAX TIME SIGNED
029546,000598: 35,3103 03574 SECMAX
029547,000599: 35,3104 77606 PUSH
029548,000600: 35,3105 51135 OKMAX SLOAD BPL # TEST FIRST ITERATION
029549,000601: 35,3106 03614 TITER
029550,000602: 35,3107 73115 REPETE
029551,000603: 35,3110 71331 SSP DLOAD
029552,000604: 35,3111 03614 TITER
029553,000605: 35,3112 37777 OCT 37777
029554,000606: 35,3113 77650 GOTO
029555,000607: 35,3114 73153 STORDELT
029556,000608: 35,3115 41345 REPETE DLOAD DMP
029557,000609: 35,3116 03576 DELEL
029558,000610: 35,3117 00033 DELELO
029559,000611: 35,3120 71244 BPL DLOAD
029560,000612: 35,3121 73131 NEXTES
029561,000613: 35,3122 03574 SECMAX
029562,000614: 35,3123 77605 DMP
029563,000615: 35,3124 33653 THIRD
029564,000616: 35,3125 17574 STODL SECMAX
|
|
Page 665 |
029566,000618: 35,3126 70446 ABS SR1 # CROSSED OVER SOLUTION
029567,000619: 35,3127 52076 DCOMP GOTO # DT=(-SIGN(DTO)//DT//)/2
029568,000620: 35,3130 73141 RESIGN
029569,000621: 35,3131 51545 NEXTES DLOAD ABS
029570,000622: 35,3132 03576 DELEL
029571,000623: 35,3133 51525 PDDL ABS
029572,000624: 35,3134 00033 DELELO
029573,000625: 35,3135 77625 DSU
029574,000626: 35,3136 71240 BMN DLOAD
029575,000627: 35,3137 73144 REVERS # WRONG DIRECTION
029576,000628: 35,3140 77646 ABS
029577,000629: 35,3141 52165 RESIGN SIGN GOTO
029578,000630: 35,3142 03606 DELTEEO
029579,000631: 35,3143 73153 STORDELT
029580,000632: 35,3144 57545 REVERS DLOAD DCOMP
029581,000633: 35,3145 03606 DELTEEO
029582,000634: 35,3146 70406 PUSH SR1
029583,000635: 35,3147 03606 STORE DELTEEO
029584,000636: 35,3150 77615 DAD
029585,000637: 35,3151 77650 GOTO
029586,000638: 35,3152 73154 ADTIME
029587,000639: 35,3153 03606 STORDELT STORE DELTEEO
029588,000640: 35,3154 77615 ADTIME DAD
029589,000641: 35,3155 02310 NOMTPI # SUM OF DELTA T:S
029590,000642: 35,3156 02310 STORE NOMTPI
029591,000643: 35,3157 63375 VLOAD PDVL
029592,000644: 35,3160 03506 VAPREC
029593,000645: 35,3161 03500 RAPREC
029594,000646: 35,3162 77624 CALL
029595,000647: 35,3163 73400 GOINT
029596,000648: 35,3164 77624 CALL
029597,000649: 35,3165 46423 ACTIVE # STORE NEW RACT3 VACT3
029598,000650: 35,3166 63375 VLOAD PDVL
029599,000651: 35,3167 03530 VPPREC
029600,000652: 35,3170 03522 RPPREC
029601,000653: 35,3171 77624 CALL
029602,000654: 35,3172 73400 GOINT
029603,000655: 35,3173 77624 CALL
029604,000656: 35,3174 46433 PASSIVE # STORE NEW RPASS3 VPASS3
029605,000657: 35,3175 77650 GOTO
029606,000658: 35,3176 72722 ELCALC
029607,000659: 35,3177 43345 ELEX DLOAD DAD
029608,000660: 35,3200 03636 TTPI
029609,000661: 35,3201 02310 NOMTPI
029610,000662: 35,3202 17636 STODL TTPI
029611,000663: 35,3203 77614 BON
029612,000664: 35,3204 01310 ETPIFLAG
029613,000665: 35,3205 73207 TIMEX
029614,000666: 35,3206 02250 STORE ELEV
029615,000667: 35,3207 52145 TIMEX DLOAD GOTO
|
|
Page 666 |
029617,000669: 35,3210 06520 ZEROVECS
029618,000670: 35,3211 03463 NORMEX
029619,000671:
|
|
Page 667 |
029621,000673: # ..... S34/35.1 .....
029622,000674:
029623,000675: # COMPUTE UNIT NORMAL AND LINE OF SIGHT VECTORS GIVEN THE ACTIVE AND
029624,000676: # PASSIVE POS AND VEL AT TIME T3
029625,000677: 35,3212 52375 S34/35.1 VLOAD VSU
029626,000678: 35,3213 03552 RPASS3
029627,000679: 35,3214 03536 RACT3
029628,000680: 35,3215 41456 UNIT PUSH
029629,000681: 35,3216 26302 STOVL ULOS
029630,000682: 35,3217 03536 RACT3
029631,000683: 35,3220 53435 VXV UNIT
029632,000684: 35,3221 03544 VACT3
029633,000685: 35,3222 02252 STORE UNRM
029634,000686: 35,3223 77616 RVQ
029635,000687:
|
|
Page 668 |
029637,000689: # ..... S34/35.2 .....
029638,000690:
029639,000691: # ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
029640,000692: 35,3224 77220 S34/35.2 STQ VLOAD
029641,000693: 35,3225 03470 SUBEXIT
029642,000694: 35,3226 03560 VPASS3
029643,000695: 35,3227 65315 PDVL PDDL
029644,000696: 35,3230 03552 RPASS3
029645,000697: 35,3231 03610 INTIME
029646,000698: 35,3232 65325 PDDL PDDL
029647,000699: 35,3233 03631 TPASS4
029648,000700: 35,3234 33647 TWOPI # CONIC
029649,000701: 35,3235 46125 PDDL BHIZ
029650,000702: 35,3236 03467 NN
029651,000703: 35,3237 73243 S3435.23
029652,000704: 35,3240 77745 DLOAD
029653,000705: 35,3241 41545 DLOAD PUSH
029654,000706: 35,3242 06520 ZEROVECS # PRECISION
029655,000707: 35,3243 77624 S3435.23 CALL
029656,000708: 35,3244 73404 INTINT # GET TARGET VECTOR
029657,000709: 35,3245 27444 S3435.25 STOVL RTARG
029658,000710: 35,3246 00007 VATT
029659,000711: 35,3247 27506 STOVL VPASS4
029660,000712: 35,3250 03444 RTARG
029661,000713: # COMPUTE PHI = PI + (ACOS(UNIT RA.UNIT RP)-PI)SIGN(RA*RP.U)
029662,000714: 35,3251 63256 UNIT PDVL # UNIT RP
029663,000715: 35,3252 03536 RACT3
029664,000716: 35,3253 41456 UNIT PUSH # UNIT RA
029665,000717: 35,3254 50235 VXV DOT
029666,000718: 35,3255 00001 0D
029667,000719: 35,3256 02252 UNRM # RA*RP.U
029668,000720: 35,3257 77715 PDVL
029669,000721: 35,3260 72441 DOT SL1 # UNIT RA.UNIT RP
029670,000722: 35,3261 00001 0D
029671,000723: 35,3262 75326 ACOS SIGN
029672,000724: 35,3263 43244 BPL DAD
029673,000725: 35,3264 73266 NOPIE
029674,000726: 35,3265 06526 DPPOSMAX # REASONABLE TWO PI
029675,000727: 35,3266 15754 NOPIE STODL ACTCENT
029676,000728: 35,3267 03631 TPASS4
029677,000729: 35,3270 77625 DSU
029678,000730: 35,3271 03610 INTIME
029679,000731: 35,3272 03452 STORE DELLT4
029680,000732: 35,3273 40335 SLOAD SETPD
029681,000733: 35,3274 03467 NN # NUMBER OF OFFSETS
029682,000734: 35,3275 00001 0D
029683,000735: 35,3276 63325 PDDL PDVL
029684,000736: 35,3277 33661 EPSFOUR
029685,000737: 35,3300 03536 RACT3
029686,000738: 35,3301 26314 STOVL RINIT
|
|
Page 669 |
029688,000740: 35,3302 03544 VACT3
029689,000741: 35,3303 36322 STCALL VINIT
029690,000742: 35,3304 22000 INITVEL
029691,000743: 35,3305 77624 CALL
029692,000744: 35,3306 73365 LOMAT
029693,000745: 35,3307 64375 VLOAD MXV
029694,000746: 35,3310 02357 DELVEET3
029695,000747: 35,3311 00001 0D
029696,000748: 35,3312 77772 VSL1
029697,000749: 35,3313 37434 STCALL DELVLVC
029698,000750: 35,3314 03470 SUBEXIT
029699,000751:
|
|
Page 670 |
029701,000753: # ..... S34/35.3 .....
029702,000754:
029703,000755: 35,3315 45020 S34/35.3 STQ CALL
029704,000756: 35,3316 03463 NORMEX
029705,000757: 35,3317 73365 LOMAT # GET MATRIX IN PUSH LIST
029706,000758: 35,3320 61375 VLOAD VXM
029707,000759: 35,3321 03434 DELVLVC # NEW DEL V TPI
029708,000760: 35,3322 00001 0D
029709,000761: 35,3323 77772 VSL1
029710,000762: 35,3324 02357 STORE DELVEET3 # SAVE FOR TRANSFORM
029711,000763: 35,3325 63255 VAD PDVL
029712,000764: 35,3326 03544 VACT3 # NEW V REQ
029713,000765: 35,3327 03536 RACT3
029714,000766: 35,3330 65325 PDDL PDDL
029715,000767: 35,3331 03442 TIG
029716,000768: 35,3332 03631 TPASS4
029717,000769: 35,3333 41525 PDDL PUSH
029718,000770: 35,3334 06526 DPPOSMAX
029719,000771: 35,3335 77624 CALL # INTEG. FOR NEW TARGET VEC
029720,000772: 35,3336 73404 INTINT
029721,000773: 35,3337 77775 VLOAD
029722,000774: 35,3340 00001 RATT
029723,000775: 35,3341 03444 STORE RTARG
029724,000776: 35,3342 41575 NOVRWRT VLOAD PUSH
029725,000777: 35,3343 02302 ULOS
029726,000778: 35,3344 57435 VXV VCOMP
029727,000779: 35,3345 02252 UNRM
029728,000780: 35,3346 41456 UNIT PUSH
029729,000781: 35,3347 76435 VXV VSL1
029730,000782: 35,3350 02302 ULOS
029731,000783: 35,3351 77715 PDVL
029732,000784: 35,3352 64315 PDVL MXV
029733,000785: 35,3353 02357 DELVEET3
029734,000786: 35,3354 00001 0D
029735,000787: 35,3355 77772 VSL1
029736,000788: 35,3356 36274 STCALL DVLOS
029737,000789: 35,3357 03463 NORMEX
029738,000790:
|
|
Page 671 |
029740,000792: # ..... S34/35.4 .....
029741,000793:
029742,000794: 35,3360 40220 S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
029743,000795: 35,3361 03463 NORMEX
029744,000796: 35,3362 00001 0D
029745,000797: 35,3363 77650 GOTO
029746,000798: 35,3364 73342 NOVRWRT
029747,000799:
|
|
Page 672 |
029749,000801: # ..... LOMAT .....
029750,000802:
029751,000803: 35,3365 57575 LOMAT VLOAD VCOMP
029752,000804: 35,3366 02252 UNRM
029753,000805: 35,3367 24007 STOVL 6D # Y
029754,000806: 35,3370 03536 RACT3
029755,000807: 35,3371 57456 UNIT VCOMP
029756,000808: 35,3372 00015 STORE 12D
029757,000809: 35,3373 76435 VXV VSL1
029758,000810: 35,3374 02252 UNRM # Z*-Y
029759,000811: 35,3375 00001 STORE 0D
029760,000812: 35,3376 43401 SETPD RVQ
029761,000813: 35,3377 00023 18D
029762,000814: 35,3400 65325 GOINT PDDL PDDL # DO
029763,000815: 35,3401 06520 ZEROVECS # NOT
029764,000816: 35,3402 02310 NOMTPI
029765,000817: 35,3403 41406 PUSH PUSH # ORDER OR INSERT BEFORE INTINT
029766,000818: 35,3404 45020 INTINT STQ CALL
029767,000819: 35,3405 03465 RTRN
029768,000820: 35,3406 27410 INTSTALL
029769,000821: 35,3407 71214 CLEAR DLOAD
029770,000822: 35,3410 01673 INTYPFLG
029771,000823: 35,3411 43054 BZE SET
029772,000824: 35,3412 73414 +2
029773,000825: 35,3413 01473 INTYPFLG
029774,000826: 35,3414 45545 DLOAD STADR
029775,000827: 35,3415 63736 STODL TDEC1
029776,000828: 35,3416 73014 SET LXA,2
029777,000829: 35,3417 00063 MOONFLAG
029778,000830: 35,3420 02777 RTX2
029779,000831: 35,3421 43014 BON CLEAR
029780,000832: 35,3422 04303 CMOONFLG
029781,000833: 35,3423 73425 ALLSET
029782,000834: 35,3424 00263 MOONFLAG
029783,000835: 35,3425 25517 ALLSET STOVL TET
029784,000836: 35,3426 77657 VSR*
029785,000837: 35,3427 57176 0,2
029786,000838: 35,3430 25535 STOVL RCV
029787,000839: 35,3431 77657 VSR*
029788,000840: 35,3432 57176 0,2
029789,000841: 35,3433 35543 STCALL VCV
029790,000842: 35,3434 27106 INTEGRVS
029791,000843: 35,3435 52175 VLOAD GOTO
029792,000844: 35,3436 00001 RATT
029793,000845: 35,3437 03465 RTRN
029794,000846:
|
|
Page 673 |
029796,000848: # ..... S34/35.5 .....
029797,000849: # SUBROUTINES USED
029798,000850:
029799,000851: # BANKCALL
029800,000852: # GOFLASH
029801,000853: # GOTOPOOH
029802,000854: # S34/35.3
029803,000855: # S34/35.4
029804,000856: # VNPOOH
029805,000857:
029806,000858: 35,3440 43020 S34/35.5 STQ BON
029807,000859: 35,3441 03470 SUBEXIT
029808,000860: 35,3442 01311 FINALFLG
029809,000861: 35,3443 73447 FLAGON
029810,000862: 35,3444 52014 SET GOTO
029811,000863: 35,3445 00470 UPDATFLG
029812,000864: 35,3446 73513 FLAGOFF
029813,000865: 35,3447 77214 FLAGON CLEAR VLOAD
029814,000866: 35,3450 03274 NTARGFLG
029815,000867: 35,3451 03434 DELVLVC
|
|
The following line is marked as having been changed between KISSING.063 and KISSING.064. |
029817,000869: 35,3452 01236 STORE TMPDV # SAVE DV BEFORE DISPLAY
029818,000870: 35,3453 77776 EXIT
029819,000871: 35,3454 33644 +5 CAF V06N81
029820,000872: 35,3455 04616 TC BANKCALL
029821,000873: 35,3456 20477 CADR GOFLASH
029822,000874: 35,3457 06001 TC GOTOPOOH
029823,000875: 35,3460 03462 TC +2 # PRO
029824,000876: 35,3461 03454 TC FLAGON +5 # LOAD
029825,000877: 35,3462 35016 +2 CA EBANK7
029826,000878: 35,3463 54003 TS EBANK # TO BE SURE
029827,000879:
029828,000880: 35,3464 22007 ZL
029829,000881: 35,3465 34756 CA FIVE
029830,000882: 35,3466 54002 NTARGCHK TS Q
029831,000883: 35,3467 50002 INDEX Q
029832,000884: 35,3470 41433 CS DELVLVC
029833,000885: 35,3471 50002 INDEX Q
|
|
The following line is marked as having been changed between KISSING.063 and KISSING.064. |
029835,000887: 35,3472 61235 AD TMPDV
029836,000888: 35,3473 26001 ADS L
029837,000889: 35,3474 10002 CCS Q
029838,000890: 35,3475 13466 TCF NTARGCHK
029839,000891: 35,3476 22000 LXCH A
029840,000892: 35,3477 00006 EXTEND
029841,000893: 35,3500 13503 BZF +3
029842,000894: 35,3501 05515 TC UPFLAG
029843,000895: 35,3502 00146 ADRES NTARGFLG
029844,000896:
029845,000897: 35,3503 06051 TC INTPRET
029846,000898: 35,3504 45014 BOFF CALL
029847,000899: 35,3505 03354 NTARGFLG
|
|
Page 674 |
029849,000901: 35,3506 73510 NOCHG
029850,000902: 35,3507 73315 S34/35.3
029851,000903: 35,3510 77775 NOCHG VLOAD
029852,000904: 35,3511 02357 DELVEET3
029853,000905: 35,3512 03656 STORE DELVSIN
029854,000906: 35,3513 77624 FLAGOFF CALL
029855,000907: 35,3514 73360 S34/35.4
029856,000908: 35,3515 77776 EXIT
029857,000909: 35,3516 33643 CAF V06N59
029858,000910: 35,3517 03627 TC VNPOOH
029859,000911: 35,3520 06051 TC INTPRET
029860,000912: 35,3521 77650 GOTO
029861,000913: 35,3522 03470 SUBEXIT
029862,000914:
|
|
Page 675 |
029864,000916: # ..... VN1645 .....
029865,000917:
029866,000918: # SUBROUTINES USED
029867,000919:
029868,000920: # P3XORP7X
029869,000921: # GET+MGA
029870,000922: # BANKCALL
029871,000923: # DELAYJOB
029872,000924: # COMPTGO
029873,000925: # GOFLASHR
029874,000926: # GOTOPOOH
029875,000927: # FLAGUP
029876,000928:
029877,000929: 35,3523 71220 VN1645 STQ DLOAD
029878,000930: 35,3524 03470 SUBEXIT
029879,000931: 35,3525 33657 DP-.01
029880,000932: 35,3526 02244 STORE +MGA # MGA = -.01
029881,000933: 35,3527 71214 BOFF DLOAD
029882,000934: 35,3530 01351 FINALFLG
029883,000935: 35,3531 73551 GET45
029884,000936: 35,3532 33657 DP-.01
029885,000937: 35,3533 77615 DAD
029886,000938: 35,3534 33657 DP-.01
029887,000939: 35,3535 02244 STORE +MGA # MGA = -.02
029888,000940: 35,3536 77414 BOFF EXIT
029889,000941: 35,3537 01742 REFSMFLG
029890,000942: 35,3540 73551 GET45
029891,000943: 35,3541 03621 TC P3XORP7X
029892,000944: 35,3542 03544 TC +2 # P3X
029893,000945: 35,3543 03552 TC GET45 +1 # P7X
029894,000946: 35,3544 06051 TC INTPRET
029895,000947: 35,3545 41575 VLOAD PUSH
029896,000948: 35,3546 03656 DELVSIN
029897,000949: 35,3547 77624 CALL # COMPUTE MGA
029898,000950: 35,3550 15725 GET+MGA
029899,000951: 35,3551 77776 GET45 EXIT
029900,000952: 35,3552 02437 TC COMPTGO # INITIATE TASK TO UPDATE TTOGO
029901,000953: 35,3553 31470 CA SUBEXIT
029902,000954: 35,3554 55464 TS QSAVED
029903,000955: 35,3555 34777 CAF 1SEC
029904,000956: 35,3556 04616 TC BANKCALL
029905,000957: 35,3557 01736 CADR DELAYJOB
029906,000958: 35,3560 33645 CAF V16N45 # TRKMKCNT, TTOGO, +MGA
029907,000959: 35,3561 04616 TC BANKCALL
029908,000960: 35,3562 20477 CADR GOFLASH
029909,000961: 35,3563 03566 TC KILCLOCK # TERMINATE
029910,000962: 35,3564 03571 TC N45PROC # PROCEED
029911,000963: 35,3565 03601 TC CLUPDATE # RECYCLE - RETURN FOR INITIAL COMPUTATION
029912,000964: 35,3566 30005 KILCLOCK CA Z
029913,000965: 35,3567 55162 TS DISPDEX
|
|
Page 676 |
029915,000967: 35,3570 06001 TC GOTOPOOH
029916,000968: 35,3571 40076 N45PROC CS FLAGWRD2
029917,000969: 35,3572 74746 MASK BIT6
029918,000970: 35,3573 00006 EXTEND
029919,000971: 35,3574 13566 BZF KILCLOCK # FINALFLG IS SET-FLASH V37-AWAIT NEW PGM
029920,000972: 35,3575 05364 TC PHASCHNG
029921,000973: 35,3576 04024 OCT 04024
029922,000974: 35,3577 05515 TC UPFLAG # SET
029923,000975: 35,3600 00047 ADRES FINALFLG # FINALFLG
029924,000976: 35,3601 30005 CLUPDATE CA Z
029925,000977: 35,3602 55162 TS DISPDEX
029926,000978: 35,3603 05364 TC PHASCHNG
029927,000979: 35,3604 04024 OCT 04024
029928,000980: 35,3605 06051 TC INTPRET
029929,000981: 35,3606 52014 CLEAR GOTO
029930,000982: 35,3607 00670 UPDATFLG
029931,000983: 35,3610 03464 QSAVED
029932,000984:
|
|
Page 677 |
029934,000986: # ..... DISPLAYE .....
029935,000987:
029936,000988: # SUBROUTINES USED
029937,000989:
029938,000990: # BANKCALL
029939,000991: # GOFLASHR
029940,000992: # GOTOPOOH
029941,000993: # BLANKET
029942,000994: # ENDOFJOB
029943,000995:
029944,000996: 35,3611 00006 DISPLAYE EXTEND
029945,000997: 35,3612 23463 QXCH NORMEX
029946,000998: 35,3613 33641 CAF V06N55
029947,000999: 35,3614 04616 TCR BANKCALL
029948,001000: 35,3615 20477 CADR GOFLASH
029949,001001: 35,3616 16001 TCF GOTOPOOH
029950,001002: 35,3617 01463 TC NORMEX
029951,001003: 35,3620 13613 TCF -5
029952,001004:
|
|
Page 678 |
029954,001006: # ..... P3XORP7X .....
029955,001007:
029956,001008: 35,3621 37756 P3XORP7X CAF HIGH9
029957,001009: 35,3622 71010 MASK MODREG
029958,001010: 35,3623 00006 EXTEND
029959,001011: 35,3624 13626 BZF +2
029960,001012: 35,3625 24002 INCR Q
029961,001013: 35,3626 00002 RETURN
029962,001014:
029963,001015: # ..... VNPOOH .....
029964,001016:
029965,001017: # SUBROUTINES USED
029966,001018:
029967,001019: # BANKCALL
029968,001020: # GOFLASH
029969,001021: # GOTOPOOH
029970,001022:
029971,001023: 35,3627 00006 VNPOOH EXTEND
029972,001024: 35,3630 23465 QXCH RTRN
029973,001025: 35,3631 55615 TS VERBNOUN
029974,001026: 35,3632 31615 CA VERBNOUN
029975,001027: 35,3633 04616 TCR BANKCALL
029976,001028: 35,3634 20477 CADR GOFLASH
029977,001029: 35,3635 16001 TCF GOTOPOOH
029978,001030: 35,3636 01465 TC RTRN
029979,001031: 35,3637 13632 TCF -5
029980,001032:
|
|
Page 679 |
029982,001034: # ..... CONSTANTS .....
029983,001035:
029984,001036: 35,3640 01445 V06N37 VN 0637
029985,001037: 35,3641 01467 V06N55 VN 0655
029986,001038: 35,3642 01472 V06N58 VN 0658
029987,001039: 35,3643 01473 V06N59 VN 0659
029988,001040: 35,3644 01521 V06N81 VN 0681
029989,001041: 35,3645 04055 V16N45 VN 1645
029990,001042: 35,3646 14441 37325 TWOPI 2DEC 6.283185307 B-4
029991,001043:
029992,001044: 35,3650 00001 20650 MAX250 2DEC 25 E3
029993,001045:
029994,001046: 35,3652 12525 12525 THIRD 2DEC .333333333
029995,001047:
029996,001048: 35,3654 00004 21505 ELEPS 2DEC .27777777 E-3
029997,001049:
029998,001050: 35,3656 77777 DP-.01 OCT 77777 # CONSTANTS
029999,001051: 35,3657 61337 OCT 61337 # ADJACENT -.01 FOR MGA DSP
030000,001052: 35,3660 01252 25253 EPSFOUR 2DEC .0416666666
030001,001053:
030002,001054: 35,3662 13434 16162 130DEG 2DEC .3611111111
030003,001055:
|
|
Page 680 |
030005,001057: # ..... INITVEL .....
030006,001058: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
030007,001059: # MOD BY WHITE.P DATE 21NOV67
030008,001060:
030009,001061: # FUNCTIONAL DESCRIPTION
030010,001062:
030011,001063: # THIS SUBROUTINE COMPUTES THE REQUIRED INITIAL VELOCITY VECTOR FOR
030012,001064: # A TRAJECTORY OF SPECIFIED TRANSFER TIME BETWEEN SPECIFIED INITIAL
030013,001065: # AND TARGET POSITIONS. THE TRAJECTORY MAY BE EITHER CONIC OR
030014,001066: # PRECISION DEPENDING ON AN INPUT PARAMETER (NAMELY, NUMBER OF
030015,001067: # OFFSETS). IN ADDITION, IN THE PRECISION TRAJECTORY CASE, THE
030016,001068: # SUBROUTINE ALSO COMPUTES AN OFFSET TARGET VECTOR, TO BE USED
030017,001069: # DURING PURE-CONIC CROSS-PRODUCT STEERING. THE OFFSET TARGET
030018,001070: # VECTOR IS THE TERMINAL POSITION VECTOR OF A CONIC TRAJECTORY WHICH
030019,001071: # HAS THE SAME INITIAL STATE AS A PRECISION TRAJECTORY WHOSE
030020,001072: # TERMINAL POSITION VECTOR IS THE SPECIFIED TARGET VECTOR.
030021,001073:
030022,001074: # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
030023,001075: # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE
030024,001076: # SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS
030025,001077: # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
030026,001078: # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
030027,001079: # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
030028,001080: # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
030029,001081: # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER.
030030,001082:
030031,001083: # THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND
030032,001084: # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
030033,001085: # TRAJECTORY COMPUTATIONS.
030034,001086:
030035,001087: # CALLING SEQUENCE
030036,001088:
030037,001089: # L CALL
030038,001090: # L+1 INITVEL
030039,001091: # L+2 (RETURN - ALWAYS)
030040,001092:
030041,001093: # INPUT
030042,001094:
030043,001095: # (1) RINIT INITIAL POSITION RADIUS VECTOR
030044,001096: # (2) VINIT INITIAL POSITION VELOCITY VECTOR
030045,001097: # (3) RTARG TARGET POSITION RADIUS VECTOR
030046,001098: # (4) DELLT4 DESIRED TIME OF FLIGHT FROM RINIT TO RTARG
030047,001099: # (5) INTIME TIME OF RINIT
030048,001100: # (6) 0D NUMBER OF ITERATIONS OF LAMBERT/INTEGRVS
030049,001101: # (7) 2D ANGLE TO 180 DEGREES WHEN ROTATION STARTS
030050,001102: # (8) RTX1 -2 FOR EARTH, -10D FOR LUNAR
030051,001103: # (9) RTX2 COORDINATE SYSTEM ORIGIN - 0 FOR EARTH, 2 FOR LUNAR
030052,001104: # PUSHLOC SET AT 4D
030053,001105:
|
|
Page 681 |
030055,001107: # OUTPUT
030056,001108:
030057,001109: # (1) RTARG OFFSET TARGET POSITION VECTOR
030058,001110: # (2) VIPRIME MANEUVER VELOCITY REQUIRED
030059,001111: # (3) VTPRIME VELOCITY AT TARGET AFTER MANEUVER
030060,001112: # (4) DELVEET3 DELTA VELOCITY REQUIRED FOR MANEUVER
030061,001113:
030062,001114: # SUBROUTINES USED
030063,001115:
030064,001116: # LAMBERT
030065,001117: # INTSTALL
030066,001118: # INTEGRVS
030067,001119:
030068,001120: 11,2000 SETLOC INTVEL
030069,001121: 11,2000 BANK
030070,001122:
030071,001123: 11,2000 COUNT* $$/INITV
030072,001124: 11,2000 77614 INITVEL SET # COGA GUESS NOT AVAILABLE
030073,001125: 11,2001 00475 GUESSW
030074,001126: 11,2002 44175 HAVEGUES VLOAD STQ
030075,001127: 11,2003 03444 RTARG
030076,001128: 11,2004 03463 NORMEX
030077,001129: 11,2005 03472 STORE RTARG1
030078,001130: 11,2006 77646 ABVAL
030079,001131: 11,2007 03723 STORE RTMAG
030080,001132: 11,2010 46135 SLOAD BHIZ
030081,001133: 11,2011 03000 RTX2
030082,001134: 11,2012 22026 INITVEL1
030083,001135: 11,2013 72575 VLOAD VSL2
030084,001136: 11,2014 02314 RINIT # B29
030085,001137: 11,2015 26314 STOVL RINIT # B27
030086,001138: 11,2016 02322 VINIT # B7
030087,001139: 11,2017 77752 VSL2
030088,001140: 11,2020 26322 STOVL VINIT # B5
030089,001141: 11,2021 03472 RTARG1
030090,001142: 11,2022 77752 VSL2
030091,001143: 11,2023 03472 STORE RTARG1
030092,001144: 11,2024 77646 ABVAL
030093,001145: 11,2025 03723 STORE RTMAG
030094,001146: # INITIALIZATION
030095,001147:
030096,001148: 11,2026 71331 INITVEL1 SSP DLOAD # SET ITCTR TO -1,LOAD MPAC WITH E4(PL 2D)
030097,001149: 11,2027 03617 ITCTR
030098,001150: 11,2030 77776 0 -1
030099,001151: 11,2031 70546 COSINE SR1 # CALCULATE COSINE (E4) (+2)
030100,001152: 11,2032 17667 STODL COZY4 # SET COZY4 TO COSINE(E4) (PL 0D)
030101,001153: 11,2033 67154 LXA,2 SXA,2
030102,001154: 11,2034 00154 MPAC
030103,001155: 11,2035 02701 VTARGTAG # SET VTARGTAG TO 0D (SP)
030104,001156: 11,2036 77775 VLOAD
|
|
Page 682 |
030106,001158: 11,2037 02314 RINIT
030107,001159: 11,2040 26655 STOVL R1VEC # R1VEC EQ RINIT
030108,001160: 11,2041 03472 RTARG1
030109,001161: 11,2042 16663 STODL R2VEC # R2VEC EQ RTARG
030110,001162: 11,2043 03452 DELLT4
030111,001163: 11,2044 02671 STORE TDESIRED # TDESIRED EQ DELLT4
030112,001164: 11,2045 77201 SETPD VLOAD
030113,001165: 11,2046 00001 0D # INITIALIZE PL TO 0D
030114,001166: 11,2047 02314 RINIT # MPAC EQ RINIT (+29)
030115,001167: 11,2050 41456 UNIT PUSH # UNIT(RI) (+1) (PL 6D)
030116,001168: 11,2051 53435 VXV UNIT
030117,001169: 11,2052 02322 VINIT # MPAC EQ UNIT(RI) X VI (+8)
030118,001170: 11,2053 26674 STOVL UN
030119,001171: 11,2054 03472 RTARG1
030120,001172: 11,2055 50256 UNIT DOT # TEMP=URT.URI (+2) (PL 0D)
030121,001173: 11,2056 43015 DAD CLEAR
030122,001174: 11,2057 03667 COZY4
030123,001175: 11,2060 03665 NORMSW
030124,001176: 11,2061 03667 STORE COZY4
030125,001177: 11,2062 43044 INITVEL2 BPL SET
030126,001178: 11,2063 22105 INITVEL3 # UN CALCULATED IN LAMBERT
030127,001179: 11,2064 03465 NORMSW
030128,001180: # ROTATE RC INTO YC PLANE - SET UNIT NORMAL TO YC
030129,001181:
030130,001182: 11,2065 41575 VLOAD PUSH # (PL 6D)
030131,001183: 11,2066 02663 R2VEC # RC TO 6D (+29)
030132,001184: 11,2067 63246 ABVAL PDVL # RC TO MPAC, ABVAL(RC) (+29) TO OD(PL 2D)
030133,001185: 11,2070 46206 PUSH VPROJ # (PL 8D)
030134,001186: 11,2071 02674 UN
030135,001187: 11,2072 51352 VSL2 BVSU
030136,001188: 11,2073 74256 UNIT VXSC # (PL 0D)
030137,001189: 11,2074 77772 VSL1
030138,001190: 11,2075 02663 STORE R2VEC
030139,001191: 11,2076 67351 TLOAD SLOAD
030140,001192: 11,2077 24007 ZEROVEC
030141,001193: 11,2100 03617 ITCTR
030142,001194: 11,2101 77244 BPL VLOAD
030143,001195: 11,2102 22105 INITVEL3
030144,001196: 11,2103 02663 R2VEC
030145,001197: 11,2104 03472 STORE RTARG1
030146,001198: 11,2105 63345 INITVEL3 DLOAD PDVL # (PL 2D)
030147,001199: 11,2106 26007 MUEARTH # POSITIVE VALUE
030148,001200: 11,2107 02663 R2VEC
030149,001201: 11,2110 63256 UNIT PDVL # 2D = UNIT(R2VEC) (PL 8D)
030150,001202: 11,2111 02655 R1VEC
030151,001203: 11,2112 41456 UNIT PUSH # 8D = UNIT(R1VEC) (PL14D)
030152,001204: 11,2113 57435 VXV VCOMP # -N = UNIT(R2VEC) X UNIT(R1VEC)
030153,001205: 11,2114 00003 2D
030154,001206: 11,2115 77606 PUSH # (PL20D)
030155,001207: 11,2116 71350 LXA,1 DLOAD
|
|
Page 683 |
030157,001209: 11,2117 02776 RTX1
030158,001210: 11,2120 00023 18D
030159,001211: 11,2121 62040 BMN INCR,1
030160,001212: 11,2122 22124 +2
030161,001213: 11,2123 77767 DEC -8 B-14
030162,001214: 11,2124 67310 INCR,1 SLOAD
030163,001215: 11,2125 00012 10D
030164,001216: 11,2126 00047 X1
030165,001217: 11,2127 77230 BHIZ VLOAD # (PL14D)
030166,001218: 11,2130 22132 +2
030167,001219: 11,2131 41476 VCOMP PUSH # (PL20D)
030168,001220: 11,2132 77775 VLOAD # (PL14D)
030169,001221: 11,2133 50235 VXV DOT # (PL 2D)
030170,001222: 11,2134 71244 BPL DLOAD # (PL 0D)
030171,001223: 11,2135 22137 INITVEL4
030172,001224: 11,2136 41476 DCOMP PUSH # (PL 2D)
030173,001225: 11,2137 67154 INITVEL4 LXA,2 SXA,2
030174,001226: 11,2140 00000 0D
030175,001227: 11,2141 02672 GEOMSGN
030176,001228: # SET INPUTS UP FOR LAMBERT
030177,001229:
030178,001230: 11,2142 66350 LXA,1 SSP
030179,001231: 11,2143 02776 RTX1
030180,001232: 11,2144 00027 ITERCTR
030181,001233: 11,2145 00024 20D
030182,001234: # OPERATE THE LAMBERT CONIC ROUTINE (COASTFLT SUBROUTINE)
030183,001235:
030184,001236: 11,2146 77624 CALL
030185,001237: 11,2147 25212 LAMBERT
030186,001238:
030187,001239: # ARRIVED AT SOLUTION IS GOOD ENOUGH ACCORDING TO SLIGHTLY WIDER BOUNDS.
030188,001240:
030189,001241: 11,2150 77214 CLEAR VLOAD
030190,001242: 11,2151 00675 GUESSW
030191,001243: 11,2152 02744 VVEC
030192,001244: # STORE CALCULATED INITIAL VELOCITY REQUIRED IN VIPRIME
030193,001245:
030194,001246: 11,2153 16330 STODL VIPRIME # INITIAL VELOCITY REQUIRED (+7)
030195,001247:
030196,001248: # IF NUMIT IS ZERO, CONTINUE AT INITVELB, OTHERWISE
030197,001249: # SET UP INPUTS FOR ENCKE INTEGRATION (INTEGRVS).
030198,001250:
030199,001251: 11,2154 02702 VTARGTAG
030200,001252: 11,2155 45030 BHIZ CALL
030201,001253: 11,2156 22233 INITVEL7
030202,001254: 11,2157 27410 INTSTALL
030203,001255: 11,2160 43135 SLOAD CLEAR
030204,001256: 11,2161 03000 RTX2
030205,001257: 11,2162 00263 MOONFLAG
030206,001258: 11,2163 43030 BHIZ SET
|
|
Page 684 |
030208,001260: 11,2164 22166 INITVEL5
030209,001261: 11,2165 00063 MOONFLAG
030210,001262: 11,2166 77775 INITVEL5 VLOAD
030211,001263: 11,2167 02314 RINIT
030212,001264: 11,2170 02655 STORE R1VEC
030213,001265: 11,2171 25535 STOVL RCV
030214,001266: 11,2172 02330 VIPRIME
030215,001267: 11,2173 15543 STODL VCV
030216,001268: 11,2174 03610 INTIME
030217,001269: 11,2175 01517 STORE TET
030218,001270: 11,2176 43015 DAD CLEAR
030219,001271: 11,2177 03452 DELLT4
030220,001272: 11,2200 01673 INTYPFLG
030221,001273: 11,2201 34041 STCALL TDEC1
030222,001274: 11,2202 27106 INTEGRVS
030223,001275: 11,2203 77775 VLOAD
030224,001276: 11,2204 00025 VATT1
030225,001277: 11,2205 02703 STORE VTARGET
030226,001278:
030227,001279: # IF ITERATION COUNTER (ITCTR) EQ NO. ITERATIONS (NUMIT), CONTINUE AT
030228,001280: # INITVELC, OTHERWISE REITERATE LAMBERT AND ENCKE
030229,001281:
030230,001282: 11,2206 63154 LXA,2 INCR,2
030231,001283: 11,2207 03616 ITCTR
030232,001284: 11,2210 00001 1D # INCREMENT ITCTR
030233,001285: 11,2211 55134 SXA,2 XSU,2
030234,001286: 11,2212 03616 ITCTR
030235,001287: 11,2213 02701 VTARGTAG
030236,001288: 11,2214 46135 SLOAD BHIZ # IF SP(MPAC) EQ 0, CONTINUE AT INITVELC
030237,001289: 11,2215 00050 X2
030238,001290: 11,2216 22230 INITVEL6
030239,001291:
030240,001292: # OFFSET CONIC TARGET VECTOR
030241,001293:
030242,001294: 11,2217 52375 VLOAD VSU
030243,001295: 11,2220 03472 RTARG1
030244,001296: 11,2221 00017 RATT1
030245,001297: 11,2222 77655 VAD
030246,001298: 11,2223 02663 R2VEC
030247,001299: 11,2224 16663 STODL R2VEC
030248,001300: 11,2225 03667 COZY4
030249,001301: 11,2226 77650 GOTO
030250,001302: 11,2227 22062 INITVEL2 # CONTINUE ITERATING AT INITVEL2
030251,001303: # COMPUTE THE DELTA VELOCITY
030252,001304:
030253,001305: 11,2230 77775 INITVEL6 VLOAD
030254,001306: 11,2231 02663 R2VEC
030255,001307: 11,2232 03472 STORE RTARG1
030256,001308: 11,2233 52375 INITVEL7 VLOAD VSU
030257,001309: 11,2234 02330 VIPRIME
030258,001310: 11,2235 02322 VINIT
|
|
Page 685 |
030260,001312: 11,2236 26357 STOVL DELVEET3 # DELVEET3 = VIPRIME-VINIT (+7)
030261,001313: 11,2237 02703 VTARGET
030262,001314: 11,2240 03566 STORE VTPRIME
030263,001315: 11,2241 46135 SLOAD BHIZ
030264,001316: 11,2242 03000 RTX2
030265,001317: 11,2243 22260 INITVELX
030266,001318: 11,2244 70575 VLOAD VSR2
030267,001319: 11,2245 03566 VTPRIME
030268,001320: 11,2246 27566 STOVL VTPRIME
030269,001321: 11,2247 02330 VIPRIME
030270,001322: 11,2250 77742 VSR2
030271,001323: 11,2251 26330 STOVL VIPRIME
030272,001324: 11,2252 03472 RTARG1
030273,001325: 11,2253 77742 VSR2
030274,001326: 11,2254 27472 STOVL RTARG1
030275,001327: 11,2255 02357 DELVEET3
030276,001328: 11,2256 77742 VSR2
030277,001329: 11,2257 02357 STORE DELVEET3
030278,001330: 11,2260 70750 INITVELX LXA,1 DLOAD*
030279,001331: 11,2261 02776 RTX1
030280,001332: 11,2262 10003 MUTABLE -2,1
030281,001333: 11,2263 41206 PUSH DMP
030282,001334: 11,2264 02742 R1A
030283,001335: 11,2265 56342 SR1 DDV
030284,001336: 11,2266 00041 R1
030285,001337: 11,2267 17721 STODL MU/A
030286,001338: 11,2270 77661 SR
030287,001339: 11,2271 20607 6
030288,001340: 11,2272 03717 STORE MUASTEER
030289,001341: 11,2273 77201 SETPD VLOAD
030290,001342: 11,2274 00001 0D
030291,001343: 11,2275 03472 RTARG1
030292,001344: 11,2276 03444 STORE RTARG
030293,001345: 11,2277 52014 CLEAR GOTO
030294,001346: 11,2300 01267 XDELVFLG
030295,001347: 11,2301 03463 NORMEX
030296,001348:
030297,001349: # ..... END OF INITVEL ROUTINE .....
030298,001350:
|
|
Page 686 |
030300,001352: # ..... MIDGIM .....
030301,001353:
030302,001354: # MOD NO. 0, BY WILLMAN, SUBROUTINE RENDGUID, LOG P34-P35, P74-P75
030303,001355: # REVISION 03, 17 FEB 67
030304,001356:
030305,001357: # IF THE ACTIVE VEHICLE IS DOING THE COMPUTATION, MIDGIM COMPUTES
030306,001358: # THE POSITIVE MIDDLE GIMBAL ANGLE OF THE ACTIVE VEHICLE TO THE INPUT
030307,001359: # DELTA VELOCITY VECTOR (0D IN PUSH LIST), OTHERWISE
030308,001360: # MIDGIM CONVERTS THE INPUT DELTA VELOCITY VECTOR FROM INERTIAL COORDIN-
030309,001361: # ATES TO LOCAL VERTICAL COORDINATES OF THE ACTIVE VEHICLE.
030310,001362:
030311,001363: # .. INPUTS ..
030312,001364:
030313,001365: # NAME MEANING UNITS/SCALING/MODE
030314,001366:
030315,001367: # AVFLAG INT FLAG - 0 IS CSM ACTIVE, 1 IS LEM ACTIVE BIT
030316,001368: # RINIT ACTIVE VEHICLE RADIUS VECTOR METERS/CSEC (+7) VT
030317,001369: # VINIT ACTIVE VEHICLE VELOCITY VECTOR METERS/CSEC (+7) VT
030318,001370: # 0D (PL) ACTIVE VEHICLE DELTA VELOCITY VECTOR METERS/CSEC (+7) VT
030319,001371:
030320,001372: # .. OUTPUTS ..
030321,001373:
030322,001374: # NAME MEANING UNITS/SCALING/MODE
030323,001375:
030324,001376: # +MGA + MIDDLE GIMBAL ANGLE REVOLUTIONS (+0) DP
030325,001377: # DELVLVC DELTA VELOCITY VECTOR IN LV COORD. METERS/CSEC (+7) VT
030326,001378: # MGLVFLAG INT FLAG - 0 IS +MGA COMPUTED, 1 IS DELVLVC COMP. - BIT
030327,001379:
030328,001380: # .. CALLING SEQUENCE ..
030329,001381:
030330,001382: # L CALL
030331,001383: # L+1 MIDGIM
030332,001384: # L+2 (RETURN - ALWAYS)
030333,001385:
030334,001386: # .. NO SUBROUTINES CALLED ..
030335,001387:
030336,001388: # .. DEBRIS - ERASEABLE TEMPORARY USAGE
030337,001389:
030338,001390: # A,Q,L, PUSH LIST, MPAC.
030339,001391:
030340,001392: # .. ALARMS - NONE ..
030341,001393:
|
|
Page 687 |
030343,001395: # MIDDLE GIMBAL ANGLE COMPUTATION.
030344,001396:
030345,001397: 06,2000 SETLOC MIDDGIM
030346,001398: 06,2000 BANK
030347,001399:
030348,001400: 06,3723 COUNT* $$/MIDG
030349,001401:
030350,001402: 06,3723 20000 00000 HALFREV 2DEC 1 B-1
030351,001403:
030352,001404: 06,3725 53575 GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC, UNITIZE UV (+1)
030353,001405: 06,3726 77656 UNIT
030354,001406: 06,3727 72441 DOT SL1 # DOT UV WITH Y(STABLE MEMBER) AND RESCALE
030355,001407: 06,3730 01740 REFSMMAT +6 # FROM +2 TO +1 FOR ASIN ROUTINE
030356,001408: 06,3731 51136 ARCSIN BPL
030357,001409: 06,3732 15736 SETMGA
030358,001410: 06,3733 43215 DAD DAD # CONVERT -MGA TO +MGA BY
030359,001411: 06,3734 15724 HALFREV # ADDING ONE REVOLUTION
030360,001412: 06,3735 15724 HALFREV
030361,001413: 06,3736 02244 SETMGA STORE +MGA
030362,001414: 06,3737 43414 CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
030363,001415: 06,3740 02675 MGLVFLAG # AND EXIT
030364,001416: 06,3741 53575 GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC, UNITIZE UR
030365,001417: 06,3742 02314 RINIT
030366,001418: 06,3743 77676 VCOMP # U(-R)
030367,001419: 06,3744 00023 STORE 18D # U(-R) TO 18D
030368,001420: 06,3745 53435 VXV UNIT # U(-R)*V EQ V*U(R), U(V*R)
030369,001421: 06,3746 02322 VINIT
030370,001422: 06,3747 00015 STORE 12D # U(V*R) TO 12D
030371,001423: 06,3750 53435 VXV UNIT # U(V*R)*U(-R), U((V*R)*(-R))
030372,001424: 06,3751 00023 18D
030373,001425: 06,3752 24007 STOVL 6D # TRANSFORMATION MATRIX IS IN 6D (+1)
030374,001426: 06,3753 00001 0D # DELTA V (+7) IN 0D
030375,001427: 06,3754 76521 MXV VSL1 # CONVERT FROM INER COOR TO LV COOR (+8)
030376,001428: 06,3755 00007 6D # AND SCALE +7 IN MPAC
030377,001429: 06,3756 03434 STORE DELVLVC # STORE IN DELVLVC (+7)
030378,001430: 06,3757 43414 SET RVQ # SET MGLVFLAG TO INDICATE LVC CALC
030379,001431: 06,3760 02475 MGLVFLAG # AND EXIT
030380,001432: # ..... END OF MIDGIM ROUTINE .....
030381,001433:
|
|
Page 688 |
030383,001435: 10,2000 BANK 10
030384,001436: 10,2000 SETLOC SLCTMU
030385,001437: 10,2000 BANK
030386,001438: 10,2000 COUNT* $$/MIDG
030387,001439:
030388,001440: 10,2000 77160 SELECTMU AXC,1 AXT,2
030389,001441: 10,2001 00002 2D
030390,001442: 10,2002 00000 0D
030391,001443: 10,2003 77614 BOFF
030392,001444: 10,2004 04343 CMOONFLG
030393,001445: 10,2005 20011 SETMUER
030394,001446: 10,2006 77160 AXC,1 AXT,2
030395,001447: 10,2007 00012 10D
030396,001448: 10,2010 00002 2D
030397,001449: 10,2011 66143 SETMUER DLOAD* SXA,1
030398,001450: 10,2012 10011 MUTABLE +4,1
030399,001451: 10,2013 02776 RTX1
030400,001452: 10,2014 22310 STODL* RTSR1/MU
030401,001453: 10,2015 10003 MUTABLE -2,1
030402,001454: 10,2016 54214 BOFF SR
030403,001455: 10,2017 04343 CMOONFLG
030404,001456: 10,2020 20022 RTRNMU
030405,001457: 10,2021 20607 6D
030406,001458: 10,2022 02312 RTRNMU STORE RTMU
030407,001459: 10,2023 43134 SXA,2 CLEAR
030408,001460: 10,2024 02777 RTX2
030409,001461: 10,2025 01271 FINALFLG
030410,001462: 10,2026 77650 GOTO
030411,001463: 10,2027 73523 VN1645
030412,001464:
|
|
Page 689 |
030414,001466: # ..... PERIAPO .....
030415,001467:
030416,001468: # MOD NO -1 LOG SECTION - P34-P35, P74-P75
030417,001469: # MOD BY WHITE.P DATE 18JAN68
030418,001470:
030419,001471: # FUNCTIONAL DESCRIPTION
030420,001472:
030421,001473: # THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER
030422,001474: # ALTITUDES GIVEN THE POSITION AND VELOCITY VECTORS FOR A POINT ON
030423,001475: # THE TRAJECTORY AND THE PRIMARY BODY.
030424,001476:
030425,001477: # SETRAD IS CALLED TO DETERMINE THE RADIUS OF THE PRIMARY BODY.
030426,001478:
030427,001479: # APSIDES IS CALLED TO SOLVE FOR THE TWO BODY RADII OF APOCENTER AND
030428,001480: # PERICENTER AND THE ECCENTRICITY OF THE TRAJECTORY.
030429,001481:
030430,001482: # CALLING SEQUENCE
030431,001483:
030432,001484: # L CALL
030433,001485: # L+1 PERIAPO
030434,001486: # L+2 (RETURN - ALWAYS)
030435,001487:
030436,001488: # INPUT
030437,001489:
030438,001490: # (1) RVEC POSITION VECTOR IN METERS
030439,001491: # SCALE FACTOR - EARTH +29, MOON +27
030440,001492: # (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND
030441,001493: # SCALE FACTOR - EARTH +7, MOON +5
030442,001494: # (3) X1 PRIMARY BODY INDICATOR
030443,001495: # EARTH -2, MOON -10
030444,001496:
030445,001497: # OUTPUT
030446,001498:
030447,001499: # (1) 2D APOCENTER RADIUS IN METERS
030448,001500: # SCALE FACTOR - EARTH +29, MOON +27
030449,001501: # (2) 4D APOCENTER ALTITUDE IN METERS
030450,001502: # SCALE FACTOR - EARTH +29, MOON P27
030451,001503: # (3) 6D PERICENTER RADIUS IN METERS
030452,001504: # SCALE FACTOR - EARTH +29, MOON +27
030453,001505: # (4) 8D PERICENTER ALTITUDE IN METERS
030454,001506: # SCALE FACTOR - EARTH +29, MOON +27
030455,001507: # (5) ECC ECCENTRICITY OF CONIC TRAJECTORY
030456,001508: # SCALE FACTOR - +3
030457,001509: # (6) XXXALT RADIUS OF THE PRIMARY BODY IN METERS
030458,001510: # SCALE FACTOR - EARTH +29, MOON +27
030459,001511: # (7) PUSHLOC EQUALS 10D
030460,001512:
030461,001513: # SUBROUTINES USED
030462,001514:
030463,001515: # SETRAD
|
|
Page 690 |
030465,001517: # APSIDES
030466,001518:
030467,001519: 23,2000 SETLOC APOPERI
030468,001520: 23,2000 BANK
030469,001521:
030470,001522: 23,2335 COUNT* $$/PERAP
030471,001523:
030472,001524: 23,2335 00302 17755 RPAD 2DEC 6373338 B-29 # STANDARD RADIUS OF PAD 37-B.
030473,001525:
030474,001526: # = 20 909 901.57 FT
030475,001527:
030476,001528: 23,2337 53754 PERIAPO1 LXA,2 VSR*
030477,001529: 23,2340 02777 RTX2
030478,001530: 23,2341 57176 0,2
030479,001531: 23,2342 26744 STOVL VVEC
030480,001532: 23,2343 53750 LXA,1 VSR*
030481,001533: 23,2344 02776 RTX1
030482,001534: 23,2345 57176 0,2
030483,001535: 23,2346 02655 STORE RVEC
030484,001536: 23,2347 45020 PERIAPO STQ CALL
030485,001537: 23,2350 03463 NORMEX
030486,001538: 23,2351 46365 SETRAD
030487,001539: 23,2352 37671 STCALL XXXALT
030488,001540: 23,2353 25704 APSIDES
030489,001541: 23,2354 41401 SETPD PUSH # 2D = APOCENTER RADIUS B29 OR B27
030490,001542: 23,2355 00003 2D
030491,001543: 23,2356 65225 DSU PDDL # 4D = APOGEE ALTITUDE B29 OR B27
030492,001544: 23,2357 03671 XXXALT
030493,001545: 23,2360 00001 0D
030494,001546: 23,2361 45206 PUSH DSU # 6D = PERICENTER RADIUS B29 OR B27
030495,001547: 23,2362 03671 XXXALT
030496,001548: 23,2363 52006 PUSH GOTO # 8D = PERIGEE ALTITUDE B29 OR B27
030497,001549: 23,2364 03463 NORMEX
030498,001550:
|
|
Page 691 |
030500,001552: # SETRAD
030501,001553: 23,2365 41545 SETRAD DLOAD PUSH
030502,001554: 23,2366 06336 RPAD
030503,001555: 23,2367 63130 SXA,1 INCR,2
030504,001556: 23,2370 00047 X2
030505,001557: 23,2371 00002 2D
030506,001558: 23,2372 46135 SLOAD BHIZ
030507,001559: 23,2373 00050 X2
030508,001560: 23,2374 46400 SETRADX
030509,001561: 23,2375 51575 VLOAD ABVAL
030510,001562: 23,2376 02021 RLS
030511,001563: 23,2377 77725 PDDL
030512,001564: 23,2400 43545 SETRADX DLOAD RVQ
030513,001565:
|
|
Page 692 |
030515,001567: # PRECSET
030516,001568: 23,2401 77620 PRECSET STQ
030517,001569: 23,2402 03463 NORMEX
030518,001570: 23,2403 37574 STCALL TDEC2
030519,001571: 23,2404 27056 LEMPREC
030520,001572: 23,2405 77624 CALL
030521,001573: 23,2406 46417 LEMSTORE
030522,001574: 23,2407 77745 DLOAD
030523,001575: 23,2410 03574 TDEC2
030524,001576: 23,2411 34041 STCALL TDEC1
030525,001577: 23,2412 27042 CSMPREC
030526,001578: 23,2413 77624 CALL
030527,001579: 23,2414 46427 CSMSTORE
030528,001580: 23,2415 77650 GOTO
030529,001581: 23,2416 03463 NORMEX
030530,001582: 23,2417 43175 LEMSTORE VLOAD BOFF
030531,001583: 23,2420 00001 RATT
030532,001584: 23,2421 01352 AVFLAG
030533,001585: 23,2422 46433 PASSIVE
030534,001586: 23,2423 27536 ACTIVE STOVL RACT3
030535,001587: 23,2424 00007 VATT
030536,001588: 23,2425 03544 STORE VACT3
030537,001589: 23,2426 77616 RVQ
030538,001590: 23,2427 43175 CSMSTORE VLOAD BOFF
030539,001591: 23,2430 00001 RATT
030540,001592: 23,2431 01352 AVFLAG
030541,001593: 23,2432 46423 ACTIVE
030542,001594: 23,2433 27552 PASSIVE STOVL RPASS3
030543,001595: 23,2434 00007 VATT
030544,001596: 23,2435 03560 STORE VPASS3
030545,001597: 23,2436 77616 RVQ
030546,001598:
|
|
Page 693 |
030548,001600: # VECSHIFT
030549,001601: 23,2437 53754 VECSHIFT LXA,2 VSR*
030550,001602: 23,2440 02777 RTX2
030551,001603: 23,2441 57176 0,2
030552,001604: 23,2442 63350 LXA,1 PDVL
030553,001605: 23,2443 02776 RTX1
030554,001606: 23,2444 63257 VSR* PDVL
030555,001607: 23,2445 57176 0,2
030556,001608: 23,2446 77616 RVQ
030557,001609:
|
|
Page 694 |
030559,001611: # SHIFTR1
030560,001612: 23,2447 53754 SHIFTR1 LXA,2 SL*
030561,001613: 23,2450 02777 RTX2
030562,001614: 23,2451 57576 0,2
030563,001615: 23,2452 77616 RVQ
030564,001616:
|
|
Page 695 |
030566,001618: # PROGRAM DESCRIPTION
030567,001619: # SUBROUTINE NAME R36 OUT-OF-PLANE RENDEZVOUS ROUTINE
030568,001620: # MOD NO. 0 DATE 22 DECEMBER 67
030569,001621: # MOD BY N.M.NEVILLE LOG SECTION EXTENDED VERBS
030570,001622: # FUNCTIONAL DESCRIPTION
030571,001623:
030572,001624: # TO DISPLAY AT ASTRONAUT REQUEST LGC CALCULATED RENDEZVOUS
030573,001625: # OUT-OF-PLANE PARAMETERS (Y , YDOT , PSI). (REQUESTED BY DSKY).
030574,001626:
030575,001627: # CALLING SEQUENCE
030576,001628:
030577,001629: # ASTRONAUT REQUEST THROUGH DSKY V 90 E
030578,001630:
030579,001631: # SUBROUTINES CALLED
030580,001632:
030581,001633: # EXDSPRET
030582,001634: # GOMARKF
030583,001635: # CSMPREC
030584,001636: # LEMPREC
030585,001637: # SGNAGREE
030586,001638: # LOADTIME
030587,001639:
030588,001640: # NORMAL EXIT MODES
030589,001641:
030590,001642: # ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V 34 E
030591,001643:
030592,001644: # ALARM OR ABORT EXIT MODES
030593,001645:
030594,001646: # NONE
030595,001647:
030596,001648: # OUTPUT
030597,001649:
030598,001650: # DECIMAL DISPLAY OF TIME , Y , YDOT AND PSI
030599,001651:
030600,001652: # DISPLAYED VALUES Y , YDOT , AND PSI , ARE STORED IN ERASABLE
030601,001653: # REGISTERS RANGE , RRATE AND RTHETA RESPECTIVELY.
030602,001654:
030603,001655: # ERASABLE INITIALIZATION REQUIRED
030604,001656:
030605,001657: # CSM AND LEM STATE VECTORS
030606,001658:
030607,001659: # DEBRIS
030608,001660:
030609,001661: # CENTRALS A,Q,L
030610,001662:
030611,001663: # OTHER THOSE USED BY THE ABOVE LISTED SUBROUTINES
030612,001664:
030613,001665: 20,2115 BANK 20
030614,001666: 04,2000 SETLOC R36LM
030615,001667: 04,2000 BANK
030616,001668:
|
|
Page 696 |
030618,001670: 04,2650 E7,1441 EBANK= TIG
030619,001671: 04,2650 COUNT* $$/R36
030620,001672:
030621,001673: 04,2650 00006 R36 EXTEND
030622,001674: 04,2651 31442 DCA TIG # SET TIME-OF-EVENT TO TIG FOR NOMINAL
030623,001675: 04,2652 53051 DXCH DSPTEMX # DISPLAY
030624,001676: 04,2653 32763 CAF V06N16N
030625,001677: 04,2654 04616 TC BANKCALL
030626,001678: 04,2655 20334 CADR GOMARKF
030627,001679: 04,2656 15503 TCF ENDEXT # TERMINATE
030628,001680: 04,2657 12661 TCF +2 # PROCEED
030629,001681: 04,2660 12653 TCF -5 # RECYCLE FOR ASTRONAUT INPUT TIME
030630,001682: 04,2661 06051 TC INTPRET
030631,001683: 04,2662 53145 DLOAD BZE
030632,001684: 04,2663 01051 DSPTEMX
030633,001685: 04,2664 10760 GETNOW # ASTOR-LOADED ZERO, GET PRES TIME
030634,001686: 04,2665 34041 R36INT STCALL TDEC1
030635,001687: 04,2666 27042 OTHPREC
030636,001688: 04,2667 63375 VLOAD PDVL
030637,001689: 04,2670 00007 VATT
030638,001690: 04,2671 00001 RATT # -
030639,001691: 04,2672 02200 STORE RPASS36 # R
030640,001692: 04,2673 63256 UNIT PDVL # P
030641,001693: 04,2674 53435 VXV UNIT # -
030642,001694: 04,2675 77626 STADR
030643,001695: 04,2676 61571 STODL UNP36 # U
030644,001696: 04,2677 00015 TAT
030645,001697: 04,2700 34041 STCALL TDEC1
030646,001698: 04,2701 27056 THISPREC
030647,001699: 04,2702 63375 VLOAD PDVL # -
030648,001700: 04,2703 00007 VATT # VELOCITY VECTOR V 00D
030649,001701: 04,2704 00001 RATT # A
030650,001702: 04,2705 41406 PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
030651,001703: 04,2706 63245 BVSU PDVL # A - -
030652,001704: 04,2707 02200 RPASS36 # LINE OF SIGHT VECTOR R - R 12D
030653,001705: 04,2710 72441 DOT SL1 # P A
030654,001706: 04,2711 02206 UNP36 # - -
030655,001707: 04,2712 26172 STOVL YLEM
030656,001708: 04,2713 00001 00D # A
030657,001709: 04,2714 72441 DOT SL1
030658,001710: 04,2715 02206 UNP36 # . - -
030659,001711: 04,2716 26174 STOVL YDOTLEM
030660,001712: 04,2717 00007 06D # - A -
030661,001713: 04,2720 41456 UNIT PUSH # U = UNIT( R ) 18D
030662,001714: 04,2721 47235 VXV VXV # RA A
030663,001715: 04,2722 00001 00D # - - - -
030664,001716: 04,2723 00023 18D # (U XV )XU =U
030665,001717: 04,2724 53552 VSL2 UNIT # RA A RA A
030666,001718: 04,2725 77656 UNIT
030667,001719: 04,2726 24001 STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
|
|
Page 697 |
030669,001721: 04,2727 00023 18D
030670,001722: 04,2730 74241 DOT VXSC # -
030671,001723: 04,2731 00015 12D # U
030672,001724: 04,2732 77752 VSL2 # L
030673,001725: 04,2733 53445 BVSU UNIT
030674,001726: 04,2734 77656 UNIT
030675,001727: 04,2735 50206 PUSH DOT # LOS PROJECTED INTO HORIZONTAL 12D
030676,001728: 04,2736 00001 00D # PLANE
030677,001729: 04,2737 65552 SL1 ARCCOS # - -
030678,001730: 04,2740 26176 STOVL PHILEM
030679,001731: 04,2741 50235 VXV DOT # A L
030680,001732: 04,2742 00001 00D
030681,001733: 04,2743 71244 BPL DLOAD
030682,001734: 04,2744 10751 R36TAG2
030683,001735: 04,2745 24020 LODPMAX
030684,001736: 04,2746 77625 DSU
030685,001737: 04,2747 02176 PHILEM
030686,001738: 04,2750 02176 STORE PHILEM
030687,001739: 04,2751 77776 R36TAG2 EXIT
030688,001740: 04,2752 32764 CAF V06N90N # DISPLAY Y , YDOT , AND PSI
030689,001741: 04,2753 04616 TC BANKCALL
030690,001742: 04,2754 20334 CADR GOMARKF
030691,001743: 04,2755 15503 TCF ENDEXT # TERMINATE
030692,001744: 04,2756 15503 TCF ENDEXT # PROCEED , END OF PROGRAM
030693,001745: 04,2757 12650 TCF R36 # RECYCLE, TIG OR ASTRO-OPTION
030694,001746: 04,2760 52034 GETNOW RTB GOTO # ASTRO-SELECTED PRESENT TIME
030695,001747: 04,2761 21555 LOADTIME
030696,001748: 04,2762 10665 R36INT
030697,001749: 04,2763 01420 V06N16N VN 00616
030698,001750: 04,2764 01532 V06N90N VN 00690
End of include-file P34-P35,_P74-P75.agc. Parent file is MAIN.agc