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.

037047,000002:                                                                                                  ## Copyright:   Public domain.
037048,000003:                                                                                                  ## Filename:    P12.agc
037049,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
037050,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
037051,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
037052,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
037053,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
037054,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
037055,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
037056,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
037057,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
037058,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
037059,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
037060,000015:                                                                                                  ## Reference:   pp. 829-833
037061,000016:                                                                                                  ## Assembler:   yaYUL
037062,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
037063,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
037064,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
037065,000020:                                                                                                  ##              2017-08-26 MAS  Updated for Zerlina 56.
037066,000021: 

Page 829

037068,000023: 24,3644                                           BANK     24                                    
037069,000024: 30,2000                                           SETLOC   P12                                   
037070,000025: 30,2000                                           BANK                                           
037071,000026: 
037072,000027: 30,2061  E7,1513                                  EBANK=   DVCNTR                                
037073,000028: 30,2061                                           COUNT*   $$/P12                                
037074,000029: 
037075,000030: 30,2061           05364        P12LM              TC       PHASCHNG                              
037076,000031: 30,2062           04024                           OCT      04024                                 
037077,000032: 
037078,000033: 30,2063           04616                           TC       BANKCALL                              
037079,000034: 30,2064           11241                           CADR     R02BOTH                               #  CHECK THE STATUS OF THE IMU.
037080,000035: 
037081,000036: 30,2065           36000                           CAF      THRESH2                               #  INITIALIZE DVMON
037082,000037: 30,2066           55251                           TS       DVTHRUSH                              
037083,000038: 30,2067           34751                           CAF      FOUR                                  
037084,000039: 30,2070           55513                           TS       DVCNTR                                
037085,000040: 
037086,000041: 30,2071           33015                           CAF      V06N33A                               
037087,000042: 30,2072           04616                           TC       BANKCALL                              #  FLASH TIG
037088,000043: 30,2073           20477                           CADR     GOFLASH                               
037089,000044: 30,2074           16001                           TCF      GOTOPOOH                              
037090,000045: 30,2075           12077                           TCF      +2                                    #  PROCEED
037091,000046: 30,2076           12071                           TCF      -5                                    #  ENTER
037092,000047: 
037093,000048: 30,2077           05364                           TC       PHASCHNG                              
037094,000049: 30,2100           04024                           OCT      04024                                 
037095,000050: 
037096,000051: 30,2101           06051                           TC       INTPRET                               
037097,000052: 30,2102           43014                           SET      SET                                   
037098,000053: 30,2103           03067                                    MUNFLAG                               
037099,000054: 30,2104           06464                                    ACC4-2FL                              
037100,000055: 30,2105           43014                           SET      CLEAR                                 
037101,000056: 30,2106           00073                                    R10FLAG                               
037102,000057: 30,2107           00270                                    RNDVZFLG                              
037103,000058: 30,2110           43014                           SET      SET                                   
037104,000059: 30,2111           04464                                    FLPI                                  
037105,000060: 30,2112           04461                                    FLVR                                  
037106,000061: 30,2113           45014                           CLEAR    CALL                                  
037107,000062: 30,2114           00666                                    ALW66FLG                              
037108,000063: 30,2115           71426                                    GUIDINIT                              
037109,000064: 30,2116           77624                           CALL                                           
037110,000065: 30,2117           60243                                    P12INIT                               
037111,000066: 30,2120           77745        P12LMB             DLOAD                                          
037112,000067: 30,2121           25727                                    (TGO)A                                #  SET TGO TO AN INITIAL NOMINAL VALUE.
037113,000068: 30,2122           17515                           STODL    TGO                                   
037114,000069: 30,2123           03442                                    TIG                                   
037115,000070: 30,2124           34041                           STCALL   TDEC1                                 
037116,000071: 30,2125           27056                                    LEMPREC                               #  ROTATE THE STATE VECTORS TO THE
037117,000072: 30,2126           64375                           VLOAD    MXV                                   #  IGNITION TIME.

Page 830

037119,000074: 30,2127           00007                                    VATT                                  
037120,000075: 30,2130           01732                                    REFSMMAT                              
037121,000076: 30,2131           77772                           VSL1                                           
037122,000077: 30,2132           27601                           STOVL    V1S                                   #  COMPUTE V1S = VEL(TIG)*2(-7)M/CS.
037123,000078: 30,2133           00001                                    RATT                                  
037124,000079: 30,2134           52521                           MXV      VSL6                                  
037125,000080: 30,2135           01732                                    REFSMMAT                              
037126,000081: 30,2136           37517                           STCALL   R                                     #  COMPUTE R = POS(TIG)*2(-24) M.
037127,000082: 30,2137           71743                                    MUNGRAV                               #  COMPUTE GDT1/2(TIG)*2(-7)M/CS.
037128,000083: 30,2140           53575                           VLOAD    UNIT                                  
037129,000084: 30,2141           03517                                    R                                     
037130,000085: 30,2142           37535                           STCALL   UNIT/R/                               #  COMPUTE UNIT/R/ FOR YCOMP.
037131,000086: 30,2143           57333                                    YCOMP                                 
037132,000087: 30,2144           57461                           SR       DCOMP                                 
037133,000088: 30,2145           20606                                    5D                                    
037134,000089: 30,2146           17643                           STODL    XRANGE                                #  INITIALIZE XRANGE FOR NOUN 76.
037135,000090: 30,2147           31452                                    VINJNOM                               
037136,000091: 30,2150           16270                           STODL    ZDOTD                                 
037137,000092: 30,2151           31454                                    RDOTDNOM                              
037138,000093: 30,2152           02264                           STORE    RDOTD                                 
037139,000094: 30,2153           77776                           EXIT                                           
037140,000095: 
037141,000096: 30,2154           05364                           TC       PHASCHNG                              
037142,000097: 30,2155           04024                           OCT      04024                                 
037143,000098: 
037144,000099: 30,2156           33014        NEWLOAD            CAF      V06N76                                #  FLASH CROSS-RANGE AND APOLUNE VALUES.
037145,000100: 30,2157           04616                           TC       BANKCALL                              
037146,000101: 30,2160           20477                           CADR     GOFLASH                               
037147,000102: 30,2161           16001                           TCF      GOTOPOOH                              
037148,000103: 30,2162           12164                           TCF      +2                                    #  PROCEED
037149,000104: 30,2163           12156                           TCF      NEWLOAD                               #  ENTER NEW DATA.
037150,000105: 
037151,000106: 30,2164           32306                           CAF      P12ADRES                              
037152,000107: 30,2165           55455                           TS       WHICH                                 
037153,000108: 
037154,000109: 30,2166           05364                           TC       PHASCHNG                              
037155,000110: 30,2167           04024                           OCT      04024                                 
037156,000111: 
037157,000112: 30,2170           06051                           TC       INTPRET                               
037158,000113: 30,2171           54345                           DLOAD    SL                                    
037159,000114: 30,2172           03643                                    XRANGE                                
037160,000115: 30,2173           20206                                    5D                                    
037161,000116: 30,2174           77615                           DAD                                            
037162,000117: 30,2175           02326                                    Y                                     
037163,000118: 30,2176           27633                           STOVL    YCO                                   
037164,000119: 30,2177           03535                                    UNIT/R/                               
037165,000120: 30,2200           53361                           VXSC     VAD                                   
037166,000121: 30,2201           31450                                    49FPS                                 
037167,000122: 30,2202           03601                                    V1S                                   
037168,000123: 30,2203           03525                           STORE    V                                     #  V(TIPOVER) = V(IGN) + 57FPS (UNIT/R/)

Page 831

037170,000125: 30,2204           72441                           DOT      SL1                                   
037171,000126: 30,2205           03535                                    UNIT/R/                               
037172,000127: 30,2206           37474                           STCALL   RDOT                                  #  RDOT * 2(-7)
037173,000128: 30,2207           60307                                    ASCENT                                
037174,000129: 30,2210           77745        P12RET             DLOAD                                          
037175,000130: 30,2211           02352                                    ATP                                   #  ATP(2)*2(18)
037176,000131: 30,2212           65316                           DSQ      PDDL                                  
037177,000132: 30,2213           02346                                    ATY                                   #  ATY(2)*2(18)
037178,000133: 30,2214           43316                           DSQ      DAD                                   
037179,000134: 30,2215           75454                           BZE      SQRT                                  
037180,000135: 30,2216           60222                                    YAWDUN                                
037181,000136: 30,2217           55352                           SL1      BDDV                                  
037182,000137: 30,2220           02346                                    ATY                                   
037183,000138: 30,2221           77736                           ARCSIN                                         
037184,000139: 30,2222           26354        YAWDUN             STOVL    YAW                                   
037185,000140: 30,2223           03253                                    UNFC/2                                
037186,000141: 30,2224           50256                           UNIT     DOT                                   
037187,000142: 30,2225           03535                                    UNIT/R/                               
037188,000143: 30,2226           65552                           SL1      ARCCOS                                
037189,000144: 30,2227           77676                           DCOMP                                          
037190,000145: 30,2230           02356                           STORE    PITCH                                 
037191,000146: 30,2231           77776                           EXIT                                           
037192,000147: 30,2232           05364                           TC       PHASCHNG                              
037193,000148: 30,2233           04024                           OCT      04024                                 
037194,000149: 
037195,000150: 30,2234           00004                           INHINT                                         
037196,000151: 30,2235           04674                           TC       IBNKCALL                              
037197,000152: 30,2236           40143                           CADR     PFLITEDB                              
037198,000153: 30,2237           05527                           TC       DOWNFLAG                              
037199,000154: 30,2240           00213                           ADRES    FLPI                                  
037200,000155: 
037201,000156: 30,2241           04635                           TC       POSTJUMP                              
037202,000157: 30,2242           74130                           CADR     BURNBABY                              
037203,000158: 
037204,000159: 30,2243           77745        P12INIT            DLOAD                                          #  INITIALIZE ENGINE DATA. USED FOR P12 AND
037205,000160: 30,2244           16013                                    (1/DV)A                               #  P71.
037206,000161: 30,2245           03641                           STORE    1/DV3                                 
037207,000162: 30,2246           03637                           STORE    1/DV2                                 
037208,000163: 30,2247           17635                           STODL    1/DV1                                 
037209,000164: 30,2250           16017                                    (AT)A                                 
037210,000165: 30,2251           16254                           STODL    AT                                    
037211,000166: 30,2252           16021                                    (TBUP)A                               
037212,000167: 30,2253           16262                           STODL    TBUP                                  
037213,000168: 30,2254           34013                                    ATDECAY                               
037214,000169: 30,2255           54276                           DCOMP    SL                                    
037215,000170: 30,2256           20214                                    11D                                   
037216,000171: 30,2257           02260                           STORE    TTO                                   
037217,000172: 30,2260           57535                           SLOAD    DCOMP                                 
037218,000173: 30,2261           26001                                    APSVEX                                
037219,000174: 30,2262           77702                           SR2                                            

Page 832

037221,000176: 30,2263           02256                           STORE    VE                                    
037222,000177: 30,2264           43414                           BOFF     RVQ                                   
037223,000178: 30,2265           04747                                    FLAP                                  
037224,000179: 30,2266           60267                                    COMMINIT                              
037225,000180: 30,2267           43345        COMMINIT           DLOAD    DAD                                   #  INITIALIZE TARGET DATA. USED BY P12, P70
037226,000181: 30,2270           25725                                    HINJECT                               #  AND P71 IF IT DOES NOT FOLLOW P70.
037227,000182: 30,2271           02324                                    /LAND/                                
037228,000183: 30,2272           17631                           STODL    RCO                                   
037229,000184: 30,2273           06520                                    HI6ZEROS                              
037230,000185: 30,2274           03654                           STORE    TXO                                   
037231,000186: 30,2275           03633                           STORE    YCO                                   
037232,000187: 30,2276           26266                           STOVL    YDOTD                                 
037233,000188: 30,2277           01563                                    VRECTCSM                              
037234,000189: 30,2300           64235                           VXV      MXV                                   
037235,000190: 30,2301           01555                                    RRECTCSM                              
037236,000191: 30,2302           01732                                    REFSMMAT                              
037237,000192: 30,2303           77656                           UNIT                                           
037238,000193: 30,2304           02567                           STORE    QAXIS                                 
037239,000194: 30,2305           77616                           RVQ                                            
037240,000195: 
037241,000196: 30,2306           02024        P12ADRES           REMADR   P12TABLE                              
037242,000197: 
037243,000198: 34,2000                                           SETLOC   ASENT8                                
037244,000199: 34,2000                                           BANK                                           
037245,000200: 34,3426                                           COUNT*   $$/P12                                
037246,000201: 
037247,000202: 34,3426           40220        GUIDINIT           STQ      SETPD                                 
037248,000203: 34,3427           01163                                    TEMPR60                               
037249,000204: 34,3430           00001                                    0D                                    
037250,000205: 34,3431           41575                           VLOAD    PUSH                                  
037251,000206: 34,3432           06512                                    UNITZ                                 
037252,000207: 34,3433           41434                           RTB      PUSH                                  
037253,000208: 34,3434           21555                                    LOADTIME                              
037254,000209: 34,3435           77624                           CALL                                           
037255,000210: 34,3436           55720                                    RP-TO-R                               
037256,000211: 34,3437           74321                           MXV      VXSC                                  
037257,000212: 34,3440           01732                                    REFSMMAT                              
037258,000213: 34,3441           16027                                    MOONRATE                              
037259,000214: 34,3442           26316                           STOVL    WM                                    
037260,000215: 34,3443           02021                                    RLS                                   
037261,000216: 34,3444           52446                           ABVAL    SL3                                   
037262,000217: 34,3445           36324                           STCALL   /LAND/                                
037263,000218: 34,3446           01163                                    TEMPR60                               
037264,000219: 
037265,000220: 34,3447           00046 07374  49FPS              2DEC     .149352    B-6                        #  EXPECTED RDOT AT TIPOVER
037266,000221: 
037267,000222: 34,3451           04145 15527  VINJNOM            2DEC     16.7924    B-7                        #  5509.5 FPS(APO=30NM WITH RDOT=19.5FPS)
037268,000223: 
037269,000224: 34,3453           00007 23346  RDOTDNOM           2DEC     .059436    B-7                        #  19.5 FPS
037270,000225: 

Page 833 This page is empty in the hardcopy of the original assembly listing.


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