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.

002354,000002:                                                                                                  ## Copyright:   Public domain.
002355,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
002356,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
002357,000005:                                                                                                  ##              It is part of an early development version of the software
002358,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
002359,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
002360,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
002361,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
002362,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
002363,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
002364,000012:                                                                                                  ##              that the code format has been changed to conform to the
002365,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
002366,000014:                                                                                                  ##              original YUL assembler.
002367,000015:                                                                                                  ## Reference:   pp. 54-55
002368,000016:                                                                                                  ## Assembler:   yaYUL
002369,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
002370,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
002371,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
002372,000020:                                                                                                  ##              2017-05-27 HG   Transcribed
002373,000021:                                                                                                  ##              2017-06-21 RSB  Proofed using octopus/ProoferComments.
002374,000022: 
002375,000023: 

Page 54

002377,000025:    4000                                           SETLOC   4000                                  
002378,000026: 
002379,000027:    4000           00004                           INHINT                                         #  GO
002380,000028:    4001           34054                           CAF      GOBB                                  
002381,000029:    4002           56006                           XCH      BBANK                                 
002382,000030:    4003           12142                           TCF      GOPROG                                
002383,000031: 
002384,000032:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
002385,000033:    4005           00006                           EXTEND                                         
002386,000034:    4006           35040                           DCA      T6ADR                                 
002387,000035:    4007           52006                           DTCB                                           
002388,000036: 
002389,000037:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT
002390,000038:    4011           00006                           EXTEND                                         
002391,000039:    4012           31001                           DCA      T5ADR                                 
002392,000040:    4013           52006                           DTCB                                           
002393,000041: 
002394,000042:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
002395,000043:    4015           34056                           CAF      T3RPTBB                               
002396,000044:    4016           56006                           XCH      BBANK                                 
002397,000045:    4017           13530                           TCF      T3RUPT                                
002398,000046: 
002399,000047:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
002400,000048:    4021           34063                           CAF      T4RPTBB                               
002401,000049:    4022           56006                           XCH      BBANK                                 
002402,000050:    4023           12000                           TCF      T4RUPT                                
002403,000051: 
002404,000052:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
002405,000053:    4025           34057                           CAF      KEYRPTBB                              
002406,000054:    4026           56006                           XCH      BBANK                                 
002407,000055:    4027           13506                           TCF      KEYRUPT1                              
002408,000056: 
002409,000057:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
002410,000058:    4031           34060                           CAF      MKRUPTBB                              
002411,000059:    4032           56006                           XCH      BBANK                                 
002412,000060:    4033           13233                           TCF      MARKRUPT                              
002413,000061: 
002414,000062:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
002415,000063:    4035           34057                           CAF      UPRPTBB                               
002416,000064:    4036           56006                           XCH      BBANK                                 
002417,000065:    4037           13526                           TCF      UPRUPT                                
002418,000066: 
002419,000067:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
002420,000068:    4041           34061                           CAF      DWNRPTBB                              
002421,000069:    4042           56006                           XCH      BBANK                                 
002422,000070:    4043           12117                           TCF      DODOWNTM                              
002423,000071: 
002424,000072:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
002425,000073:    4045           34062                           CAF      RDRPTBB                               
002426,000074:    4046           56006                           XCH      BBANK                                 
002427,000075: 
002428,000076: 

Page 55

002430,000078:    4047           15754                           TCF      NOQRSM     +1                         #  WAS TCF RADAREAD (NO RADAR IN 206).
002431,000079: 
002432,000080:                                                                                                  #  TRAPS 31B AND 32 SHOULD NEVER BE SET. THEREFORE-
002433,000081:                                                                                                  #  RUPT 10 WILL ALWAYS REFER TO THE HAND CONTROLLER LPD OR MINIMUM IMPULSE
002434,000082:                                                                                                  #  USE. SEE GEORGE CHERRY FOR RATIONALE REGARDING THE AFORESAID.
002435,000083: 
002436,000084:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 USED FOR RHC MINIMP MODE ONLY.
002437,000085:    4051           37754                           CAF      TWO                                   
002438,000086:    4052           55007                           TS       DELAYCTR                              
002439,000087:    4053           15755                           TCF      NOQBRSM                               
002440,000088: 
002441,000089:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0, E3
002442,000090:    4054           02003        GOBB               BBCON    GOPROG                                
002443,000091: 
002444,000092:    4055     0025                                  EBANK=   TIME1                                 
002445,000093:    4055           04000        T6RPTBB            BBCON    RESUME                                #  ***FIX LATER***
002446,000094: 
002447,000095:    4056  E3,1400                                  EBANK=   LST1                                  
002448,000096:    4056           02003        T3RPTBB            BBCON    T3RUPT                                
002449,000097: 
002450,000098:    4057     0073                                  EBANK=   KEYTEMP1                              
002451,000099:    4057           26000        KEYRPTBB           BBCON    KEYRUPT1                              
002452,000100: 
002453,000101:    4060  E3,1467                                  EBANK=   AOTAZ                                 
002454,000102:    4060           26003        MKRUPTBB           BBCON    MARKRUPT                              
002455,000103: 
002456,000104:    4061     4057               UPRPTBB            =        KEYRPTBB                              
002457,000105: 
002458,000106:    4061  E7,1404                                  EBANK=   DNTMBUFF                              
002459,000107:    4061           32007        DWNRPTBB           BBCON    DODOWNTM                              
002460,000108: 
002461,000109:    4062     0413                                  EBANK=   RADMODES                              
002462,000110:    4062           20001        RDRPTBB            BBCON    RADAREAD                              
002463,000111: 
002464,000112:    4063  E6,1404                                  EBANK=   M11                                   
002465,000113:    4063           24006        T4RPTBB            BBCON    T4RUPTA                               

End of include-file INTERRUPT_LEAD_INS.agc.  Parent file is MAIN.agc