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. |
047736,000002: ## Copyright: Public domain.
047737,000003: ## Filename: INTERPRETIVE_CONSTANTS.agc
047738,000004: ## Purpose: A log section of Zerlina 56, the final revision of
047739,000005: ## Don Eyles's offline development program for the variable
047740,000006: ## guidance period servicer. It also includes a new P66 with LPD
047741,000007: ## (Landing Point Designator) capability, based on an idea of John
047742,000008: ## Young's. Neither of these advanced features were actually flown,
047743,000009: ## but Zerlina was also the birthplace of other big improvements to
047744,000010: ## Luminary including the terrain model and new (Luminary 1E)
047745,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
047746,000012: ## and revision 56 includes all changes up to and including Luminary
047747,000013: ## 183. It is therefore quite close to the Apollo 14 program,
047748,000014: ## Luminary 178, where not modified with new features.
047749,000015: ## Reference: pp. 1091-1092
047750,000016: ## Assembler: yaYUL
047751,000017: ## Contact: Ron Burkey <info@sandroid.org>.
047752,000018: ## Website: www.ibiblio.org/apollo/index.html
047753,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
047754,000020: ## 2017-08-28 MAS Updated for Zerlina 56.
047755,000021: ## 2021-05-30 ABS DFC-6 -> DEC-6, DFC-12 -> DEC-12
047756,000022:
|
|
Page 1091 |
047758,000024: 23,2000 SETLOC INTPRET1
047759,000025: 23,2000 BANK
047760,000026:
047761,000027: 23,2507 COUNT* $$/ICONS
047762,000028: 23,2507 10000 00000 DP1/4TH 2DEC .25
047763,000029:
047764,000030: 23,2511 00000 00000 UNITZ 2DEC 0 B-28
047765,000031:
047766,000032: 23,2513 00000 00000 UNITY 2DEC 0 B-28
047767,000033:
047768,000034: 23,2515 20000 00000 UNITX 2DEC .5
047769,000035:
047770,000036: 23,2517 00000 00000 ZEROVECS 2DEC 0 B-28
047771,000037:
047772,000038: 23,2521 00000 00000 2DEC 0 B-28
047773,000039:
047774,000040: 23,2523 00000 00000 2DEC 0 B-28
047775,000041:
047776,000042: 23,2525 23,2515 DPHALF = UNITX
047777,000043: 23,2525 37777 DPPOSMAX OCT 37777
047778,000044: 23,2526 37777 OCT 37777
047779,000045:
|
|
Page 1092 |
047781,000047: # INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047782,000048:
047783,000049: 12,2000 SETLOC INTPRET2
047784,000050: 12,2000 BANK
047785,000051:
047786,000052: 12,2000 COUNT* $$/ICONS
047787,000053: 12,2000 00000 00000 ZUNIT 2DEC 0 B-28
047788,000054:
047789,000055: 12,2002 00000 00000 YUNIT 2DEC 0 B-28
047790,000056:
047791,000057: 12,2004 20000 00000 XUNIT 2DEC .5
047792,000058:
047793,000059: 12,2006 00000 00000 ZEROVEC 2DEC 0 B-28
047794,000060:
047795,000061: 12,2010 00000 00000 2DEC 0 B-28
047796,000062:
047797,000063: 12,2012 00000 00000 2DEC 0 B-28
047798,000064:
047799,000065: 12,2014 77777 OCT 77777 # -0,-6,-12 MUST REMAIN IN THIS ORDER
047800,000066: 12,2015 77771 DEC-6 DEC -6 B-14
047801,000067: 12,2016 77763 DEC-12 DEC -12 B-14
047802,000068: 12,2017 37777 37777 LODPMAX 2OCT 3777737777 # THESE TWO CONSTANTS MUST REMAIN
047803,000069:
047804,000070: 12,2021 37777 37777 LODPMAX1 2OCT 3777737777 # ADJACENT AND THE SAME FOR INTEGRATION
047805,000071:
047806,000072: 12,2023 12,2006 ZERODP = ZEROVEC
047807,000073: 12,2023 12,2004 HALFDP = XUNIT
End of include-file INTERPRETIVE_CONSTANTS.agc. Parent file is MAIN.agc