Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

059189,000002:                                                                                                  ## Copyright:   Public domain.
059190,000003:                                                                                                  ## Filename:    T6-RUPT_PROGRAMS.agc
059191,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
059192,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM) 
059193,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
059194,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
059195,000008:                                                                                                  ##              that the code format has been changed to conform to the
059196,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
059197,000010:                                                                                                  ##              original YUL assembler.
059198,000011:                                                                                                  ## Reference:   pp. 1393-1395
059199,000012:                                                                                                  ## Assembler:   yaYUL
059200,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
059201,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
059202,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
059203,000016:                                                                                                  ##              2017-02-07 NV   Updated for Luminary 116.
059204,000017:                                                                                                  ##              2017-03-14 RSB  Proofed comment text via 3-way diff vs
059205,000018:                                                                                                  ##                              Luminary 99 and 131 ... no problems found.
059206,000019: 

Page 1393

059208,000021:                                                                                                  #  PROGRAM NAMES:        (1) T6JOBCHK    MOD. NO. 5      OCTOBER 2, 1967
059209,000022:                                                                                                  #                        (2) DOT6RUPT
059210,000023:                                                                                                  #  MODIFICATION BY:      LOWELL G HULL (A.C.ELECTRONICS)
059211,000024: 
059212,000025:                                                                                                  #  THESE PROGRAMS ENABLE THE LM DAP TO CONTROL THE THRUST TIMES OF THE REACTION CONTROL SYSTEM JETS BY USING TIME6.
059213,000026:                                                                                                  #  SINCE THE LM DAP MAINTAINS EXCLUSIVE CONTROL OVER TIME6 AND ITS INTERRUPTS, THE FOLLOWING CONVENTIONS HAVE BEEN
059214,000027:                                                                                                  #  ESTABLISHED AND MUST NOT BE TAMPERED WITH:
059215,000028:                                                                                                  #        1.      NO NUMBER IS EVER PLACED INTO TIME6 EXCEPT BY LM DAP.
059216,000029:                                                                                                  #        2.      NO PROGRAM OTHER THAN LM DAP ENABLES THE TIME6 COUNTER.
059217,000030:                                                                                                  #        3.      TO USE TIME6, THE FOLLOWING SEQUENCE IS ALWAYS EMPLOYED:
059218,000031:                                                                                                  #                A.      A POSITIVE (NON-ZERO) NUMBER IS STORED IN TIME6.
059219,000032:                                                                                                  #                B.      THE TIME6 CLOCK IS ENABLED.
059220,000033:                                                                                                  #                C.      TIME6 IS INTERROGATED AND IS:
059221,000034:                                                                                                  #                        I.      NEVER FOUND NEGATIVE (NON-ZERO) OR +0.
059222,000035:                                                                                                  #                        II.     SOMETIMES FOUND POSITIVE (BETWEEN 1 AND 240D) INDICATING THAT IT IS ACTIVE.
059223,000036:                                                                                                  #                        III.    SOMETIMES FOUND POSMAX INDICATING THAT IT IS INACTIVE AND NOT ENABLED.
059224,000037:                                                                                                  #                        IV.     SOMETIMES FOUND NEGATIVE ZERO INDICATING THAT:
059225,000038:                                                                                                  #                                A.      A T6RUPT IS ABOUT TO OCCUR AT THE NEXT DINC, OR
059226,000039:                                                                                                  #                                B.      A T6RUPT IS WAITING IN THE PRIORITY CHAIN, OR
059227,000040:                                                                                                  #                                C.      A T6RUPT IS IN PROCESS NOW.
059228,000041:                                                                                                  #        4.      ALL PROGRAMS WHICH OPERATE IN EITHER INTERRUPT MODE OR WITH INTERRUPT INHIBITED MUST CALL T6JOBCHK
059229,000042:                                                                                                  #                EVERY 5 MILLISECONDS TO PROCESS A POSSIBLE WAITING T6RUPT BEFORE IT CAN BE HONORED BY THE HARDWARE.
059230,000043:                                                                                                  #       (5.      PROGRAM JTLST, IN Q,R-AXES, HANDLES THE INPUT LIST.)
059231,000044: 
059232,000045:                                                                                                  #  T6JOBCHK CALLING SEQUENCE:
059233,000046:                                                                                                  #                L       TC      T6JOBCHK
059234,000047:                                                                                                  #                L+1     (RETURN)
059235,000048: 
059236,000049:                                                                                                  #  DOT6RUPT CALLING SEQUENCE:
059237,000050:                                                                                                  #                        DXCH    ARUPT           T6RUPT LEAD IN AT LOCATION 4004.
059238,000051:                                                                                                  #                        EXTEND
059239,000052:                                                                                                  #                        DCA     T6ADR
059240,000053:                                                                                                  #                        DTCB
059241,000054: 
059242,000055:                                                                                                  #  SUBROUTINES CALLED:   DOT6RUPT CALLS T6JOBCHK.
059243,000056: 
059244,000057:                                                                                                  #  NORMAL EXIT MODES:    T6JOBCHK RETURNS TO L +1.
059245,000058:                                                                                                  #                        DOT6RUPT TRANSFERS CONTROL TO RESUME.
059246,000059: 
059247,000060:                                                                                                  #  ALARM/ABORT MODES:    NONE.
059248,000061: 
059249,000062:                                                                                                  #  INPUT:        TIME6           NXT6ADR         OUTPUT:         TIME6           NXT6ADR         CHANNEL 5
059250,000063:                                                                                                  #                T6NEXT          T6NEXT +1                       T6NEXT          T6NEXT +1       CHANNEL 6
059251,000064:                                                                                                  #                T6FURTHA        T6FURTHA +1                     T6FURTHA        T6FURTHA +1     BIT15/CH13
059252,000065: 
059253,000066:                                                                                                  #  DEBRIS:       T6JOBCHK CLOBBERS A.  DOT6RUPT CLOBBERS NOTHING.
059254,000067: 
059255,000068:    5743                                           BLOCK    02                                    

Page 1394

059257,000070: 17,2055                                           BANK     17                                    
059258,000071: 17,2000                                           SETLOC   DAPS2                                 
059259,000072: 17,2000                                           BANK                                           
059260,000073: 17,2055  E6,1466                                  EBANK=   T6NEXT                                
059261,000074: 17,2055                                           COUNT*   $$/DAPT6                              
059262,000075: 
059263,000076: 17,2055           10031        T6JOBCHK           CCS      TIME6                                 #  CHECK TIME6 FOR WAITING T6RUPT:
059264,000077: 17,2056           00002                           TC       Q                                     #  NONE: CLOCK COUTING DOWN.
059265,000078: 17,2057           05675                           TC       CCSHOLE                               
059266,000079: 17,2060           05675                           TC       CCSHOLE                               
059267,000080: 
059268,000081:                                                                                                  #  CONTROL PASSES TO T6JOB ONLY WHEN C(TIME6) = -0 (I.E. WHEN A T6RUPT MUST BE PROCESSED).
059269,000082: 
059270,000083: 17,2061           34733        T6JOB              CA       POSMAX                                
059271,000084: 17,2062           22007                           ZL                                             
059272,000085: 17,2063           53471                           DXCH     T6FURTHA                              
059273,000086: 17,2064           53467                           DXCH     T6NEXT                                
059274,000087: 17,2065           23465                           LXCH     NXT6ADR                               
059275,000088: 17,2066           54031                           TS       TIME6                                 
059276,000089: 
059277,000090: 17,2067           67730                           AD       PRIO37                                
059278,000091: 17,2070           54000                           TS       A                                     
059279,000092: 17,2071           12075                           TCF      ENABLET6                              
059280,000093: 17,2072           34733                           CA       POSMAX                                
059281,000094: 17,2073           54031                           TS       TIME6                                 
059282,000095: 17,2074           12115                           TCF      GOCH56                                
059283,000096: 17,2075           00006        ENABLET6           EXTEND                                         
059284,000097: 17,2076           23265                           QXCH     C13QSAV                               
059285,000098: 17,2077           22070                           LXCH     RUPTREG1                              
059286,000099: 17,2100           06022                           TC       C13STALL                              
059287,000100: 17,2101           00006                           EXTEND                                         
059288,000101: 17,2102           23265                           QXCH     C13QSAV                               
059289,000102: 17,2103           22070                           LXCH     RUPTREG1                              
059290,000103: 17,2104           34735                           CAF      BIT15                                 
059291,000104: 17,2105           00006                           EXTEND                                         
059292,000105: 17,2106           05013                           WOR      CHAN13                                
059293,000106: 17,2107           31466                           CA       T6NEXT                                
059294,000107: 17,2110           67730                           AD       PRIO37                                
059295,000108: 17,2111           54000                           TS       A                                     
059296,000109: 17,2112           12115                           TCF      GOCH56                                
059297,000110: 17,2113           34733                           CA       POSMAX                                
059298,000111: 17,2114           55466                           TS       T6NEXT                                
059299,000112: 17,2115           50001        GOCH56             INDEX    L                                     
059300,000113: 17,2116           15743                           TCF      WRITEP     -1                         
059301,000114: 
059302,000115:    5743                                           BLOCK    02                                    
059303,000116:    4000                                           SETLOC   FFTAG9                                
059304,000117:    4000                                           BANK                                           
059305,000118:    5743  E6,1635                                  EBANK=   CDUXD                                 
059306,000119:    5743                                           COUNT*   $$/DAPT6                              
059307,000120: 

Page 1395

059309,000122:    5743           31472                           CA       NEXTP                                 
059310,000123:    5744           00006        WRITEP             EXTEND                                         
059311,000124:    5745           01006                           WRITE    CHAN6                                 
059312,000125:    5746           00002                           TC       Q                                     
059313,000126: 
059314,000127:    5747           31473                           CA       NEXTU                                 
059315,000128:    5750           54001        WRITEU             TS       L                                     
059316,000129:    5751           45764                           CS       00314OCT                              
059317,000130:    5752           00006                           EXTEND                                         
059318,000131:    5753           02005                           RAND     CHAN5                                 
059319,000132:    5754           60001                           AD       L                                     
059320,000133:    5755           00006                           EXTEND                                         
059321,000134:    5756           01005                           WRITE    CHAN5                                 
059322,000135:    5757           00002                           TC       Q                                     
059323,000136: 
059324,000137:    5760           31474                           CA       NEXTV                                 
059325,000138:    5761           54001        WRITEV             TS       L                                     
059326,000139:    5762           35764                           CA       00314OCT                              
059327,000140:    5763           15752                           TCF      -9D                                   
059328,000141:    5764           00314        00314OCT           OCT      00314                                 
059329,000142: 
059330,000143: 17,2117                                           BANK     17                                    
059331,000144: 17,2000                                           SETLOC   DAPS2                                 
059332,000145: 17,2000                                           BANK                                           
059333,000146: 
059334,000147: 17,2117  E6,1466                                  EBANK=   T6NEXT                                
059335,000148: 17,2117                                           COUNT*   $$/DAPT6                              
059336,000149: 
059337,000150: 17,2117           22016        DOT6RUPT           LXCH     BANKRUPT                              #  (INTERRUPT LEAD INS CONTINUED)
059338,000151: 17,2120           00006                           EXTEND                                         
059339,000152: 17,2121           22012                           QXCH     QRUPT                                 
059340,000153: 
059341,000154: 17,2122           02055                           TC       T6JOBCHK                              #  CALL T6JOBCHK.
059342,000155: 
059343,000156: 17,2123           15270                           TCF      RESUME                                #  END TIME6 INTERRUPT PROCESSOR.
059344,000157: 

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