Source Code
![]() |
These source code files have been transcribed or otherwise adapted from
digitized images of a hardcopy from the private collection of
Don Eyles. The digitization was performed by archive.org, and
transcription was performed by a team of volunteers.
Note that the page images
presented online are of reduced quality, and that the original
high-quality images are available at archive.org.
Report any conversion errors or legibility problems in page images to info@sandroid.org.
Notations on the program listing read, in part:473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP NOV 10, 1966Note that the date is the date of the printout, not the date of the program revision. |
001179,000002: ## Copyright: Public domain.
001180,000003: ## Filename: INTERRUPT_LEAD_INS.agc
001181,000004: ## Purpose: Part of the source code for Aurora (revision 12).
001182,000005: ## Assembler: yaYUL
001183,000006: ## Contact: Ron Burkey <info@sandroid.org>.
001184,000007: ## Website: https://www.ibiblio.org/apollo.
001185,000008: ## Pages: 27-28
001186,000009: ## Mod history: 2016-09-20 JL Created.
001187,000010: ## 2016-10-04 hg Fix instruction argument, label
001188,000011:
001189,000012: ## This source code has been transcribed or otherwise adapted from
001190,000013: ## digitized images of a hardcopy from the private collection of
001191,000014: ## Don Eyles. The digitization was performed by archive.org.
001192,000015:
001193,000016: ## Notations on the hardcopy document read, in part:
001194,000017:
001195,000018: ## 473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
001196,000019: ## NOV 10, 1966
001197,000020:
001198,000021: ## [Note that this is the date the hardcopy was made, not the
001199,000022: ## date of the program revision or the assembly.]
001200,000023:
001201,000024: ## The scan images (with suitable reduction in storage size and consequent
001202,000025: ## reduction in image quality) are available online at
001203,000026: ## https://www.ibiblio.org/apollo.
001204,000027: ## The original high-quality digital images are available at archive.org:
001205,000028: ## https://archive.org/details/aurora00dapg
001206,000029:
![]() |
Page 27 |
001208,000031: 4000 SETLOC 4000
001209,000032:
001210,000033: 4000 00004 INHINT # GO
001211,000034: 4001 34054 CAF GOBB
001212,000035: 4002 56006 XCH BBANK
001213,000036: 4003 12072 TCF GOPROG
001214,000037:
001215,000038: 4004 52011 DXCH ARUPT # HERE ON A T6RUPT
001216,000039: 4005 00006 EXTEND
001217,000040: 4006 22012 QXCH QRUPT
001218,000041: 4007 14175 TCF DOT6RUPT # DOT6RUPT IS IN FIX-FIXED.(INTR-BANK COM)
001219,000042:
001220,000043: 4010 52011 DXCH ARUPT # T5RUPT
001221,000044: 4011 00006 EXTEND
001222,000045: 4012 30346 DCA T5LOC # T5LOC EQUALS T5ADR
001223,000046: 4013 52006 DTCB
001224,000047:
001225,000048: 4014 52011 DXCH ARUPT # T3RUPT
001226,000049: 4015 34056 CAF T3RPTBB
001227,000050: 4016 56006 XCH BBANK
001228,000051: 4017 12736 TCF T3RUPT
001229,000052:
001230,000053: 4020 52011 DXCH ARUPT # T4RUPT
001231,000054: 4021 37665 CAF ZERO
001232,000055: 4022 14713 TCF T4RUPT
001233,000056: 4023 E6,1404 EBANK= M11
001234,000057: 4023 24006 T4RPTBB BBCON T4RUPTA
001235,000058:
001236,000059: 4024 52011 DXCH ARUPT # KEYRUPT1
001237,000060: 4025 34057 CAF KEYRPTBB
001238,000061: 4026 56006 XCH BBANK
001239,000062: 4027 12362 TCF KEYRUPT1
001240,000063:
001241,000064: 4030 52011 DXCH ARUPT # KEYRUPT2
001242,000065: 4031 34060 CAF MKRUPTBB
001243,000066: 4032 56006 XCH BBANK
001244,000067: 4033 13161 TCF MARKRUPT
001245,000068:
001246,000069: 4034 52011 DXCH ARUPT # UPRUPT
001247,000070: 4035 34057 CAF UPRPTBB
001248,000071: 4036 56006 XCH BBANK
001249,000072: 4037 12402 TCF UPRUPT
001250,000073:
001251,000074: 4040 52011 DXCH ARUPT # DOWNRUPT
001252,000075: 4041 34061 CAF DWNRPTBB
001253,000076: 4042 56006 XCH BBANK
001254,000077: 4043 12047 TCF DODOWNTM
001255,000078:
001256,000079: 4044 52011 DXCH ARUPT # RADAR RUPT
001257,000080: 4045 34062 CAF RDRPTBB
![]() |
Page 28 |
001259,000082: 4046 56006 XCH BBANK
001260,000083: 4047 12707 TCF RADAREAD
001261,000084:
001262,000085: # TRAPS 31B AND 32 SHOULD NEVER BE SET. THEREFORE-
001263,000086: # RUPT 10 WILL ALWAYS REFER TO THE HAND CONTROLLER LPD OR MINIMUM IMPULSE
001264,000087: # USE. SEE GEORGE CHERRY FOR RATIONALE REGARDING THE AFORESAID.
001265,000088:
001266,000089: 4050 52011 DXCH ARUPT # RUPT 10 USED FOR RHC MINIMP MODE ONLY.
001267,000090: 4051 37656 CAF TWO
001268,000091: 4052 54773 TS DELAYCTR
001269,000092: 4053 14610 TCF NOQRSM
001270,000093:
001271,000094: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
001272,000095: 4054 24003 GOBB BBCON GOPROG
001273,000096:
001274,000097: 4055 0025 EBANK= TIME1
001275,000098: 4055 04000 T6RPTBB BBCON RESUME # ***FIX LATER***
001276,000099:
001277,000100: 4056 E3,1400 EBANK= LST1
001278,000101: 4056 02003 T3RPTBB BBCON T3RUPT
001279,000102:
001280,000103: 4057 0077 EBANK= KEYTEMP1
001281,000104: 4057 16000 KEYRPTBB BBCON KEYRUPT1
001282,000105:
001283,000106: 4060 E3,1463 EBANK= AOTAZ
001284,000107: 4060 26003 MKRUPTBB BBCON MARKRUPT
001285,000108:
001286,000109: 4061 4057 UPRPTBB = KEYRPTBB
001287,000110:
001288,000111: 4061 E7,1403 EBANK= DNTMBUFF
001289,000112: 4061 32007 DWNRPTBB BBCON DODOWNTM
001290,000113:
001291,000114: 4062 0413 EBANK= RADMODES
001292,000115: 4062 20001 RDRPTBB BBCON RADAREAD
001293,000116:
001294,000117: 4063 ENDINTFF EQUALS
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc