Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
002354,000002: ## Copyright: Public domain.
002355,000003: ## Filename: INTERRUPT_LEAD_INS.agc
002356,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
002357,000005: ## It is part of an early development version of the software
002358,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
002359,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
002360,000008: ## upon which Don Eyles's offline development program Shepatin
002361,000009: ## was based; the listing herein transcribed was actually for
002362,000010: ## the equivalent revision 0 of Shepatin.
002363,000011: ## This file is intended to be a faithful transcription, except
002364,000012: ## that the code format has been changed to conform to the
002365,000013: ## requirements of the yaYUL assembler rather than the
002366,000014: ## original YUL assembler.
002367,000015: ## Reference: pp. 54-55
002368,000016: ## Assembler: yaYUL
002369,000017: ## Contact: Ron Burkey <info@sandroid.org>.
002370,000018: ## Website: www.ibiblio.org/apollo/index.html
002371,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
002372,000020: ## 2017-05-27 HG Transcribed
002373,000021: ## 2017-06-21 RSB Proofed using octopus/ProoferComments.
002374,000022:
002375,000023:
![]() |
Page 54 |
002377,000025: 4000 SETLOC 4000
002378,000026:
002379,000027: 4000 00004 INHINT # GO
002380,000028: 4001 34054 CAF GOBB
002381,000029: 4002 56006 XCH BBANK
002382,000030: 4003 12142 TCF GOPROG
002383,000031:
002384,000032: 4004 52011 DXCH ARUPT # T6RUPT
002385,000033: 4005 00006 EXTEND
002386,000034: 4006 35040 DCA T6ADR
002387,000035: 4007 52006 DTCB
002388,000036:
002389,000037: 4010 52011 DXCH ARUPT # T5RUPT
002390,000038: 4011 00006 EXTEND
002391,000039: 4012 31001 DCA T5ADR
002392,000040: 4013 52006 DTCB
002393,000041:
002394,000042: 4014 52011 DXCH ARUPT # T3RUPT
002395,000043: 4015 34056 CAF T3RPTBB
002396,000044: 4016 56006 XCH BBANK
002397,000045: 4017 13530 TCF T3RUPT
002398,000046:
002399,000047: 4020 52011 DXCH ARUPT # T4RUPT
002400,000048: 4021 34063 CAF T4RPTBB
002401,000049: 4022 56006 XCH BBANK
002402,000050: 4023 12000 TCF T4RUPT
002403,000051:
002404,000052: 4024 52011 DXCH ARUPT # KEYRUPT1
002405,000053: 4025 34057 CAF KEYRPTBB
002406,000054: 4026 56006 XCH BBANK
002407,000055: 4027 13506 TCF KEYRUPT1
002408,000056:
002409,000057: 4030 52011 DXCH ARUPT # KEYRUPT2
002410,000058: 4031 34060 CAF MKRUPTBB
002411,000059: 4032 56006 XCH BBANK
002412,000060: 4033 13233 TCF MARKRUPT
002413,000061:
002414,000062: 4034 52011 DXCH ARUPT # UPRUPT
002415,000063: 4035 34057 CAF UPRPTBB
002416,000064: 4036 56006 XCH BBANK
002417,000065: 4037 13526 TCF UPRUPT
002418,000066:
002419,000067: 4040 52011 DXCH ARUPT # DOWNRUPT
002420,000068: 4041 34061 CAF DWNRPTBB
002421,000069: 4042 56006 XCH BBANK
002422,000070: 4043 12117 TCF DODOWNTM
002423,000071:
002424,000072: 4044 52011 DXCH ARUPT # RADAR RUPT
002425,000073: 4045 34062 CAF RDRPTBB
002426,000074: 4046 56006 XCH BBANK
002427,000075:
002428,000076:
![]() |
Page 55 |
002430,000078: 4047 15754 TCF NOQRSM +1 # WAS TCF RADAREAD (NO RADAR IN 206).
002431,000079:
002432,000080: # TRAPS 31B AND 32 SHOULD NEVER BE SET. THEREFORE-
002433,000081: # RUPT 10 WILL ALWAYS REFER TO THE HAND CONTROLLER LPD OR MINIMUM IMPULSE
002434,000082: # USE. SEE GEORGE CHERRY FOR RATIONALE REGARDING THE AFORESAID.
002435,000083:
002436,000084: 4050 52011 DXCH ARUPT # RUPT10 USED FOR RHC MINIMP MODE ONLY.
002437,000085: 4051 37754 CAF TWO
002438,000086: 4052 55007 TS DELAYCTR
002439,000087: 4053 15755 TCF NOQBRSM
002440,000088:
002441,000089: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
002442,000090: 4054 02003 GOBB BBCON GOPROG
002443,000091:
002444,000092: 4055 0025 EBANK= TIME1
002445,000093: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER***
002446,000094:
002447,000095: 4056 E3,1400 EBANK= LST1
002448,000096: 4056 02003 T3RPTBB BBCON T3RUPT
002449,000097:
002450,000098: 4057 0073 EBANK= KEYTEMP1
002451,000099: 4057 26000 KEYRPTBB BBCON KEYRUPT1
002452,000100:
002453,000101: 4060 E3,1467 EBANK= AOTAZ
002454,000102: 4060 26003 MKRUPTBB BBCON MARKRUPT
002455,000103:
002456,000104: 4061 4057 UPRPTBB = KEYRPTBB
002457,000105:
002458,000106: 4061 E7,1404 EBANK= DNTMBUFF
002459,000107: 4061 32007 DWNRPTBB BBCON DODOWNTM
002460,000108:
002461,000109: 4062 0413 EBANK= RADMODES
002462,000110: 4062 20001 RDRPTBB BBCON RADAREAD
002463,000111:
002464,000112: 4063 E6,1404 EBANK= M11
002465,000113: 4063 24006 T4RPTBB BBCON T4RUPTA
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc