Source Code
|
These source-code files are part of a reconstructed copy of Luminary 178, the
final release of the Apollo 14 Lunar Module (LM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Zerlina 56, Luminary 210, and
Luminary 131, previously transcribed from digitized copies of those programs.
The code was created by combining the three, using Zerlina 56 as a base, since
it was based off of Luminary 183. The differences between the three were
carefully merged using the Luminary memos as a guide, with all changes made
after Luminary 178 being backed out. 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 178 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.
|
059644,000002: ## Copyright: Public domain.
059645,000003: ## Filename: T6-RUPT_PROGRAMS.agc
059646,000004: ## Purpose: A section of Luminary revision 178.
059647,000005: ## It is part of the reconstructed source code for the final
059648,000006: ## release of the flight software for the Lunar Module's
059649,000007: ## (LM) Apollo Guidance Computer (AGC) for Apollo 14. The
059650,000008: ## code has been recreated from copies of Zerlina 56, Luminary
059651,000009: ## 210, and Luminary 131, as well as many Luminary memos.
059652,000010: ## It has been adapted such that the resulting bugger words
059653,000011: ## exactly match those specified for Luminary 178 in NASA
059654,000012: ## drawing 2021152N, which gives relatively high confidence
059655,000013: ## that the reconstruction is correct.
059656,000014: ## Reference: pp. 1391-1393
059657,000015: ## Assembler: yaYUL
059658,000016: ## Contact: Ron Burkey <info@sandroid.org>.
059659,000017: ## Website: www.ibiblio.org/apollo/index.html
059660,000018: ## Mod history: 2019-08-14 MAS Created from Zerlina 56.
059661,000019:
|
|
Page 1391
|
059663,000021: # PROGRAM NAMES: (1) T6JOBCHK MOD. NO. 5 OCTOBER 2, 1967
059664,000022: # (2) DOT6RUPT
059665,000023:
059666,000024: # MODIFICATION BY: LOWELL G HULL (A.C.ELECTRONICS)
059667,000025: # THESE PROGRAMS ENABLE THE LM DAP TO CONTROL THE THRUST TIMES OF THE REACTION CONTROL SYSTEM JETS BY USING TIME6.
059668,000026: # SINCE THE LM DAP MAINTAINS EXCLUSIVE CONTROL OVER TIME6 AND ITS INTERRUPTS, THE FOLLOWING CONVENTIONS HAVE BEEN
059669,000027: # ESTABLISHED AND MUST NOT BE TAMPERED WITH:
059670,000028: # 1. NO NUMBER IS EVER PLACED INTO TIME6 EXCEPT BY LM DAP.
059671,000029: # 2. NO PROGRAM OTHER THAN LM DAP ENABLES THE TIME6 COUNTER.
059672,000030: # 3. TO USE TIME6, THE FOLLOWING SEQUENCE IS ALWAYS EMPLOYED:
059673,000031: # A. A POSITIVE (NON-ZERO) NUMBER IS STORED IN TIME6.
059674,000032: # B. THE TIME6 CLOCK IS ENABLED.
059675,000033: # C. TIME6 IS INTERROGATED AND IS:
059676,000034: # I. NEVER FOUND NEGATIVE(NON-ZERO) OR +0.
059677,000035: # II. SOMETIMES FOUND POSITIVE(BETWEEN 1 AND 240D) INDICATING THAT IT IS ACTIVE.
059678,000036: # III. SOMETIMES FOUND POSMAX INDICATING THAT IT IS INACTIVE AND NOT ENABLED.
059679,000037: # IV. SOMETIMES FOUND NEGATIVE ZERO INDICATING THAT:
059680,000038: # A. A T6RUPT IS ABOUT TO OCCUR AT THE NEXT DINC, OR
059681,000039: # B. A T6RUPT IS WAITING IN THE PRIORITY CHAIN, OR
059682,000040: # C. A T6RUPT IS IN PROCESS NOW.
059683,000041: # 4) ALL PROGRAMS WHICH OPERATE IN EITHER INTERRUPT MODE OR WITH INTERRUPT INHIBITED MUST CALL T6JOBCHK
059684,000042: # EVERY 5 MILLISECONDS TO PROCESS A POSSIBLE WAITING T6RUPT BEFORE IT CAN BE HONORED BY THE HARDWARE.
059685,000043:
059686,000044: # (5. PROGRAM JTLST, IN Q,R-AXES, HANDLES THE INPUT LIST.)
059687,000045: # T6JOBCHK CALLING SEQUENCE:
059688,000046:
059689,000047: # L TC T6JOBCHK
059690,000048: # L +1 (RETURN)
059691,000049:
059692,000050: # DOT6RUPT CALLING SEQUENCE:
059693,000051:
059694,000052: # DXCH ARUPT T6RUPT LEAD IN AT LOCATION 4004.
059695,000053: # EXTEND
059696,000054: # DCA T6ADR
059697,000055: # DTCB
059698,000056:
059699,000057: # SUBROUTINES CALLED: DOT6RUPT CALLS T6JOBCHK.
059700,000058:
059701,000059: # NORMAL EXIT MODES: T6JOBCHK RETURNS TO L +1.
059702,000060: # DOT6RUPT TRANSFERS CONTROL TO RESUME.
059703,000061:
059704,000062: # ALARM/ABORT MODES: NONE.
059705,000063:
059706,000064: # INPUT: TIME6 NXT6ADR OUTPUT: TIME6 NXT6ADR CHANNEL 5
059707,000065: # T6NEXT T6NEXT +1 T6NEXT T6NEXT +1 CHANNEL 6
059708,000066: # T6FURTHA T6FURTHA +1 T6FURTHA T6FURTHA +1 BIT15/CH13
059709,000067: # DEBRIS: T6JOBCHK CLOBBERS A. DOT6RUPT CLOBBERS NOTHING.
059710,000068:
059711,000069:
059712,000070: 5754 BLOCK 02
|
|
Page 1392
|
059714,000072: 17,2055 BANK 17
059715,000073: 17,2000 SETLOC DAPS2
059716,000074: 17,2000 BANK
059717,000075: 17,2055 E6,1466 EBANK= T6NEXT
059718,000076: 17,2055 COUNT* $$/DAPT6
059719,000077:
059720,000078: 17,2055 10031 T6JOBCHK CCS TIME6 # CHECK TIME6 FOR WAITING T6RUPT:
059721,000079: 17,2056 00002 TC Q # NONE: CLOCK COUTING DOWN.
059722,000080: 17,2057 05706 TC CCSHOLE
059723,000081: 17,2060 05706 TC CCSHOLE
059724,000082: # CONTROL PASSES TO T6JOB ONLY WHEN C(TIME6) = -0 (I.E. WHEN A T6RUPT MUST BE PROCESSED).
059725,000083:
059726,000084: 17,2061 34733 T6JOB CA POSMAX
059727,000085: 17,2062 22007 ZL
059728,000086: 17,2063 53471 DXCH T6FURTHA
059729,000087: 17,2064 53467 DXCH T6NEXT
059730,000088: 17,2065 23465 LXCH NXT6ADR
059731,000089: 17,2066 54031 TS TIME6
059732,000090:
059733,000091: 17,2067 67730 AD PRIO37
059734,000092: 17,2070 54000 TS A
059735,000093: 17,2071 12075 TCF ENABLET6
059736,000094: 17,2072 34733 CA POSMAX
059737,000095: 17,2073 54031 TS TIME6
059738,000096: 17,2074 12115 TCF GOCH56
059739,000097: 17,2075 00006 ENABLET6 EXTEND
059740,000098: 17,2076 23265 QXCH C13QSAV
059741,000099: 17,2077 22070 LXCH RUPTREG1
059742,000100: 17,2100 06022 TC C13STALL
059743,000101: 17,2101 00006 EXTEND
059744,000102: 17,2102 23265 QXCH C13QSAV
059745,000103: 17,2103 22070 LXCH RUPTREG1
059746,000104: 17,2104 34735 CAF BIT15
059747,000105: 17,2105 00006 EXTEND
059748,000106: 17,2106 05013 WOR CHAN13
059749,000107: 17,2107 31466 CA T6NEXT
059750,000108: 17,2110 67730 AD PRIO37
059751,000109: 17,2111 54000 TS A
059752,000110: 17,2112 12115 TCF GOCH56
059753,000111: 17,2113 34733 CA POSMAX
059754,000112: 17,2114 55466 TS T6NEXT
059755,000113: 17,2115 50001 GOCH56 INDEX L
059756,000114: 17,2116 15754 TCF WRITEP -1
059757,000115:
059758,000116: 5754 BLOCK 02
059759,000117: 4000 SETLOC FFTAG9
059760,000118: 4000 BANK
059761,000119: 5754 E6,1634 EBANK= CDUXD
059762,000120: 5754 COUNT* $$/DAPT6
|
|
Page 1393
|
059764,000122: 5754 31472 CA NEXTP
059765,000123: 5755 00006 WRITEP EXTEND
059766,000124: 5756 01006 WRITE CHAN6
059767,000125: 5757 00002 TC Q
059768,000126:
059769,000127: 5760 31473 CA NEXTU
059770,000128: 5761 54001 WRITEU TS L
059771,000129: 5762 45775 CS 00314OCT
059772,000130: 5763 00006 EXTEND
059773,000131: 5764 02005 RAND CHAN5
059774,000132: 5765 60001 AD L
059775,000133: 5766 00006 EXTEND
059776,000134: 5767 01005 WRITE CHAN5
059777,000135: 5770 00002 TC Q
059778,000136:
059779,000137: 5771 31474 CA NEXTV
059780,000138: 5772 54001 WRITEV TS L
059781,000139: 5773 35775 CA 00314OCT
059782,000140: 5774 15763 TCF -9D
059783,000141: 5775 00314 00314OCT OCT 00314
059784,000142:
059785,000143: 17,2117 BANK 17
059786,000144: 17,2000 SETLOC DAPS2
059787,000145: 17,2000 BANK
059788,000146:
059789,000147: 17,2117 E6,1466 EBANK= T6NEXT
059790,000148: 17,2117 COUNT* $$/DAPT6
059791,000149:
059792,000150: 17,2117 22016 DOT6RUPT LXCH BANKRUPT # (INTERRUPT LEAD INS CONTINUED)
059793,000151: 17,2120 00006 EXTEND
059794,000152: 17,2121 22012 QXCH QRUPT
059795,000153:
059796,000154: 17,2122 02055 TC T6JOBCHK # CALL T6JOBCHK.
059797,000155:
059798,000156: 17,2123 15301 TCF RESUME # END TIME6 INTERRUPT PROCESSOR.
End of include-file T6-RUPT_PROGRAMS.agc. Parent file is MAIN.agc