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.

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

Page 60

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

Page 61

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

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