Source Code
|
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release
of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
031174,000002: ## Copyright: Public domain.
031175,000003: ## Filename: R30.agc
031176,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
031177,000005: ## otherwise known as Luminary Rev 99, the third release
031178,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
031179,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
031180,000008: ## placement of a single label. The corrections shown here have
031181,000009: ## been verified to have the same bank checksums as AGC developer
031182,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
031183,000011: ## to be accurate. This file is intended to be a faithful
031184,000012: ## recreation, except that the code format has been changed to
031185,000013: ## conform to the requirements of the yaYUL assembler rather than
031186,000014: ## the original YUL assembler.
031187,000015: ##
031188,000016: ## Assembler: yaYUL
031189,000017: ## Contact: Ron Burkey <info@sandroid.org>.
031190,000018: ## Website: www.ibiblio.org/apollo.
031191,000019: ## Pages: 712-722
031192,000020: ## Mod history: 2009-05-19 RSB Adapted from the corresponding
031193,000021: ## Luminary131 file, using page
031194,000022: ## images from Luminary 1A.
031195,000023: ## 2009-06-07 RSB Removed a space between two components of
031196,000024: ## a 2OCT that isn't legal in yaYUL.
031197,000025: ## 2016-12-14 RSB Proofed text comments with octopus/ProoferComments
031198,000026: ## and corrected the errors found.
031199,000027: ## 2017-02-08 RSB Comment-text fixes discovered while proofing Artemis 72.
031200,000028: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
031201,000029: ## side-by-side diff of Luminary 69/99/116/131/210.
031202,000030: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
031203,000031: ## Luminary 99 vs Comanche 55.
031204,000032: ## 2017-08-01 MAS Created from LMY99 Rev 1.
031205,000033: ## 2021-05-30 ABS TICKTIFF -> TICKTFF
031206,000034:
031207,000035: ## This source code has been transcribed or otherwise adapted from
031208,000036: ## digitized images of a hardcopy from the MIT Museum. The digitization
031209,000037: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
031210,000038: ## the Museum. Many thanks to both. The images (with suitable reduction
031211,000039: ## in storage size and consequent reduction in image quality as well) are
031212,000040: ## available online at www.ibiblio.org/apollo. If for some reason you
031213,000041: ## find that the images are illegible, contact me at info@sandroid.org
031214,000042: ## about getting access to the (much) higher-quality images which Paul
031215,000043: ## actually created.
031216,000044: ##
031217,000045: ## The code has been modified to match LMY99 Revision 0, otherwise
031218,000046: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
031219,000047: ## the listing from which it was transcribed. It has been verified to
031220,000048: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
031221,000049: ## of Luminary Revision 99 (for which we do not have scans).
031222,000050: ##
031223,000051: ## Notations on Allan Klumpp's listing read, in part:
031224,000052: ##
031225,000053: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
031226,000054:
|
|
Page 712 |
031228,000056: # SUBROUTINE NAME: V82CALL
031229,000057: # MOD NO: 0 DATE: 16 FEB 67
031230,000058: # MOD BY: RR BAIRNSFATHER LOG SECTION: R30
031231,000059: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
031232,000060: # MOD NO: 2 MOD BY ALONSO DATE: 11 DEC 67 VB82 PROGRAM REWRITTEN
031233,000061: # MOD NO: 3 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
031234,000062:
031235,000063: # NEW FUNCTIONAL DESCRIPTION: CALLED BY VERB 82 ENTER. PRIORITY 10
031236,000064: # USED THROUGHOUT. CALCULATE AND DISPLAY ORBITAL PARAMETERS
031237,000065:
031238,000066: # 1. IF AVERAGE G IS OFF:
031239,000067: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
031240,000068: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
031241,000069: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
031242,000070: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
031243,000071: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
031244,000072: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
031245,000073: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
031246,000074: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
031247,000075: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
031248,000076: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
031249,000077: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
031250,000078: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
031251,000079: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
031252,000080: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
031253,000081: # 2. IF AVERAGE G IS ON:
031254,000082: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
031255,000083: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
031256,000084: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
031257,000085: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
031258,000086: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
031259,000087: # ABOVE REMARKS.
031260,000088:
031261,000089: # CALLING SEQUENCE: VERB 82 ENTER.
031262,000090:
031263,000091: # SUBROUTINES CALLED: SR30.1, GOXDSPF
031264,000092: # MAYBE - THISPREC, OTHPREC, LOADTIME, DELRSPL
031265,000093:
031266,000094: # NORMAL EXIT MODES: TC ENDEXT
031267,000095:
031268,000096: # ALARMS: NONE
031269,000097:
031270,000098: # OUTPUT: HAPOX (-29) M
031271,000099: # HPERX (-29) M
031272,000100: # RAPO (-29) M EARTH
031273,000101: # (-27) M MOON
031274,000102: # RPER (-29) M EARTH
031275,000103: # (-27) M MOON
031276,000104: # TFF (-28) CS CONTAINS NEGATIVE QUANTITY
031277,000105: # -TPER (-28) CS CONTAINS NEGATIVE QUANTITY
031278,000106:
|
|
Page 713 |
031280,000108: # ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
031281,000109:
031282,000110: # DEBRIS: QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
031283,000111: # MAYBE: TSTART82, V82FLAGS, TDEC1.
031284,000112:
031285,000113: 13,2351 E4,1517 EBANK= HAPOX
031286,000114: 31,2144 BANK 31
031287,000115: 22,2000 SETLOC R30LOC
031288,000116: 22,2000 BANK
031289,000117: 22,3242 COUNT* $$/R30
031290,000118:
031291,000119: 22,3242 06037 V82CALL TC INTPRET
031292,000120: 22,3243 52014 BON GOTO
031293,000121: 22,3244 03712 AVEGFLAG
031294,000122: 22,3245 45465 V82GON # IF AVERAGE G ON
031295,000123: 22,3246 45247 V82GOFF # IF AVERAGE G OFF
031296,000124:
031297,000125: 22,3247 77776 V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE
031298,000126: 22,3250 34752 CAF TWO # DESIRED FOR ORBITAL PARAMETERS
031299,000127: 22,3251 55051 TS OPTIONX # CALCULATION AND DISPLAY.
031300,000128: 22,3252 34753 CAF ONE
031301,000129: 22,3253 55052 TS OPTIONX +1
031302,000130: 22,3254 33316 CAF OPTIONVN # V 04 N 06
031303,000131: 22,3255 04616 TC BANKCALL
031304,000132: 22,3256 20334 CADR GOXDSPF
031305,000133: 22,3257 05472 TC ENDEXT # TERMINATE
031306,000134: 22,3260 03262 TC +2 # PROCEED
031307,000135: 22,3261 03254 TC -5 # DATA IN. OPTION1+1 = 1 FOR THIS VEHICLE.
031308,000136: # UNEQ 1 FOR OTHER VEHICLE.
031309,000137: 22,3262 34750 CAF BIT4 # 80 MS
031310,000138: 22,3263 05203 TC WAITLIST
031311,000139: 22,3264 E4,1540 EBANK= TFF
031312,000140: 22,3264 03430 44064 2CADR TICKTEST
031313,000141:
031314,000142: 22,3266 00003 RELINT
031315,000143: 22,3267 33320 V82GOFLP CAF TFFBANK # MAJOR RECYCLE LOOP ENTRY
031316,000144: 22,3270 54003 TS EBANK
031317,000145: 22,3271 34755 CAF ZERO
031318,000146: 22,3272 55537 TS V82FLAGS # ZERO FLAGS FOR TICKTEST. INHIBITS
031319,000147: # DECREMENTING OF TFF AND -TPER.
031320,000148: 22,3273 35021 CAF PRIO7
031321,000149: 22,3274 05105 TC FINDVAC # V82GOFF1 WILL EXECUTE STATE VECTOR
031322,000150: 22,3275 E4,1540 EBANK= TFF # UPDATE AND ORBIT CALCULATIONS FOR
031323,000151: 22,3275 03321 44064 2CADR V82GOFF1 # SELECTED VEHICLE ABOUT PROPER BODY.
031324,000152:
031325,000153: 22,3277 00003 RELINT
031326,000154: 22,3300 36245 V82STALL CAF THREE # STALL IN THIS LOOP AND WITHOLD V 16 N 44
|
|
Page 714 |
031328,000156: 22,3301 71537 MASK V82FLAGS # UNTIL STATE VECTOR UPDATE SETS ONE OF
031329,000157: 22,3302 10000 CCS A # OUR FLAG BITS.
031330,000158: 22,3303 03310 TC FLAGGON # EXIT FROM STALL LOOP.
031331,000159: 22,3304 34777 CAF 1SEC
031332,000160: 22,3305 04616 TC BANKCALL
031333,000161: 22,3306 01735 CADR DELAYJOB
031334,000162: 22,3307 03300 TC V82STALL
031335,000163:
031336,000164: 22,3310 33317 FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF.
031337,000165: 22,3311 04616 TC BANKCALL
031338,000166: 22,3312 20334 CADR GOXDSPF
031339,000167: 22,3313 05563 TC B5OFF # TERM THIS TELLS TICKTEST TO KILL ITSELF
031340,000168: 22,3314 05563 TC B5OFF # PROCEED DITTO
031341,000169: 22,3315 03267 TC V82GOFLP # RECYCLE RECOMPUTE STATE VECT + DISPLAY
031342,000170:
031343,000171: 22,3316 01014 OPTIONVN VN 412
031344,000172: 22,3317 04054 V16N44 VN 1644
031345,000173: 22,3320 02140 TFFBANK ECADR TFF
031346,000174:
031347,000175: 22,3321 06037 V82GOFF1 TC INTPRET
031348,000176: 22,3322 77634 RTB
031349,000177: 22,3323 21573 LOADTIME
031350,000178: 22,3324 00041 STORE TDEC1 # TIME FOR STATE VECTOR UPDATE.
031351,000179: 22,3325 02205 STORE TSTART82 # TIME FOR INTERNAL USE.
031352,000180: 22,3326 77776 EXIT
031353,000181: 22,3327 41052 CS OPTIONX +1 # 1 FOR THIS VEHICLE, NOT 1 FOR OTHER.
031354,000182: 22,3330 64753 AD ONE
031355,000183: 22,3331 00006 EXTEND
031356,000184: 22,3332 13356 BZF THISSHIP
031357,000185: 22,3333 06037 OTHSHIP TC INTPRET
031358,000186: 22,3334 77624 CALL # CALL STATE VECTOR UPDATE FOR OTHER SHIP.
031359,000187: 22,3335 27043 OTHPREC
031360,000188: 22,3336 77775 BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS
031361,000189: 22,3337 00001 RATT # TO BE CALLED BY SR30.1.
031362,000190: 22,3340 26207 STOVL RONE # RATT AT (-29)M FOR EARTH OR MOON
031363,000191: 22,3341 00007 VATT
031364,000192: 22,3342 02215 STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON
031365,000193: 22,3343 77743 DLOAD*
031366,000194: 22,3344 73774 1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC
031367,000195: 22,3345 00037 STORE TFF/RTMU # X2 IS 2 FOR MOON
031368,000196: 22,3346 77743 DLOAD* # AS LEFT BY THISPREC OR OTHPREC.
031369,000197: 22,3347 72411 MINPERE,2
031370,000198: 22,3350 02201 STORE HPERMIN # TFFRTMU, HPERMIN AND RPADTEM ARE ALL
031371,000199: 22,3351 46135 SLOAD BHIZ # EARTH/MOON PARAMETERS AS SET HERE.
031372,000200: 22,3352 00050 X2
031373,000201: 22,3353 45367 EARTHPAD
031374,000202: 22,3354 77650 GOTO
031375,000203: 22,3355 45373 MOONPAD
|
|
Page 715 |
031377,000205: 22,3356 06037 THISSHIP TC INTPRET
031378,000206: 22,3357 77624 CALL # CALL STATE VECTOR UPDATE FOR THIS SHIP.
031379,000207: 22,3360 27057 THISPREC
031380,000208: 22,3361 77650 GOTO
031381,000209: 22,3362 45336 BOTHSHIP
031382,000210:
031383,000211: # THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS.
031384,000212:
031385,000213: 22,3363 00001 11530 MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
031386,000214:
031387,000215: 22,3365 00002 31230 MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH
031388,000216:
031389,000217: 22,3367 43145 EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M.
031390,000218: 22,3370 06315 RPAD
031391,000219: 22,3371 03635 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
031392,000220: 22,3372 45377 BOTHPAD
031393,000221:
031394,000222: 22,3373 51575 MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
031395,000223: 22,3374 02023 RLS # SCALED AT (-27)M.
031396,000224: 22,3375 77614 SET
031397,000225: 22,3376 03475 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
031398,000226: 22,3377 36203 BOTHPAD STCALL RPADTEM
031399,000227: 22,3400 45551 SR30.1 # CALCULATE ORBITAL PARAMETERS
031400,000228: 22,3401 45234 RTB DSU
031401,000229: 22,3402 21573 LOADTIME
031402,000230: 22,3403 02205 TSTART82 # PRESENT TIME - TIME V82GOFF1 BEGAN
031403,000231: 22,3404 02205 STORE TSTART82 # SAVE IT
031404,000232: 22,3405 53145 DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/
031405,000233: 22,3406 02143 -TPER # HPERMIN (300 OR 35) KFT.
031406,000234: 22,3407 45420 TICKTFF # (-TPER = 0)
031407,000235: 22,3410 43345 TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED,
031408,000236: 22,3411 02143 -TPER # BUT WAS SET TO 59M59S. DONT TICK TFF, DO
031409,000237: 22,3412 02205 TSTART82 # TICK -TPER. DISPLAY BOTH.
031410,000238: 22,3413 02143 STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
031411,000239: 22,3414 77776 EXIT # BEGAN.
031412,000240: 22,3415 34753 CAF BIT1
031413,000241: 22,3416 55537 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
031414,000242: 22,3417 05155 TC ENDOFJOB
031415,000243:
031416,000244: 22,3420 43345 TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF.
031417,000245: 22,3421 02141 TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT
031418,000246: 22,3422 02205 TSTART82 # -TPER.
031419,000247: 22,3423 02141 STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1
031420,000248: 22,3424 77776 EXIT # BEGAN.
031421,000249: 22,3425 34752 CAF BIT2
031422,000250: 22,3426 55537 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY TFF.
031423,000251: 22,3427 05155 TC ENDOFJOB
031424,000252:
|
|
Page 716 |
031426,000254: 22,3430 34747 TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF
031427,000255: 22,3431 71044 MASK EXTVBACT # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
031428,000256: 22,3432 10000 CCS A
031429,000257: 22,3433 03441 TC DOTICK
031430,000258: 22,3434 37713 CAF PRIO25
031431,000259: 22,3435 05072 TC NOVAC # TERMINATE V 82. CANT CALL ENDEXT IN RUPT.
031432,000260: 22,3436 1044 EBANK= EXTVBACT
031433,000261: 22,3436 05472 04062 2CADR ENDEXT
031434,000262:
031435,000263: 22,3440 05261 TC TASKOVER
031436,000264: 22,3441 34777 DOTICK CAF 1SEC # RE-REQUEST TICKTEST.
031437,000265: 22,3442 05203 TC WAITLIST
031438,000266: 22,3443 E4,1540 EBANK= TFF
031439,000267: 22,3443 03430 44064 2CADR TICKTEST
031440,000268:
031441,000269: 22,3445 36245 CAF THREE
031442,000270: 22,3446 71537 MASK V82FLAGS
031443,000271: 22,3447 50000 INDEX A
031444,000272: 22,3450 03451 TC +1
031445,000273: 22,3451 05261 TC TASKOVER # IF NO FLAGBITS SET DONT CHANGE TFF OR
031446,000274: # -TPER, BUT CONTINUE LOOP.
031447,000275: 22,3452 03460 TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
031448,000276: 22,3453 34777 TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC.
031449,000277: 22,3454 54001 TS L
031450,000278: 22,3455 34755 CAF ZERO
031451,000279: 22,3456 21541 DAS TFF
031452,000280: 22,3457 05261 TC TASKOVER
031453,000281: 22,3460 34777 TPERTICK CAF 1SEC
031454,000282: 22,3461 54001 TS L
031455,000283: 22,3462 34755 CAF ZERO
031456,000284: 22,3463 21543 DAS -TPER
031457,000285: 22,3464 05261 TC TASKOVER
031458,000286:
|
|
Page 717 |
031460,000288: 22,3465 77776 V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
031461,000289: # FOR ORBITAL PARAMETER CALCULATIONS.
031462,000290: 22,3466 35021 CAF PRIO7 # LESS THAN LAMBERT
031463,000291: 22,3467 05105 TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS
031464,000292: 22,3470 E4,1540 EBANK= TFF # ABOUT PROPER BODY APPROX ONCE PER SEC.
031465,000293: 22,3470 03503 44064 2CADR V82GON1
031466,000294:
031467,000295: 22,3472 00003 RELINT
031468,000296: 22,3473 10067 CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
031469,000297: 22,3474 05122 TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC
031470,000298: # JOB) IS COMPLETED BEFORE V82GON (PRIO7,
031471,000299: # NOVAC JOB).
031472,000300: 22,3475 33317 V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
031473,000301: 22,3476 04616 TC BANKCALL
031474,000302: 22,3477 20334 CADR GOXDSPF
031475,000303: 22,3500 05563 TC B5OFF # TERM THIS TELLS V82GON1 TO KILL ITSELF.
031476,000304: 22,3501 05563 TC B5OFF # PROC DITTO.
031477,000305: 22,3502 03475 TC V82REDSP # RECYCLE
031478,000306:
031479,000307: 22,3503 06037 V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF
031480,000308: # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
031481,000309: 22,3504 52175 VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND
031482,000310: 22,3505 01221 RN # VN FETCH SO RN, VN ARE FROM SAME
031483,000311: 22,3506 45507 NEXTLINE # STATE VECTOR UPDATE.
031484,000312: 22,3507 26207 NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON
031485,000313: 22,3510 01227 VN
031486,000314: 22,3511 02215 STORE VONE # VN AT (-7)M/CS FOR EARTH OR MOON
031487,000315: 22,3512 52014 BON GOTO
031488,000316: 22,3513 04304 MOONTHIS # FLAG INDICATES BODY ABOUT WHICH ORBITAL
031489,000317: 22,3514 45516 MOONGON # CALCULATIONS ARE TO BE PERFORMED.
031490,000318: 22,3515 45527 EARTHGON # IF SET - MOON, IF RESET - EARTH.
031491,000319:
031492,000320: 22,3516 71214 MOONGON SET DLOAD
031493,000321: 22,3517 03475 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
031494,000322: 22,3520 04001 1/RTMUM # LUNAR PARAMETERS LOADED HERE FOR SR30.1
031495,000323: 22,3521 14037 STODL TFF/RTMU
031496,000324: 22,3522 05364 MINPERM
031497,000325: 22,3523 26201 STOVL HPERMIN
031498,000326: 22,3524 02023 RLS # SCALED AT (-27)M.
031499,000327: 22,3525 52046 ABVAL GOTO
031500,000328: 22,3526 45536 V82GON2
031501,000329: 22,3527 71214 EARTHGON CLEAR DLOAD
031502,000330: 22,3530 03675 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
031503,000331: 22,3531 04003 1/RTMUE # EARTH PARAMETERS LOADED HERE FOR SR30.1
031504,000332: 22,3532 14037 STODL TFF/RTMU
031505,000333: 22,3533 05366 MINPERE
031506,000334: 22,3534 16201 STODL HPERMIN
031507,000335: 22,3535 06315 RPAD
031508,000336: 22,3536 36203 V82GON2 STCALL RPADTEM # COMMON CODE FOR EARTH & MOON.
031509,000337: 22,3537 45551 SR30.1
|
|
Page 718 |
031511,000339: 22,3540 77776 EXIT
031512,000340: 22,3541 34747 V82GON3 CAF BIT5
031513,000341: 22,3542 71044 MASK EXTVBACT # SEE IF ASTRONAUT HAS SIGNALLED TERMINATE
031514,000342: 22,3543 00006 EXTEND
031515,000343: 22,3544 15472 BZF ENDEXT # YES, TERMINATE VB 82 LOOP
031516,000344: 22,3545 34777 CAF 1SEC
031517,000345: 22,3546 04616 TC BANKCALL # WAIT ONE SECOND BEFORE REPEATING
031518,000346: 22,3547 01735 CADR DELAYJOB # ORBITAL PARAMETER COMPUTATION.
031519,000347: 22,3550 03503 TC V82GON1
031520,000348:
031521,000349: 22,3551 22,3541 SPLRET = V82GON3
031522,000350:
|
|
Page 719 |
031524,000352: # SUBROUTINE NAME: SR30.1
031525,000353: # MOD NO: 0 DATE: 16 FEB 67
031526,000354: # MOD BY: RR BAIRNSFATHER LOG SECTION: R32
031527,000355: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
031528,000356: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 14 APR 67 ADD OVFL CK FOR RAPO
031529,000357: # MOD NO: 3 MOD BY ALONSO DATE: 11 DEC 67 SUBROUTINE REWRITTEN
031530,000358: # MOD NO: 4 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
031531,000359: # MOD NO: 5 MOD BY: RR BAIRNSFATHER DATE: 6 AUG 68 OVFL CK FOR HAPO & HPER. VOIDS MOD #2.
031532,000360:
031533,000361: # NEW FUNCTIONAL DESCRIPTION: ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44.
031534,000362: # SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
031535,000363: # RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
031536,000364: # LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
031537,000365: # TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
031538,000366: # IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
031539,000367: # NEGATIVE IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
031540,000368: # CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO
031541,000369: # WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
031542,000370:
031543,000371: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
031544,000372: # ABOVE REMARKS.
031545,000373:
031546,000374: # CALLING SEQUENCE: CALL
031547,000375: # SR30.1
031548,000376:
031549,000377: # SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
031550,000378:
031551,000379: # NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
031552,000380:
031553,000381: # ALARMS: NONE
031554,000382:
031555,000383: # OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD.
031556,000384: # (-27) M MOON MOON CENTERED COORD.
031557,000385: # RPER (-29) M EARTH PERIGEE RADIUS EARTH CENTERED COORD.
031558,000386: # (-27) M MOON MOON CENTERED COORD.
031559,000387: # HAPOX (-29) M APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
031560,000388: # HPERX (-29) M PERIGEE ALT. ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
031561,000389: # TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE
031562,000390: # -TPER (-28) CS TIME TO PERIGEE
031563,000391:
031564,000392: # ERASABLE INITIALIZATION REQUIRED -
031565,000393: # TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR
031566,000394: # (+14) MOON EARTH OR MOON = 1/SQRT(MU).
031567,000395: # RONE (-29) M STATE VECTOR
031568,000396: # VONE (-7) M/CS STATE VECTOR
031569,000397: # RPADTEM (-29) M EARTH RADIUS OF LAUNCH PAD OR LUNAR LANDING
031570,000398: # (-27) M MOON SITE.
031571,000399: # HPERMIN (-29) M EARTH (300 OR 35) KFT MINIMUM PERIGEE ALTITUDE
031572,000400: # (-27) M MOON ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
031573,000401: # V82EMFLG (INT SW BIT) RESET FOR EARTH, SET FOR MOON.
031574,000402:
031575,000403: # DEBRIS: QPRET, PDL, S2
031576,000404:
|
|
Page 720 |
031578,000406: 22,3551 COUNT* $$/SR30S
031579,000407:
031580,000408: 22,3551 44001 SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST.
031581,000409: 22,3552 00001 0
031582,000410: 22,3553 00051 S2
031583,000411: # SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
031584,000412: # VONE AT (-7)M/CS
031585,000413: # TFFCONMU, TFFRP/RA, CALCTPER AND CALCTFF
031586,000414: # CALLS REQUIRE:
031587,000415: # EARTH CENTERED (NO RESCALING REQUIRED)
031588,000416: # RONE SCALED TO B-29 M
031589,000417: # VONE SCALED TO B-7 M/CS
031590,000418: # MOON CENTERED (RESCALING REQUIRED)
031591,000419: # RONE SCALED TO B-27 M
031592,000420: # VONE SCALED TO B-5 M/CS
031593,000421: 22,3554 77214 BOFF VLOAD
031594,000422: 22,3555 03755 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
031595,000423: 22,3556 45565 TFFCALLS
031596,000424: 22,3557 02207 RONE
031597,000425: 22,3560 77752 VSL2
031598,000426: 22,3561 26207 STOVL RONE
031599,000427: 22,3562 02215 VONE
031600,000428: 22,3563 77752 VSL2
031601,000429: 22,3564 02215 STORE VONE
031602,000430: 22,3565 77624 TFFCALLS CALL
031603,000431: 22,3566 57361 TFFCONMU
031604,000432: 22,3567 77624 CALL # TFFRP/RA COMPUTES RAPO,RPER.
031605,000433: 22,3570 57427 TFFRP/RA
031606,000434: # RETURNS WITH RAPO IN D(MPAC).
031607,000435: 22,3571 77625 DSU
031608,000436: 22,3572 02203 RPADTEM
031609,000437: 22,3573 64414 BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY.
031610,000438: # IF MOON CENTERED, RESCALE FROM (-27)M.
031611,000439: # IF EARTH CENTERED ALREADY AT (-29)M.
031612,000440: 22,3574 03755 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
031613,000441: 22,3575 45576 +1
031614,000442: 22,3576 77624 CALL # IF HAPO > MAXNM, SET HAPO =9999.9 NM.
031615,000443: 22,3577 45636 MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
031616,000444: 22,3600 16120 STORHAPO STODL HAPOX
031617,000445: 22,3601 00017 RPER
031618,000446: 22,3602 77625 DSU
031619,000447: 22,3603 02203 RPADTEM # GIVES HPER AT (-29)M EARTH, (-27)M MOON.
031620,000448: 22,3604 00161 STORE MPAC +4 # SAVE THIS FOR COMPARISON TO HPERMIN.
031621,000449: 22,3605 64414 BOFF SR2R # NEED HPER AT (-29)M FOR DISPLAY.
031622,000450: # IF MOON CENTERED, RESCALE FROM (-27)M.
031623,000451: # IF EARTH CENTERED ALREADY AT (-29)M.
031624,000452: 22,3606 03755 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
031625,000453: 22,3607 45610 +1
031626,000454: 22,3610 77624 CALL # IF HPER > MAXNM, SET HPER = 9999.9 NM.
031627,000455: 22,3611 45636 MAXCHK
|
|
Page 721 |
031629,000457: 22,3612 16122 STORHPER STODL HPERX # STORE (RPER - RPADTEM) INTO HPERX.
031630,000458: 22,3613 00161 MPAC +4
031631,000459: 22,3614 51025 DSU BPL # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
031632,000460: 22,3615 02201 HPERMIN # IF HPER L/ HPERMIN (300 OR 35) KFT,
031633,000461: 22,3616 45622 DOTPER # THEN ZERO INTO -TPER.
031634,000462: 22,3617 52145 DLOAD GOTO # OTHERWISE CALCULATE TPER.
031635,000463: 22,3620 06522 HI6ZEROS
031636,000464: 22,3621 45626 SKIPTPER
031637,000465: 22,3622 45145 DOTPER DLOAD CALL
031638,000466: 22,3623 00017 RPER
031639,000467: 22,3624 57465 CALCTPER
031640,000468: 22,3625 77676 DCOMP # TPER IS PUT NEG INTO -TPER.
031641,000469: 22,3626 16143 SKIPTPER STODL -TPER
031642,000470: 22,3627 02201 HPERMIN # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
031643,000471: 22,3630 45015 DAD CALL
031644,000472: 22,3631 02203 RPADTEM # RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
031645,000473: 22,3632 57470 CALCTFF # GIVES 59M59S FOR TFF IF RPER G/
031646,000474: 22,3633 77676 DCOMP # HPERMIN + RPADTEM. (TPER WAS NON ZERO)
031647,000475: 22,3634 36141 STCALL TFF # OTHERWISE COMPUTES TFF. (GOTO)
031648,000476: 22,3635 00051 S2
031649,000477:
031650,000478: 22,3636 51025 MAXCHK DSU BPL # IF C(MPAC) > 9999.9 NM, MPAC = 9999.9 NM
031651,000479: 22,3637 05646 MAXNM
031652,000480: 22,3640 45643 +3 # OTHERWISE C(MPAC) = B(MPAC).
031653,000481: 22,3641 43415 DAD RVQ
031654,000482: 22,3642 05646 MAXNM
031655,000483: 22,3643 43545 +3 DLOAD RVQ # (USED BY P30 - P37 ALSO)
031656,000484: 22,3644 05646 MAXNM
031657,000485:
031658,000486: 22,3645 01065 05603 MAXNM 2OCT 0106505603
031659,000487:
|
|
Page 722 Empty page. |
031662,000490:
End of include-file R30.agc. Parent file is MAIN.agc