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