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.

013682,000002:                                                                                                  ## Copyright:   Public domain.
013683,000003:                                                                                                  ## Filename:    R63.agc
013684,000004:                                                                                                  ## Purpose:     A section of Luminary revision 98.
013685,000005:                                                                                                  ##              It is part of the reconstructed source code for the a
013686,000006:                                                                                                  ##              development version of the flight software for the Lunar 
013687,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
013688,000008:                                                                                                  ##              The code has been recreated from a copy of Luminary 99
013689,000009:                                                                                                  ##              revision 001, using asterisks indicating changed lines in
013690,000010:                                                                                                  ##              the listing and Luminary Memo #85, which lists changes between
013691,000011:                                                                                                  ##              Luminary 98 and 99.
013692,000012:                                                                                                  ## Reference:   pp. 338-341
013693,000013:                                                                                                  ## Assembler:   yaYUL
013694,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
013695,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
013696,000016:                                                                                                  ## Mod history: 2019-07-28 MAS  Created from Luminary 99.
013697,000017: 

Page 338

013699,000019:                                                                                                  #  SUBROUTINE NAME:      V89CALL
013700,000020:                                                                                                  #  MOD NO:       0                       DATE:           9 JAN 1968
013701,000021:                                                                                                  #  MOD BY:       DIGITAL DEVEL GROUP     LOG SECTION:    R63
013702,000022: 
013703,000023:                                                                                                  #  FUNCTIONAL DESCRIPTION:
013704,000024: 
013705,000025:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 USED.  CALCULATES AND
013706,000026:                                                                                                  #  DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
013707,000027: 
013708,000028:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
013709,000029:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
013710,000030: 
013711,000031:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH).  IF IMU ON AND ITS
013712,000032:                                                                                                  #  ORIENTATION KNOWN TO LGC, CONTINUE.
013713,000033: 
013714,000034:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
013715,000035:                                                                                                  #  BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
013716,000036:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT =1) BY V 22 E 2 E.  CONTINUE
013717,000037:                                                                                                  #  AFTER KEYING IN PROCEED.
013718,000038: 
013719,000039:                                                                                                  #  4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
013720,000040: 
013721,000041:                                                                                                  #  5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
013722,000042:                                                                                                  #  HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
013723,000043:                                                                                                  #  PREPARED FOR VECPOINT.
013724,000044: 
013725,000045:                                                                                                  #  6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
013726,000046:                                                                                                  #  BALLANGS.  FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
013727,000047: 
013728,000048:                                                                                                  #  7.    RECYCLE - RETURN TO STEP 4.
013729,000049:                                                                                                  #        TERMINATE - EXIT R63.
013730,000050:                                                                                                  #        PROCEED - RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
013731,000051: 
013732,000052:                                                                                                  #  CALLING SEQUENCE:     V 89 E.
013733,000053: 
013734,000054:                                                                                                  #  SUBROUTINES CALLED:   CHKPOOH, R02BOTH, GOXDSPF, CSMCONIC, LEMCONIC,
013735,000055:                                                                                                  #                        VECPOINT, BALLANGS, R60LEM.
013736,000056: 
013737,000057:                                                                                                  #  NORMAL EXIT MODES:    TC ENDEXT
013738,000058: 
013739,000059:                                                                                                  #  ALARMS:       1. OPERATOR ERROR IF NOT IN P00.
013740,000060:                                                                                                  #                2. PROGRAM ALARM IF IMU IS OFF.
013741,000061:                                                                                                  #                3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN.
013742,000062: 
013743,000063:                                                                                                  #  OUTPUT:       NONE
013744,000064: 
013745,000065:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:  NONE
013746,000066: 
013747,000067:                                                                                                  #  DEBRIS:       OPTION1, +1, TDEC1, POINTVSM, SCAXIS, CPHI, CTHETA, CPSI,

Page 339

013749,000069:                                                                                                  #                3AXISFLG.
013750,000070: 
013751,000071: 06,3715  E4,1606                                  EBANK=   RONE                                  
013752,000072: 32,2217                                           BANK     32                                    
013753,000073: 26,2000                                           SETLOC   BAWLANGS                              
013754,000074: 26,2000                                           BANK                                           
013755,000075: 
013756,000076: 26,2022                                           COUNT*   $$/R63                                
013757,000077: 26,2022           04616        V89CALL            TC       BANKCALL                              #  IMU STATUS CHECK.  RETURNS IF ORIENTATION
013758,000078: 26,2023           11254                           CADR     R02BOTH                               #  KNOWN.  ALARMS IF NOT.
013759,000079: 26,2024           36245                           CAF      THREE                                 #  ALLOW ASTRONAUT TO SELECT DESIRED
013760,000080: 26,2025           55051                           TS       OPTIONX                               #  TRACKING ATTITUDE AXIS.
013761,000081: 26,2026           34753                           CAF      ONE                                   
013762,000082: 26,2027           55052                           TS       OPTIONX    +1                         
013763,000083: 26,2030           32117                           CAF      VB04N12                               #  V 04 N 12
013764,000084: 26,2031           04616                           TC       BANKCALL                              
013765,000085: 26,2032           20476                           CADR     GOFLASH                               
013766,000086: 26,2033           05472                           TC       ENDEXT                                #  TERMINATE
013767,000087: 26,2034           02036                           TC       +2                                    #  PROCEED
013768,000088: 26,2035           02030                           TC       -5                                    #  DATA IN. OPTION1+1 = 1 FOR Z AXIS
013769,000089: 26,2036           06037        V89RECL            TC       INTPRET                               #                    = 2 FOR X AXIS
013770,000090: 26,2037           43234                           RTB      DAD                                   
013771,000091: 26,2040           21573                                    LOADTIME                              #  READ PRESENT TIME
013772,000092: 26,2041           14122                                    DP1MIN                                
013773,000093: 26,2042           02205                           STORE    TSTART82                              #  SAVE TIME FOR LEMCONIC CALL
013774,000094: 26,2043           34041                           STCALL   TDEC1                                 #  STORE TIME FOR CSMCONIC CALL
013775,000095: 26,2044           27066                                    CSMCONIC                              #  CSM STATE VECTOR UPDATE
013776,000096: 26,2045           77775                           VLOAD                                          #  CSMCONIC LEFT R VECTOR IN RATT
013777,000097: 26,2046           00001                                    RATT                                  
013778,000098: 26,2047           16207                           STODL    RONE                                  #  SAVE FOR LINE OF SIGHT (LOS) COMPUTATION
013779,000099: 26,2050           02205                                    TSTART82                              
013780,000100: 26,2051           34041                           STCALL   TDEC1                                 #  STORE TIME FOR LEMCONIC CALL
013781,000101: 26,2052           27100                                    LEMCONIC                              #  LEM STATE VECTOR UPDATE
013782,000102: 26,2053           52375                           VLOAD    VSU                                   #  CSM POSITION - LEM POSITION = LOS
013783,000103: 26,2054           02207                                    RONE                                  #  LOS VECTOR LEFT IN MPAC
013784,000104: 26,2055           00001                                    RATT                                  
013785,000105: 26,2056           47121                           MXV      RTB                                   #  (REFSMMAT X LOS).  TRANSFORMS LOS FROM
013786,000106: 26,2057           01734                                    REFSMMAT                              #  REFERENCE COORD TO STAB MEMB COORD.
013787,000107: 26,2060           21726                                    NORMUNIT                              
013788,000108: 26,2061           03773                           STORE    POINTVSM                              #  STORE LOS FOR VECPOINT CALL
013789,000109: 26,2062           77776                           EXIT                                           
013790,000110: 26,2063           41052                           CS       OPTIONX    +1                         #  1 FOR Z AXIS.  2 FOR X AXIS.
013791,000111: 26,2064           64753                           AD       ONE                                   
013792,000112: 26,2065           00006                           EXTEND                                         
013793,000113: 26,2066           12113                           BZF      ALINEZ                                
013794,000114: 26,2067           06037        ALINEX             TC       INTPRET                               #  X AXIS ALIGNMENT
013795,000115: 26,2070           77775                           VLOAD                                          
013796,000116: 26,2071           06520                                    UNITX                                 #  READ (.5, 0, 0)

Page 340

013798,000118: 26,2072           37765        V89CALL1           STCALL   SCAXIS                                #  STORE SELECTED ALIGNMENT AXIS
013799,000119: 26,2073           56040                                    VECPOINT                              #  PUTS DESIRED GIM ANG (OG,IG,MG) IN TMPAC
013800,000120: 26,2074           00322                           STORE    CPHI                                  #  STORE GIMBAL ANGLES FOR BALLANGS CALL.
013801,000121: 26,2075           77776                           EXIT                                           
013802,000122: 26,2076           04616                           TC       BANKCALL                              
013803,000123: 26,2077           54266                           CADR     BALLANGS                              #  PUTS DESIRED BALL ANGLES IN FDAIX,Y,Z
013804,000124: 26,2100           32120                           CAF      VB06N18                               #  V 06 N 18
013805,000125: 26,2101           04616                           TC       BANKCALL                              #  NOUN 18 REFERS TO FDAIX,Y,Z
013806,000126: 26,2102           20476                           CADR     GOFLASH                               
013807,000127: 26,2103           05472                           TC       ENDEXT                                #  TERMINATE
013808,000128: 26,2104           02106                           TC       +2                                    #  PROCEED
013809,000129: 26,2105           02036                           TC       V89RECL                               #  RECYCLE
013810,000130: 26,2106           05516                           TC       DOWNFLAG                              #  RESET 3 AXIS FLAG
013811,000131: 26,2107           00124                           ADRES    3AXISFLG                              #  RESET BIT6 FLAG WORD 5
013812,000132: 26,2110           04616                           TC       BANKCALL                              #  PERFORMS LEM MANEUVER TO ALIGN SELECTED
013813,000133: 26,2111           54123                           CADR     R60LEM                                #  SPACECRAFT AXIS TO CSM.
013814,000134: 26,2112           15472                           TCF      ENDEXT                                #  TERMINATE R63
013815,000135: 
013816,000136: 26,2113           06037        ALINEZ             TC       INTPRET                               #  Z AXIS ALIGNMENT
013817,000137: 26,2114           52175                           VLOAD    GOTO                                  
013818,000138: 26,2115           06514                                    UNITZ                                 #  READ (0, 0, .5)
013819,000139: 26,2116           54072                                    V89CALL1                              
013820,000140: 
013821,000141: 26,2117           01014        VB04N12            VN       412                                   
013822,000142: 26,2120           01422        VB06N18            VN       0618                                  

Page 341

013824,000144: 26,2121           00000 13560  DP1MIN             2DEC     6000       B-28                       
013825,000145: 

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