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.
|
058724,000002: ## Copyright: Public domain.
058725,000003: ## Filename: T6-RUPT_PROGRAMS.agc
058726,000004: ## Purpose: A section of Luminary revision 98.
058727,000005: ## It is part of the reconstructed source code for the a
058728,000006: ## development version of the flight software for the Lunar
058729,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
058730,000008: ## The code has been recreated from a copy of Luminary 99
058731,000009: ## revision 001, using asterisks indicating changed lines in
058732,000010: ## the listing and Luminary Memo #85, which lists changes between
058733,000011: ## Luminary 98 and 99.
058734,000012: ## Reference: pp. 1403-1405
058735,000013: ## Assembler: yaYUL
058736,000014: ## Contact: Ron Burkey <info@sandroid.org>.
058737,000015: ## Website: www.ibiblio.org/apollo/index.html
058738,000016: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
058739,000017:
|
|
Page 1403
|
058741,000019: # PROGRAM NAMES: (1) T6JOBCHK MOD. NO. 5 OCTOBER 2, 1967
058742,000020: # (2) DOT6RUPT
058743,000021: # MODIFICATION BY: LOWELL G HULL (A.C.ELECTRONICS)
058744,000022:
058745,000023: # THESE PROGRAMS ENABLE THE LM DAP TO CONTROL THE THRUST TIMES OF THE REACTION CONTROL SYSTEM JETS BY USING TIME6.
058746,000024: # SINCE THE LM DAP MAINTAINS EXCLUSIVE CONTROL OVER TIME6 AND ITS INTERRUPTS, THE FOLLOWING CONVENTIONS HAVE BEEN
058747,000025: # ESTABLISHED AND MUST NOT BE TAMPERED WITH:
058748,000026: # 1. NO NUMBER IS EVER PLACED INTO TIME6 EXCEPT BY LM DAP.
058749,000027: # 2. NO PROGRAM OTHER THAN LM DAP ENABLES THE TIME6 COUNTER.
058750,000028: # 3. TO USE TIME6, THE FOLLOWING SEQUENCE IS ALWAYS EMPLOYED:
058751,000029: # A. A POSITIVE (NON-ZERO) NUMBER IS STORED IN TIME6.
058752,000030: # B. THE TIME6 CLOCK IS ENABLED.
058753,000031: # C. TIME6 IS INTERROGATED AND IS:
058754,000032: # I. NEVER FOUND NEGATIVE (NON-ZERO) OR +0.
058755,000033: # II. SOMETIMES FOUND POSITIVE (BETWEEN 1 AND 240D) INDICATING THAT IT IS ACTIVE.
058756,000034: # III. SOMETIMES FOUND POSMAX INDICATING THAT IT IS INACTIVE AND NOT ENABLED.
058757,000035: # IV. SOMETIMES FOUND NEGATIVE ZERO INDICATING THAT:
058758,000036: # A. A T6RUPT IS ABOUT TO OCCUR AT THE NEXT DINC, OR
058759,000037: # B. A T6RUPT IS WAITING IN THE PRIORITY CHAIN, OR
058760,000038: # C. A T6RUPT IS IN PROCESS NOW.
058761,000039: # 4) ALL PROGRAMS WHICH OPERATE IN EITHER INTERRUPT MODE OR WITH INTERRUPT INHIBITED MUST CALL T6JOBCHK
058762,000040: # EVERY 5 MILLISECONDS TO PROCESS A POSSIBLE WAITING T6RUPT BEFORE IT CAN BE HONORED BY THE HARDWARE.
058763,000041: # (5. PROGRAM JTLST, IN Q,R-AXES, HANDLES THE INPUT LIST.)
058764,000042:
058765,000043: # T6JOBCHK CALLING SEQUENCE:
058766,000044: # L TC T6JOBCHK
058767,000045: # L+1 (RETURN)
058768,000046:
058769,000047: # DOT6RUPT CALLING SEQUENCE:
058770,000048: # DXCH ARUPT T6RUPT LEAD IN AT LOCATION 4004.
058771,000049: # EXTEND
058772,000050: # DCA T6ADR
058773,000051: # DTCB
058774,000052:
058775,000053: # SUBROUTINES CALLED: DOT6RUPT CALLS T6JOBCHK.
058776,000054:
058777,000055: # NORMAL EXIT MODES: T6JOBCHK RETURNS TO L +1.
058778,000056: # DOT6RUPT TRANSFERS CONTROL TO RESUME.
058779,000057:
058780,000058: # ALARM/ABORT MODES: NONE.
058781,000059:
058782,000060: # INPUT: TIME6 NXT6ADR OUTPUT: TIME6 NXT6ADR CHANNEL 5
058783,000061: # T6NEXT T6NEXT +1 T6NEXT T6NEXT +1 CHANNEL 6
058784,000062: # T6FURTHA T6FURTHA +1 T6FURTHA T6FURTHA +1 BIT15/CH13
058785,000063:
058786,000064: # DEBRIS: T6JOBCHK CLOBBERS A. DOT6RUPT CLOBBERS NOTHING.
058787,000065:
058788,000066: 5753 BLOCK 02
|
|
Page 1404
|
058790,000068: 17,2027 BANK 17
058791,000069: 17,2000 SETLOC DAPS2
058792,000070: 17,2000 BANK
058793,000071: 17,2027 E6,1466 EBANK= T6NEXT
058794,000072: 17,2027 COUNT* $$/DAPT6
058795,000073:
058796,000074: 17,2027 10031 T6JOBCHK CCS TIME6 # CHECK TIME6 FOR WAITING T6RUPT:
058797,000075: 17,2030 00002 TC Q # NONE: CLOCK COUTING DOWN.
058798,000076: 17,2031 05705 TC CCSHOLE
058799,000077: 17,2032 02032 TC T6JOBCHK +3
058800,000078:
058801,000079: # CONTROL PASSES TO T6JOB ONLY WHEN C(TIME6) = -0 (I.E. WHEN A T6RUPT MUST BE PROCESSED).
058802,000080:
058803,000081: 17,2033 34733 T6JOB CAF POSMAX # DISABLE CLOCK: NEEDED SINCE RUPT OCCURS
058804,000082: 17,2034 00006 EXTEND # 1 DINC AFTER T6 = 77777. FOR 625 MUSECS
058805,000083: 17,2035 03013 WAND CHAN13 # MUST NOT HAVE T6 = +0 WITH ENABLE SET
058806,000084:
058807,000085: 17,2036 34733 CA POSMAX
058808,000086: 17,2037 22007 ZL
058809,000087: 17,2040 53471 DXCH T6FURTHA
058810,000088: 17,2041 53467 DXCH T6NEXT
058811,000089: 17,2042 23465 LXCH NXT6ADR
058812,000090: 17,2043 54031 TS TIME6
058813,000091:
058814,000092: 17,2044 67725 AD PRIO37
058815,000093: 17,2045 54000 TS A
058816,000094: 17,2046 12052 TCF ENABLET6
058817,000095: 17,2047 34733 CA POSMAX
058818,000096: 17,2050 54031 TS TIME6
058819,000097: 17,2051 12063 TCF GOCH56
058820,000098: 17,2052 34735 ENABLET6 CA BIT15
058821,000099: 17,2053 00006 EXTEND
058822,000100: 17,2054 05013 WOR CHAN13
058823,000101: 17,2055 31466 CA T6NEXT
058824,000102: 17,2056 67725 AD PRIO37
058825,000103: 17,2057 54000 TS A
058826,000104: 17,2060 12063 TCF GOCH56
058827,000105: 17,2061 34733 CA POSMAX
058828,000106: 17,2062 55466 TS T6NEXT
058829,000107: 17,2063 50001 GOCH56 INDEX L
058830,000108: 17,2064 15753 TCF WRITEP -1
058831,000109:
058832,000110: 5753 BLOCK 02
058833,000111: 4000 SETLOC FFTAG9
058834,000112: 4000 BANK
058835,000113: 5753 E6,1635 EBANK= CDUXD
058836,000114: 5753 COUNT* $$/DAPT6
058837,000115:
058838,000116: 5753 31472 CA NEXTP
058839,000117: 5754 00006 WRITEP EXTEND
058840,000118: 5755 01006 WRITE CHAN6
|
|
Page 1405
|
058842,000120: 5756 00002 TC Q
058843,000121:
058844,000122: 5757 31473 CA NEXTU
058845,000123: 5760 54001 WRITEU TS L
058846,000124: 5761 45774 CS 00314OCT
058847,000125: 5762 00006 EXTEND
058848,000126: 5763 02005 RAND CHAN5
058849,000127: 5764 60001 AD L
058850,000128: 5765 00006 EXTEND
058851,000129: 5766 01005 WRITE CHAN5
058852,000130: 5767 00002 TC Q
058853,000131:
058854,000132: 5770 31474 CA NEXTV
058855,000133: 5771 54001 WRITEV TS L
058856,000134: 5772 35774 CA 00314OCT
058857,000135: 5773 15762 TCF -9D
058858,000136: 5774 00314 00314OCT OCT 00314
058859,000137:
058860,000138: 17,2065 BANK 17
058861,000139: 17,2000 SETLOC DAPS2
058862,000140: 17,2000 BANK
058863,000141:
058864,000142: 17,2065 E6,1466 EBANK= T6NEXT
058865,000143: 17,2065 COUNT* $$/DAPT6
058866,000144:
058867,000145: 17,2065 22016 DOT6RUPT LXCH BANKRUPT # (INTERRUPT LEAD INS CONTINUED)
058868,000146: 17,2066 00006 EXTEND
058869,000147: 17,2067 22012 QXCH QRUPT
058870,000148:
058871,000149: 17,2070 02027 TC T6JOBCHK # CALL T6JOBCHK.
058872,000150:
058873,000151: 17,2071 15270 TCF RESUME # END TIME6 INTERRUPT PROCESSOR.
058874,000152:
End of include-file T6-RUPT_PROGRAMS.agc. Parent file is MAIN.agc