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