Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision.
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,1970Note that the date is the date of the printout, not the date of the program revision. |
010954,000002: ## Copyright: Public domain.
010955,000003: ## Filename: RESTART_TABLES.agc
010956,000004: ## Purpose: A log section of Zerlina 56, the final revision of
010957,000005: ## Don Eyles's offline development program for the variable
010958,000006: ## guidance period servicer. It also includes a new P66 with LPD
010959,000007: ## (Landing Point Designator) capability, based on an idea of John
010960,000008: ## Young's. Neither of these advanced features were actually flown,
010961,000009: ## but Zerlina was also the birthplace of other big improvements to
010962,000010: ## Luminary including the terrain model and new (Luminary 1E)
010963,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
010964,000012: ## and revision 56 includes all changes up to and including Luminary
010965,000013: ## 183. It is therefore quite close to the Apollo 14 program,
010966,000014: ## Luminary 178, where not modified with new features.
010967,000015: ## Reference: pp. 245-250
010968,000016: ## Assembler: yaYUL
010969,000017: ## Contact: Ron Burkey <info@sandroid.org>.
010970,000018: ## Website: www.ibiblio.org/apollo/index.html
010971,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
010972,000020: ## 2017-08-21 RSB Transcribed.
010973,000021:
|
|
Page 245 |
010975,000023: # RESTART TABLES
010976,000024:
010977,000025: # ------------------
010978,000026:
010979,000027: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
010980,000028: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
010981,000029: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
010982,000030: # WAY THINGS ARE PUT INTO THE TABLES.
010983,000031: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT - A POSITIVE PRIORITY INDICATES A
010984,000032: # FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
010985,000033: # FOR EXAMPLE,
010986,000034:
010987,000035: # 5.7SPOT OCT 23000
010988,000036: # 2CADR SOMEJOB
010989,000037:
010990,000038: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
010991,000039:
010992,000040: # 5.5SPOT OCT -23000
010993,000041: # 2CADR ANYJOB
010994,000042:
010995,000043: # HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
010996,000044: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
010997,000045: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
010998,000046: # WITH. EXAMPLE,
010999,000047:
011000,000048: # 3.6SPOT GENADR DELTAT
011001,000049: # -GENADR LONGTASK
011002,000050: # BBCON LONGTASK
011003,000051:
011004,000052: # OCT 31000
011005,000053: # 2CADR JOBAGAIN
011006,000054:
011007,000055: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
011008,000056: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OFTHE 2CADR OF THE
011009,000057: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
011010,000058:
011011,000059: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
011012,000060: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
011013,000061: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
011014,000062: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
011015,000063: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
011016,000064: # TASK. EXAMPLES,
011017,000065:
011018,000066: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART
011019,000067: # -2CADR ATASK OF THE TASK :ATASK:
011020,000068: #
011021,000069: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY
011022,000070: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
011023,000071: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
011024,000072: # IT NORMALLY WOULD HAVE BEGUN.
|
|
Page 246 |
011026,000074: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME
011027,000075: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE
011028,000076:
011029,000077: # ***** NOW THE TABLES THEMSELVES *****
011030,000078:
011031,000079: 01,2002 BANK 01
011032,000080: 01,2000 SETLOC RESTART
011033,000081: 01,2000 BANK
011034,000082:
011035,000083: 01,2002 PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
011036,000084: 01,2002 CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
011037,000085: # RESTART 2CADR
011038,000086:
011039,000087: 01,2002 COUNT* $$/RSTAB # TABLES IN BANK 1.
011040,000088: 01,2002 00010 SIZETAB TC 1.2SPOT -12006
011041,000089: 01,2003 00020 TC 1.3SPOT -12004
011042,000090: 01,2004 00010 TC 2.2SPOT -12006
011043,000091: 01,2005 00026 TC 2.3SPOT -12004
011044,000092: 01,2006 00010 TC 3.2SPOT -12006
011045,000093: 01,2007 00056 TC 3.3SPOT -12004
011046,000094: 01,2010 00062 TC 4.2SPOT -12006
011047,000095: 01,2011 00072 TC 4.3SPOT -12004
011048,000096: 01,2012 00145 TC 5.2SPOT -12006
011049,000097: 01,2013 00163 TC 5.3SPOT -12004
011050,000098: 01,2014 00010 TC 6.2SPOT -12006
011051,000099: 01,2015 00174 TC 6.3SPOT -12004
011052,000100: 01,2016 21000 1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON
011053,000101: 01,2017 0074 EBANK= STATE
011054,000102: 01,2017 05155 04060 2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT
011055,000103:
011056,000104: 01,2021 00144 DEC 100 B-14
011057,000105: 01,2022 0074 EBANK= STATE
011058,000106: 01,2022 05272 04060 2CADR TASKOVER
011059,000107:
011060,000108: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
011061,000109:
011062,000110: 01,2024 76300 1.3SPOT -GENADR SAVET-30
011063,000111: 01,2025 E7,1513 EBANK= DVCNTR
011064,000112: 01,2025 75427 03710 -2CADR ULLGTASK
011065,000113:
011066,000114: 01,2027 32000 1.5SPOT OCT 32000
011067,000115: 01,2030 E7,1654 EBANK= HMEAS
011068,000116: 01,2030 03550 76067 2CADR REREPOS
011069,000117:
011070,000118: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
011071,000119:
011072,000120: 01,2032 01,2016 2.2SPOT EQUALS 1.2SPOT
011073,000121: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
011074,000122:
011075,000123: 01,2032 02627 2.3SPOT GENADR 600SECS
|
|
Page 247 |
011077,000125: 01,2033 75175 -GENADR STATEINT
011078,000126: 01,2034 E3,1554 EBANK= RRECTCSM
011079,000127: 01,2034 26063 BBCON STATEINT
011080,000128:
011081,000129: 01,2035 05000 2.5SPOT OCT 05000
011082,000130: 01,2036 E3,1554 EBANK= RRECTCSM
011083,000131: 01,2036 02611 26063 2CADR STATINT1
011084,000132:
011085,000133: 01,2040 02734 2.7SPOT DEC 1500 B-14
011086,000134: 01,2041 E7,1456 EBANK= LOSCOUNT
011087,000135: 01,2041 75455 27710 -2CADR P20LEMC1
011088,000136:
011089,000137: 01,2043 14000 2.11SPOT OCT 14000
011090,000138: 01,2044 E7,1762 EBANK= P21TIME
011091,000139: 01,2044 02476 50067 2CADR P25LEM1
011092,000140:
011093,000141: 01,2046 10000 2.13SPOT OCT 10000
011094,000142: 01,2047 E7,1456 EBANK= LOSCOUNT
011095,000143: 01,2047 02225 54067 2CADR RELINUS
011096,000144:
011097,000145: 01,2051 26000 2.15SPOT OCT 26000
011098,000146: 01,2052 E7,1456 EBANK= LOSCOUNT
011099,000147: 01,2052 02736 50067 2CADR R22RSTRT
011100,000148:
011101,000149: 01,2054 77777 2.17SPOT OCT 77777
011102,000150: 01,2055 E7,1700 EBANK= VGPREV
011103,000151: 01,2055 75436 03710 -2CADR REDO2.17
011104,000152:
011105,000153: 01,2057 00031 2.21SPOT DEC 25 B-14
011106,000154: 01,2060 E7,1513 EBANK= DVCNTR
011107,000155: 01,2060 75722 35710 -2CADR R10,R11
011108,000156:
011109,000157: # ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
011110,000158:
011111,000159: 01,2062 01,2016 3.2SPOT EQUALS 1.2SPOT
011112,000160: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
011113,000161:
011114,000162: 01,2062 76355 3.3SPOT -GENADR ZOOMTIME
011115,000163: 01,2063 E7,1513 EBANK= DVCNTR
011116,000164: 01,2063 74102 05710 -2CADR ZOOM
011117,000165:
011118,000166: 01,2065 20000 3.5SPOT OCT 20000
011119,000167: 01,2066 E7,1453 EBANK= TTOGO
011120,000168: 01,2066 02535 56067 2CADR S40.13
011121,000169:
011122,000170: # ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
011123,000171:
011124,000172: 01,2070 04704 4.2SPOT DEC 2500 B-14
011125,000173: 01,2071 E7,1453 EBANK= TTOGO
|
|
Page 248 |
011127,000175: 01,2071 75423 03710 -2CADR TIG-5
011128,000176:
011129,000177: 01,2073 77777 OCT 77777
011130,000178: 01,2074 E7,1453 EBANK= TTOGO
011131,000179: 01,2074 75433 03710 -2CADR REDO4.2
011132,000180:
011133,000181: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
011134,000182:
011135,000183: 01,2076 25000 4.3SPOT OCT 25000
011136,000184: 01,2077 E7,1513 EBANK= DVCNTR
011137,000185: 01,2077 03527 64067 2CADR GOABORT
011138,000186:
011139,000187: 01,2101 00062 4.5SPOT DEC 50 B-14
011140,000188: 01,2102 E7,1453 EBANK= TTOGO
011141,000189: 01,2102 75216 03710 -2CADR ULLAGOFF
011142,000190:
011143,000191: 01,2104 00764 4.7SPOT DEC 500 B-14
011144,000192: 01,2105 E7,1513 EBANK= DVCNTR
011145,000193: 01,2105 75370 03710 -2CADR TIG-0
011146,000194:
011147,000195: 01,2107 76262 4.11SPOT -GENADR TGO +1
011148,000196: 01,2110 E7,1513 EBANK= DVCNTR
011149,000197: 01,2110 74235 03710 -2CADR ENGOFTSK
011150,000198:
011151,000199: 01,2112 12000 4.13SPOT OCT 12000
011152,000200: 01,2113 E7,1462 EBANK= TRKMKCNT
011153,000201: 01,2113 03222 74067 2CADR POSTBURN
011154,000202:
011155,000203: 01,2115 00764 4.15SPOT DEC 500 B-14
011156,000204: 01,2116 E7,1453 EBANK= TTOGO
011157,000205: 01,2116 75477 03710 -2CADR TIG-30
011158,000206:
011159,000207: 01,2120 77777 4.17SPOT OCT 77777
011160,000208: 01,2121 E7,1513 EBANK= DVCNTR
011161,000209: 01,2121 75423 03710 -2CADR TIG-5
011162,000210:
011163,000211: 01,2123 13000 4.21SPOT OCT 13000
011164,000212: 01,2124 E5,1730 EBANK= STAR
011165,000213: 01,2124 03012 30065 2CADR R51.1 +1
011166,000214:
011167,000215: 01,2126 77777 4.23SPOT OCT 77777
011168,000216: 01,2127 E7,1513 EBANK= DVCNTR
011169,000217: 01,2127 75344 03710 -2CADR IGNITION
011170,000218:
011171,000219: 01,2131 01477 4.25SPOT GENADR SAVET-30
011172,000220: 01,2132 75535 -GENADR TIG-35
011173,000221: 01,2133 E7,1477 EBANK= SAVET-30
011174,000222: 01,2133 74067 BBCON TIG-35
011175,000223:
|
|
Page 249 |
011177,000225: 01,2134 52777 4.27SPOT OCT 52777
011178,000226: 01,2135 E7,1513 EBANK= DVCNTR
011179,000227: 01,2135 02007 42067 2CADR P70A
011180,000228:
011181,000229: 01,2137 52777 4.31SPOT OCT 52777
011182,000230: 01,2140 E7,1513 EBANK= DVCNTR
011183,000231: 01,2140 02012 42067 2CADR P71A
011184,000232:
011185,000233: 01,2142 46777 4.33SPOT OCT 46777
011186,000234: 01,2143 E7,1513 EBANK= DVCNTR
011187,000235: 01,2143 02024 10067 2CADR GOPOOFIX
011188,000236:
011189,000237: 01,2145 46777 4.35SPOT OCT 46777
011190,000238: 01,2146 E7,1513 EBANK= DVCNTR
011191,000239: 01,2146 05666 04067 2CADR GOPOODOO
011192,000240:
011193,000241: 01,2150 52777 4.37SPOT OCT 52777
011194,000242: 01,2151 E7,1455 EBANK= WHICH
011195,000243: 01,2151 02570 74067 2CADR COMFAIL
011196,000244:
011197,000245: # ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
011198,000246:
011199,000247: 01,2153 22000 5.2SPOT OCT 22000
011200,000248: 01,2154 E7,1513 EBANK= DVCNTR
011201,000249: 01,2154 02037 66067 2CADR NORMLIZE
011202,000250:
011203,000251: 01,2156 00310 DEC 200 B-14
011204,000252: 01,2157 E7,1513 EBANK= DVCNTR
011205,000253: 01,2157 72505 73710 -2CADR REREADAC
011206,000254:
011207,000255: 01,2161 00310 5.4SPOT DEC 200 B-14
011208,000256: 01,2162 E7,1513 EBANK= DVCNTR
011209,000257: 01,2162 72505 73710 -2CADR REREADAC
011210,000258:
011211,000259: 01,2164 20000 OCT 20000
011212,000260: 01,2165 E7,1513 EBANK= DVCNTR
011213,000261: 01,2165 02203 66067 2CADR SERVICER
011214,000262:
011215,000263: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
011216,000264:
011217,000265: 01,2167 00310 5.3SPOT DEC 200 B-14
011218,000266: 01,2170 E7,1513 EBANK= DVCNTR
011219,000267: 01,2170 72505 73710 -2CADR REREADAC
011220,000268:
011221,000269: 01,2172 77777 5.5SPOT OCT 77777
011222,000270: 01,2173 E7,1513 EBANK= DVCNTR
011223,000271: 01,2173 72505 73710 -2CADR REDO5.5
011224,000272:
|
|
Page 250 |
011226,000274: 01,2175 77777 5.7SPOT OCT 77777
011227,000275: 01,2176 E7,1513 EBANK= DVCNTR
011228,000276: 01,2176 74105 07710 -2CADR BIBIBIAS
011229,000277:
011230,000278: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
011231,000279:
011232,000280: 01,2200 01,2016 6.2SPOT EQUALS 1.2SPOT
011233,000281: 01,2200 00144 6.3SPOT DEC 100 B-14
011234,000282: 01,2201 E7,1441 EBANK= TIG
011235,000283: 01,2201 75061 03710 -2CADR CLOKTASK
011236,000284:
011237,000285: 01,2203 30000 6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
011238,000286: 01,2204 E3,1706 EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73.
011239,000287: 01,2204 03605 10063 2CADR TIMEDIDR
011240,000288:
011241,000289: 01,2206 17000 6.7SPOT OCT 17000
011242,000290: 01,2207 E7,1700 EBANK= VGPREV
011243,000291: 01,2207 03355 74067 2CADR REDO6.7
011244,000292:
011245,000293: 01,2211 17000 6.11SPOT OCT 17000
011246,000294: 01,2212 E7,1700 EBANK= VGPREV
011247,000295: 01,2212 03364 74067 2CADR FKP5RST
011248,000296:
End of include-file RESTART_TABLES.agc. Parent file is MAIN.agc