Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

022711,000002:                                                                                                  ## Copyright:   Public domain.
022712,000003:                                                                                                  ## Filename:    R30.agc
022713,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
022714,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
022715,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
022716,000007:                                                                                                  ##              Apollo 15-17.
022717,000008:                                                                                                  ## Assembler:   yaYUL
022718,000009:                                                                                                  ## Contact:     Hartmuth Gutsche <hgutsche@xplornet.com>
022719,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022720,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
022721,000012:                                                                                                  ## Mod history: 2009-10-03 HG   Adapted from corresponding Comanche 055 file.
022722,000013:                                                                                                  ##              2009-11-18 JL   Minor fixes.
022723,000014:                                                                                                  ##              2010-01-26 JL   Updated header comments.
022724,000015:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
022725,000016:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by diff'ing vs Comanche 55
022726,000017:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
022727,000018: 

Page 516

022729,000020:                                                                                                  #  SUBROUTINE NAME:  V82CALL
022730,000021:                                                                                                  #  MOD NO:  0                                                            DATE:           16 FEB 67
022731,000022:                                                                                                  #  MOD BY:  RR BAIRNSFATHER                                              LOG SECTION:    R30
022732,000023:                                                                                                  #  MOD NO: 1             MOD BY: RR BAIRNSFATHER         DATE: 11 APR 67         SR30.1 CHANGED TO ALLOW MONITOR OPERN
022733,000024:                                                                                                  #  MOD  NO: 2            MOD  BY ALONSO                  DATE : 11 DEC 67        VB82 PROGRAM REWRITTEN
022734,000025:                                                                                                  #  MOD NO: 3             MOD  BY ALONSO                  DATE: 26 MAR 68         PROG MOD TO HANDLE DIF EARTH/MOON SCALE
022735,000026:                                                                                                  #  MOD NO- 4             MOD  BY CROCKER                 DATE- 27 AUG 69         PROG MOD FOR TIME OPTION.
022736,000027:                                                                                                  #   NEW FUNCTIONAL DESCRIPTION-     CALLED BY VERB 82 ENTER.  PRIORITY 7
022737,000028:                                                                                                  #     USED THROUGHOUT.              CALCULATE AND DISPLAY ORBITAL PARAMETERS
022738,000029: 
022739,000030:                                                                                                  #  1. IF AVERAGE G IS OFF:
022740,000031:                                                                                                  #          FLASH DISPLAY V04N12. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
022741,000032:                                                                                                  #           TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
022742,000033:                                                                                                  #           CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
022743,000034:                                                                                                  #           FLASH DISPLAY TIME V06N16. INITIAL CHOICE = 0 = PRESENT TIME.
022744,000035:                                                                                                  #           ASTRONAUT CAN INSERT A TIME BY V25E, R1=HR R2=MIN R3=CSEC.
022745,000036:                                                                                                  #           CHOSEN STATE VECTOR UPDATED TO CHOSEN TIME BY THISPREC/OTHPREC
022746,000037:                                                                                                  #          CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
022747,000038:                                                                                                  #           RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
022748,000039:                                                                                                  #           HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
022749,000040:                                                                                                  #           HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
022750,000041:                                                                                                  #           INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
022751,000042:                                                                                                  #          FLASH MONITOR V16N44 (HAPO, HPER, TFF).TFF IS -59M59S IF IT WAS
022752,000043:                                                                                                  #           NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
022753,000044:                                                                                                  #           IF P00 IS RUNNING, CALL DELRSPL SPLASH ERROR COMPUTATION.
022754,000045:                                                                                                  #           ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
022755,000046:                                                                                                  #           DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
022756,000047:                                                                                                  #           ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
022757,000048: 
022758,000049:                                                                                                  #  2. IF AVERAGE G IS ON:
022759,000050:                                                                                                  #          CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
022760,000051:                                                                                                  #           FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
022761,000052:                                                                                                  #           OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
022762,000053:                                                                                                  #          FLASH MONITOR V16N44 (HAPO, HPER, TFF).
022763,000054:                                                                                                  #           IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
022764,000055:                                                                                                  #           RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
022765,000056: 
022766,000057: 
022767,000058:                                                                                                  #  ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
022768,000059:                                                                                                  #            ABOVE REMARKS.
022769,000060: 
022770,000061:                                                                                                  #  CALLING SEQUENCE:  VERB 82 ENTER.
022771,000062: 
022772,000063: 
022773,000064:                                                                                                  #  SUBROUTINES CALLED:   SR30.1, GOXDSPF
022774,000065:                                                                                                  #                        MAYBE - THISPREC, OTHPREC, LOADTIME, DELRSPL,
022775,000066:                                                                                                  #                                VEHOPT, TIMEOPT
022776,000067:                                                                                                  #  NORMAL EXIT MODES:  TC ENDEXT
022777,000068: 
022778,000069:                                                                                                  #  ALARMS:  NONE

Page 517

022780,000071: 
022781,000072:                                                                                                  #  OUTPUT:  HAPOX    (-29) M
022782,000073:                                                                                                  #           HPERX    (-29) M
022783,000074:                                                                                                  #           RAPO     (-29) M EARTH
022784,000075:                                                                                                  #                    (-27) M MOON
022785,000076:                                                                                                  #           RPER     (-29) M EARTH
022786,000077:                                                                                                  #                    (-27) M MOON
022787,000078:                                                                                                  #           TFF      (-28) CS      CONTAINS NEGATIVE QUANTITY
022788,000079:                                                                                                  #           -TPER    (-28) CS      CONTAINS NEGATIVE QUANTITY
022789,000080:                                                                                                  #           RSP-RREC (-29) M       IF DELRSPL CALLED
022790,000081: 
022791,000082:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
022792,000083: 
022793,000084:                                                                                                  #  DEBRIS:  QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
022794,000085:                                                                                                  #           MAYBE:  TSTART82, V82FLAGS, TDEC1.
022795,000086: 
022796,000087: 
022797,000088: 13,2254  E4,1742                                  EBANK=   HAPOX                                 
022798,000089: 13,2254  40,2000                                  SBANK=   PINSUPER                              
022799,000090: 23,2000                                           SETLOC   R30LOC                                
022800,000091: 23,2000                                           BANK                                           
022801,000092: 23,2330                                           COUNT*   $$/R30                                
022802,000093: 
022803,000094: 23,2330           06006        V82CALL            TC       INTPRET                               
022804,000095: 23,2331           45014                           BON      CALL                                  
022805,000096: 23,2332           00716                                    AVEGFLAG                              
022806,000097: 23,2333           46551                                    V82GON                                #  IF AVERAGE G ON
022807,000098: 23,2334           50064                                    VEHOPT                                #  IF OFF, ALLOW VEHICLE OPTION
022808,000099: 23,2335           77776                           EXIT                                           
022809,000100: 23,2336           34765                           CAF      BIT4                                  #  80 MS
022810,000101: 23,2337           05233                           TC       WAITLIST                              
022811,000102: 23,2340  E4,1734                                  EBANK=   TFF                                   
022812,000103: 23,2340           02514 46104                     2CADR    TICKTEST                              
022813,000104: 23,2342           00003                           RELINT                                         
022814,000105: 23,2343  30,2000                                  SBANK=   LOWSUPER                              
022815,000106: 23,2343           32372        V82GOFLP           CAF      TFFBANK                               #  MAJOR RECYCLE LOOP ENTRY
022816,000107: 23,2344           54003                           TS       EBANK                                 
022817,000108: 23,2345           34772                           CAF      ZERO                                  
022818,000109: 23,2346           55733                           TS       V82FLAGS                              #  ZERO FLAGS FOR TICKTEST. INHIBITS
022819,000110:                                                                                                  #  DECREMENTING OF TFF AND -TPER.
022820,000111: 23,2347           35051                           CAF      PRIO7                                 
022821,000112: 23,2350           05135                           TC       FINDVAC                               #  V82GOFF1 WILL EXECUTE STATE VECTOR
022822,000113: 23,2351  E4,1734                                  EBANK=   TFF                                   #  UPDATE AND ORBIT CALCULATIONS FOR
022823,000114: 23,2351           02373 46064                     2CADR    V82GOFF1                              #  SELECTED VEHICLE ABOUT PROPER BODY.
022824,000115: 23,2353           00003                           RELINT                                         
022825,000116: 23,2354           36214        V82STALL           CAF      THREE                                 #  STALL IN THIS LOOP AND WITHOLD V 16 N 44
022826,000117: 23,2355           71733                           MASK     V82FLAGS                              #  UNTIL STATE VECTOR UPDATE SETS ONE OF
022827,000118: 23,2356           10000                           CCS      A                                     #  OUR FLAG BITS.
022828,000119: 23,2357           02363                           TC       FLAGGON                               #  EXIT FROM STALL LOOP.

Page 518

022830,000121: 23,2360           04636                           TC       BANKCALL                              
022831,000122: 23,2361           01730                           CADR     1SECDELY                              
022832,000123: 23,2362           02354                           TC       V82STALL                              
022833,000124: 
022834,000125: 23,2363           32371        FLAGGON            CAF      V16N44                                #  MONITOR HAPO,HPER,TFF.
022835,000126: 23,2364           04636                           TC       BANKCALL                              
022836,000127: 23,2365           20576                           CADR     GOXDSPF                               
022837,000128: 23,2366           05626                           TC       B5OFF                                 #  TERM THIS TELLS TICKTEST TO KILL ITSELF
022838,000129: 23,2367           05626                           TC       B5OFF                                 #  PROCEED  DITTO
022839,000130: 23,2370           02343                           TC       V82GOFLP                              #  RECYCLE  RECOMPUTE STATE VECT + DISPLAY
022840,000131: 
022841,000132: 23,2371           04054        V16N44             VN       1644                                  
022842,000133: 23,2372           02334        TFFBANK            ECADR    TFF                                   
022843,000134: 
022844,000135: 
022845,000136: 23,2373           06006        V82GOFF1           TC       INTPRET                               
022846,000137: 23,2374           45145                           DLOAD    CALL                                  
022847,000138: 23,2375           15336                                    ZEROVECS                              #  INITIAL TIME = 0 = PRES. TIME
022848,000139: 23,2376           46424                                    TIMEOPT                               #  ALLOW TIME SELECTION
022849,000140: 23,2377           16316                           STODL    TSTART82                              #  TIME FOR INTERNAL USE (=TDEC1 TIME)
022850,000141: 23,2400           01257                                    OPTIONEV                              
022851,000142: 23,2401           46142                           SR1      BHIZ                                  
022852,000143: 23,2402           46420                                    THISSHIP                              
022853,000144: 23,2403           77624                           CALL                                           #  CALL STATE VECTOR UPDATE FOR OTHER SHIP.
022854,000145: 23,2404           27161                                    OTHPREC                               
022855,000146: 23,2405           77775        BOTHSHIP           VLOAD                                          #  MOVE RESULTS INTO TFFCONIC STORAGE AREAS
022856,000147: 23,2406           00001                                    RATT                                  #   TO BE CALLED BY SR30.1.
022857,000148: 23,2407           26320                           STOVL    RONE                                  #  RATT AT (-29)M FOR EARTH OR MOON
022858,000149: 23,2410           00007                                    VATT                                  
022859,000150: 23,2411           16326                           STODL    VONE                                  
022860,000151: 23,2412           00050                                    X2                                    
022861,000152: 23,2413           45030                           BHIZ     CALL                                  
022862,000153: 23,2414           46457                                    EARTHPAD                              
022863,000154: 23,2415           46635                                    MOONGON                               
022864,000155: 23,2416           77650                           GOTO                                           
022865,000156: 23,2417           46461                                    BOTHPAD                               
022866,000157: 23,2420           77624        THISSHIP           CALL                                           #  CALL STATE VECTOR UPDATE FOR THIS SHIP.
022867,000158: 23,2421           27145                                    THISPREC                              
022868,000159: 23,2422           77650                           GOTO                                           
022869,000160: 23,2423           46405                                    BOTHSHIP                              
022870,000161: 
022871,000162: 23,2424           01255        TIMEOPT            STORE    DSPTEMX                               
022872,000163: 23,2425           77420                 +1        STQ      EXIT                                  
022873,000164: 23,2426           00734                                    VEHRET                                
022874,000165: 23,2427           32446                           CAF      V06N16X                               
022875,000166: 23,2430           04636                           TC       BANKCALL                              
022876,000167: 23,2431           20576                           CADR     GOXDSPF                               
022877,000168: 23,2432           05524                           TC       ENDEXT                                
022878,000169: 23,2433           02435                           TC       +2                                    
022879,000170: 23,2434           02427                           TC       -5                                    

Page 519

022881,000172: 23,2435           06006                           TC       INTPRET                               
022882,000173: 23,2436           53145                           DLOAD    BZE                                   
022883,000174: 23,2437           01255                                    DSPTEMX                               
022884,000175: 23,2440           46443                                    GETNOW                                
022885,000176: 23,2441           34041        STRTDEC1           STCALL   TDEC1                                 
022886,000177: 23,2442           00734                                    VEHRET                                
022887,000178: 23,2443           52034        GETNOW             RTB      GOTO                                  
022888,000179: 23,2444           51751                                    LOADTIME                              
022889,000180: 23,2445           46441                                    STRTDEC1                              
022890,000181: 23,2446           01420        V06N16X            VN       0616                                  
022891,000182:                                                                                                  #  THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS.
022892,000183: 
022893,000184: 23,2447           27533 07571  1/RTMUM            2DEC*    .45162595  E-4        B14*            
022894,000185: 23,2451           25004 06702  1/RTMUE            2DEC*    .50087529  E-5        B17*            
022895,000186: 
022896,000187: 23,2453           00001 11530  MINPERM            2DEC     10668      B-27                       #  35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
022897,000188: 23,2455           00002 31230  MINPERE            2DEC     91440      B-29                       #  300 KFT (-29)M FOR EARTH
022898,000189: 
022899,000190: 23,2457           77624        EARTHPAD           CALL                                           
022900,000191: 23,2460           46647                                    EARTHGON                              
022901,000192: 23,2461           36314        BOTHPAD            STCALL   RPADTEM                               
022902,000193: 23,2462           46660                                    SR30.1                                #  CALCULATE ORBITAL PARAMETERS
022903,000194: 23,2463           46135                           SLOAD    BHIZ                                  
022904,000195: 23,2464           01215                                    MODREG                                #  ARE WE IN POO
022905,000196: 23,2465           46611                                    CANDEL                                #  YES, DO DELRSPL
022906,000197: 23,2466           45234        SPLRET1            RTB      DSU                                   
022907,000198: 23,2467           51751                                    LOADTIME                              
022908,000199: 23,2470           02316                                    TSTART82                              #  PRESENT TIME - TIME V82GOFF1 BEGAN
022909,000200: 23,2471           16316                           STODL    TSTART82                              #                 SAVE IT.
022910,000201: 23,2472           02337                                    -TPER                                 #  SR30.1 SETS -TPER=0 IF HPER L/
022911,000202: 23,2473           77654                           BZE                                            #   HPERMIN (300 OR 35) KFT.
022912,000203: 23,2474           46504                                    TICKTFF                               #  (-TPER = 0)
022913,000204: 23,2475           43345        TICKTPER           DLOAD    DAD                                   #  (-TPER NON ZERO)  TFF WAS NOT COMPUTED,
022914,000205: 23,2476           02337                                    -TPER                                 #  BUT WAS SET TO 59M59S.DONT TICK TFF, DO
022915,000206: 23,2477           02316                                    TSTART82                              #  TICK -TPER. DISPLAY BOTH.
022916,000207: 23,2500           02337                           STORE    -TPER                                 #  -TPER CORRECTED FOR TIME SINCE V82GOFF1
022917,000208: 23,2501           77776                           EXIT                                           #  BEGAN.
022918,000209: 23,2502           34770                           CAF      BIT1                                  #  INFORMS TICKTEST TO INCREMENT ONLY -TPER
022919,000210: 23,2503           02512                           TC       TICKTFF    +6                         
022920,000211: 23,2504           43345        TICKTFF            DLOAD    DAD                                   #  (-TPER=0)  TFF WAS COMPUTED.TICK TFF.
022921,000212: 23,2505           02335                                    TFF                                   #  DO NOT TICK -TPER.DISPLAY TFF, BUT NOT
022922,000213: 23,2506           02316                                    TSTART82                              #  -TPER.
022923,000214: 23,2507           02335                           STORE    TFF                                   #  TFF CORRECTED FOR TIME SINCE V82GOFF1
022924,000215: 23,2510           77776                           EXIT                                           #  BEGAN.
022925,000216: 23,2511           34767                           CAF      BIT2                                  
022926,000217: 23,2512           55733                 +6        TS       V82FLAGS                              #  INFORMS TICKTEST TO INCREMENT ONLY TFF.
022927,000218: 23,2513           05205                           TC       ENDOFJOB                              

Page 520

022929,000220: 23,2514           34764        TICKTEST           CAF      BIT5                                  #  THIS WAITLIST PROGRAM PERPETUATES ITSELF
022930,000221: 23,2515           71247                           MASK     EXTVBACT                              #  ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
022931,000222: 23,2516           10000                           CCS      A                                     
022932,000223: 23,2517           02525                           TC       DOTICK                                
022933,000224: 23,2520           37647                           CAF      PRIO25                                
022934,000225: 23,2521           05121                           TC       NOVAC                                 #  TERMINATE V 82.CANT CALL ENDEXT IN RUPT.
022935,000226: 23,2522     1247                                  EBANK=   EXTVBACT                              
022936,000227: 23,2522           05524 04062                     2CADR    ENDEXT                                
022937,000228: 
022938,000229: 23,2524           05314                           TC       TASKOVER                              
022939,000230: 23,2525           35016        DOTICK             CAF      1SEC                                  #  RE-REQUEST TICKTEST.
022940,000231: 23,2526           05233                           TC       WAITLIST                              
022941,000232: 23,2527  E4,1734                                  EBANK=   TFF                                   
022942,000233: 23,2527           02514 46064                     2CADR    TICKTEST                              
022943,000234: 
022944,000235: 23,2531           36214                           CAF      THREE                                 
022945,000236: 23,2532           71733                           MASK     V82FLAGS                              
022946,000237: 23,2533           50000                           INDEX    A                                     
022947,000238: 23,2534           02535                           TC       +1                                    
022948,000239: 23,2535           05314                           TC       TASKOVER                              #  IF NO FLAGBITS SET DONT CHANGE TFF OR
022949,000240:                                                                                                  #  -TPER, BUT CONTINUE LOOP.
022950,000241: 23,2536           02544                           TC       TPERTICK                              #  ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
022951,000242: 23,2537           35016        TFFTICK            CAF      1SEC                                  #  ONLY BIT 2 SET. INCR TFF BY 1 SEC.
022952,000243: 23,2540           54001                           TS       L                                     
022953,000244: 23,2541           34772                           CAF      ZERO                                  
022954,000245: 23,2542           21735                           DAS      TFF                                   
022955,000246: 23,2543           05314                           TC       TASKOVER                              
022956,000247: 23,2544           35016        TPERTICK           CAF      1SEC                                  
022957,000248: 23,2545           54001                           TS       L                                     
022958,000249: 23,2546           34772                           CAF      ZERO                                  
022959,000250: 23,2547           21737                           DAS      -TPER                                 
022960,000251: 23,2550           05314                           TC       TASKOVER                              

Page 521

022962,000253: 23,2551           77776        V82GON             EXIT                                           #   AVERAGE G ON. USE CURRENT STATE VECTOR
022963,000254:                                                                                                  #  FOR ORBITAL PARAMETER CALCULATIONS.
022964,000255: 23,2552           35051                           CAF      PRIO7                                 #  LESS THAN LAMBERT
022965,000256: 23,2553           05135                           TC       FINDVAC                               #  V82GON1 WILL PERFORM ORBIT CALCULATIONS
022966,000257: 23,2554  E4,1734                                  EBANK=   TFF                                   #  ABOUT PROPER BODY APPROX ONCE PER SEC.
022967,000258: 23,2554           02567 46064                     2CADR    V82GON1                               
022968,000259: 
022969,000260: 23,2556           00003                           RELINT                                         
022970,000261: 23,2557           10067                           CCS      NEWJOB                                #  WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
022971,000262: 23,2560           05152                           TC       CHANG1                                #  IS DONE. NOTE:V82GON1 (PRIO7, FINDVAC
022972,000263:                                                                                                  #  JOB) IS COMPLETED BEFORE V82GON (PRIO7,
022973,000264:                                                                                                  #  NOVAC JOB).
022974,000265: 23,2561           32371        V82REDSP           CAF      V16N44                                #  MONITOR HAPO, HPER, TFF
022975,000266: 23,2562           04636                           TC       BANKCALL                              
022976,000267: 23,2563           20576                           CADR     GOXDSPF                               
022977,000268: 23,2564           05626                           TC       B5OFF                                 #  TERM THIS TELLS V82GON1 TO KILL ITSELF.
022978,000269: 23,2565           05626                           TC       B5OFF                                 #  PROC DITTO.
022979,000270: 23,2566           02561                           TC       V82REDSP                              #  RECYCLE
022980,000271: 
022981,000272: 23,2567           06006        V82GON1            TC       INTPRET                               #  THIS EXEC PROGRAM PERPETUATES ITSELF
022982,000273:                                                                                                  #  ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
022983,000274: 23,2570           52175                           VLOAD    GOTO                                  #  HOLDS OFF CCS NEWJOB BETWEEN RN AND
022984,000275: 23,2571           01030                                    RN                                    #    VN FETCH SO RN , VN ARE FROM SAME
022985,000276: 23,2572           46573                                    NEXTLINE                              #    STATE VECTOR UPDATE.
022986,000277: 23,2573           26320        NEXTLINE           STOVL    RONE                                  #   RN AT (-29)M FOR EARTH OR MOON
022987,000278: 23,2574           01036                                    VN                                    
022988,000279: 23,2575           02326                           STORE    VONE                                  #  VN AT (-7)M/CS FOR EARTH OR MOON
022989,000280: 23,2576           45014                           BON      CALL                                  
022990,000281: 23,2577           00315                                    AMOONFLG                              #  FLAG INDICATES BODY ABOUT WHICH ORBITAL
022991,000282: 23,2600           46631                                    MOONGONA                              #   CALCULATIONS ARE TO BE PERFORMED.
022992,000283: 23,2601           46647                                    EARTHGON                              #    IF SET - MOON , IF RESET - EARTH.
022993,000284: 
022994,000285: 23,2602           36314        V82GON2            STCALL   RPADTEM                               #  COMMON CODE FOR EARTH & MOON.
022995,000286: 23,2603           46660                                    SR30.1                                
022996,000287: 23,2604           77776                           EXIT                                           
022997,000288: 23,2605           05354                           TC       CHECKMM                               
022998,000289: 23,2606           00013                           DEC      11         B-14                       
022999,000290: 23,2607           02622                           TC       V82GON3                               #  NOT IN MODE 11.
023000,000291: 23,2610           06006                           TC       INTPRET                               #  IN MODE 11 OR P00
023001,000292: 23,2611           77624        CANDEL             CALL                                           
023002,000293: 23,2612           27516                                    INTSTALL                              #  DELRSPL DOES INTWAKE
023003,000294: 23,2613           45145                           DLOAD    CALL                                  
023004,000295: 23,2614           02335                                    TFF                                   
023005,000296: 23,2615           64027                                    DELRSPL                               #  RETURN IS TO NEXT LINE ( SPLRET ).
023006,000297: 23,2616           46135        SPLRET             SLOAD    BHIZ                                  
023007,000298: 23,2617           01215                                    MODREG                                
023008,000299: 23,2620           46466                                    SPLRET1                               
023009,000300: 23,2621           77776                           EXIT                                           
023010,000301: 23,2622           34764        V82GON3            CAF      BIT5                                  
023011,000302: 23,2623           71247                           MASK     EXTVBACT                              #  SEE IF ASTRONAUT HAS SIGNALLED TERMINATE

Page 522

023013,000304: 23,2624           00006                           EXTEND                                         
023014,000305: 23,2625           15524                           BZF      ENDEXT                                #  YES, TERMINATE VB 82 LOOP
023015,000306: 23,2626           04636                           TC       BANKCALL                              #  WAIT ONE SECOND BEFORE REPEATING
023016,000307: 23,2627           01730                           CADR     1SECDELY                              #     ORBITAL PARAMETER COMPUTATION.
023017,000308: 23,2630           02567                           TC       V82GON1                               
023018,000309: 
023019,000310: 23,2631           77624        MOONGONA           CALL                                           
023020,000311: 23,2632           46635                                    MOONGON                               
023021,000312: 23,2633           77650                           GOTO                                           
023022,000313: 23,2634           46602                                    V82GON2                               
023023,000314: 23,2635           71214        MOONGON            SET      DLOAD                                 
023024,000315: 23,2636           04462                                    V82EMFLG                              #  INDICATES LUNAR SCALING FOR SR30.1
023025,000316: 23,2637           06450                                    1/RTMUM                               #  LUNAR PARAMETERS LOADED HERE FOR SR30.1
023026,000317: 23,2640           14037                           STODL    TFF/RTMU                              
023027,000318: 23,2641           06454                                    MINPERM                               
023028,000319: 23,2642           26312                           STOVL    HPERMIN                               
023029,000320: 23,2643           02026                                    RLS                                   #  SCALED AT (-27)M.
023030,000321: 23,2644           77646                           ABVAL                                          
023031,000322: 23,2645           43414                           SET      RVQ                                   
023032,000323: 23,2646           01463                                    LUNAFLAG                              #  FOR LAT-LONG SUBROUTINE
023033,000324: 23,2647           71214        EARTHGON           CLEAR    DLOAD                                 
023034,000325: 23,2650           04662                                    V82EMFLG                              #  INDICATE EARTH SCALING FOR SR30.1
023035,000326: 23,2651           06452                                    1/RTMUE                               #  EARTH PARAMETERS LOADED HERE FOR SR30.1
023036,000327: 23,2652           14037                           STODL    TFF/RTMU                              
023037,000328: 23,2653           06456                                    MINPERE                               
023038,000329: 23,2654           16312                           STODL    HPERMIN                               
023039,000330: 23,2655           05173                                    RPAD                                  
023040,000331: 23,2656           43414                           CLEAR    RVQ                                   
023041,000332: 23,2657           01663                                    LUNAFLAG                              #  FOR LAT-LONG SUBROUTINE
023042,000333: 

Page 523

023044,000335:                                                                                                  #  SUBROUTINE NAME:      SR30.1
023045,000336:                                                                                                  #  MOD NO:  0                                                                    DATE:           16 FEB 67
023046,000337:                                                                                                  #  MOD BY:  RR BAIRNSFATHER                                                      LOG SECTION:    R32
023047,000338:                                                                                                  #  MOD NO:  1            MOD BY:  RR BAIRNSFATHER        DATE: 11 APR 67         SR30.1 CHANGED TO ALLOW MONITOR OPERN
023048,000339:                                                                                                  #  MOD NO:  2            MOD BY:  RR BAIRNSFATHER        DATE:  14 APR 67        ADD OVFL CK FOR RAPO
023049,000340:                                                                                                  #  MOD NO:  3            MOD BY ALONSO                   DATE: 11 DEC 67         SUBROUTINE REWRITTEN
023050,000341:                                                                                                  #  MOD NO: 4             MOD BY ALONSO                   DATE: 26 MAR 68         PROG MOD TO HANDLE DIF EARTH/MOON SCALE
023051,000342:                                                                                                  #  MOD NO:  5            MOD BY:  RR BAIRNSFATHER        DATE:  6 AUG 68         OVFL CK FOR HAPO & HPER.VOIDS MOD #2.
023052,000343: 
023053,000344:                                                                                                  #  NEW FUNCTIONAL DESCRIPTION:   ORBITAL PARAMETERS DISPLAY FOR NOUNS 32  AND 44.
023054,000345:                                                                                                  #  SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
023055,000346:                                                                                                  #  RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
023056,000347:                                                                                                  #  LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
023057,000348:                                                                                                  #  TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
023058,000349:                                                                                                  #  IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
023059,000350:                                                                                                  #  NEGATIVE    IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
023060,000351:                                                                                                  #  CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO
023061,000352:                                                                                                  #  WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
023062,000353: 
023063,000354:                                                                                                  #  ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
023064,000355:                                                                                                  #            ABOVE REMARKS.
023065,000356: 
023066,000357:                                                                                                  #  CALLING SEQUENCE:     CALL
023067,000358:                                                                                                  #                                SR30.1
023068,000359:                                                                                                  #  SUBROUTINES CALLED:   TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
023069,000360:                                                                                                  #  NORMAL EXIT MODE:     CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
023070,000361:                                                                                                  #  ALARMS:               NONE
023071,000362:                                                                                                  #  OUTPUT:  RAPO   (-29) M EARTH   APOGEE RADIUS   EARTH CENTERED COORD.
023072,000363:                                                                                                  #                  (-27) M MOON                    MOON CENTERED COORD.
023073,000364:                                                                                                  #           RPER   (-29) M EARTH   PERIGEE RADIUS  EARTH CENTERED COORD.
023074,000365:                                                                                                  #                  (-27) M MOON                    MOON CENTERED COORD.
023075,000366:                                                                                                  #           HAPOX  (-29) M         APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
023076,000367:                                                                                                  #           HPERX  (-29) M         PERIGEE ALT. ABOVE PAD OR LAND. SITE    MAX VALUE LIMITED TO 9999.9 NM.
023077,000368:                                                                                                  #           TFF    (-28) CS        TIME TO 300KFT OR 35KFT ALTITUDE
023078,000369:                                                                                                  #           -TPER  (-28) CS        TIME TO PERIGEE
023079,000370:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
023080,000371:                                                                                                  #           TFF/RTMU (+17) EARTH   RECIPROCAL OF PROPER GRAV CONSTANT FOR
023081,000372:                                                                                                  #                    (+14) MOON    EARTH OR MOON = 1/SQRT(MU).
023082,000373:                                                                                                  #           RONE    (-29) M        STATE VECTOR
023083,000374:                                                                                                  #           VONE    (-7)  M/CS     STATE VECTOR
023084,000375:                                                                                                  #           RPADTEM (-29) M EARTH  RADIUS OF LAUNCH PAD OR LUNAR LANDING
023085,000376:                                                                                                  #                   (-27) M MOON   SITE.
023086,000377:                                                                                                  #           HPERMIN (-29) M EARTH  (300 OR 35)KFT MINIMUM PERIGEE ALTITUDE
023087,000378:                                                                                                  #                   (-27) M MOON   ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
023088,000379:                                                                                                  #           V82EMFLG (INT SW BIT) RESET FOR EARTH, SET FOR MOON.
023089,000380: 
023090,000381:                                                                                                  #  DEBRIS:  QPRET, PDL, S2
023091,000382: 

Page 524

023093,000384: 23,2660                                           COUNT*   $$/SR30S                              
023094,000385: 
023095,000386: 23,2660           44001        SR30.1             SETPD    STQ                                   #  INITIALIZE PUSHDOWN LIST.
023096,000387: 23,2661           00001                                    0                                     
023097,000388: 23,2662           00051                                    S2                                    
023098,000389:                                                                                                  #  SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
023099,000390:                                                                                                  #                VONE AT (-7)M/CS
023100,000391:                                                                                                  #  TFFCONMU,TFFRP/RA,CALCTPER AND CALCTFF
023101,000392:                                                                                                  #  CALLS REQUIRE :
023102,000393:                                                                                                  #  EARTH CENTERED (NO RESCALING REQUIRED)
023103,000394:                                                                                                  #                RONE SCALED TO B-29 M
023104,000395:                                                                                                  #                VONE SCALED TO B-7 M/CS
023105,000396:                                                                                                  #  MOON CENTERED  (RESCALING REQUIRED)
023106,000397:                                                                                                  #                RONE SCALED TO B-27 M
023107,000398:                                                                                                  #                VONE SCALED TO B-5  M/CS
023108,000399: 23,2663           77214                           BOFF     VLOAD                                 
023109,000400: 23,2664           04742                                    V82EMFLG                              #   OFF FOR EARTH ,  ON FOR MOON.
023110,000401: 23,2665           46674                                    TFFCALLS                              
023111,000402: 23,2666           02320                                    RONE                                  
023112,000403: 23,2667           77752                           VSL2                                           
023113,000404: 23,2670           26320                           STOVL    RONE                                  
023114,000405: 23,2671           02326                                    VONE                                  
023115,000406: 23,2672           77752                           VSL2                                           
023116,000407: 23,2673           02326                           STORE    VONE                                  
023117,000408: 23,2674           77624        TFFCALLS           CALL                                           
023118,000409: 23,2675           57152                                    TFFCONMU                              
023119,000410: 23,2676           77624                           CALL                                           #  TFFRP/RA COMPUTES RAPO,RPER.
023120,000411: 23,2677           57220                                    TFFRP/RA                              
023121,000412:                                                                                                  #  RETURNS WITH RAPO IN D(MPAC).
023122,000413: 23,2700           77625                           DSU                                            
023123,000414: 23,2701           02314                                    RPADTEM                               
023124,000415: 23,2702           64414                           BOFF     SR2R                                  #  NEED HAPO AT (-29)M FOR DISPLAY.
023125,000416:                                                                                                  #  IF MOON CENTERED, RESCALE FROM (-27)M.
023126,000417:                                                                                                  #   IF EARTH CENTERED ALREADY AT (-29)M.
023127,000418: 23,2703           04742                                    V82EMFLG                              #   OFF FOR EARTH, ON FOR MOON.
023128,000419: 23,2704           46705                                    +1                                    
023129,000420: 23,2705           77624                           CALL                                           #  IF HAPO > MAXNM, SET HAPO =9999.9 NM.
023130,000421: 23,2706           46745                                    MAXCHK                                #  OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
023131,000422: 23,2707           16343        STORHAPO           STODL    HAPOX                                 
023132,000423: 23,2710           00017                                    RPER                                  
023133,000424: 23,2711           77625                           DSU                                            
023134,000425: 23,2712           02314                                    RPADTEM                               #  GIVES HPER AT (-29)M EARTH, (-27)M MOON.
023135,000426: 23,2713           00161                           STORE    MPAC       +4                         #  SAVE THIS FOR COMPARISON TO HPERMIN.
023136,000427: 23,2714           64414                           BOFF     SR2R                                  #  NEED HPER AT (-29)M FOR DISPLAY.
023137,000428:                                                                                                  #  IF MOON CENTERED, RESCALE FROM (-27)M.
023138,000429:                                                                                                  #  IF EARTH CENTERED ALREADY AT (-29)M.
023139,000430: 23,2715           04742                                    V82EMFLG                              #  OFF FOR EARTH,  ON FOR MOON.
023140,000431: 23,2716           46717                                    +1                                    
023141,000432: 23,2717           77624                           CALL                                           #  IF HPER > MAXNM, SET HPER = 9999.9 NM.
023142,000433: 23,2720           46745                                    MAXCHK                                

Page 525

023144,000435: 23,2721           16345        STORHPER           STODL    HPERX                                 #  STORE (RPER - RPADTEM) INTO HPERX.
023145,000436: 23,2722           00161                                    MPAC       +4                         
023146,000437: 23,2723           51025                           DSU      BPL                                   #  HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
023147,000438: 23,2724           02312                                    HPERMIN                               #  IF HPER L/   HPERMIN (300 OR 35)KFT,
023148,000439: 23,2725           46731                                    DOTPER                                #   THEN ZERO INTO -TPER.
023149,000440: 23,2726           52145                           DLOAD    GOTO                                  #    OTHERWISE CALCULATE TPER.
023150,000441: 23,2727           15336                                    HI6ZEROS                              
023151,000442: 23,2730           46735                                    SKIPTPER                              
023152,000443: 23,2731           45145        DOTPER             DLOAD    CALL                                  
023153,000444: 23,2732           00017                                    RPER                                  
023154,000445: 23,2733           57256                                    CALCTPER                              
023155,000446: 23,2734           77676                           DCOMP                                          #  TPER IS PUT NEG INTO -TPER.
023156,000447: 23,2735           16337        SKIPTPER           STODL    -TPER                                 
023157,000448: 23,2736           02312                                    HPERMIN                               #  HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
023158,000449: 23,2737           45015                           DAD      CALL                                  
023159,000450: 23,2740           02314                                    RPADTEM                               #  RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
023160,000451: 23,2741           57261                                    CALCTFF                               #  GIVES 59M59S FOR TFF IF RPER G/
023161,000452: 23,2742           77676                           DCOMP                                          #    HPERMIN + RPADTEM. (TPER WAS NON ZERO)
023162,000453: 23,2743           36335                           STCALL   TFF                                   #  OTHERWISE COMPUTES TFF.       (GOTO)
023163,000454: 23,2744           00051                                    S2                                    
023164,000455: 
023165,000456: 23,2745           51025        MAXCHK             DSU      BPL                                   #  IF C(MPAC) > 9999.9 NM, MPAC = 9999.9 NM
023166,000457: 23,2746           06755                                    MAXNM                                 
023167,000458: 23,2747           46752                                    +3                                    #  OTHERWISE C(MPAC) = B(MPAC).
023168,000459: 23,2750           43415                           DAD      RVQ                                   
023169,000460: 23,2751           06755                                    MAXNM                                 
023170,000461: 23,2752           43545                 +3        DLOAD    RVQ                                   #  (USED BY P30 - P37 ALSO)
023171,000462: 23,2753           06755                                    MAXNM                                 
023172,000463: 
023173,000464: 23,2754           01065 05603  MAXNM              2OCT     0106505603                            
023174,000465: 

Page 526 This page contains only assembler-generated messages.

023177,000468: 

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