Source Code

These source-code files are part of a reconstructed copy of Luminary 163, the first (unflown) release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer (AGC) software.

The reconstruction began with reconstructed source code for Luminary 173. Changes between revision 163 and 173 were backed out, as described by Luminary memos 157 and 158. The reconstruction was verified by matching memory-bank checksums to those listed in drawing 2021152N. Note that page numbers in the reconstructed code match those for the baseline log section mentioned in each file's changelog; the page numbers for a real Luminary 163 listing would be different.

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.

059491,000002:                                                                                                  ## Copyright:   Public domain.
059492,000003:                                                                                                  ## Filename:    T6-RUPT_PROGRAMS.agc
059493,000004:                                                                                                  ## Purpose:     A section of Luminary revision 163.
059494,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
059495,000006:                                                                                                  ##              (unflown) release of the flight software for the Lunar
059496,000007:                                                                                                  ##              Module's (LM) Apollo Guidance Computer (AGC) for Apollo 14.
059497,000008:                                                                                                  ##              The code has been recreated from a reconstructed copy of
059498,000009:                                                                                                  ##              Luminary 173, as well as Luminary memos 157 amd 158.
059499,000010:                                                                                                  ##              It has been adapted such that the resulting bugger words
059500,000011:                                                                                                  ##              exactly match those specified for Luminary 163 in NASA
059501,000012:                                                                                                  ##              drawing 2021152N, which gives relatively high confidence
059502,000013:                                                                                                  ##              that the reconstruction is correct.
059503,000014:                                                                                                  ## Reference:   pp. 1391-1393
059504,000015:                                                                                                  ## Assembler:   yaYUL
059505,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
059506,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
059507,000018:                                                                                                  ## Mod history: 2019-08-21 MAS  Created from Luminary 173.
059508,000019: 

Page 1391

059510,000021:                                                                                                  #  PROGRAM NAMES:  (1) T6JOBCHK      MOD. NO. 5    OCTOBER 2, 1967
059511,000022:                                                                                                  #                 (2) DOT6RUPT
059512,000023: 
059513,000024:                                                                                                  #  MODIFICATION BY: LOWELL G HULL (A.C.ELECTRONICS)
059514,000025:                                                                                                  #  THESE PROGRAMS ENABLE THE LM DAP TO CONTROL THE THRUST TIMES OF THE REACTION CONTROL SYSTEM JETS BY USING TIME6.
059515,000026:                                                                                                  #  SINCE THE LM DAP MAINTAINS EXCLUSIVE CONTROL OVER TIME6 AND ITS INTERRUPTS, THE FOLLOWING CONVENTIONS HAVE BEEN
059516,000027:                                                                                                  #  ESTABLISHED AND MUST NOT BE TAMPERED WITH:
059517,000028:                                                                                                  #           1. NO NUMBER IS EVER PLACED INTO TIME6 EXCEPT BY LM DAP.
059518,000029:                                                                                                  #           2. NO PROGRAM OTHER THAN LM DAP ENABLES THE TIME6 COUNTER.
059519,000030:                                                                                                  #           3. TO USE TIME6, THE FOLLOWING SEQUENCE IS ALWAYS EMPLOYED:
059520,000031:                                                                                                  #                  A. A POSITIVE (NON-ZERO) NUMBER IS STORED IN TIME6.
059521,000032:                                                                                                  #                  B. THE TIME6 CLOCK IS ENABLED.
059522,000033:                                                                                                  #                  C. TIME6 IS INTERROGATED AND IS:
059523,000034:                                                                                                  #                         I. NEVER FOUND NEGATIVE(NON-ZERO) OR +0.
059524,000035:                                                                                                  #                        II. SOMETIMES FOUND POSITIVE(BETWEEN 1 AND 240D) INDICATING THAT IT IS ACTIVE.
059525,000036:                                                                                                  #                       III. SOMETIMES FOUND POSMAX INDICATING THAT IT IS INACTIVE AND NOT ENABLED.
059526,000037:                                                                                                  #                        IV. SOMETIMES FOUND NEGATIVE ZERO INDICATING THAT:
059527,000038:                                                                                                  #                                A. A T6RUPT IS ABOUT TO OCCUR AT THE NEXT DINC, OR
059528,000039:                                                                                                  #                                B. A T6RUPT IS WAITING IN THE PRIORITY CHAIN, OR
059529,000040:                                                                                                  #                                C. A T6RUPT IS IN PROCESS NOW.
059530,000041:                                                                                                  #           4) ALL PROGRAMS WHICH OPERATE IN EITHER INTERRUPT MODE OR WITH INTERRUPT INHIBITED MUST CALL T6JOBCHK
059531,000042:                                                                                                  #              EVERY 5 MILLISECONDS TO PROCESS A POSSIBLE WAITING T6RUPT BEFORE IT CAN BE HONORED BY THE HARDWARE.
059532,000043: 
059533,000044:                                                                                                  #          (5. PROGRAM JTLST, IN Q,R-AXES, HANDLES THE INPUT LIST.)
059534,000045:                                                                                                  #  T6JOBCHK CALLING SEQUENCE:
059535,000046: 
059536,000047:                                                                                                  #                                          L        TC     T6JOBCHK
059537,000048:                                                                                                  #                                          L +1    (RETURN)
059538,000049: 
059539,000050:                                                                                                  #  DOT6RUPT CALLING SEQUENCE:
059540,000051: 
059541,000052:                                                                                                  #                                                   DXCH   ARUPT           T6RUPT LEAD IN AT LOCATION 4004.
059542,000053:                                                                                                  #                                                   EXTEND
059543,000054:                                                                                                  #                                                   DCA    T6ADR
059544,000055:                                                                                                  #                                                   DTCB
059545,000056: 
059546,000057:                                                                                                  #  SUBROUTINES CALLED: DOT6RUPT CALLS T6JOBCHK.
059547,000058: 
059548,000059:                                                                                                  #  NORMAL EXIT MODES: T6JOBCHK RETURNS TO L +1.
059549,000060:                                                                                                  #                     DOT6RUPT TRANSFERS CONTROL TO RESUME.
059550,000061: 
059551,000062:                                                                                                  #  ALARM/ABORT MODES: NONE.
059552,000063: 
059553,000064:                                                                                                  #  INPUT: TIME6    NXT6ADR      OUTPUT: TIME6     NXT6ADR     CHANNEL 5
059554,000065:                                                                                                  #         T6NEXT   T6NEXT +1            T6NEXT    T6NEXT +1   CHANNEL 6
059555,000066:                                                                                                  #         T6FURTHA T6FURTHA +1          T6FURTHA  T6FURTHA +1 BIT15/CH13
059556,000067:                                                                                                  #  DEBRIS: T6JOBCHK CLOBBERS A.  DOT6RUPT CLOBBERS NOTHING.
059557,000068: 
059558,000069: 
059559,000070:    5754                                           BLOCK    02                                    

Page 1392

059561,000072: 17,2055                                           BANK     17                                    
059562,000073: 17,2000                                           SETLOC   DAPS2                                 
059563,000074: 17,2000                                           BANK                                           
059564,000075: 17,2055  E6,1466                                  EBANK=   T6NEXT                                
059565,000076: 17,2055                                           COUNT*   $$/DAPT6                              
059566,000077: 
059567,000078: 17,2055           10031        T6JOBCHK           CCS      TIME6                                 #  CHECK TIME6 FOR WAITING T6RUPT:
059568,000079: 17,2056           00002                           TC       Q                                     #  NONE: CLOCK COUTING DOWN.
059569,000080: 17,2057           05706                           TC       CCSHOLE                               
059570,000081: 17,2060           05706                           TC       CCSHOLE                               
059571,000082:                                                                                                  #  CONTROL PASSES TO T6JOB ONLY WHEN C(TIME6) = -0 (I.E. WHEN A T6RUPT MUST BE PROCESSED).
059572,000083: 
059573,000084: 17,2061           34733        T6JOB              CA       POSMAX                                
059574,000085: 17,2062           22007                           ZL                                             
059575,000086: 17,2063           53471                           DXCH     T6FURTHA                              
059576,000087: 17,2064           53467                           DXCH     T6NEXT                                
059577,000088: 17,2065           23465                           LXCH     NXT6ADR                               
059578,000089: 17,2066           54031                           TS       TIME6                                 
059579,000090: 
059580,000091: 17,2067           67730                           AD       PRIO37                                
059581,000092: 17,2070           54000                           TS       A                                     
059582,000093: 17,2071           12075                           TCF      ENABLET6                              
059583,000094: 17,2072           34733                           CA       POSMAX                                
059584,000095: 17,2073           54031                           TS       TIME6                                 
059585,000096: 17,2074           12115                           TCF      GOCH56                                
059586,000097: 17,2075           00006        ENABLET6           EXTEND                                         
059587,000098: 17,2076           23265                           QXCH     C13QSAV                               
059588,000099: 17,2077           22070                           LXCH     RUPTREG1                              
059589,000100: 17,2100           06022                           TC       C13STALL                              
059590,000101: 17,2101           00006                           EXTEND                                         
059591,000102: 17,2102           23265                           QXCH     C13QSAV                               
059592,000103: 17,2103           22070                           LXCH     RUPTREG1                              
059593,000104: 17,2104           34735                           CAF      BIT15                                 
059594,000105: 17,2105           00006                           EXTEND                                         
059595,000106: 17,2106           05013                           WOR      CHAN13                                
059596,000107: 17,2107           31466                           CA       T6NEXT                                
059597,000108: 17,2110           67730                           AD       PRIO37                                
059598,000109: 17,2111           54000                           TS       A                                     
059599,000110: 17,2112           12115                           TCF      GOCH56                                
059600,000111: 17,2113           34733                           CA       POSMAX                                
059601,000112: 17,2114           55466                           TS       T6NEXT                                
059602,000113: 17,2115           50001        GOCH56             INDEX    L                                     
059603,000114: 17,2116           15754                           TCF      WRITEP     -1                         
059604,000115: 
059605,000116:    5754                                           BLOCK    02                                    
059606,000117:    4000                                           SETLOC   FFTAG9                                
059607,000118:    4000                                           BANK                                           
059608,000119:    5754  E6,1634                                  EBANK=   CDUXD                                 
059609,000120:    5754                                           COUNT*   $$/DAPT6                              

Page 1393

059611,000122:    5754           31472                           CA       NEXTP                                 
059612,000123:    5755           00006        WRITEP             EXTEND                                         
059613,000124:    5756           01006                           WRITE    CHAN6                                 
059614,000125:    5757           00002                           TC       Q                                     
059615,000126: 
059616,000127:    5760           31473                           CA       NEXTU                                 
059617,000128:    5761           54001        WRITEU             TS       L                                     
059618,000129:    5762           45775                           CS       00314OCT                              
059619,000130:    5763           00006                           EXTEND                                         
059620,000131:    5764           02005                           RAND     CHAN5                                 
059621,000132:    5765           60001                           AD       L                                     
059622,000133:    5766           00006                           EXTEND                                         
059623,000134:    5767           01005                           WRITE    CHAN5                                 
059624,000135:    5770           00002                           TC       Q                                     
059625,000136: 
059626,000137:    5771           31474                           CA       NEXTV                                 
059627,000138:    5772           54001        WRITEV             TS       L                                     
059628,000139:    5773           35775                           CA       00314OCT                              
059629,000140:    5774           15763                           TCF      -9D                                   
059630,000141:    5775           00314        00314OCT           OCT      00314                                 
059631,000142: 
059632,000143: 17,2117                                           BANK     17                                    
059633,000144: 17,2000                                           SETLOC   DAPS2                                 
059634,000145: 17,2000                                           BANK                                           
059635,000146: 
059636,000147: 17,2117  E6,1466                                  EBANK=   T6NEXT                                
059637,000148: 17,2117                                           COUNT*   $$/DAPT6                              
059638,000149: 
059639,000150: 17,2117           22016        DOT6RUPT           LXCH     BANKRUPT                              #  (INTERRUPT LEAD INS CONTINUED)
059640,000151: 17,2120           00006                           EXTEND                                         
059641,000152: 17,2121           22012                           QXCH     QRUPT                                 
059642,000153: 
059643,000154: 17,2122           02055                           TC       T6JOBCHK                              #  CALL T6JOBCHK.
059644,000155: 
059645,000156: 17,2123           15301                           TCF      RESUME                                #  END TIME6 INTERRUPT PROCESSOR.

End of include-file T6-RUPT_PROGRAMS.agc.  Parent file is MAIN.agc