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,1970Note 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