Source Code

These source-code files are part of a reconstructed copy of Luminary 98, a development version of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with source code of Luminary 99 revision 1 previously transcribed from a digitized copy of that program. The code was then updated by undoing changes described in original Luminary memo 85, using asterisks indicating changed lines in the listing as a guide. While no listing of this version is known to exist, nor are the memory-bank checksums available, the reconstruction is believed to be correct because it was an an intermediate step in reconstructing Luminary 97 whose reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152G. Note that page numbers in the reconstructed code match those on the Luminary 099 revision 001 printout, although the added code would likely have changed page numbers for a real Luminary 98 listing.

Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository.

020369,000002:                                                                                                  ## Copyright:   Public domain.
020370,000003:                                                                                                  ## Filename:    S-BAND_ANTENNA_FOR_LM.agc
020371,000004:                                                                                                  ## Purpose:     A section of Luminary revision 98.
020372,000005:                                                                                                  ##              It is part of the reconstructed source code for the a
020373,000006:                                                                                                  ##              development version of the flight software for the Lunar 
020374,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
020375,000008:                                                                                                  ##              The code has been recreated from a copy of Luminary 99
020376,000009:                                                                                                  ##              revision 001, using asterisks indicating changed lines in
020377,000010:                                                                                                  ##              the listing and Luminary Memo #85, which lists changes between
020378,000011:                                                                                                  ##              Luminary 98 and 99.
020379,000012:                                                                                                  ## Reference:   pp. 486-489
020380,000013:                                                                                                  ## Assembler:   yaYUL
020381,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
020382,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
020383,000016:                                                                                                  ## Mod history: 2019-07-28 MAS  Created from Luminary 99.
020384,000017: 

Page 486

020386,000019:                                                                                                  #  SUBROUTINE NAME: R05 - S-BAND ANTENNA FOR LM
020387,000020: 
020388,000021:                                                                                                  #  MOD0 BY T. JAMES
020389,000022:                                                                                                  #  MOD1 BY P. SHAKIR
020390,000023: 
020391,000024:                                                                                                  #  FUNCTIONAL DESCRIPTION
020392,000025: 
020393,000026:                                                                                                  #  THE S-BAND ANTENNA ROUTINE, R05, COMPUTES AND DISPLAYS THE PITCH AND
020394,000027:                                                                                                  #  YAW ANTENNA GIMBAL ANGLES REQUIRED TO POINT THE LM STEERABLE ANTENNA
020395,000028:                                                                                                  #  TOWARD THE CENTER OF THE EARTH.  THIS ROUTINE IS SELECTED BY THE ASTRO-
020396,000029:                                                                                                  #  NAUT VIA DSKY ENTRY DURING COASTING FLIGHT OR WHEN THE LM IS ON THE MOON
020397,000030:                                                                                                  #  SURFACE.  THE EARTH OR MOON REFERENCE COORDINATE SYSTEM IS USED DEPENDING
020398,000031:                                                                                                  #  ON WHETHER THE LM IS ABOUT TO ENTER OR HAS ALREADY ENTERED THE MOON
020399,000032:                                                                                                  #  SPHERE OF INFLUENCE, RESPECTIVELY
020400,000033: 
020401,000034:                                                                                                  #  TO CALL SUBROUTINE, ASTRONAUT KEYS IN V 64 E
020402,000035: 
020403,000036:                                                                                                  #  SUBROUTINES CALLED -
020404,000037:                                                                                                  #        R02BOTH
020405,000038:                                                                                                  #        INTPRET
020406,000039:                                                                                                  #        LOADTIME
020407,000040:                                                                                                  #        LEMCONIC
020408,000041:                                                                                                  #        LUNPOS
020409,000042:                                                                                                  #        CDUTRIG
020410,000043:                                                                                                  #        *SMNB*
020411,000044:                                                                                                  #        BANKCALL
020412,000045:                                                                                                  #        B5OFF
020413,000046:                                                                                                  #        ENDOFJOB
020414,000047:                                                                                                  #        BLANKET
020415,000048: 
020416,000049:                                                                                                  #  RETURNS WITH
020417,000050:                                                                                                  #        PITCH ANGLE IN PITCHANG         REV. B0
020418,000051:                                                                                                  #        YAW ANGLE IN YAWANG             REV. B0
020419,000052: 
020420,000053:                                                                                                  #  ERASABLES USED
020421,000054:                                                                                                  #        PITCHANG
020422,000055:                                                                                                  #        YAWANG
020423,000056:                                                                                                  #        RLM
020424,000057:                                                                                                  #        VAC AREA
020425,000058: 
020426,000059: 41,3731                                           BANK     41                                    
020427,000060: 42,2000                                           SETLOC   SBAND                                 
020428,000061: 42,2000                                           BANK                                           
020429,000062: 
020430,000063: 42,3606  E7,1471                                  EBANK=   WHOCARES                              
020431,000064: 42,3606                                           COUNT*   $$/R05                                
020432,000065: 42,3606           04616        SBANDANT           TC       BANKCALL                              

Page 487

020434,000067: 42,3607           11254                           CADR     R02BOTH                               #  CHECK IF IMU IS ON AND ALIGNED
020435,000068: 42,3610           06037                           TC       INTPRET                               
020436,000069: 42,3611           47001                           SETPD    RTB                                   
020437,000070: 42,3612           00001                                    0D                                    
020438,000071: 42,3613           21573                                    LOADTIME                              #  PICK UP CURRENT TIME
020439,000072: 42,3614           34041                           STCALL   TDEC1                                 #  ADVANCE INTEGRATION TO TIME IN TDEC1
020440,000073: 42,3615           27100                                    LEMCONIC                              #  USING CONIC INTEGRATION
020441,000074: 42,3616           46135                           SLOAD    BHIZ                                  
020442,000075: 42,3617           00050                                    X2                                    #  X2 =0 EARTH SPHERE, X2 =2 MOON SPHERE
020443,000076: 42,3620           65636                                    CONV4                                 
020444,000077: 42,3621           77775                           VLOAD                                          
020445,000078: 42,3622           00001                                    RATT                                  
020446,000079: 42,3623           16205                           STODL    RLM                                   
020447,000080: 42,3624           00015                                    TAT                                   
020448,000081: 42,3625           77624        CONV3              CALL                                           
020449,000082: 42,3626           33664                                    LUNPOS                                #  UNIT POSITION VECTOR FROM EARTH TO MOON
020450,000083: 42,3627           74375                           VLOAD    VXSC                                  
020451,000084: 42,3630           02723                                    VMOON                                 
020452,000085: 42,3631           24001                                    REMDIST                               #  MEAN DISTANCE FROM EARTH TO MOON
020453,000086: 42,3632           53372                           VSL1     VAD                                   
020454,000087: 42,3633           02205                                    RLM                                   
020455,000088: 42,3634           77650                           GOTO                                           
020456,000089: 42,3635           65640                                    CONV5                                 
020457,000090: 42,3636           77775        CONV4              VLOAD                                          
020458,000091: 42,3637           00001                                    RATT                                  #  UE = -UNIT(RATT)              EARTH SPHERE
020459,000092: 42,3640           53401        CONV5              SETPD    UNIT                                  #  UE = -UNIT((REM)(UEM) + RL)   MOON SPHERE
020460,000093: 42,3641           00001                                    0D                                    #  SET PL POINTER TO 0
020461,000094: 42,3642           45076                           VCOMP    CALL                                  
020462,000095: 42,3643           47537                                    CDUTRIG                               #  COMPUTE SINES AND COSINES OF CDU ANGLES
020463,000096: 42,3644           76521                           MXV      VSL1                                  #  TRANSFORM REF. COORDINATE SYSTEM TO
020464,000097: 42,3645           01734                                    REFSMMAT                              #  STABLE MEMBER B-1 X B-1 X B+1 = B-1
020465,000098: 42,3646           71206                           PUSH     DLOAD                                 #  8D
020466,000099: 42,3647           06522                                    HI6ZEROS                              
020467,000100: 42,3650           02201                           STORE    PITCHANG                              
020468,000101: 42,3651           26203                           STOVL    YAWANG                                #  ZERO OUT ANGLES
020469,000102: 42,3652           77624                           CALL                                           
020470,000103: 42,3653           47671                                    *SMNB*                                
020471,000104: 42,3654           16205                           STODL    RLM                                   #  PRE-MULTIPLY RLM BY (NBSA) MATRIX(B0)
020472,000105: 42,3655           02207                                    RLM        +2                         
020473,000106: 42,3656           45206                           PUSH     DSU                                   
020474,000107: 42,3657           02205                                    RLM                                   
020475,000108: 42,3660           77605                           DMP                                            
020476,000109: 42,3661           25771                                    1OVSQRT2                              
020477,000110: 42,3662           16207                           STODL    RLM        +2                         
020478,000111: 42,3663           41215                           DAD      DMP                                   
020479,000112: 42,3664           02205                                    RLM                                   
020480,000113: 42,3665           25771                                    1OVSQRT2                              
020481,000114: 42,3666           26205                           STOVL    RLM                                   #  R B-1
020482,000115: 42,3667           02205                                    RLM                                   
020483,000116: 42,3670           63256                           UNIT     PDVL                                  

Page 488

020485,000118: 42,3671           02205                                    RLM                                   
020486,000119: 42,3672           72431                           VPROJ    VSL2                                  #  PROJECTION OF R ONTO LM XZ PLANE
020487,000120: 42,3673           06516                                    HIUNITY                               
020488,000121: 42,3674           40045                           BVSU     BOV                                   #  CLEAR OVERFLOW INDICATOR IF ON
020489,000122: 42,3675           02205                                    RLM                                   
020490,000123: 42,3676           65677                                    COVCNV                                
020491,000124: 42,3677           40056        COVCNV             UNIT     BOV                                   #  EXIT ON OVERFLOW
020492,000125: 42,3700           65745                                    SBANDEX                               
020493,000126: 42,3701           47206                           PUSH     VXV                                   #  URP VECTOR B-1
020494,000127: 42,3702           06514                                    HIUNITZ                               
020495,000128: 42,3703           57572                           VSL1     VCOMP                                 #  UZ X URP = -(URP X UZ)
020496,000129: 42,3704           02205                           STORE    RLM                                   #  X VEC B-1
020497,000130: 42,3705           63241                           DOT      PDVL                                  #  SGN(X.UY) UNSCALED
020498,000131: 42,3706           06516                                    HIUNITY                               
020499,000132: 42,3707           02205                                    RLM                                   
020500,000133: 42,3710           75246                           ABVAL    SIGN                                  
020501,000134: 42,3711           77736                           ASIN                                           #  ASIN((SGN(X.UY))ABV(X))       REV B0
020502,000135: 42,3712           26201                           STOVL    PITCHANG                              
020503,000136: 42,3713           00007                                    URP                                   
020504,000137: 42,3714           51041                           DOT      BPL                                   
020505,000138: 42,3715           06514                                    HIUNITZ                               
020506,000139: 42,3716           65723                                    NOADJUST                              #  YES, -90 TO +90
020507,000140: 42,3717           45345                           DLOAD    DSU                                   
020508,000141: 42,3720           06520                                    HIDPHALF                              
020509,000142: 42,3721           02201                                    PITCHANG                              
020510,000143: 42,3722           02201                           STORE    PITCHANG                              
020511,000144: 42,3723           47375        NOADJUST           VLOAD    VXV                                   
020512,000145: 42,3724           00001                                    UR                                    #  Z = (UR X URP)
020513,000146: 42,3725           00007                                    URP                                   
020514,000147: 42,3726           77772                           VSL1                                           
020515,000148: 42,3727           16205                           STODL    RLM                                   #  Z VEC B-1
020516,000149: 42,3730           02201                                    PITCHANG                              
020517,000150: 42,3731           74356                           SIN      VXSC                                  
020518,000151: 42,3732           06514                                    HIUNITZ                               
020519,000152: 42,3733           71525                           PDDL     COS                                   
020520,000153: 42,3734           02201                                    PITCHANG                              
020521,000154: 42,3735           52361                           VXSC     VSU                                   
020522,000155: 42,3736           06520                                    HIUNITX                               #  (UX COS ALPHA) - (UZ SIN ALPHA)
020523,000156: 42,3737           63241                           DOT      PDVL                                  #  YAW.Z
020524,000157: 42,3740           02205                                    RLM                                   
020525,000158: 42,3741           02205                                    RLM                                   
020526,000159: 42,3742           75246                           ABVAL    SIGN                                  
020527,000160: 42,3743           77736                           ASIN                                           
020528,000161: 42,3744           02203                           STORE    YAWANG                                
020529,000162: 42,3745           77776        SBANDEX            EXIT                                           
020530,000163: 42,3746           31044                           CA       EXTVBACT                              
020531,000164: 42,3747           74747                           MASK     BIT5                                  #  IS BIT5 STILL ON
020532,000165: 42,3750           00006                           EXTEND                                         
020533,000166: 42,3751           15472                           BZF      ENDEXT                                #  NO
020534,000167: 42,3752           35017                           CAF      PRIO5                                 

Page 489

020536,000169: 42,3753           05146                           TC       PRIOCHNG                              
020537,000170: 42,3754           33767                           CAF      V06N51                                #  DISPLAY ANGLES
020538,000171: 42,3755           04616                           TC       BANKCALL                              
020539,000172: 42,3756           20353                           CADR     GOMARKFR                              
020540,000173: 42,3757           05563                           TC       B5OFF                                 #  TERMINATE
020541,000174: 42,3760           05563                           TC       B5OFF                                 #  PROCEED
020542,000175: 42,3761           05155                           TC       ENDOFJOB                              #  RECYCLE
020543,000176: 42,3762           34751                           CAF      BIT3                                  #  IMMEDIATE RETURN
020544,000177: 42,3763           05464                           TC       BLANKET                               #  BLANK R3
020545,000178: 42,3764           34740                           CAF      PRIO4                                 
020546,000179: 42,3765           05146                           TC       PRIOCHNG                              
020547,000180: 42,3766           03610                           TC       SBANDANT   +2                         #  YES, CONTINUE DISPLAYING ANGLES
020548,000181: 42,3767           01463        V06N51             VN       0651                                  
020549,000182: 42,3770           26501 07463  1OVSQRT2           2DEC     .7071067815                            #  1/SQRT(2)
020550,000183: 
020551,000184: 42,3772                        UR                 EQUALS   0D                                    
020552,000185: 42,3772                        URP                EQUALS   6D                                    
020553,000186: 42,3772  30,2000                                  SBANK=   LOWSUPER                              
020554,000187: 

End of include-file S-BAND_ANTENNA_FOR_LM.agc.  Parent file is MAIN.agc