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.

010950,000002:                                                                                                  ## Copyright:   Public domain.
010951,000003:                                                                                                  ## Filename:    RESTART_TABLES.agc
010952,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
010953,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
010954,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
010955,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
010956,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
010957,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
010958,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
010959,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
010960,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
010961,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
010962,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
010963,000015:                                                                                                  ## Reference:   pp. 245-250
010964,000016:                                                                                                  ## Assembler:   yaYUL
010965,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
010966,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
010967,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
010968,000020:                                                                                                  ##              2017-08-21 RSB  Transcribed.
010969,000021: 

Page 245

010971,000023:                                                                                                  #  RESTART TABLES
010972,000024: 
010973,000025:                                                                                                  #  ------------------
010974,000026: 
010975,000027:                                                                                                  #  THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP.  THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
010976,000028:                                                                                                  #  RESTART TABLES.  THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
010977,000029:                                                                                                  #  EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
010978,000030:                                                                                                  #  WAY THINGS ARE PUT INTO THE TABLES.
010979,000031:                                                                                                  #       A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
010980,000032:                                                                                                  #  FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC.  THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
010981,000033:                                                                                                  #  FOR EXAMPLE,
010982,000034: 
010983,000035:                                                                                                  #                                          5.7SPOT  OCT    23000
010984,000036:                                                                                                  #                                                   2CADR  SOMEJOB
010985,000037: 
010986,000038:                                                                                                  #  A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
010987,000039: 
010988,000040:                                                                                                  #                                          5.5SPOT  OCT    -23000
010989,000041:                                                                                                  #                                                   2CADR  ANYJOB
010990,000042: 
010991,000043:                                                                                                  #  HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
010992,000044:                                                                                                  #  A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY.  IN ITS PRDTTAB IS
010993,000045:                                                                                                  #  PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
010994,000046:                                                                                                  #  WITH.  EXAMPLE,
010995,000047: 
010996,000048:                                                                                                  #                                          3.6SPOT  GENADR DELTAT
010997,000049:                                                                                                  #                                                  -GENADR LONGTASK
010998,000050:                                                                                                  #                                                   BBCON  LONGTASK
010999,000051: 
011000,000052:                                                                                                  #                                                   OCT    31000
011001,000053:                                                                                                  #                                                   2CADR  JOBAGAIN
011002,000054: 
011003,000055:                                                                                                  #  THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
011004,000056:                                                                                                  #  BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OFTHE 2CADR OF THE
011005,000057:                                                                                                  #  TASK.  FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
011006,000058: 
011007,000059:                                                                                                  #  WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
011008,000060:                                                                                                  #  IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
011009,000061:                                                                                                  #  LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY.  IT SHOULD BE NOTED AS ABOVE, THAT
011010,000062:                                                                                                  #  IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE.  WITH
011011,000063:                                                                                                  #  WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
011012,000064:                                                                                                  #  TASK.  EXAMPLES,
011013,000065: 
011014,000066:                                                                                                  #                                                   OCT    77777           THIS WILL CAUSE AN IMMEDIATE RESTART
011015,000067:                                                                                                  #                                                  -2CADR  ATASK           OF THE TASK :ATASK:
011016,000068:                                                                                                  #     
011017,000069:                                                                                                  #                                                   DEC    200             IF THE TIME OF THE 2 SECONDS SINCE DUMMY
011018,000070:                                                                                                  #                                                  -2CADR  DUMMY           WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
011019,000071:                                                                                                  #                                                                          IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
011020,000072:                                                                                                  #                                                                          IT NORMALLY WOULD HAVE BEGUN.

Page 246

011022,000074:                                                                                                  #                                                  -GENADR DTIME           WHERE DTIME CONTAINS THE DELTA TIME
011023,000075:                                                                                                  #                                                  -2CADR  TASKTASK        OTHERWISE THIS IS AS ABOVE
011024,000076: 
011025,000077:                                                                                                  #  *****    NOW THE TABLES THEMSELVES *****
011026,000078: 
011027,000079: 01,2002                                           BANK     01                                    
011028,000080: 01,2000                                           SETLOC   RESTART                               
011029,000081: 01,2000                                           BANK                                           
011030,000082: 
011031,000083: 01,2002                        PRDTTAB            EQUALS   12000                                 #  USED TO FIND THE PRIORITY OR DELTATIME
011032,000084: 01,2002                        CADRTAB            EQUALS   12001                                 #  THIS AND THE NEXT RELATIVE LOC CONTAIN
011033,000085:                                                                                                  #  RESTART 2CADR
011034,000086: 
011035,000087: 01,2002                                           COUNT*   $$/RSTAB                              #  TABLES IN BANK 1.
011036,000088: 01,2002           00010        SIZETAB            TC       1.2SPOT    -12006                     
011037,000089: 01,2003           00020                           TC       1.3SPOT    -12004                     
011038,000090: 01,2004           00010                           TC       2.2SPOT    -12006                     
011039,000091: 01,2005           00026                           TC       2.3SPOT    -12004                     
011040,000092: 01,2006           00010                           TC       3.2SPOT    -12006                     
011041,000093: 01,2007           00056                           TC       3.3SPOT    -12004                     
011042,000094: 01,2010           00062                           TC       4.2SPOT    -12006                     
011043,000095: 01,2011           00072                           TC       4.3SPOT    -12004                     
011044,000096: 01,2012           00145                           TC       5.2SPOT    -12006                     
011045,000097: 01,2013           00163                           TC       5.3SPOT    -12004                     
011046,000098: 01,2014           00010                           TC       6.2SPOT    -12006                     
011047,000099: 01,2015           00174                           TC       6.3SPOT    -12004                     
011048,000100: 01,2016           21000        1.2SPOT            OCT      21000                                 #  A DUMMY EXAMPLE TO BE REPLACED AS SOON
011049,000101: 01,2017     0074                                  EBANK=   STATE                                 
011050,000102: 01,2017           05155 04060                     2CADR    ENDOFJOB                              #  AS THERE IS A LEGITIMATE 1.2SPOT
011051,000103: 
011052,000104: 01,2021           00144                           DEC      100        B-14                       
011053,000105: 01,2022     0074                                  EBANK=   STATE                                 
011054,000106: 01,2022           05272 04060                     2CADR    TASKOVER                              
011055,000107: 
011056,000108:                                                                                                  #  ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
011057,000109: 
011058,000110: 01,2024           76300        1.3SPOT            -GENADR  SAVET-30                              
011059,000111: 01,2025  E7,1513                                  EBANK=   DVCNTR                                
011060,000112: 01,2025           75427 03710                     -2CADR   ULLGTASK                              
011061,000113: 
011062,000114: 01,2027           32000        1.5SPOT            OCT      32000                                 
011063,000115: 01,2030  E7,1654                                  EBANK=   HMEAS                                 
011064,000116: 01,2030           03550 76067                     2CADR    REREPOS                               
011065,000117: 
011066,000118:                                                                                                  #  ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
011067,000119: 
011068,000120: 01,2032  01,2016               2.2SPOT            EQUALS   1.2SPOT                               
011069,000121:                                                                                                  #  ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
011070,000122: 
011071,000123: 01,2032           02627        2.3SPOT            GENADR   600SECS                               

Page 247

011073,000125: 01,2033           75175                           -GENADR  STATEINT                              
011074,000126: 01,2034  E3,1554                                  EBANK=   RRECTCSM                              
011075,000127: 01,2034           26063                           BBCON    STATEINT                              
011076,000128: 
011077,000129: 01,2035           05000        2.5SPOT            OCT      05000                                 
011078,000130: 01,2036  E3,1554                                  EBANK=   RRECTCSM                              
011079,000131: 01,2036           02611 26063                     2CADR    STATINT1                              
011080,000132: 
011081,000133: 01,2040           02734        2.7SPOT            DEC      1500       B-14                       
011082,000134: 01,2041  E7,1456                                  EBANK=   LOSCOUNT                              
011083,000135: 01,2041           75455 27710                     -2CADR   P20LEMC1                              
011084,000136: 
011085,000137: 01,2043           14000        2.11SPOT           OCT      14000                                 
011086,000138: 01,2044  E7,1762                                  EBANK=   P21TIME                               
011087,000139: 01,2044           02476 50067                     2CADR    P25LEM1                               
011088,000140: 
011089,000141: 01,2046           10000        2.13SPOT           OCT      10000                                 
011090,000142: 01,2047  E7,1456                                  EBANK=   LOSCOUNT                              
011091,000143: 01,2047           02225 54067                     2CADR    RELINUS                               
011092,000144: 
011093,000145: 01,2051           26000        2.15SPOT           OCT      26000                                 
011094,000146: 01,2052  E7,1456                                  EBANK=   LOSCOUNT                              
011095,000147: 01,2052           02736 50067                     2CADR    R22RSTRT                              
011096,000148: 
011097,000149: 01,2054           77777        2.17SPOT           OCT      77777                                 
011098,000150: 01,2055  E7,1700                                  EBANK=   VGPREV                                
011099,000151: 01,2055           75436 03710                     -2CADR   REDO2.17                              
011100,000152: 
011101,000153: 01,2057           00031        2.21SPOT           DEC      25         B-14                       
011102,000154: 01,2060  E7,1513                                  EBANK=   DVCNTR                                
011103,000155: 01,2060           75722 35710                     -2CADR   R10,R11                               
011104,000156: 
011105,000157:                                                                                                  #  ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
011106,000158: 
011107,000159: 01,2062  01,2016               3.2SPOT            EQUALS   1.2SPOT                               
011108,000160:                                                                                                  #  ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
011109,000161: 
011110,000162: 01,2062           76355        3.3SPOT            -GENADR  ZOOMTIME                              
011111,000163: 01,2063  E7,1513                                  EBANK=   DVCNTR                                
011112,000164: 01,2063           74102 05710                     -2CADR   ZOOM                                  
011113,000165: 
011114,000166: 01,2065           20000        3.5SPOT            OCT      20000                                 
011115,000167: 01,2066  E7,1453                                  EBANK=   TTOGO                                 
011116,000168: 01,2066           02535 56067                     2CADR    S40.13                                
011117,000169: 
011118,000170:                                                                                                  #  ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
011119,000171: 
011120,000172: 01,2070           04704        4.2SPOT            DEC      2500       B-14                       
011121,000173: 01,2071  E7,1453                                  EBANK=   TTOGO                                 

Page 248

011123,000175: 01,2071           75423 03710                     -2CADR   TIG-5                                 
011124,000176: 
011125,000177: 01,2073           77777                           OCT      77777                                 
011126,000178: 01,2074  E7,1453                                  EBANK=   TTOGO                                 
011127,000179: 01,2074           75433 03710                     -2CADR   REDO4.2                               
011128,000180: 
011129,000181:                                                                                                  #  ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
011130,000182: 
011131,000183: 01,2076           25000        4.3SPOT            OCT      25000                                 
011132,000184: 01,2077  E7,1513                                  EBANK=   DVCNTR                                
011133,000185: 01,2077           03527 64067                     2CADR    GOABORT                               
011134,000186: 
011135,000187: 01,2101           00062        4.5SPOT            DEC      50         B-14                       
011136,000188: 01,2102  E7,1453                                  EBANK=   TTOGO                                 
011137,000189: 01,2102           75216 03710                     -2CADR   ULLAGOFF                              
011138,000190: 
011139,000191: 01,2104           00764        4.7SPOT            DEC      500        B-14                       
011140,000192: 01,2105  E7,1513                                  EBANK=   DVCNTR                                
011141,000193: 01,2105           75370 03710                     -2CADR   TIG-0                                 
011142,000194: 
011143,000195: 01,2107           76262        4.11SPOT           -GENADR  TGO        +1                         
011144,000196: 01,2110  E7,1513                                  EBANK=   DVCNTR                                
011145,000197: 01,2110           74235 03710                     -2CADR   ENGOFTSK                              
011146,000198: 
011147,000199: 01,2112           12000        4.13SPOT           OCT      12000                                 
011148,000200: 01,2113  E7,1462                                  EBANK=   TRKMKCNT                              
011149,000201: 01,2113           03222 74067                     2CADR    POSTBURN                              
011150,000202: 
011151,000203: 01,2115           00764        4.15SPOT           DEC      500        B-14                       
011152,000204: 01,2116  E7,1453                                  EBANK=   TTOGO                                 
011153,000205: 01,2116           75477 03710                     -2CADR   TIG-30                                
011154,000206: 
011155,000207: 01,2120           77777        4.17SPOT           OCT      77777                                 
011156,000208: 01,2121  E7,1513                                  EBANK=   DVCNTR                                
011157,000209: 01,2121           75423 03710                     -2CADR   TIG-5                                 
011158,000210: 
011159,000211: 01,2123           13000        4.21SPOT           OCT      13000                                 
011160,000212: 01,2124  E5,1730                                  EBANK=   STAR                                  
011161,000213: 01,2124           03012 30065                     2CADR    R51.1      +1                         
011162,000214: 
011163,000215: 01,2126           77777        4.23SPOT           OCT      77777                                 
011164,000216: 01,2127  E7,1513                                  EBANK=   DVCNTR                                
011165,000217: 01,2127           75344 03710                     -2CADR   IGNITION                              
011166,000218: 
011167,000219: 01,2131           01477        4.25SPOT           GENADR   SAVET-30                              
011168,000220: 01,2132           75535                           -GENADR  TIG-35                                
011169,000221: 01,2133  E7,1477                                  EBANK=   SAVET-30                              
011170,000222: 01,2133           74067                           BBCON    TIG-35                                
011171,000223: 

Page 249

011173,000225: 01,2134           52777        4.27SPOT           OCT      52777                                 
011174,000226: 01,2135  E7,1513                                  EBANK=   DVCNTR                                
011175,000227: 01,2135           02007 42067                     2CADR    P70A                                  
011176,000228: 
011177,000229: 01,2137           52777        4.31SPOT           OCT      52777                                 
011178,000230: 01,2140  E7,1513                                  EBANK=   DVCNTR                                
011179,000231: 01,2140           02012 42067                     2CADR    P71A                                  
011180,000232: 
011181,000233: 01,2142           46777        4.33SPOT           OCT      46777                                 
011182,000234: 01,2143  E7,1513                                  EBANK=   DVCNTR                                
011183,000235: 01,2143           02024 10067                     2CADR    GOPOOFIX                              
011184,000236: 
011185,000237: 01,2145           46777        4.35SPOT           OCT      46777                                 
011186,000238: 01,2146  E7,1513                                  EBANK=   DVCNTR                                
011187,000239: 01,2146           05666 04067                     2CADR    GOPOODOO                              
011188,000240: 
011189,000241: 01,2150           52777        4.37SPOT           OCT      52777                                 
011190,000242: 01,2151  E7,1455                                  EBANK=   WHICH                                 
011191,000243: 01,2151           02570 74067                     2CADR    COMFAIL                               
011192,000244: 
011193,000245:                                                                                                  #  ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
011194,000246: 
011195,000247: 01,2153           22000        5.2SPOT            OCT      22000                                 
011196,000248: 01,2154  E7,1513                                  EBANK=   DVCNTR                                
011197,000249: 01,2154           02037 66067                     2CADR    NORMLIZE                              
011198,000250: 
011199,000251: 01,2156           00310                           DEC      200        B-14                       
011200,000252: 01,2157  E7,1513                                  EBANK=   DVCNTR                                
011201,000253: 01,2157           72505 73710                     -2CADR   REREADAC                              
011202,000254: 
011203,000255: 01,2161           00310        5.4SPOT            DEC      200        B-14                       
011204,000256: 01,2162  E7,1513                                  EBANK=   DVCNTR                                
011205,000257: 01,2162           72505 73710                     -2CADR   REREADAC                              
011206,000258: 
011207,000259: 01,2164           20000                           OCT      20000                                 
011208,000260: 01,2165  E7,1513                                  EBANK=   DVCNTR                                
011209,000261: 01,2165           02203 66067                     2CADR    SERVICER                              
011210,000262: 
011211,000263:                                                                                                  #  ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
011212,000264: 
011213,000265: 01,2167           00310        5.3SPOT            DEC      200        B-14                       
011214,000266: 01,2170  E7,1513                                  EBANK=   DVCNTR                                
011215,000267: 01,2170           72505 73710                     -2CADR   REREADAC                              
011216,000268: 
011217,000269: 01,2172           77777        5.5SPOT            OCT      77777                                 
011218,000270: 01,2173  E7,1513                                  EBANK=   DVCNTR                                
011219,000271: 01,2173           72505 73710                     -2CADR   REDO5.5                               
011220,000272: 

Page 250

011222,000274: 01,2175           77777        5.7SPOT            OCT      77777                                 
011223,000275: 01,2176  E7,1513                                  EBANK=   DVCNTR                                
011224,000276: 01,2176           74105 07710                     -2CADR   BIBIBIAS                              
011225,000277: 
011226,000278:                                                                                                  #  ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
011227,000279: 
011228,000280: 01,2200  01,2016               6.2SPOT            EQUALS   1.2SPOT                               
011229,000281: 01,2200           00144        6.3SPOT            DEC      100        B-14                       
011230,000282: 01,2201  E7,1441                                  EBANK=   TIG                                   
011231,000283: 01,2201           75061 03710                     -2CADR   CLOKTASK                              
011232,000284: 
011233,000285: 01,2203           30000        6.5SPOT            OCT      30000                                 #  PROTECT INCREMENTING OF TIME2,TIME1 BY
011234,000286: 01,2204  E3,1706                                  EBANK=   TEPHEM                                #  P27(UPDATE PROGRAM) VIA V70 OR V73.
011235,000287: 01,2204           03605 10063                     2CADR    TIMEDIDR                              
011236,000288: 
011237,000289: 01,2206           17000        6.7SPOT            OCT      17000                                 
011238,000290: 01,2207  E7,1700                                  EBANK=   VGPREV                                
011239,000291: 01,2207           03355 74067                     2CADR    REDO6.7                               
011240,000292: 
011241,000293: 01,2211           17000        6.11SPOT           OCT      17000                                 
011242,000294: 01,2212  E7,1700                                  EBANK=   VGPREV                                
011243,000295: 01,2212           03364 74067                     2CADR    FKP5RST                               
011244,000296: 

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