Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

002494,000002:                                                                                                  ## Copyright:   Public domain.
002495,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
002496,000004:                                                                                                  ## Purpose:     A module for revision 0 of BURST120 (Sunburst).
002497,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
002498,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 5.
002499,000007:                                                                                                  ## Assembler:   yaYUL
002500,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
002501,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
002502,000010:                                                                                                  ## Mod history: 2016-09-30 RSB  Created draft version.
002503,000011:                                                                                                  ##                              I've also corrected this against the Sunburst120
002504,000012:                                                                                                  ##                              scans, so modulo any errors of mine, should be
002505,000013:                                                                                                  ##                              ready to go.
002506,000014:                                                                                                  ##              2016-11-03 RSB  Some SBANK= workarounds.
002507,000015:                                                                                                  ##              2016-12-03 RSB  Fixed 5 comment typos (out of 2 total pages)
002508,000016:                                                                                                  ##                              using octopus/ProoferComments.
002509,000017:                                                                                                  ##              2017-06-17 MAS  Globally removed all SBANK= workarounds.
002510,000018: 

Page 60

002512,000020:    4000                                           SETLOC   4000                                  
002513,000021: 
002514,000022:    4000           00004                           INHINT                                         #  GO
002515,000023:    4001           34054                           CAF      GOBB                                  
002516,000024:    4002           56006                           XCH      BBANK                                 
002517,000025:    4003           12163                           TCF      GOPROG                                
002518,000026: 
002519,000027:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
002520,000028:    4005           00006                           EXTEND                                         
002521,000029:    4006           35051                           DCA      T6ADR                                 
002522,000030:    4007           52006                           DTCB                                           
002523,000031: 
002524,000032:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT
002525,000033:    4011           00006                           EXTEND                                         
002526,000034:    4012           31001                           DCA      T5ADR                                 
002527,000035:    4013           52006                           DTCB                                           
002528,000036: 
002529,000037:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
002530,000038:    4015           34056                           CAF      T3RPTBB                               
002531,000039:    4016           56006                           XCH      BBANK                                 
002532,000040:    4017           13577                           TCF      T3RUPT                                
002533,000041: 
002534,000042:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
002535,000043:    4021           34063                           CAF      T4RPTBB                               
002536,000044:    4022           56006                           XCH      BBANK                                 
002537,000045:    4023           12000                           TCF      T4RUPT                                
002538,000046: 
002539,000047:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
002540,000048:    4025           34057                           CAF      KEYRPTBB                              
002541,000049:    4026           56006                           XCH      BBANK                                 
002542,000050:    4027           13474                           TCF      KEYRUPT1                              
002543,000051: 
002544,000052:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
002545,000053:    4031           34060                           CAF      MKRUPTBB                              
002546,000054:    4032           56006                           XCH      BBANK                                 
002547,000055:    4033           13221                           TCF      MARKRUPT                              
002548,000056: 
002549,000057:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
002550,000058:    4035           34057                           CAF      UPRPTBB                               
002551,000059:    4036           56006                           XCH      BBANK                                 
002552,000060:    4037           13514                           TCF      UPRUPT                                
002553,000061: 
002554,000062:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
002555,000063:    4041           34061                           CAF      DWNRPTBB                              
002556,000064:    4042           56006                           XCH      BBANK                                 
002557,000065:    4043           12001                           TCF      DODOWNTM                              
002558,000066: 
002559,000067:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
002560,000068:    4045           34062                           CAF      RDRPTBB                               
002561,000069:    4046           56006                           XCH      BBANK                                 

Page 61

002563,000071:    4047           15736                           TCF      NOQRSM     +1                         #  WAS TCF RADAREAD (NO RADAR IN 206).
002564,000072: 
002565,000073:                                                                                                  #  TRAPS 31B AND 32 SHOULD NEVER BE SET.  THEREFORE-
002566,000074:                                                                                                  #  RUPT 10 WILL ALWAYS REFER TO THE HAND CONTROLLER LPD OR MINIMUM IMPULSE
002567,000075:                                                                                                  #  USE.  SEE GEORGE CHERRY FOR RATIONALE REGARDING THE AFORESAID.
002568,000076: 
002569,000077:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 USED FOR RHC MINIMP MODE ONLY.
002570,000078:    4051           37762                           CAF      TWO                                   
002571,000079:    4052           55007                           TS       DELAYCTR                              
002572,000080:    4053           15737                           TCF      NOQBRSM                               
002573,000081: 
002574,000082:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0, E3
002575,000083:    4054           02003        GOBB               BBCON    GOPROG                                
002576,000084: 
002577,000085:    4055     0025                                  EBANK=   TIME1                                 
002578,000086:    4055           04000        T6RPTBB            BBCON    RESUME                                #  ***FIX LATER***
002579,000087: 
002580,000088:    4056  E3,1400                                  EBANK=   LST1                                  
002581,000089:    4056           02003        T3RPTBB            BBCON    T3RUPT                                
002582,000090: 
002583,000091:    4057     0073                                  EBANK=   KEYTEMP1                              
002584,000092:    4057           26000        KEYRPTBB           BBCON    KEYRUPT1                              
002585,000093: 
002586,000094:    4060  E3,1467                                  EBANK=   AOTAZ                                 
002587,000095:    4060           26003        MKRUPTBB           BBCON    MARKRUPT                              
002588,000096: 
002589,000097:    4061     4057               UPRPTBB            =        KEYRPTBB                              
002590,000098: 
002591,000099:    4061  E7,1407                                  EBANK=   DNTMBUFF                              
002592,000100:    4061           32007        DWNRPTBB           BBCON    DODOWNTM                              
002593,000101: 
002594,000102:    4062     0412                                  EBANK=   RADMODES                              
002595,000103:    4062           20001        RDRPTBB            BBCON    RADAREAD                              
002596,000104: 
002597,000105:    4063  E6,1404                                  EBANK=   M11                                   
002598,000106:    4063           24006        T4RPTBB            BBCON    T4RUPTA                               
002599,000107: 
002600,000108: 

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