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.
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. |
007246,000002: ## Copyright: Public domain.
007247,000003: ## Filename: INTERRUPT_LEAD_INS.agc
007248,000004: ## Purpose: A log section of Zerlina 56, the final revision of
007249,000005: ## Don Eyles's offline development program for the variable
007250,000006: ## guidance period servicer. It also includes a new P66 with LPD
007251,000007: ## (Landing Point Designator) capability, based on an idea of John
007252,000008: ## Young's. Neither of these advanced features were actually flown,
007253,000009: ## but Zerlina was also the birthplace of other big improvements to
007254,000010: ## Luminary including the terrain model and new (Luminary 1E)
007255,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
007256,000012: ## and revision 56 includes all changes up to and including Luminary
007257,000013: ## 183. It is therefore quite close to the Apollo 14 program,
007258,000014: ## Luminary 178, where not modified with new features.
007259,000015: ## Reference: pp. 159-160
007260,000016: ## Assembler: yaYUL
007261,000017: ## Contact: Ron Burkey <info@sandroid.org>.
007262,000018: ## Website: www.ibiblio.org/apollo/index.html
007263,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
007264,000020: ## 2017-08-17 MAS Updated for Zerlina 56 (no changes).
007265,000021:
|
|
Page 159 |
007267,000023: 4000 SETLOC 4000
007268,000024:
007269,000025: 4000 COUNT* $$/RUPTS # FIX-FIX LEAD INS
007270,000026: 4000 00004 INHINT # GO
007271,000027: 4001 34054 CAF GOBB
007272,000028: 4002 56006 XCH BBANK
007273,000029: 4003 12703 TCF GOPROG
007274,000030:
007275,000031: 4004 52011 DXCH ARUPT # T6RUPT
007276,000032: 4005 00006 EXTEND
007277,000033: 4006 34056 DCA T6ADR
007278,000034: 4007 52006 DTCB
007279,000035:
007280,000036: 4010 52011 DXCH ARUPT # T5RUPT - AUTOPILOT
007281,000037: 4011 00006 EXTEND
007282,000038: 4012 31264 DCA T5ADR
007283,000039: 4013 52006 DTCB
007284,000040:
007285,000041: 4014 52011 DXCH ARUPT # T3RUPT
007286,000042: 4015 34057 CAF T3RPTBB
007287,000043: 4016 56006 XCH BBANK
007288,000044: 4017 13412 TCF T3RUPT
007289,000045:
007290,000046: 4020 52011 DXCH ARUPT # T4RUPT
007291,000047: 4021 34064 CAF T4RPTBB
007292,000048: 4022 56006 XCH BBANK
007293,000049: 4023 12000 TCF T4RUPT
007294,000050:
007295,000051: 4024 52011 DXCH ARUPT # KEYRUPT1
007296,000052: 4025 34060 CAF KEYRPTBB
007297,000053: 4026 56006 XCH BBANK
007298,000054: 4027 13261 TCF KEYRUPT1
007299,000055:
007300,000056: 4030 52011 DXCH ARUPT # KEYRUPT2
007301,000057: 4031 34061 CAF MKRUPTBB
007302,000058: 4032 56006 XCH BBANK
007303,000059: 4033 12332 TCF MARKRUPT
007304,000060:
007305,000061: 4034 52011 DXCH ARUPT # UPRUPT
007306,000062: 4035 34060 CAF UPRPTBB
007307,000063: 4036 56006 XCH BBANK
007308,000064: 4037 13304 TCF UPRUPT
007309,000065:
007310,000066: 4040 52011 DXCH ARUPT # DOWNRUPT
007311,000067: 4041 34062 CAF DWNRPTBB
007312,000068: 4042 56006 XCH BBANK
007313,000069: 4043 13507 TCF DODOWNTM
007314,000070:
007315,000071: 4044 52011 DXCH ARUPT # RADAR RUPT
007316,000072: 4045 34063 CAF RDRPTBB
|
|
Page 160 |
007318,000074: 4046 56006 XCH BBANK
007319,000075: 4047 13156 TCF RADAREAD
007320,000076:
007321,000077: 4050 52011 DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
007322,000078: 4051 34065 CA RUPT10BB
007323,000079: 4052 56006 XCH BBANK
007324,000080: 4053 12453 TCF PITFALL
007325,000081:
007326,000082:
007327,000083: 4054 E3,1400 EBANK= LST1 # RESTART USES E0, E3
007328,000084: 4054 12103 GOBB BBCON GOPROG
007329,000085:
007330,000086: 4055 E6,1464 EBANK= PERROR
007331,000087: 4055 02117 36106 T6ADR 2CADR DOT6RUPT
007332,000088:
007333,000089:
007334,000090: 4057 E3,1400 EBANK= LST1
007335,000091: 4057 02103 T3RPTBB BBCON T3RUPT
007336,000092:
007337,000093: 4060 0073 EBANK= KEYTEMP1
007338,000094: 4060 10100 KEYRPTBB BBCON KEYRUPT1
007339,000095:
007340,000096: 4061 E7,1404 EBANK= AOTAZ
007341,000097: 4061 16107 MKRUPTBB BBCON MARKRUPT
007342,000098:
007343,000099: 4062 4060 UPRPTBB = KEYRPTBB
007344,000100:
007345,000101: 4062 0340 EBANK= DNTMBUFF
007346,000102: 4062 12100 DWNRPTBB BBCON DODOWNTM
007347,000103:
007348,000104: 4063 E7,1453 EBANK= TTOGO
007349,000105: 4063 52107 RDRPTBB BBCON RADAREAD
007350,000106:
007351,000107: 4064 E6,1414 EBANK= M11
007352,000108: 4064 14106 T4RPTBB BBCON T4RUPT
007353,000109:
007354,000110: 4065 E7,1647 EBANK= ELVIRA
007355,000111: 4065 46107 RUPT10BB BBCON PITFALL
End of include-file INTERRUPT_LEAD_INS.agc. Parent file is MAIN.agc