Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Mike Stewart. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are in ALL-CAPS, whereas
comments added later in transcription are in Mixed-Case. In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the BURST120 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 BY NASA 2021106-031 DEC 7, 1967 THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.Note that the date is the date of the printout, not the date of the program revision. |
002603,000002: ## Copyright: Public domain.
002604,000003: ## Filename: RESTART_TABLES_AND_RESTARTS_ROUTINE.agc
002605,000004: ## Purpose: A module for revision 0 of BURST120 (Sunburst).
002606,000005: ## It is part of the source code for the Lunar Module's (LM)
002607,000006: ## Apollo Guidance Computer (AGC) for Apollo 5.
002608,000007: ## Assembler: yaYUL
002609,000008: ## Contact: Ron Burkey <info@sandroid.org>.
002610,000009: ## Website: www.ibiblio.org/apollo/index.html
002611,000010: ## Mod history: 2016-09-30 RSB Created draft version.
002612,000011: ## 2016-10-04 RSB Transcribed.
002613,000012: ## 2016-10-30 MAS Some spelling corrections and a missing 2CADR symbol.
002614,000013: ## 2016-11-01 RSB Typos.
002615,000014: ## 2016-11-02 RSB More typos.
002616,000015: ## 2016-11-03 RSB Added a bunch of SBANK= workarounds.
002617,000016: ## 2016-12-03 RSB Used octopus/ProoferComments to proof comments.
002618,000017: ## Fixed 17 errors in 15 pages, but process isn't
002619,000018: ## complete.
002620,000019: ## 2016-12-05 RSB Fixed more comments with octopus/ProoferComments;
002621,000020: ## comment-proofing process complete.
002622,000021: ## 2017-02-08 RSB Comment-text fixes identified while proofing Artemis 72.
002623,000022: ## 2017-06-17 MAS Globally removed all SBANK= workarounds.
002624,000023:
![]() |
Page 62 |
002626,000025: # RESTART TABLES
002627,000026: # DO NOT REMOVE FROM THE BEGINNING OF THIS BANK
002628,000027: # ------------------
002629,000028:
002630,000029: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
002631,000030: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
002632,000031: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
002633,000032: # WAY THINGS ARE PUT IN TO THE TABLES.
002634,000033: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT WITH ITS 2CADR IN THE CADRTAB. FOR
002635,000034: # EXAMPLE,
002636,000035:
002637,000036: # 5.7SPOT OCT 23000
002638,000037: # 2CADR SOMEJOB
002639,000038:
002640,000039: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED WITH A PRIORITY OF 23.
002641,000040:
002642,000041: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
002643,000042: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
002644,000043: # WITH. EXAMPLE,
002645,000044:
002646,000045: # 3.6SPOT GENADR DELTAT
002647,000046: # -GENADR LONGTASK
002648,000047: # BBCON LONGTASK
002649,000048:
002650,000049: # OCT 31000
002651,000050: # 2CADR JOBAGAIN
002652,000051:
002653,000052: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
002654,000053: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OF THE 2CADR OF THE
002655,000054: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
002656,000055:
002657,000056: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
002658,000057: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
002659,000058: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
002660,000059: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
002661,000060: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
002662,000061: # TASK. EXAMPLES,
002663,000062:
002664,000063: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART
002665,000064: # -2CADR ATASK OF THE TASK :ATASK:
002666,000065: #
002667,000066: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY
002668,000067: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
002669,000068: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
002670,000069: # IT NORMALLY WOULD HAVE BEGUN.
002671,000070:
002672,000071: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME
002673,000072: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE
002674,000073:
002675,000074: # ***** NOW THE TABLES THEMSELVES *****
![]() |
Page 63 |
002677,000076:
002678,000077: 4064 PRDTTAB EQUALS 24000 # USED TO FIND THE PRIORITY OR DELTA TIME
002679,000078: 4064 CADRTAB EQUALS 24001 # THIS AND THE NEXT LOCATION (RELATIVE)
002680,000079: # CONTAIN THE RESTART CADR
002681,000080:
002682,000081: 06,2000 BANK 06
002683,000082: 06,2000 E3,1400 EBANK= LST1 # GOPROG MUST SWITCH IN THIS EBANK
002684,000083:
002685,000084: 06,2000 02627 PHS2CADR GENADR PHSPART2 # DO NOT REMOVE THE FOLLOWING 6 LOCATIONS
002686,000085: 06,2001 02414 PRT2CADR GENADR GETPART2 # FROM BEGINNING OF BANK
002687,000086: 06,2002 05741 LGCLCADR GENADR LONGCALL
002688,000087: 06,2003 05516 FVACCADR GENADR FINDVAC
002689,000088: 06,2004 05663 WTLTCADR GENADR WAITLIST
002690,000089: 06,2005 05221 RTRNCADR TC SWRETURN
002691,000090:
002692,000091: 06,2006 10000 1.2SPOT OCT 10000 # TEMPORARY ENTRY TO ESTABLISH TABLE
002693,000092: 06,2007 E3,1400 EBANK= LST1
002694,000093: 06,2007 05576 04003 2CADR DUMMYJOB
002695,000094:
002696,000095: 06,2011 10000 OCT 10000
002697,000096: 06,2012 E3,1400 EBANK= LST1
002698,000097: 06,2012 05576 04003 2CADR DUMMYJOB
002699,000098:
002700,000099: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
002701,000100:
002702,000101: 06,2014 00303 1.3SPOT DEC 195 B-14
002703,000102: 06,2015 E5,1565 EBANK= ETHROT
002704,000103: 06,2015 74321 17712 -2CADR PCNTOVER
002705,000104:
002706,000105: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
002707,000106:
002708,000107: 06,2017 20000 2.2SPOT OCT 20000
002709,000108: 06,2020 E4,1566 EBANK= TDEC
002710,000109: 06,2020 02063 74064 2CADR 11REDO2
002711,000110:
002712,000111: 06,2022 01304 GENADR TDECTEMP
002713,000112: 06,2023 75657 -GENADR TIG11-30
002714,000113: 06,2024 E4,1566 EBANK= TDEC
002715,000114: 06,2024 74064 BBCON TIG11-30
002716,000115:
002717,000116: 06,2025 15530 2.4SPOT DEC 7000 B-14
002718,000117: 06,2026 E4,1566 EBANK= TDEC
002719,000118: 06,2026 74741 11713 -2CADR POSTKALC
002720,000119:
002721,000120: 06,2030 20000 OCT 20000
002722,000121: 06,2031 E4,1566 EBANK= TDEC
002723,000122: 06,2031 03023 66064 2CADR CALLKALC
002724,000123:
002725,000124: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
![]() |
Page 64 |
002727,000126:
002728,000127: 06,2033 77777 2.3SPOT OCT 77777 # MISSION SCHEDULING PACKAGE TO SET UP
002729,000128: 06,2034 E3,1400 EBANK= LST1
002730,000129: 06,2034 75646 15714 -2CADR REDOMDUE
002731,000130:
002732,000131: 06,2036 12574 2.5SPOT DEC 5500 B-14
002733,000132: 06,2037 E4,1566 EBANK= TDEC
002734,000133: 06,2037 75123 25773 -2CADR SIVB2
002735,000134:
002736,000135: 06,2041 77777 2.7SPOT OCT 77777
002737,000136: 06,2042 E4,1566 EBANK= TDEC
002738,000137: 06,2042 75614 25773 -2CADR SBORBA
002739,000138:
002740,000139: 06,2044 00620 2.11SPOT DEC 400 B-14
002741,000140: 06,2045 E4,1566 EBANK= TDEC
002742,000141: 06,2045 75470 25773 -2CADR SBORB8
002743,000142:
002744,000143: 06,2047 76035 2.13SPOT -GENADR DT-LIFT
002745,000144: 06,2050 E3,1736 EBANK= TGRR
002746,000145: 06,2050 75554 21774 -2CADR LIFTOFF
002747,000146:
002748,000147: 06,2052 01274 2.15SPOT DEC 700 B-14
002749,000148: 06,2053 E4,1566 EBANK= TDEC
002750,000149: 06,2053 75426 11713 -2CADR TIG4-41
002751,000150:
002752,000151: 06,2055 00310 2.17SPOT DEC 200 B-14
002753,000152: 06,2056 E4,1566 EBANK= TDEC
002754,000153: 06,2056 75361 11713 -2CADR TIG4-34
002755,000154:
002756,000155: 06,2060 77777 2.21SPOT OCT 77777
002757,000156: 06,2061 E4,1566 EBANK= TDEC
002758,000157: 06,2061 75621 03713 -2CADR DPSTART
002759,000158:
002760,000159: 06,2063 01356 2.23SPOT DEC 750 B-14
002761,000160: 06,2064 E4,1566 EBANK= TDEC
002762,000161: 06,2064 75566 03713 -2CADR TIG11
002763,000162:
002764,000163: 06,2066 77777 2.25SPOT OCT 77777
002765,000164: 06,2067 E4,1566 EBANK= TDEC
002766,000165: 06,2067 75361 03713 -2CADR MP11HOLD
002767,000166:
002768,000167: 06,2071 00144 2.27SPOT DEC 100 B-14
002769,000168: 06,2072 E4,1566 EBANK= TDEC
002770,000169: 06,2072 75314 03713 -2CADR MP11OUT
002771,000170:
002772,000171: 06,2074 20000 2.31SPOT OCT 20000
002773,000172: 06,2075 E4,1566 EBANK= TDEC
002774,000173: 06,2075 02017 74064 2CADR 11REDO1
002775,000174:
002776,000175: 06,2077 20000 2.33SPOT OCT 20000
002777,000176: 06,2100 E4,1566 EBANK= TDEC
![]() |
Page 65 |
002779,000178: 06,2100 02032 74064 2CADR INTRTN
002780,000179:
002781,000180: 06,2102 01304 2.35SPOT GENADR TDECTEMP
002782,000181: 06,2103 75657 -GENADR TIG11-30
002783,000182: 06,2104 E4,1566 EBANK= TDEC
002784,000183: 06,2104 74064 BBCON TIG11-30
002785,000184:
002786,000185: 06,2105 77777 2.37SPOT OCT 77777
002787,000186: 06,2106 E4,1566 EBANK= TDEC
002788,000187: 06,2106 75453 03713 -2CADR MOVENDX
002789,000188:
002790,000189: 06,2110 01750 2.41SPOT DEC 1000 B-14
002791,000190: 06,2111 E4,1566 EBANK= TDEC
002792,000191: 06,2111 75445 03713 -2CADR CCSMPRET
002793,000192:
002794,000193: 06,2113 15530 2.43SPOT DEC 7000 B-14
002795,000194: 06,2114 E4,1566 EBANK= TDEC
002796,000195: 06,2114 74741 11713 -2CADR POSTKALC
002797,000196:
002798,000197: 06,2116 02114 2.45SPOT DEC 1100 B-14
002799,000198: 06,2117 E4,1566 EBANK= TDEC
002800,000199: 06,2117 74665 11713 -2CADR 182LMP
002801,000200:
002802,000201: 06,2121 11610 2.47SPOT DEC 5000 B-14
002803,000202: 06,2122 E4,1566 EBANK= TDEC
002804,000203: 06,2122 74327 11713 -2CADR 228LMP
002805,000204:
002806,000205: 06,2124 00062 2.51SPOT DEC 50 B-14
002807,000206: 06,2125 1072 EBANK= AVGEXIT
002808,000207: 06,2125 74535 11715 -2CADR 9ULLOFF
002809,000208:
002810,000209: 06,2127 00372 2.53SPOT DEC 250 B-14
002811,000210: 06,2130 1072 EBANK= AVGEXIT
002812,000211: 06,2130 74527 11715 -2CADR 9EDBATT
002813,000212:
002814,000213: 06,2132 76473 2.55SPOT -GENADR TDECTEMP
002815,000214: 06,2133 E4,1566 EBANK= TDEC
002816,000215: 06,2133 74437 11713 -2CADR CUTOFF
002817,000216:
002818,000217: 06,2135 00764 2.57SPOT DEC 500 B-14
002819,000218: 06,2136 E4,1566 EBANK= TDEC
002820,000219: 06,2136 74415 11713 -2CADR 87LMP
002821,000220:
002822,000221: 06,2140 77777 2.61SPOT OCT 77777
002823,000222: 06,2141 E3,1736 EBANK= TGRR
002824,000223: 06,2141 75547 21774 -2CADR REDO2.61
002825,000224:
002826,000225: 06,2143 77777 2.63SPOT OCT 77777
002827,000226: 06,2144 E3,1736 EBANK= TGRR
002828,000227: 06,2144 75534 21774 -2CADR REDO2.63
002829,000228:
![]() |
Page 66 |
002831,000230: # ANY MORE GROUP 2.0DD RESTART VALUES SHOULD GO HERE
002832,000231:
002833,000232: 06,2146 06,2006 3.2SPOT EQUALS 1.2SPOT
002834,000233:
002835,000234: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
002836,000235:
002837,000236: 06,2146 00062 3.3SPOT DEC 50 B-14
002838,000237: 06,2147 E4,1566 EBANK= TDEC
002839,000238: 06,2147 75415 03713 -2CADR ABMON
002840,000239:
002841,000240: 06,2151 77777 3.5SPOT OCT 77777
002842,000241: 06,2152 E4,1566 EBANK= TDEC
002843,000242: 06,2152 75307 17713 -2CADR TUMTASK
002844,000243:
002845,000244: 06,2154 01743 3.7SPOT GENADR DT-LETJT
002846,000245: 06,2155 75507 -GENADR POSTLET
002847,000246: 06,2156 E3,1736 EBANK= TGRR
002848,000247: 06,2156 56003 BBCON POSTLET
002849,000248:
002850,000249: 06,2157 77777 3.11SPOT OCT 77777
002851,000250: 06,2160 1164 EBANK= MTIMER4
002852,000251: 06,2160 75740 15715 -2CADR REDO3.11
002853,000252:
002854,000253: 06,2162 00144 3.13SPOT DEC 100 B-14
002855,000254: 06,2163 1164 EBANK= MTIMER4
002856,000255: 06,2163 75777 15715 -2CADR MMAINT
002857,000256:
002858,000257: 06,2165 02260 3.15SPOT DEC 1200 B-14
002859,000258: 06,2166 E4,1566 EBANK= TDEC
002860,000259: 06,2166 75224 03713 -2CADR NEXLMP
002861,000260:
002862,000261: 06,2170 00310 3.17SPOT DEC 200 B-14
002863,000262: 06,2171 E4,1566 EBANK= TDEC
002864,000263: 06,2171 75215 03713 -2CADR NEXLMP1
002865,000264:
002866,000265: 06,2173 00144 3.21SPOT DEC 100 B-14
002867,000266: 06,2174 E4,1566 EBANK= TDEC
002868,000267: 06,2174 75207 03713 -2CADR NEXLMP2
002869,000268:
002870,000269: 06,2176 13560 3.23SPOT DEC 6000 B-14
002871,000270: 06,2177 E4,1566 EBANK= TDEC
002872,000271: 06,2177 75200 03713 -2CADR NEXLMP3
002873,000272:
002874,000273: 06,2201 00144 3.25SPOT DEC 100 B-14
002875,000274: 06,2202 E4,1566 EBANK= TDEC
002876,000275: 06,2202 75232 03713 -2CADR MP11TASK
002877,000276:
002878,000277: 06,2204 20000 3.27SPOT OCT 20000
002879,000278: 06,2205 E5,1400 EBANK= XSM
002880,000279: 06,2205 02651 72065 2CADR REDO3.27
002881,000280:
![]() |
Page 67 |
002883,000282: 06,2207 77777 3.31SPOT OCT 77777
002884,000283: 06,2210 E4,1745 EBANK= TTGO
002885,000284: 06,2210 74326 21773 -2CADR DUMMY13
002886,000285:
002887,000286: 06,2212 04704 3.33SPOT DEC 2500 B-14
002888,000287: 06,2213 E4,1745 EBANK= TTGO
002889,000288: 06,2213 74272 21773 -2CADR TRMDMY13
002890,000289:
002891,000290: # ANY MORE GROUP 3.0DD RESTART VALUES SHOULD GO HERE
002892,000291:
002893,000292: 06,2215 06,2006 4.2SPOT EQUALS 1.2SPOT
002894,000293:
002895,000294: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
002896,000295:
002897,000296: 06,2215 30000 4.3SPOT OCT 30000
002898,000297: 06,2216 E5,1565 EBANK= ETHROT
002899,000298: 06,2216 03540 60065 2CADR ACCLJOB
002900,000299:
002901,000300: 06,2220 10000 4.5SPOT OCT 10000
002902,000301: 06,2221 E3,1652 EBANK= RATEINDX
002903,000302: 06,2221 02670 56003 2CADR COLDSOAK
002904,000303:
002905,000304: 06,2223 15000 4.7SPOT OCT 15000
002906,000305: 06,2224 E3,1736 EBANK= TGRR
002907,000306: 06,2224 02056 56003 2CADR MP2JOB
002908,000307:
002909,000308: 06,2226 25000 4.11SPOT OCT 25000
002910,000309: 06,2227 E5,1565 EBANK= ETHROT
002911,000310: 06,2227 03507 60065 2CADR PCNTJOB
002912,000311:
002913,000312: 06,2231 01304 4.13SPOT GENADR TDECTEMP
002914,000313: 06,2232 74643 -GENADR TIG9-66
002915,000314: 06,2233 E4,1566 EBANK= TDEC
002916,000315: 06,2233 66064 BBCON TIG9-66
002917,000316:
002918,000317: 06,2234 27000 4.15SPOT OCT 27000
002919,000318: 06,2235 E4,1566 EBANK= TDEC
002920,000319: 06,2235 03157 66064 2CADR ORBINTJB
002921,000320:
002922,000321: 06,2237 76472 4.17SPOT -GENADR TDECTEMP +1
002923,000322: 06,2240 1072 EBANK= AVGEXIT
002924,000323: 06,2240 74547 11715 -2CADR TIG9-0
002925,000324:
002926,000325: # ANY MORE GROUP 4.0DD RESTART VALUES SHOULD GO HERE
002927,000326:
002928,000327: 06,2242 21000 5.2SPOT OCT 21000
002929,000328: 06,2243 E4,1514 EBANK= RAVEGON
002930,000329: 06,2243 02412 60064 2CADR NORMLIZE
002931,000330:
002932,000331: 06,2245 00310 DEC 200 B-14
![]() |
Page 68 |
002934,000333: 06,2246 E5,1511 EBANK= DVCNTR
002935,000334: 06,2246 75144 17712 -2CADR REREADAC
002936,000335:
002937,000336: 06,2250 00310 5.4SPOT DEC 200 B-14
002938,000337: 06,2251 E5,1570 EBANK= BMEMORY
002939,000338: 06,2251 75777 17712 -2CADR PREREAD
002940,000339:
002941,000340: 06,2253 32000 OCT 32000
002942,000341: 06,2254 E3,1400 EBANK= LST1
002943,000342: 06,2254 03575 24003 2CADR LASTBIAS
002944,000343:
002945,000344: 06,2256 00310 5.6SPOT DEC 200 B-14
002946,000345: 06,2257 E5,1511 EBANK= DVCNTR
002947,000346: 06,2257 75144 17712 -2CADR REREADAC
002948,000347:
002949,000348: 06,2261 20000 OCT 20000
002950,000349: 06,2262 E5,1511 EBANK= DVCNTR
002951,000350: 06,2262 02133 60065 2CADR SERVICER
002952,000351:
002953,000352: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
002954,000353:
002955,000354: 06,2264 00310 5.3SPOT DEC 200 B-14
002956,000355: 06,2265 E5,1511 EBANK= DVCNTR
002957,000356: 06,2265 75144 17712 -2CADR REREADAC
002958,000357:
002959,000358: 06,2267 00000 00000 5.5SPOT 2DEC 0 B-28 # 5.5 SPOT NOT USED
002960,000359:
002961,000360: 06,2271 00000 DEC 0 B-14
002962,000361:
002963,000362: 06,2272 20000 5.7SPOT OCT 20000
002964,000363: 06,2273 E5,1400 EBANK= XSM
002965,000364: 06,2273 02020 72065 2CADR RSTGTS1
002966,000365:
002967,000366: 06,2275 77777 5.11SPOT OCT 77777
002968,000367: 06,2276 E5,1400 EBANK= XSM
002969,000368: 06,2276 75706 05712 -2CADR ALLOOP1
002970,000369:
002971,000370: 06,2300 20000 5.13SPOT OCT 20000
002972,000371: 06,2301 E5,1400 EBANK= XSM
002973,000372: 06,2301 02727 72065 2CADR WTLISTNT
002974,000373:
002975,000374: 06,2303 20000 5.15SPOT OCT 20000
002976,000375: 06,2304 E5,1400 EBANK= XSM
002977,000376: 06,2304 02757 72065 2CADR NOCHORLD
002978,000377:
002979,000378: 06,2306 20000 5.17SPOT OCT 20000
002980,000379: 06,2307 E5,1400 EBANK= XSM
002981,000380: 06,2307 02710 72065 2CADR GEOSTRT4
002982,000381:
002983,000382: 06,2311 20000 5.21SPOT OCT 20000
![]() |
Page 69 |
002985,000384: 06,2312 E5,1400 EBANK= XSM
002986,000385: 06,2312 02126 72065 2CADR ALFLT1
002987,000386:
002988,000387: 06,2314 77777 5.23SPOT OCT 77777
002989,000388: 06,2315 E5,1400 EBANK= XSM
002990,000389: 06,2315 75666 05712 -2CADR SPECSTS
002991,000390:
002992,000391: 06,2317 20000 5.25SPOT OCT 20000
002993,000392: 06,2320 E5,1400 EBANK= XSM
002994,000393: 06,2320 02630 72065 2CADR RESTAIER
002995,000394:
002996,000395: 06,2322 00620 5.27SPOT DEC 400 B-14
002997,000396: 06,2323 E5,1506 EBANK= DVTOTAL
002998,000397: 06,2323 75777 17712 -2CADR PREREAD
002999,000398:
003000,000399: 06,2325 77777 5.31SPOT OCT 77777
003001,000400: 06,2326 E5,1537 EBANK= NEGXDV
003002,000401: 06,2326 75707 17712 -2CADR REDO5.31
003003,000402:
003004,000403: 06,2330 77777 5.33SPOT OCT 77777
003005,000404: 06,2331 E5,1511 EBANK= DVCNTR
003006,000405: 06,2331 75777 17712 -2CADR PREREAD
003007,000406:
003008,000407: 06,2333 76435 5.35SPOT -GENADR RSDTTEMP
003009,000408: 06,2334 E5,1506 EBANK= DVTOTAL
003010,000409: 06,2334 75777 17712 -2CADR PREREAD
003011,000410:
003012,000411: 06,2336 77777 5.37SPOT OCT 77777
003013,000412: 06,2337 E3,1736 EBANK= TGRR
003014,000413: 06,2337 75754 21774 -2CADR SETPIPDT
003015,000414:
003016,000415: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
003017,000416:
003018,000417: 06,2341 00764 6.2SPOT DEC 500 B-14
003019,000418: 06,2342 E7,1407 EBANK= DNTMBUFF
003020,000419: 06,2342 75225 55770 -2CADR DAPOFF
003021,000420:
003022,000421: 06,2344 30000 OCT 30000
003023,000422: 06,2345 E7,1407 EBANK= DNTMBUFF
003024,000423: 06,2345 02541 22007 2CADR TGOFF
003025,000424:
003026,000425: # ANY MORE GROUP 6.EVEN RESTART VALUES SHOULD GO HERE
003027,000426:
003028,000427: 06,2347 00764 6.3SPOT DEC 500 B-14
003029,000428: 06,2350 E7,1407 EBANK= DNTMBUFF
003030,000429: 06,2350 75225 55770 -2CADR DAPOFF
003031,000430:
003032,000431: 06,2352 33000 6.5SPOT OCTAL 33000
003033,000432: 06,2353 E4,1677 EBANK= STBUFF
003034,000433: 06,2353 02440 54004 2CADR I=4.CONT
003035,000434:
![]() |
Page 70 |
003037,000436: 06,2355 30000 6.7SPOT OCT 30000
003038,000437: 06,2356 E4,1677 EBANK= STBUFF
003039,000438: 06,2356 02464 54004 2CADR UPQUITRM
003040,000439:
003041,000440: 06,2360 76432 6.11SPOT -GENADR DAPOFFDT
003042,000441: 06,2361 E7,1407 EBANK= DNTMBUFF
003043,000442: 06,2361 75504 03710 -2CADR 11DAPOFF
003044,000443:
003045,000444: # ANY MORE GROUP 6.0DD RESTART VALUES SHOULD GO HERE
003046,000445:
003047,000446: 06,2363 00000 SIZETAB GENADR 1.2SPOT -24006
003048,000447: 06,2364 00010 GENADR 1.3SPOT -24004
003049,000448: 06,2365 00011 GENADR 2.2SPOT -24006
003050,000449: 06,2366 00027 GENADR 2.3SPOT -24004
003051,000450: 06,2367 00000 GENADR 3.2SPOT -24006
003052,000451: 06,2370 00142 GENADR 3.3SPOT -24004
003053,000452: 06,2371 00000 GENADR 4.2SPOT -24006
003054,000453: 06,2372 00211 GENADR 4.3SPOT -24004
003055,000454: 06,2373 00234 GENADR 5.2SPOT -24006
003056,000455: 06,2374 00260 GENADR 5.3SPOT -24004
003057,000456: 06,2375 00333 GENADR 6.2SPOT -24006
003058,000457: 06,2376 00343 GENADR 6.3SPOT -24004
003059,000458:
![]() |
Page 71 |
003061,000460: 06,2377 30151 RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
003062,000461: 06,2400 60000 DOUBLE # SAVE FOR INDEXING
003063,000462: 06,2401 54145 TS TEMP2G
003064,000463:
003065,000464: 06,2402 32003 CA FVACCADR # LET:S ASSUME THIS IS A JOB, THIS WILL
003066,000465: 06,2403 54734 TS GOLOC -1 # SAVE US A COUPLE OF LOCATIONS, BUT NOT
003067,000466: # NECESSARIALY ANY TIME - SO BE IT -
003068,000467:
003069,000468: 06,2404 32000 CA PHS2CADR # SET UP EXIT IN CASE IT IS AN EVEN
003070,000469: 06,2405 54147 TS TEMPSWCH # TABLE PHASE
003071,000470:
003072,000471: 06,2406 32005 CA RTRNCADR # TO SAVE TIME ASSUME IT WILL GET NEXT
003073,000472: 06,2407 54737 TS GOLOC +2 # GROUP AFTER THIS
003074,000473:
003075,000474: 06,2410 30144 CA TEMPPHS
003076,000475: 06,2411 75352 MASK OCT1400
003077,000476: 06,2412 10000 CCS A # IS IT A VARIABLE OR TABLE RESTART
003078,000477: 06,2413 12424 TCF ITSAVAR # IT;S A VARIABLE RESTART
003079,000478:
003080,000479: 06,2414 10144 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
003081,000480: 06,2415 10000 CCS A
003082,000481: 06,2416 12513 TCF ITSATBL # NO, ITS A TABLE RESTART
003083,000482:
003084,000483: 06,2417 35640 CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START
003085,000484: 06,2420 05516 TC FINDVAC # THE DISPLAY RESTART JOB
003086,000485: 06,2421 E3,1400 EBANK= LST1
003087,000486: 06,2421 05567 04003 2CADR INITDSP
003088,000487:
003089,000488: 06,2423 02005 TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE
003090,000489:
003091,000490: 06,2424 5567 INITDSP EQUALS ENDOFJOB
003092,000491:
003093,000492: 06,2424 75352 ITSAVAR MASK OCT1400 # IS IT TYPE B ?
003094,000493: 06,2425 10000 CCS A
003095,000494: 06,2426 12475 TCF ITSLIKEB # YES, IT IS TYPE B
003096,000495:
003097,000496: 06,2427 00006 EXTEND # STORE THE JOB (OR TASK) 2CADR FOR EXIT
003098,000497: 06,2430 50145 NDX TEMP2G
003099,000498: 06,2431 31517 DCA PHSNAME1
003100,000499: 06,2432 52736 DXCH GOLOC
003101,000500:
003102,000501: 06,2433 30144 CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCAL
003103,000502: 06,2434 77765 MASK OCT7
003104,000503: 06,2435 65336 AD MINUS2
003105,000504: 06,2436 10000 CCS A
003106,000505: 06,2437 12576 TCF ITSLNGCL # ITS A LONGCALL
003107,000506:
003108,000507: 06,2440 37776 OCT37776 OCT 37776 # CANT GET HERE
003109,000508:
![]() |
Page 72 |
003111,000510: 06,2441 12443 TCF ITSAWAIT
003112,000511:
003113,000512: 06,2442 12510 TCF ITSAJOB # ITS A JOB
003114,000513:
003115,000514: 06,2443 32004 ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL
003116,000515: 06,2444 54734 TS GOLOC -1
003117,000516:
003118,000517: 06,2445 50145 NDX TEMP2G # DIRECTLY STORED
003119,000518: 06,2446 31114 CA PHSPRDT1
003120,000519: 06,2447 10000 TIMETEST CCS A # IS IT AN IMMEDIATE RESTART
003121,000520: 06,2450 24000 INCR A # NO.
003122,000521: 06,2451 12454 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
003123,000522:
003124,000523: 06,2452 14064 TCF ITSINDIR # STORED INDIRECTLY
003125,000524:
003126,000525: 06,2453 12473 TCF IMEDIATE # IT WANTS AN IMMEDIATE RESTART
003127,000526:
003128,000527: # ***** THIS MUST BE IN FIXED FIXED *****
003129,000528:
003130,000529: 4064 BLOCK 02
003131,000530: 4064 22736 ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
003132,000531: 4065 22006 LXCH BB # SWITCHED ERRASIBLE
003133,000532:
003134,000533: 4066 50000 NDX A # GET THE TIME INDIRECTLY
003135,000534: 4067 30001 CA 1
003136,000535:
003137,000536: 4070 22006 LXCH BB # RESTORE THE BB AND GOLOC
003138,000537: 4071 22736 LXCH GOLOC +1
003139,000538:
003140,000539: 4072 12454 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
003141,000540:
003142,000541: # ***** YOUB MAY RETURN TO SWITCHED FIXED *****
003143,000542:
003144,000543: 06,2454 BANK 06
003145,000544: 06,2454 40000 FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTD
003146,000545: 06,2455 54001 TS L # AND SAVE
003147,000546: 06,2456 50145 NDX TEMP2G
003148,000547: 06,2457 41113 CS TBASE1
003149,000548: 06,2460 00006 EXTEND
003150,000549: 06,2461 60025 SU TIME1
003151,000550: 06,2462 10000 CCS A
003152,000551: 06,2463 40000 COM
003153,000552: 06,2464 62440 AD OCT37776
003154,000553: 06,2465 67763 AD ONE
003155,000554: 06,2466 60001 AD L
003156,000555: 06,2467 10000 CCS A
003157,000556: 06,2470 37767 CA ZERO
003158,000557: 06,2471 12473 TCF +2
003159,000558: 06,2472 12473 TCF +1
003160,000559: 06,2473 67763 IMEDIATE AD ONE
![]() |
Page 73 |
003162,000561: 06,2474 00734 TC GOLOC -1
003163,000562: 06,2475 32005 ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
003164,000563: 06,2476 54147 TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE
003165,000564:
003166,000565: 06,2477 32001 CA PRT2CADR # SET UP EXIT TO GET TABLE PART OF THIS
003167,000566: 06,2500 54737 TS GOLOC +2 # VARIABLE TYPE OF PHASE
003168,000567:
003169,000568: 06,2501 30144 CA TEMPPHS # MAKE THE PHASE LOOK RIGHT FOR THE TABLE
003170,000569: 06,2502 75342 MASK OCT177 # PART OF THIS VARIABLE PHASE
003171,000570: 06,2503 54144 TS TEMPPHS
003172,000571:
003173,000572: 06,2504 00006 EXTEND
003174,000573: 06,2505 50145 NDX TEMP2G # OBTAIN THE JOB;S 2CADR
003175,000574: 06,2506 31517 DCA PHSNAME1
003176,000575: 06,2507 52736 DXCH GOLOC
003177,000576:
003178,000577: 06,2510 50145 ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET;S GO
003179,000578: 06,2511 31114 CA PHSPRDT1
003180,000579: 06,2512 00734 TC GOLOC -1
003181,000580:
003182,000581: 06,2513 54020 ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN
003183,000582: 06,2514 10020 CCS CYR
003184,000583: 06,2515 12516 TCF +1 # IT;S EVEN
003185,000584: 06,2516 12616 TCF ITSEVEN
003186,000585:
003187,000586: 06,2517 32005 CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A
003188,000587: 06,2520 54737 TS GOLOC +2 # TYPE B RESTART, WE NEED PROPER EXIT
003189,000588:
003190,000589: 06,2521 30144 CA TEMPPHS # SET UP POINTER FOR FINDING OUR PLACE IN
003191,000590: 06,2522 54021 TS SR # THE RESTART TABLES
003192,000591: 06,2523 60021 AD SR
003193,000592: 06,2524 50145 NDX TEMP2G
003194,000593: 06,2525 62364 AD SIZETAB +1
003195,000594: 06,2526 54146 TS POINTER
003196,000595:
003197,000596: 06,2527 00006 CONTBL2 EXTEND # FIND OUT WHAT;S IN THE TABLE
003198,000597: 06,2530 50146 NDX POINTER
003199,000598: 06,2531 32002 DCA CADRTAB # GET THE 2CADR
003200,000599:
003201,000600: 06,2532 22736 LXCH GOLOC +1 # STORE THE BB INFORMATION
003202,000601:
003203,000602: 06,2533 10000 CCS A # IS IT A JOB OR IS IT TIMED
003204,000603: 06,2534 24000 INCR A # POSITIVE, MUST BE A JOB
003205,000604: 06,2535 12610 TCF ITSAJOB2
003206,000605:
003207,000606: 06,2536 24000 INCR A # MUST BE EITHER A WAITLIST OR LONGCALL
003208,000607: 06,2537 54735 TS GOLOC # LET-S STORE THE CORRECT CADR
003209,000608:
003210,000609: 06,2540 32004 CA WTLTCADR # SET UP OUR EXIT TO WAITLIST
003211,000610: 06,2541 54734 TS GOLOC -1
003212,000611:
![]() |
Page 74 |
003214,000613: 06,2542 30736 CA GOLOC +1 # NOW FIND OUT IF IT IS A WAITLIST CALL
003215,000614: 06,2543 77752 MASK BIT10 # THIS SHOULD BE ONE IF WE HAVE -BB
003216,000615: 06,2544 10000 CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
003217,000616: # 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
003218,000617: # IN IMPORTANCE ANYWAY. BIT 4
003219,000618: 06,2545 12603 TCF ITSWTLST # IT IS A WAITLIST CALL
003220,000619:
003221,000620: 06,2546 50146 NDX POINTER # OBTAIN THE ORIGINAL DELTA T
003222,000621: 06,2547 32000 CA PRDTTAB # ADDRESS FOR THIS LONGCALL
003223,000622:
003224,000623: 06,2550 14073 TCF ITSLGCL1 # NOW GO GET THE DELTA TIME
003225,000624:
003226,000625: # ***** THIS MUST BE IN FIXED FIXED *****
003227,000626:
003228,000627: 4073 BLOCK 02
003229,000628: 4073 22736 ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK
003230,000629: 4074 22006 LXCH BB
003231,000630: 4075 22736 LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS
003232,000631:
003233,000632: 4076 00006 EXTEND # GET THE DELTA TIME
003234,000633: 4077 50000 NDX A
003235,000634: 4100 30001 DCA 0
003236,000635:
003237,000636: 4101 22736 LXCH GOLOC +1 # RESTORE OUR E AND F BANK
003238,000637: 4102 22006 LXCH BB # RESTORE THE TASKS E AND F BANKS
003239,000638: 4103 22736 LXCH GOLOC +1 # AND PRESERVE OUR L
003240,000639: 4104 12551 TCF ITSLGCL2 # NOT LET:S PROCESS THIS LONGCALL
003241,000640:
003242,000641: # ***** YOUB MAY RETURN TO SWITCHED FIXED *****
003243,000642:
003244,000643: 06,2551 BANK 06
003245,000644: 06,2551 53154 ITSLGCL2 DXCH LONGTIME
003246,000645:
003247,000646: 06,2552 00006 EXTEND # CALCULATE TIME LEFT
003248,000647: 06,2553 40025 DCS TIME2
003249,000648: 06,2554 21154 DAS LONGTIME
003250,000649: 06,2555 00006 EXTEND
003251,000650: 06,2556 31433 DCA LONGBASE
003252,000651: 06,2557 21154 DAS LONGTIME
003253,000652:
003254,000653: 06,2560 11153 CCS LONGTIME # FIND OUT HOW THIS SHOULD BE RESTARTED
003255,000654: 06,2561 12571 TCF LONGCLCL
003256,000655: 06,2562 12564 TCF +2
003257,000656: 06,2563 12470 TCF IMEDIATE -3
003258,000657: 06,2564 11154 CCS LONGTIME +1
003259,000658: 06,2565 12571 TCF LONGCLCL
003260,000659: 06,2566 12567 NOOP # CAN:T GET HERE *********
003261,000660: 06,2567 12470 TCF IMEDIATE -3
003262,000661: 06,2570 12473 TCF IMEDIATE
003263,000662:
![]() |
Page 75 |
003265,000664: 06,2571 32002 LONGCLCL CA LGCLCADR # WE WILL GO TO LONGCALL
003266,000665: 06,2572 54734 TS GOLOC -1
003267,000666:
003268,000667: 06,2573 00006 EXTEND # PREPARE OUR ENTRY TO LONGCALL
003269,000668: 06,2574 31154 DCA LONGTIME
003270,000669: 06,2575 00734 TC GOLOC -1
003271,000670:
003272,000671: 06,2576 32004 ITSLNGCL CA WTLTCADR # ASSUME IT WILL GO TO WAITLIST
003273,000672: 06,2577 54734 TS GOLOC -1
003274,000673:
003275,000674: 06,2600 50145 NDX TEMP2G
003276,000675: 06,2601 41114 CS PHSPRDT1 # GET THE DELTA T ADDRESS
003277,000676:
003278,000677: 06,2602 14073 TCF ITSLGCL1 # NOW GET THE DELTA TIME
003279,000678:
003280,000679: 06,2603 40736 ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION
003281,000680: 06,2604 54736 TS GOLOC +1
003282,000681:
003283,000682: 06,2605 50146 NDX POINTER # GET THE DT AND FIND OUT IF IT WAS STORED
003284,000683: 06,2606 32000 CA PRDTTAB # DIRECTLY OR INDIRECTLY
003285,000684:
003286,000685: 06,2607 12447 TCF TIMETEST # FIND OUT HOW THE TIME IS STORED
003287,000686:
003288,000687: 06,2610 56735 ITSAJOB2 XCH GOLOC # STORE THE CADR
003289,000688:
003290,000689: 06,2611 32003 CA FVACCADR # STORE TC FINDVAC.
003291,000690: 06,2612 54734 TS GOLOC -1
003292,000691:
003293,000692: 06,2613 50146 NDX POINTER # ADD THE PRIORITY AND LET;S GO
003294,000693: 06,2614 32000 CA PRDTTAB
003295,000694:
003296,000695: 06,2615 00734 TC GOLOC -1
003297,000696:
003298,000697: 06,2616 30147 ITSEVEN CA TEMPSWCH # SET UP FOR EITHER THE SECOND PART OF THE
003299,000698: 06,2617 54737 TS GOLOC +2 # TABLE, OR A RETURN FOR THE NEXT GROUP
003300,000699:
003301,000700: 06,2620 50145 NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN
003302,000701: 06,2621 32363 CA SIZETAB # THE TABLE
003303,000702: 06,2622 60144 AD TEMPPHS # THIS MAY LOOK BAD BUT LET;S SEE YOU DO
003304,000703: 06,2623 60144 AD TEMPPHS # BETTER IN TIME OR NUMBERR OF LOCATIONS
003305,000704: 06,2624 60144 AD TEMPPHS
003306,000705: 06,2625 54146 TS POINTER
003307,000706:
003308,000707: 06,2626 12527 TCF CONTBL2 # NOW PROCESS WHAT IS IN THE TABLE
003309,000708:
003310,000709: 06,2627 36311 PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF
003311,000710: 06,2630 26146 ADS POINTER # THE TABLE
003312,000711:
003313,000712: 06,2631 32005 CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE
003314,000713: 06,2632 54737 TS GOLOC +2 # EVEN TABLE, SO AFTER IT GET THE NEXT
![]() |
Page 76 |
003316,000715: # GROUP
003317,000716: 06,2633 12527 TCF CONTBL2 # SO LET;S GET THE SECOND ENTRY IN THE TBL
003318,000717:
003319,000718: 06,2634 0144 TEMPPHS EQUALS MPAC
003320,000719: 06,2634 0145 TEMP2G EQUALS MPAC +1
003321,000720: 06,2634 0146 POINTER EQUALS MPAC +2
003322,000721: 06,2634 0147 TEMPSWCH EQUALS MPAC +3
003323,000722: 06,2634 0735 GOLOC EQUALS VAC5 +20D
003324,000723: 06,2634 5336 MINUS2 EQUALS NEG2
003325,000724: 06,2634 5342 OCT177 EQUALS LOW7
003326,000725:
003327,000726: # SETRSTRT - RESTART FLAG UP OR DOWN DEPENDING ON CONTENTS OF ERASABLE RSTRTWRD.
003328,000727:
003329,000728: # CALLING SEQUENCE
003330,000729: # CAF BITX USE BIT CORRESPONDING TO MISS PHASE NUM.
003331,000730: # TC SETRSTRT
003332,000731:
003333,000732: 4105 BLOCK 02
003334,000733:
003335,000734: 4105 22002 SETRSTRT LXCH Q
003336,000735: 4106 71127 MASK RSTRTWRD
003337,000736: 4107 00006 EXTEND
003338,000737: 4110 14114 BZF +4
003339,000738:
003340,000739: 4111 06051 TC FLAG1UP # USER MISSION PHASE IS RESTARTABLE
003341,000740: 4112 04000 OCT 04000
003342,000741: 4113 00001 TC L
003343,000742:
003344,000743: 4114 06067 +4 TC FLAG1DWN # USER MISSION PHASE NOT RESTARTABLE
003345,000744: 4115 04000 OCT 04000
003346,000745: 4116 00001 TC L
End of include-file RESTART_TABLES_AND_RESTARTS_ROUTINE.agc. Parent file is MAIN.agc