Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

021559,000002:                                                                                                  ## Copyright:   Public domain.
021560,000003:                                                                                                  ## Filename:    R30.agc
021561,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
021562,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
021563,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
021564,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
021565,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
021566,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
021567,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
021568,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
021569,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
021570,000013:                                                                                                  ##              is correct.
021571,000014:                                                                                                  ## Assembler:   yaYUL
021572,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
021573,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
021574,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
021575,000018: 
021576,000019:                                                                                                  #  SUBROUTINE NAME:  V82CALL
021577,000020:                                                                                                  #  MOD NO: 0                                                             DATE: 16 FEB 67
021578,000021:                                                                                                  #  MOD BY: RR BAIRNSFATHER                                               LOG SECTION:  R30
021579,000022:                                                                                                  #  MOD NO: 1     MOD BY:  RR BAIRNSFATHER        DATE: 11 APR 67         SR30.1 CHANGED TO ALLOW MONITOR OPERN
021580,000023:                                                                                                  #  MOD NO: 2     MOD  BY  ALONSO                 DATE: 11 DEC 67         VB82 PROGRAM REWRITTEN
021581,000024:                                                                                                  #  MOD NO: 3     MOD  BY  ALONSO                 DATE: 26 MAR 68         PROG MOD TO HANDLE DIF EARTH/MOON SCALE
021582,000025: 
021583,000026:                                                                                                  #  NEW FUNCTIONAL DESCRIPTION:   CALLED BY VERB 82 ENTER.  PRIORITY 10
021584,000027:                                                                                                  #  USED THROUGHOUT.              CALCULATE AND DISPLAY ORBITAL PARAMETERS
021585,000028: 
021586,000029:                                                                                                  #  1.    IF AVERAGE G IS OFF:
021587,000030:                                                                                                  #                FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
021588,000031:                                                                                                  #                        TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
021589,000032:                                                                                                  #                        CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
021590,000033:                                                                                                  #                SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
021591,000034:                                                                                                  #                CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
021592,000035:                                                                                                  #                        RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
021593,000036:                                                                                                  #                        HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
021594,000037:                                                                                                  #                        HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
021595,000038:                                                                                                  #                        INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
021596,000039:                                                                                                  #                FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
021597,000040:                                                                                                  #                        NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
021598,000041:                                                                                                  #                        ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
021599,000042:                                                                                                  #                        DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
021600,000043:                                                                                                  #                        ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
021601,000044:                                                                                                  #        2.      IF AVERAGE G IS ON:
021602,000045:                                                                                                  #                        CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
021603,000046:                                                                                                  #                                FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
021604,000047:                                                                                                  #                                OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
021605,000048:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).
021606,000049:                                                                                                  #                        IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
021607,000050:                                                                                                  #                                RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.
021608,000051:                                                                                                  #        ADDENDUM:  HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
021609,000052:                                                                                                  #                ABOVE REMARKS.
021610,000053: 
021611,000054:                                                                                                  #  CALLING SEQUENCE: VERB 82 ENTER.
021612,000055: 
021613,000056:                                                                                                  #  SUBROUTINES CALLED:   SR30.1, GOXDSPF
021614,000057:                                                                                                  #                        MAYBE - THISPREC, OTHPREC, LOADTIME, DELRSPL
021615,000058: 
021616,000059:                                                                                                  #  NORMAL EXIT MODES:  TC ENDEXT
021617,000060: 
021618,000061:                                                                                                  #  ALARMS:  NONE
021619,000062: 
021620,000063:                                                                                                  #  OUTPUT:       HAPOX   (-29) M
021621,000064:                                                                                                  #                HPERX   (-29) M
021622,000065:                                                                                                  #                RAPO    (-29) M EARTH
021623,000066:                                                                                                  #                        (-27) M MOON
021624,000067:                                                                                                  #                RPER    (-29) M EARTH
021625,000068:                                                                                                  #                        (-27) M MOON
021626,000069:                                                                                                  #                TFF     (-28) CS        CONTAINS NEGATIVE QUANTITY
021627,000070:                                                                                                  #                -TPER   (-28) CS        CONTAINS NEGATIVE QUANTITY
021628,000071:                                                                                                  #                RSP-RREC(-29) M         IF DELRSPL CALLED
021629,000072: 
021630,000073:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:  STATE VECTOR.
021631,000074: 
021632,000075:                                                                                                  #  DEBRIS:       QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
021633,000076:                                                                                                  #                MAYBE:  TSTART82, V82FLAGS, TDEC1.
021634,000077: 
021635,000078: 13,2227  E4,1751                                  EBANK=   HAPOX                                 
021636,000079: 31,2332                                           BANK     31                                    
021637,000080: 23,2000                                           SETLOC   R30LOC                                
021638,000081: 23,2000                                           BANK                                           
021639,000082: 23,2332                                           COUNT*   $$/R30                                
021640,000083: 
021641,000084: 23,2332           06006        V82CALL            TC       INTPRET                               
021642,000085: 23,2333           52014                           BON      GOTO                                  
021643,000086: 23,2334           00716                                    AVEGFLAG                              
021644,000087: 23,2335           40201                                    V82GON                                #  IF AVERAGE G ON
021645,000088: 23,2336           46337                                    V82GOFF                               #  IF AVERAGE G OFF
021646,000089: 
021647,000090: 23,2337           77776        V82GOFF            EXIT                                           #  ALLOW ASTRONAUT TO SELECT VEHICLE
021648,000091: 23,2340           35032                           CAF      TWO                                   #  DESIRED FOR ORBITAL PARAMETERS
021649,000092: 23,2341           55051                           TS       OPTIONX                               
021650,000093: 23,2342           35033                           CAF      ONE                                   
021651,000094: 23,2343           55052                           TS       OPTIONX    +1                         
021652,000095: 23,2344           32410                           CAF      OPTIONVN                              #  V 04 N 06
021653,000096: 23,2345           04676                           TC       BANKCALL                              
021654,000097: 23,2346           20561                           CADR     GOXDSPF                               
021655,000098: 23,2347           05550                           TC       ENDEXT                                #  TERMINATE
021656,000099: 23,2350           02352                           TC       +2                                    #  PROCEED
021657,000100: 23,2351           02344                           TC       -5                                    #  DATA IN.  OPTIONX +1 = 1 FOR THIS VEHIC.
021658,000101:                                                                                                  #                 UNEQ 1 FOR OTHER VEHICLE.
021659,000102: 23,2352           32412                           CAF      TFFBANK                               
021660,000103: 23,2353           54003                           TS       EBANK                                 
021661,000104: 23,2354           31052                           CA       OPTIONX    +1                         
021662,000105: 23,2355           54111                           TS       OPTION82                              
021663,000106: 
021664,000107: 23,2356           35030                           CAF      BIT4                                  #  80 MS
021665,000108: 23,2357           05261                           TC       WAITLIST                              
021666,000109: 23,2360  E4,1743                                  EBANK=   TFF                                   
021667,000110: 23,2360           02551 46064                     2CADR    TICKTEST                              
021668,000111: 
021669,000112: 23,2362           00003                           RELINT                                         
021670,000113: 23,2363           35035        V82GOFLP           CAF      ZERO                                  #  MAJOR RECYCLE LOOP ENTRY
021671,000114: 23,2364           55742                           TS       V82FLAGS                              #  ZERO FLAGS FOR TICKTEST. INHIBITS
021672,000115:                                                                                                  #  DECREMENTING OF TFF AND -TPER.
021673,000116: 23,2365           35077                           CAF      PRIO7                                 
021674,000117: 23,2366           05163                           TC       FINDVAC                               #  V82GOFF1 WILL EXECUTE STATE VECTOR
021675,000118: 23,2367  E4,1743                                  EBANK=   TFF                                   #  UPDATE AND ORBIT CALCULATIONS FOR
021676,000119: 23,2367           02413 46064                     2CADR    V82GOFF1                              #  SELECTED VEHICLE ABOUT PROPER BODY.
021677,000120: 
021678,000121: 23,2371           00003                           RELINT                                         
021679,000122: 23,2372           36214        V82STALL           CAF      THREE                                 #  STALL IN THIS LOOP AND WITHOLD V 16 N 44
021680,000123: 23,2373           71742                           MASK     V82FLAGS                              #  UNTIL STATE VECTOR UPDATE SETS ONE OF
021681,000124: 23,2374           10000                           CCS      A                                     #  OUR FLAG BITS.
021682,000125: 23,2375           02402                           TC       FLAGGON                               #  EXIT FROM STALL LOOP.
021683,000126: 23,2376           35055                           CAF      1SEC                                  
021684,000127: 23,2377           04676                           TC       BANKCALL                              
021685,000128: 23,2400           01732                           CADR     DELAYJOB                              
021686,000129: 23,2401           02372                           TC       V82STALL                              
021687,000130: 
021688,000131: 23,2402           32411        FLAGGON            CAF      V16N44                                #  MONITOR HAPO,HPER,TFF.
021689,000132: 23,2403           04676                           TC       BANKCALL                              
021690,000133: 23,2404           20561                           CADR     GOXDSPF                               
021691,000134: 23,2405           05641                           TC       B5OFF                                 #  TERM THIS TELLS TICKTEST TO KILL ITSELF
021692,000135: 23,2406           05641                           TC       B5OFF                                 #  PROCEED  DITTO
021693,000136: 23,2407           02363                           TC       V82GOFLP                              #  RECYCLE  RECOMPUTE STATE VECT + DISPLAY
021694,000137: 
021695,000138: 23,2410           01014        OPTIONVN           VN       0412                                  
021696,000139: 23,2411           04054        V16N44             VN       1644                                  
021697,000140: 23,2412           02343        TFFBANK            ECADR    TFF                                   
021698,000141: 
021699,000142: 23,2413           22007        V82GOFF1           ZL                                             
021700,000143: 23,2414           35035                           CAF      ZERO                                  
021701,000144: 23,2415           53052                           DXCH     DSPTEMX                               
021702,000145: 23,2416           32472                           CAF      V06N16X                               
021703,000146: 23,2417           04676                           TC       BANKCALL                              
021704,000147: 23,2420           20561                           CADR     GOXDSPF                               
021705,000148: 23,2421           05550                           TC       ENDEXT                                
021706,000149: 23,2422           02424                           TC       +2                                    
021707,000150: 23,2423           02416                           TC       -5                                    
021708,000151: 23,2424           06006        ISTIMEOK           TC       INTPRET                               
021709,000152: 23,2425           53145                           DLOAD    BZE                                   
021710,000153: 23,2426           01052                                    DSPTEMX                               
021711,000154: 23,2427           46467                                    GETNOW                                
021712,000155: 23,2430           00041        STRTDEC1           STORE    TDEC1                                 #  TIME FOR STATE VECTOR UPDATE.
021713,000156: 23,2431           02325                           STORE    TSTART82                              #  TIME FOR INTERNAL USE.
021714,000157: 23,2432           77776                           EXIT                                           
021715,000158: 23,2433           40111                           CS       OPTION82                              #  1 FOR THIS VEHICLE, NOT 1 FOR OTHER
021716,000159: 23,2434           65033                           AD       ONE                                   
021717,000160: 23,2435           00006                           EXTEND                                         
021718,000161: 23,2436           12462                           BZF      THISSHIP                              
021719,000162: 23,2437           06006        OTHSHIP            TC       INTPRET                               
021720,000163: 23,2440           77624                           CALL                                           #  CALL STATE VECTOR UPDATE FOR OTHER SHIP.
021721,000164: 23,2441           27114                                    OTHPREC                               
021722,000165: 23,2442           77775        BOTHSHIP           VLOAD                                          #  MOVE RESULTS INTO TFFCONIC STORAGE AREAS
021723,000166: 23,2443           00001                                    RATT                                  #  TO BE CALLED BY SR30.1.
021724,000167: 23,2444           26327                           STOVL    RONE                                  #  RATT AT (-29)M FOR EARTH OR MOON
021725,000168: 23,2445           00007                                    VATT                                  
021726,000169: 23,2446           02335                           STORE    VONE                                  #  VATT AT (-7)M/CS FOR EARTH OR MOON
021727,000170: 23,2447           77743                           DLOAD*                                         
021728,000171: 23,2450           71301                                    1/RTMUE,2                             #  X2 IS 0 FOR EARTH CENTERED STATE VEC
021729,000172: 23,2451           00037                           STORE    TFF/RTMU                              #  X2 IS 2 FOR MOON
021730,000173: 23,2452           77743                           DLOAD*                                         #  AS LEFT BY THISPREC OR OTHPREC.
021731,000174: 23,2453           71275                                    MINPERE,2                             
021732,000175: 23,2454           02321                           STORE    HPERMIN                               #  TFFRTMU, HPERMIN AND RPADTEM ARE ALL
021733,000176: 23,2455           46135                           SLOAD    BHIZ                                  #  EARTH/MOON PARAMETERS AS SET HERE.
021734,000177: 23,2456           00050                                    X2                                    
021735,000178: 23,2457           46503                                    EARTHPAD                              
021736,000179: 23,2460           77650                           GOTO                                           
021737,000180: 23,2461           46507                                    MOONPAD                               
021738,000181: 23,2462           06006        THISSHIP           TC       INTPRET                               
021739,000182: 23,2463           77624                           CALL                                           #  CALL STATE VECTOR UPDATE FOR THIS SHIP.
021740,000183: 23,2464           27100                                    THISPREC                              
021741,000184: 23,2465           77650                           GOTO                                           
021742,000185: 23,2466           46442                                    BOTHSHIP                              
021743,000186: 23,2467           52034        GETNOW             RTB      GOTO                                  
021744,000187: 23,2470           45510                                    LOADTIME                              
021745,000188: 23,2471           46430                                    STRTDEC1                              
021746,000189: 23,2472           01420        V06N16X            VN       0616                                  
021747,000190:                                                                                                  #  THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED.  DO NOT SEPARATE PAIRS.
021748,000191: 
021749,000192: 23,2473           27533 07571  1/RTMUM            2DEC*    .45162595  E-4        B14*            
021750,000193: 23,2475           25004 06702  1/RTMUE            2DEC*    .50087529  E-5        B17*            
021751,000194: 
021752,000195: 23,2477           00001 11530  MINPERM            2DEC     10668      B-27                       #  35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
021753,000196: 23,2501           00002 31230  MINPERE            2DEC     91440      B-29                       #  300 KFT (-29)M FOR EARTH
021754,000197: 
021755,000198: 23,2503           43145        EARTHPAD           DLOAD    CLRGO                                 #  PAD 37-B RADIUS.  SCALED AT (-29)M.
021756,000199: 23,2504           05152                                    RPAD                                  
021757,000200: 23,2505           04622                                    V82EMFLG                              #  INDICATE EARTH SCALING FOR SR30.1
021758,000201: 23,2506           46513                                    BOTHPAD                               
021759,000202: 
021760,000203: 23,2507           51575        MOONPAD            VLOAD    ABVAL                                 #  COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
021761,000204: 23,2510           02026                                    RLS                                   #  SCALED AT (-27)M.
021762,000205: 23,2511           77614                           SET                                            
021763,000206: 23,2512           04462                                    V82EMFLG                              #  INDICATE MOON SCALING FOR SR30.1
021764,000207: 23,2513           36323        BOTHPAD            STCALL   RPADTEM                               
021765,000208: 23,2514           46671                                    SR30.1                                #  CALCULATE ORBITAL PARAMETERS
021766,000209: 23,2515           77776                           EXIT                                           
021767,000210: 23,2516           31011                           CA       MODREG                                #  ARE WE IN POO
021768,000211: 23,2517           00006                           EXTEND                                         
021769,000212: 23,2520           12647                           BZF      CANDEL                                #  YES, DO DELRSPL
021770,000213: 23,2521           06006        SPLRET1            TC       INTPRET                               
021771,000214: 23,2522           45234                           RTB      DSU                                   
021772,000215: 23,2523           45510                                    LOADTIME                              
021773,000216: 23,2524           02325                                    TSTART82                              #  PRESENT TIME - TIME V82GOFF1 BEGAN
021774,000217: 23,2525           02325                           STORE    TSTART82                              #                 SAVE IT
021775,000218: 23,2526           53145                           DLOAD    BZE                                   #  SR30.1 SETS -TPER=0 IF HPER L/
021776,000219: 23,2527           02346                                    -TPER                                 #  HPERMIN (300 OR 35) KFT.
021777,000220: 23,2530           46541                                    TICKTFF                               #  (-TPER = 0)
021778,000221: 23,2531           43345        TICKTPER           DLOAD    DAD                                   #  (-TPER NON ZERO) TFF WAS NOT COMPUTED,
021779,000222: 23,2532           02346                                    -TPER                                 #  BUT WAS SET TO 59M59S.  DONT TICK TFF, DO
021780,000223: 23,2533           02325                                    TSTART82                              #  TICK -TPER.  DISPLAY BOTH.
021781,000224: 23,2534           02346                           STORE    -TPER                                 #  -TPER CORRECTED FOR TIME SINCE V82GOFF1
021782,000225: 23,2535           77776                           EXIT                                           #  BEGAN.
021783,000226: 
021784,000227: 23,2536           35033                           CAF      BIT1                                  
021785,000228: 23,2537           55742                           TS       V82FLAGS                              #  INFORMS TICKTEST TO INCREMENT ONLY -TPER
021786,000229: 23,2540           05233                           TC       ENDOFJOB                              
021787,000230: 
021788,000231: 23,2541           43345        TICKTFF            DLOAD    DAD                                   #  (-TPER=0) TFF WAS COMPUTED.  TICK TFF.
021789,000232: 23,2542           02344                                    TFF                                   #  DO NOT TICK -TPER.  DISPLAY TFF, BUT NOT
021790,000233: 23,2543           02325                                    TSTART82                              #  -TPER.
021791,000234: 23,2544           02344                           STORE    TFF                                   #  TFF CORRECTED FOR TIME SINCE V82GOFF1
021792,000235: 23,2545           77776                           EXIT                                           #  BEGAN.
021793,000236: 23,2546           35032                           CAF      BIT2                                  
021794,000237: 23,2547           55742                           TS       V82FLAGS                              #  INFORMS TICKTEST TO INCREMENT ONLY TFF.
021795,000238: 23,2550           05233                           TC       ENDOFJOB                              
021796,000239: 
021797,000240: 23,2551           35027        TICKTEST           CAF      BIT5                                  #  THIS WAITLIST PROGRAM PERPETUATES ITSELF
021798,000241: 23,2552           71044                           MASK     EXTVBACT                              #  ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
021799,000242: 23,2553           10000                           CCS      A                                     
021800,000243: 23,2554           02562                           TC       DOTICK                                
021801,000244: 23,2555           37662                           CAF      PRIO25                                
021802,000245: 23,2556           05150                           TC       NOVAC                                 #  TERMINATE V 82.  CANT CALL ENDEXT IN RUPT.
021803,000246: 23,2557     1044                                  EBANK=   EXTVBACT                              
021804,000247: 23,2557           05550 04062                     2CADR    ENDEXT                                
021805,000248: 
021806,000249: 23,2561           05340                           TC       TASKOVER                              
021807,000250: 23,2562           35055        DOTICK             CAF      1SEC                                  #  RE-REQUEST TICKTEST.
021808,000251: 23,2563           05261                           TC       WAITLIST                              
021809,000252: 23,2564  E4,1743                                  EBANK=   TFF                                   
021810,000253: 23,2564           02551 46064                     2CADR    TICKTEST                              
021811,000254: 
021812,000255: 23,2566           36214                           CAF      THREE                                 
021813,000256: 23,2567           71742                           MASK     V82FLAGS                              
021814,000257: 23,2570           50000                           INDEX    A                                     
021815,000258: 23,2571           02572                           TC       +1                                    
021816,000259: 23,2572           05340                           TC       TASKOVER                              #  IF NO FLAGBITS SET DONT CHANGE TFF OR
021817,000260:                                                                                                  #  -TPER, BUT CONTINUE LOOP.
021818,000261: 23,2573           02601                           TC       TPERTICK                              #  ONLY BIT 1 SET.  INCR -TPER BY 1 SEC.
021819,000262: 23,2574           35055        TFFTICK            CAF      1SEC                                  #  ONLY BIT 2 SET.  INCR TFF BY 1 SEC.
021820,000263: 23,2575           54001                           TS       L                                     
021821,000264: 23,2576           35035                           CAF      ZERO                                  
021822,000265: 23,2577           21744                           DAS      TFF                                   
021823,000266: 23,2600           05340                           TC       TASKOVER                              
021824,000267: 23,2601           35055        TPERTICK           CAF      1SEC                                  
021825,000268: 23,2602           54001                           TS       L                                     
021826,000269: 23,2603           35035                           CAF      ZERO                                  
021827,000270: 23,2604           21746                           DAS      -TPER                                 
021828,000271: 23,2605           05340                           TC       TASKOVER                              
021829,000272: 
021830,000273: 20,2000                                           SETLOC   R30LOC1                               
021831,000274: 20,2000                                           BANK                                           
021832,000275: 20,2201                                           COUNT*   $$/R30                                
021833,000276: 20,2201           77776        V82GON             EXIT                                           #  AVERAGE G ON.  USE CURRENT STATE VECTOR
021834,000277:                                                                                                  #  FOR ORBITAL PARAMETER CALCULATIONS.
021835,000278: 20,2202           35077                           CAF      PRIO7                                 #  LESS THAN LAMBERT
021836,000279: 20,2203           05163                           TC       FINDVAC                               #  V82GON1 WILL PERFORM ORBIT CALCULATIONS
021837,000280: 20,2204  E4,1743                                  EBANK=   TFF                                   #  ABOUT PROPER BODY APPROX ONCE PER SEC.
021838,000281: 20,2204           02606 46064                     2CADR    V82GON1                               
021839,000282: 
021840,000283: 20,2206           00003                           RELINT                                         
021841,000284: 20,2207           10067                           CCS      NEWJOB                                #  WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
021842,000285: 20,2210           05200                           TC       CHANG1                                #  IS DONE.  NOTE:  V82GON1 (PRIO7, FINDVAC
021843,000286:                                                                                                  #  JOB) IS COMPLETED BEFORE V82GON (PRIO7,
021844,000287:                                                                                                  #  NOVAC JOB).
021845,000288: 20,2211           32217        V82REDSP           CAF      V16N44X                               #  MONITOR HAPO, HPER, TFF
021846,000289: 20,2212           04676                           TC       BANKCALL                              
021847,000290: 20,2213           20561                           CADR     GOXDSPF                               
021848,000291: 20,2214           05641                           TC       B5OFF                                 #  TERM THIS TELLS V82GON1 TO KILL ITSELF.
021849,000292: 20,2215           05641                           TC       B5OFF                                 #  PROC DITTO.
021850,000293: 20,2216           02211                           TC       V82REDSP                              #  RECYCLE
021851,000294: 
021852,000295: 20,2217           04054        V16N44X            VN       1644                                  
021853,000296: 
021854,000297: 23,2000                                           SETLOC   R30LOC                                
021855,000298: 23,2000                                           BANK                                           
021856,000299: 23,2606                                           COUNT*   $$/R30                                
021857,000300: 23,2606           06006        V82GON1            TC       INTPRET                               #  THIS EXEC PROGRAM PERPETUATES ITSELF
021858,000301:                                                                                                  #  ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
021859,000302: 23,2607           52175                           VLOAD    GOTO                                  #  HOLDS OFF CCS NEWJOB BETWEEN RN AND
021860,000303: 23,2610           01171                                    RN                                    #  VN FETCH SO RN, VN ARE FROM SAME
021861,000304: 23,2611           46612                                    NEXTLINE                              #  STATE VECTOR UPDATE.
021862,000305: 23,2612           26327        NEXTLINE           STOVL    RONE                                  #  RN AT (-29)M FOR EARTH OR MOON
021863,000306: 23,2613           01177                                    VN                                    
021864,000307: 23,2614           02335                           STORE    VONE                                  #  VN AT (-7)M/CS FOR EARTH OR MOON
021865,000308: 23,2615           52014                           BON      GOTO                                  
021866,000309: 23,2616           00315                                    AMOONFLG                              #  FLAG INDICATES BODY ABOUT WHICH ORBITAL
021867,000310: 23,2617           46621                                    MOONGON                               #  CALCULATIONS ARE TO BE PERFORMED.
021868,000311: 23,2620           46632                                    EARTHGON                              #  IF SET - MOON, IF RESET - EARTH.
021869,000312: 
021870,000313: 23,2621           71214        MOONGON            SET      DLOAD                                 
021871,000314: 23,2622           04462                                    V82EMFLG                              #  INDICATE MOON SCALING FOR SR30.1
021872,000315: 23,2623           06474                                    1/RTMUM                               #  LUNAR PARAMETERS LOADED HERE FOR SR30.1
021873,000316: 23,2624           14037                           STODL    TFF/RTMU                              
021874,000317: 23,2625           06500                                    MINPERM                               
021875,000318: 23,2626           26321                           STOVL    HPERMIN                               
021876,000319: 23,2627           02026                                    RLS                                   #  SCALED AT (-27)M.
021877,000320: 23,2630           52046                           ABVAL    GOTO                                  
021878,000321: 23,2631           46641                                    V82GON2                               
021879,000322: 23,2632           71214        EARTHGON           CLEAR    DLOAD                                 
021880,000323: 23,2633           04662                                    V82EMFLG                              #  INDICATE EARTH SCALING FOR SR30.1
021881,000324: 23,2634           06476                                    1/RTMUE                               #  EARTH PARAMETERS LOADED HERE FOR SR30.1
021882,000325: 23,2635           14037                           STODL    TFF/RTMU                              
021883,000326: 23,2636           06502                                    MINPERE                               
021884,000327: 23,2637           16321                           STODL    HPERMIN                               
021885,000328: 23,2640           05152                                    RPAD                                  
021886,000329: 23,2641           36323        V82GON2            STCALL   RPADTEM                               #  COMMON CODE FOR EARTH & MOON.
021887,000330: 23,2642           46671                                    SR30.1                                
021888,000331: 23,2643           77776                           EXIT                                           
021889,000332: 23,2644           05400                           TC       CHECKMM                               
021890,000333: 23,2645           00013                           DEC      11         B-14                       
021891,000334: 23,2646           02661                           TC       V82GON3                               #  NOT IN MODE 11.
021892,000335: 23,2647           06006        CANDEL             TC       INTPRET                               #  IN MODE 11 OR 00
021893,000336: 23,2650           77624                           CALL                                           
021894,000337: 23,2651           27446                                    INTSTALL                              #  DELRSPL DOES INTWAKE
021895,000338: 23,2652           45145                           DLOAD    CALL                                  
021896,000339: 23,2653           02344                                    TFF                                   
021897,000340: 23,2654           64017                                    DELRSPL                               #  RETURN IS TO NEXT LINE (SPLRET).
021898,000341: 23,2655           77776        SPLRET             EXIT                                           
021899,000342: 
021900,000343: 23,2656           31011                           CA       MODREG                                
021901,000344: 23,2657           00006                           EXTEND                                         
021902,000345: 23,2660           12521                           BZF      SPLRET1                               
021903,000346: 23,2661           35027        V82GON3            CAF      BIT5                                  
021904,000347: 23,2662           71044                           MASK     EXTVBACT                              #  SEE IF ASTRONAUT HAS SIGNALLED TERMINATE
021905,000348: 23,2663           00006                           EXTEND                                         
021906,000349: 23,2664           15550                           BZF      ENDEXT                                #  YES, TERMINATE VB 82 LOOP
021907,000350: 23,2665           35055                           CAF      1SEC                                  
021908,000351: 23,2666           04676                           TC       BANKCALL                              #  WAIT ONE SECOND BEFORE REPEATING
021909,000352: 23,2667           01732                           CADR     DELAYJOB                              #  ORBITAL PARAMETER COMPUTATION.
021910,000353: 23,2670           02606                           TC       V82GON1                               
021911,000354: 
021912,000355:                                                                                                  #  SUBROUTINE NAME: SR30.1
021913,000356:                                                                                                  #  MOD NO: 0                                                             DATE: 16 FEB 67
021914,000357:                                                                                                  #  MOD BY: RR BAIRNSFATHER                                               LOG SECTION: R32
021915,000358:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER         DATE: 11 APR 67         SR30.1 CHANGED TO ALLOW MONITOR OPERN
021916,000359:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER         DATE: 14 APR 67         ADD OVFL CK FOR RAPO
021917,000360:                                                                                                  #  MOD NO: 3     MOD BY ALONSO                   DATE: 11 DEC 67         SUBROUTINE REWRITTEN
021918,000361:                                                                                                  #  MOD NO: 4     MOD BY ALONSO                   DATE: 26 MAR 68         PROG MOD TO HANDLE DIF EARTH/MOON SCALE
021919,000362:                                                                                                  #  MOD NO: 5     MOD BY: RR BAIRNSFATHER         DATE: 6 AUG 68          OVFL CK FOR HAPO & HPER. VOIDS MOD #2.
021920,000363: 
021921,000364:                                                                                                  #  NEW FUNCTIONAL DESCRIPTION:  ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44.
021922,000365:                                                                                                  #  SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
021923,000366:                                                                                                  #  RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
021924,000367:                                                                                                  #  LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
021925,000368:                                                                                                  #  TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
021926,000369:                                                                                                  #  IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
021927,000370:                                                                                                  #  NEGATIVE    IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
021928,000371:                                                                                                  #  CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC.  IF HAPO
021929,000372:                                                                                                  #  WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
021930,000373: 
021931,000374:                                                                                                  #  ADDENDUM:     HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
021932,000375:                                                                                                  #                ABOVE REMARKS.
021933,000376: 
021934,000377:                                                                                                  #  CALLING SEQUENCE:     CALL
021935,000378:                                                                                                  #                                SR30.1
021936,000379: 
021937,000380:                                                                                                  #  SUBROUTINES CALLED:   TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
021938,000381: 
021939,000382:                                                                                                  #  NORMAL EXIT MODE:     CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
021940,000383: 
021941,000384:                                                                                                  #  ALARMS:       NONE
021942,000385: 
021943,000386:                                                                                                  #  OUTPUT:       RAPO    (-29) M EARTH   APOGEE RADIUS   EARTH CENTERED COORD.
021944,000387:                                                                                                  #                        (-27) M MOON                    MOON CENTERED COORD.
021945,000388:                                                                                                  #                RPER    (-29) M EARTH   PERIGEE RADIUS  EARTH CENTERED COORD.
021946,000389:                                                                                                  #                        (-27) M MOON                    MOON CENTERED COORD.
021947,000390:                                                                                                  #                HAPOX   (-29) M         APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
021948,000391:                                                                                                  #                HPERX   (-29) M         PERIGEE ALT. ABOVE PAD OR LAND. SITE    MAX VALUE LIMITED TO 9999.9 NM.
021949,000392:                                                                                                  #                TFF     (-28) CS        TIME TO 300KFT OR 35KFT ALTITUDE
021950,000393:                                                                                                  #                -TPER   (-28) CS        TIME TO PERIGEE
021951,000394: 
021952,000395:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
021953,000396:                                                                                                  #        TFF/RTMU        (+17) EARTH     RECIPROCAL OF PROPER GRAV CONSTANT FOR
021954,000397:                                                                                                  #                        (+14) MOON      EARTH OR MOON = 1/SQRT(MU).
021955,000398:                                                                                                  #        RONE            (-29) M         STATE VECTOR
021956,000399:                                                                                                  #        VONE            (-7)  M/CS      STATE VECTOR
021957,000400:                                                                                                  #        RPADTEM         (-29) M EARTH   RADIUS OF LAUNCH PAD OR LUNAR LANDING
021958,000401:                                                                                                  #                        (-27) M MOON    SITE.
021959,000402:                                                                                                  #        HPERMIN         (-29) M EARTH   (300 OR 35) KFT MINIMUM PERIGEE ALTITUDE
021960,000403:                                                                                                  #                        (-27) M MOON    ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
021961,000404:                                                                                                  #        V82EMFLG        (INT SW BIT)    RESET FOR EARTH, SET FOR MOON.
021962,000405: 
021963,000406:                                                                                                  #  DEBRIS:       QPRET, PDL, S2
021964,000407: 
021965,000408: 23,2671                                           COUNT*   $$/SR30S                              
021966,000409: 
021967,000410: 23,2671           44001        SR30.1             SETPD    STQ                                   #  INITIALIZE PUSHDOWN LIST.
021968,000411: 23,2672           00001                                    0                                     
021969,000412: 23,2673           00051                                    S2                                    
021970,000413:                                                                                                  #  SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
021971,000414:                                                                                                  #                VONE AT (-7)M/CS
021972,000415:                                                                                                  #  TFFCONMU, TFFRP/RA, CALCTPER AND CALCTFF
021973,000416:                                                                                                  #  CALLS REQUIRE:
021974,000417:                                                                                                  #  EARTH CENTERED (NO RESCALING REQUIRED)
021975,000418:                                                                                                  #        RONE SCALED TO B-29 M
021976,000419:                                                                                                  #        VONE SCALED TO B-7 M/CS
021977,000420:                                                                                                  #  MOON CENTERED (RESCALING REQUIRED)
021978,000421:                                                                                                  #        RONE SCALED TO B-27 M
021979,000422:                                                                                                  #        VONE SCALED TO B-5 M/CS
021980,000423: 23,2674           77214                           BOFF     VLOAD                                 
021981,000424: 23,2675           04742                                    V82EMFLG                              #  OFF FOR EARTH, ON FOR MOON.
021982,000425: 23,2676           46705                                    TFFCALLS                              
021983,000426: 23,2677           02327                                    RONE                                  
021984,000427: 23,2700           77752                           VSL2                                           
021985,000428: 23,2701           26327                           STOVL    RONE                                  
021986,000429: 23,2702           02335                                    VONE                                  
021987,000430: 23,2703           77752                           VSL2                                           
021988,000431: 23,2704           02335                           STORE    VONE                                  
021989,000432: 23,2705           77624        TFFCALLS           CALL                                           
021990,000433: 23,2706           56761                                    TFFCONMU                              
021991,000434: 23,2707           77624                           CALL                                           #  TFFRP/RA COMPUTES RAPO,RPER.
021992,000435: 23,2710           57027                                    TFFRP/RA                              
021993,000436:                                                                                                  #  RETURNS WITH RAPO IN D(MPAC).
021994,000437: 23,2711           77625                           DSU                                            
021995,000438: 23,2712           02323                                    RPADTEM                               
021996,000439: 23,2713           64414                           BOFF     SR2R                                  #  NEED HAPO AT (-29)M FOR DISPLAY.
021997,000440:                                                                                                  #  IF MOON CENTERED, RESCALE FROM (-27)M.
021998,000441:                                                                                                  #  IF EARTH CENTERED ALREADY AT (-29)M.
021999,000442: 23,2714           04742                                    V82EMFLG                              #  OFF FOR EARTH, ON FOR MOON.
022000,000443: 23,2715           46716                                    +1                                    
022001,000444: 23,2716           77624                           CALL                                           #  IF HAPO > MAXNM, SET HAPO =9999.9 NM.
022002,000445: 23,2717           46756                                    MAXCHK                                #  OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
022003,000446: 23,2720           16352        STORHAPO           STODL    HAPOX                                 
022004,000447: 23,2721           00017                                    RPER                                  
022005,000448: 23,2722           77625                           DSU                                            
022006,000449: 23,2723           02323                                    RPADTEM                               #  GIVES HPER AT (-29)M EARTH, (-27)M MOON.
022007,000450: 23,2724           00161                           STORE    MPAC       +4                         #  SAVE THIS FOR COMPARISON TO HPERMIN.
022008,000451: 23,2725           64414                           BOFF     SR2R                                  #  NEED HPER AT (-29)M FOR DISPLAY.
022009,000452:                                                                                                  #  IF MOON CENTERED, RESCALE FROM (-27)M.
022010,000453:                                                                                                  #  IF EARTH CENTERED ALREADY AT (-29)M.
022011,000454: 23,2726           04742                                    V82EMFLG                              #  OFF FOR EARTH, ON FOR MOON.
022012,000455: 23,2727           46730                                    +1                                    
022013,000456: 23,2730           77624                           CALL                                           #  IF HPER > MAXNM, SET HPER = 9999.9 NM.
022014,000457: 23,2731           46756                                    MAXCHK                                
022015,000458: 23,2732           16354        STORHPER           STODL    HPERX                                 #  STORE (RPER - RPADTEM) INTO HPERX.
022016,000459: 23,2733           00161                                    MPAC       +4                         
022017,000460: 23,2734           51025                           DSU      BPL                                   #  HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
022018,000461: 23,2735           02321                                    HPERMIN                               #  IF HPER L/ HPERMIN (300 OR 35) KFT,
022019,000462: 23,2736           46742                                    DOTPER                                #  THEN ZERO INTO -TPER.
022020,000463: 23,2737           52145                           DLOAD    GOTO                                  #  OTHERWISE CALCULATE TPER.
022021,000464: 23,2740           15334                                    HI6ZEROS                              
022022,000465: 23,2741           46746                                    SKIPTPER                              
022023,000466: 23,2742           45145        DOTPER             DLOAD    CALL                                  
022024,000467: 23,2743           00017                                    RPER                                  
022025,000468: 23,2744           57065                                    CALCTPER                              
022026,000469: 23,2745           77676                           DCOMP                                          #  TPER IS PUT NEG INTO -TPER.
022027,000470: 23,2746           16346        SKIPTPER           STODL    -TPER                                 
022028,000471: 23,2747           02321                                    HPERMIN                               #  HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
022029,000472: 23,2750           45015                           DAD      CALL                                  
022030,000473: 23,2751           02323                                    RPADTEM                               #  RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
022031,000474: 23,2752           57070                                    CALCTFF                               #  GIVES 59M59S FOR TFF IF RPER G/
022032,000475: 23,2753           77676                           DCOMP                                          #  HPERMIN + RPADTEM.  (TPER WAS NON ZERO)
022033,000476: 23,2754           36344                           STCALL   TFF                                   #  OTHERWISE COMPUTES TFF.       (GOTO)
022034,000477: 23,2755           00051                                    S2                                    
022035,000478: 
022036,000479: 23,2756           51025        MAXCHK             DSU      BPL                                   #  IF C(MPAC) > 9999.9 NM, MPAC = 9999.9 NM
022037,000480: 23,2757           06766                                    MAXNM                                 
022038,000481: 23,2760           46763                                    +3                                    #  OTHERWISE C(MPAC) = B(MPAC).
022039,000482: 23,2761           43415                           DAD      RVQ                                   
022040,000483: 23,2762           06766                                    MAXNM                                 
022041,000484: 23,2763           43545                 +3        DLOAD    RVQ                                   #  (USED BY P30 - P37 ALSO)
022042,000485: 23,2764           06766                                    MAXNM                                 
022043,000486: 
022044,000487: 23,2765           01065 05603  MAXNM              2OCT     0106505603                            

End of include-file R30.agc.  Parent file is MAIN.agc