Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

033260,000002:                                                                                                  ## Copyright:   Public domain.
033261,000003:                                                                                                  ## Filename:    THE_LUNAR_LANDING.agc
033262,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
033263,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
033264,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
033265,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
033266,000008:                                                                                                  ##              that the code format has been changed to conform to the
033267,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
033268,000010:                                                                                                  ##              original YUL assembler.
033269,000011:                                                                                                  ## Reference:   pp. 778-785
033270,000012:                                                                                                  ## Assembler:   yaYUL
033271,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
033272,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
033273,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
033274,000016:                                                                                                  ##              2017-03-10 HG   Transcribed
033275,000017:                                                                                                  ##              2017-03-14 RSB  Proofed comment text via 3-way diff vs
033276,000018:                                                                                                  ##                              Luminary 99 and 131.
033277,000019:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
033278,000020:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
033279,000021:                                                                                                  ##              2017-03-19 HG   Fix SELOC operand  F2DPS*31 --> F2DPS*34
033280,000022: 

Page 778

033282,000024: 32,2777                                           BANK     32                                    
033283,000025: 32,2000                                           SETLOC   F2DPS*32                              
033284,000026: 32,2000                                           BANK                                           
033285,000027: 
033286,000028: 32,2777  E7,1621                                  EBANK=   E2DPS                                 
033287,000029: 
033288,000030:                                                                                                  #           ****************************************
033289,000031:                                                                                                  #           P63: THE LUNAR LANDING, BRAKING PHASE
033290,000032:                                                                                                  #           ****************************************
033291,000033: 
033292,000034: 32,2777                                           COUNT*   $$/P63                                
033293,000035: 
033294,000036: 32,2777           05353        P63LM              TC       PHASCHNG                              
033295,000037: 32,3000           04024                           OCT      04024                                 

Note: The above label (P63LM) has a box in blue pen drawn arround it The two statements above are circled with a blue pen arround them

033298,000040: 
033299,000041: 32,3001           04616                           TC       BANKCALL                              #  DO IMU STATUS CHECK ROUTINE R02
033300,000042: 32,3002           11236                           CADR     R02BOTH                               
033301,000043: 
033302,000044: 32,3003           33254                           CAF      P63ADRES                              #  INITIALIZE WHICH FOR BURNBABY
033303,000045: 32,3004           55455                           TS       WHICH                                 
033304,000046: 
033305,000047: 32,3005           32000                           CAF      DPSTHRSH                              #  INITIALIZE DVMON
033306,000048: 32,3006           55250                           TS       DVTHRUSH                              
033307,000049: 32,3007           34751                           CAF      FOUR                                  
033308,000050: 32,3010           55515                           TS       DVCNTR                                
033309,000051: 
033310,000052: 32,3011           44753                           CS       ONE                                   #  INITIALIZE WCHPHASE AND FLPASSO
033311,000053: 32,3012           55346                           TS       WCHPHASE                              
033312,000054: 
033313,000055: 32,3013           34755                           CA       ZERO                                  
033314,000056: 32,3014           55623                           TS       FLPASS0                               
033315,000057: 
033316,000058: 32,3015           44736                           CS       BIT14                                 
033317,000059: 32,3016           00006                           EXTEND                                         
033318,000060: 32,3017           03012                           WAND     CHAN12                                #  REMOVE TRACK-ENABLE DISCRETE.
033319,000061: 
033320,000062: 32,3020           06042        FLAGORGY           TC       INTPRET                               #  DIONYSIAN FLAG WAVING
033321,000063: 32,3021           43014                           CLEAR    CLEAR                                 
033322,000064: 32,3022           02663                                    NOTHROTL                              
033323,000065: 32,3023           03271                                    REDFLAG                               
033324,000066: 32,3024           43014                           CLEAR    SET                                   
033325,000067: 32,3025           05660                                    LRBYPASS                              
033326,000068: 32,3026           03067                                    MUNFLAG                               
033327,000069: 32,3027           43014                           CLEAR    CLEAR                                 
033328,000070: 32,3030           00266                                    P25FLAG                               #  TERMINATE P25 IF IT IS RUNNING.
033329,000071: 32,3031           00270                                    RNDVZFLG                              #  TERMINATE P20 IF IT IS RUNNING
033330,000072: 
033331,000073:                                                                                                  #  ****************************************
033332,000074: 
033333,000075: 32,3032           77201        IGNALG             SETPD    VLOAD                                 #  FIRST SET UP INPUTS FOR RP-TO-R:-
033334,000076: 

Page 779

033336,000078: 32,3033           00001                                    0                                     #    AT 0D LANDING SITE IN MOON FIXED FRAME
033337,000079: 32,3034           02023                                    RLS                                   #    AT 6D ESTIMATED TIME OF LANDING
033338,000080: 32,3035           41525                           PDDL     PUSH                                  #    MPAC NON-ZERO TO INDICATE LUNAR CASE
033339,000081: 32,3036           02401                                    TLAND                                 
033340,000082: 32,3037           37625                           STCALL   TPIP                                  #  ALSO SET TPIP FOR FIRST GUIDANCE PASS
033341,000083: 32,3040           55716                                    RP-TO-R                               
033342,000084: 32,3041           64312                           VSL4     MXV                                   
033343,000085: 32,3042           01734                                    REFSMMAT                              
033344,000086: 32,3043           37635                           STCALL   LAND                                  
033345,000087: 32,3044           71343                                    GUIDINIT                              #  GUIDINIT INITIALIZES WM AND /LAND/
033346,000088: 32,3045           45345                           DLOAD    DSU                                   
033347,000089: 32,3046           02401                                    TLAND                                 
033348,000090: 32,3047           25261                                    GUIDDURN                              
033349,000091: 32,3050           34041                           STCALL   TDEC1                                 #  INTEGRATE STATE FORWARD TO THAT TIME
033350,000092: 32,3051           27060                                    LEMPREC                               
033351,000093: 32,3052           77331                           SSP      VLOAD                                 
033352,000094: 32,3053           03647                                    NIGNLOOP                              
033353,000095: 32,3054           00050                                    40D                                   
033354,000096: 32,3055           06522                                    UNITX                                 
033355,000097: 32,3056           26575                           STOVL    CG                                    
033356,000098: 32,3057           06520                                    UNITY                                 
033357,000099: 32,3060           26603                           STOVL    CG         +6                         
033358,000100: 32,3061           06516                                    UNITZ                                 
033359,000101: 32,3062           16611                           STODL    CG         +14                        
033360,000102: 32,3063           25257                                    99999CON                              
033361,000103: 32,3064           27665                           STOVL    DELTAH                                #  INITIALIZE DELTAH FOR V16N68 DISPLAY
033362,000104: 32,3065           06524                                    ZEROVECS                              
033363,000105: 32,3066           17254                           STODL    UNFC/2                                #  INITIALIZE TRIM VELOCITY CORRECTION TERM
033364,000106: 32,3067           06524                                    HI6ZEROS                              
033365,000107: 32,3070           03643                           STORE    TTF/8                                 
033366,000108: 
033367,000109: 32,3071           77745        IGNALOOP           DLOAD                                          
033368,000110: 32,3072           00015                                    TAT                                   
033369,000111: 32,3073           27561                           STOVL    PIPTIME1                              
033370,000112: 32,3074           00017                                    RATT1                                 
033371,000113: 32,3075           64312                           VSL4     MXV                                   
033372,000114: 32,3076           01734                                    REFSMMAT                              
033373,000115: 32,3077           37521                           STCALL   R                                     
033374,000116: 32,3100           67067                                    MUNGRAV                               
033375,000117: 32,3101           35236                           STCALL   GDT/2                                 
033376,000118: 32,3102           62402                                    ?GUIDSUB                              #  WHICH DELIVERS N PASSES OF GUIDANCE
033377,000119: 
033378,000120:                                                                                                  #  DDUMCALC IS PROGRAMMED AS FOLLOWS:-
033379,000121: 
033380,000122:                                                                                                  #                                        2                                           -
033381,000123:                                                                                                  #             (RIGNZ - RGU )/16 + 16(RGU  )KIGNY/B8 + (RGU - RIGNX)KIGNX/B4 + (ABVAL(VGU) - VIGN)KIGNV/B4
033382,000124:                                                                                                  #                         2             1                 0
033383,000125:                                                                                                  #      DDUM = -------------------------------------------------------------------------------------------
033384,000126:                                                                                                  #                                             10
033385,000127:                                                                                                  #                                            2   (VGU - 16 VGU KIGNX/B4)
033386,000128: 

Page 780

033388,000130:                                                                                                  #                                                    2        0
033389,000131: 
033390,000132:                                                                                                  #  THE NUMERATOR IS SCALED IN METERS AT 2(28).   THE DENOMINATOR IS A VELOCITY IN UNITS OF 2(10)M/CS.
033391,000133:                                                                                                  #  THE QUOTIENT IS THUS A TIME IN UNITS OF 2(18) CENTISECONDS.   THE FINAL SHIFT RESCALES TO UNITS OF 2(28) CS.
033392,000134:                                                                                                  #  THERE IS NO DAMPING FACTOR.   THE CONSTANTS KIGNX/B4, KIGNY/B8 AND KIGNV/B4 ARE ALL NEGATIVE IN SIGN.
033393,000135: 
033394,000136: 32,3103           55646        DDUMCALC           TS       NIGNLOOP                              
033395,000137: 32,3104           06042                           TC       INTPRET                               
033396,000138: 32,3105           57345                           DLOAD    DMPR                                  #  FORM DENOMINATOR FIRST

Note: The above operator and operand are separately underlined with a black pen. The corresponding octal opcode in the resulting listing is marked with a box around it in black pen.

033399,000141: 32,3106           03627                                    VGU                                   
033400,000142: 32,3107           02501                                    KIGNX/B4                              
033401,000143: 32,3110           44232                           SL4R     BDSU                                  
033402,000144: 32,3111           03633                                    VGU        +4                         
033403,000145: 32,3112           45325                           PDDL     DSU                                   
033404,000146: 32,3113           02477                                    RIGNZ                                 
033405,000147: 32,3114           02633                                    RGU        +4                         
033406,000148: 32,3115           65222                           SR4R     PDDL                                  
033407,000149: 32,3116           02631                                    RGU        +2                         
033408,000150: 32,3117           57316                           DSQ      DMPR                                  
033409,000151: 32,3120           02503                                    KIGNY/B8                              
033410,000152: 32,3121           65232                           SL4R     PDDL                                  
033411,000153: 32,3122           02627                                    RGU                                   
033412,000154: 32,3123           57225                           DSU      DMPR                                  
033413,000155: 32,3124           02475                                    RIGNX                                 
033414,000156: 32,3125           02501                                    KIGNX/B4                              
033415,000157: 32,3126           51515                           PDVL     ABVAL                                 
033416,000158: 32,3127           03627                                    VGU                                   
033417,000159: 32,3130           57225                           DSU      DMPR                                  
033418,000160: 32,3131           02473                                    VIGN                                  
033419,000161: 32,3132           02505                                    KIGNV/B4                              
033420,000162: 32,3133           43215                           DAD      DAD                                   
033421,000163: 32,3134           56215                           DAD      DDV                                   
033422,000164: 32,3135           77661                           SRR                                            
033423,000165: 32,3136           21613                                    10D                                   
033424,000166: 
033425,000167: 32,3137           43206                           PUSH     DAD                                   
033426,000168: 32,3140           03561                                    PIPTIME1                              
033427,000169: 32,3141           14041                           STODL    TDEC1                                 #  STORE NEW GUESS FOR NEXT INTEGRATION
033428,000170: 32,3142           45246                           ABS      DSU                                   
033429,000171: 32,3143           25263                                    DDUMCRIT                              
033430,000172: 32,3144           45040                           BMN      CALL                                  
033431,000173: 32,3145           65164                                    DDUMGOOD                              
033432,000174: 32,3146           27412                                    INTSTALL                              
033433,000175: 32,3147           43014                           SET      SET                                   
033434,000176: 32,3150           01473                                    INTYPFLG                              
033435,000177: 32,3151           00063                                    MOONFLAG                              
033436,000178: 32,3152           77745                           DLOAD                                          
033437,000179: 32,3153           03561                                    PIPTIME1                              
033438,000180: 32,3154           25517                           STOVL    TET                                   #  HOPEFULLY ?GUIDSUB DID NOT
033439,000181: 32,3155           00017                                    RATT1                                 #    CLOBBER RATT1 AND VATT1
033440,000182: 

Page 781

033442,000184: 32,3156           25535                           STOVL    RCV                                   
033443,000185: 32,3157           00025                                    VATT1                                 
033444,000186: 32,3160           35543                           STCALL   VCV                                   
033445,000187: 32,3161           27110                                    INTEGRVS                              
033446,000188: 32,3162           77650                           GOTO                                           
033447,000189: 32,3163           65071                                    IGNALOOP                              
033448,000190: 
033449,000191: 32,3164           54335        DDUMGOOD           SLOAD    SR                                    
033450,000192: 32,3165           03423                                    ZOOMTIME                              
033451,000193: 32,3166           20617                                    14D                                   
033452,000194: 32,3167           77621                           BDSU                                           
033453,000195: 32,3170           00041                                    TDEC1                                 
033454,000196: 32,3171           27442                           STOVL    TIG                                   #  COMPUTE DISTANCE LANDING SITE WILL BE
033455,000197: 32,3172           03527                                    V                                     #    OUT OF LM'S ORBITAL PLANE AT IGNITION:
033456,000198: 32,3173           53435                           VXV      UNIT                                  #    SIGN IS + IF LANDING SITE IS TO THE
033457,000199: 32,3174           03521                                    R                                     #    RIGHT, NORTH; - IF TO THE LEFT, SOUTH.
033458,000200: 32,3175           72441                           DOT      SL1                                   
033459,000201: 32,3176           03635                                    LAND                                  
033460,000202: 32,3177           26617        R60INIT            STOVL    OUTOFPLN                              #  INITIALIZATION FOR CALCMANU
033461,000203: 32,3200           03254                                    UNFC/2                                
033462,000204: 32,3201           02621                           STORE    R60VSAVE                              #  STORE UNFC/2 TEMPORARILY IN R60SAVE
033463,000205: 32,3202           77776                           EXIT                                           
033464,000206:                                                                                                  #  ****************************************
033465,000207: 
033466,000208: 32,3203           05353        IGNALGRT           TC       PHASCHNG                              #  PREVENT REPEATING IGNALG
033467,000209: 32,3204           04024                           OCT      04024                                 
033468,000210: 
033469,000211: 32,3205           44362        ASTNCLOK           CS       ASTNDEX                               
033470,000212: 32,3206           04616                           TC       BANKCALL                              
033471,000213: 32,3207           74670                           CADR     STCLOK2                               
033472,000214: 32,3210           15155                           TCF      ENDOFJOB                              #  RETURN IN NEW JOB AND IN EBANK FIVE
033473,000215: 
033474,000216: 32,3211           06042        ASTNRET            TC       INTPRET                               
033475,000217: 32,3212           47131                           SSP      RTB                                   #  GO PICK UP DISPLAY AT END OF R51:
033476,000218: 32,3213           02747                                    QMAJ                                  #    "PROCEED" WILL DO A FINE ALIGNMENT
033477,000219: 32,3214           65216                           FCADR    P63SPOT2                              #    "ENTER" WILL RETURN TO P63SPOT2
033478,000220: 32,3215           31127                                    R51P63                                
033479,000221: 32,3216           53575        P63SPOT2           VLOAD    UNIT                                  #  INITIALIZE KALCMANU FOR BURN ATTITUDE
033480,000222: 32,3217           02621                                    R60VSAVE                              
033481,000223: 32,3220           27773                           STOVL    POINTVSM                              
033482,000224: 32,3221           06522                                    UNITX                                 
033483,000225: 32,3222           03765                           STORE    SCAXIS                                
033484,000226: 32,3223           77776                           EXIT                                           
033485,000227: 
033486,000228: 32,3224           35016                           CAF      EBANK7                                
033487,000229: 32,3225           54003                           TS       EBANK                                 
033488,000230: 
033489,000231: 32,3226           00004                           INHINT                                         
033490,000232: 32,3227           04674                           TC       IBNKCALL                              
033491,000233: 32,3230           40143                           CADR     PFLITEDB                              
033492,000234: 

Page 782

033494,000236: 32,3231           00003                           RELINT                                         
033495,000237: 
033496,000238: 32,3232           04616                           TC       BANKCALL                              
033497,000239: 32,3233           54123                           CADR     R60LEM                                
033498,000240: 
033499,000241: 32,3234           05353                           TC       PHASCHNG                              #  PREVENT RECALLING R60
033500,000242: 32,3235           04024                           OCT      04024                                 
033501,000243: 
033502,000244: 32,3236           34746        P63SPOT3           CA       BIT6                                  #  IS THE LR ANTENNA IN POSITION 1 YET
033503,000245: 32,3237           00006                           EXTEND                                         
033504,000246: 32,3240           02033                           RAND     CHAN33                                
033505,000247: 32,3241           00006                           EXTEND                                         
033506,000248: 32,3242           13250                           BZF      P63SPOT4                              #  BRANCH IF ANTENNA ALREADY IN POSITION 1
033507,000249: 
033508,000250: 32,3243           33255                           CAF      CODE500                               #  ASTRONAUT: PLEASE CRANK THE
033509,000251: 32,3244           04616                           TC       BANKCALL                              #             SILLY THING AROUND
033510,000252: 32,3245           20624                           CADR     GOPERF1                               
033511,000253: 32,3246           16001                           TCF      GOTOPOOH                              #  TERMINATE
033512,000254: 32,3247           13236                           TCF      P63SPOT3                              #  PROCEED    SEE IF HE'S LYING
033513,000255: 
033514,000256: 32,3250           04616        P63SPOT4           TC       BANKCALL                              #  ENTER      INITIALIZE LANDING RADAR
033515,000257: 32,3251           67703                           CADR     SETPOS1                               
033516,000258: 
033517,000259: 32,3252           04635                           TC       POSTJUMP                              #  OFF TO SEE THE WIZARD...
033518,000260: 32,3253           74130                           CADR     BURNBABY                              
033519,000261: 
033520,000262: 
033521,000263:                                                                                                  #                ---------------------------------------
033522,000264: 
033523,000265:                                                                                                  #                       CONSTANTS FOR P63LM AND IGNALG
033524,000266: 
033525,000267: 
033526,000268: 32,3254           02100        P63ADRES           GENADR   P63TABLE                              
033527,000269: 
033528,000270: 
033529,000271: 32,3255     4362               ASTNDEX            =        MD1                                   #  OCT 25;  INDEX FOR CLOKTASK
033530,000272: 
033531,000273: 32,3255           00500        CODE500            OCT      00500                                 
033532,000274: 
033533,000275: 
033534,000276: 32,3256           00035 30373  99999CON           2DEC     30479.7    B-24                       
033535,000277: 32,3260           00004 01610  GUIDDURN           2DEC     +66440     B-28                       #          GUIDDURN +6.64400314 E+2
033536,000278: 32,3262           00000 00010  DDUMCRIT           2DEC     +8         B-28                       #  CRITERION FOR IGNALG CONVERGENCE
033537,000279: 

Page 783

033539,000281:                                                                                                  #                ----------------------------------------
033540,000282: 

Page 784

033542,000284:                                                                                                  #                ****************************************
033543,000285:                                                                                                  #                P68: LANDING CONFIRMATION
033544,000286:                                                                                                  #                ****************************************
033545,000287: 
033546,000288: 34,3271                                           BANK     34                                    
033547,000289: 34,2000                                           SETLOC   F2DPS*34                              
033548,000290: 34,2000                                           BANK                                           
033549,000291: 
033550,000292: 34,3271                                           COUNT*   $$/P6567                              
033551,000293: 
033552,000294: 34,3271           05353        LANDJUNK           TC       PHASCHNG                              
033553,000295: 34,3272           04024                           OCT      04024                                 
033554,000296: 
033555,000297: 34,3273           00004                           INHINT                                         
033556,000298: 34,3274           04616                           TC       BANKCALL                              #  ZERO ATTITUDE ERROR
033557,000299: 34,3275           40154                           CADR     ZATTEROR                              
033558,000300: 
033559,000301: 34,3276           06042                           TC       INTPRET                               #  TO INTERPRETIVE AS TIME IS NOT CRITICAL
033560,000302: 34,3277           77614                           SET                                            #  PREVENT RCS JET FIRINGS IF MODE CONT IS
033561,000303: 34,3300           06460                                    PULSEFLG                              #  IN ATT HOLD
033562,000304: 34,3301           43014                           SET      CLEAR                                 
033563,000305: 34,3302           04067                                    SURFFLAG                              
033564,000306: 34,3303           04666                                    LETABORT                              
033565,000307: 34,3304           77214                           SET      VLOAD                                 
033566,000308: 34,3305           05062                                    APSFLAG                               
033567,000309: 34,3306           01220                                    RN                                    
033568,000310: 34,3307           16032                           STODL    ALPHAV                                
033569,000311: 34,3310           01234                                    PIPTIME                               
033570,000312: 34,3311           45014                           SET      CALL                                  
033571,000313: 34,3312           01463                                    LUNAFLAG                              
033572,000314: 34,3313           26351                                    LAT-LONG                              
033573,000315: 34,3314           77201                           SETPD    VLOAD                                 #  COMPUTE RLS AND STORE IT AWAY
033574,000316: 34,3315           00001                                    0                                     
033575,000317: 34,3316           01220                                    RN                                    
033576,000318: 34,3317           65352                           VSL2     PDDL                                  
033577,000319: 34,3320           01234                                    PIPTIME                               
033578,000320: 34,3321           45006                           PUSH     CALL                                  
033579,000321: 34,3322           51677                                    R-TO-RP                               
033580,000322: 34,3323           02023                           STORE    RLS                                   
033581,000323: 34,3324           77776                           EXIT                                           
033582,000324: 34,3325           33342                           CAF      V06N43*                               #  ASTRONAUT: NOW LOOK WHERE YOU ENDED UP
033583,000325: 34,3326           04616                           TC       BANKCALL                              
033584,000326: 34,3327           20477                           CADR     GOFLASH                               
033585,000327: 34,3330           16001                           TCF      GOTOPOOH                              #  TERMINATE
033586,000328: 34,3331           13333                           TCF      +2                                    #  PROCEED
033587,000329: 34,3332           13325                           TCF      -5                                    #  RECYCLE
033588,000330: 
033589,000331: 
033590,000332: 34,3333           06042                           TC       INTPRET                               
033591,000333: 34,3334           77775                           VLOAD                                          #  INITIALIZE GSAV AND (USING REFMF)
033592,000334: 

Page 785

033594,000336: 34,3335           06522                                    UNITX                                 #  YNBSAV, ZNBSAV AND ATTFLAG FOR P57
033595,000337: 34,3336           36231                           STCALL   GSAV                                  
033596,000338: 34,3337           33471                                    REFMF                                 
033597,000339: 34,3340           77776                           EXIT                                           
033598,000340: 
033599,000341: 34,3341           16001                           TCF      GOTOPOOH                              #  ASTRONAUT: PLEASE SELECT P57
033600,000342: 
033601,000343: 
033602,000344: 34,3342           01453        V06N43*            VN       0643                                  

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