Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

026258,000002:                                                                                                  ## Copyright:   Public domain.
026259,000003:                                                                                                  ## Filename:    P30_P37.agc
026260,000004:                                                                                                  ## Purpose:     Part of the source code for Luminary 1A build 099.
026261,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
026262,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
026263,000007:                                                                                                  ## Assembler:   yaYUL
026264,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
026265,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
026266,000010:                                                                                                  ## Pages:       614-617
026267,000011:                                                                                                  ## Mod history: 2009-05-17 RSB  Adapted from the corresponding 
026268,000012:                                                                                                  ##                              Luminary131 file, using page 
026269,000013:                                                                                                  ##                              images from Luminary 1A.
026270,000014:                                                                                                  ##              2009-06-05 RSB  Removed 4 lines of code that shouldn't
026271,000015:                                                                                                  ##                              have survived from Luminary 131.
026272,000016:                                                                                                  ##
026273,000017:                                                                                                  ## This source code has been transcribed or otherwise adapted from
026274,000018:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
026275,000019:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
026276,000020:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
026277,000021:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
026278,000022:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
026279,000023:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
026280,000024:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
026281,000025:                                                                                                  ## actually created.
026282,000026:                                                                                                  ##
026283,000027:                                                                                                  ## Notations on the hardcopy document read, in part:
026284,000028:                                                                                                  ##
026285,000029:                                                                                                  ##      Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
026286,000030:                                                                                                  ##      16:27 JULY 14, 1969 
026287,000031: 

Page 614

026289,000033:                                                                                                  #  PROGRAM DESCRIPTION P30       DATE 3-6-67
026290,000034: 
026291,000035:                                                                                                  #  MOD.1 BY RAMA AIYAWAR
026292,000036: 
026293,000037:                                                                                                  #  FUNCTIONAL DESCRIPTIONS
026294,000038:                                                                                                  #        ACCEPT ASTRONAUT INPUTS OF TIG,DELV(LV)
026295,000039:                                                                                                  #        CALL IMU STATUS CHECK ROUTINE (R02)
026296,000040:                                                                                                  #        DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN
026297,000041:                                                                                                  #        REQUEST BURN PROGRAM
026298,000042: 
026299,000043:                                                                                                  #  CALLING SEQUENCE VIA JOB FROM V37
026300,000044: 
026301,000045:                                                                                                  #  EXIT VIA V37 CALL OR TO GOTOP00H (V34E)
026302,000046: 
026303,000047:                                                                                                  #  SUBROUTINE CALLS --   FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR
026304,000048:                                                                                                  #                        GOPERF3R, INTPRET, BLANKET, GOTOP00H, R02BOTH, S30.1,
026305,000049:                                                                                                  #                        TIG/N35, MIDGIM, DISPMGA
026306,000050: 
026307,000051:                                                                                                  #  ERASABLE INITIALIZATION -- STATE VECTOR
026308,000052: 
026309,000053:                                                                                                  #  OUTPUT --     RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO,
026310,000054:                                                                                                  #                HPER, TTOGO
026311,000055: 
026312,000056:                                                                                                  #  DEBRIS -- A, L, MPAC, PUSHLIST
026313,000057: 
026314,000058: 32,2776                                           BANK     32                                    
026315,000059: 35,2000                                           SETLOC   P30S                                  
026316,000060: 35,2000                                           BANK                                           
026317,000061: 35,2000  E4,1652                                  EBANK=   +MGA                                  
026318,000062: 35,2000                                           COUNT*   $$/P30                                
026319,000063: 35,2000           05504        P30                TC       UPFLAG                                #  SET UPDATE FLAG
026320,000064: 35,2001           00027                           ADRES    UPDATFLG                              
026321,000065: 35,2002           05504                           TC       UPFLAG                                #  SET TRACK FLAG
026322,000066: 35,2003           00031                           ADRES    TRACKFLG                              
026323,000067: 
026324,000068: 35,2004           32025        P30N33             CAF      V06N33                                #  T OF IGN
026325,000069: 35,2005           03712                           TC       VNP00H                                #  RETURN ON PROCEED, P00H ON TERMINATE
026326,000070: 
026327,000071: 35,2006           33727                           CAF      V06N81                                #  DISPLAY DELTA V (LV)
026328,000072: 35,2007           03712                           TC       VNP00H                                #        REDISPLAY ON RECYCLE
026329,000073: 
026330,000074: 35,2010           05516                           TC       DOWNFLAG                              #  RESET UPDATE FLAG
026331,000075: 35,2011           00027                           ADRES    UPDATFLG                              
026332,000076: 35,2012           06037                           TC       INTPRET                               
026333,000077: 35,2013           77624                           CALL                                           
026334,000078: 35,2014           70000                                    S30.1                                 
026335,000079: 35,2015           77414                           SET      EXIT                                  
026336,000080: 35,2016           00470                                    UPDATFLG                              
026337,000081: 35,2017           32026        PARAM30            CAF      V06N42                                #  DISPLAY APOGEE,PERIGEE,DELTA V
026338,000082: 35,2020           03712                           TC       VNP00H                                

Page 615

026340,000084: 
026341,000085: 35,2021           06037                           TC       INTPRET                               
026342,000086: 35,2022           77614                           SETGO                                          
026343,000087: 35,2023           01027                                    XDELVFLG                              #  FOR P40'S: EXTERNAL DELTA-V GUIDANCE.
026344,000088: 35,2024           72540                                    REVN1645                              #  TRKMKCNT, T60, +MGA  DISPLAY
026345,000089: 
026346,000090: 35,2025           01441        V06N33             VN       0633                                  
026347,000091: 35,2026           01452        V06N42             VN       0642                                  
026348,000092: 

Page 616

026350,000094:                                                                                                  #  PROGRAM DESCRPTION S30.1      DATE 9NOV66
026351,000095:                                                                                                  #  MOD NO 1                      LOG SECTION P30,P37
026352,000096:                                                                                                  #  MOD BY RAMA AIYAWAR **
026353,000097: 
026354,000098:                                                                                                  #  FUNCTIONAL DESCRIPTION
026355,000099:                                                                                                  #        BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
026356,000100:                                                                                                  #        IGNITION (VTIG), TIME OF IGNITION (TIG)), COMPUTE PERIGEE ALTITUDE
026357,000101:                                                                                                  #        APOGEE ALTITUDE AND DELTAV REQUIRED (DELVSIN).
026358,000102: 
026359,000103:                                                                                                  #  CALLING SEQUENCE
026360,000104:                                                                                                  #        L       CALL
026361,000105:                                                                                                  #        L+1             s30.1
026362,000106: 
026363,000107:                                                                                                  #  NORMAL EXIT MODE
026364,000108:                                                                                                  #        AT L+2 OR CALLING SEQUENCE (GOTO L+2)
026365,000109: 
026366,000110:                                                                                                  #  SUBROUTINES CALLED
026367,000111:                                                                                                  #        LEMPREC
026368,000112:                                                                                                  #        PERIAPO
026369,000113: 
026370,000114:                                                                                                  #  ALARM OR ABORT EXIT MODES
026371,000115:                                                                                                  #        NONE
026372,000116: 
026373,000117:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
026374,000118:                                                                                                  #        TIG             TIME OF IGNITION        DP B28CS
026375,000119:                                                                                                  #        DELVSLV         SPECIFIED DELTA-V IN LOCAL VERT.
026376,000120:                                                                                                  #                        COORDS. OF ACTIVE VEHICLE AT
026377,000121:                                                                                                  #                        TIME OF IGNITION        VECTOR B+7 METERS/CS
026378,000122: 
026379,000123:                                                                                                  #  OUTPUT
026380,000124:                                                                                                  #        RTIG            POSITION AT TIG         VECTOR B+29 METERS
026381,000125:                                                                                                  #        VTIG            VELOCITY AT TIG         VECTOR B+29 METERS/CS
026382,000126:                                                                                                  #        PDL 4D          APOGEE ALTITUDE         DP B+29 M, B+27 METERS.
026383,000127:                                                                                                  #        HAPO            APOGEE ALTITUDE         DP B+29 METERS
026384,000128:                                                                                                  #        PDL 8D          PERIGEE ALTITUDE        DP B+29 M, B+27 METERS.
026385,000129:                                                                                                  #        HPER            PERIGEE ALTITUDE        DP B+29 METERS
026386,000130:                                                                                                  #        DELVSIN         SPECIFIED DELTA-V IN INTERTIAL
026387,000131:                                                                                                  #                        COORD. OF ACTIVE VEHICLE AT
026388,000132:                                                                                                  #                        TIME OF IGNITION        VECTOR B+7 METERS/CS
026389,000133:                                                                                                  #        DELVSAB         MAG. OF DELVSIN         VECTOR B+7 METERS/CS
026390,000134: 
026391,000135:                                                                                                  #  DEBRIS        QTEMP   TEMP.ERASABLE
026392,000136:                                                                                                  #                QPRET, MPAC
026393,000137:                                                                                                  #                PUSHLIST
026394,000138: 
026395,000139: 34,2000                                           SETLOC   P30S1                                 
026396,000140: 34,2000                                           BANK                                           
026397,000141: 
026398,000142: 34,2000                                           COUNT*   $$/S30S                               
026399,000143: 
026400,000144: 34,2000           71220        S30.1              STQ      DLOAD                                 
026401,000145: 34,2001           03632                                    QTEMP                                 
026402,000146: 34,2002           03442                                    TIG                                   #  TIME IGNITION SCALED AT 2(+28)CS
026403,000147: 34,2003           34041                           STCALL   TDEC1                                 
026404,000148: 34,2004           27057                                    LEMPREC                               #  ENCKE ROUTINE FOR LEM
026405,000149: 
026406,000150: 34,2005           67175                           VLOAD    SXA,2                                 

Page 617

026408,000152: 34,2006           00001                                    RATT                                  
026409,000153: 34,2007           02777                                    RTX2                                  
026410,000154: 34,2010           03642                           STORE    RTIG                                  #  RADIUS VECTOR AT IGNITION TIME
026411,000155: 34,2011           57456                           UNIT     VCOMP                                 
026412,000156: 34,2012           27656                           STOVL    DELVSIN                               #  ZRF/LV IN DELVSIN SCALED AT 2
026413,000157: 34,2013           00007                                    VATT                                  #  VELOCITY VECTOR AT TIG, SCALED 2(7) M/CS
026414,000158: 34,2014           03650                           STORE    VTIG                                  
026415,000159: 34,2015           53435                           VXV      UNIT                                  
026416,000160: 34,2016           03642                                    RTIG                                  
026417,000161: 34,2017           66001                           SETPD    SXA,1                                 
026418,000162: 34,2020           00001                                    0                                     
026419,000163: 34,2021           02776                                    RTX1                                  
026420,000164: 34,2022           47206                           PUSH     VXV                                   #  YRF/LV PDL 0 SCALED AT 2
026421,000165: 34,2023           03656                                    DELVSIN                               
026422,000166: 34,2024           63372                           VSL1     PDVL                                  
026423,000167: 34,2025           63315                           PDVL     PDVL                                  #  YRF/LV PDL 6 SCALED AT 2
026424,000168: 34,2026           03656                                    DELVSIN                               #  ZRF/LV PDL 12D SCALED AT 2
026425,000169: 34,2027           03434                                    DELVSLV                               
026426,000170: 34,2030           76505                           VXM      VSL1                                  
026427,000171: 34,2031           00001                                    0                                     
026428,000172: 34,2032           03656                           STORE    DELVSIN                               #  DELTAV IN INERT. COOR. SCALED TO B+7M/CS
026429,000173: 34,2033           77646                           ABVAL                                          
026430,000174: 34,2034           27664                           STOVL    DELVSAB                               #  DELTA V MAG.
026431,000175: 34,2035           03642                                    RTIG                                  #  (FOR PERIAPO)
026432,000176: 34,2036           53315                           PDVL     VAD                                   #  VREQUIRED = VTIG + DELVSIN (FOR PERIAPO)
026433,000177: 34,2037           03650                                    VTIG                                  
026434,000178: 34,2040           03656                                    DELVSIN                               
026435,000179: 34,2041           77624                           CALL                                           
026436,000180: 34,2042           46316                                    PERIAPO1                              
026437,000181: 34,2043           77624                           CALL                                           
026438,000182: 34,2044           46426                                    SHIFTR1                               #  RESCALE IF NEEDED
026439,000183: 34,2045           77624                           CALL                                           #  LIMIT DISPLAY TO 9999.9 N. MI.
026440,000184: 34,2046           45636                                    MAXCHK                                
026441,000185: 34,2047           16321                           STODL    HPER                                  #  PERIGEE ALT 2(29) METERS FOR DISPLAY
026442,000186: 34,2050           00005                                    4D                                    
026443,000187: 34,2051           77624                           CALL                                           
026444,000188: 34,2052           46426                                    SHIFTR1                               #  RESCALE IF NEEDED
026445,000189: 34,2053           77624                           CALL                                           #  LIMIT DISPLAY TO 9999.9 N. MI.
026446,000190: 34,2054           45636                                    MAXCHK                                
026447,000191: 34,2055           36317                           STCALL   HAPO                                  #  APOGEE ALT 2(29) METERS FOR DISPLAY
026448,000192: 34,2056           03632                                    QTEMP                                 
026449,000193: 
026450,000194: 

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