Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
060631,000002: ## Copyright: Public domain.
060632,000003: ## Filename: T6-RUPT_PROGRAMS.agc
060633,000004: ## Purpose: The main source file for Luminary revision 069.
060634,000005: ## It is part of the source code for the original release
060635,000006: ## of the flight software for the Lunar Module's (LM) Apollo
060636,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
060637,000008: ## version was Luminary 69 revision 2, which included a
060638,000009: ## newer lunar gravity model and only affected module 2.
060639,000010: ## This file is intended to be a faithful transcription, except
060640,000011: ## that the code format has been changed to conform to the
060641,000012: ## requirements of the yaYUL assembler rather than the
060642,000013: ## original YUL assembler.
060643,000014: ## Reference: pp. 1398-1400
060644,000015: ## Assembler: yaYUL
060645,000016: ## Contact: Ron Burkey <info@sandroid.org>.
060646,000017: ## Website: www.ibiblio.org/apollo/index.html
060647,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
060648,000019: ## 2016-12-18 MAS Updated from comment-proofed Luminary 99 version.
060649,000020: ## 2016-12-24 RRB Updated for Luminary 69.
060650,000021: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
060651,000022: ## but no errors found.
060652,000023:
![]() |
Page 1398 |
060654,000025: # PROGRAM NAMES: (1) T6JOBCHK MOD. NO. 5 OCTOBER 2, 1967
060655,000026: # (2) DOT6RUPT
060656,000027: # MODIFICATION BY: LOWELL G HULL (A.C.ELECTRONICS)
060657,000028:
060658,000029: # THESE PROGRAMS ENABLE THE LM DAP TO CONTROL THE THRUST TIMES OF THE REACTION CONTROL SYSTEM JETS BY USING TIME6.
060659,000030: # SINCE THE LM DAP MAINTAINS EXCLUSIVE CONTROL OVER TIME6 AND ITS INTERRUPTS, THE FOLLOWING CONVENTIONS HAVE BEEN
060660,000031: # ESTABLISHED AND MUST NOT BE TAMPERED WITH:
060661,000032: # 1. NO NUMBER IS EVER PLACED INTO TIME6 EXCEPT BY LM DAP.
060662,000033: # 2. NO PROGRAM OTHER THAN LM DAP ENABLES THE TIME6 COUNTER.
060663,000034: # 3. TO USE TIME6, THE FOLLOWING SEQUENCE IS ALWAYS EMPLOYED:
060664,000035: # A. A POSITIVE (NON-ZERO) NUMBER IS STORED IN TIME6.
060665,000036: # B. THE TIME6 CLOCK IS ENABLED.
060666,000037: # C. TIME6 IS INTERROGATED AND IS:
060667,000038: # I. NEVER FOUND NEGATIVE (NON-ZERO) OR +0.
060668,000039: # II. SOMETIMES FOUND POSITIVE (BETWEEN 1 AND 240D) INDICATING THAT IT IS ACTIVE.
060669,000040: # III. SOMETIMES FOUND POSMAX INDICATING THAT IT IS INACTIVE AND NOT ENABLED.
060670,000041: # IV. SOMETIMES FOUND NEGATIVE ZERO INDICATING THAT:
060671,000042: # A. A T6RUPT IS ABOUT TO OCCUR AT THE NEXT DINC, OR
060672,000043: # B. A T6RUPT IS WAITING IN THE PRIORITY CHAIN, OR
060673,000044: # C. A T6RUPT IS IN PROCESS NOW.
060674,000045: # 4. ALL PROGRAMS WHICH OPERATE IN EITHER INTERRUPT MODE OR WITH INTERRUPT INHIBITED MUST CALL T6JOBCHK
060675,000046: # EVERY 5 MILLISECONDS TO PROCESS A POSSIBLE WAITING T6RUPT BEFORE IT CAN BE HONORED BY THE HARDWARE.
060676,000047: # (5. PROGRAM JTLST, IN Q,R-AXES, HANDLES THE INPUT LIST.)
060677,000048:
060678,000049: # T6JOBCHK CALLING SEQUENCE:
060679,000050: # L TC T6JOBCHK
060680,000051: # L+1 (RETURN)
060681,000052:
060682,000053: # DOT6RUPT CALLING SEQUENCE:
060683,000054: # DXCH ARUPT T6RUPT LEAD IN AT LOCATION 4004.
060684,000055: # EXTEND
060685,000056: # DCA T6ADR
060686,000057: # DTCB
060687,000058:
060688,000059: # SUBROUTINES CALLED: DOT6RUPT CALLS T6JOBCHK.
060689,000060:
060690,000061: # NORMAL EXIT MODES: T6JOBCHK RETURNS TO L +1.
060691,000062: # DOT6RUPT TRANSFERS CONTROL TO RESUME.
060692,000063:
060693,000064: # ALARM/ABORT MODES: NONE.
060694,000065:
060695,000066: # INPUT: TIME6 NXT6ADR OUTPUT: TIME6 NXT6ADR CHANNEL 5
060696,000067: # T6NEXT T6NEXT +1 T6NEXT T6NEXT +1 CHANNEL 6
060697,000068: # T6FURTHA T6FURTHA +1 T6FURTHA T6FURTHA +1 BIT15/CH13
060698,000069:
060699,000070: # DEBRIS: T6JOBCHK CLOBBERS A. DOT6RUPT CLOBBERS NOTHING.
060700,000071:
060701,000072: 5744 BLOCK 02
![]() |
Page 1399 |
060703,000074: 17,2000 BANK 17
060704,000075: 17,2000 SETLOC DAPS2
060705,000076: 17,2000 BANK
060706,000077: 17,2000 E6,1464 EBANK= T6NEXT
060707,000078: 17,2000 COUNT* $$/DAPT6
060708,000079:
060709,000080: 17,2000 10031 T6JOBCHK CCS TIME6 # CHECK TIME6 FOR WAITING T6RUPT:
060710,000081: 17,2001 00002 TC Q # NONE: CLOCK COUTING DOWN.
060711,000082: 17,2002 05677 TC CCSHOLE
060712,000083: 17,2003 02003 TC T6JOBCHK +3
060713,000084:
060714,000085: # CONTROL PASSES TO T6JOB ONLY WHEN C(TIME6) = -0 (I.E. WHEN A T6RUPT MUST BE PROCESSED).
060715,000086:
060716,000087: 17,2004 34733 T6JOB CAF POSMAX # DISABLE CLOCK: NEEDED SINCE RUPT OCCURS
060717,000088: 17,2005 00006 EXTEND # 1 DINC AFTER T6 = 77777. FOR 625 MUSECS
060718,000089: 17,2006 03013 WAND CHAN13 # MUST NOT HAVE T6 = +0 WITH ENABLE SET
060719,000090:
060720,000091: 17,2007 34733 CA POSMAX
060721,000092: 17,2010 22007 ZL
060722,000093: 17,2011 53467 DXCH T6FURTHA
060723,000094: 17,2012 53465 DXCH T6NEXT
060724,000095: 17,2013 23463 LXCH NXT6ADR
060725,000096: 17,2014 54031 TS TIME6
060726,000097:
060727,000098: 17,2015 67724 AD PRIO37
060728,000099: 17,2016 54000 TS A
060729,000100: 17,2017 12023 TCF ENABLET6
060730,000101: 17,2020 34733 CA POSMAX
060731,000102: 17,2021 54031 TS TIME6
060732,000103: 17,2022 12034 TCF GOCH56
060733,000104: 17,2023 34735 ENABLET6 CA BIT15
060734,000105: 17,2024 00006 EXTEND
060735,000106: 17,2025 05013 WOR CHAN13
060736,000107: 17,2026 31464 CA T6NEXT
060737,000108: 17,2027 67724 AD PRIO37
060738,000109: 17,2030 54000 TS A
060739,000110: 17,2031 12034 TCF GOCH56
060740,000111: 17,2032 34733 CA POSMAX
060741,000112: 17,2033 55464 TS T6NEXT
060742,000113: 17,2034 50001 GOCH56 INDEX L
060743,000114: 17,2035 15744 TCF WRITEP -1
060744,000115:
060745,000116: 5744 BLOCK 02
060746,000117: 4000 SETLOC FFTAG9
060747,000118: 4000 BANK
060748,000119: 5744 E6,1633 EBANK= CDUXD
060749,000120: 5744 COUNT* $$/DAPT6
060750,000121:
060751,000122: 5744 31470 CA NEXTP
060752,000123: 5745 00006 WRITEP EXTEND
060753,000124: 5746 01006 WRITE CHAN6
![]() |
Page 1400 |
060755,000126: 5747 00002 TC Q
060756,000127:
060757,000128: 5750 31471 CA NEXTU
060758,000129: 5751 54001 WRITEU TS L
060759,000130: 5752 45765 CS 00314OCT
060760,000131: 5753 00006 EXTEND
060761,000132: 5754 02005 RAND CHAN5
060762,000133: 5755 60001 AD L
060763,000134: 5756 00006 EXTEND
060764,000135: 5757 01005 WRITE CHAN5
060765,000136: 5760 00002 TC Q
060766,000137:
060767,000138: 5761 31472 CA NEXTV
060768,000139: 5762 54001 WRITEV TS L
060769,000140: 5763 35765 CA 00314OCT
060770,000141: 5764 15753 TCF -9D
060771,000142: 5765 00314 00314OCT OCT 00314
060772,000143:
060773,000144: 17,2036 BANK 17
060774,000145: 17,2000 SETLOC DAPS2
060775,000146: 17,2000 BANK
060776,000147:
060777,000148: 17,2036 E6,1464 EBANK= T6NEXT
060778,000149: 17,2036 COUNT* $$/DAPT6
060779,000150:
060780,000151: 17,2036 22016 DOT6RUPT LXCH BANKRUPT # (INTERRUPT LEAD INS CONTINUED)
060781,000152: 17,2037 00006 EXTEND
060782,000153: 17,2040 22012 QXCH QRUPT
060783,000154:
060784,000155: 17,2041 02000 TC T6JOBCHK # CALL T6JOBCHK.
060785,000156:
060786,000157: 17,2042 15270 TCF RESUME # END TIME6 INTERRUPT PROCESSOR.
060787,000158:
End of include-file T6-RUPT_PROGRAMS.agc. Parent file is MAIN.agc