Source Code
|
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
022629,000002: # Copyright: Public domain.
022630,000003: # Filename: R30.agc
022631,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
022632,000005: # build 072. This is for the Command Module's (CM)
022633,000006: # Apollo Guidance Computer (AGC), we believe for
022634,000007: # Apollo 15-17.
022635,000008: # Assembler: yaYUL
022636,000009: # Contact: Hartmuth Gutsche <hgutsche@xplornet.com>
022637,000010: # Website: www.ibiblio.org/apollo/index.html
022638,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
022639,000012: # Mod history: 2009-10-03 HG Adapted from corresponding Comanche 055 file.
022640,000013: # 2009-11-18 JL Minor fixes.
022641,000014: # 2010-01-26 JL Updated header comments.
022642,000015: # 2010-02-20 RSB Un-##'d this header.
022643,000016:
|
|
Page 516 |
022645,000018: # SUBROUTINE NAME: V82CALL
022646,000019: # MOD NO: 0 DATE: 16 FEB 67
022647,000020: # MOD BY: RR BAIRNSFATHER LOG SECTION: R30
022648,000021: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
022649,000022: # MOD NO: 2 MOD BY ALONSO DATE : 11 DEC 67 VB82 PROGRAM REWRITTEN
022650,000023: # MOD NO: 3 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
022651,000024: # MOD NO- 4 MOD BY CROCKER DATE- 27 AUG 69 PROG MOD FOR TIME OPTION.
022652,000025: # NEW FUNCTIONAL DESCRIPTION- CALLED BY VERB 82 ENTER. PRIORITY 7
022653,000026: # USED THROUGHOUT. CALCULATE AND DISPLAY ORBITAL PARAMETERS
022654,000027:
022655,000028: # 1. IF AVERAGE G IS OFF:
022656,000029: # FLASH DISPLAY V04N12. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
022657,000030: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1) ASTRONAUT
022658,000031: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
022659,000032: # FLASH DISPLAY TIME V06N16. INITIAL CHOICE = 0 = PRESENT TIME.
022660,000033: # ASTRONAUT CAN INSERT A TIME BY V25E, R1=HR R2=MIN R3=CSEC.
022661,000034: # CHOSEN STATE VECTOR UPDATED TO CHOSEN TIME BY THISPREC/OTHPREC
022662,000035: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
022663,000036: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
022664,000037: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
022665,000038: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
022666,000039: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
022667,000040: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
022668,000041: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
022669,000042: # IF P00 IS RUNNING, CALL DELRSPL SPLASH ERROR COMPUTATION.
022670,000043: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
022671,000044: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
022672,000045: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
022673,000046:
022674,000047: # 2. IF AVERAGE G IS ON:
022675,000048: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
022676,000049: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
022677,000050: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
022678,000051: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
022679,000052: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
022680,000053: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
022681,000054:
022682,000055:
022683,000056: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
022684,000057: # ABOVE REMARKS.
022685,000058:
022686,000059: # CALLING SEQUENCE: VERB 82 ENTER.
022687,000060:
022688,000061:
022689,000062: # SUBROUTINES CALLED: SR30.1, GOXDSPF
022690,000063: # MAYBE - THISPREC, OTHPREC, LOADTIME, DELRSPL,
022691,000064: # VEHOPT, TIMEOPT
022692,000065: # NORMAL EXIT MODES: TC ENDEXT
022693,000066:
022694,000067: # ALARMS: NONE
|
|
Page 517 |
022696,000069:
022697,000070: # OUTPUT: HAPOX (-29) M
022698,000071: # HPERX (-29) M
022699,000072: # RAPO (-29) M EARTH
022700,000073: # (-27) M MOON
022701,000074: # RPER (-29) M EARTH
022702,000075: # (-27) M MOON
022703,000076: # TFF (-28) CS CONTAINS NEGATIVE QUANTITY
022704,000077: # -TPER (-28) CS CONTAINS NEGATIVE QUANTITY
022705,000078: # RSP-RREC (-29) M IF DELRSPL CALLED
022706,000079:
022707,000080: # ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
022708,000081:
022709,000082: # DEBRIS: QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
022710,000083: # MAYBE: TSTART82, V82FLAGS, TDEC1.
022711,000084:
022712,000085:
022713,000086: ??????? E4,1742 EBANK= HAPOX
022714,000087: ??????? 40,2000 SBANK= PINSUPER
022715,000088: 23,2000 SETLOC R30LOC
022716,000089: 23,2000 BANK
022717,000090: 23,2330 COUNT* $$/R30
022718,000091:
022719,000092: 23,2330 06006 V82CALL TC INTPRET
022720,000093: 23,2331 45014 BON CALL
022721,000094: 23,2332 00716 AVEGFLAG
022722,000095: 23,2333 46551 V82GON # IF AVERAGE G ON
022723,000096: 23,2334 50064 VEHOPT # IF OFF, ALLOW VEHICLE OPTION
022724,000097: 23,2335 77776 EXIT
022725,000098: 23,2336 34765 CAF BIT4 # 80 MS
022726,000099: 23,2337 05233 TC WAITLIST
022727,000100: 23,2340 E4,1734 EBANK= TFF
022728,000101: 23,2340 02514 46104 2CADR TICKTEST
022729,000102: 23,2342 00003 RELINT
022730,000103: 23,2343 30,2000 SBANK= LOWSUPER
022731,000104: 23,2343 32372 V82GOFLP CAF TFFBANK # MAJOR RECYCLE LOOP ENTRY
022732,000105: 23,2344 54003 TS EBANK
022733,000106: 23,2345 34772 CAF ZERO
022734,000107: 23,2346 55733 TS V82FLAGS # ZERO FLAGS FOR TICKTEST. INHIBITS
022735,000108: # DECREMENTING OF TFF AND -TPER.
022736,000109: 23,2347 35051 CAF PRIO7
022737,000110: 23,2350 05135 TC FINDVAC # V82GOFF1 WILL EXECUTE STATE VECTOR
022738,000111: 23,2351 E4,1734 EBANK= TFF # UPDATE AND ORBIT CALCULATIONS FOR
022739,000112: 23,2351 02373 46064 2CADR V82GOFF1 # SELECTED VEHICLE ABOUT PROPER BODY.
022740,000113: 23,2353 00003 RELINT
022741,000114: 23,2354 36214 V82STALL CAF THREE # STALL IN THIS LOOP AND WITHOLD V 16 N 44
022742,000115: 23,2355 71733 MASK V82FLAGS # UNTIL STATE VECTOR UPDATE SETS ONE OF
022743,000116: 23,2356 10000 CCS A # OUR FLAG BITS.
022744,000117: 23,2357 02363 TC FLAGGON # EXIT FROM STALL LOOP.
|
|
Page 518 |
022746,000119: 23,2360 04636 TC BANKCALL
022747,000120: 23,2361 01730 CADR 1SECDELY
022748,000121: 23,2362 02354 TC V82STALL
022749,000122:
022750,000123: 23,2363 32371 FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF.
022751,000124: 23,2364 04636 TC BANKCALL
022752,000125: 23,2365 20576 CADR GOXDSPF
022753,000126: 23,2366 05626 TC B5OFF # TERM THIS TELLS TICKTEST TO KILL ITSELF
022754,000127: 23,2367 05626 TC B5OFF # PROCEED DITTO
022755,000128: 23,2370 02343 TC V82GOFLP # RECYCLE RECOMPUTE STATE VECT + DISPLAY
022756,000129:
022757,000130: 23,2371 04054 V16N44 VN 1644
022758,000131: 23,2372 02334 TFFBANK ECADR TFF
022759,000132:
022760,000133:
022761,000134: 23,2373 06006 V82GOFF1 TC INTPRET
022762,000135: 23,2374 45145 DLOAD CALL
022763,000136: 23,2375 15336 ZEROVECS # INITIAL TIME = 0 = PRES. TIME
022764,000137: 23,2376 46424 TIMEOPT # ALLOW TIME SELECTION
022765,000138: 23,2377 16316 STODL TSTART82 # TIME FOR INTERNAL USE (=TDEC1 TIME)
022766,000139: 23,2400 01257 OPTIONEV
022767,000140: 23,2401 46142 SR1 BHIZ
022768,000141: 23,2402 46420 THISSHIP
022769,000142: 23,2403 77624 CALL # CALL STATE VECTOR UPDATE FOR OTHER SHIP.
022770,000143: 23,2404 27161 OTHPREC
022771,000144: 23,2405 77775 BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS
022772,000145: 23,2406 00001 RATT # TO BE CALLED BY SR30.1.
022773,000146: 23,2407 26320 STOVL RONE # RATT AT (-29)M FOR EARTH OR MOON
022774,000147: 23,2410 00007 VATT
022775,000148: 23,2411 16326 STODL VONE
022776,000149: 23,2412 00050 X2
022777,000150: 23,2413 45030 BHIZ CALL
022778,000151: 23,2414 46457 EARTHPAD
022779,000152: 23,2415 46635 MOONGON
022780,000153: 23,2416 77650 GOTO
022781,000154: 23,2417 46461 BOTHPAD
022782,000155: 23,2420 77624 THISSHIP CALL # CALL STATE VECTOR UPDATE FOR THIS SHIP.
022783,000156: 23,2421 27145 THISPREC
022784,000157: 23,2422 77650 GOTO
022785,000158: 23,2423 46405 BOTHSHIP
022786,000159:
022787,000160: 23,2424 01255 TIMEOPT STORE DSPTEMX
022788,000161: 23,2425 77420 +1 STQ EXIT
022789,000162: 23,2426 00734 VEHRET
022790,000163: 23,2427 32446 CAF V06N16X
022791,000164: 23,2430 04636 TC BANKCALL
022792,000165: 23,2431 20576 CADR GOXDSPF
022793,000166: 23,2432 05524 TC ENDEXT
022794,000167: 23,2433 02435 TC +2
022795,000168: 23,2434 02427 TC -5
|
|
Page 519 |
022797,000170: 23,2435 06006 TC INTPRET
022798,000171: 23,2436 53145 DLOAD BZE
022799,000172: 23,2437 01255 DSPTEMX
022800,000173: 23,2440 46443 GETNOW
022801,000174: 23,2441 34041 STRTDEC1 STCALL TDEC1
022802,000175: 23,2442 00734 VEHRET
022803,000176: 23,2443 52034 GETNOW RTB GOTO
022804,000177: 23,2444 51751 LOADTIME
022805,000178: 23,2445 46441 STRTDEC1
022806,000179: 23,2446 01420 V06N16X VN 0616
022807,000180: # THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS.
022808,000181:
022809,000182: 23,2447 27533 07571 1/RTMUM 2DEC* .45162595 E-4 B14*
022810,000183: 23,2451 25004 06702 1/RTMUE 2DEC* .50087529 E-5 B17*
022811,000184:
022812,000185: 23,2453 00001 11530 MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
022813,000186: 23,2455 00002 31230 MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH
022814,000187:
022815,000188: 23,2457 77624 EARTHPAD CALL
022816,000189: 23,2460 46647 EARTHGON
022817,000190: 23,2461 36314 BOTHPAD STCALL RPADTEM
022818,000191: 23,2462 46660 SR30.1 # CALCULATE ORBITAL PARAMETERS
022819,000192: 23,2463 46135 SLOAD BHIZ
022820,000193: 23,2464 01215 MODREG # ARE WE IN P00
022821,000194: 23,2465 46611 CANDEL # YES, DO DELRSPL
022822,000195: 23,2466 45234 SPLRET1 RTB DSU
022823,000196: 23,2467 51751 LOADTIME
022824,000197: 23,2470 02316 TSTART82 # PRESENT TIME - TIME V82GOFF1 BEGAN
022825,000198: 23,2471 16316 STODL TSTART82 # SAVE IT.
022826,000199: 23,2472 02337 -TPER # SR30.1 SETS -TPER=0 IF HPER L/
022827,000200: 23,2473 77654 BZE # HPERMIN (300 OR 35) KFT.
022828,000201: 23,2474 46504 TICKTFF # (-TPER = 0)
022829,000202: 23,2475 43345 TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED.
022830,000203: 23,2476 02337 -TPER # BUT WAS SET TO 59M59S.DONT DICK TFF, DO
022831,000204: 23,2477 02316 TSTART82 # TICK -TPER. DISPLAY BOTH.
022832,000205: 23,2500 02337 STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
022833,000206: 23,2501 77776 EXIT # BEGAN.
022834,000207: 23,2502 34770 CAF BIT1 # INFORMS TICKTEST TO INCREMENT ONLY -TPER
022835,000208: 23,2503 02512 TC TICKTFF +6
022836,000209: 23,2504 43345 TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED.TICK TFF.
022837,000210: 23,2505 02335 TFF # DO NOT TICK -TPER.DISPLAY TFF, BUT NOT
022838,000211: 23,2506 02316 TSTART82 # -TPER.
022839,000212: 23,2507 02335 STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1
022840,000213: 23,2510 77776 EXIT # BEGAN.
022841,000214: 23,2511 34767 CAF BIT2
022842,000215: 23,2512 55733 +6 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY TFF.
022843,000216: 23,2513 05205 TC ENDOFJOB
|
|
Page 520 |
022845,000218: 23,2514 34764 TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF
022846,000219: 23,2515 71247 MASK EXTVBACT # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
022847,000220: 23,2516 10000 CCS A
022848,000221: 23,2517 02525 TC DOTICK
022849,000222: 23,2520 37647 CAF PRIO25
022850,000223: 23,2521 05121 TC NOVAC # TERMINATE V 82.CANT CALL ENDEXT IN RUPT.
022851,000224: 23,2522 1247 EBANK= EXTVBACT
022852,000225: 23,2522 05524 04062 2CADR ENDEXT
022853,000226:
022854,000227: 23,2524 05314 TC TASKOVER
022855,000228: 23,2525 35016 DOTICK CAF 1SEC # RE-REQUEST TICKTEST.
022856,000229: 23,2526 05233 TC WAITLIST
022857,000230: 23,2527 E4,1734 EBANK= TFF
022858,000231: 23,2527 02514 46064 2CADR TICKTEST
022859,000232:
022860,000233: 23,2531 36214 CAF THREE
022861,000234: 23,2532 71733 MASK V82FLAGS
022862,000235: 23,2533 50000 INDEX A
022863,000236: 23,2534 02535 TC +1
022864,000237: 23,2535 05314 TC TASKOVER # IF NO FLAGBITS SET DONT CHANGE TFF OR
022865,000238: # -TPER, BUT CONTINUE LOOP.
022866,000239: 23,2536 02544 TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
022867,000240: 23,2537 35016 TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC.
022868,000241: 23,2540 54001 TS L
022869,000242: 23,2541 34772 CAF ZERO
022870,000243: 23,2542 21735 DAS TFF
022871,000244: 23,2543 05314 TC TASKOVER
022872,000245: 23,2544 35016 TPERTICK CAF 1SEC
022873,000246: 23,2545 54001 TS L
022874,000247: 23,2546 34772 CAF ZERO
022875,000248: 23,2547 21737 DAS -TPER
022876,000249: 23,2550 05314 TC TASKOVER
|
|
Page 521 |
022878,000251: 23,2551 77776 V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
022879,000252: # FOR ORBITAL PARAMETER CALCULATIONS.
022880,000253: 23,2552 35051 CAF PRIO7 # LESS THAN LAMBERT
022881,000254: 23,2553 05135 TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS
022882,000255: 23,2554 E4,1734 EBANK= TFF # ABOUT PROPER BODY APPROX ONCE PER SEC.
022883,000256: 23,2554 02567 46064 2CADR V82GON1
022884,000257:
022885,000258: 23,2556 00003 RELINT
022886,000259: 23,2557 10067 CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
022887,000260: 23,2560 05152 TC CHANG1 # IS DONE. NOTE:V82GON1 (PRIO7, FINDVAC
022888,000261: # JOB) IS COMPLETED BEFORE V82GON (PRIO7,
022889,000262: # NOVAC JOB).
022890,000263: 23,2561 32371 V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
022891,000264: 23,2562 04636 TC BANKCALL
022892,000265: 23,2563 20576 CADR GOXDSPF
022893,000266: 23,2564 05626 TC B5OFF # TERM THIS TELLS V82GON1 TO KILL ITSELF.
022894,000267: 23,2565 05626 TC B5OFF # PROC DITTO.
022895,000268: 23,2566 02561 TC V82REDSP # RECYCLE
022896,000269:
022897,000270: 23,2567 06006 V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF
022898,000271: # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
022899,000272: 23,2570 52175 VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND
022900,000273: 23,2571 01030 RN # VN FETCH SO RN , VN ARE FROM SAME
022901,000274: 23,2572 46573 NEXTLINE # STATE VECTOR UPDATE.
022902,000275: 23,2573 26320 NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON
022903,000276: 23,2574 01036 VN
022904,000277: 23,2575 02326 STORE VONE # VN AT (-7)M/CS FOR EARTH OR MOON
022905,000278: 23,2576 45014 BON CALL
022906,000279: 23,2577 00315 AMOONFLG # FLAG INDICATES BODY ABOUT WHICH ORBITAL
022907,000280: 23,2600 46631 MOONGONA # CALCULATIONS ARE TO BE PERFORMED.
022908,000281: 23,2601 46647 EARTHGON # IF SET - MOON , IF RESET - EARTH.
022909,000282:
022910,000283: 23,2602 36314 V82GON2 STCALL RPADTEM # COMMON CODE FOR EARTH & MOON.
022911,000284: 23,2603 46660 SR30.1
022912,000285: 23,2604 77776 EXIT
022913,000286: 23,2605 05354 TC CHECKMM
022914,000287: 23,2606 00013 DEC 11 B-14
022915,000288: 23,2607 02622 TC V82GON3 # NOT IN MODE 11.
022916,000289: 23,2610 06006 TC INTPRET # IN MODE 11 OR P00
022917,000290: 23,2611 77624 CANDEL CALL
022918,000291: 23,2612 27516 INTSTALL # DELRSPL DOES INTWAKE
022919,000292: 23,2613 45145 DLOAD CALL
022920,000293: 23,2614 02335 TFF
022921,000294: 23,2615 64027 DELRSPL # RETURN IS TO NEXT LINE ( SPLRET ).
022922,000295: 23,2616 46135 SPLRET SLOAD BHIZ
022923,000296: 23,2617 01215 MODREG
022924,000297: 23,2620 46466 SPLRET1
022925,000298: 23,2621 77776 EXIT
022926,000299: 23,2622 34764 V82GON3 CAF BIT5
022927,000300: 23,2623 71247 MASK EXTVBACT # SEE IF ASTRONAUT HAS SIGNALLED TERMINATE
|
|
Page 522 |
022929,000302: 23,2624 00006 EXTEND
022930,000303: 23,2625 15524 BZF ENDEXT # YES, TERMINATE VB 82 LOOP
022931,000304: 23,2626 04636 TC BANKCALL # WAIT ONE SECOND BEFORE REPEATING
022932,000305: 23,2627 01730 CADR 1SECDELY # ORBITAL PARAMETER COMPUTATION.
022933,000306: 23,2630 02567 TC V82GON1
022934,000307:
022935,000308: 23,2631 77624 MOONGONA CALL
022936,000309: 23,2632 46635 MOONGON
022937,000310: 23,2633 77650 GOTO
022938,000311: 23,2634 46602 V82GON2
022939,000312: 23,2635 71214 MOONGON SET DLOAD
022940,000313: 23,2636 04462 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
022941,000314: 23,2637 06450 1/RTMUM # LUNAR PARAMETERS LOADED HERE FOR SR30.1
022942,000315: 23,2640 14037 STODL TFF/RTMU
022943,000316: 23,2641 06454 MINPERM
022944,000317: 23,2642 26312 STOVL HPERMIN
022945,000318: 23,2643 02026 RLS # SCALED AT (-27)M.
022946,000319: 23,2644 77646 ABVAL
022947,000320: 23,2645 43414 SET RVQ
022948,000321: 23,2646 01463 LUNAFLAG # FOR LAT-LONG SUBROUTINE
022949,000322: 23,2647 71214 EARTHGON CLEAR DLOAD
022950,000323: 23,2650 04662 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
022951,000324: 23,2651 06452 1/RTMUE # EARTH PARAMETERS LOADED HERE FOR SR30.1
022952,000325: 23,2652 14037 STODL TFF/RTMU
022953,000326: 23,2653 06456 MINPERE
022954,000327: 23,2654 16312 STODL HPERMIN
022955,000328: 23,2655 05173 RPAD
022956,000329: 23,2656 43414 CLEAR RVQ
022957,000330: 23,2657 01663 LUNAFLAG # FOR LAT-LONG SUBROUTINE
022958,000331:
|
|
Page 523 |
022960,000333: # SUBROUTINE NAME: SR30.1
022961,000334: # MOD NO: 0 DATE: 16 FEB 67
022962,000335: # MOD BY: R. R. BAIRNSFATHER LOG SECTION: R32
022963,000336: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
022964,000337: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 14 APR 67 ADD OVFL CK FOR RAPO
022965,000338: # MOD NO: 3 MOD BY ALONSO DATE: 11 DEC 67 SUBROUTINE REWRITTEN
022966,000339: # MOD NO: 4 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
022967,000340: # MOD NO: 5 MOD BY: RR BAIRNSFATHER DATE: 6 AUG 68 OVFL CK FOR HAPO & HPER.VOIDS MOD #2.
022968,000341:
022969,000342: # NEW FUNCTIONAL DESCRIPTION: ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44.
022970,000343: # SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
022971,000344: # RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
022972,000345: # LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
022973,000346: # TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
022974,000347: # IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
022975,000348: # NEGATIVE IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
022976,000349: # CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO
022977,000350: # WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
022978,000351:
022979,000352: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
022980,000353: # ABOVE REMARKS.
022981,000354:
022982,000355: # CALLING SEQUENCE: CALL
022983,000356: # SR30.1
022984,000357: # SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
022985,000358: # NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
022986,000359: # ALARMS: NONE
022987,000360: # OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD.
022988,000361: # (-27) M MOON MOON CENTERED COORD.
022989,000362: # RPER (-29) M EARTH PERIGEE RADIUS EARTH CENTERED COORD.
022990,000363: # (-27) M MOON MOON CENTERED COORD.
022991,000364: # HAPOX (-29) M APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
022992,000365: # HPERX (-29) M PERIGEE ALT. ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
022993,000366: # TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE
022994,000367: # -TPER (-28) CS TIME TO PERIGEE
022995,000368: # ERASABLE INITIALIZATION REQUIRED -
022996,000369: # TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR
022997,000370: # (+14) MOON EARTH OR MOON = 1/SQRT(MU).
022998,000371: # RONE (-29) M STATE VECTOR
022999,000372: # VONE (-7) M/CS STATE VECTOR
023000,000373: # RPADTEM (-29) M EARTH RADIUS OF LAUNCH PAD OR LUNAR LANDING
023001,000374: # (-27) M MOON SITE.
023002,000375: # HPERMIN (-29) M EARTH (300 OR 35)KFT MINIMUM PERIGEE ALTITUDE
023003,000376: # (-27) M MOON ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
023004,000377: # V82EMFLG (INT SW BIT) RESET FOR EARTH, SET FOR MOON.
023005,000378:
023006,000379: # DEBRIS: QPRET, PDL, S2
023007,000380:
|
|
Page 524 |
023009,000382: 23,2660 COUNT* $$/SR30S
023010,000383:
023011,000384: 23,2660 44001 SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST.
023012,000385: 23,2661 00001 0
023013,000386: 23,2662 00051 S2
023014,000387: # SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
023015,000388: # VONE AT (-7)M/CS
023016,000389: # TFFCONMU,TFFRP/RA,CALCTPER AND CALCTFF
023017,000390: # CALLS REQUIRE :
023018,000391: # EARTH CENTERED (NO RESCALING REQUIRED)
023019,000392: # RONE SCALED TO B-29 M
023020,000393: # VONE SCALED TO B-7 M/CS
023021,000394: # MOON CENTERED (RESCALING REQUIRED)
023022,000395: # RONE SCALED TO B-27 M
023023,000396: # VONE SCALED TO B-5 M/CS
023024,000397: 23,2663 77214 BOFF VLOAD
023025,000398: 23,2664 04742 V82EMFLG # OFF FOR EARTH , ON FOR MOON.
023026,000399: 23,2665 46674 TFFCALLS
023027,000400: 23,2666 02320 RONE
023028,000401: 23,2667 77752 VSL2
023029,000402: 23,2670 26320 STOVL RONE
023030,000403: 23,2671 02326 VONE
023031,000404: 23,2672 77752 VSL2
023032,000405: 23,2673 02326 STORE VONE
023033,000406: 23,2674 77624 TFFCALLS CALL
023034,000407: 23,2675 57152 TFFCONMU
023035,000408: 23,2676 77624 CALL # TFFRP/RA COMPUTES RAPO,RPER.
023036,000409: 23,2677 57220 TFFRP/RA
023037,000410: # RETURNS WITH RAPO IN D(MPAC).
023038,000411: 23,2700 77625 DSU
023039,000412: 23,2701 02314 RPADTEM
023040,000413: 23,2702 64414 BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY.
023041,000414: # IF MOON CENTERED, RESCALE FROM (-27)M
023042,000415: # IF EARTH CENTERED ALREADY AT (-29)M.
023043,000416: 23,2703 04742 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
023044,000417: 23,2704 46705 +1
023045,000418: 23,2705 77624 CALL # IF HAPO > MAXNM, SET HAPO =9999.9 NM
023046,000419: 23,2706 46745 MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
023047,000420: 23,2707 16343 STORHAPO STODL HAPOX
023048,000421: 23,2710 00017 RPER
023049,000422: 23,2711 77625 DSU
023050,000423: 23,2712 02314 RPADTEM # GIVES HPER AT (-29)M EARTH, (-27)M MOON
023051,000424: 23,2713 00161 STORE MPAC +4 # SAVE THIS FOR COMPARISON TO HPERMIN.
023052,000425: 23,2714 64414 BOFF SR2R # NEED HPER AT (-29)M FOR DISPLAY.
023053,000426: # IF MOON CENTERED, RESCALE FROM (-27)M.
023054,000427: # IF EARTH CENTERED ALREADY AT (-29)M.
023055,000428: 23,2715 04742 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
023056,000429: 23,2716 46717 +1
023057,000430: 23,2717 77624 CALL # IF HPER > MAXNM, SET HPER = 9999.9 NM
023058,000431: 23,2720 46745 MAXCHK
|
|
Page 525 |
023060,000433: 23,2721 16345 STORHPER STODL HPERX # STORE (RPER - RPADTEM) INTO HPERX.
023061,000434: 23,2722 00161 MPAC +4
023062,000435: 23,2723 51025 DSU BPL # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
023063,000436: 23,2724 02312 HPERMIN # IF HPER L/ HPERMIN (300 OR 35)KFT,
023064,000437: 23,2725 46731 DOTPER # THEN ZERO INTO -TPER.
023065,000438: 23,2726 52145 DLOAD GOTO # OTHERWISE CALCULATE TPER.
023066,000439: 23,2727 15336 HI6ZEROS
023067,000440: 23,2730 46735 SKIPTPER
023068,000441: 23,2731 45145 DOTPER DLOAD CALL
023069,000442: 23,2732 00017 RPER
023070,000443: 23,2733 57256 CALCTPER
023071,000444: 23,2734 77676 DCOMP # TPER IS PUT NEG INTO -TPER.
023072,000445: 23,2735 16337 SKIPTPER STODL -TPER
023073,000446: 23,2736 02312 HPERMIN # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
023074,000447: 23,2737 45015 DAD CALL
023075,000448: 23,2740 02314 RPADTEM # RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
023076,000449: 23,2741 57261 CALCTFF # GIVES 59M59S FOR TFF IF RPER G/
023077,000450: 23,2742 77676 DCOMP # HPERMIN + RPADTEM. (TPER WAS NON ZERO)
023078,000451: 23,2743 36335 STCALL TFF # OTHERWISE COMPUTES TFF. (GOTO)
023079,000452: 23,2744 00051 S2
023080,000453:
023081,000454: 23,2745 51025 MAXCHK DSU BPL # IF C(MPAC) > 9999.9 NM. MPAC = 9999.9 NM
023082,000455: 23,2746 06755 MAXNM
023083,000456: 23,2747 46752 +3 # OTHERWISE C(MPAC) = B(MPAC).
023084,000457: 23,2750 43415 DAD RVQ
023085,000458: 23,2751 06755 MAXNM
023086,000459: 23,2752 43545 +3 DLOAD RVQ # (USED BY P30 - P37 ALSO)
023087,000460: 23,2753 06755 MAXNM
023088,000461:
023089,000462: 23,2754 01065 05603 MAXNM 2OCT 0106505603
023090,000463:
|
|
Page 526 |
023092,000465:
023093,000466: # *** END OF MEDUSA .035 ***
End of include-file R30.agc. Parent file is MAIN.agc