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