Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

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

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