Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

022601,000002:                                                                                                 #  Copyright:     Public domain.
022602,000003:                                                                                                 #  Filename:      R30.agc
022603,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
022604,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
022605,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
022606,000007:                                                                                                 #                 Apollo 15-17.
022607,000008:                                                                                                 #  Assembler:     yaYUL
022608,000009:                                                                                                 #  Contact:       Hartmuth Gutsche <hgutsche@xplornet.com>
022609,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
022610,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
022611,000012:                                                                                                 #  Mod history:   2009-10-03 HG   Adapted from corresponding Comanche 055 file.
022612,000013:                                                                                                 #                 2009-11-18 JL   Minor fixes.
022613,000014:                                                                                                 #                 2010-01-26 JL   Updated header comments.
022614,000015:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
022615,000016: 
022616,000017:                                                                                                 # # Page 516
022617,000018:                                                                                                 #  SUBROUTINE NAME:  V82CALL
022618,000019:                                                                                                 #  MOD NO:  0                                                             DATE:           16 FEB 67
022619,000020:                                                                                                 #  MOD BY:  RR BAIRNSFATHER                                               LOG SECTION:    R30
022620,000021:                                                                                                 #  MOD NO: 1              MOD BY: RR BAIRNSFATHER         DATE: 11 APR 67         SR30.1 CHANGED TO ALLOW MONITOR OPERN
022621,000022:                                                                                                 #  MOD  NO: 2             MOD  BY ALONSO                  DATE : 11 DEC 67        VB82 PROGRAM REWRITTEN
022622,000023:                                                                                                 #  MOD NO: 3              MOD  BY ALONSO                  DATE: 26 MAR 68         PROG MOD TO HANDLE DIF EARTH/MOON SCALE
022623,000024:                                                                                                 #  MOD NO- 4              MOD  BY CROCKER                 DATE- 27 AUG 69         PROG MOD FOR TIME OPTION.
022624,000025:                                                                                                 #   NEW FUNCTIONAL DESCRIPTION-      CALLED BY VERB 82 ENTER.  PRIORITY 7
022625,000026:                                                                                                 #     USED THROUGHOUT.               CALCULATE AND DISPLAY ORBITAL PARAMETERS
022626,000027: 
022627,000028:                                                                                                 #  1. IF AVERAGE G IS OFF:
022628,000029:                                                                                                 #           FLASH DISPLAY V04N12. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
022629,000030:                                                                                                 #            TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1)  ASTRONAUT
022630,000031:                                                                                                 #            CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
022631,000032:                                                                                                 #            FLASH DISPLAY TIME V06N16. INITIAL CHOICE = 0 = PRESENT TIME.
022632,000033:                                                                                                 #            ASTRONAUT CAN INSERT A TIME BY V25E, R1=HR R2=MIN R3=CSEC.
022633,000034:                                                                                                 #            CHOSEN STATE VECTOR UPDATED TO CHOSEN TIME BY THISPREC/OTHPREC
022634,000035:                                                                                                 #           CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
022635,000036:                                                                                                 #            RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
022636,000037:                                                                                                 #            HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
022637,000038:                                                                                                 #            HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
022638,000039:                                                                                                 #            INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
022639,000040:                                                                                                 #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
022640,000041:                                                                                                 #            NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
022641,000042:                                                                                                 #            IF P00 IS RUNNING, CALL DELRSPL SPLASH ERROR COMPUTATION.
022642,000043:                                                                                                 #            ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
022643,000044:                                                                                                 #            DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
022644,000045:                                                                                                 #            ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
022645,000046: 
022646,000047:                                                                                                 #  2. IF AVERAGE G IS ON:
022647,000048:                                                                                                 #           CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
022648,000049:                                                                                                 #            FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
022649,000050:                                                                                                 #            OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
022650,000051:                                                                                                 #           FLASH MONITOR V16N44 (HAPO, HPER, TFF).
022651,000052:                                                                                                 #            IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
022652,000053:                                                                                                 #            RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
022653,000054: 
022654,000055: 
022655,000056:                                                                                                 #  ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
022656,000057:                                                                                                 #             ABOVE REMARKS.
022657,000058: 
022658,000059:                                                                                                 #  CALLING SEQUENCE:  VERB 82 ENTER.
022659,000060: 
022660,000061: 
022661,000062:                                                                                                 #  SUBROUTINES CALLED:    SR30.1, GOXDSPF
022662,000063:                                                                                                 #                         MAYBE - THISPREC, OTHPREC, LOADTIME, DELRSPL,
022663,000064:                                                                                                 #                                 VEHOPT, TIMEOPT
022664,000065:                                                                                                 #  NORMAL EXIT MODES:  TC ENDEXT
022665,000066: 
022666,000067:                                                                                                 #  ALARMS:  NONE
022667,000068:                                                                                                 # # Page 517
022668,000069: 
022669,000070:                                                                                                 #  OUTPUT:  HAPOX    (-29) M
022670,000071:                                                                                                 #            HPERX    (-29) M
022671,000072:                                                                                                 #            RAPO     (-29) M EARTH
022672,000073:                                                                                                 #                     (-27) M MOON
022673,000074:                                                                                                 #            RPER     (-29) M EARTH
022674,000075:                                                                                                 #                     (-27) M MOON
022675,000076:                                                                                                 #            TFF      (-28) CS      CONTAINS NEGATIVE QUANTITY
022676,000077:                                                                                                 #            -TPER    (-28) CS      CONTAINS NEGATIVE QUANTITY
022677,000078:                                                                                                 #            RSP-RREC (-29) M       IF DELRSPL CALLED
022678,000079: 
022679,000080:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
022680,000081: 
022681,000082:                                                                                                 #  DEBRIS:  QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
022682,000083:                                                                                                 #            MAYBE:  TSTART82, V82FLAGS, TDEC1.
022683,000084: 
022684,000085: 
022685,000086: ???????  E4,1742                                 EBANK=   HAPOX                                 
022686,000087: ???????  40,2000                                 SBANK=   PINSUPER                              
022687,000088: 23,2000                                          SETLOC   R30LOC                                
022688,000089: 23,2000                                          BANK                                           
022689,000090: 23,2330                                          COUNT*   $$/R30                                
022690,000091: 
022691,000092: 23,2330           06006        V82CALL           TC       INTPRET                               
022692,000093: 23,2331           45014                          BON      CALL                                  
022693,000094: 23,2332           00716                                   AVEGFLAG                              
022694,000095: 23,2333           46551                                   V82GON                                #  IF AVERAGE G ON
022695,000096: 23,2334           50064                                   VEHOPT                                #  IF OFF, ALLOW VEHICLE OPTION
022696,000097: 23,2335           77776                          EXIT                                           
022697,000098: 23,2336           34765                          CAF      BIT4                                  #  80 MS
022698,000099: 23,2337           05233                          TC       WAITLIST                              
022699,000100: 23,2340  E4,1734                                 EBANK=   TFF                                   
022700,000101: 23,2340           02514 46104                    2CADR    TICKTEST                              
022701,000102: 23,2342           00003                          RELINT                                         
022702,000103: 23,2343  30,2000                                 SBANK=   LOWSUPER                              
022703,000104: 23,2343           32372        V82GOFLP          CAF      TFFBANK                               #  MAJOR RECYCLE LOOP ENTRY
022704,000105: 23,2344           54003                          TS       EBANK                                 
022705,000106: 23,2345           34772                          CAF      ZERO                                  
022706,000107: 23,2346           55733                          TS       V82FLAGS                              #  ZERO FLAGS FOR TICKTEST. INHIBITS
022707,000108:                                                                                                 #  DECREMENTING OF TFF AND -TPER.
022708,000109: 23,2347           35051                          CAF      PRIO7                                 
022709,000110: 23,2350           05135                          TC       FINDVAC                               #  V82GOFF1 WILL EXECUTE STATE VECTOR
022710,000111: 23,2351  E4,1734                                 EBANK=   TFF                                   #  UPDATE AND ORBIT CALCULATIONS FOR
022711,000112: 23,2351           02373 46064                    2CADR    V82GOFF1                              #  SELECTED VEHICLE ABOUT PROPER BODY.
022712,000113: 23,2353           00003                          RELINT                                         
022713,000114: 23,2354           36214        V82STALL          CAF      THREE                                 #  STALL IN THIS LOOP AND WITHOLD V 16 N 44
022714,000115: 23,2355           71733                          MASK     V82FLAGS                              #  UNTIL STATE VECTOR UPDATE SETS ONE OF
022715,000116: 23,2356           10000                          CCS      A                                     #  OUR FLAG BITS.
022716,000117: 23,2357           02363                          TC       FLAGGON                               #  EXIT FROM STALL LOOP.
022717,000118:                                                                                                 # # Page 518
022718,000119: 23,2360           04636                          TC       BANKCALL                              
022719,000120: 23,2361           01730                          CADR     1SECDELY                              
022720,000121: 23,2362           02354                          TC       V82STALL                              
022721,000122: 
022722,000123: 23,2363           32371        FLAGGON           CAF      V16N44                                #  MONITOR HAPO,HPER,TFF.
022723,000124: 23,2364           04636                          TC       BANKCALL                              
022724,000125: 23,2365           20576                          CADR     GOXDSPF                               
022725,000126: 23,2366           05626                          TC       B5OFF                                 #  TERM THIS TELLS TICKTEST TO KILL ITSELF
022726,000127: 23,2367           05626                          TC       B5OFF                                 #  PROCEED  DITTO
022727,000128: 23,2370           02343                          TC       V82GOFLP                              #  RECYCLE  RECOMPUTE STATE VECT + DISPLAY
022728,000129: 
022729,000130: 23,2371           04054        V16N44            VN       1644                                  
022730,000131: 23,2372           02334        TFFBANK           ECADR    TFF                                   
022731,000132: 
022732,000133: 
022733,000134: 23,2373           06006        V82GOFF1          TC       INTPRET                               
022734,000135: 23,2374           45145                          DLOAD    CALL                                  
022735,000136: 23,2375           15336                                   ZEROVECS                              #  INITIAL TIME = 0 = PRES. TIME
022736,000137: 23,2376           46424                                   TIMEOPT                               #  ALLOW TIME SELECTION
022737,000138: 23,2377           16316                          STODL    TSTART82                              #  TIME FOR INTERNAL USE (=TDEC1 TIME)
022738,000139: 23,2400           01257                                   OPTIONEV                              
022739,000140: 23,2401           46142                          SR1      BHIZ                                  
022740,000141: 23,2402           46420                                   THISSHIP                              
022741,000142: 23,2403           77624                          CALL                                           #  CALL STATE VECTOR UPDATE FOR OTHER SHIP.
022742,000143: 23,2404           27161                                   OTHPREC                               
022743,000144: 23,2405           77775        BOTHSHIP          VLOAD                                          #  MOVE RESULTS INTO TFFCONIC STORAGE AREAS
022744,000145: 23,2406           00001                                   RATT                                  #   TO BE CALLED BY SR30.1.
022745,000146: 23,2407           26320                          STOVL    RONE                                  #  RATT AT (-29)M FOR EARTH OR MOON
022746,000147: 23,2410           00007                                   VATT                                  
022747,000148: 23,2411           16326                          STODL    VONE                                  
022748,000149: 23,2412           00050                                   X2                                    
022749,000150: 23,2413           45030                          BHIZ     CALL                                  
022750,000151: 23,2414           46457                                   EARTHPAD                              
022751,000152: 23,2415           46635                                   MOONGON                               
022752,000153: 23,2416           77650                          GOTO                                           
022753,000154: 23,2417           46461                                   BOTHPAD                               
022754,000155: 23,2420           77624        THISSHIP          CALL                                           #  CALL STATE VECTOR UPDATE FOR THIS SHIP.
022755,000156: 23,2421           27145                                   THISPREC                              
022756,000157: 23,2422           77650                          GOTO                                           
022757,000158: 23,2423           46405                                   BOTHSHIP                              
022758,000159: 
022759,000160: 23,2424           01255        TIMEOPT           STORE    DSPTEMX                               
022760,000161: 23,2425           77420                 +1       STQ      EXIT                                  
022761,000162: 23,2426           00734                                   VEHRET                                
022762,000163: 23,2427           32446                          CAF      V06N16X                               
022763,000164: 23,2430           04636                          TC       BANKCALL                              
022764,000165: 23,2431           20576                          CADR     GOXDSPF                               
022765,000166: 23,2432           05524                          TC       ENDEXT                                
022766,000167: 23,2433           02435                          TC       +2                                    
022767,000168: 23,2434           02427                          TC       -5                                    
022768,000169:                                                                                                 # # Page 519      
022769,000170: 23,2435           06006                          TC       INTPRET                               
022770,000171: 23,2436           53145                          DLOAD    BZE                                   
022771,000172: 23,2437           01255                                   DSPTEMX                               
022772,000173: 23,2440           46443                                   GETNOW                                
022773,000174: 23,2441           34041        STRTDEC1          STCALL   TDEC1                                 
022774,000175: 23,2442           00734                                   VEHRET                                
022775,000176: 23,2443           52034        GETNOW            RTB      GOTO                                  
022776,000177: 23,2444           51751                                   LOADTIME                              
022777,000178: 23,2445           46441                                   STRTDEC1                              
022778,000179: 23,2446           01420        V06N16X           VN       0616                                  
022779,000180:                                                                                                 #  THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS.
022780,000181: 
022781,000182: 23,2447           27533 07571  1/RTMUM           2DEC*    .45162595  E-4        B14*            
022782,000183: 23,2451           25004 06702  1/RTMUE           2DEC*    .50087529  E-5        B17*            
022783,000184: 
022784,000185: 23,2453           00001 11530  MINPERM           2DEC     10668      B-27                       #  35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
022785,000186: 23,2455           00002 31230  MINPERE           2DEC     91440      B-29                       #  300 KFT (-29)M FOR EARTH
022786,000187: 
022787,000188: 23,2457           77624        EARTHPAD          CALL                                           
022788,000189: 23,2460           46647                                   EARTHGON                              
022789,000190: 23,2461           36314        BOTHPAD           STCALL   RPADTEM                               
022790,000191: 23,2462           46660                                   SR30.1                                #  CALCULATE ORBITAL PARAMETERS
022791,000192: 23,2463           46135                          SLOAD    BHIZ                                  
022792,000193: 23,2464           01215                                   MODREG                                #  ARE WE IN P00
022793,000194: 23,2465           46611                                   CANDEL                                #  YES, DO DELRSPL
022794,000195: 23,2466           45234        SPLRET1           RTB      DSU                                   
022795,000196: 23,2467           51751                                   LOADTIME                              
022796,000197: 23,2470           02316                                   TSTART82                              #  PRESENT TIME - TIME V82GOFF1 BEGAN
022797,000198: 23,2471           16316                          STODL    TSTART82                              #                 SAVE IT.
022798,000199: 23,2472           02337                                   -TPER                                 #  SR30.1 SETS -TPER=0 IF HPER L/
022799,000200: 23,2473           77654                          BZE                                            #   HPERMIN (300 OR 35) KFT.
022800,000201: 23,2474           46504                                   TICKTFF                               #  (-TPER = 0)
022801,000202: 23,2475           43345        TICKTPER          DLOAD    DAD                                   #  (-TPER NON ZERO)  TFF WAS NOT COMPUTED.
022802,000203: 23,2476           02337                                   -TPER                                 #  BUT WAS SET TO 59M59S.DONT DICK TFF, DO
022803,000204: 23,2477           02316                                   TSTART82                              #  TICK -TPER. DISPLAY BOTH.
022804,000205: 23,2500           02337                          STORE    -TPER                                 #  -TPER CORRECTED FOR TIME SINCE V82GOFF1
022805,000206: 23,2501           77776                          EXIT                                           #  BEGAN.
022806,000207: 23,2502           34770                          CAF      BIT1                                  #  INFORMS TICKTEST TO INCREMENT ONLY -TPER
022807,000208: 23,2503           02512                          TC       TICKTFF    +6                         
022808,000209: 23,2504           43345        TICKTFF           DLOAD    DAD                                   #  (-TPER=0)  TFF WAS COMPUTED.TICK TFF.
022809,000210: 23,2505           02335                                   TFF                                   #  DO NOT TICK -TPER.DISPLAY TFF, BUT NOT
022810,000211: 23,2506           02316                                   TSTART82                              #  -TPER.
022811,000212: 23,2507           02335                          STORE    TFF                                   #  TFF CORRECTED FOR TIME SINCE V82GOFF1
022812,000213: 23,2510           77776                          EXIT                                           #  BEGAN.
022813,000214: 23,2511           34767                          CAF      BIT2                                  
022814,000215: 23,2512           55733                 +6       TS       V82FLAGS                              #  INFORMS TICKTEST TO INCREMENT ONLY TFF.
022815,000216: 23,2513           05205                          TC       ENDOFJOB                              
022816,000217:                                                                                                 # # Page 520
022817,000218: 23,2514           34764        TICKTEST          CAF      BIT5                                  #  THIS WAITLIST PROGRAM PERPETUATES ITSELF
022818,000219: 23,2515           71247                          MASK     EXTVBACT                              #  ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
022819,000220: 23,2516           10000                          CCS      A                                     
022820,000221: 23,2517           02525                          TC       DOTICK                                
022821,000222: 23,2520           37647                          CAF      PRIO25                                
022822,000223: 23,2521           05121                          TC       NOVAC                                 #  TERMINATE V 82.CANT CALL ENDEXT IN RUPT.
022823,000224: 23,2522     1247                                 EBANK=   EXTVBACT                              
022824,000225: 23,2522           05524 04062                    2CADR    ENDEXT                                
022825,000226: 
022826,000227: 23,2524           05314                          TC       TASKOVER                              
022827,000228: 23,2525           35016        DOTICK            CAF      1SEC                                  #  RE-REQUEST TICKTEST.
022828,000229: 23,2526           05233                          TC       WAITLIST                              
022829,000230: 23,2527  E4,1734                                 EBANK=   TFF                                   
022830,000231: 23,2527           02514 46064                    2CADR    TICKTEST                              
022831,000232: 
022832,000233: 23,2531           36214                          CAF      THREE                                 
022833,000234: 23,2532           71733                          MASK     V82FLAGS                              
022834,000235: 23,2533           50000                          INDEX    A                                     
022835,000236: 23,2534           02535                          TC       +1                                    
022836,000237: 23,2535           05314                          TC       TASKOVER                              #  IF NO FLAGBITS SET DONT CHANGE TFF OR
022837,000238:                                                                                                 #  -TPER, BUT CONTINUE LOOP.
022838,000239: 23,2536           02544                          TC       TPERTICK                              #  ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
022839,000240: 23,2537           35016        TFFTICK           CAF      1SEC                                  #  ONLY BIT 2 SET. INCR TFF BY 1 SEC.
022840,000241: 23,2540           54001                          TS       L                                     
022841,000242: 23,2541           34772                          CAF      ZERO                                  
022842,000243: 23,2542           21735                          DAS      TFF                                   
022843,000244: 23,2543           05314                          TC       TASKOVER                              
022844,000245: 23,2544           35016        TPERTICK          CAF      1SEC                                  
022845,000246: 23,2545           54001                          TS       L                                     
022846,000247: 23,2546           34772                          CAF      ZERO                                  
022847,000248: 23,2547           21737                          DAS      -TPER                                 
022848,000249: 23,2550           05314                          TC       TASKOVER                              
022849,000250:                                                                                                 # # Page 521
022850,000251: 23,2551           77776        V82GON            EXIT                                           #   AVERAGE G ON. USE CURRENT STATE VECTOR
022851,000252:                                                                                                 #  FOR ORBITAL PARAMETER CALCULATIONS.
022852,000253: 23,2552           35051                          CAF      PRIO7                                 #  LESS THAN LAMBERT
022853,000254: 23,2553           05135                          TC       FINDVAC                               #  V82GON1 WILL PERFORM ORBIT CALCULATIONS
022854,000255: 23,2554  E4,1734                                 EBANK=   TFF                                   #  ABOUT PROPER BODY APPROX ONCE PER SEC.
022855,000256: 23,2554           02567 46064                    2CADR    V82GON1                               
022856,000257: 
022857,000258: 23,2556           00003                          RELINT                                         
022858,000259: 23,2557           10067                          CCS      NEWJOB                                #  WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
022859,000260: 23,2560           05152                          TC       CHANG1                                #  IS DONE. NOTE:V82GON1 (PRIO7, FINDVAC
022860,000261:                                                                                                 #  JOB) IS COMPLETED BEFORE V82GON (PRIO7,
022861,000262:                                                                                                 #  NOVAC JOB).
022862,000263: 23,2561           32371        V82REDSP          CAF      V16N44                                #  MONITOR HAPO, HPER, TFF
022863,000264: 23,2562           04636                          TC       BANKCALL                              
022864,000265: 23,2563           20576                          CADR     GOXDSPF                               
022865,000266: 23,2564           05626                          TC       B5OFF                                 #  TERM THIS TELLS V82GON1 TO KILL ITSELF.
022866,000267: 23,2565           05626                          TC       B5OFF                                 #  PROC DITTO.
022867,000268: 23,2566           02561                          TC       V82REDSP                              #  RECYCLE
022868,000269: 
022869,000270: 23,2567           06006        V82GON1           TC       INTPRET                               #  THIS EXEC PROGRAM PERPETUATES ITSELF
022870,000271:                                                                                                 #  ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
022871,000272: 23,2570           52175                          VLOAD    GOTO                                  #  HOLDS OFF CCS NEWJOB BETWEEN RN AND
022872,000273: 23,2571           01030                                   RN                                    #    VN FETCH SO RN , VN ARE FROM SAME
022873,000274: 23,2572           46573                                   NEXTLINE                              #    STATE VECTOR UPDATE.
022874,000275: 23,2573           26320        NEXTLINE          STOVL    RONE                                  #   RN AT (-29)M FOR EARTH OR MOON
022875,000276: 23,2574           01036                                   VN                                    
022876,000277: 23,2575           02326                          STORE    VONE                                  #  VN AT (-7)M/CS FOR EARTH OR MOON
022877,000278: 23,2576           45014                          BON      CALL                                  
022878,000279: 23,2577           00315                                   AMOONFLG                              #  FLAG INDICATES BODY ABOUT WHICH ORBITAL
022879,000280: 23,2600           46631                                   MOONGONA                              #   CALCULATIONS ARE TO BE PERFORMED.
022880,000281: 23,2601           46647                                   EARTHGON                              #    IF SET - MOON , IF RESET - EARTH.
022881,000282: 
022882,000283: 23,2602           36314        V82GON2           STCALL   RPADTEM                               #  COMMON CODE FOR EARTH & MOON.
022883,000284: 23,2603           46660                                   SR30.1                                
022884,000285: 23,2604           77776                          EXIT                                           
022885,000286: 23,2605           05354                          TC       CHECKMM                               
022886,000287: 23,2606           00013                          DEC      11         B-14                       
022887,000288: 23,2607           02622                          TC       V82GON3                               #  NOT IN MODE 11.
022888,000289: 23,2610           06006                          TC       INTPRET                               #  IN MODE 11 OR P00
022889,000290: 23,2611           77624        CANDEL            CALL                                           
022890,000291: 23,2612           27516                                   INTSTALL                              #  DELRSPL DOES INTWAKE
022891,000292: 23,2613           45145                          DLOAD    CALL                                  
022892,000293: 23,2614           02335                                   TFF                                   
022893,000294: 23,2615           64027                                   DELRSPL                               #  RETURN IS TO NEXT LINE ( SPLRET ).
022894,000295: 23,2616           46135        SPLRET            SLOAD    BHIZ                                  
022895,000296: 23,2617           01215                                   MODREG                                
022896,000297: 23,2620           46466                                   SPLRET1                               
022897,000298: 23,2621           77776                          EXIT                                           
022898,000299: 23,2622           34764        V82GON3           CAF      BIT5                                  
022899,000300: 23,2623           71247                          MASK     EXTVBACT                              #  SEE IF ASTRONAUT HAS SIGNALLED TERMINATE
022900,000301:                                                                                                 # # Page 522
022901,000302: 23,2624           00006                          EXTEND                                         
022902,000303: 23,2625           15524                          BZF      ENDEXT                                #  YES, TERMINATE VB 82 LOOP
022903,000304: 23,2626           04636                          TC       BANKCALL                              #  WAIT ONE SECOND BEFORE REPEATING
022904,000305: 23,2627           01730                          CADR     1SECDELY                              #     ORBITAL PARAMETER COMPUTATION.
022905,000306: 23,2630           02567                          TC       V82GON1                               
022906,000307: 
022907,000308: 23,2631           77624        MOONGONA          CALL                                           
022908,000309: 23,2632           46635                                   MOONGON                               
022909,000310: 23,2633           77650                          GOTO                                           
022910,000311: 23,2634           46602                                   V82GON2                               
022911,000312: 23,2635           71214        MOONGON           SET      DLOAD                                 
022912,000313: 23,2636           04462                                   V82EMFLG                              #  INDICATE MOON SCALING FOR SR30.1
022913,000314: 23,2637           06450                                   1/RTMUM                               #  LUNAR PARAMETERS LOADED HERE FOR SR30.1
022914,000315: 23,2640           14037                          STODL    TFF/RTMU                              
022915,000316: 23,2641           06454                                   MINPERM                               
022916,000317: 23,2642           26312                          STOVL    HPERMIN                               
022917,000318: 23,2643           02026                                   RLS                                   #  SCALED AT (-27)M.
022918,000319: 23,2644           77646                          ABVAL                                          
022919,000320: 23,2645           43414                          SET      RVQ                                   
022920,000321: 23,2646           01463                                   LUNAFLAG                              #  FOR LAT-LONG SUBROUTINE
022921,000322: 23,2647           71214        EARTHGON          CLEAR    DLOAD                                 
022922,000323: 23,2650           04662                                   V82EMFLG                              #  INDICATE EARTH SCALING FOR SR30.1
022923,000324: 23,2651           06452                                   1/RTMUE                               #  EARTH PARAMETERS LOADED HERE FOR SR30.1
022924,000325: 23,2652           14037                          STODL    TFF/RTMU                              
022925,000326: 23,2653           06456                                   MINPERE                               
022926,000327: 23,2654           16312                          STODL    HPERMIN                               
022927,000328: 23,2655           05173                                   RPAD                                  
022928,000329: 23,2656           43414                          CLEAR    RVQ                                   
022929,000330: 23,2657           01663                                   LUNAFLAG                              #  FOR LAT-LONG SUBROUTINE
022930,000331: 
022931,000332:                                                                                                 # # Page 523
022932,000333:                                                                                                 #  SUBROUTINE NAME:       SR30.1
022933,000334:                                                                                                 #  MOD NO:  0                                                                     DATE:           16 FEB 67
022934,000335:                                                                                                 #  MOD BY:  R. R. BAIRNSFATHER                                                    LOG SECTION:    R32
022935,000336:                                                                                                 #  MOD NO:  1             MOD BY:  RR BAIRNSFATHER        DATE: 11 APR 67         SR30.1 CHANGED TO ALLOW MONITOR OPERN
022936,000337:                                                                                                 #  MOD NO:  2             MOD BY:  RR BAIRNSFATHER        DATE:  14 APR 67        ADD OVFL CK FOR RAPO
022937,000338:                                                                                                 #  MOD NO:  3             MOD BY ALONSO                   DATE: 11 DEC 67         SUBROUTINE REWRITTEN
022938,000339:                                                                                                 #  MOD NO: 4              MOD BY ALONSO                   DATE: 26 MAR 68         PROG MOD TO HANDLE DIF EARTH/MOON SCALE
022939,000340:                                                                                                 #  MOD NO:  5             MOD BY:  RR BAIRNSFATHER        DATE:  6 AUG 68         OVFL CK FOR HAPO & HPER.VOIDS MOD #2.
022940,000341: 
022941,000342:                                                                                                 #  NEW FUNCTIONAL DESCRIPTION:    ORBITAL PARAMETERS DISPLAY FOR NOUNS 32  AND 44.
022942,000343:                                                                                                 #  SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
022943,000344:                                                                                                 #  RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
022944,000345:                                                                                                 #  LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
022945,000346:                                                                                                 #  TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
022946,000347:                                                                                                 #  IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
022947,000348:                                                                                                 #  NEGATIVE    IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
022948,000349:                                                                                                 #  CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO
022949,000350:                                                                                                 #  WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
022950,000351: 
022951,000352:                                                                                                 #  ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
022952,000353:                                                                                                 #             ABOVE REMARKS.
022953,000354: 
022954,000355:                                                                                                 #  CALLING SEQUENCE:      CALL
022955,000356:                                                                                                 #                                 SR30.1
022956,000357:                                                                                                 #  SUBROUTINES CALLED:    TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
022957,000358:                                                                                                 #  NORMAL EXIT MODE:      CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
022958,000359:                                                                                                 #  ALARMS:                NONE
022959,000360:                                                                                                 #  OUTPUT:  RAPO   (-29) M EARTH   APOGEE RADIUS   EARTH CENTERED COORD.
022960,000361:                                                                                                 #                   (-27) M MOON                    MOON CENTERED COORD.
022961,000362:                                                                                                 #            RPER   (-29) M EARTH   PERIGEE RADIUS  EARTH CENTERED COORD.
022962,000363:                                                                                                 #                   (-27) M MOON                    MOON CENTERED COORD.
022963,000364:                                                                                                 #            HAPOX  (-29) M         APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
022964,000365:                                                                                                 #            HPERX  (-29) M         PERIGEE ALT. ABOVE PAD OR LAND. SITE    MAX VALUE LIMITED TO 9999.9 NM.
022965,000366:                                                                                                 #            TFF    (-28) CS        TIME TO 300KFT OR 35KFT ALTITUDE
022966,000367:                                                                                                 #            -TPER  (-28) CS        TIME TO PERIGEE
022967,000368:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED -
022968,000369:                                                                                                 #            TFF/RTMU (+17) EARTH   RECIPROCAL OF PROPER GRAV CONSTANT FOR
022969,000370:                                                                                                 #                     (+14) MOON    EARTH OR MOON = 1/SQRT(MU).
022970,000371:                                                                                                 #            RONE    (-29) M        STATE VECTOR
022971,000372:                                                                                                 #            VONE    (-7)  M/CS     STATE VECTOR
022972,000373:                                                                                                 #            RPADTEM (-29) M EARTH  RADIUS OF LAUNCH PAD OR LUNAR LANDING
022973,000374:                                                                                                 #                    (-27) M MOON   SITE.
022974,000375:                                                                                                 #            HPERMIN (-29) M EARTH  (300 OR 35)KFT MINIMUM PERIGEE ALTITUDE
022975,000376:                                                                                                 #                    (-27) M MOON   ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
022976,000377:                                                                                                 #            V82EMFLG (INT SW BIT) RESET FOR EARTH, SET FOR MOON.
022977,000378: 
022978,000379:                                                                                                 #  DEBRIS:  QPRET, PDL, S2
022979,000380: 
022980,000381:                                                                                                 # # Page 524
022981,000382: 23,2660                                          COUNT*   $$/SR30S                              
022982,000383: 
022983,000384: 23,2660           44001        SR30.1            SETPD    STQ                                   #  INITIALIZE PUSHDOWN LIST.
022984,000385: 23,2661           00001                                   0                                     
022985,000386: 23,2662           00051                                   S2                                    
022986,000387:                                                                                                 #  SR30.1 INPUT:  RONE AT (-29)M EARTH/MOON
022987,000388:                                                                                                 #                 VONE AT (-7)M/CS
022988,000389:                                                                                                 #  TFFCONMU,TFFRP/RA,CALCTPER AND CALCTFF
022989,000390:                                                                                                 #  CALLS REQUIRE :
022990,000391:                                                                                                 #  EARTH CENTERED (NO RESCALING REQUIRED)
022991,000392:                                                                                                 #                 RONE SCALED TO B-29 M
022992,000393:                                                                                                 #                 VONE SCALED TO B-7 M/CS
022993,000394:                                                                                                 #  MOON CENTERED  (RESCALING REQUIRED)
022994,000395:                                                                                                 #                 RONE SCALED TO B-27 M
022995,000396:                                                                                                 #                 VONE SCALED TO B-5  M/CS
022996,000397: 23,2663           77214                          BOFF     VLOAD                                 
022997,000398: 23,2664           04742                                   V82EMFLG                              #   OFF FOR EARTH ,  ON FOR MOON.
022998,000399: 23,2665           46674                                   TFFCALLS                              
022999,000400: 23,2666           02320                                   RONE                                  
023000,000401: 23,2667           77752                          VSL2                                           
023001,000402: 23,2670           26320                          STOVL    RONE                                  
023002,000403: 23,2671           02326                                   VONE                                  
023003,000404: 23,2672           77752                          VSL2                                           
023004,000405: 23,2673           02326                          STORE    VONE                                  
023005,000406: 23,2674           77624        TFFCALLS          CALL                                           
023006,000407: 23,2675           57152                                   TFFCONMU                              
023007,000408: 23,2676           77624                          CALL                                           #  TFFRP/RA COMPUTES RAPO,RPER.
023008,000409: 23,2677           57220                                   TFFRP/RA                              
023009,000410:                                                                                                 #  RETURNS WITH RAPO IN D(MPAC).
023010,000411: 23,2700           77625                          DSU                                            
023011,000412: 23,2701           02314                                   RPADTEM                               
023012,000413: 23,2702           64414                          BOFF     SR2R                                  #  NEED HAPO AT (-29)M FOR DISPLAY.
023013,000414:                                                                                                 #  IF MOON CENTERED, RESCALE FROM (-27)M
023014,000415:                                                                                                 #   IF EARTH CENTERED ALREADY AT (-29)M.
023015,000416: 23,2703           04742                                   V82EMFLG                              #   OFF FOR EARTH, ON FOR MOON.
023016,000417: 23,2704           46705                                   +1                                    
023017,000418: 23,2705           77624                          CALL                                           #  IF HAPO > MAXNM, SET HAPO =9999.9 NM
023018,000419: 23,2706           46745                                   MAXCHK                                #  OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
023019,000420: 23,2707           16343        STORHAPO          STODL    HAPOX                                 
023020,000421: 23,2710           00017                                   RPER                                  
023021,000422: 23,2711           77625                          DSU                                            
023022,000423: 23,2712           02314                                   RPADTEM                               #  GIVES HPER AT (-29)M EARTH, (-27)M MOON
023023,000424: 23,2713           00161                          STORE    MPAC       +4                         #  SAVE THIS FOR COMPARISON TO HPERMIN.
023024,000425: 23,2714           64414                          BOFF     SR2R                                  #  NEED HPER AT (-29)M FOR DISPLAY.
023025,000426:                                                                                                 #  IF MOON CENTERED, RESCALE FROM (-27)M.
023026,000427:                                                                                                 #  IF EARTH CENTERED ALREADY AT (-29)M.
023027,000428: 23,2715           04742                                   V82EMFLG                              #  OFF FOR EARTH,  ON FOR MOON.
023028,000429: 23,2716           46717                                   +1                                    
023029,000430: 23,2717           77624                          CALL                                           #  IF HPER > MAXNM, SET HPER = 9999.9 NM
023030,000431: 23,2720           46745                                   MAXCHK                                
023031,000432:                                                                                                 # # Page 525
023032,000433: 23,2721           16345        STORHPER          STODL    HPERX                                 #  STORE (RPER - RPADTEM) INTO HPERX.
023033,000434: 23,2722           00161                                   MPAC       +4                         
023034,000435: 23,2723           51025                          DSU      BPL                                   #  HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
023035,000436: 23,2724           02312                                   HPERMIN                               #  IF HPER L/   HPERMIN (300 OR 35)KFT,
023036,000437: 23,2725           46731                                   DOTPER                                #   THEN ZERO INTO -TPER.
023037,000438: 23,2726           52145                          DLOAD    GOTO                                  #    OTHERWISE CALCULATE TPER.
023038,000439: 23,2727           15336                                   HI6ZEROS                              
023039,000440: 23,2730           46735                                   SKIPTPER                              
023040,000441: 23,2731           45145        DOTPER            DLOAD    CALL                                  
023041,000442: 23,2732           00017                                   RPER                                  
023042,000443: 23,2733           57256                                   CALCTPER                              
023043,000444: 23,2734           77676                          DCOMP                                          #  TPER IS PUT NEG INTO -TPER.
023044,000445: 23,2735           16337        SKIPTPER          STODL    -TPER                                 
023045,000446: 23,2736           02312                                   HPERMIN                               #  HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
023046,000447: 23,2737           45015                          DAD      CALL                                  
023047,000448: 23,2740           02314                                   RPADTEM                               #  RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
023048,000449: 23,2741           57261                                   CALCTFF                               #  GIVES 59M59S FOR TFF IF RPER G/
023049,000450: 23,2742           77676                          DCOMP                                          #    HPERMIN + RPADTEM. (TPER WAS NON ZERO)
023050,000451: 23,2743           36335                          STCALL   TFF                                   #  OTHERWISE COMPUTES TFF.        (GOTO)
023051,000452: 23,2744           00051                                   S2                                    
023052,000453: 
023053,000454: 23,2745           51025        MAXCHK            DSU      BPL                                   #  IF C(MPAC) > 9999.9 NM. MPAC = 9999.9 NM
023054,000455: 23,2746           06755                                   MAXNM                                 
023055,000456: 23,2747           46752                                   +3                                    #  OTHERWISE C(MPAC) = B(MPAC).
023056,000457: 23,2750           43415                          DAD      RVQ                                   
023057,000458: 23,2751           06755                                   MAXNM                                 
023058,000459: 23,2752           43545                 +3       DLOAD    RVQ                                   #  (USED BY P30 - P37 ALSO)
023059,000460: 23,2753           06755                                   MAXNM                                 
023060,000461: 
023061,000462: 23,2754           01065 05603  MAXNM             2OCT     0106505603                            
023062,000463: 
023063,000464:                                                                                                 # # Page 526
023064,000465: 
023065,000466:                                                                                                 #  *** END OF MEDUSA  .035 ***

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