Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

035643,000002:                                                                                                  ## Copyright:   Public domain.
035644,000003:                                                                                                  ## Filename:    P12.agc
035645,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
035646,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
035647,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
035648,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
035649,000008:                                                                                                  ##              that the code format has been changed to conform to the
035650,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
035651,000010:                                                                                                  ##              original YUL assembler.
035652,000011:                                                                                                  ## Reference:   pp. 831-835
035653,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
035654,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
035655,000014:                                                                                                  ## Mod history: 05/26/03 RSB.   Began transcribing.
035656,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
035657,000016:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
035658,000017:                                                                                                  ##                              original harcopy, as opposed to the PDF page
035659,000018:                                                                                                  ##                              numbers in 1701.pdf.
035660,000019:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
035661,000020:                                                                                                  ##                              and fixed errors found.
035662,000021:                                                                                                  ##              2017-02-26 RSB  Proofed comment text using octopus/ProoferComments.
035663,000022:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
035664,000023:                                                                                                  ##              2017-08-26 MAS  Fixed a comment-text error found while transcribing
035665,000024:                                                                                                  ##                              Zerlina 56.
035666,000025: 

Page 831

035668,000027: 24,3700                                           BANK     24                                    
035669,000028: 30,2000                                           SETLOC   P12                                   
035670,000029: 30,2000                                           BANK                                           
035671,000030: 
035672,000031: 30,2061  E7,1515                                  EBANK=   DVCNTR                                
035673,000032: 30,2061                                           COUNT*   $$/P12                                
035674,000033: 
035675,000034: 30,2061           05353        P12LM              TC       PHASCHNG                              
035676,000035: 30,2062           04024                           OCT      04024                                 
035677,000036: 
035678,000037: 30,2063           04616                           TC       BANKCALL                              
035679,000038: 30,2064           11233                           CADR     R02BOTH                               #  CHECK THE STATUS OF THE IMU.
035680,000039: 30,2065           06011                           TC       CLRADMOD                              #  INITIALIZE RADMODES FOR R29.
035681,000040: 30,2066           36000                           CAF      THRESH2                               #  INITIALIZE DVMON
035682,000041: 30,2067           55250                           TS       DVTHRUSH                              
035683,000042: 30,2070           34751                           CAF      FOUR                                  
035684,000043: 30,2071           55515                           TS       DVCNTR                                
035685,000044: 
035686,000045: 30,2072           34755                           CA       ZERO                                  
035687,000046: 30,2073           55462                           TS       TRKMKCNT                              #  SHOW THAT R29 DOWNLINK DATA IS NOT READY
035688,000047: 
035689,000048: 30,2074           33022                           CAF      V06N33A                               
035690,000049: 30,2075           04616                           TC       BANKCALL                              #  FLASH TIG
035691,000050: 30,2076           20477                           CADR     GOFLASH                               
035692,000051: 30,2077           16001                           TCF      GOTOPOOH                              
035693,000052: 30,2100           12102                           TCF      +2                                    #  PROCEED
035694,000053: 30,2101           12074                           TCF      -5                                    #  ENTER
035695,000054: 
035696,000055: 30,2102           05353                           TC       PHASCHNG                              
035697,000056: 30,2103           04024                           OCT      04024                                 
035698,000057: 
035699,000058: 30,2104           06042                           TC       INTPRET                               
035700,000059: 30,2105           43014                           SET      SET                                   
035701,000060: 30,2106           03067                                    MUNFLAG                               
035702,000061: 30,2107           06464                                    ACC4-2FL                              
035703,000062: 30,2110           43014                           SET      CLEAR                                 
035704,000063: 30,2111           00075                                    R10FLAG                               
035705,000064: 30,2112           00270                                    RNDVZFLG                              
035706,000065: 30,2113           43014                           SET      SET                                   
035707,000066: 30,2114           04464                                    FLPI                                  
035708,000067: 30,2115           04461                                    FLVR                                  
035709,000068: 30,2116           77624                           CALL                                           #  INITIALIZE WM AND /LAND/
035710,000069: 30,2117           71343                                    GUIDINIT                              
035711,000070: 30,2120           77624                           CALL                                           
035712,000071: 30,2121           60251                                    P12INIT                               
035713,000072: 30,2122           77745        P12LMB             DLOAD                                          
035714,000073: 30,2123           25740                                    (TGO)A                                #  SET TGO TO AN INITIAL NOMINAL VALUE.
035715,000074: 30,2124           17517                           STODL    TGO                                   

Page 832

035717,000076: 30,2125           03442                                    TIG                                   
035718,000077: 30,2126           34041                           STCALL   TDEC1                                 
035719,000078: 30,2127           27056                                    LEMPREC                               #  ROTATE THE STATE VECTORS TO THE
035720,000079: 30,2130           64375                           VLOAD    MXV                                   #  IGNITION TIME.
035721,000080: 30,2131           00007                                    VATT                                  
035722,000081: 30,2132           01734                                    REFSMMAT                              
035723,000082: 30,2133           77772                           VSL1                                           
035724,000083: 30,2134           27601                           STOVL    V1S                                   #  COMPUTE V1S = VEL(TIG)*2(-7) M/CS.
035725,000084: 30,2135           00001                                    RATT                                  
035726,000085: 30,2136           52521                           MXV      VSL6                                  
035727,000086: 30,2137           01734                                    REFSMMAT                              
035728,000087: 30,2140           37521                           STCALL   R                                     #  COMPUTE R = POS(TIG)*2(-24) M.
035729,000088: 30,2141           67067                                    MUNGRAV                               #  COMPUTE GDT1/2(TIG)*2(-7)M/CS.
035730,000089: 30,2142           53575                           VLOAD    UNIT                                  
035731,000090: 30,2143           03521                                    R                                     
035732,000091: 30,2144           37537                           STCALL   UNIT/R/                               #  COMPUTE UNIT/R/ FOR YCOMP.
035733,000092: 30,2145           57313                                    YCOMP                                 
035734,000093: 30,2146           57461                           SR       DCOMP                                 
035735,000094: 30,2147           20606                                    5D                                    
035736,000095: 30,2150           17643                           STODL    XRANGE                                #  INITIALIZE XRANGE FOR NOUN 76.
035737,000096: 30,2151           31367                                    VINJNOM                               
035738,000097: 30,2152           16277                           STODL    ZDOTD                                 
035739,000098: 30,2153           31371                                    RDOTDNOM                              
035740,000099: 30,2154           02273                           STORE    RDOTD                                 
035741,000100: 30,2155           77776                           EXIT                                           
035742,000101: 
035743,000102: 30,2156           05353                           TC       PHASCHNG                              
035744,000103: 30,2157           04024                           OCT      04024                                 
035745,000104: 
035746,000105: 30,2160           33021        NEWLOAD            CAF      V06N76                                #  FLASH CROSS-RANGE AND APOLUNE VALUES.
035747,000106: 30,2161           04616                           TC       BANKCALL                              
035748,000107: 30,2162           20477                           CADR     GOFLASH                               
035749,000108: 30,2163           16001                           TCF      GOTOPOOH                              
035750,000109: 30,2164           12166                           TCF      +2                                    #  PROCEED
035751,000110: 30,2165           12160                           TCF      NEWLOAD                               #  ENTER NEW DATA.
035752,000111: 
035753,000112: 30,2166           32314                           CAF      P12ADRES                              
035754,000113: 30,2167           55455                           TS       WHICH                                 
035755,000114: 
035756,000115: 30,2170           05353                           TC       PHASCHNG                              
035757,000116: 30,2171           04024                           OCT      04024                                 
035758,000117: 
035759,000118: 30,2172           06042                           TC       INTPRET                               
035760,000119: 30,2173           54345                           DLOAD    SL                                    
035761,000120: 30,2174           03643                                    XRANGE                                
035762,000121: 30,2175           20206                                    5D                                    
035763,000122: 30,2176           77615                           DAD                                            
035764,000123: 30,2177           02335                                    Y                                     
035765,000124: 30,2200           27633                           STOVL    YCO                                   
035766,000125: 30,2201           03537                                    UNIT/R/                               

Page 833

035768,000127: 30,2202           53361                           VXSC     VAD                                   
035769,000128: 30,2203           31365                                    49FPS                                 
035770,000129: 30,2204           03601                                    V1S                                   
035771,000130: 30,2205           03527                           STORE    V                                     #  V(TIPOVER) = V(IGN) + 57FPS (UNIT/R/)
035772,000131: 30,2206           72441                           DOT      SL1                                   
035773,000132: 30,2207           03537                                    UNIT/R/                               
035774,000133: 30,2210           27474                           STOVL    RDOT                                  #  RDOT * 2(-7)
035775,000134: 30,2211           03537                                    UNIT/R/                               
035776,000135: 30,2212           53435                           VXV      UNIT                                  
035777,000136: 30,2213           03720                                    QAXIS                                 
035778,000137: 30,2214           37726                           STCALL   ZAXIS1                                
035779,000138: 30,2215           60315                                    ASCENT                                
035780,000139: 30,2216           77745        P12RET             DLOAD                                          
035781,000140: 30,2217           02361                                    ATP                                   #  ATP(2)*2(18)
035782,000141: 30,2220           65316                           DSQ      PDDL                                  
035783,000142: 30,2221           02355                                    ATY                                   #  ATY(2)*2(18)
035784,000143: 30,2222           43316                           DSQ      DAD                                   
035785,000144: 30,2223           75454                           BZE      SQRT                                  
035786,000145: 30,2224           60230                                    YAWDUN                                
035787,000146: 30,2225           55352                           SL1      BDDV                                  
035788,000147: 30,2226           02355                                    ATY                                   
035789,000148: 30,2227           77736                           ARCSIN                                         
035790,000149: 30,2230           26363        YAWDUN             STOVL    YAW                                   
035791,000150: 30,2231           03253                                    UNFC/2                                
035792,000151: 30,2232           50256                           UNIT     DOT                                   
035793,000152: 30,2233           03537                                    UNIT/R/                               
035794,000153: 30,2234           65552                           SL1      ARCCOS                                
035795,000154: 30,2235           77676                           DCOMP                                          
035796,000155: 30,2236           02365                           STORE    PITCH                                 
035797,000156: 30,2237           77776                           EXIT                                           
035798,000157: 30,2240           05353                           TC       PHASCHNG                              
035799,000158: 30,2241           04024                           OCT      04024                                 
035800,000159: 
035801,000160: 30,2242           00004                           INHINT                                         
035802,000161: 30,2243           04674                           TC       IBNKCALL                              
035803,000162: 30,2244           40143                           CADR     PFLITEDB                              
035804,000163: 30,2245           05516                           TC       DOWNFLAG                              
035805,000164: 30,2246           00213                           ADRES    FLPI                                  
035806,000165: 
035807,000166: 30,2247           04635                           TC       POSTJUMP                              
035808,000167: 30,2250           74130                           CADR     BURNBABY                              
035809,000168: 
035810,000169: 30,2251           77745        P12INIT            DLOAD                                          #  INITIALIZE ENGINE DATA.  USED FOR P12 AND
035811,000170: 30,2252           16013                                    (1/DV)A                               #  P71.
035812,000171: 30,2253           03641                           STORE    1/DV3                                 
035813,000172: 30,2254           03637                           STORE    1/DV2                                 
035814,000173: 30,2255           17635                           STODL    1/DV1                                 
035815,000174: 30,2256           16017                                    (AT)A                                 
035816,000175: 30,2257           16263                           STODL    AT                                    
035817,000176: 30,2260           16021                                    (TBUP)A                               

Page 834

035819,000178: 30,2261           16271                           STODL    TBUP                                  
035820,000179: 30,2262           34013                                    ATDECAY                               
035821,000180: 30,2263           54276                           DCOMP    SL                                    
035822,000181: 30,2264           20214                                    11D                                   
035823,000182: 30,2265           02267                           STORE    TTO                                   
035824,000183: 30,2266           57535                           SLOAD    DCOMP                                 
035825,000184: 30,2267           26001                                    APSVEX                                
035826,000185: 30,2270           77702                           SR2                                            
035827,000186: 30,2271           02265                           STORE    VE                                    
035828,000187: 30,2272           43414                           BOFF     RVQ                                   
035829,000188: 30,2273           04747                                    FLAP                                  
035830,000189: 30,2274           60275                                    COMMINIT                              
035831,000190: 30,2275           43345        COMMINIT           DLOAD    DAD                                   #  INITIALIZE TARGET DATA.  USED BY P12, P70
035832,000191: 30,2276           25736                                    HINJECT                               #  AND P71 IF IT DOES NOT FOLLOW P70.
035833,000192: 30,2277           02333                                    /LAND/                                
035834,000193: 30,2300           17631                           STODL    RCO                                   
035835,000194: 30,2301           06524                                    HI6ZEROS                              
035836,000195: 30,2302           03654                           STORE    TXO                                   
035837,000196: 30,2303           03633                           STORE    YCO                                   
035838,000197: 30,2304           26275                           STOVL    YDOTD                                 
035839,000198: 30,2305           01563                                    VRECTCSM                              
035840,000199: 30,2306           64235                           VXV      MXV                                   
035841,000200: 30,2307           01555                                    RRECTCSM                              
035842,000201: 30,2310           01734                                    REFSMMAT                              
035843,000202: 30,2311           77656                           UNIT                                           
035844,000203: 30,2312           03720                           STORE    QAXIS                                 
035845,000204: 30,2313           77616                           RVQ                                            
035846,000205: 
035847,000206: 30,2314           02024        P12ADRES           REMADR   P12TABLE                              
035848,000207: 
035849,000208: 34,2000                                           SETLOC   ASENT8                                
035850,000209: 34,2000                                           BANK                                           
035851,000210: 34,3343                                           COUNT*   $$/P12                                
035852,000211: 
035853,000212: 34,3343           40220        GUIDINIT           STQ      SETPD                                 
035854,000213: 34,3344           01163                                    TEMPR60                               
035855,000214: 34,3345           00001                                    0D                                    
035856,000215: 34,3346           41575                           VLOAD    PUSH                                  
035857,000216: 34,3347           06516                                    UNITZ                                 
035858,000217: 34,3350           41434                           RTB      PUSH                                  
035859,000218: 34,3351           21574                                    LOADTIME                              
035860,000219: 34,3352           77624                           CALL                                           
035861,000220: 34,3353           55716                                    RP-TO-R                               
035862,000221: 34,3354           74321                           MXV      VXSC                                  
035863,000222: 34,3355           01734                                    REFSMMAT                              
035864,000223: 34,3356           16027                                    MOONRATE                              
035865,000224: 34,3357           26325                           STOVL    WM                                    
035866,000225: 34,3360           02023                                    RLS                                   
035867,000226: 34,3361           52446                           ABVAL    SL3                                   
035868,000227: 34,3362           36333                           STCALL   /LAND/                                

Page 835

035870,000229: 34,3363           01163                                    TEMPR60                               
035871,000230: 
035872,000231: 34,3364           00046 07374  49FPS              2DEC     .149352    B-6                        #  EXPECTED RDOT AT TIPOVER
035873,000232: 34,3366           04145 15527  VINJNOM            2DEC     16.7924    B-7                        #  5509.5 FPS(APO=30NM WITH RDOT=19.5FPS)
035874,000233: 34,3370           00007 23346  RDOTDNOM           2DEC     .059436    B-7                        #  19.5 FPS
035875,000234: 
035876,000235: 

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