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.

047725,000002:                                                                                                  ## Copyright:   Public domain.
047726,000003:                                                                                                  ## Filename:    INTERPRETIVE_CONSTANTS.agc
047727,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
047728,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
047729,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
047730,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
047731,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
047732,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
047733,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
047734,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
047735,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
047736,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
047737,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
047738,000015:                                                                                                  ## Reference:   pp. 1091-1092
047739,000016:                                                                                                  ## Assembler:   yaYUL
047740,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
047741,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
047742,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
047743,000020:                                                                                                  ##              2017-08-28 MAS  Updated for Zerlina 56.
047744,000021: 

Page 1091

047746,000023: 23,2000                                           SETLOC   INTPRET1                              
047747,000024: 23,2000                                           BANK                                           
047748,000025: 
047749,000026: 23,2507                                           COUNT*   $$/ICONS                              
047750,000027: 23,2507           10000 00000  DP1/4TH            2DEC     .25                                   
047751,000028: 
047752,000029: 23,2511           00000 00000  UNITZ              2DEC     0          B-28                       
047753,000030: 
047754,000031: 23,2513           00000 00000  UNITY              2DEC     0          B-28                       
047755,000032: 
047756,000033: 23,2515           20000 00000  UNITX              2DEC     .5                                    
047757,000034: 
047758,000035: 23,2517           00000 00000  ZEROVECS           2DEC     0          B-28                       
047759,000036: 
047760,000037: 23,2521           00000 00000                     2DEC     0          B-28                       
047761,000038: 
047762,000039: 23,2523           00000 00000                     2DEC     0          B-28                       
047763,000040: 
047764,000041: 23,2525  23,2515               DPHALF             =        UNITX                                 
047765,000042: 23,2525           37777        DPPOSMAX           OCT      37777                                 
047766,000043: 23,2526           37777                           OCT      37777                                 
047767,000044: 

Page 1092

047769,000046:                                                                                                  #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
047770,000047: 
047771,000048: 12,2000                                           SETLOC   INTPRET2                              
047772,000049: 12,2000                                           BANK                                           
047773,000050: 
047774,000051: 12,2000                                           COUNT*   $$/ICONS                              
047775,000052: 12,2000           00000 00000  ZUNIT              2DEC     0          B-28                       
047776,000053: 
047777,000054: 12,2002           00000 00000  YUNIT              2DEC     0          B-28                       
047778,000055: 
047779,000056: 12,2004           20000 00000  XUNIT              2DEC     .5                                    
047780,000057: 
047781,000058: 12,2006           00000 00000  ZEROVEC            2DEC     0          B-28                       
047782,000059: 
047783,000060: 12,2010           00000 00000                     2DEC     0          B-28                       
047784,000061: 
047785,000062: 12,2012           00000 00000                     2DEC     0          B-28                       
047786,000063: 
047787,000064: 12,2014           77777                           OCT      77777                                 #  -0,-6,-12 MUST REMAIN IN THIS ORDER
047788,000065: 12,2015           77771        DFC-6              DEC      -6         B-14                       
047789,000066: 12,2016           77763        DFC-12             DEC      -12        B-14                       
047790,000067: 12,2017           37777 37777  LODPMAX            2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
047791,000068: 
047792,000069: 12,2021           37777 37777  LODPMAX1           2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
047793,000070: 
047794,000071: 12,2023  12,2006               ZERODP             =        ZEROVEC                               
047795,000072: 12,2023  12,2004               HALFDP             =        XUNIT                                 

End of include-file INTERPRETIVE_CONSTANTS.agc.  Parent file is MAIN.agc