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.

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