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 Linden Sims. 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:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

007244,000002:                                                                                                  ## Copyright:   Public domain.
007245,000003:                                                                                                  ## Filename:    INTERRUPT_LEAD_INS.agc
007246,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
007247,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
007248,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
007249,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
007250,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
007251,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
007252,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
007253,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
007254,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
007255,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
007256,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
007257,000015:                                                                                                  ## Reference:   pp. 159-160
007258,000016:                                                                                                  ## Assembler:   yaYUL
007259,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
007260,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
007261,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
007262,000020:                                                                                                  ##              2017-08-17 MAS  Updated for Zerlina 56 (no changes).
007263,000021: 

Page 159

007265,000023:    4000                                           SETLOC   4000                                  
007266,000024: 
007267,000025:    4000                                           COUNT*   $$/RUPTS                              #  FIX-FIX LEAD INS
007268,000026:    4000           00004                           INHINT                                         #  GO
007269,000027:    4001           34054                           CAF      GOBB                                  
007270,000028:    4002           56006                           XCH      BBANK                                 
007271,000029:    4003           12703                           TCF      GOPROG                                
007272,000030: 
007273,000031:    4004           52011                           DXCH     ARUPT                                 #  T6RUPT
007274,000032:    4005           00006                           EXTEND                                         
007275,000033:    4006           34056                           DCA      T6ADR                                 
007276,000034:    4007           52006                           DTCB                                           
007277,000035: 
007278,000036:    4010           52011                           DXCH     ARUPT                                 #  T5RUPT - AUTOPILOT
007279,000037:    4011           00006                           EXTEND                                         
007280,000038:    4012           31264                           DCA      T5ADR                                 
007281,000039:    4013           52006                           DTCB                                           
007282,000040: 
007283,000041:    4014           52011                           DXCH     ARUPT                                 #  T3RUPT
007284,000042:    4015           34057                           CAF      T3RPTBB                               
007285,000043:    4016           56006                           XCH      BBANK                                 
007286,000044:    4017           13412                           TCF      T3RUPT                                
007287,000045: 
007288,000046:    4020           52011                           DXCH     ARUPT                                 #  T4RUPT
007289,000047:    4021           34064                           CAF      T4RPTBB                               
007290,000048:    4022           56006                           XCH      BBANK                                 
007291,000049:    4023           12000                           TCF      T4RUPT                                
007292,000050: 
007293,000051:    4024           52011                           DXCH     ARUPT                                 #  KEYRUPT1
007294,000052:    4025           34060                           CAF      KEYRPTBB                              
007295,000053:    4026           56006                           XCH      BBANK                                 
007296,000054:    4027           13261                           TCF      KEYRUPT1                              
007297,000055: 
007298,000056:    4030           52011                           DXCH     ARUPT                                 #  KEYRUPT2
007299,000057:    4031           34061                           CAF      MKRUPTBB                              
007300,000058:    4032           56006                           XCH      BBANK                                 
007301,000059:    4033           12332                           TCF      MARKRUPT                              
007302,000060: 
007303,000061:    4034           52011                           DXCH     ARUPT                                 #  UPRUPT
007304,000062:    4035           34060                           CAF      UPRPTBB                               
007305,000063:    4036           56006                           XCH      BBANK                                 
007306,000064:    4037           13304                           TCF      UPRUPT                                
007307,000065: 
007308,000066:    4040           52011                           DXCH     ARUPT                                 #  DOWNRUPT
007309,000067:    4041           34062                           CAF      DWNRPTBB                              
007310,000068:    4042           56006                           XCH      BBANK                                 
007311,000069:    4043           13507                           TCF      DODOWNTM                              
007312,000070: 
007313,000071:    4044           52011                           DXCH     ARUPT                                 #  RADAR RUPT
007314,000072:    4045           34063                           CAF      RDRPTBB                               

Page 160

007316,000074:    4046           56006                           XCH      BBANK                                 
007317,000075:    4047           13156                           TCF      RADAREAD                              
007318,000076: 
007319,000077:    4050           52011                           DXCH     ARUPT                                 #  RUPT10 IS USED ONLY BY LANDING GUIDANCE
007320,000078:    4051           34065                           CA       RUPT10BB                              
007321,000079:    4052           56006                           XCH      BBANK                                 
007322,000080:    4053           12453                           TCF      PITFALL                               
007323,000081: 
007324,000082: 
007325,000083:    4054  E3,1400                                  EBANK=   LST1                                  #  RESTART USES E0, E3
007326,000084:    4054           12103        GOBB               BBCON    GOPROG                                
007327,000085: 
007328,000086:    4055  E6,1464                                  EBANK=   PERROR                                
007329,000087:    4055           02117 36106  T6ADR              2CADR    DOT6RUPT                              
007330,000088: 
007331,000089: 
007332,000090:    4057  E3,1400                                  EBANK=   LST1                                  
007333,000091:    4057           02103        T3RPTBB            BBCON    T3RUPT                                
007334,000092: 
007335,000093:    4060     0073                                  EBANK=   KEYTEMP1                              
007336,000094:    4060           10100        KEYRPTBB           BBCON    KEYRUPT1                              
007337,000095: 
007338,000096:    4061  E7,1404                                  EBANK=   AOTAZ                                 
007339,000097:    4061           16107        MKRUPTBB           BBCON    MARKRUPT                              
007340,000098: 
007341,000099:    4062     4060               UPRPTBB            =        KEYRPTBB                              
007342,000100: 
007343,000101:    4062     0340                                  EBANK=   DNTMBUFF                              
007344,000102:    4062           12100        DWNRPTBB           BBCON    DODOWNTM                              
007345,000103: 
007346,000104:    4063  E7,1453                                  EBANK=   TTOGO                                 
007347,000105:    4063           52107        RDRPTBB            BBCON    RADAREAD                              
007348,000106: 
007349,000107:    4064  E6,1414                                  EBANK=   M11                                   
007350,000108:    4064           14106        T4RPTBB            BBCON    T4RUPT                                
007351,000109: 
007352,000110:    4065  E7,1647                                  EBANK=   ELVIRA                                
007353,000111:    4065           46107        RUPT10BB           BBCON    PITFALL                               

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