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.

009496,000002:                                                                                                  ## Copyright:   Public domain.
009497,000003:                                                                                                  ## Filename:    AGS_INITIALIZATION.agc
009498,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
009499,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
009500,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
009501,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
009502,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
009503,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
009504,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
009505,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
009506,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
009507,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
009508,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
009509,000015:                                                                                                  ## Reference:   pp. 213-217
009510,000016:                                                                                                  ## Assembler:   yaYUL
009511,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
009512,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
009513,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
009514,000020:                                                                                                  ##              2017-08-26 TVB  Updated for Zerlina 56.
009515,000021: 

Page 213

009517,000023:                                                                                                  #  PROGRAM NAME:   AGS INITIALIZATION (R47)
009518,000024: 
009519,000025:                                                                                                  #  WRITTEN BY  :   RHODE/KILROY/FOLLETT
009520,000026: 
009521,000027:                                                                                                  #  MOD NO. :       0
009522,000028:                                                                                                  #  DATE    :       23 MARCH 1967
009523,000029:                                                                                                  #  MOD BY  :       KILROY
009524,000030: 
009525,000031:                                                                                                  #  MOD NO. :       1
009526,000032:                                                                                                  #  DATE    :       28 OCTOBER 1967
009527,000033:                                                                                                  #  MOD BY  :       FOLLETT
009528,000034: 
009529,000035:                                                                                                  #  FUNCT. DESC.:   (1) TO PROVIDE THE AGS ABORT ELECTRONICS ASSEMBLY(AEA) WITH THE LEM AND CSM STATE VECTORS
009530,000036:                                                                                                  #                  (POSITION,VELOCITY,TIME) IN LEM IMU COORDINATES BY MEANS OF THE LGC DIGITAL DOWNLINK.
009531,000037: 
009532,000038:                                                                                                  #                  (2) TO ZERO THE ICDU, LGC AND AEA GIMBAL ANGLE COUNTERS SIMULTANEOUSLY IN ORDER TO ESTABLISH A
009533,000039:                                                                                                  #                  COMMON ZERO REFERENCE FOR THE MEASUREMENT OF GIMBAL(EULER) ANGLES WHICH DEFINE LEM ATTITUDE
009534,000040:                                                                                                  #                  (3) TO ESTABLISH THE GROUND ELAPSED TIME OF AEA CLOCK ZERO.(IF AN AEA CLOCK ZERO IS
009535,000041:                                                                                                  #                  REQUESTED DURING THIS PROGRAM
009536,000042: 
009537,000043:                                                                                                  #  LOG SECTION :   AGS INITIALIZATION
009538,000044: 
009539,000045:                                                                                                  #  CALLING SEQ :   PROGRAM IS ENTERED WHEN ASTRONAUT KEYS V47E ON DSKY.
009540,000046:                                                                                                  #                  R47 MAY BE CALLED AT ANY TIME EXCEPT WHEN ANOTHER EXTENDED VERB IS IN PROGRESS
009541,000047: 
009542,000048:                                                                                                  #  SUBROUTINES
009543,000049:                                                                                                  #  CALLED      :
009544,000050: 
009545,000051:                                                                                                  #  NORMAL EXIT :  ENDEXT
009546,000052: 
009547,000053:                                                                                                  #  ALARM/ABORT :  ALARM - BAD REFSMMAT - CODE:220
009548,000054:                                                                                                  #                 OPERATOR ERROR IF V47 SELECTED DURING ANOTHER EXTENDED VERB.
009549,000055: 
009550,000056:                                                                                                  #  ERASABLES
009551,000057:                                                                                                  #  USED        :  SAMPTIME    (2) TIME OF :ENTER: KEYSTROKE
009552,000058:                                                                                                  #                 AGSK        (2) GROUND ELAPSED TIME OF THE AEA CLOCK :ZERO:
009553,000059:                                                                                                  #                 AGSBUFF   (140) CONTAINS AGS INITIALIZATION DATA (SEE :OUTPUT: BELOW)
009554,000060:                                                                                                  #                 AGSWORD     (1) PREVIOUS DOWNLIST SAVED HERE
009555,000061: 
009556,000062: 05,2464  E6,1771                                  EBANK=   AGSK                                  
009557,000063: 40,2000                                           BANK     40                                    
009558,000064: 32,2000                                           SETLOC   R47                                   
009559,000065: 32,2000                                           BANK                                           
009560,000066: 
009561,000067: 32,2005                                           COUNT*   $$/R47                                
009562,000068: 
009563,000069: 32,2005           34737        AGSINIT            CAF      REFSMBIT                              
009564,000070: 32,2006           70077                           MASK     FLAGWRD3                              #  CHECK REFSMFLG.
009565,000071: 32,2007           10000                           CCS      A                                     
009566,000072: 32,2010           02017                           TC       REDSPTEM                              #  REFSMMAT IS OK

Page 214

009568,000074: 32,2011           05600                           TC       ALARM                                 #  REFSMMAT IS BAD
009569,000075: 32,2012           00220                           OCT      220                                   
009570,000076: 32,2013           05503                           TC       ENDEXT                                
009571,000077: 
009572,000078: 32,2014           00006        NEWAGS             EXTEND                                         
009573,000079: 32,2015           30014                           DCA      SAMPTIME                              #  TIME OF THE :ENTER: KEYSTROKE
009574,000080: 32,2016           53772                           DXCH     AGSK                                  #  BECOMES NEW AEA CLOCK :ZERO:
009575,000081: 
009576,000082: 32,2017           00006        REDSPTEM           EXTEND                                         
009577,000083: 32,2020           31772                           DCA      AGSK                                  
009578,000084: 32,2021           53051                           DXCH     DSPTEMX                               
009579,000085: 32,2022           32172        AGSDISPK           CAF      V06N16                                
009580,000086: 32,2023           04616                           TC       BANKCALL                              #  R1 = 00XXX. HRS., R2 = 000XX MIN.,
009581,000087: 32,2024           20334                           CADR     GOMARKF                               #  R3 = 0XX.XX SEC.
009582,000088: 32,2025           05503                           TC       ENDEXT                                #  TERMINATE RETURN
009583,000089: 32,2026           02036                           TC       AGSVCALC                              #  PROCEED RETURN
009584,000090: 32,2027           44746                           CS       BIT6                                  #  IS ENTER VIA A V32
009585,000091: 32,2030           60154                           AD       MPAC                                  
009586,000092: 32,2031           00006                           EXTEND                                         
009587,000093: 32,2032           12014                           BZF      NEWAGS                                #  YES, USE KEYSTROKE TIME FOR NEW AGSK
009588,000094: 
009589,000095: 32,2033           00006                           EXTEND                                         #  NO, NEW AGSK LOADED VIA V25
009590,000096: 32,2034           31051                           DCA      DSPTEMX                               #  LOADED INTO DSPTEMX BY KEYING
009591,000097: 32,2035           02016                           TC       REDSPTEM   -1                         #  V25E FOLLOWED BY HRS.,MINS.,SECS.
009592,000098:                                                                                                  #  DISPLAY THE NEW K
009593,000099: 
009594,000100: 32,2036           06051        AGSVCALC           TC       INTPRET                               
009595,000101: 32,2037           77614                           SET                                            
009596,000102: 32,2040           01076                                    NODOFLAG                              #  DONT ALLOW V37
009597,000103: 32,2041           77414                           SET      EXIT                                  
009598,000104: 32,2042           02076                                    XDSPFLAG                              
009599,000105: 
009600,000106: 32,2043           32172                           CAF      V06N16                                
009601,000107: 32,2044           04616                           TC       BANKCALL                              
009602,000108: 32,2045           20621                           CADR     EXDSPRET                              
009603,000109: 
009604,000110: 32,2046           06051                           TC       INTPRET                               #  EXTRAPOLATE LEM AND CSM STATE VECTORS
009605,000111: 32,2047           77634                           RTB                                            #  TO THE PRESENT TIME
009606,000112: 32,2050           21555                                    LOADTIME                              #  LOAD MPAC WITH TIME2,TIME1
009607,000113: 32,2051           34041                           STCALL   TDEC1                                 #  CALCULATE LEM STATE VECTOR
009608,000114: 32,2052           27056                                    LEMPREC                               
009609,000115: 32,2053           77624                           CALL                                           #  CALL ROUTINE TO CONVERT TO SM COORDS AND
009610,000116: 32,2054           64132                                    SCALEVEC                              #  PROVIDE PROPER SCALING
009611,000117: 32,2055           16172                           STODL    AGSBUFF                               #  (LEMPREC AND CSMPREC LEAVE TDEC1 IN TAT)
009612,000118: 32,2056           00015                                    TAT                                   #  TAT = TIME TO WHICH RATT1 AND VATT1 ARE
009613,000119: 32,2057           34041                           STCALL   TDEC1                                 #  COMPUTED(CSEC SINCE CLOCK START B-28).
009614,000120: 32,2060           27042                                    CSMPREC                               #  CALCULATE CSM STATE VECTOR FOR SAME TIME
009615,000121: 32,2061           77624                           CALL                                           
009616,000122: 32,2062           64132                                    SCALEVEC                              
009617,000123: 32,2063           16200                           STODL    AGSBUFF    +6                         

Page 215

009619,000125: 32,2064           00015                                    TAT                                   
009620,000126: 32,2065           56225                           DSU      DDV                                   #  CALCULATE AND STORE THE TIME
009621,000127: 
009622,000128: 32,2066           03372                                    AGSK                                  
009623,000129: 32,2067           24175                                    TSCALE                                
009624,000130: 32,2070           02206                           STORE    AGSBUFF    +12D                       
009625,000131: 32,2071           77776                           EXIT                                           
009626,000132: 
009627,000133: 32,2072           34753                           CAF      LAGSLIST                              
009628,000134: 32,2073           54333                           TS       DNLSTCOD                              
009629,000135: 
009630,000136: 32,2074           32176                           CAF      20SEC                                 #  DELAY FOR 20 SEC WHILE THE AGS
009631,000137: 32,2075           04616                           TC       BANKCALL                              #  DOWNLIST IS TRANSMITTED
009632,000138: 32,2076           01736                           CADR     DELAYJOB                              
009633,000139: 
009634,000140: 32,2077           31321                           CA       AGSWORD                               
009635,000141: 32,2100           54333                           TS       DNLSTCOD                              #  RETURN TO THE OLD DOWNLIST
009636,000142: 32,2101           34744                           CAF      IMUSEBIT                              
009637,000143: 32,2102           70074                           MASK     FLAGWRD0                              #  CHECK IMUSE FLAG.
009638,000144: 32,2103           10000                           CCS      A                                     
009639,000145: 32,2104           02122                           TC       AGSEND                                #  IMU IS BEING USED - DO NOT ZERO
009640,000146: 32,2105           11301        CKSTALL            CCS      IMUCADR                               #  CHECK FOR IMU USAGE WHICH AVOIDS THE
009641,000147: 32,2106           12111                           TCF      +3                                    #  IMUSE BIT:  I.E., IMU COMPENSATION.
009642,000148: 32,2107           12115                           TCF      +6                                    #  FREE.  GO AHEAD WITH THE IMU ZERO.
009643,000149: 32,2110           12111                           TCF      +1                                    
009644,000150: 32,2111           34363                 +3        CAF      TEN                                   #  WAIT .1 SEC AND TRY AGAIN.
009645,000151: 32,2112           04616                           TC       BANKCALL                              
009646,000152: 32,2113           01736                           CADR     DELAYJOB                              
009647,000153: 32,2114           12105                           TCF      CKSTALL                               
009648,000154: 
009649,000155: 32,2115           04616                 +6        TC       BANKCALL                              #  IMU IS NOT IN USE
009650,000156: 32,2116           16661                           CADR     IMUZERO                               #  SET IMU ZERO DISCRETE FOR 320 MSECS
009651,000157: 32,2117           04616                           TC       BANKCALL                              #  WAIT 3 SEC FOR COUNTERS TO INCREMENT
009652,000158: 32,2120           17715                           CADR     IMUSTALL                              
009653,000159: 32,2121           02122                           TC       AGSEND                                
009654,000160: 32,2122           05527        AGSEND             TC       DOWNFLAG                              #  ALLOW V37
009655,000161: 32,2123           00054                           ADRES    NODOFLAG                              
009656,000162: 32,2124           32173                           CAF      V50N16                                
009657,000163: 32,2125           04616                           TC       BANKCALL                              
009658,000164: 32,2126           20342                           CADR     GOMARK3                               
009659,000165: 32,2127           15503                           TCF      ENDEXT                                
009660,000166: 32,2130           15503                           TCF      ENDEXT                                
009661,000167: 32,2131           05503                           TC       ENDEXT                                
009662,000168: 
009663,000169: 32,2132           64375        SCALEVEC           VLOAD    MXV                                   
009664,000170: 32,2133           00025                                    VATT1                                 
009665,000171: 32,2134           01732                                    REFSMMAT                              
009666,000172: 32,2135           72561                           VXSC     VSL2                                  
009667,000173: 32,2136           24202                                    VSCALE                                
009668,000174: 32,2137           53255                           VAD      VAD                                   #  THIS SECTION ROUNDS THE VECTOR, AND

Page 216

009670,000176: 32,2140           24204                                    AGSRND1                               #  CORRECTS FOR THE FACT THAT THE AGS
009671,000177: 32,2141           24212                                    AGSRND2                               #  IS A 2 S COMPLIMENT MACHINE WHILE THE
009672,000178: 32,2142           77634                           RTB                                            #  LGC IS A 1 S COMPLIMENT MACHINE.
009673,000179: 32,2143           21754                                    VECSGNAG                              
009674,000180: 32,2144           24025                           STOVL    VATT1                                 
009675,000181: 32,2145           00017                                    RATT1                                 
009676,000182: 32,2146           74321                           MXV      VXSC                                  
009677,000183: 32,2147           01732                                    REFSMMAT                              
009678,000184: 32,2150           24200                                    RSCALE                                
009679,000185: 32,2151           53212                           VSL8     VAD                                   #  AGAIN THIS SECTION ROUNDS.  TWO VECTORS
009680,000186: 32,2152           24204                                    AGSRND1                               #  ARE ADDED TO DEFEAT ALSIGNAG IN THE
009681,000187: 32,2153           47055                           VAD      RTB                                   #  CASE OF A HIGH-ORDER ZERO COUPLED WITH
009682,000188: 32,2154           24212                                    AGSRND2                               #  A LOW ORDER NEGATIVE PART.
009683,000189: 32,2155           21754                                    VECSGNAG                              
009684,000190: 32,2156           77750                           LXA,1                                          
009685,000191: 32,2157           00024                                    VATT1                                 
009686,000192: 32,2160           72130                           SXA,1    LXA,1                                 
009687,000193: 32,2161           00155                                    MPAC       +1                         
009688,000194: 32,2162           00026                                    VATT1      +2                         
009689,000195: 32,2163           72130                           SXA,1    LXA,1                                 
009690,000196: 32,2164           00160                                    MPAC       +4                         
009691,000197: 32,2165           00030                                    VATT1      +4                         
009692,000198: 32,2166           43530                           SXA,1    RVQ                                   
009693,000199: 32,2167           00162                                    MPAC       +6                         
009694,000200: 
009695,000201: 32,2170     4753               LAGSLIST           =        ONE                                   
009696,000202: 32,2170           00216        V01N14             VN       0114                                  
009697,000203: 32,2171           14400        V50N00A            VN       5000                                  
009698,000204: 32,2172     6010               V00N25             EQUALS   OCT31                                 
009699,000205: 32,2172           01420        V06N16             VN       0616                                  
009700,000206: 32,2173     4242               V00N34             EQUALS   34DEC                                 
009701,000207: 32,2173           14420        V50N16             VN       5016                                  
009702,000208: 32,2174           03100 00000  TSCALE             2DEC     100        B-10                       #  CSEC TO SEC SCALE FACTOR
009703,000209: 32,2176           03720        20SEC              DEC      2000       B-14                       
009704,000210: 32,2177           15077 05041  RSCALE             2DEC     3.280839   B-3                        #  METERS TO FEET SCALE FACTOR
009705,000211: 32,2201           24402 25724  VSCALE             2DEC     3.280839   E2         B-9             #  METERS/CS TO FEET/SEC SCALE FACTOR
009706,000212: 32,2203           00000 60000  AGSRND1            2OCT     0000060000                            
009707,000213: 32,2205           00000 60000                     2OCT     0000060000                            
009708,000214: 32,2207           00000 60000                     2OCT     0000060000                            
009709,000215: 32,2211           00000 37777  AGSRND2            2OCT     0000037777                            
009710,000216: 32,2213           00000 37777                     2OCT     0000037777                            
009711,000217: 32,2215           00000 37777                     2OCT     0000037777                            

Page 217

009713,000219: 32,2217  30,2000                                  SBANK=   LOWSUPER                              #  FOR SUBSEQUENT LOW 2CADRS.

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