Source Code
|
These source-code files are part of a reconstructed copy of Comanche 44, the
initial release (though not the final mission release) of the Apollo 10
Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases
were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction
is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 44, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 51
(separately previously reconstructed from an Apollo-era listing of Comanche 55,
flown on Apollo 11). Comanche 51 source code was then modified
by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed
Comanche 44 source code was verified by assembling it and checking that the assembled code had
the expected known-correct memory-bank checksums.
Note that page numbers in the reconstructed code match those on the Comanche 55 printout,
although the source code would likely have different page numbers in a contemporary
Comanche 44 listing.
Annotations that were not present in the contemporary source code have been added to the reconstructed
code to justify each change relative to Comanche 51. Here's a guide to the Apollo documentation referenced
in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the
explanatory annotations, there is also
a step-by-step commentary about the reconstruction process.
Comments expected to have been present in the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
Project's GitHub repository.
|
022149,000002: ## Copyright: Public domain.
022150,000003: ## Filename: R30.agc
022151,000004: ## Purpose: A section of Comanche revision 044.
022152,000005: ## It is part of the reconstructed source code for the
022153,000006: ## original release of the flight software for the Command
022154,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
022155,000008: ## The code has been recreated from a copy of Comanche 055. It
022156,000009: ## has been adapted such that the resulting bugger words
022157,000010: ## exactly match those specified for Comanche 44 in NASA drawing
022158,000011: ## 2021153D, which gives relatively high confidence that the
022159,000012: ## reconstruction is correct.
022160,000013: ## Assembler: yaYUL
022161,000014: ## Contact: Ron Burkey <info@sandroid.org>.
022162,000015: ## Website: www.ibiblio.org/apollo/index.html
022163,000016: ## Mod history: 2020-12-03 MAS Created from Comanche 51.
022164,000017:
|
|
Page 514
|
022166,000019: # SUBROUTINE NAME: V82CALL
022167,000020: # MOD NO: 0 DATE: 16 FEB 67
022168,000021: # MOD BY: RR BAIRNSFATHER LOG SECTION: R30
022169,000022: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
022170,000023: # MOD NO: 2 MOD BY ALONSO DATE: 11 DEC 67 VB82 PROGRAM REWRITTEN
022171,000024: # MOD NO: 3 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
022172,000025:
022173,000026: # NEW FUNCTIONAL DESCRIPTION: CALLED BY VERB 82 ENTER. PRIORITY 10
022174,000027: # USED THROUGHOUT. CALCULATE AND DISPLAY ORBITAL PARAMETERS
022175,000028:
022176,000029: # 1. IF AVERAGE G IS OFF:
022177,000030: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
022178,000031: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
022179,000032: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
022180,000033: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
022181,000034: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
022182,000035: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
022183,000036: # HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
022184,000037: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
022185,000038: # INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
022186,000039: # FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
022187,000040: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
022188,000041: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
022189,000042: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
022190,000043: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
022191,000044: # 2. IF AVERAGE G IS ON:
022192,000045: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
022193,000046: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
022194,000047: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
022195,000048: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
022196,000049: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
022197,000050: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
022198,000051: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
022199,000052: # ABOVE REMARKS.
022200,000053:
022201,000054: # CALLING SEQUENCE: VERB 82 ENTER.
022202,000055:
022203,000056: # SUBROUTINES CALLED: SR30.1, GOXDSPF
022204,000057: # MAYBE - THISPREC, OTHPREC, LOADTIME, DELRSPL
022205,000058:
022206,000059: # NORMAL EXIT MODES: TC ENDEXT
022207,000060:
022208,000061: # ALARMS: NONE
022209,000062:
022210,000063: # OUTPUT: HAPOX (-29) M
022211,000064: # HPERX (-29) M
022212,000065: # RAPO (-29) M EARTH
022213,000066: # (-27) M MOON
|
|
Page 515
|
022215,000068: # RPER (-29) M EARTH
022216,000069: # (-27) M MOON
022217,000070: # TFF (-28) CS CONTAINS NEGATIVE QUANTITY
022218,000071: # -TPER (-28) CS CONTAINS NEGATIVE QUANTITY
022219,000072: # RSP-RREC(-29) M IF DELRSPL CALLED
022220,000073:
022221,000074: # ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
022222,000075:
022223,000076: # DEBRIS: QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
022224,000077: # MAYBE: TSTART82, V82FLAGS, TDEC1.
022225,000078:
022226,000079: 13,2231 E4,1751 EBANK= HAPOX
022227,000080: 31,2332 BANK 31
022228,000081: 23,2000 SETLOC R30LOC
022229,000082: 23,2000 BANK
022230,000083: 23,2332 COUNT* $$/R30
022231,000084:
022232,000085: 23,2332 06006 V82CALL TC INTPRET
022233,000086: 23,2333 52014 BON GOTO
022234,000087: 23,2334 00716 AVEGFLAG
022235,000088: 23,2335 46566 V82GON # IF AVERAGE G ON
022236,000089: 23,2336 46337 V82GOFF # IF AVERAGE G OFF
022237,000090:
022238,000091: 23,2337 77776 V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE
022239,000092: 23,2340 35016 CAF TWO # DESIRED FOR ORBITAL PARAMETERS
022240,000093: 23,2341 55051 TS OPTIONX
022241,000094: 23,2342 35017 CAF ONE
022242,000095: 23,2343 55052 TS OPTIONX +1
022243,000096: 23,2344 32406 CAF OPTIONVN # V 04 N 06
022244,000097: 23,2345 04662 TC BANKCALL
022245,000098: 23,2346 20561 CADR GOXDSPF
022246,000099: 23,2347 05534 TC ENDEXT # TERMINATE
022247,000100: 23,2350 02352 TC +2 # PROCEED
022248,000101: 23,2351 02344 TC -5 # DATA IN. OPTIONX +1 = 1 FOR THIS VEHIC.
022249,000102: # UNEQ 1 FOR OTHER VEHICLE.
022250,000103: 23,2352 35014 CAF BIT4 # 80 MS
022251,000104: 23,2353 05245 TC WAITLIST
022252,000105: 23,2354 E4,1743 EBANK= TFF
022253,000106: 23,2354 02531 46064 2CADR TICKTEST
022254,000107:
022255,000108: 23,2356 00003 RELINT
022256,000109: 23,2357 32410 V82GOFLP CAF TFFBANK # MAJOR RECYCLE LOOP ENTRY
022257,000110: 23,2360 54003 TS EBANK
022258,000111: 23,2361 35021 CAF ZERO
022259,000112: 23,2362 55742 TS V82FLAGS # ZERO FLAGS FOR TICKTEST. INHIBITS
022260,000113: # DECREMENTING OF TFF AND -TPER.
022261,000114: 23,2363 35063 CAF PRIO7
022262,000115: 23,2364 05147 TC FINDVAC # V82GOFF1 WILL EXECUTE STATE VECTOR
|
|
Page 516
|
022264,000117: 23,2365 E4,1743 EBANK= TFF # UPDATE AND ORBIT CALCULATIONS FOR
022265,000118: 23,2365 02411 46064 2CADR V82GOFF1 # SELECTED VEHICLE ABOUT PROPER BODY.
022266,000119:
022267,000120: 23,2367 00003 RELINT
022268,000121: 23,2370 36214 V82STALL CAF THREE # STALL IN THIS LOOP AND WITHOLD V 16 N 44
022269,000122: 23,2371 71742 MASK V82FLAGS # UNTIL STATE VECTOR UPDATE SETS ONE OF
022270,000123: 23,2372 10000 CCS A # OUR FLAG BITS.
022271,000124: 23,2373 02400 TC FLAGGON # EXIT FROM STALL LOOP.
022272,000125: 23,2374 35041 CAF 1SEC
022273,000126: 23,2375 04662 TC BANKCALL
022274,000127: 23,2376 01732 CADR DELAYJOB
022275,000128: 23,2377 02370 TC V82STALL
022276,000129:
022277,000130: 23,2400 32407 FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF.
022278,000131: 23,2401 04662 TC BANKCALL
022279,000132: 23,2402 20561 CADR GOXDSPF
022280,000133: 23,2403 05625 TC B5OFF # TERM THIS TELLS TICKTEST TO KILL ITSELF
022281,000134: 23,2404 05625 TC B5OFF # PROCEED DITTO
022282,000135: 23,2405 02357 TC V82GOFLP # RECYCLE RECOMPUTE STATE VECT + DISPLAY
022283,000136:
022284,000137: 23,2406 01014 OPTIONVN VN 0412
022285,000138: 23,2407 04054 V16N44 VN 1644
022286,000139: 23,2410 02343 TFFBANK ECADR TFF
022287,000140:
022288,000141: 23,2411 06006 V82GOFF1 TC INTPRET
022289,000142: 23,2412 77634 RTB
022290,000143: 23,2413 45510 LOADTIME
022291,000144: 23,2414 00041 STORE TDEC1 # TIME FOR STATE VECTOR UPDATE.
022292,000145: 23,2415 02325 STORE TSTART82 # TIME FOR INTERNAL USE.
022293,000146: 23,2416 77776 EXIT
022294,000147: 23,2417 41052 CS OPTIONX +1 # 1 FOR THIS VEHICLE, NOT 1 FOR OTHER
022295,000148: 23,2420 65017 AD ONE
022296,000149: 23,2421 00006 EXTEND
022297,000150: 23,2422 12446 BZF THISSHIP
022298,000151: 23,2423 06006 OTHSHIP TC INTPRET
022299,000152: 23,2424 77624 CALL # CALL STATE VECTOR UPDATE FOR OTHER SHIP.
022300,000153: 23,2425 27105 OTHPREC
022301,000154: 23,2426 77775 BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS
022302,000155: 23,2427 00001 RATT # TO BE CALLED BY SR30.1.
022303,000156: 23,2430 26327 STOVL RONE # RATT AT (-29)M FOR EARTH OR MOON
022304,000157: 23,2431 00007 VATT
022305,000158: 23,2432 02335 STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON
022306,000159: 23,2433 77743 DLOAD*
022307,000160: 23,2434 71321 1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC
|
|
HG remark: In Comanche055 scan this line (5324) looks pretty much like 1/RTMUF.2 can not decide, leave it
as it is in start source.
|
022310,000163: 23,2435 00037 STORE TFF/RTMU # X2 IS 2 FOR MOON
022311,000164: 23,2436 77743 DLOAD* # AS LEFT BY THISPREC OR OTHPREC.
022312,000165: 23,2437 71315 MINPERE,2
022313,000166: 23,2440 02321 STORE HPERMIN # TFFRTMU, HPERMIN AND RPADTEM ARE ALL
022314,000167: 23,2441 46135 SLOAD BHIZ # EARTH/MOON PARAMETERS AS SET HERE.
|
|
Page 517
|
022316,000169: 23,2442 00050 X2
022317,000170: 23,2443 46463 EARTHPAD
022318,000171: 23,2444 77650 GOTO
022319,000172: 23,2445 46467 MOONPAD
022320,000173: 23,2446 06006 THISSHIP TC INTPRET
022321,000174: 23,2447 77624 CALL # CALL STATE VECTOR UPDATE FOR THIS SHIP.
022322,000175: 23,2450 27071 THISPREC
022323,000176: 23,2451 77650 GOTO
022324,000177: 23,2452 46426 BOTHSHIP
022325,000178:
022326,000179: # THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS.
022327,000180:
022328,000181: 23,2453 27533 07571 1/RTMUM 2DEC* .45162595 E-4 B14*
022329,000182: 23,2455 25004 06702 1/RTMUE 2DEC* .50087529 E-5 B17*
022330,000183:
022331,000184: 23,2457 00001 11530 MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
022332,000185: 23,2461 00002 31230 MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH
022333,000186:
022334,000187: 23,2463 43145 EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M.
022335,000188: 23,2464 05152 RPAD
022336,000189: 23,2465 04622 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
022337,000190: 23,2466 46473 BOTHPAD
022338,000191:
022339,000192: 23,2467 51575 MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
022340,000193: 23,2470 02026 RLS # SCALED AT (-27)M.
022341,000194: 23,2471 77614 SET
022342,000195: 23,2472 04462 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
022343,000196: 23,2473 36323 BOTHPAD STCALL RPADTEM
022344,000197: 23,2474 46667 SR30.1 # CALCULATE ORBITAL PARAMETERS
022345,000198: 23,2475 77776 EXIT
022346,000199: 23,2476 31011 CA MODREG # ARE WE IN POO
022347,000200: 23,2477 00006 EXTEND
022348,000201: 23,2500 12645 BZF CANDEL # YES, DO DELRSPL
022349,000202: 23,2501 06006 SPLRET1 TC INTPRET
022350,000203: 23,2502 45234 RTB DSU
022351,000204: 23,2503 45510 LOADTIME
022352,000205: 23,2504 02325 TSTART82 # PRESENT TIME - TIME V82GOFF1 BEGAN
022353,000206: 23,2505 02325 STORE TSTART82 # SAVE IT
022354,000207: 23,2506 53145 DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/
022355,000208: 23,2507 02346 -TPER # HPERMIN (300 OR 35) KFT.
022356,000209: 23,2510 46521 TICKTFF # (-TPER = 0)
022357,000210: 23,2511 43345 TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED,
022358,000211: 23,2512 02346 -TPER # BUT WAS SET TO 59M59S. DONT TICK TFF, DO
022359,000212: 23,2513 02325 TSTART82 # TICK -TPER. DISPLAY BOTH.
022360,000213: 23,2514 02346 STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
022361,000214: 23,2515 77776 EXIT # BEGAN.
022362,000215:
|
|
Page 518
|
022364,000217: 23,2516 35017 CAF BIT1
022365,000218: 23,2517 55742 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
022366,000219: 23,2520 05217 TC ENDOFJOB
022367,000220:
022368,000221: 23,2521 43345 TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF.
022369,000222: 23,2522 02344 TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT
022370,000223: 23,2523 02325 TSTART82 # -TPER.
022371,000224: 23,2524 02344 STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1
022372,000225: 23,2525 77776 EXIT # BEGAN.
022373,000226: 23,2526 35016 CAF BIT2
022374,000227: 23,2527 55742 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY TFF.
022375,000228: 23,2530 05217 TC ENDOFJOB
022376,000229:
022377,000230: 23,2531 35013 TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF
022378,000231: 23,2532 71044 MASK EXTVBACT # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
022379,000232: 23,2533 10000 CCS A
022380,000233: 23,2534 02542 TC DOTICK
022381,000234: 23,2535 37662 CAF PRIO25
022382,000235: 23,2536 05134 TC NOVAC # TERMINATE V 82. CANT CALL ENDEXT IN RUPT.
022383,000236: 23,2537 1044 EBANK= EXTVBACT
022384,000237: 23,2537 05534 04062 2CADR ENDEXT
022385,000238:
022386,000239: 23,2541 05324 TC TASKOVER
022387,000240: 23,2542 35041 DOTICK CAF 1SEC # RE-REQUEST TICKTEST.
022388,000241: 23,2543 05245 TC WAITLIST
022389,000242: 23,2544 E4,1743 EBANK= TFF
022390,000243: 23,2544 02531 46064 2CADR TICKTEST
022391,000244:
022392,000245: 23,2546 36214 CAF THREE
022393,000246: 23,2547 71742 MASK V82FLAGS
022394,000247: 23,2550 50000 INDEX A
022395,000248: 23,2551 02552 TC +1
022396,000249: 23,2552 05324 TC TASKOVER # IF NO FLAGBITS SET DONT CHANGE TFF OR
022397,000250: # -TPER, BUT CONTINUE LOOP.
022398,000251: 23,2553 02561 TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
022399,000252: 23,2554 35041 TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC.
022400,000253: 23,2555 54001 TS L
022401,000254: 23,2556 35021 CAF ZERO
022402,000255: 23,2557 21744 DAS TFF
022403,000256: 23,2560 05324 TC TASKOVER
022404,000257: 23,2561 35041 TPERTICK CAF 1SEC
022405,000258: 23,2562 54001 TS L
022406,000259: 23,2563 35021 CAF ZERO
022407,000260: 23,2564 21746 DAS -TPER
022408,000261: 23,2565 05324 TC TASKOVER
|
|
Page 519
|
022410,000263: 23,2566 77776 V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
022411,000264: # FOR ORBITAL PARAMETER CALCULATIONS.
022412,000265: 23,2567 35063 CAF PRIO7 # LESS THAN LAMBERT
022413,000266: 23,2570 05147 TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS
022414,000267: 23,2571 E4,1743 EBANK= TFF # ABOUT PROPER BODY APPROX ONCE PER SEC.
022415,000268: 23,2571 02604 46064 2CADR V82GON1
022416,000269:
022417,000270: 23,2573 00003 RELINT
022418,000271: 23,2574 10067 CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
022419,000272: 23,2575 05164 TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC
022420,000273: # JOB) IS COMPLETED BEFORE V82GON (PRIO7,
022421,000274: # NOVAC JOB).
022422,000275: 23,2576 32407 V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
022423,000276: 23,2577 04662 TC BANKCALL
022424,000277: 23,2600 20561 CADR GOXDSPF
022425,000278: 23,2601 05625 TC B5OFF # TERM THIS TELLS V82GON1 TO KILL ITSELF.
022426,000279: 23,2602 05625 TC B5OFF # PROC DITTO.
022427,000280: 23,2603 02576 TC V82REDSP # RECYCLE
022428,000281:
022429,000282: 23,2604 06006 V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF
022430,000283: # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
022431,000284: 23,2605 52175 VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND
022432,000285: 23,2606 01171 RN # VN FETCH SO RN, VN ARE FROM SAME
022433,000286: 23,2607 46610 NEXTLINE # STATE VECTOR UPDATE.
022434,000287: 23,2610 26327 NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON
022435,000288: 23,2611 01177 VN
022436,000289: 23,2612 02335 STORE VONE # VN AT (-7)M/CS FOR EARTH OR MOON
022437,000290: 23,2613 52014 BON GOTO
022438,000291: 23,2614 00315 AMOONFLG # FLAG INDICATES BODY ABOUT WHICH ORBITAL
022439,000292: 23,2615 46617 MOONGON # CALCULATIONS ARE TO BE PERFORMED.
022440,000293: 23,2616 46630 EARTHGON # IF SET - MOON, IF RESET - EARTH.
022441,000294:
022442,000295: 23,2617 71214 MOONGON SET DLOAD
022443,000296: 23,2620 04462 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
022444,000297: 23,2621 06454 1/RTMUM # LUNAR PARAMETERS LOADED HERE FOR SR30.1
022445,000298: 23,2622 14037 STODL TFF/RTMU
022446,000299: 23,2623 06460 MINPERM
022447,000300: 23,2624 26321 STOVL HPERMIN
022448,000301: 23,2625 02026 RLS # SCALED AT (-27)M.
022449,000302: 23,2626 52046 ABVAL GOTO
022450,000303: 23,2627 46637 V82GON2
022451,000304: 23,2630 71214 EARTHGON CLEAR DLOAD
022452,000305: 23,2631 04662 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
022453,000306: 23,2632 06456 1/RTMUE # EARTH PARAMETERS LOADED HERE FOR SR30.1
022454,000307: 23,2633 14037 STODL TFF/RTMU
022455,000308: 23,2634 06462 MINPERE
022456,000309: 23,2635 16321 STODL HPERMIN
022457,000310: 23,2636 05152 RPAD
022458,000311: 23,2637 36323 V82GON2 STCALL RPADTEM # COMMON CODE FOR EARTH & MOON.
022459,000312: 23,2640 46667 SR30.1
|
|
Page 520
|
022461,000314: 23,2641 77776 EXIT
022462,000315: 23,2642 05364 TC CHECKMM
022463,000316: 23,2643 00013 DEC 11 B-14
022464,000317: 23,2644 02657 TC V82GON3 # NOT IN MODE 11.
022465,000318: 23,2645 06006 CANDEL TC INTPRET # IN MODE 11 OR 00
022466,000319: 23,2646 77624 CALL
022467,000320: 23,2647 27442 INTSTALL # DELRSPL DOES INTWAKE
022468,000321: 23,2650 45145 DLOAD CALL
022469,000322: 23,2651 02344 TFF
022470,000323: 23,2652 64017 DELRSPL # RETURN IS TO NEXT LINE (SPLRET).
022471,000324: 23,2653 77776 SPLRET EXIT
022472,000325:
022473,000326: 23,2654 31011 CA MODREG
022474,000327: 23,2655 00006 EXTEND
022475,000328: 23,2656 12501 BZF SPLRET1
022476,000329: 23,2657 35013 V82GON3 CAF BIT5
022477,000330: 23,2660 71044 MASK EXTVBACT # SEE IF ASTRONAUT HAS SIGNALLED TERMINATE
022478,000331: 23,2661 00006 EXTEND
022479,000332: 23,2662 15534 BZF ENDEXT # YES, TERMINATE VB 82 LOOP
022480,000333: 23,2663 35041 CAF 1SEC
022481,000334: 23,2664 04662 TC BANKCALL # WAIT ONE SECOND BEFORE REPEATING
022482,000335: 23,2665 01732 CADR DELAYJOB # ORBITAL PARAMETER COMPUTATION.
022483,000336: 23,2666 02604 TC V82GON1
022484,000337:
|
|
Page 521
|
022486,000339: # SUBROUTINE NAME: SR30.1
022487,000340: # MOD NO: 0 DATE: 16 FEB 67
022488,000341: # MOD BY: RR BAIRNSFATHER LOG SECTION: R32
022489,000342: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
022490,000343: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 14 APR 67 ADD OVFL CK FOR RAPO
022491,000344: # MOD NO: 3 MOD BY ALONSO DATE: 11 DEC 67 SUBROUTINE REWRITTEN
022492,000345: # MOD NO: 4 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
022493,000346: # MOD NO: 5 MOD BY: RR BAIRNSFATHER DATE: 6 AUG 68 OVFL CK FOR HAPO & HPER. VOIDS MOD #2.
022494,000347:
022495,000348: # NEW FUNCTIONAL DESCRIPTION: ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44.
022496,000349: # SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
022497,000350: # RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
022498,000351: # LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
022499,000352: # TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
022500,000353: # IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
022501,000354: # NEGATIVE IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
022502,000355: # CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO
022503,000356: # WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
022504,000357:
022505,000358: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
022506,000359: # ABOVE REMARKS.
022507,000360:
022508,000361: # CALLING SEQUENCE: CALL
022509,000362: # SR30.1
022510,000363:
022511,000364: # SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
022512,000365:
022513,000366: # NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
022514,000367:
022515,000368: # ALARMS: NONE
022516,000369:
022517,000370: # OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD.
022518,000371: # (-27) M MOON MOON CENTERED COORD.
022519,000372: # RPER (-29) M EARTH PERIGEE RADIUS EARTH CENTERED COORD.
022520,000373: # (-27) M MOON MOON CENTERED COORD.
022521,000374: # HAPOX (-29) M APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
022522,000375: # HPERX (-29) M PERIGEE ALT. ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
022523,000376: # TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE
022524,000377: # -TPER (-28) CS TIME TO PERIGEE
022525,000378:
022526,000379: # ERASABLE INITIALIZATION REQUIRED -
022527,000380: # TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR
022528,000381: # (+14) MOON EARTH OR MOON = 1/SQRT(MU).
022529,000382: # RONE (-29) M STATE VECTOR
022530,000383: # VONE (-7) M/CS STATE VECTOR
022531,000384: # RPADTEM (-29) M EARTH RADIUS OF LAUNCH PAD OR LUNAR LANDING
022532,000385: # (-27) M MOON SITE.
022533,000386: # HPERMIN (-29) M EARTH (300 OR 35) KFT MINIMUM PERIGEE ALTITUDE
022534,000387: # (-27) M MOON ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
022535,000388: # V82EMFLG (INT SW BIT) RESET FOR EARTH, SET FOR MOON.
022536,000389:
022537,000390: # DEBRIS: QPRET, PDL, S2
022538,000391:
|
|
Page 522
|
022540,000393: 23,2667 COUNT* $$/SR30S
022541,000394:
022542,000395: 23,2667 44001 SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST.
022543,000396: 23,2670 00001 0
022544,000397: 23,2671 00051 S2
022545,000398: # SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
022546,000399: # VONE AT (-7)M/CS
022547,000400: # TFFCONMU, TFFRP/RA, CALCTPER AND CALCTFF
022548,000401: # CALLS REQUIRE:
022549,000402: # EARTH CENTERED (NO RESCALING REQUIRED)
022550,000403: # RONE SCALED TO B-29 M
022551,000404: # VONE SCALED TO B-7 M/CS
022552,000405: # MOON CENTERED (RESCALING REQUIRED)
022553,000406: # RONE SCALED TO B-27 M
022554,000407: # VONE SCALED TO B-5 M/CS
022555,000408: 23,2672 77214 BOFF VLOAD
022556,000409: 23,2673 04742 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
022557,000410: 23,2674 46703 TFFCALLS
022558,000411: 23,2675 02327 RONE
022559,000412: 23,2676 77752 VSL2
022560,000413: 23,2677 26327 STOVL RONE
022561,000414: 23,2700 02335 VONE
022562,000415: 23,2701 77752 VSL2
022563,000416: 23,2702 02335 STORE VONE
022564,000417: 23,2703 77624 TFFCALLS CALL
022565,000418: 23,2704 56760 TFFCONMU
022566,000419: 23,2705 77624 CALL # TFFRP/RA COMPUTES RAPO,RPER.
022567,000420: 23,2706 57026 TFFRP/RA
022568,000421: # RETURNS WITH RAPO IN D(MPAC).
022569,000422: 23,2707 77625 DSU
022570,000423: 23,2710 02323 RPADTEM
022571,000424: 23,2711 64414 BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY.
022572,000425: # IF MOON CENTERED, RESCALE FROM (-27)M.
022573,000426: # IF EARTH CENTERED ALREADY AT (-29)M.
022574,000427: 23,2712 04742 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
022575,000428: 23,2713 46714 +1
022576,000429: 23,2714 77624 CALL # IF HAPO > MAXNM, SET HAPO =9999.9 NM.
022577,000430: 23,2715 46754 MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
022578,000431: 23,2716 16352 STORHAPO STODL HAPOX
022579,000432: 23,2717 00017 RPER
022580,000433: 23,2720 77625 DSU
022581,000434: 23,2721 02323 RPADTEM # GIVES HPER AT (-29)M EARTH, (-27)M MOON.
022582,000435: 23,2722 00161 STORE MPAC +4 # SAVE THIS FOR COMPARISON TO HPERMIN.
022583,000436: 23,2723 64414 BOFF SR2R # NEED HPER AT (-29)M FOR DISPLAY.
022584,000437: # IF MOON CENTERED, RESCALE FROM (-27)M.
022585,000438: # IF EARTH CENTERED ALREADY AT (-29)M.
022586,000439: 23,2724 04742 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
022587,000440: 23,2725 46726 +1
022588,000441: 23,2726 77624 CALL # IF HPER > MAXNM, SET HPER = 9999.9 NM.
022589,000442: 23,2727 46754 MAXCHK
|
|
Page 523
|
022591,000444: 23,2730 16354 STORHPER STODL HPERX # STORE (RPER - RPADTEM) INTO HPERX.
022592,000445: 23,2731 00161 MPAC +4
022593,000446: 23,2732 51025 DSU BPL # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
022594,000447: 23,2733 02321 HPERMIN # IF HPER L/ HPERMIN (300 OR 35) KFT,
022595,000448: 23,2734 46740 DOTPER # THEN ZERO INTO -TPER.
022596,000449: 23,2735 52145 DLOAD GOTO # OTHERWISE CALCULATE TPER.
022597,000450: 23,2736 15335 HI6ZEROS
022598,000451: 23,2737 46744 SKIPTPER
022599,000452: 23,2740 45145 DOTPER DLOAD CALL
022600,000453: 23,2741 00017 RPER
022601,000454: 23,2742 57064 CALCTPER
022602,000455: 23,2743 77676 DCOMP # TPER IS PUT NEG INTO -TPER.
022603,000456: 23,2744 16346 SKIPTPER STODL -TPER
022604,000457: 23,2745 02321 HPERMIN # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
022605,000458: 23,2746 45015 DAD CALL
022606,000459: 23,2747 02323 RPADTEM # RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
022607,000460: 23,2750 57067 CALCTFF # GIVES 59M59S FOR TFF IF RPER G/
022608,000461: 23,2751 77676 DCOMP # HPERMIN + RPADTEM. (TPER WAS NON ZERO)
022609,000462: 23,2752 36344 STCALL TFF # OTHERWISE COMPUTES TFF. (GOTO)
022610,000463: 23,2753 00051 S2
022611,000464:
022612,000465: 23,2754 51025 MAXCHK DSU BPL # IF C(MPAC) > 9999.9 NM, MPAC = 9999.9 NM
022613,000466: 23,2755 06764 MAXNM
022614,000467: 23,2756 46761 +3 # OTHERWISE C(MPAC) = B(MPAC).
022615,000468: 23,2757 43415 DAD RVQ
022616,000469: 23,2760 06764 MAXNM
022617,000470: 23,2761 43545 +3 DLOAD RVQ # (USED BY P30 - P37 ALSO)
022618,000471: 23,2762 06764 MAXNM
022619,000472:
022620,000473: 23,2763 01065 05603 MAXNM 2OCT 0106505603
022621,000474:
|
|
Page 524
|
022623,000476:
|
|
There is no source code on this page — HG 2009
|
End of include-file R30.agc. Parent file is MAIN.agc