Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

031174,000002:                                                                                                  ## Copyright:   Public domain.
031175,000003:                                                                                                  ## Filename:    R30.agc
031176,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
031177,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the third release
031178,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
031179,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
031180,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
031181,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
031182,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
031183,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
031184,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
031185,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
031186,000014:                                                                                                  ##              the original YUL assembler.
031187,000015:                                                                                                  ##
031188,000016:                                                                                                  ## Assembler:   yaYUL
031189,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031190,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
031191,000019:                                                                                                  ## Pages:       712-722
031192,000020:                                                                                                  ## Mod history: 2009-05-19 RSB  Adapted from the corresponding 
031193,000021:                                                                                                  ##                              Luminary131 file, using page 
031194,000022:                                                                                                  ##                              images from Luminary 1A.
031195,000023:                                                                                                  ##              2009-06-07 RSB  Removed a space between two components of
031196,000024:                                                                                                  ##                              a 2OCT that isn't legal in yaYUL.
031197,000025:                                                                                                  ##              2016-12-14 RSB  Proofed text comments with octopus/ProoferComments
031198,000026:                                                                                                  ##                              and corrected the errors found.
031199,000027:                                                                                                  ##              2017-02-08 RSB  Comment-text fixes discovered while proofing Artemis 72.
031200,000028:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
031201,000029:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
031202,000030:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
031203,000031:                                                                                                  ##                              Luminary 99 vs Comanche 55.
031204,000032:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
031205,000033:                                                                                                  ##              2021-05-30 ABS  TICKTIFF -> TICKTFF
031206,000034: 
031207,000035:                                                                                                  ## This source code has been transcribed or otherwise adapted from
031208,000036:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
031209,000037:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
031210,000038:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
031211,000039:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
031212,000040:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
031213,000041:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
031214,000042:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
031215,000043:                                                                                                  ## actually created.
031216,000044:                                                                                                  ##
031217,000045:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
031218,000046:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
031219,000047:                                                                                                  ## the listing from which it was transcribed. It has been verified to
031220,000048:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
031221,000049:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
031222,000050:                                                                                                  ##
031223,000051:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
031224,000052:                                                                                                  ##
031225,000053:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
031226,000054: 

Page 712

031228,000056:                                                                                                  #  SUBROUTINE NAME:  V82CALL
031229,000057:                                                                                                  #  MOD NO: 0                                                             DATE: 16 FEB 67
031230,000058:                                                                                                  #  MOD BY: RR BAIRNSFATHER                                               LOG SECTION:  R30
031231,000059:                                                                                                  #  MOD NO: 1     MOD BY:  RR BAIRNSFATHER        DATE: 11 APR 67         SR30.1 CHANGED TO ALLOW MONITOR OPERN
031232,000060:                                                                                                  #  MOD NO: 2     MOD BY  ALONSO                  DATE: 11 DEC 67         VB82 PROGRAM REWRITTEN
031233,000061:                                                                                                  #  MOD NO: 3     MOD BY  ALONSO                  DATE: 26 MAR 68         PROG MOD TO HANDLE DIF EARTH/MOON SCALE
031234,000062: 
031235,000063:                                                                                                  #  NEW FUNCTIONAL DESCRIPTION:   CALLED BY VERB 82 ENTER.  PRIORITY 10
031236,000064:                                                                                                  #  USED THROUGHOUT.              CALCULATE AND DISPLAY ORBITAL PARAMETERS
031237,000065: 
031238,000066:                                                                                                  #  1.    IF AVERAGE G IS OFF:
031239,000067:                                                                                                  #                FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
031240,000068:                                                                                                  #                        TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
031241,000069:                                                                                                  #                        CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
031242,000070:                                                                                                  #                SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
031243,000071:                                                                                                  #                CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
031244,000072:                                                                                                  #                        RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
031245,000073:                                                                                                  #                        HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
031246,000074:                                                                                                  #                        HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
031247,000075:                                                                                                  #                        INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
031248,000076:                                                                                                  #                FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
031249,000077:                                                                                                  #                        NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
031250,000078:                                                                                                  #                        ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
031251,000079:                                                                                                  #                        DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
031252,000080:                                                                                                  #                        ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
031253,000081:                                                                                                  #        2.      IF AVERAGE G IS ON:
031254,000082:                                                                                                  #                        CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
031255,000083:                                                                                                  #                                FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
031256,000084:                                                                                                  #                                OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
031257,000085:                                                                                                  #                        FLASH MONITOR V16N44 (HAPO, HPER, TFF).
031258,000086:                                                                                                  #        ADDENDUM:  HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
031259,000087:                                                                                                  #                ABOVE REMARKS.
031260,000088: 
031261,000089:                                                                                                  #  CALLING SEQUENCE: VERB 82 ENTER.
031262,000090: 
031263,000091:                                                                                                  #  SUBROUTINES CALLED:   SR30.1, GOXDSPF
031264,000092:                                                                                                  #                        MAYBE - THISPREC, OTHPREC, LOADTIME, DELRSPL
031265,000093: 
031266,000094:                                                                                                  #  NORMAL EXIT MODES:  TC ENDEXT
031267,000095: 
031268,000096:                                                                                                  #  ALARMS:  NONE
031269,000097: 
031270,000098:                                                                                                  #  OUTPUT:       HAPOX   (-29) M
031271,000099:                                                                                                  #                HPERX   (-29) M
031272,000100:                                                                                                  #                RAPO    (-29) M EARTH
031273,000101:                                                                                                  #                        (-27) M MOON
031274,000102:                                                                                                  #                RPER    (-29) M EARTH
031275,000103:                                                                                                  #                        (-27) M MOON
031276,000104:                                                                                                  #                TFF     (-28) CS        CONTAINS NEGATIVE QUANTITY
031277,000105:                                                                                                  #                -TPER   (-28) CS        CONTAINS NEGATIVE QUANTITY
031278,000106: 

Page 713

031280,000108:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:  STATE VECTOR.
031281,000109: 
031282,000110:                                                                                                  #  DEBRIS:       QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
031283,000111:                                                                                                  #                MAYBE:  TSTART82, V82FLAGS, TDEC1.
031284,000112: 
031285,000113: 13,2351  E4,1517                                  EBANK=   HAPOX                                 
031286,000114: 31,2144                                           BANK     31                                    
031287,000115: 22,2000                                           SETLOC   R30LOC                                
031288,000116: 22,2000                                           BANK                                           
031289,000117: 22,3242                                           COUNT*   $$/R30                                
031290,000118: 
031291,000119: 22,3242           06037        V82CALL            TC       INTPRET                               
031292,000120: 22,3243           52014                           BON      GOTO                                  
031293,000121: 22,3244           03712                                    AVEGFLAG                              
031294,000122: 22,3245           45465                                    V82GON                                #  IF AVERAGE G ON
031295,000123: 22,3246           45247                                    V82GOFF                               #  IF AVERAGE G OFF
031296,000124: 
031297,000125: 22,3247           77776        V82GOFF            EXIT                                           #  ALLOW ASTRONAUT TO SELECT VEHICLE
031298,000126: 22,3250           34752                           CAF      TWO                                   #  DESIRED FOR ORBITAL PARAMETERS
031299,000127: 22,3251           55051                           TS       OPTIONX                               #  CALCULATION AND DISPLAY.
031300,000128: 22,3252           34753                           CAF      ONE                                   
031301,000129: 22,3253           55052                           TS       OPTIONX    +1                         
031302,000130: 22,3254           33316                           CAF      OPTIONVN                              #  V 04 N 06
031303,000131: 22,3255           04616                           TC       BANKCALL                              
031304,000132: 22,3256           20334                           CADR     GOXDSPF                               
031305,000133: 22,3257           05472                           TC       ENDEXT                                #  TERMINATE
031306,000134: 22,3260           03262                           TC       +2                                    #  PROCEED
031307,000135: 22,3261           03254                           TC       -5                                    #  DATA IN.  OPTION1+1 = 1 FOR THIS VEHICLE.
031308,000136:                                                                                                  #                UNEQ 1 FOR OTHER VEHICLE.
031309,000137: 22,3262           34750                           CAF      BIT4                                  #  80 MS
031310,000138: 22,3263           05203                           TC       WAITLIST                              
031311,000139: 22,3264  E4,1540                                  EBANK=   TFF                                   
031312,000140: 22,3264           03430 44064                     2CADR    TICKTEST                              
031313,000141: 
031314,000142: 22,3266           00003                           RELINT                                         
031315,000143: 22,3267           33320        V82GOFLP           CAF      TFFBANK                               #  MAJOR RECYCLE LOOP ENTRY
031316,000144: 22,3270           54003                           TS       EBANK                                 
031317,000145: 22,3271           34755                           CAF      ZERO                                  
031318,000146: 22,3272           55537                           TS       V82FLAGS                              #  ZERO FLAGS FOR TICKTEST. INHIBITS
031319,000147:                                                                                                  #  DECREMENTING OF TFF AND -TPER.
031320,000148: 22,3273           35021                           CAF      PRIO7                                 
031321,000149: 22,3274           05105                           TC       FINDVAC                               #  V82GOFF1 WILL EXECUTE STATE VECTOR
031322,000150: 22,3275  E4,1540                                  EBANK=   TFF                                   #  UPDATE AND ORBIT CALCULATIONS FOR
031323,000151: 22,3275           03321 44064                     2CADR    V82GOFF1                              #  SELECTED VEHICLE ABOUT PROPER BODY.
031324,000152: 
031325,000153: 22,3277           00003                           RELINT                                         
031326,000154: 22,3300           36245        V82STALL           CAF      THREE                                 #  STALL IN THIS LOOP AND WITHOLD V 16 N 44

Page 714

031328,000156: 22,3301           71537                           MASK     V82FLAGS                              #  UNTIL STATE VECTOR UPDATE SETS ONE OF
031329,000157: 22,3302           10000                           CCS      A                                     #  OUR FLAG BITS.
031330,000158: 22,3303           03310                           TC       FLAGGON                               #  EXIT FROM STALL LOOP.
031331,000159: 22,3304           34777                           CAF      1SEC                                  
031332,000160: 22,3305           04616                           TC       BANKCALL                              
031333,000161: 22,3306           01735                           CADR     DELAYJOB                              
031334,000162: 22,3307           03300                           TC       V82STALL                              
031335,000163: 
031336,000164: 22,3310           33317        FLAGGON            CAF      V16N44                                #  MONITOR HAPO,HPER,TFF.
031337,000165: 22,3311           04616                           TC       BANKCALL                              
031338,000166: 22,3312           20334                           CADR     GOXDSPF                               
031339,000167: 22,3313           05563                           TC       B5OFF                                 #  TERM  THIS TELLS TICKTEST TO KILL ITSELF
031340,000168: 22,3314           05563                           TC       B5OFF                                 #  PROCEED   DITTO
031341,000169: 22,3315           03267                           TC       V82GOFLP                              #  RECYCLE   RECOMPUTE STATE VECT + DISPLAY
031342,000170: 
031343,000171: 22,3316           01014        OPTIONVN           VN       412                                   
031344,000172: 22,3317           04054        V16N44             VN       1644                                  
031345,000173: 22,3320           02140        TFFBANK            ECADR    TFF                                   
031346,000174: 
031347,000175: 22,3321           06037        V82GOFF1           TC       INTPRET                               
031348,000176: 22,3322           77634                           RTB                                            
031349,000177: 22,3323           21573                                    LOADTIME                              
031350,000178: 22,3324           00041                           STORE    TDEC1                                 #  TIME FOR STATE VECTOR UPDATE.
031351,000179: 22,3325           02205                           STORE    TSTART82                              #  TIME FOR INTERNAL USE.
031352,000180: 22,3326           77776                           EXIT                                           
031353,000181: 22,3327           41052                           CS       OPTIONX    +1                         #  1 FOR THIS VEHICLE, NOT 1 FOR OTHER.
031354,000182: 22,3330           64753                           AD       ONE                                   
031355,000183: 22,3331           00006                           EXTEND                                         
031356,000184: 22,3332           13356                           BZF      THISSHIP                              
031357,000185: 22,3333           06037        OTHSHIP            TC       INTPRET                               
031358,000186: 22,3334           77624                           CALL                                           #  CALL STATE VECTOR UPDATE FOR OTHER SHIP.
031359,000187: 22,3335           27043                                    OTHPREC                               
031360,000188: 22,3336           77775        BOTHSHIP           VLOAD                                          #  MOVE RESULTS INTO TFFCONIC STORAGE AREAS
031361,000189: 22,3337           00001                                    RATT                                  #  TO BE CALLED BY SR30.1.
031362,000190: 22,3340           26207                           STOVL    RONE                                  #  RATT AT (-29)M FOR EARTH OR MOON
031363,000191: 22,3341           00007                                    VATT                                  
031364,000192: 22,3342           02215                           STORE    VONE                                  #  VATT AT (-7)M/CS FOR EARTH OR MOON
031365,000193: 22,3343           77743                           DLOAD*                                         
031366,000194: 22,3344           73774                                    1/RTMUE,2                             #  X2 IS 0 FOR EARTH CENTERED STATE VEC
031367,000195: 22,3345           00037                           STORE    TFF/RTMU                              #  X2 IS 2 FOR MOON
031368,000196: 22,3346           77743                           DLOAD*                                         #  AS LEFT BY THISPREC OR OTHPREC.
031369,000197: 22,3347           72411                                    MINPERE,2                             
031370,000198: 22,3350           02201                           STORE    HPERMIN                               #  TFFRTMU, HPERMIN AND RPADTEM ARE ALL
031371,000199: 22,3351           46135                           SLOAD    BHIZ                                  #  EARTH/MOON PARAMETERS AS SET HERE.
031372,000200: 22,3352           00050                                    X2                                    
031373,000201: 22,3353           45367                                    EARTHPAD                              
031374,000202: 22,3354           77650                           GOTO                                           
031375,000203: 22,3355           45373                                    MOONPAD                               

Page 715

031377,000205: 22,3356           06037        THISSHIP           TC       INTPRET                               
031378,000206: 22,3357           77624                           CALL                                           #  CALL STATE VECTOR UPDATE FOR THIS SHIP.
031379,000207: 22,3360           27057                                    THISPREC                              
031380,000208: 22,3361           77650                           GOTO                                           
031381,000209: 22,3362           45336                                    BOTHSHIP                              
031382,000210: 
031383,000211:                                                                                                  #  THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED.  DO NOT SEPARATE PAIRS.
031384,000212: 
031385,000213: 22,3363           00001 11530  MINPERM            2DEC     10668      B-27                       #  35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
031386,000214: 
031387,000215: 22,3365           00002 31230  MINPERE            2DEC     91440      B-29                       #  300 KFT (-29)M FOR EARTH
031388,000216: 
031389,000217: 22,3367           43145        EARTHPAD           DLOAD    CLRGO                                 #  PAD 37-B RADIUS.  SCALED AT (-29)M.
031390,000218: 22,3370           06315                                    RPAD                                  
031391,000219: 22,3371           03635                                    V82EMFLG                              #  INDICATE EARTH SCALING FOR SR30.1
031392,000220: 22,3372           45377                                    BOTHPAD                               
031393,000221: 
031394,000222: 22,3373           51575        MOONPAD            VLOAD    ABVAL                                 #  COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
031395,000223: 22,3374           02023                                    RLS                                   #  SCALED AT (-27)M.
031396,000224: 22,3375           77614                           SET                                            
031397,000225: 22,3376           03475                                    V82EMFLG                              #  INDICATE MOON  SCALING FOR SR30.1
031398,000226: 22,3377           36203        BOTHPAD            STCALL   RPADTEM                               
031399,000227: 22,3400           45551                                    SR30.1                                #  CALCULATE ORBITAL PARAMETERS
031400,000228: 22,3401           45234                           RTB      DSU                                   
031401,000229: 22,3402           21573                                    LOADTIME                              
031402,000230: 22,3403           02205                                    TSTART82                              #  PRESENT TIME - TIME V82GOFF1 BEGAN
031403,000231: 22,3404           02205                           STORE    TSTART82                              #                  SAVE IT
031404,000232: 22,3405           53145                           DLOAD    BZE                                   #  SR30.1 SETS -TPER=0 IF HPER L/
031405,000233: 22,3406           02143                                    -TPER                                 #  HPERMIN (300 OR 35) KFT.
031406,000234: 22,3407           45420                                    TICKTFF                               #  (-TPER = 0)
031407,000235: 22,3410           43345        TICKTPER           DLOAD    DAD                                   #  (-TPER NON ZERO) TFF WAS NOT COMPUTED,
031408,000236: 22,3411           02143                                    -TPER                                 #  BUT WAS SET TO 59M59S.  DONT TICK TFF, DO
031409,000237: 22,3412           02205                                    TSTART82                              #  TICK -TPER.  DISPLAY BOTH.
031410,000238: 22,3413           02143                           STORE    -TPER                                 #  -TPER CORRECTED FOR TIME SINCE V82GOFF1
031411,000239: 22,3414           77776                           EXIT                                           #  BEGAN.
031412,000240: 22,3415           34753                           CAF      BIT1                                  
031413,000241: 22,3416           55537                           TS       V82FLAGS                              #  INFORMS TICKTEST TO INCREMENT ONLY -TPER
031414,000242: 22,3417           05155                           TC       ENDOFJOB                              
031415,000243: 
031416,000244: 22,3420           43345        TICKTFF            DLOAD    DAD                                   #  (-TPER=0) TFF WAS COMPUTED.  TICK TFF.
031417,000245: 22,3421           02141                                    TFF                                   #  DO NOT TICK -TPER.  DISPLAY TFF, BUT NOT
031418,000246: 22,3422           02205                                    TSTART82                              #  -TPER.
031419,000247: 22,3423           02141                           STORE    TFF                                   #  TFF CORRECTED FOR TIME SINCE V82GOFF1
031420,000248: 22,3424           77776                           EXIT                                           #  BEGAN.
031421,000249: 22,3425           34752                           CAF      BIT2                                  
031422,000250: 22,3426           55537                           TS       V82FLAGS                              #  INFORMS TICKTEST TO INCREMENT ONLY TFF.
031423,000251: 22,3427           05155                           TC       ENDOFJOB                              
031424,000252: 

Page 716

031426,000254: 22,3430           34747        TICKTEST           CAF      BIT5                                  #  THIS WAITLIST PROGRAM PERPETUATES ITSELF
031427,000255: 22,3431           71044                           MASK     EXTVBACT                              #  ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
031428,000256: 22,3432           10000                           CCS      A                                     
031429,000257: 22,3433           03441                           TC       DOTICK                                
031430,000258: 22,3434           37713                           CAF      PRIO25                                
031431,000259: 22,3435           05072                           TC       NOVAC                                 #  TERMINATE V 82.  CANT CALL ENDEXT IN RUPT.
031432,000260: 22,3436     1044                                  EBANK=   EXTVBACT                              
031433,000261: 22,3436           05472 04062                     2CADR    ENDEXT                                
031434,000262: 
031435,000263: 22,3440           05261                           TC       TASKOVER                              
031436,000264: 22,3441           34777        DOTICK             CAF      1SEC                                  #  RE-REQUEST TICKTEST.
031437,000265: 22,3442           05203                           TC       WAITLIST                              
031438,000266: 22,3443  E4,1540                                  EBANK=   TFF                                   
031439,000267: 22,3443           03430 44064                     2CADR    TICKTEST                              
031440,000268: 
031441,000269: 22,3445           36245                           CAF      THREE                                 
031442,000270: 22,3446           71537                           MASK     V82FLAGS                              
031443,000271: 22,3447           50000                           INDEX    A                                     
031444,000272: 22,3450           03451                           TC       +1                                    
031445,000273: 22,3451           05261                           TC       TASKOVER                              #  IF NO FLAGBITS SET DONT CHANGE TFF OR
031446,000274:                                                                                                  #  -TPER, BUT CONTINUE LOOP.
031447,000275: 22,3452           03460                           TC       TPERTICK                              #  ONLY BIT 1 SET.  INCR -TPER BY 1 SEC.
031448,000276: 22,3453           34777        TFFTICK            CAF      1SEC                                  #  ONLY BIT 2 SET.  INCR TFF BY 1 SEC.
031449,000277: 22,3454           54001                           TS       L                                     
031450,000278: 22,3455           34755                           CAF      ZERO                                  
031451,000279: 22,3456           21541                           DAS      TFF                                   
031452,000280: 22,3457           05261                           TC       TASKOVER                              
031453,000281: 22,3460           34777        TPERTICK           CAF      1SEC                                  
031454,000282: 22,3461           54001                           TS       L                                     
031455,000283: 22,3462           34755                           CAF      ZERO                                  
031456,000284: 22,3463           21543                           DAS      -TPER                                 
031457,000285: 22,3464           05261                           TC       TASKOVER                              
031458,000286: 

Page 717

031460,000288: 22,3465           77776        V82GON             EXIT                                           #  AVERAGE G ON.  USE CURRENT STATE VECTOR
031461,000289:                                                                                                  #  FOR ORBITAL PARAMETER CALCULATIONS.
031462,000290: 22,3466           35021                           CAF      PRIO7                                 #  LESS THAN LAMBERT
031463,000291: 22,3467           05105                           TC       FINDVAC                               #  V82GON1 WILL PERFORM ORBIT CALCULATIONS
031464,000292: 22,3470  E4,1540                                  EBANK=   TFF                                   #  ABOUT PROPER BODY APPROX ONCE PER SEC.
031465,000293: 22,3470           03503 44064                     2CADR    V82GON1                               
031466,000294: 
031467,000295: 22,3472           00003                           RELINT                                         
031468,000296: 22,3473           10067                           CCS      NEWJOB                                #  WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
031469,000297: 22,3474           05122                           TC       CHANG1                                #  IS DONE.  NOTE:  V82GON1 (PRIO7, FINDVAC
031470,000298:                                                                                                  #  JOB) IS COMPLETED BEFORE V82GON (PRIO7,
031471,000299:                                                                                                  #  NOVAC JOB).
031472,000300: 22,3475           33317        V82REDSP           CAF      V16N44                                #  MONITOR HAPO, HPER, TFF
031473,000301: 22,3476           04616                           TC       BANKCALL                              
031474,000302: 22,3477           20334                           CADR     GOXDSPF                               
031475,000303: 22,3500           05563                           TC       B5OFF                                 #  TERM THIS TELLS V82GON1 TO KILL ITSELF.
031476,000304: 22,3501           05563                           TC       B5OFF                                 #  PROC DITTO.
031477,000305: 22,3502           03475                           TC       V82REDSP                              #  RECYCLE
031478,000306: 
031479,000307: 22,3503           06037        V82GON1            TC       INTPRET                               #  THIS EXEC PROGRAM PERPETUATES ITSELF
031480,000308:                                                                                                  #  ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
031481,000309: 22,3504           52175                           VLOAD    GOTO                                  #  HOLDS OFF CCS NEWJOB BETWEEN RN AND
031482,000310: 22,3505           01221                                    RN                                    #  VN FETCH SO RN, VN ARE FROM SAME
031483,000311: 22,3506           45507                                    NEXTLINE                              #  STATE VECTOR UPDATE.
031484,000312: 22,3507           26207        NEXTLINE           STOVL    RONE                                  #  RN AT (-29)M FOR EARTH OR MOON
031485,000313: 22,3510           01227                                    VN                                    
031486,000314: 22,3511           02215                           STORE    VONE                                  #  VN AT (-7)M/CS FOR EARTH OR MOON
031487,000315: 22,3512           52014                           BON      GOTO                                  
031488,000316: 22,3513           04304                                    MOONTHIS                              #  FLAG INDICATES BODY ABOUT WHICH ORBITAL
031489,000317: 22,3514           45516                                    MOONGON                               #  CALCULATIONS ARE TO BE PERFORMED.
031490,000318: 22,3515           45527                                    EARTHGON                              #  IF SET - MOON, IF RESET - EARTH.
031491,000319: 
031492,000320: 22,3516           71214        MOONGON            SET      DLOAD                                 
031493,000321: 22,3517           03475                                    V82EMFLG                              #  INDICATE MOON SCALING FOR SR30.1
031494,000322: 22,3520           04001                                    1/RTMUM                               #  LUNAR PARAMETERS LOADED HERE FOR SR30.1
031495,000323: 22,3521           14037                           STODL    TFF/RTMU                              
031496,000324: 22,3522           05364                                    MINPERM                               
031497,000325: 22,3523           26201                           STOVL    HPERMIN                               
031498,000326: 22,3524           02023                                    RLS                                   #  SCALED AT (-27)M.
031499,000327: 22,3525           52046                           ABVAL    GOTO                                  
031500,000328: 22,3526           45536                                    V82GON2                               
031501,000329: 22,3527           71214        EARTHGON           CLEAR    DLOAD                                 
031502,000330: 22,3530           03675                                    V82EMFLG                              #  INDICATE EARTH SCALING FOR SR30.1
031503,000331: 22,3531           04003                                    1/RTMUE                               #  EARTH PARAMETERS LOADED HERE FOR SR30.1
031504,000332: 22,3532           14037                           STODL    TFF/RTMU                              
031505,000333: 22,3533           05366                                    MINPERE                               
031506,000334: 22,3534           16201                           STODL    HPERMIN                               
031507,000335: 22,3535           06315                                    RPAD                                  
031508,000336: 22,3536           36203        V82GON2            STCALL   RPADTEM                               #  COMMON CODE FOR EARTH & MOON.
031509,000337: 22,3537           45551                                    SR30.1                                

Page 718

031511,000339: 22,3540           77776                           EXIT                                           
031512,000340: 22,3541           34747        V82GON3            CAF      BIT5                                  
031513,000341: 22,3542           71044                           MASK     EXTVBACT                              #  SEE IF ASTRONAUT HAS SIGNALLED TERMINATE
031514,000342: 22,3543           00006                           EXTEND                                         
031515,000343: 22,3544           15472                           BZF      ENDEXT                                #  YES, TERMINATE VB 82 LOOP
031516,000344: 22,3545           34777                           CAF      1SEC                                  
031517,000345: 22,3546           04616                           TC       BANKCALL                              #  WAIT ONE SECOND BEFORE REPEATING
031518,000346: 22,3547           01735                           CADR     DELAYJOB                              #  ORBITAL PARAMETER COMPUTATION.
031519,000347: 22,3550           03503                           TC       V82GON1                               
031520,000348: 
031521,000349: 22,3551  22,3541               SPLRET             =        V82GON3                               
031522,000350: 

Page 719

031524,000352:                                                                                                  #  SUBROUTINE NAME: SR30.1
031525,000353:                                                                                                  #  MOD NO: 0                                                             DATE: 16 FEB 67
031526,000354:                                                                                                  #  MOD BY: RR BAIRNSFATHER                                               LOG SECTION: R32
031527,000355:                                                                                                  #  MOD NO: 1     MOD BY: RR BAIRNSFATHER         DATE: 11 APR 67         SR30.1 CHANGED TO ALLOW MONITOR OPERN
031528,000356:                                                                                                  #  MOD NO: 2     MOD BY: RR BAIRNSFATHER         DATE: 14 APR 67         ADD OVFL CK FOR RAPO
031529,000357:                                                                                                  #  MOD NO: 3     MOD BY ALONSO                   DATE: 11 DEC 67         SUBROUTINE REWRITTEN
031530,000358:                                                                                                  #  MOD NO: 4     MOD BY ALONSO                   DATE: 26 MAR 68         PROG MOD TO HANDLE DIF EARTH/MOON SCALE
031531,000359:                                                                                                  #  MOD NO: 5     MOD BY: RR BAIRNSFATHER         DATE: 6 AUG 68          OVFL CK FOR HAPO & HPER. VOIDS MOD #2.
031532,000360: 
031533,000361:                                                                                                  #  NEW FUNCTIONAL DESCRIPTION:  ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44.
031534,000362:                                                                                                  #  SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
031535,000363:                                                                                                  #  RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
031536,000364:                                                                                                  #  LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
031537,000365:                                                                                                  #  TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
031538,000366:                                                                                                  #  IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
031539,000367:                                                                                                  #  NEGATIVE IN -TPER.  OTHERWISE STORES +0 IN -TPER.  WHENEVER TPER IS
031540,000368:                                                                                                  #  CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC.  IF HAPO
031541,000369:                                                                                                  #  WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
031542,000370: 
031543,000371:                                                                                                  #  ADDENDUM:     HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
031544,000372:                                                                                                  #                ABOVE REMARKS.
031545,000373: 
031546,000374:                                                                                                  #  CALLING SEQUENCE:     CALL
031547,000375:                                                                                                  #                                SR30.1
031548,000376: 
031549,000377:                                                                                                  #  SUBROUTINES CALLED:   TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
031550,000378: 
031551,000379:                                                                                                  #  NORMAL EXIT MODE:     CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
031552,000380: 
031553,000381:                                                                                                  #  ALARMS:       NONE
031554,000382: 
031555,000383:                                                                                                  #  OUTPUT:       RAPO    (-29) M EARTH   APOGEE RADIUS   EARTH CENTERED COORD.
031556,000384:                                                                                                  #                        (-27) M MOON                    MOON CENTERED COORD.
031557,000385:                                                                                                  #                RPER    (-29) M EARTH   PERIGEE RADIUS  EARTH CENTERED COORD.
031558,000386:                                                                                                  #                        (-27) M MOON                    MOON CENTERED COORD.
031559,000387:                                                                                                  #                HAPOX   (-29) M         APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
031560,000388:                                                                                                  #                HPERX   (-29) M         PERIGEE ALT. ABOVE PAD OR LAND. SITE    MAX VALUE LIMITED TO 9999.9 NM.
031561,000389:                                                                                                  #                TFF     (-28) CS        TIME TO 300KFT OR 35KFT ALTITUDE
031562,000390:                                                                                                  #                -TPER   (-28) CS        TIME TO PERIGEE
031563,000391: 
031564,000392:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
031565,000393:                                                                                                  #        TFF/RTMU        (+17) EARTH     RECIPROCAL OF PROPER GRAV CONSTANT FOR
031566,000394:                                                                                                  #                        (+14) MOON      EARTH OR MOON = 1/SQRT(MU).
031567,000395:                                                                                                  #        RONE            (-29) M         STATE VECTOR
031568,000396:                                                                                                  #        VONE            (-7)  M/CS      STATE VECTOR
031569,000397:                                                                                                  #        RPADTEM         (-29) M EARTH   RADIUS OF LAUNCH PAD OR LUNAR LANDING
031570,000398:                                                                                                  #                        (-27) M MOON    SITE.
031571,000399:                                                                                                  #        HPERMIN         (-29) M EARTH   (300 OR 35) KFT MINIMUM PERIGEE ALTITUDE
031572,000400:                                                                                                  #                        (-27) M MOON    ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
031573,000401:                                                                                                  #        V82EMFLG        (INT SW BIT)    RESET FOR EARTH, SET FOR MOON.
031574,000402: 
031575,000403:                                                                                                  #  DEBRIS:       QPRET, PDL, S2
031576,000404: 

Page 720

031578,000406: 22,3551                                           COUNT*   $$/SR30S                              
031579,000407: 
031580,000408: 22,3551           44001        SR30.1             SETPD    STQ                                   #  INITIALIZE PUSHDOWN LIST.
031581,000409: 22,3552           00001                                    0                                     
031582,000410: 22,3553           00051                                    S2                                    
031583,000411:                                                                                                  #  SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
031584,000412:                                                                                                  #                VONE AT (-7)M/CS
031585,000413:                                                                                                  #  TFFCONMU, TFFRP/RA, CALCTPER AND CALCTFF
031586,000414:                                                                                                  #  CALLS REQUIRE:
031587,000415:                                                                                                  #  EARTH CENTERED (NO RESCALING REQUIRED)
031588,000416:                                                                                                  #        RONE SCALED TO B-29 M
031589,000417:                                                                                                  #        VONE SCALED TO B-7  M/CS
031590,000418:                                                                                                  #  MOON CENTERED (RESCALING REQUIRED)
031591,000419:                                                                                                  #        RONE SCALED TO B-27 M
031592,000420:                                                                                                  #        VONE SCALED TO B-5  M/CS
031593,000421: 22,3554           77214                           BOFF     VLOAD                                 
031594,000422: 22,3555           03755                                    V82EMFLG                              #  OFF FOR EARTH, ON FOR MOON.
031595,000423: 22,3556           45565                                    TFFCALLS                              
031596,000424: 22,3557           02207                                    RONE                                  
031597,000425: 22,3560           77752                           VSL2                                           
031598,000426: 22,3561           26207                           STOVL    RONE                                  
031599,000427: 22,3562           02215                                    VONE                                  
031600,000428: 22,3563           77752                           VSL2                                           
031601,000429: 22,3564           02215                           STORE    VONE                                  
031602,000430: 22,3565           77624        TFFCALLS           CALL                                           
031603,000431: 22,3566           57361                                    TFFCONMU                              
031604,000432: 22,3567           77624                           CALL                                           #  TFFRP/RA COMPUTES RAPO,RPER.
031605,000433: 22,3570           57427                                    TFFRP/RA                              
031606,000434:                                                                                                  #  RETURNS WITH RAPO IN D(MPAC).
031607,000435: 22,3571           77625                           DSU                                            
031608,000436: 22,3572           02203                                    RPADTEM                               
031609,000437: 22,3573           64414                           BOFF     SR2R                                  #  NEED HAPO AT (-29)M FOR DISPLAY.
031610,000438:                                                                                                  #  IF MOON CENTERED, RESCALE FROM (-27)M.
031611,000439:                                                                                                  #  IF EARTH CENTERED ALREADY AT (-29)M.
031612,000440: 22,3574           03755                                    V82EMFLG                              #  OFF FOR EARTH, ON FOR MOON.
031613,000441: 22,3575           45576                                    +1                                    
031614,000442: 22,3576           77624                           CALL                                           #  IF HAPO > MAXNM, SET HAPO =9999.9 NM.
031615,000443: 22,3577           45636                                    MAXCHK                                #  OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
031616,000444: 22,3600           16120        STORHAPO           STODL    HAPOX                                 
031617,000445: 22,3601           00017                                    RPER                                  
031618,000446: 22,3602           77625                           DSU                                            
031619,000447: 22,3603           02203                                    RPADTEM                               #  GIVES HPER AT (-29)M EARTH, (-27)M MOON.
031620,000448: 22,3604           00161                           STORE    MPAC       +4                         #  SAVE THIS FOR COMPARISON TO HPERMIN.
031621,000449: 22,3605           64414                           BOFF     SR2R                                  #  NEED HPER AT (-29)M FOR DISPLAY.
031622,000450:                                                                                                  #  IF MOON CENTERED, RESCALE FROM (-27)M.
031623,000451:                                                                                                  #  IF EARTH CENTERED ALREADY AT (-29)M.
031624,000452: 22,3606           03755                                    V82EMFLG                              #  OFF FOR EARTH, ON FOR MOON.
031625,000453: 22,3607           45610                                    +1                                    
031626,000454: 22,3610           77624                           CALL                                           #  IF HPER > MAXNM, SET HPER = 9999.9 NM.
031627,000455: 22,3611           45636                                    MAXCHK                                

Page 721

031629,000457: 22,3612           16122        STORHPER           STODL    HPERX                                 #  STORE (RPER - RPADTEM) INTO HPERX.
031630,000458: 22,3613           00161                                    MPAC       +4                         
031631,000459: 22,3614           51025                           DSU      BPL                                   #  HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
031632,000460: 22,3615           02201                                    HPERMIN                               #  IF HPER L/ HPERMIN (300 OR 35) KFT,
031633,000461: 22,3616           45622                                    DOTPER                                #  THEN ZERO INTO -TPER.
031634,000462: 22,3617           52145                           DLOAD    GOTO                                  #  OTHERWISE CALCULATE TPER.
031635,000463: 22,3620           06522                                    HI6ZEROS                              
031636,000464: 22,3621           45626                                    SKIPTPER                              
031637,000465: 22,3622           45145        DOTPER             DLOAD    CALL                                  
031638,000466: 22,3623           00017                                    RPER                                  
031639,000467: 22,3624           57465                                    CALCTPER                              
031640,000468: 22,3625           77676                           DCOMP                                          #  TPER IS PUT NEG INTO -TPER.
031641,000469: 22,3626           16143        SKIPTPER           STODL    -TPER                                 
031642,000470: 22,3627           02201                                    HPERMIN                               #  HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
031643,000471: 22,3630           45015                           DAD      CALL                                  
031644,000472: 22,3631           02203                                    RPADTEM                               #  RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
031645,000473: 22,3632           57470                                    CALCTFF                               #  GIVES 59M59S FOR TFF IF RPER G/
031646,000474: 22,3633           77676                           DCOMP                                          #  HPERMIN + RPADTEM.  (TPER WAS NON ZERO)
031647,000475: 22,3634           36141                           STCALL   TFF                                   #  OTHERWISE COMPUTES TFF.       (GOTO)
031648,000476: 22,3635           00051                                    S2                                    
031649,000477: 
031650,000478: 22,3636           51025        MAXCHK             DSU      BPL                                   #  IF C(MPAC) > 9999.9 NM, MPAC = 9999.9 NM
031651,000479: 22,3637           05646                                    MAXNM                                 
031652,000480: 22,3640           45643                                    +3                                    #  OTHERWISE C(MPAC) = B(MPAC).
031653,000481: 22,3641           43415                           DAD      RVQ                                   
031654,000482: 22,3642           05646                                    MAXNM                                 
031655,000483: 22,3643           43545                 +3        DLOAD    RVQ                                   #  (USED BY P30 - P37 ALSO)
031656,000484: 22,3644           05646                                    MAXNM                                 
031657,000485: 
031658,000486: 22,3645           01065 05603  MAXNM              2OCT     0106505603                            
031659,000487: 

Page 722 Empty page.

031662,000490: 

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