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