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