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