Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code 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 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 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.
|
060153,000002: ## Copyright: Public domain.
060154,000003: ## Filename: T6-RUPT_PROGRAMS.agc
060155,000004: ## Purpose: A section of LUM69 revision 2.
060156,000005: ## It is part of the reconstructed source code for the flown
060157,000006: ## version of the flight software for the Lunar Module's (LM)
060158,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
060159,000008: ## been recreated from a copy of Luminary revsion 069, using
060160,000009: ## changes present in Luminary 099 which were described in
060161,000010: ## Luminary memos 75 and 78. The code has been adapted such
060162,000011: ## that the resulting bugger words exactly match those specified
060163,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
060164,000013: ## relatively high confidence that the reconstruction is correct.
060165,000014: ## Reference: pp. 1398-1400
060166,000015: ## Assembler: yaYUL
060167,000016: ## Contact: Ron Burkey <info@sandroid.org>.
060168,000017: ## Website: www.ibiblio.org/apollo/index.html
060169,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
060170,000019:
|
|
Page 1398
|
060172,000021: # PROGRAM NAMES: (1) T6JOBCHK MOD. NO. 5 OCTOBER 2, 1967
060173,000022: # (2) DOT6RUPT
060174,000023: # MODIFICATION BY: LOWELL G HULL (A.C.ELECTRONICS)
060175,000024:
060176,000025: # THESE PROGRAMS ENABLE THE LM DAP TO CONTROL THE THRUST TIMES OF THE REACTION CONTROL SYSTEM JETS BY USING TIME6.
060177,000026: # SINCE THE LM DAP MAINTAINS EXCLUSIVE CONTROL OVER TIME6 AND ITS INTERRUPTS, THE FOLLOWING CONVENTIONS HAVE BEEN
060178,000027: # ESTABLISHED AND MUST NOT BE TAMPERED WITH:
060179,000028: # 1. NO NUMBER IS EVER PLACED INTO TIME6 EXCEPT BY LM DAP.
060180,000029: # 2. NO PROGRAM OTHER THAN LM DAP ENABLES THE TIME6 COUNTER.
060181,000030: # 3. TO USE TIME6, THE FOLLOWING SEQUENCE IS ALWAYS EMPLOYED:
060182,000031: # A. A POSITIVE (NON-ZERO) NUMBER IS STORED IN TIME6.
060183,000032: # B. THE TIME6 CLOCK IS ENABLED.
060184,000033: # C. TIME6 IS INTERROGATED AND IS:
060185,000034: # I. NEVER FOUND NEGATIVE (NON-ZERO) OR +0.
060186,000035: # II. SOMETIMES FOUND POSITIVE (BETWEEN 1 AND 240D) INDICATING THAT IT IS ACTIVE.
060187,000036: # III. SOMETIMES FOUND POSMAX INDICATING THAT IT IS INACTIVE AND NOT ENABLED.
060188,000037: # IV. SOMETIMES FOUND NEGATIVE ZERO INDICATING THAT:
060189,000038: # A. A T6RUPT IS ABOUT TO OCCUR AT THE NEXT DINC, OR
060190,000039: # B. A T6RUPT IS WAITING IN THE PRIORITY CHAIN, OR
060191,000040: # C. A T6RUPT IS IN PROCESS NOW.
060192,000041: # 4) ALL PROGRAMS WHICH OPERATE IN EITHER INTERRUPT MODE OR WITH INTERRUPT INHIBITED MUST CALL T6JOBCHK
060193,000042: # EVERY 5 MILLISECONDS TO PROCESS A POSSIBLE WAITING T6RUPT BEFORE IT CAN BE HONORED BY THE HARDWARE.
060194,000043: # (5. PROGRAM JTLST, IN Q,R-AXES, HANDLES THE INPUT LIST.)
060195,000044:
060196,000045: # T6JOBCHK CALLING SEQUENCE:
060197,000046: # L TC T6JOBCHK
060198,000047: # L+1 (RETURN)
060199,000048:
060200,000049: # DOT6RUPT CALLING SEQUENCE:
060201,000050: # DXCH ARUPT T6RUPT LEAD IN AT LOCATION 4004.
060202,000051: # EXTEND
060203,000052: # DCA T6ADR
060204,000053: # DTCB
060205,000054:
060206,000055: # SUBROUTINES CALLED: DOT6RUPT CALLS T6JOBCHK.
060207,000056:
060208,000057: # NORMAL EXIT MODES: T6JOBCHK RETURNS TO L +1.
060209,000058: # DOT6RUPT TRANSFERS CONTROL TO RESUME.
060210,000059:
060211,000060: # ALARM/ABORT MODES: NONE.
060212,000061:
060213,000062: # INPUT: TIME6 NXT6ADR OUTPUT: TIME6 NXT6ADR CHANNEL 5
060214,000063: # T6NEXT T6NEXT +1 T6NEXT T6NEXT +1 CHANNEL 6
060215,000064: # T6FURTHA T6FURTHA +1 T6FURTHA T6FURTHA +1 BIT15/CH13
060216,000065:
060217,000066: # DEBRIS: T6JOBCHK CLOBBERS A. DOT6RUPT CLOBBERS NOTHING.
060218,000067:
060219,000068: 5744 BLOCK 02
|
|
Page 1399
|
060221,000070: 17,2000 BANK 17
060222,000071: 17,2000 SETLOC DAPS2
060223,000072: 17,2000 BANK
060224,000073: 17,2000 E6,1464 EBANK= T6NEXT
060225,000074: 17,2000 COUNT* $$/DAPT6
060226,000075:
060227,000076: 17,2000 10031 T6JOBCHK CCS TIME6 # CHECK TIME6 FOR WAITING T6RUPT:
060228,000077: 17,2001 00002 TC Q # NONE: CLOCK COUTING DOWN.
060229,000078: 17,2002 05677 TC CCSHOLE
060230,000079: 17,2003 02003 TC T6JOBCHK +3
060231,000080:
060232,000081: # CONTROL PASSES TO T6JOB ONLY WHEN C(TIME6) = -0 (I.E. WHEN A T6RUPT MUST BE PROCESSED).
060233,000082:
060234,000083: 17,2004 34733 T6JOB CAF POSMAX # DISABLE CLOCK: NEEDED SINCE RUPT OCCURS
060235,000084: 17,2005 00006 EXTEND # 1 DINC AFTER T6 = 77777. FOR 625 MUSECS
060236,000085: 17,2006 03013 WAND CHAN13 # MUST NOT HAVE T6 = +0 WITH ENABLE SET
060237,000086:
060238,000087: 17,2007 34733 CA POSMAX
060239,000088: 17,2010 22007 ZL
060240,000089: 17,2011 53467 DXCH T6FURTHA
060241,000090: 17,2012 53465 DXCH T6NEXT
060242,000091: 17,2013 23463 LXCH NXT6ADR
060243,000092: 17,2014 54031 TS TIME6
060244,000093:
060245,000094: 17,2015 67724 AD PRIO37
060246,000095: 17,2016 54000 TS A
060247,000096: 17,2017 12023 TCF ENABLET6
060248,000097: 17,2020 34733 CA POSMAX
060249,000098: 17,2021 54031 TS TIME6
060250,000099: 17,2022 12034 TCF GOCH56
060251,000100: 17,2023 34735 ENABLET6 CA BIT15
060252,000101: 17,2024 00006 EXTEND
060253,000102: 17,2025 05013 WOR CHAN13
060254,000103: 17,2026 31464 CA T6NEXT
060255,000104: 17,2027 67724 AD PRIO37
060256,000105: 17,2030 54000 TS A
060257,000106: 17,2031 12034 TCF GOCH56
060258,000107: 17,2032 34733 CA POSMAX
060259,000108: 17,2033 55464 TS T6NEXT
060260,000109: 17,2034 50001 GOCH56 INDEX L
060261,000110: 17,2035 15744 TCF WRITEP -1
060262,000111:
060263,000112: 5744 BLOCK 02
060264,000113: 4000 SETLOC FFTAG9
060265,000114: 4000 BANK
060266,000115: 5744 E6,1633 EBANK= CDUXD
060267,000116: 5744 COUNT* $$/DAPT6
060268,000117:
060269,000118: 5744 31470 CA NEXTP
060270,000119: 5745 00006 WRITEP EXTEND
060271,000120: 5746 01006 WRITE CHAN6
|
|
Page 1400
|
060273,000122: 5747 00002 TC Q
060274,000123:
060275,000124: 5750 31471 CA NEXTU
060276,000125: 5751 54001 WRITEU TS L
060277,000126: 5752 45765 CS 00314OCT
060278,000127: 5753 00006 EXTEND
060279,000128: 5754 02005 RAND CHAN5
060280,000129: 5755 60001 AD L
060281,000130: 5756 00006 EXTEND
060282,000131: 5757 01005 WRITE CHAN5
060283,000132: 5760 00002 TC Q
060284,000133:
060285,000134: 5761 31472 CA NEXTV
060286,000135: 5762 54001 WRITEV TS L
060287,000136: 5763 35765 CA 00314OCT
060288,000137: 5764 15753 TCF -9D
060289,000138: 5765 00314 00314OCT OCT 00314
060290,000139:
060291,000140: 17,2036 BANK 17
060292,000141: 17,2000 SETLOC DAPS2
060293,000142: 17,2000 BANK
060294,000143:
060295,000144: 17,2036 E6,1464 EBANK= T6NEXT
060296,000145: 17,2036 COUNT* $$/DAPT6
060297,000146:
060298,000147: 17,2036 22016 DOT6RUPT LXCH BANKRUPT # (INTERRUPT LEAD INS CONTINUED)
060299,000148: 17,2037 00006 EXTEND
060300,000149: 17,2040 22012 QXCH QRUPT
060301,000150:
060302,000151: 17,2041 02000 TC T6JOBCHK # CALL T6JOBCHK.
060303,000152:
060304,000153: 17,2042 15270 TCF RESUME # END TIME6 INTERRUPT PROCESSOR.
060305,000154:
End of include-file T6-RUPT_PROGRAMS.agc. Parent file is MAIN.agc