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. |
047810,000002: ## Copyright: Public domain.
047811,000003: ## Filename: SINGLE_PRECISION_SUBROUTINES.agc
047812,000004: ## Purpose: A log section of Zerlina 56, the final revision of
047813,000005: ## Don Eyles's offline development program for the variable
047814,000006: ## guidance period servicer. It also includes a new P66 with LPD
047815,000007: ## (Landing Point Designator) capability, based on an idea of John
047816,000008: ## Young's. Neither of these advanced features were actually flown,
047817,000009: ## but Zerlina was also the birthplace of other big improvements to
047818,000010: ## Luminary including the terrain model and new (Luminary 1E)
047819,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
047820,000012: ## and revision 56 includes all changes up to and including Luminary
047821,000013: ## 183. It is therefore quite close to the Apollo 14 program,
047822,000014: ## Luminary 178, where not modified with new features.
047823,000015: ## Reference: p. 1093
047824,000016: ## Assembler: yaYUL
047825,000017: ## Contact: Ron Burkey <info@sandroid.org>.
047826,000018: ## Website: www.ibiblio.org/apollo/index.html
047827,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
047828,000020: ## 2017-08-28 MAS Updated for Zerlina 56.
047829,000021:
|
|
Page 1093 |
047831,000023: 5032 BLOCK 02
047832,000024: # SINGLE PRECISION SINE AND COSINE
047833,000025:
047834,000026: 5032 COUNT* $$/INTER
047835,000027: 5032 64736 SPCOS AD HALF # ARGUMENTS SCALED AT PI
047836,000028: 5033 55075 SPSIN TS TEMK
047837,000029: 5034 15036 TCF SPT
047838,000030: 5035 41075 CS TEMK
047839,000031: 5036 60000 SPT DOUBLE
047840,000032: 5037 55075 TS TEMK
047841,000033: 5040 15051 TCF POLLEY
047842,000034: 5041 57075 XCH TEMK
047843,000035: 5042 51075 INDEX TEMK
047844,000036: 5043 64734 AD LIMITS
047845,000037: 5044 40000 COM
047846,000038: 5045 61075 AD TEMK
047847,000039: 5046 55075 TS TEMK
047848,000040: 5047 15051 TCF POLLEY
047849,000041: 5050 15067 TCF ARG90
047850,000042: 5051 00006 POLLEY EXTEND
047851,000043: 5052 71075 MP TEMK
047852,000044: 5053 55076 TS SQ
047853,000045: 5054 00006 EXTEND
047854,000046: 5055 75005 MP C5/2
047855,000047: 5056 67751 AD C3/2
047856,000048: 5057 00006 EXTEND
047857,000049: 5060 71076 MP SQ
047858,000050: 5061 67731 AD C1/2
047859,000051: 5062 00006 EXTEND
047860,000052: 5063 71075 MP TEMK
047861,000053: 5064 20001 DDOUBL
047862,000054: 5065 55075 TS TEMK
047863,000055: 5066 00002 TC Q
047864,000056: 5067 50000 ARG90 INDEX A
047865,000057: 5070 44734 CS LIMITS
047866,000058: 5071 00002 TC Q # RESULT SCALED AT 1
End of include-file SINGLE_PRECISION_SUBROUTINES.agc. Parent file is MAIN.agc