Source Code

029841,000001: # Copyright: Public domain. 029842,000002: # Filename: R30.agc 029843,000003: # Purpose: A section of Luminary 1C, revision 131. 029844,000004: # It is part of the source code for the Lunar Module's (LM) 029845,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 029846,000006: # This file is intended to be a faithful transcription, except 029847,000007: # that the code format has been changed to conform to the 029848,000008: # requirements of the yaYUL assembler rather than the 029849,000009: # original YUL assembler. 029850,000010: # Reference: pp. 719-729 of 1729.pdf. 029851,000011: # Contact: Ron Burkey <info@sandroid.org>. 029852,000012: # Website: www.ibiblio.org/apollo/index.html 029853,000013: # Mod history: 05/24/03 RSB. Began transcribing. 029854,000014: # 05/14/05 RSB Corrected website reference above. 029855,000015: 029856,000016: # Page 719 029857,000017: # SUBROUTINE NAME: V82CALL 029858,000018: # MOD NO: 0 DATE: 16 FEB 67 029859,000019: # MOD BY: R. R. BAIRNSFATHER LOG SECTION: R30 029860,000020: # MOD NO: 1 MOD BY: R. R. BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN 029861,000021: # MOD NO: 2 MOD BY: ALONSO DATE: 11 DEC 67 VB82 PROGRAM REWRITTEN 029862,000022: # MOD NO: 3 MOD BY: ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE 029863,000023: 029864,000024: # NEW FUNCTIONAL DESCRIPTION: CALLED BY VERB 82 ENTER. PRIORITY 10. 029865,000025: # USED THROUGHOUT. CALCULATE AND DISPLAY ORBITAL PARAMETERS 029866,000026: 029867,000027: # 1. IF AVERAGE G IS OFF: 029868,000028: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS 029869,000029: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2-1). ASTRONAUT 029870,000030: # CAN CHANGE TO OTHER SHIP BY V22EXE. WHERE X IS NOT EQ 1. 029871,000031: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC). 029872,000032: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE 029873,000033: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE 029874,000034: # HEIGHT ABOVE LAUNCH PAD OR LAUNAR LANDING SITE), HARD (APOGEE 029875,000035: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO 029876,000036: # INTERSECT 300 KFT ABOVE PAD OR 36KFT ABOVE LANDING SITE). 029877,000037: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59MS59S IF IT WAS 029878,000038: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND. 029879,000039: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KING IN N 32 E. 029880,000040: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS 029881,000041: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S. 029882,000042: # 2. IF AVERAGE G IS ON: 029883,000043: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS 029884,000044: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS 029885,000045: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF. 029886,000046: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). 029887,000047: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE 029888,000048: # ABOVE REMARKS. 029889,000049: 029890,000050: # CALLING SEQUENCE: VERB 82 ENTER. 029891,000051: 029892,000052: # SUBROUTINES CALLED: SR30.1, GOXDSPF 029893,000053: # MAYBE -- THISPREC, OTHPREC, LOADTIME, DELRSPL 029894,000054: 029895,000055: # NORMAL EXIT MODES: tc endext 029896,000056: 029897,000057: # ALARMS: NONE 029898,000058: 029899,000059: # OUTPUT: HAPOX (-29) M 029900,000060: # HPERX (-29) M 029901,000061: # RAPO (-29) M EARTH 029902,000062: # (-27) M MOON 029903,000063: # RPER (-29) M EARTH 029904,000064: # (-27) M MOON 029905,000065: # TFF (-28) CS CONTAINS NEGATIVE QUANTITY 029906,000066: # -TPER (-28) CS CONTAINS NEGATIVE QUANTITY 029907,000067: 029908,000068: # Page 720 029909,000069: # ERASABLE INITIALIZATION REQUIRED: STATE VECTOR. 029910,000070: 029911,000071: # DEBRIS: QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG. 029912,000072: # MAYBE: TSTART82, V82FLAGS, TDEC1. 029913,000073: 029914,000074: 13,2347 E4,1517 EBANK= HAPOX 029915,000075: 31,2144 BANK 31 029916,000076: 22,2000 SETLOC R30LOC 029917,000077: 22,2000 BANK 029918,000078: 22,3242 COUNT* $$/R30 029919,000079: 029920,000080: 22,3242 06042 V82CALL TC INTPRET 029921,000081: 22,3243 52014 BON GOTO 029922,000082: 22,3244 03712 AVEGFLAG 029923,000083: 22,3245 45465 V82GON # IF AVERAGE G ON 029924,000084: 22,3246 45247 V82GOFF # IF AVERAGE G OFF 029925,000085: 029926,000086: 22,3247 77776 V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE 029927,000087: 22,3250 34752 CAF TWO # DESIRED FOR ORBITAL PARAMETERS 029928,000088: 22,3251 55050 TS OPTIONX # CALCULATION AND DISPLAY. 029929,000089: 22,3252 34753 CAF ONE 029930,000090: 22,3253 55051 TS OPTIONX +1 029931,000091: 22,3254 33316 CAF OPTIONVN # V 04 N 06 029932,000092: 22,3255 04616 TC BANKCALL 029933,000093: 22,3256 20334 CADR GOXDSPF 029934,000094: 22,3257 05472 TC ENDEXT # TERMINATE 029935,000095: 22,3260 03262 TC +2 # PROCEED 029936,000096: 22,3261 03254 TC -5 # DATA IN. OPTION1+1 = 1 FOR THIS VEHICLE 029937,000097: # UNEQ 1 FOR OTHER VEHICLE 029938,000098: 22,3262 34750 CAF BIT4 # 80 MS 029939,000099: 22,3263 05203 TC WAITLIST 029940,000100: 22,3264 E4,1540 EBANK= TFF 029941,000101: 22,3264 03430 44064 2CADR TICKTEST 029942,000102: 029943,000103: 22,3266 00003 RELINT 029944,000104: 22,3267 33320 V82GOFLP CAF TFFBANK # MAJOR RECYCLE LOOP ENTRY 029945,000105: 22,3270 54003 TS EBANK 029946,000106: 22,3271 34755 CAF ZERO 029947,000107: 22,3272 55537 TS V82FLAGS # ZERO FLAGS FOR TICKTEST, INHIBITS 029948,000108: # DECREMENTING OF TFF AND -TPER. 029949,000109: 22,3273 35021 CAF PRIO7 029950,000110: 22,3274 05105 TC FINDVAC # V82GOFF1 WILL EXECUTE STATE VECTOR 029951,000111: 22,3275 E4,1540 EBANK= TFF # UPDATE AND ORBIT CALCULATIONS FOR 029952,000112: 22,3275 03321 44064 2CADR V82GOFF1 # SELECTED VEHICLE ABOUT PROPER BODY. 029953,000113: 029954,000114: 22,3277 00003 RELINT 029955,000115: 22,3300 36250 V82STALL CAF THREE # STALL IN THIS LOOP AND WITHOLD V 16 N 44 029956,000116: # Page 721 029957,000117: 22,3301 71537 MASK V82FLAGS # UNTIL STATE VECTOR UPDATE SETS ONE OF 029958,000118: 22,3302 10000 CCS A # OUR FLAG BITS. 029959,000119: 22,3303 03310 TC FLAGGON # EXIT FROM STALL LOOP. 029960,000120: 22,3304 34777 CAF 1SEC 029961,000121: 22,3305 04616 TC BANKCALL 029962,000122: 22,3306 01736 CADR DELAYJOB 029963,000123: 22,3307 03300 TC V82STALL 029964,000124: 029965,000125: 22,3310 33317 FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF. 029966,000126: 22,3311 04616 TC BANKCALL 029967,000127: 22,3312 20334 CADR GOXDSPF 029968,000128: 22,3313 05563 TC B5OFF # TERM. THIS TELLS TICKTEST TO KILL ITSELF 029969,000129: 22,3314 05563 TC B5OFF # PROCEED. DITTO 029970,000130: 22,3315 03267 TC V82GOFLP # RECYCLE. RECOMPUTE STATE VECT + DISPLAY 029971,000131: 029972,000132: 22,3316 01014 OPTIONVN VN 412 029973,000133: 22,3317 04054 V16N44 VN 1644 029974,000134: 22,3320 02140 TFFBANK ECADR TFF 029975,000135: 029976,000136: 22,3321 06042 V82GOFF1 TC INTPRET 029977,000137: 22,3322 77634 RTB 029978,000138: 22,3323 21574 LOADTIME 029979,000139: 22,3324 00041 STORE TDEC1 # TIME FOR STATE VECTOR UPDATE. 029980,000140: 22,3325 02205 STORE TSTART82 # TIME FOR INTERNAL USE. 029981,000141: 22,3326 77776 EXIT 029982,000142: 22,3327 41051 CS OPTIONX +1 # 1 FOR THIS VEHICLE, NOT 1 FOR OTHER. 029983,000143: 22,3330 64753 AD ONE 029984,000144: 22,3331 00006 EXTEND 029985,000145: 22,3332 13356 BZF THISSHIP 029986,000146: 22,3333 06042 OTHSHIP TC INTPRET 029987,000147: 22,3334 77624 CALL # CALL STATE VECTOR UPDATE FOR OTHER SHIP. 029988,000148: 22,3335 27042 OTHPREC 029989,000149: 22,3336 77775 BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS 029990,000150: 22,3337 00001 RATT # TO BE CALLED BY SR30.1. 029991,000151: 22,3340 26207 STOVL RONE # RATT AT (-29)M FOR EARTH OR MOON. 029992,000152: 22,3341 00007 VATT 029993,000153: 22,3342 02215 STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON 029994,000154: 22,3343 77743 DLOAD* 029995,000155: 22,3344 73774 1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC 029996,000156: 22,3345 00037 STORE TFF/RTMU # X2 IS 2 FOR MOON 029997,000157: 22,3346 77743 DLOAD* # AS LEFT BY THISPREC OR OTHPREC. 029998,000158: 22,3347 72411 MINPERE,2 029999,000159: 22,3350 02201 STORE HPERMIN # TFFRTMU, HPERMIN, AND RPADTEM ARE ALL 030000,000160: 22,3351 46135 SLOAD BHIZ # EARTH/MOON PARAMETERS AS SET HERE. 030001,000161: 22,3352 00050 X2 030002,000162: 22,3353 45367 EARTHPAD 030003,000163: 22,3354 77650 GOTO 030004,000164: 22,3355 45373 MOONPAD 030005,000165: # Page 722 030006,000166: 22,3356 06042 THISSHIP TC INTPRET 030007,000167: 22,3357 77624 CALL # CALL STATE VECTOR UPDATE FOR THIS SHIP. 030008,000168: 22,3360 27056 THISPREC 030009,000169: 22,3361 77650 GOTO 030010,000170: 22,3362 45336 BOTHSHIP 030011,000171: 030012,000172: # THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS. 030013,000173: 030014,000174: 22,3363 00001 11530 MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M 030015,000175: 22,3365 00002 31230 MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH 030016,000176: 030017,000177: 22,3367 43145 EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M 030018,000178: 22,3370 06340 RPAD 030019,000179: 22,3371 03635 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1 030020,000180: 22,3372 45377 BOTHPAD 030021,000181: 030022,000182: 22,3373 51575 MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR. 030023,000183: 22,3374 02023 RLS # SCALED AT (-27)M 030024,000184: 22,3375 77614 SET 030025,000185: 22,3376 03475 V82EMFLG # INDICATE MOON SCALILNG FOR SR30.1 030026,000186: 22,3377 36203 BOTHPAD STCALL RPADTEM 030027,000187: 22,3400 45551 SR30.1 # CALCULATE ORBITAL PARAMETERS 030028,000188: 22,3401 45234 RTB DSU 030029,000189: 22,3402 21574 LOADTIME 030030,000190: 22,3403 02205 TSTART82 # PRESENT TIME -- TIME V82GOFF1 BEGAN 030031,000191: 22,3404 02205 STORE TSTART82 # SAVE IT 030032,000192: 22,3405 53145 DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/ 030033,000193: 22,3406 02143 -TPER # HPERMIN (300 OR 35) KFT. 030034,000194: 22,3407 45420 TICKTIFF # (-TPER = 0) 030035,000195: 22,3410 43345 TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED. 030036,000196: 22,3411 02143 -TPER # BUT WAS SET TO 59M59S. DON'T DICK TFF, DO 030037,000197: 22,3412 02205 TSTART82 # TICK -TPER. DISPLAY BOTH. 030038,000198: 22,3413 02143 STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1 030039,000199: 22,3414 77776 EXIT # BEGAN 030040,000200: 22,3415 34753 CAF BIT1 030041,000201: 22,3416 55537 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER 030042,000202: 22,3417 05155 TC ENDOFJOB 030043,000203: 030044,000204: 22,3420 43345 TICKTIFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF. 030045,000205: 22,3421 02141 TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT 030046,000206: 22,3422 02205 TSTART82 # -TPER. 030047,000207: 22,3423 02141 STORE TFF # TFF CORRECTED FRO TIME SINCE V82GOFF1 030048,000208: 22,3424 77776 EXIT # BEGAN. 030049,000209: 22,3425 34752 CAF BIT2 030050,000210: 22,3426 55537 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY TFF. 030051,000211: 22,3427 05155 TC ENDOFJOB 030052,000212: 030053,000213: # Page 723 030054,000214: 22,3430 34747 TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF 030055,000215: 22,3431 71043 MASK EXTVBACT # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0. 030056,000216: 22,3432 10000 CCS A 030057,000217: 22,3433 03441 TC DOTICK 030058,000218: 22,3434 37716 CAF PRIO25 030059,000219: 22,3435 05072 TC NOVAC # TERMINATE V 82. CAN'T CALL ENDEXT IN RUPT. 030060,000220: 22,3436 1043 EBANK= EXTVBACT 030061,000221: 22,3436 05472 04062 2CADR ENDEXT 030062,000222: 030063,000223: 22,3440 05261 TC TASKOVER 030064,000224: 22,3441 34777 DOTICK CAF 1SEC # RE-REQUEST TICKTEST. 030065,000225: 22,3442 05203 TC WAITLIST 030066,000226: 22,3443 E4,1540 EBANK= TFF 030067,000227: 22,3443 03430 44064 2CADR TICKTEST 030068,000228: 030069,000229: 22,3445 36250 CAF THREE 030070,000230: 22,3446 71537 MASK V82FLAGS 030071,000231: 22,3447 50000 INDEX A 030072,000232: 22,3450 03451 TC +1 030073,000233: 22,3451 05261 TC TASKOVER # IF NO FLAGBITS SET DONT' CHANGE TFF OR 030074,000234: # -TPER, BUT CONTINUE LOOP. 030075,000235: 22,3452 03460 TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC. 030076,000236: 22,3453 34777 TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC. 030077,000237: 22,3454 54001 TS L 030078,000238: 22,3455 34755 CAF ZERO 030079,000239: 22,3456 21541 DAS TFF 030080,000240: 22,3457 05261 TC TASKOVER 030081,000241: 22,3460 34777 TPERTICK CAF 1SEC 030082,000242: 22,3461 54001 TS L 030083,000243: 22,3462 34755 CAF ZERO 030084,000244: 22,3463 21543 DAS -TPER 030085,000245: 22,3464 05261 TC TASKOVER 030086,000246: 030087,000247: # Page 724 030088,000248: 22,3465 77776 V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR 030089,000249: # FOR ORBITAL PARAMETER CALCULATIONS. 030090,000250: 22,3466 35021 CAF PRIO7 # LESS THAN LAMBERT 030091,000251: 22,3467 05105 TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS 030092,000252: 22,3470 E4,1540 EBANK= TFF # ABOUT PROPER BODY APPROX ONCE PER SEC. 030093,000253: 22,3470 03503 44064 2CADR V82GON1 030094,000254: 030095,000255: 22,3472 00003 RELINT 030096,000256: 22,3473 10067 CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC 030097,000257: 22,3474 05122 TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC 030098,000258: # JOB) IS COMPLETED BEFORE V82GON (PRIO7, 030099,000259: # NOVAC JOB). 030100,000260: 22,3475 33317 V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF 030101,000261: 22,3476 04616 TC BANKCALL 030102,000262: 22,3477 20334 CADR GOXDSPF 030103,000263: 22,3500 05563 TC B5OFF # TERM THIS TELLS V82GON1 TO KILL ITSELF. 030104,000264: 22,3501 05563 TC B5OFF # PROC DITTO. 030105,000265: 22,3502 03475 TC V82REDSP # RECYCLE 030106,000266: 030107,000267: 22,3503 06042 V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF 030108,000268: # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0. 030109,000269: 22,3504 52175 VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND 030110,000270: 22,3505 01220 RN # VN FETCH SO RN, VN ARE FROM SAME 030111,000271: 22,3506 45507 NEXTLINE # STATE VECTOR UPDATE. 030112,000272: 22,3507 26207 NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON 030113,000273: 22,3510 01226 VN 030114,000274: 22,3511 02215 STORE VONE # VN AT (-7)M/CS FOR EARTH OR MOON 030115,000275: 22,3512 52014 BON GOTO 030116,000276: 22,3513 04304 MOONTHIS # FLAG INDICATES BODY ABOUT WHICH ORBITAL 030117,000277: 22,3514 45516 MOONGON # CALCULATIONS ARE TO BE PERFORMED. 030118,000278: 22,3515 45527 EARTHGON # IF SET -- MOON, IF RESET --EARTH. 030119,000279: 030120,000280: 22,3516 71214 MOONGON SET DLOAD 030121,000281: 22,3517 03475 V82EMFLG # FLAG INDICATES BODY ABOUT WHICH ORBITAL 030122,000282: 22,3520 04001 1/RTMUM # LUNAR PARAMETERS LOADED HERE FOR SR30.1 030123,000283: 22,3521 14037 STODL TFF/RTMU 030124,000284: 22,3522 05364 MINPERM 030125,000285: 22,3523 26201 STOVL HPERMIN 030126,000286: 22,3524 02023 RLS # SCALED AT (-27)M 030127,000287: 22,3525 52046 ABVAL GOTO 030128,000288: 22,3526 45536 V82GON2 030129,000289: 22,3527 71214 EARTHGON CLEAR DLOAD 030130,000290: 22,3530 03675 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1 030131,000291: 22,3531 04003 1/RTMUE # EARTH PARAMETERS LOADED HERE FOR SR30.1 030132,000292: 22,3532 14037 STODL TFF/RTMU 030133,000293: 22,3533 05366 MINPERE 030134,000294: 22,3534 16201 STODL HPERMIN 030135,000295: 22,3535 06340 RPAD 030136,000296: 22,3536 36203 V82GON2 STCALL RPADTEM # COMMON CODE FOR EARTH & MOON. 030137,000297: 22,3537 45551 SR30.1 030138,000298: # Page 725 030139,000299: 22,3540 77776 EXIT 030140,000300: 22,3541 34747 V82GON3 CAF BIT5 030141,000301: 22,3542 71043 MASK EXTVBACT # SEE IF ASTRONAUT HAS SIGNALLED TERMINATE 030142,000302: 22,3543 00006 EXTEND 030143,000303: 22,3544 15472 BZF ENDEXT # YES, TERMINATE VB 82 LOOP 030144,000304: 22,3545 34777 CAF 1SEC 030145,000305: 22,3546 04616 TC BANKCALL # WAIT ONE SECOND BEFORE REPEATING 030146,000306: 22,3547 01736 CADR DELAYJOB # ORBITAL PARAMETER COMPUTATION. 030147,000307: 22,3550 03503 TC V82GON1 030148,000308: 030149,000309: 22,3551 22,3541 SPLRET = V82GON3 030150,000310: 030151,000311: # Page 726 030152,000312: # SUBROUTINE NAME: SR30.1 030153,000313: # MOD NO: 0 DATE: 16 FEB 67 030154,000314: # MOD BY: R. R. BAIRNSFATHER LOG SECTION: R32 030155,000315: # MOD NO: 1 MOD BY: R. R. BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN 030156,000316: # MOD NO: 2 MOD BY: R. R. BAIRNSFATHER DATE: 14 APR 67 ADD OVFL CK FOR RAPO 030157,000317: # MOD NO: 3 MOD BY ALONSO DATE: 11 DEC 67 SUBROUTINE REWRITTEN 030158,000318: # MOD NO: 4 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE 030159,000319: # MOD NO: 5 MOD BY: R. R. BAIRNSFATHER DATE: 6 AUG 68 OVFL CK FOR HAPO & HPER. VOIDS MOD #2. 030160,000320: 030161,000321: # NEW FUNCTIONAL DESCRIPTION: ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44. 030162,000322: # SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS), 030163,000323: # RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR 030164,000324: # LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), 030165,000325: # TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE). 030166,000326: # IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES 030167,000327: # NEGATIVE. IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS 030168,000328: # CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO 030169,000329: # WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY. 030170,000330: 030171,000331: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE 030172,000332: # ABOVE REMARKS. 030173,000333: 030174,000334: # CALLING SEQUENCE: CALL 030175,000335: # SR30.1 030176,000336: 030177,000337: # SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF 030178,000338: 030179,000339: # NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE) 030180,000340: 030181,000341: # ALARMS: NONE 030182,000342: 030183,000343: # OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD. 030184,000344: # (-27) M MOON MOON CENTERED COORD. 030185,000345: # RPER (-29) M EARTH PERIGEE RADIUS EARTH CENTERED COORD. 030186,000346: # (-27) M MOON MOON CENTERED COORD. 030187,000347: # HAPOX (-29) M APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM. 030188,000348: # HPERX (-29) M PERIGEE ALT. ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM. 030189,000349: # TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE 030190,000350: # -TPER (-28) CS TIME TO PERIGEE 030191,000351: 030192,000352: # ERASABLE INITIALIZATION REQUIRED -- 030193,000353: # TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR 030194,000354: # (+14) MOON EARTH OR MOON = 1/SQRT(MU). 030195,000355: # RONE (-29) M STATE VECTOR 030196,000356: # VONE (-7) M/CS STATE VECTOR 030197,000357: # RPADTEM (-29) M EARTH RADIUS OF LAUNCH PAD OR LUNAR LANDING 030198,000358: # (-27) M MOON SITE. 030199,000359: # HPERMIN (-29) M EARTH (300 OR 35) KFT MINIMUM PERIGEE ALTITUDE 030200,000360: # (-27) M MOON ABOVE LAUNCH PAD OR LUNAR LANDING SITE. 030201,000361: # V82EMFLG (INT SW BIT) RESET FOR EARTH, SET FOR MOON. 030202,000362: 030203,000363: # DEBRIS: QPREG, PDL, S2 030204,000364: 030205,000365: # Page 727 030206,000366: 22,3551 COUNT* $$/SR30S 030207,000367: 030208,000368: 22,3551 44001 SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST. 030209,000369: 22,3552 00001 0 030210,000370: 22,3553 00051 S2 030211,000371: # SR30.1 INPUT: RONE AT (-29)M EARTH/MOON 030212,000372: # VONE AT (-7)M/CS 030213,000373: # TFFCONMU, TFFRP/RA, CALCTPER, AND CALCTFF 030214,000374: # CALLS REQUIRE: 030215,000375: # EARTH CENTERED (NO RESCALING REQUIRED) 030216,000376: # RONE SCALED TO B-29 M 030217,000377: # VONE SCALED TO B-7 M/CS 030218,000378: # MOON CENTERED (RESCALING REQUIRED) 030219,000379: # RONE SCALED TO B-27 M 030220,000380: # VONE SCALED TO B-5 M/CS 030221,000381: 22,3554 77214 BOFF VLOAD 030222,000382: 22,3555 03755 V82EMFLG # OFF FOR EARTH, ON FOR MOON. 030223,000383: 22,3556 45565 TFFCALLS 030224,000384: 22,3557 02207 RONE 030225,000385: 22,3560 77752 VSL2 030226,000386: 22,3561 26207 STOVL RONE 030227,000387: 22,3562 02215 VONE 030228,000388: 22,3563 77752 VSL2 030229,000389: 22,3564 02215 STORE VONE 030230,000390: 22,3565 77624 TFFCALLS CALL 030231,000391: 22,3566 57362 TFFCONMU 030232,000392: 22,3567 77624 CALL # TFFRP/RA COMPUTES RAPO,RPER. 030233,000393: 22,3570 57430 TFFRP/RA 030234,000394: # RETURNS WITH RAPO IN D(MPAC). 030235,000395: 22,3571 77625 DSU 030236,000396: 22,3572 02203 RPADTEM 030237,000397: 22,3573 64414 BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY. 030238,000398: # IF MOON CENTERED, RESCALE FROM (-27)M. 030239,000399: # IF EARTH CENTERED ALREADY AT (-29)M. 030240,000400: 22,3574 03755 V82EMFLG 030241,000401: 22,3575 45576 +1 030242,000402: 22,3576 77624 CALL # IF RAPO > MAXNM, SET RAPO =9999.9 NM. 030243,000403: 22,3577 45636 MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO. 030244,000404: 22,3600 16120 STORHAPO STODL HAPOX 030245,000405: 22,3601 00017 RPER 030246,000406: 22,3602 77625 DSU 030247,000407: 22,3603 02203 RPADTEM # GIVES HPER AT (-29)M EARTH, (-27)M MOON. 030248,000408: 22,3604 00161 STORE MPAC +4 # SAVE THIS FOR COMPARISON TO HPERMIN. 030249,000409: 22,3605 64414 BOFF SR2R # NEED HPER AT (-29)M FOR DISPLAY. 030250,000410: # IF MOON CENTERED, RESCALE FROM (-27)M. 030251,000411: # IF EARTH CENTERED ALREADY AT (-29)M. 030252,000412: 22,3606 03755 V82EMFLG # OFF FOR EARTH, ON FOR MOON. 030253,000413: 22,3607 45610 +1 030254,000414: 22,3610 77624 CALL # IF HPER > MAXNM, SET HPER = 9999.9 NM. 030255,000415: 22,3611 45636 MAXCHK 030256,000416: # Page 728 030257,000417: 22,3612 16122 STORHPER STODL HPERX # STORE (RPER - RPADTEM) INTO HPERX. 030258,000418: 22,3613 00161 MPAC +4 030259,000419: 22,3614 51025 DSU BPL # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON 030260,000420: 22,3615 02201 HPERMIN # IF HPER L/ HPERMIN (300 OR 35) KFT, 030261,000421: 22,3616 45622 DOTPER # THEN ZERO INTO -TPER. 030262,000422: 22,3617 52145 DLOAD GOTO # OTHERWISE CALCULATE TPER. 030263,000423: 22,3620 06524 HI6ZEROS 030264,000424: 22,3621 45626 SKIPTPER 030265,000425: 22,3622 45145 DOTPER DLOAD CALL 030266,000426: 22,3623 00017 RPER 030267,000427: 22,3624 57466 CALCTPER 030268,000428: 22,3625 77676 DCOMP # TPER IS PUT NEG INTO -TPER. 030269,000429: 22,3626 16143 SKIPTPER STODL -TPER 030270,000430: 22,3627 02201 HPERMIN # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON 030271,000431: 22,3630 45015 DAD CALL 030272,000432: 22,3631 02203 RPADTEM # RPADTEM AT (-29)M FOR EARTH, (-27)M MOON 030273,000433: 22,3632 57471 CALCTFF # GIVES 59M59S FOR TFF IF HPER G/ 030274,000434: 22,3633 77676 DCOMP # HPERMIN + RPADTEM. (TPER WAS NON ZERO) 030275,000435: 22,3634 36141 STCALL TFF # OTHERWISE COMPUTES TFF. (GOTO) 030276,000436: 22,3635 00051 S2 030277,000437: 030278,000438: 22,3636 51025 MAXCHK DSU BPL # IF C(MPAC) > 9999.9 NM. MPAC = 9999.9 NM. 030279,000439: 22,3637 05646 MAXNM 030280,000440: 22,3640 45643 +3 # OTHERWISE C(MPAC) - B(MPAC). 030281,000441: 22,3641 43415 DAD RVQ 030282,000442: 22,3642 05646 MAXNM 030283,000443: 22,3643 43545 +3 DLOAD RVQ # (USED BY P30 -- P37 ALSO) 030284,000444: 22,3644 05646 MAXNM 030285,000445: 030286,000446: 22,3645 01065 05603 MAXNM 2OCT 0106505603 030287,000447: 030288,000448: # Page 729 030289,000449: 030290,000450: # *** END OF KILLING .055 *** End of include-file R30.agc. Parent file is MAIN.agc