Source Code
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part:
YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
DEC 13, 1966
THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37
OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.
|
002470,000002: ## Copyright: Public domain.
002471,000003: ## Filename: RESTART_TABLES_AND_RESTARTS_ROUTINE.agc
002472,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
002473,000005: ## It is part of an early development version of the software
002474,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
002475,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
002476,000008: ## upon which Don Eyles's offline development program Shepatin
002477,000009: ## was based; the listing herein transcribed was actually for
002478,000010: ## the equivalent revision 0 of Shepatin.
002479,000011: ## This file is intended to be a faithful transcription, except
002480,000012: ## that the code format has been changed to conform to the
002481,000013: ## requirements of the yaYUL assembler rather than the
002482,000014: ## original YUL assembler.
002483,000015: ## Reference: pp. 56-66
002484,000016: ## Assembler: yaYUL
002485,000017: ## Contact: Ron Burkey <info@sandroid.org>.
002486,000018: ## Website: www.ibiblio.org/apollo/index.html
002487,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
002488,000020: ## 2017-05-28 HG Transcribed
002489,000021: ## 2017-06-15 HG Fix operator CS -> CA
002490,000022: ## 2017-06-15 HG Fix operator -2CADR -> 2CADR
002491,000023: ## 2017-06-21 RSB Proofed using octopus/ProoferComments.
002492,000024:
|
|
Page 56 |
002494,000026: # RESTART TABLES
002495,000027: # DO NOT REMOVE FROM THE BEGINNING OF THIS BANK
002496,000028: # ------------------
002497,000029:
002498,000030: # THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
002499,000031: # RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
002500,000032: # EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
002501,000033: # WAY THINGS ARE PUT INTO THE TABLES.
002502,000034: # A JOB HAS ITS PRIORITY STORED IN PRDTTAB OF THE CORRECT PHASE SPOT WITH ITS 2CADR IN THE CADRTAB. FOR
002503,000035: # EXAMPLE,
002504,000036:
002505,000037: # 5.7SPOT OCT 23000
002506,000038: # 2CADR SOMEJOB
002507,000039:
002508,000040: # A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED WITH A PRIORITY OF 23.
002509,000041:
002510,000042: # A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
002511,000043: # PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
002512,000044: # WITH. EXAMPLE,
002513,000045:
002514,000046: # 3.6SPOT GENADR DELTAT
002515,000047: # -GENADR LONGTASK
002516,000048: # BBCON LONGTASK
002517,000049:
002518,000050: # OCT 31000
002519,000051: # 2CADR JOBAGAIN
002520,000052:
002521,000053: # THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
002522,000054: # BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATOIN SHOULD BE IN THE BBCON OFTHE 2CADR OF THE
002523,000055: # TASK. FROM ABOVE, WE SEE THAT THE SECOND PART OF THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
002524,000056:
002525,000057: # WAITLIST CALLS ARE IDENTIFIED BY THE FACT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
002526,000058: # IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
002527,000059: # LOCATION CONTAINING THE DELTA TIME, THAT IS, THE TIME IS STORED INDIRECTLY. IT SHOULD BE NOTED AS ABOVE, THAT
002528,000060: # IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
002529,000061: # WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
002530,000062: # TASK. EXAMPLES,
002531,000063:
002532,000064: # OCT 77777 THIS WILL CAUSE AN IMMEDIATE RESTART
002533,000065: # -2CADR ATASK OF THE TASK :ATASK:
002534,000066:
002535,000067: # DEC 200 IF THE TIME OF THE 2 SECONDS SINCE DUMMY
002536,000068: # -2CADR DUMMY WAS PUT ON WAITLIST IS UP, IT WILL BEGIN
002537,000069: # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
002538,000070:
002539,000071: # IT NORMALLY WOULD HAVE BEGUN.
002540,000072:
002541,000073: # -GENADR DTIME WHERE DTIME CONTAINS THE DELTA TIME
002542,000074: # -2CADR TASKTASK OTHERWISE THIS IS AS ABOVE
002543,000075:
002544,000076: # ***** NOW THE TABLES THEMSELVES *****
002545,000077:
|
|
Page 57 |
002547,000079:
002548,000080: 4064 PRDTTAB EQUALS 24000 # USED TO FIND THE PRIORITY OR DELTA TIME
002549,000081: 4064 CADRTAB EQUALS 24001 # THIS AND THE NEXT LOCATION (RELATIVE)
002550,000082:
002551,000083: # CONTAIN THE RESTART CADR
002552,000084:
002553,000085: 06,2000 BANK 06
002554,000086:
002555,000087: 06,2000 E3,1400 EBANK= LST1 # GOPROG MUST SWITCH IN THIS EBANK
002556,000088:
002557,000089: 06,2000 02360 PHS2CADR GENADR PHSPART2 # DO NOT REMOVE THE FOLLOWING 6 LOCATIONS
002558,000090: 06,2001 02147 PRT2CADR GENADR GETPART2 # FROM BEGINNING OF BANK
002559,000091: 06,2002 05757 LGCLCADR GENADR LONGCALL
002560,000092: 06,2003 05534 FVACCADR GENADR FINDVAC
002561,000093: 06,2004 05701 WTLTCADR GENADR WAITLIST
002562,000094: 06,2005 05237 RTRNCADR TC SWRETURN
002563,000095:
002564,000096: 06,2006 10000 1.2SPOT OCT 10000 # TEMPORARY ENTRY TO ESTABLISH TABLE
002565,000097: 06,2007 E3,1400 EBANK= LST1
002566,000098: 06,2007 05614 04003 2CADR DUMMYJOB
002567,000099:
002568,000100: 06,2011 10000 OCT 10000
002569,000101: 06,2012 E3,1400 EBANK= LST1
002570,000102: 06,2012 05614 04003 2CADR DUMMYJOB
002571,000103: # ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE
002572,000104:
002573,000105: 06,2014 06,2006 1.3SPOT EQUALS 1.2SPOT
002574,000106:
002575,000107: # ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE
002576,000108:
002577,000109: 06,2014 06,2006 2.2SPOT EQUALS 1.2SPOT
002578,000110:
002579,000111: # ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
002580,000112:
002581,000113: 06,2014 77777 2.3SPOT OCT 77777 # MISSION SCHEDULING PACKAGE TO SET UP
002582,000114: 06,2015 E3,1400 EBANK= LST1
002583,000115: 06,2015 75621 15714 -2CADR REDOMDUE
002584,000116:
002585,000117: 06,2017 12574 2.5SPOT DEC 5500 B-14
002586,000118: 06,2020 E4,1566 EBANK= TDEC
002587,000119: 06,2020 75146 25773 -2CADR SIVB2
002588,000120:
002589,000121: 06,2022 77777 2.7SPOT OCT 77777
002590,000122: 06,2023 E4,1566 EBANK= TDEC
002591,000123: 06,2023 75621 25773 -2CADR SBORBA
002592,000124:
002593,000125: 06,2025 00620 2.11SPOT DEC 400 B-14
002594,000126: 06,2026 E4,1566 EBANK= TDEC
002595,000127: 06,2026 75506 25773 -2CADR SBORB8
002596,000128:
002597,000129: # ANY MORE GROUP 2.0DD RESTART VALUES SHOULD GO HERE
002598,000130:
|
|
Page 58 |
002600,000132: 06,2030 06,2006 3.2SPOT EQUALS 1.2SPOT
002601,000133: # ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
002602,000134:
002603,000135: 06,2030 06,2006 3.3SPOT EQUALS 1.2SPOT
002604,000136: # ANY MORE GROUP 3.0DD RESTART VALUES SHOULD GO HERE
002605,000137:
002606,000138: 06,2030 06,2006 4.2SPOT EQUALS 1.2SPOT
002607,000139:
002608,000140: # ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
002609,000141:
002610,000142: 06,2030 06,2006 4.3SPOT EQUALS 1.2SPOT
002611,000143: # ANY MORE GROUP 4.0DD RESTART VALUES SHOULD GO HERE
002612,000144:
002613,000145: 06,2030 21000 5.2SPOT OCT 21000
002614,000146: 06,2031 E4,1514 EBANK= RAVEGON
002615,000147: 06,2031 02317 60064 2CADR NORMLIZE
002616,000148:
002617,000149: 06,2033 00310 DEC 200 B-14
002618,000150: 06,2034 E5,1511 EBANK= DVCNTR
002619,000151: 06,2034 75211 17712 -2CADR REREADAC
002620,000152:
002621,000153: 06,2036 00310 5.4SPOT DEC 200 B-14
002622,000154: 06,2037 E5,1570 EBANK= BMEMORY
002623,000155: 06,2037 75777 17712 -2CADR PREREAD
002624,000156:
002625,000157: 06,2041 32000 OCT 32000
002626,000158: 06,2042 E3,1400 EBANK= LST1
002627,000159: 06,2042 03571 24003 2CADR LASTBIAS
002628,000160:
002629,000161: 06,2044 00310 5.6SPOT DEC 200 B-14
002630,000162: 06,2045 E5,1511 EBANK= DVCNTR
002631,000163: 06,2045 75211 17712 -2CADR REREADAC
002632,000164:
002633,000165: 06,2047 20000 OCT 20000
002634,000166: 06,2050 E5,1511 EBANK= DVCNTR
002635,000167: 06,2050 02115 60065 2CADR SERVICER
002636,000168: # ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
002637,000169:
002638,000170: 06,2052 00310 5.3SPOT DEC 200 B-14
002639,000171: 06,2053 E5,1511 EBANK= DVCNTR
002640,000172: 06,2053 75211 17712 -2CADR REREADAC
002641,000173:
002642,000174: 06,2055 77777 5.5SPOT OCT 77777 # REPLACES INACTIVE 5.0 FOR FAKESTRT
002643,000175: 06,2056 1167 EBANK= MTIMER4 # * * * REMOVE IF RESTARTS RETURN * * *
002644,000176: 06,2056 75227 75775 -2CADR POOH2
002645,000177:
002646,000178: 06,2060 20000 5.7SPOT OCT 20000
002647,000179: 06,2061 E5,1400 EBANK= XSM
002648,000180: 06,2061 02016 72065 2CADR RSTGTS1
002649,000181:
|
|
Page 59 |
002651,000183: 06,2063 77777 5.11SPOT OCT 77777
002652,000184: 06,2064 E5,1400 EBANK= XSM
002653,000185: 06,2064 75707 05712 -2CADR ALLOOP1
002654,000186:
002655,000187: 06,2066 20000 5.13SPOT OCT 20000
002656,000188: 06,2067 E5,1400 EBANK= XSM
002657,000189: 06,2067 02752 72065 2CADR WTLISTNT
002658,000190:
002659,000191: 06,2071 20000 5.15SPOT OCT 20000
002660,000192: 06,2072 E5,1400 EBANK= XSM
002661,000193: 06,2072 02637 72065 2CADR RESTEST1
002662,000194:
002663,000195: 06,2074 20000 5.17SPOT OCT 20000
002664,000196: 06,2075 E5,1400 EBANK= XSM
002665,000197:
002666,000198: 06,2075 02730 72065 2CADR GEOSTRT4
002667,000199:
002668,000200: 06,2077 20000 5.21SPOT OCT 20000
002669,000201: 06,2100 E5,1400 EBANK= XSM
002670,000202: 06,2100 02140 72065 2CADR ALFLT1
002671,000203:
002672,000204: 06,2102 77777 5.23SPOT OCT 77777
002673,000205: 06,2103 E5,1400 EBANK= XSM
002674,000206: 06,2103 75656 05712 -2CADR SPECSTS
002675,000207:
002676,000208: 06,2105 20000 5.25SPOT OCT 20000
002677,000209: 06,2106 E5,1400 EBANK= XSM
002678,000210: 06,2106 02652 72065 2CADR RESTEST3
002679,000211:
002680,000212: 06,2110 20000 5.27SPOT OCT 20000
002681,000213: 06,2111 E5,1400 EBANK= XSM
002682,000214: 06,2111 02615 72065 2CADR RESTAIER
002683,000215:
002684,000216: 06,2113 77777 5.31SPOT OCT 77777
002685,000217: 06,2114 E5,1400 EBANK= XSM
002686,000218: 06,2114 75666 05712 -2CADR PIPSTRTS
002687,000219: # ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
002688,000220:
002689,000221: 06,2116 06,2006 6.2SPOT EQUALS 1.2SPOT
002690,000222: # ANY MORE GROUP 6.EVEN RESTART VALUES SHOULD GO HERE
002691,000223:
002692,000224: 06,2116 06,2006 6.3SPOT EQUALS 1.2SPOT
002693,000225: # ANY MORE GROUP 6.0DD RESTART VALUES SHOULD GO HERE
002694,000226:
002695,000227: 06,2116 00000 SIZETAB GENADR 1.2SPOT -24006
002696,000228: 06,2117 00002 GENADR 1.3SPOT -24004
002697,000229: 06,2120 00000 GENADR 2.2SPOT -24006
002698,000230: 06,2121 00010 GENADR 2.3SPOT -24004
002699,000231: 06,2122 00000 GENADR 3.2SPOT -24006
002700,000232: 06,2123 00002 GENADR 3.3SPOT -24004
002701,000233:
|
|
Page 60 |
002703,000235: 06,2124 00000 GENADR 4.2SPOT -24006
002704,000236: 06,2125 00002 GENADR 4.3SPOT -24004
002705,000237: 06,2126 00022 GENADR 5.2SPOT -24006
002706,000238: 06,2127 00046 GENADR 5.3SPOT -24004
002707,000239: 06,2130 00000 GENADR 6.2SPOT -24006
002708,000240: 06,2131 00002 GENADR 6.3SPOT -24004
002709,000241:
|
|
Page 61 |
002711,000243: 06,2132 30151 RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
002712,000244:
002713,000245: 06,2133 60000 DOUBLE # SAVE FOR INDEXING
002714,000246: 06,2134 54145 TS TEMP2G
002715,000247:
002716,000248: 06,2135 32003 CA FVACCADR # LET:S ASSUME THIS IS A JOB, THIS WILL
002717,000249: 06,2136 54110 TS GOLOC -1 # SAVE US A COUPLE OF LOCATIONS, BUT NOT
002718,000250: # NECESSARIALY ANY TIME - SO BE IT -
002719,000251:
002720,000252: 06,2137 32000 CA PHS2CADR # SET UP EXIT IN CASE IT IS AN EVEN
002721,000253: 06,2140 54147 TS TEMPSWCH # TABLE PHASE
002722,000254:
002723,000255: 06,2141 32005 CA RTRNCADR # TO SAVE TIME ASSUME IT WILL GET NEXT
002724,000256: 06,2142 54113 TS GOLOC +2 # GROUP AFTER THIS
002725,000257:
002726,000258: 06,2143 30144 CA TEMPPHS
002727,000259: 06,2144 75370 MASK OCT1400
002728,000260: 06,2145 10000 CCS A # IS IT A VARIABLE OR TABLE RESTART
002729,000261: 06,2146 12157 TCF ITSAVAR # IT;S A VARIABLE RESTART
002730,000262:
002731,000263: 06,2147 10144 GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
002732,000264: 06,2150 10000 CCS A
002733,000265: 06,2151 12246 TCF ITSATBL # NO, ITS A TABLE RESTART
002734,000266:
002735,000267: 06,2152 35656 CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START
002736,000268:
002737,000269: 06,2153 05534 TC FINDVAC # THE DISPLAY RESTART JOB
002738,000270: 06,2154 E3,1400 EBANK= LST1
002739,000271: 06,2154 05605 04003 2CADR INITDSP
002740,000272:
002741,000273: 06,2156 02005 TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE
002742,000274:
002743,000275: 06,2157 5605 INITDSP EQUALS ENDOFJOB
002744,000276:
002745,000277: 06,2157 77744 ITSAVAR MASK BIT10 # SEE IF IT IS TYPE B
002746,000278: 06,2160 10000 CCS A
002747,000279: 06,2161 12230 TCF ITSLIKEB # YES,IT IS TYPE B
002748,000280:
002749,000281: 06,2162 00006 EXTEND # STORE THE JOB (OR TASK) 2CADR FOR EXIT
002750,000282: 06,2163 50145 NDX TEMP2G
002751,000283: 06,2164 31517 DCA PHSNAME1
002752,000284: 06,2165 52112 DXCH GOLOC
002753,000285:
002754,000286: 06,2166 30144 CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCAL
002755,000287: 06,2167 77757 MASK OCT7
002756,000288: 06,2170 65355 AD MINUS2
002757,000289: 06,2171 10000 CCS A
002758,000290: 06,2172 12331 TCF ITSLNGCL # ITS A LONGCALL
002759,000291:
002760,000292: 06,2173 37776 OCT37776 OCT 37776 # CANT GET HERE
002761,000293:
|
|
Page 62 |
002763,000295: 06,2174 12176 TCF ITSAWAIT
002764,000296:
002765,000297: 06,2175 12243 TCF ITSAJOB # ITS A JOB
002766,000298:
002767,000299: 06,2176 32004 ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL
002768,000300: 06,2177 54110 TS GOLOC -1
002769,000301:
002770,000302: 06,2200 50145 NDX TEMP2G # DIRECTLY STORED
002771,000303:
002772,000304: 06,2201 31114 CA PHSPRDT1
002773,000305: 06,2202 10000 TIMETEST CCS A # IS IT AN IMMEDIATE RESTART
002774,000306: 06,2203 24000 INCR A # NO.
002775,000307: 06,2204 12207 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
002776,000308:
002777,000309: 06,2205 14064 TCF ITSINDIR # STORED INDIRECTLY
002778,000310:
002779,000311: 06,2206 12226 TCF IMEDIATE # IT WANTS AN IMMEDIATE RESTART
002780,000312:
002781,000313: # ***** THIS MUST BE IN FIXED FIXED *****
002782,000314:
002783,000315: 4064 BLOCK 02
002784,000316: 4064 22112 ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
002785,000317: 4065 22006 LXCH BB # SWITCHED ERRASIBLE
002786,000318:
002787,000319: 4066 50000 NDX A # GET THE TIME INDIRECTLY
002788,000320: 4067 30001 CA 1
002789,000321:
002790,000322: 4070 22006 LXCH BB # RESTORE THE BB AND GOLOC
002791,000323: 4071 22112 LXCH GOLOC +1
002792,000324:
002793,000325: 4072 12207 TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
002794,000326:
002795,000327: # ***** YOUB MAY RETURN TO SWITCHED FIXED *****
002796,000328:
002797,000329: 06,2207 BANK 06
002798,000330: 06,2207 40000 FINDTIME COM # MAKE NEGITIVE SINCE IT WILL BE SUBTRACTD
002799,000331: 06,2210 54001 TS L # AND SAVE
002800,000332: 06,2211 50145 NDX TEMP2G
002801,000333: 06,2212 41113 CS TBASE1
002802,000334: 06,2213 00006 EXTEND
002803,000335: 06,2214 60025 SU TIME1
002804,000336: 06,2215 10000 CCS A
002805,000337: 06,2216 40000 COM
002806,000338: 06,2217 62173 AD OCT37776
002807,000339: 06,2220 67755 AD ONE
002808,000340: 06,2221 60001 AD L
002809,000341: 06,2222 10000 CCS A
002810,000342: 06,2223 37761 CA ZERO
002811,000343: 06,2224 12226 TCF +2
002812,000344: 06,2225 12226 TCF +1
002813,000345: 06,2226 67755 IMEDIATE AD ONE
002814,000346:
|
|
Page 63 |
002816,000348: 06,2227 00110 TC GOLOC -1
002817,000349: 06,2230 32005 ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
002818,000350: 06,2231 54147 TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE
002819,000351:
002820,000352: 06,2232 32001 CA PRT2CADR # SET UP EXIT TO GET TABLE PART OF THIS
002821,000353: 06,2233 54113 TS GOLOC +2 # VARIABLE TYPE OF PHASE
002822,000354:
002823,000355: 06,2234 30144 CA TEMPPHS # MAKE THE PHASE LOOK RIGHT FOR THE TABLE
002824,000356: 06,2235 76130 MASK OCT177 # PART OF THIS VARIABLE PHASE
002825,000357: 06,2236 54144 TS TEMPPHS
002826,000358:
002827,000359: 06,2237 00006 EXTEND
002828,000360: 06,2240 50145 NDX TEMP2G # OBTAIN THE JOB:S 2CADR
002829,000361: 06,2241 31517 DCA PHSNAME1
002830,000362:
002831,000363: 06,2242 52112 DXCH GOLOC
002832,000364:
002833,000365: 06,2243 50145 ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET:S GO
002834,000366: 06,2244 31114 CA PHSPRDT1
002835,000367: 06,2245 00110 TC GOLOC -1
002836,000368:
002837,000369: 06,2246 54020 ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN
002838,000370: 06,2247 10020 CCS CYR
002839,000371: 06,2250 12251 TCF +1 # IT:S EVEN
002840,000372: 06,2251 12347 TCF ITSEVEN
002841,000373:
002842,000374: 06,2252 32005 CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A
002843,000375: 06,2253 54113 TS GOLOC +2 # TYPE B RESTART, WE NEED PROPER EXIT
002844,000376:
002845,000377: 06,2254 30144 CA TEMPPHS # SET UP POINTER FOR FINDING OUR PLACE IN
002846,000378: 06,2255 54021 TS SR # THE RESTART TABLES
002847,000379: 06,2256 60021 AD SR
002848,000380: 06,2257 50145 NDX TEMP2G
002849,000381: 06,2260 62117 AD SIZETAB +1
002850,000382: 06,2261 54146 TS POINTER
002851,000383:
002852,000384: 06,2262 00006 CONTBL2 EXTEND # FIND OUT WHAT:S IN THE TABLE
002853,000385: 06,2263 50146 NDX POINTER
002854,000386:
002855,000387: 06,2264 32002 DCA CADRTAB # GET THE 2CADR
002856,000388:
002857,000389: 06,2265 22112 LXCH GOLOC +1 # STORE THE BB INFORMATION
002858,000390:
002859,000391: 06,2266 10000 CCS A # IS IT A JOB OR IS IT TIMED
002860,000392: 06,2267 24000 INCR A # POSITIVE, MUST BE A JOB
002861,000393: 06,2270 12343 TCF ITSAJOB2
002862,000394:
002863,000395: 06,2271 24000 INCR A # MUST BE EITHER A WAITLIST OR LONGCALL
002864,000396: 06,2272 54111 TS GOLOC # LET-S STORE THE CORRECT CADR
002865,000397:
002866,000398: 06,2273 32004 CA WTLTCADR # SET UP OUR EXIT TO WAITLIST
002867,000399: 06,2274 54110 TS GOLOC -1
002868,000400:
|
|
Page 64 |
002870,000402: 06,2275 30112 CA GOLOC +1 # NOW FIND OUT IF IT IS A WAITLIST CALL
002871,000403: 06,2276 77744 MASK BIT10 # THIS SHOULD BE ONE IF WE HAVE -BB
002872,000404: 06,2277 10000 CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
002873,000405: # 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
002874,000406: # IN IMPORTANCE ANYWAY. BIT 4
002875,000407: 06,2300 12336 TCF ITSWTLST # IT IS A WAITLIST CALL
002876,000408:
002877,000409: 06,2301 50146 NDX POINTER # OBTAIN THE ORIGINAL DELTA T
002878,000410: 06,2302 32000 CA PRDTTAB # ADDRESS FOR THIS LONGCALL
002879,000411:
002880,000412: 06,2303 14073 TCF ITSLGCL1 # NOW GO GET THE DELTA TIME
002881,000413:
002882,000414: # ***** THIS MUST BE IN FIXED FIXED *****
002883,000415:
002884,000416: 4073 BLOCK 02
002885,000417: 4073 22112 ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK
002886,000418: 4074 22006 LXCH BB
002887,000419: 4075 22112 LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS
002888,000420:
002889,000421: 4076 00006 EXTEND # GET THE DELTA TIME
002890,000422: 4077 50000 NDX A
002891,000423: 4100 30001 DCA 0
002892,000424:
002893,000425: 4101 22112 LXCH GOLOC +1 # RESTORE OUR E AND F BANK
002894,000426: 4102 22006 LXCH BB # RESTORE THE TASKS E AND F BANKS
002895,000427: 4103 22112 LXCH GOLOC +1 # AND PRESERVE OUR L
002896,000428:
002897,000429: 4104 12304 TCF ITSLGCL2 # NOW LET:S PROCESS THIS LONGCALL
002898,000430:
002899,000431: # ***** YOUB MAY RETURN TO SWITCHED FIXED *****
002900,000432:
002901,000433: 06,2304 BANK 06
002902,000434: 06,2304 53153 ITSLGCL2 DXCH LONGTIME
002903,000435:
002904,000436: 06,2305 00006 EXTEND # CALCULATE TIME LEFT
002905,000437: 06,2306 40025 DCS TIME2
002906,000438: 06,2307 21153 DAS LONGTIME
002907,000439: 06,2310 00006 EXTEND
002908,000440: 06,2311 31433 DCA LONGBASE
002909,000441: 06,2312 21153 DAS LONGTIME
002910,000442:
002911,000443: 06,2313 11152 CCS LONGTIME # FIND OUT HOW THIS SHOULD BE RESTARTED
002912,000444: 06,2314 12324 TCF LONGCLCL
002913,000445:
002914,000446: 06,2315 12317 TCF +2
002915,000447: 06,2316 12223 TCF IMEDIATE -3
002916,000448: 06,2317 11153 CCS LONGTIME +1
002917,000449: 06,2320 12324 TCF LONGCLCL
002918,000450: 06,2321 12322 NOOP # CAN:T GET HERE *********
002919,000451: 06,2322 12223 TCF IMEDIATE -3
002920,000452: 06,2323 12226 TCF IMEDIATE
002921,000453:
|
|
Page 65 |
002923,000455: 06,2324 32002 LONGCLCL CA LGCLCADR # WE WILL GO TO LONGCALL
002924,000456: 06,2325 54110 TS GOLOC -1
002925,000457:
002926,000458: 06,2326 00006 EXTEND # PREPARE OUR ENTRY TO LONGCALL
002927,000459: 06,2327 31153 DCA LONGTIME
002928,000460: 06,2330 00110 TC GOLOC -1
002929,000461:
002930,000462: 06,2331 32004 ITSLNGCL CA WTLTCADR # ASSUME IT WILL GO TO WAITLIST
002931,000463: 06,2332 54110 TS GOLOC -1
002932,000464:
002933,000465: 06,2333 50145 NDX TEMP2G
002934,000466: 06,2334 31114 CA PHSPRDT1 # GET THE DELTA T ADDRESS
002935,000467:
002936,000468: 06,2335 14073 TCF ITSLGCL1 # NOW GET THE DELTA TIME
002937,000469:
002938,000470: 06,2336 40112 ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION
002939,000471: 06,2337 54112 TS GOLOC +1
002940,000472:
002941,000473: 06,2340 50146 NDX POINTER # GET THE DT AND FIND OUT IF IT WAS STORED
002942,000474: 06,2341 32000 CA PRDTTAB # DIRECTLY OR INDIRECTLY
002943,000475:
002944,000476: 06,2342 12202 TCF TIMETEST # FIND OUT HOW THE TIME IS STORED
002945,000477:
002946,000478: 06,2343 56111 ITSAJOB2 XCH GOLOC # STORE THE CADR
002947,000479:
002948,000480: 06,2344 50146 NDX POINTER # ADD THE PRIORITY AND LET:S GO
002949,000481: 06,2345 32000 CA PRDTTAB
002950,000482:
002951,000483: 06,2346 00110 TC GOLOC -1
002952,000484:
002953,000485: 06,2347 30147 ITSEVEN CA TEMPSWCH # SET UP FOR EITHER THE SECOND PART OF THE
002954,000486: 06,2350 54113 TS GOLOC +2 # TABLE, OR A RETURN FOR THE NEXT GROUP
002955,000487:
002956,000488: 06,2351 50145 NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN
002957,000489: 06,2352 32116 CA SIZETAB # THE TABLE
002958,000490: 06,2353 60144 AD TEMPPHS # THIS MAY LOOK BAD BUT LET:S SEE YOU DO
002959,000491: 06,2354 60144 AD TEMPPHS # BETTER IN TIME OR NUMBERR OF LOCATIONS
002960,000492:
002961,000493: 06,2355 60144 AD TEMPPHS
002962,000494: 06,2356 54146 TS POINTER
002963,000495:
002964,000496: 06,2357 12262 TCF CONTBL2 # NOW PROCESS WHAT IS IN THE TABLE
002965,000497:
002966,000498: 06,2360 36301 PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF
002967,000499: 06,2361 26146 ADS POINTER # THE TABLE
002968,000500:
002969,000501: 06,2362 32005 CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE
002970,000502: 06,2363 54113 TS GOLOC +2 # EVEN TABLE , SO AFTER IT GET THE NEXT
002971,000503: # GROUP
002972,000504: 06,2364 12262 TCF CONTBL2 # SO LET:S GET THE SECOND ENTRY IN THE TBL
002973,000505:
|
|
Page 66 |
002975,000507: 06,2365 0144 TEMPPHS EQUALS MPAC
002976,000508: 06,2365 0145 TEMP2G EQUALS MPAC +1
002977,000509: 06,2365 0146 POINTER EQUALS MPAC +2
002978,000510: 06,2365 0147 TEMPSWCH EQUALS MPAC +3
002979,000511: 06,2365 0111 GOLOC EQUALS OVFIND
002980,000512: 06,2365 5355 MINUS2 EQUALS NEG2
002981,000513: 06,2365 6130 OCT177 EQUALS LOW7
End of include-file RESTART_TABLES_AND_RESTARTS_ROUTINE.agc. Parent file is MAIN.agc