Source Code
![]() |
These source-code files were obtained by digitally photographing the
Colossus 237 program listing from the private collection of original
AGC developer Fred Martin, and then modifying pre-existing Colossus 249
(Apollo 9) source files to incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
are 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 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968 |
021727,000002: # Copyright: Public domain.
021728,000003: # Filename: R30.agc
021729,000004: # Purpose: Part of the source code for Colossus build 237.
021730,000005: # This is for the Command Module's (CM) Apollo Guidance
021731,000006: # Computer (AGC), we believe for Apollo 8.
021732,000007: # Assembler: yaYUL
021733,000008: # Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
021734,000009: # Website: www.ibiblio.org/apollo/index.html
021735,000010: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
021736,000011: # Mod history: 2011-02-05 JL Adapted from corresponding Colossus 249 file.
021737,000012:
021738,000013: # # Page 503
021739,000014: # SUBROUTINE NAME: V82CALL
021740,000015: # MOD NO: 0 DATE: 16 FEB 67
021741,000016: # MOD BY: RR BAIRNSFATHER LOG SECTION: R30
021742,000017: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
021743,000018: # MOD NO: 2 MOD BY ALONSO DATE : 11 DEC 67 VB82 PROGRAM REWRITTEN
021744,000019: # MOD NO: 3 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
021745,000020: # NEW FUNCTIONAL DESCRIPTION: CALLED BY VERB 82 ENTER. PRIORITY 10.
021746,000021: # USED THROUGHOUT. CALCULATE AND DISPLAY ORBITAL PARAMETERS
021747,000022:
021748,000023: # 1. IF AVERAGE G IS OFF:
021749,000024: # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
021750,000025: # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
021751,000026: # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X IS NOT EQ 1.
021752,000027: # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
021753,000028: # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
021754,000029: # RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
021755,000030: # HEIGHT ABOVE LAUNCH PAD OR LAUNAR LANDING SITE), HARD (APOGEE
021756,000031: # HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
021757,000032: # INTERSECT 300 KFT ABOVE PAD OR 36KFT ABOVE LANDING SITE).
021758,000033: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59MS59S IF IT WAS
021759,000034: # NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
021760,000035: # ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
021761,000036: # DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
021762,000037: # ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
021763,000038:
021764,000039: # 2. IF AVERAGE G IS ON:
021765,000040: # CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
021766,000041: # FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
021767,000042: # OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
021768,000043: # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
021769,000044: # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
021770,000045: # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE FOR TWO SECS.
021771,000046:
021772,000047:
021773,000048: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
021774,000049: # ABOVE REMARKS.
021775,000050:
021776,000051: # CALLING SEQUENCE: VERB 82 ENTER.
021777,000052:
021778,000053:
021779,000054: # SUBROUTINES CALLED: SR30.1, GOXDSPF
021780,000055: # MAYBE - THISPREC , OTHPREC, LOADTIME, DELRSPL
021781,000056: # NORMAL EXIT MODES: TC ENDEXT
021782,000057:
021783,000058: # ALARMS: NONE
021784,000059:
021785,000060: # OUTPUT: HAPOX (-29) M
021786,000061: # HPERX (-29) M
021787,000062: # RAPO (-29) M EARTH
021788,000063: # (-27) M MOON
021789,000064: # # Page 504
021790,000065: # RPER (-29) M EARTH
021791,000066: # (-27) M MOON
021792,000067: # TFF (-28) CS CONTAINS NEGATIVE QUANTITY
021793,000068: # -TPER (-28) CS CONTAINS NEGATIVE QUANTITY
021794,000069: # RSP-RREC (-29) M IF DELRSPL CALLED
021795,000070:
021796,000071: # ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
021797,000072:
021798,000073: # DEBRIS: QPRET, RONE, VONE,TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
021799,000074: # MAYBE: TSTART82, V82FLAGS, TDEC1.
021800,000075:
021801,000076:
021802,000077: ??????? E4,1751 EBANK= HAPOX
021803,000078: 31,2021 BANK 31
021804,000079: 23,2000 SETLOC R30LOC
021805,000080: 23,2000 BANK
021806,000081: 23,2332 COUNT* $$/R30
021807,000082:
021808,000083: 23,2332 06006 V82CALL TC INTPRET
021809,000084: 23,2333 52014 BON GOTO
021810,000085: 23,2334 00716 AVEGFLAG
021811,000086: 23,2335 46566 V82GON # IF AVERAGE G ON
021812,000087: 23,2336 46337 V82GOFF # IF AVERAGE G OFF
021813,000088:
021814,000089:
021815,000090: 23,2337 77776 V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE
021816,000091: 23,2340 34711 CAF TWO # DESIRED FOR ORBITAL PARAMETERS
021817,000092: 23,2341 55131 TS OPTION1 # CALCULATION AND DISPLAY.
021818,000093: 23,2342 34712 CAF ONE
021819,000094: 23,2343 55132 TS OPTION1 +1
021820,000095: 23,2344 32406 CAF OPTIONVN # V 04 N 06
021821,000096: 23,2345 04555 TC BANKCALL
021822,000097: 23,2346 20465 CADR GOXDSPF
021823,000098: 23,2347 05423 TC ENDEXT # TERMINATE
021824,000099: 23,2350 02352 TC +2 # PROCEED
021825,000100: 23,2351 02344 TC -5 # DATA IN. OPTION1+1 = 1 FOR THIS VEHICLE.
021826,000101: # UNEQ 1 FOR OTHER VEHICLE.
021827,000102: 23,2352 34707 CAF BIT4 # 80 MS
021828,000103: 23,2353 05140 TC WAITLIST
021829,000104: 23,2354 E4,1743 EBANK= TFF
021830,000105: 23,2354 02531 46064 2CADR TICKTEST
021831,000106: 23,2356 00003 RELINT
021832,000107: 23,2357 32410 V82GOFLP CAF TFFBANK # MAJOR RECYCLE LOOP ENTRY
021833,000108: 23,2360 54003 TS EBANK
021834,000109: 23,2361 34714 CAF ZERO
021835,000110: 23,2362 55742 TS V82FLAGS # ZERO FLAGS FOR TICKTEST, INHIBITS
021836,000111: # DECREMENTING OF TFF AND -TPER.
021837,000112: 23,2363 34756 CAF PRIO7
021838,000113: 23,2364 05042 TC FINDVAC # V82GOFF1 WILL EXECUTE STATE VECTOR
021839,000114: # # Page 505
021840,000115: 23,2365 E4,1743 EBANK= TFF # UPDATE AND ORBIT CALCULATIONS FOR
021841,000116: 23,2365 02411 46064 2CADR V82GOFF1 # SELECTED VEHICLE ABOUT PROPER BODY.
021842,000117: 23,2367 00003 RELINT
021843,000118: 23,2370 36214 V82STALL CAF THREE # STALL IN THIS LOOP AND WITHOLD V 16 N 44
021844,000119: 23,2371 71742 MASK V82FLAGS # UNTIL STATE VECTOR UPDATE SETS ONE OF
021845,000120: 23,2372 10000 CCS A # OUR FLAG BITS.
021846,000121: 23,2373 02400 TC FLAGGON # EXIT FROM STALL LOOP.
021847,000122: 23,2374 34734 CAF 1SEC
021848,000123: 23,2375 04555 TC BANKCALL
021849,000124: 23,2376 01730 CADR DELAYJOB
021850,000125: 23,2377 02370 TC V82STALL
021851,000126:
021852,000127: 23,2400 32407 FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF.
021853,000128: 23,2401 04555 TC BANKCALL
021854,000129: 23,2402 20465 CADR GOXDSPF
021855,000130: 23,2403 05514 TC B5OFF # TERM THIS TELLS TICKTEST TO KILL ITSELF
021856,000131: 23,2404 05514 TC B5OFF # PROCEED DITTO
021857,000132: 23,2405 02357 TC V82GOFLP # RECYCLE RECOMPUTE STATE VECT + DISPLAY
021858,000133:
021859,000134: 23,2406 01006 OPTIONVN VN 0406
021860,000135: 23,2407 04054 V16N44 VN 1644
021861,000136: 23,2410 02343 TFFBANK ECADR TFF
021862,000137:
021863,000138:
021864,000139: 23,2411 06006 V82GOFF1 TC INTPRET
021865,000140: 23,2412 77634 RTB
021866,000141: 23,2413 45505 LOADTIME
021867,000142: 23,2414 00041 STORE TDEC1 # TIME FOR STATE VECTOR UPDATE.
021868,000143: 23,2415 02325 STORE TSTART82 # TIME FOR INTERNAL USE.
021869,000144: 23,2416 77776 EXIT
021870,000145: 23,2417 41132 CS OPTION1 +1 # 1 FOR THIS VEHICLE, NOT 1 FOR OTHER.
021871,000146: 23,2420 64712 AD ONE
021872,000147: 23,2421 00006 EXTEND
021873,000148: 23,2422 12446 BZF THISSHIP
021874,000149: 23,2423 06006 OTHSHIP TC INTPRET
021875,000150: 23,2424 77624 CALL # CALL STATE VECTOR UPDATE FOR OTHER SHIP.
021876,000151: 23,2425 27036 OTHPREC
021877,000152: 23,2426 77775 BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS
021878,000153: 23,2427 00001 RATT # TO BE CALLED BY SR30.1.
021879,000154: 23,2430 26327 STOVL RONE # RATT AT (-29)M FOR EARTH OR MOON
021880,000155: 23,2431 00007 VATT
021881,000156: 23,2432 02335 STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON
021882,000157: 23,2433 77743 DLOAD*
021883,000158: 23,2434 71321 1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC
021884,000159: 23,2435 00037 STORE TFF/RTMU # X2 IS 2 FOR MOON
021885,000160: 23,2436 77743 DLOAD* # AS LEFT BY THISPREC OR OTHPREC.
021886,000161: 23,2437 71315 MINPERE,2
021887,000162: 23,2440 02321 STORE HPERMIN # TFFRTMU, HPERMIN AND RPADTEM ARE ALL
021888,000163: 23,2441 46135 SLOAD BHIZ # EARTH/MOON PARAMETERS AS SET HERE.
021889,000164: # # Page 506
021890,000165: 23,2442 00050 X2
021891,000166: 23,2443 46463 EARTHPAD
021892,000167: 23,2444 77650 GOTO
021893,000168: 23,2445 46467 MOONPAD
021894,000169:
021895,000170: 23,2446 06006 THISSHIP TC INTPRET
021896,000171: 23,2447 77624 CALL # CALL STATE VECTOR UPDATE FOR THIS SHIP.
021897,000172: 23,2450 27022 THISPREC
021898,000173: 23,2451 77650 GOTO
021899,000174: 23,2452 46426 BOTHSHIP
021900,000175:
021901,000176: # THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS.
021902,000177:
021903,000178: 23,2453 27533 07571 1/RTMUM 2DEC* .45162595 E-4 B14*
021904,000179: 23,2455 25004 06702 1/RTMUE 2DEC* .50087529 E-5 B17*
021905,000180: 23,2457 00001 11530 MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
021906,000181: 23,2461 00002 31230 MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH
021907,000182:
021908,000183: 23,2463 43145 EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M
021909,000184: 23,2464 05311 RPAD
021910,000185: 23,2465 04622 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
021911,000186: 23,2466 46473 BOTHPAD
021912,000187:
021913,000188: 23,2467 51575 MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
021914,000189: 23,2470 02026 RLS # SCALED AT (-27)M.
021915,000190: 23,2471 77614 SET
021916,000191: 23,2472 04462 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
021917,000192: 23,2473 36323 BOTHPAD STCALL RPADTEM
021918,000193: 23,2474 46667 SR30.1 # CALCULATE ORBITAL PARAMETERS
021919,000194: 23,2475 77776 EXIT
021920,000195: 23,2476 31011 CA MODREG # ARE WE IN POO
021921,000196: 23,2477 00006 EXTEND
021922,000197: 23,2500 12645 BZF CANDEL # YES, DO DELRSPL
021923,000198: 23,2501 06006 SPLRET1 TC INTPRET
021924,000199: 23,2502 45234 RTB DSU
021925,000200: 23,2503 45505 LOADTIME
021926,000201: 23,2504 02325 TSTART82 # PRESENT TIME - TIME V82GOFF1 BEGAN
021927,000202: 23,2505 02325 STORE TSTART82 # SAVE IT
021928,000203: 23,2506 53145 DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/
021929,000204: 23,2507 02346 -TPER # HPERMIN (300 OR 35) KFT.
021930,000205: 23,2510 46521 TICKTFF # (-TPER = 0)
021931,000206: 23,2511 43345 TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED,
021932,000207: 23,2512 02346 -TPER # BUT WAS SET TO 59M59S.DONT DICK TFF, DO
021933,000208: 23,2513 02325 TSTART82 # TICK -TPER. DISPLAY BOTH.
021934,000209: 23,2514 02346 STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
021935,000210: 23,2515 77776 EXIT # BEGAN.
021936,000211:
021937,000212: # # Page 507
021938,000213: 23,2516 34712 CAF BIT1
021939,000214: 23,2517 55742 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
021940,000215: 23,2520 05112 TC ENDOFJOB
021941,000216:
021942,000217: 23,2521 43345 TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED.TICK TFF.
021943,000218: 23,2522 02344 TFF # DO NOT TICK -TPER.DISPLAY TFF, BUT NOT
021944,000219: 23,2523 02325 TSTART82 # -TPER.
021945,000220: 23,2524 02344 STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1
021946,000221: 23,2525 77776 EXIT # BEGAN.
021947,000222: 23,2526 34711 CAF BIT2
021948,000223: 23,2527 55742 TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY TFF.
021949,000224: 23,2530 05112 TC ENDOFJOB
021950,000225:
021951,000226:
021952,000227: 23,2531 34706 TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF
021953,000228: 23,2532 71044 MASK EXTVBACT # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
021954,000229: 23,2533 10000 CCS A
021955,000230: 23,2534 02542 TC DOTICK
021956,000231: 23,2535 37662 CAF PRIO25
021957,000232: 23,2536 05027 TC NOVAC # TERMINATE V 82.CANT CALL ENDEXT IN RUPT.
021958,000233: 23,2537 1044 EBANK= EXTVBACT
021959,000234: 23,2537 05423 04062 2CADR ENDEXT
021960,000235: 23,2541 05213 TC TASKOVER
021961,000236: 23,2542 34734 DOTICK CAF 1SEC # RE-REQUEST TICKTEST.
021962,000237: 23,2543 05140 TC WAITLIST
021963,000238: 23,2544 E4,1743 EBANK= TFF
021964,000239: 23,2544 02531 46064 2CADR TICKTEST
021965,000240: 23,2546 36214 CAF THREE
021966,000241: 23,2547 71742 MASK V82FLAGS
021967,000242: 23,2550 50000 INDEX A
021968,000243: 23,2551 02552 TC +1
021969,000244: 23,2552 05213 TC TASKOVER # IF NO FLAGBITS SET DONT' CHANGE TFF OR
021970,000245: # -TPER, BUT CONTINUE LOOP.
021971,000246: 23,2553 02561 TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
021972,000247: 23,2554 34734 TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC.
021973,000248: 23,2555 54001 TS L
021974,000249: 23,2556 34714 CAF ZERO
021975,000250: 23,2557 21744 DAS TFF
021976,000251: 23,2560 05213 TC TASKOVER
021977,000252: 23,2561 34734 TPERTICK CAF 1SEC
021978,000253: 23,2562 54001 TS L
021979,000254: 23,2563 34714 CAF ZERO
021980,000255: 23,2564 21746 DAS -TPER
021981,000256: 23,2565 05213 TC TASKOVER
021982,000257:
021983,000258: # # Page 508
021984,000259: 23,2566 77776 V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
021985,000260: # FOR ORBITAL PARAMETER CALCULATIONS.
021986,000261: 23,2567 34756 CAF PRIO7 # LESS THAN LAMBERT
021987,000262: 23,2570 05042 TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS
021988,000263: 23,2571 E4,1743 EBANK= TFF # ABOUT PROPER BODY APPROX ONCE PER SEC.
021989,000264: 23,2571 02604 46064 2CADR V82GON1
021990,000265: 23,2573 00003 RELINT
021991,000266: 23,2574 10067 CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
021992,000267: 23,2575 05057 TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC
021993,000268: # JOB) IS COMPLETED BEFORE V82GON (PRIO7,
021994,000269: # NOVAC JOB).
021995,000270: 23,2576 32407 V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
021996,000271: 23,2577 04555 TC BANKCALL
021997,000272: 23,2600 20465 CADR GOXDSPF
021998,000273: 23,2601 05514 TC B5OFF # TERM THIS TELLS V82GON1 TO KILL ITSELF.
021999,000274: 23,2602 05514 TC B5OFF # PROC DITTO.
022000,000275: 23,2603 02576 TC V82REDSP # RECYCLE
022001,000276:
022002,000277: 23,2604 06006 V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF
022003,000278: # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
022004,000279: 23,2605 52175 VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND
022005,000280: 23,2606 01171 RN # VN FETCH SO RN , VN ARE FROM SAME
022006,000281: 23,2607 46610 NEXTLINE # STATE VECTOR UPDATE.
022007,000282: 23,2610 26327 NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON
022008,000283: 23,2611 01177 VN
022009,000284: 23,2612 02335 STORE VONE # VN AT (-7)M/CS FOR EARTH OR MOON
022010,000285: 23,2613 52014 BON GOTO
022011,000286: 23,2614 04303 MOONTHIS # FLAG INDICATES BODY ABOUT WHICH ORBITAL
022012,000287: 23,2615 46617 MOONGON # CALCULATIONS ARE TO BE PERFORMED.
022013,000288: 23,2616 46630 EARTHGON # IF SET - MOON , IF RESET - EARTH.
022014,000289:
022015,000290: 23,2617 71214 MOONGON SET DLOAD
022016,000291: 23,2620 04462 V82EMFLG # INDICATE MOON SCALING FOR SR30.1
022017,000292: 23,2621 06454 1/RTMUM # LUNAR PARAMETERS LOADED HERE FOR SR30.1
022018,000293: 23,2622 14037 STODL TFF/RTMU
022019,000294: 23,2623 06460 MINPERM
022020,000295: 23,2624 26321 STOVL HPERMIN
022021,000296: 23,2625 02026 RLS # SCALED AT (-27)M
022022,000297: 23,2626 52046 ABVAL GOTO
022023,000298: 23,2627 46637 V82GON2
022024,000299: 23,2630 71214 EARTHGON CLEAR DLOAD
022025,000300: 23,2631 04662 V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
022026,000301: 23,2632 06456 1/RTMUE # EARTH PARAMETERS LOADED HERE FOR SR30.1
022027,000302: 23,2633 14037 STODL TFF/RTMU
022028,000303: 23,2634 06462 MINPERE
022029,000304: 23,2635 16321 STODL HPERMIN
022030,000305: 23,2636 05311 RPAD
022031,000306: 23,2637 36323 V82GON2 STCALL RPADTEM # COMMON CODE FOR EARTH & MOON.
022032,000307: 23,2640 46667 SR30.1
022033,000308: # # Page 509
022034,000309: 23,2641 77776 EXIT
022035,000310: 23,2642 05253 TC CHECKMM
022036,000311: 23,2643 00013 DEC 11 B-14
022037,000312: 23,2644 02657 TC V82GON3 # NOT IN MODE 11.
022038,000313: 23,2645 06006 CANDEL TC INTPRET # IN MODE 11 OR 00
022039,000314: 23,2646 77624 CALL
022040,000315: 23,2647 27371 INTSTALL # DELRSPL DOES INTWAKE
022041,000316: 23,2650 45145 DLOAD CALL
022042,000317: 23,2651 02344 TFF
022043,000318: 23,2652 64017 DELRSPL # RETURN IS TO NEXT LINE ( SPLRET ).
022044,000319: 23,2653 77776 SPLRET EXIT
022045,000320:
022046,000321: 23,2654 31011 CA MODREG
022047,000322: 23,2655 00006 EXTEND
022048,000323: 23,2656 12501 BZF SPLRET1
022049,000324: 23,2657 34706 V82GON3 CAF BIT5
022050,000325: 23,2660 71044 MASK EXTVBACT # SEE IF ASTRONAUT HAS SIGNALLED TERMINATE
022051,000326: 23,2661 00006 EXTEND
022052,000327: 23,2662 15423 BZF ENDEXT # YES, TERMINATE VB 82 LOOP
022053,000328: 23,2663 34734 CAF 1SEC
022054,000329: 23,2664 04555 TC BANKCALL # WAIT ONE SECOND BEFORE REPEATING
022055,000330: 23,2665 01730 CADR DELAYJOB # ORBITAL PARAMETER COMPUTATION.
022056,000331: 23,2666 02604 TC V82GON1
022057,000332:
022058,000333: # # Page 510
022059,000334: # SUBROUTINE NAME: SR30.1
022060,000335: # MOD NO: 0 DATE: 16 FEB 67
022061,000336: # MOD BY: RR BAIRNSFATHER LOG SECTION: R32
022062,000337: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
022063,000338: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 14 APR 67 ADD OVFL CK FOR RAPO
022064,000339: # MOD NO: 3 MOD BY ALONSO DATE: 11 DEC 67 SUBROUTINE REWRITTEN
022065,000340: # MOD NO: 4 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
022066,000341: # MOD NO: 5 MOD BY: RR BAIRNSFATHER DATE: 6 AUG 68 OVFL CK FOR HAPO & HPER.VOIDS MOD #2.
022067,000342:
022068,000343:
022069,000344: # NEW FUNCTIONAL DESCRIPTION: ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44.
022070,000345: # SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
022071,000346: # RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
022072,000347: # LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
022073,000348: # TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
022074,000349: # IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
022075,000350: # NEGATIVE IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
022076,000351: # CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO
022077,000352: # WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
022078,000353:
022079,000354: # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
022080,000355: # ABOVE REMARKS.
022081,000356:
022082,000357: # CALLING SEQUENCE: CALL
022083,000358: # SR30.1
022084,000359: # SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
022085,000360: # NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
022086,000361: # ALARMS: NONE
022087,000362: # OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD.
022088,000363: # (-27) M MOON MOON CENTERED COORD.
022089,000364: # RPER (-29) M EARTH PERIGEE RADIUS EARTH CENTERED COORD.
022090,000365: # (-27) M MOON MOON CENTERED COORD.
022091,000366: # HAPOX (-29) M APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
022092,000367: # HPERX (-29) M PERIGEE ALT. ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
022093,000368: # TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE
022094,000369: # -TPER (-28) CS TIME TO PERIGEE
022095,000370: # ERASABLE INITIALIZATION REQUIRED-
022096,000371: # TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR
022097,000372: # (+14) MOON EARTH OR MOON = 1/SQRT(MU).
022098,000373: # RONE (-29) M STATE VECTOR
022099,000374: # VONE (-7) M/CS STATE VECTOR
022100,000375: # RPADTEM (-29) M EARTH RADIUS OF LAUNCH PAD OR LUNAR LANDING
022101,000376: # (-27) M MOON SITE.
022102,000377: # HPERMIN (-29) M EARTH (300 OR 35)KFT MINIMUM PERIGEE ALTITUDE
022103,000378: # (-27) M MOON ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
022104,000379: # V82EMFLG (INT SW BIT) RESET FOR EARTH, SET FOR MOON.
022105,000380:
022106,000381: # DEBRIS: QPREG, PDL, S2
022107,000382:
022108,000383: # # Page 511
022109,000384: 23,2667 COUNT* $$/SR30S
022110,000385:
022111,000386: 23,2667 44001 SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST.
022112,000387: 23,2670 00001 0
022113,000388: 23,2671 00051 S2
022114,000389: # SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
022115,000390: # VONE AT (-7)M/CS
022116,000391: # TFFCONMU,TFFRP/RA,CALCTPER AND CALCTFF
022117,000392: # CALLS REQUIRE :
022118,000393: # EARTH CENTERED (NO RESCALING REQUIRED)
022119,000394: # RONE SCALED TO B-29 M
022120,000395: # VONE SCALED TO B-7 M/CS
022121,000396: # MOON CENTERED (RESCALING REQUIRED)
022122,000397: # RONE SCALED TO B-27 M
022123,000398: # VONE SCALED TO B-5 M/CS
022124,000399: 23,2672 77214 BOFF VLOAD
022125,000400: 23,2673 04742 V82EMFLG # OFF FOR EARTH , ON FOR MOON.
022126,000401: 23,2674 46703 TFFCALLS
022127,000402: 23,2675 02327 RONE
022128,000403: 23,2676 77752 VSL2
022129,000404: 23,2677 26327 STOVL RONE
022130,000405: 23,2700 02335 VONE
022131,000406: 23,2701 77752 VSL2
022132,000407: 23,2702 02335 STORE VONE
022133,000408: 23,2703 77624 TFFCALLS CALL
022134,000409: 23,2704 56722 TFFCONMU
022135,000410: 23,2705 77624 CALL # TFFRP/RA COMPUTES RAPO,RPER.
022136,000411: 23,2706 56770 TFFRP/RA
022137,000412: # RETURNS WITH RAPO IN D(MPAC).
022138,000413: 23,2707 77625 DSU
022139,000414: 23,2710 02323 RPADTEM
022140,000415: 23,2711 64414 BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY.
022141,000416: # IF MOON CENTERED, RESCALE FROM (-27)M.
022142,000417: # IF EARTH CENTERED ALREADY AT (-29)M.
022143,000418: 23,2712 04742 V82EMFLG # OFF FOR EARTH , ON FOR MOON.
022144,000419: 23,2713 46714 +1
022145,000420: 23,2714 77624 CALL # IF RAPO > MAXNM, SET RAPO =9999.9 NM.
022146,000421: 23,2715 46754 MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
022147,000422: 23,2716 16352 STORHAPO STODL HAPOX
022148,000423: 23,2717 00017 RPER
022149,000424: 23,2720 77625 DSU
022150,000425: 23,2721 02323 RPADTEM # GIVES HPER AT (-29)M EARTH, (-27)M MOON.
022151,000426: 23,2722 00161 STORE MPAC +4 # SAVE THIS FOR COMPARISON TO HPERMIN.
022152,000427: 23,2723 64414 BOFF SR2R # NEED HPER AT (-29)M FOR DISPLAY.
022153,000428: # IF MOON CENTERED, RESCALE FROM (-27)M.
022154,000429: # IF EARTH CENTERED ALREADY AT (-29)M.
022155,000430: 23,2724 04742 V82EMFLG # OFF FOR EARTH, ON FOR MOON.
022156,000431: 23,2725 46726 +1
022157,000432: 23,2726 77624 CALL # IF HPER > MAXNM, SET HPER = 9999.9 NM.
022158,000433: 23,2727 46754 MAXCHK
022159,000434: # # Page 512
022160,000435: 23,2730 16354 STORHPER STODL HPERX # STORE (RPER - RPADTEM) INTO HPERX.
022161,000436: 23,2731 00161 MPAC +4
022162,000437: 23,2732 51025 DSU BPL # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
022163,000438: 23,2733 02321 HPERMIN # IF HPER L/ HPERMIN (300 OR 35)KFT,
022164,000439: 23,2734 46740 DOTPER # THEN ZERO INTO -TPER.
022165,000440: 23,2735 52145 DLOAD GOTO # OTHERWISE CALCULATE TPER.
022166,000441: 23,2736 15332 HI6ZEROS
022167,000442: 23,2737 46744 SKIPTPER
022168,000443: 23,2740 45145 DOTPER DLOAD CALL
022169,000444: 23,2741 00017 RPER
022170,000445: 23,2742 57026 CALCTPER
022171,000446: 23,2743 77676 DCOMP # TPER IS PUT NEG INTO -TPER.
022172,000447: 23,2744 16346 SKIPTPER STODL -TPER
022173,000448: 23,2745 02321 HPERMIN # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
022174,000449: 23,2746 45015 DAD CALL
022175,000450: 23,2747 02323 RPADTEM # RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
022176,000451: 23,2750 57031 CALCTFF # GIVES 59M59S FOR TFF IF HPER G/
022177,000452: 23,2751 77676 DCOMP # HPERMIN + RPADTEM. (TPER WAS NON ZERO)
022178,000453: 23,2752 36344 STCALL TFF # OTHERWISE COMPUTES TFF. (GOTO)
022179,000454: 23,2753 00051 S2
022180,000455:
022181,000456: 23,2754 51025 MAXCHK DSU BPL # IF C(MPAC) > 9999.9 NM, MPAC = 9999.9 NM
022182,000457: 23,2755 06764 MAXNM
022183,000458: 23,2756 46761 +3 # OTHERWISE C(MPAC) - B(MPAC).
022184,000459: 23,2757 43415 DAD RVQ
022185,000460: 23,2760 06764 MAXNM
022186,000461: 23,2761 43545 +3 DLOAD RVQ # (USED BY P30 - P37 ALSO)
022187,000462: 23,2762 06764 MAXNM
022188,000463:
022189,000464: 23,2763 01065 05603 MAXNM 2OCT 01065 05603
022190,000465:
022191,000466: # # Page 513
End of include-file R30.agc. Parent file is MAIN.agc