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