Source Code
053517,000001: # Copyright: Public domain.
053518,000002: # Filename: PHASE_TABLE_MAINTENANCE.agc
053519,000003: # Purpose: A section of Luminary 1C, revision 131.
053520,000004: # It is part of the source code for the Lunar Module's (LM)
053521,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14.
053522,000006: # This file is intended to be a faithful transcription, except
053523,000007: # that the code format has been changed to conform to the
053524,000008: # requirements of the yaYUL assembler rather than the
053525,000009: # original YUL assembler.
053526,000010: # Reference: pp. 1291-1299 of 1729.pdf.
053527,000011: # Contact: Ron Burkey <info@sandroid.org>.
053528,000012: # Website: www.ibiblio.org/apollo
053529,000013: # Mod history: 06/05/03 RSB. Began transcribing.
053530,000014:
053531,000015: # Page 1291
053532,000016: # SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
053533,000017:
053534,000018: 43,3751 COUNT* $$/PHASE
053535,000019: 5311 BLOCK 02
053536,000020: 4000 SETLOC FFTAG1
053537,000021: 4000 BANK
053538,000022:
053539,000023: 5311 50002 NEWMODEX INDEX Q # UPDATE MODREG. ENTRY FOR MODE IN FIXED.
053540,000024: # Was CAF --- RSB 2004.
053541,000025: 5312 30000 CA 0
053542,000026: 5313 24002 INCR Q
053543,000027:
053544,000028: 5314 55010 NEWMODEA TS MODREG # ENTRY FOR MODE IN A.
053545,000029: 5315 35320 MMDSPLAY CAF +3 # DISPLAY MAJOR MODE.
053546,000030: 5316 22006 PREBJUMP LXCH BBANK # PUTS BBANK IN L
053547,000031: 5317 14640 TCF BANKJUMP # PUTS Q INTO A
053548,000032: 5320 20213 CADR SETUPDSP
053549,000033:
053550,000034: # RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
053551,000035:
053552,000036: 5321 50002 CHECKMM INDEX Q
053553,000037: 5322 40000 CS 0
053554,000038: 5323 61010 AD MODREG
053555,000039: 5324 00006 EXTEND
053556,000040: 5325 16744 BZF Q+2
053557,000041: 5326 16742 TCF Q+1 # NO MATCH
053558,000042:
053559,000043: 5327 6745 TCQ = Q+2 +1
053560,000044:
053561,000045: 14,3775 BANK 14
053562,000046: 10,2000 SETLOC PHASETAB
053563,000047: 10,2000 BANK
053564,000048:
053565,000049: 10,2213 COUNT* $$/PHASE
053566,000050: 10,2213 00004 SETUPDSP INHINT
053567,000051: 10,2214 52071 DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR
053568,000052: 10,2215 34355 CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
053569,000053: 10,2216 05072 TC NOVAC # NEWMODE X
053570,000054: 10,2217 1010 EBANK= MODREG
053571,000055: 10,2217 03577 60102 2CADR DSPMMJOB
053572,000056:
053573,000057: 10,2221 52071 DXCH RUPTREG1
053574,000058: 10,2222 00003 RELINT
053575,000059: 10,2223 52006 DXCH Z # RETURN
053576,000060:
053577,000061: 10,2224 40,3577 DSPMMJOB EQUALS DSPMMJB
053578,000062:
053579,000063: 5327 BLOCK 02
053580,000064: 4000 SETLOC FFTAG1
053581,000065: 4000 BANK
053582,000066: # Page 1292
053583,000067: # PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
053584,000068: # A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
053585,000069: # TC PHASCHNG
053586,000070: # OCT XXXXX
053587,000071: # TYPE A IS CONCERNED WITH FIXED PHAS CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY. THESE
053588,000072: # OPTIONS ARE, WEHRE G STANDS FOR A GROUP AND .X FOR THE PHASE,
053589,000073: # G.0 INACTIVE, WILL NOT PERMIT A GROUP G RESTART
053590,000074: # G.1 WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
053591,000075: # G.EVEN A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
053592,000076: # LONGCALL TO BE RESTARTED.
053593,000077: # G.ODD NOT .1 A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART.
053594,000078:
053595,000079: # THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
053596,000080: # TL0 00P PPP PPP GGG
053597,000081: # WHERE EACH LETTER OR NUMBER STANTS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1-7, THE P'S FOR THE PHASE,
053598,000082: # OCTAL 0 - 127. 0'S MUST BE 0. IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
053599,000083: # T IS SET TO 1, OTHERWISE IT IS SET TO 0. SIMILARLY IF ONE WISHES TO SET LONGBASE, THEN L IS SET TO 1, OTHERWISE
053600,000084: # IT IS SET TO 0. SOME EXAMLES,
053601,000085: # TC PHASCHNG # THIS WILL CAUSE GROUP 3 TO BE SET TO 0,
053602,000086: # OCT 00003 # MAKING GROUP 3 INACTIVE
053603,000087:
053604,000088: # TC PHASCHNG # IF A RESTART OCCURS THIS WOULD CAUSE
053605,000089: # OCT 00012 # GROUP 2 TO RESTART THE LAST DISPLAY
053606,000090:
053607,000091: # TC PHASCHNG # THIS SETS THE TBASE OF GROUP 4 AND IN
053608,000092: # OCT 40064 # CASE OF A RESTART WOULD START UP THE TWO
053609,000093: # # THINGS LOCATED IN THE DOUBLE 4.6 RESTART
053610,000094: # # LOCATION.
053611,000095:
053612,000096: # TC PHASCHNG # THIS SETS LONGBASE AND UPON A RESTART
053613,000097: # OCT 20135 # CAUSES 5.13 TO BE RESTARTED (SINCE
053614,000098: # # LONGBASE WAS SET THIS SINGLE ENTRY
053615,000099: # # SHOULD BE A LONGCALL)
053616,000100:
053617,000101: # TC PHASCHNG # SINCE BOTH TBASE4 AND LONGBASE ARE SET,
053618,000102: # OCT 60124 # 4.12 SHOULD CONTAIN BOTH A TASK AND A
053619,000103: # # LONGCALL TO BE RESTARTED
053620,000104:
053621,000105: # TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A
053622,000106: # PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABLE LOCATION. THE BITS ARE AS FOLLOWS,
053623,000107: # TL0 1AD XXX CJW GGG
053624,000108: # WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1 - 7. IF THE RESTART IS TO
053625,000109: # BE BY WAITLIST, W IS SET TO 1, IF IT IS A JOB, J IS SET TO 1, IF IT IS A LONGCALL, C IS SET TO 1. ONLY ONE OF
053626,000110: # THESE THREE BITS MAY BE SET. X'S ARE IGNORED, 1 MUST BE 1, AND 0 MUST BE 0. AGAIN T STANDS FOR THE TBASE,
053627,000111: # Page 1293
053628,000112: # AND L FOR LONGBASE. THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
053629,000113: # OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION., IF THIS IS TO BE INDIRECT, THAT
053630,000114: # IS, THE NAME OF A LOCATION CONTAINING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
053631,000115: # THAT LOCATION WHICH CONTAINS THE DELTA TIME. IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
053632,000116: # ALREADY IN THE VARIABLE STORAGE, THEN D IS SET TO 0. NEXT THE A BIT IS USED. IF IT IS SET TO 0, THE ADDRESS
053633,000117: # THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER
053634,000118: # (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT. IF A IS SET TO 1, THEN THE ADDRESS THAT
053635,000119: # WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATION. EXAMPLES,
053636,000120: # AD TC PHASCHNG # THIS WOULD CAUSE LOCATION AD +3 TO BE
053637,000121: # AD+1 OCT 05023 # RESTARTED BY GROUP THREE WITH A PRIORITY
053638,000122: # AD+2 OCT 23000 # OF 23. NOTE UPON RETURNING IT WOULD
053639,000123: # AD+3 # ALSO GO TO AD+3
053640,000124:
053641,000125: # AD TC PHASCHNG # GROUP 1 WOULD CAUSE CALLCALL TO BE
053642,000126: # AD+1 OCT 27441 # BE STARTED AS A LONGCALL FROM THE TIME
053643,000127: # AD+2 -GENADR DELTIME # STORED IN LONGBASE (LONGBASE WAS SET) BY
053644,000128: # AD+3 2CADR CALLCALL # A DELTA TIME STORED IN DELTIME. THE
053645,000129: # AD+4 # BBCON OF THE 2CADR SHOULD CONTAIN THE E
053646,000130: # AD+5 # BANK OF DELTIME. PHASCHNG RETURNS TO
053647,000131: # # LOCATION AD+5
053648,000132:
053649,000133: # NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
053650,000134: # NEGATIVE, AS A FINDVAC IF TEH PRIORITY IS POSITIVE.
053651,000135:
053652,000136: # TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
053653,000137: # BELOW AND ALSO START UP ONE FIXED RESTART, THAT IS EITHER AN G.1 OR A G.ODD OR THE FIRST ENTRY OF G.EVEN
053654,000138: # DOUBLE ENTRY. THE BIT INFORMATION IS AS FOLLOW,
053655,000139: # TL1 DAP PPP PPP GGG
053656,000140: # WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1 - 7, THE P'S FOR THE FIXED
053657,000141: # PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1. AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS
053658,000142: # TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
053659,000143: # AGAIN A STANDS FOR THE ADDRESS OF THE LOCATION TO BE RESTARTED, 1 IF THE 2CADR IS GIVEN, OR 0 IF IT IS TO BE
053660,000144: # THE NEXT LOCATION. (THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
053661,000145: # AD TC PHASCHNG # TBASE IS SET AND A RESTART CAUSE GROUP 3
053662,000146: # AD+1 OCT 56043 # TO START THE JOB AJOBAJOB WITH PRIORITY
053663,000147: # AD+2 OCT 31000 # 31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN
053664,000148: # AD+3 2CADR AJOBAJOB # ASSUME IT IS A TASK SINCE WE SET TBASE3)
053665,000149: # AD+4 # UPON RETURN FROM PHASCHNG CONTROL WOULD
053666,000150: # AD+5 # GO TO AD+5
053667,000151:
053668,000152: # AD TC PHASCHNG # UPON A RESTART THE LAST DISPLAY WOULD BE
053669,000153: # AD+1 OCT 10015 # RESTARTED AND A JOB WITH THE PREVIOUSLY
053670,000154: # AD+2 # STORED PRIORITY WOULD BE BEGUN AT AD+2
053671,000155: # # BY MEANS OF GROUP 5
053672,000156: # Page 1294
053673,000157: # THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO -- NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
053674,000158:
053675,000159: # SUMMARY OF BITS:
053676,000160: # TYPE A TL0 00P PPP PPP GGG
053677,000161: # TYPE B TL1 DAP PPP PPP GGG
053678,000162: # TYPE C TL0 1AD XXX CJW GGG
053679,000163:
053680,000164: # Page 1295
053681,000165: # 2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
053682,000166: # GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
053683,000167: # CALLS ARE MADE IN THE FOLLOWING MANNER,
053684,000168: # TC 2PHSCHNG
053685,000169: # OCT XXXXX
053686,000170: # OCT YYYYY
053687,000171: # WHERE OCT XXXXX MUST BE OF TYPE A AND OCT YYYYY MAY BE OF EITHER TYPE A OR TYPE B OR TYPE C. THERE IS ONE
053688,000172: # DIFFERENCE --- NOTE: IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
053689,000173: # BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
053690,000174: # AD TC 2PHACHNG # SET TBASE3 AND IF A RESTART OCCURS START
053691,000175: # AD+1 OCT 40083 # THE TWO ENTRIES IN 3.8 TABLE LOCATION
053692,000176: # AD+2 OCT 05025 # THIS IS OF TYPE C, SET THE JOB TO BE
053693,000177: # AD+3 OCT 18000 # TO BE LOCATION AD+4, WITH A PRIORITY 18,
053694,000178: # AD+4 # FOR GROUP 5 PHASE INFORMATION.
053695,000179:
053696,000180: 5327 40,2000 SBANK= PINSUPER # RSB 2004.
053697,000181:
053698,000182: 5327 COUNT* $$/PHASE
053699,000183: 5327 00004 2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
053700,000184: 5330 50002 NDX Q
053701,000185: 5331 30000 CA 0
053702,000186: 5332 24002 INCR Q
053703,000187: 5333 54072 TS TEMPP2
053704,000188:
053705,000189: 5334 74757 MASK OCT7
053706,000190: 5335 60000 DOUBLE
053707,000191: 5336 54071 TS TEMPG2
053708,000192:
053709,000193: 5337 30072 CA TEMPP2
053710,000194: 5340 75030 MASK OCT17770 # NEED ONLY 1770, BUT WHY GET A NEW CONST.
053711,000195: 5341 00006 EXTEND
053712,000196: 5342 74740 MP BIT12
053713,000197: 5343 56072 XCH TEMPP2
053714,000198:
053715,000199: 5344 74735 MASK BIT15
053716,000200: 5345 54066 TS TEMPSW2 # INDICATES WHETHER TO SET TBASE OR NOT
053717,000201:
053718,000202: 5346 50002 INDEX Q
053719,000203: 5347 30000 CA 0
053720,000204: 5350 24002 INCR Q
053721,000205: 5351 54065 TS TEMPSW
053722,000206:
053723,000207: 5352 15363 TCF PHASJUMP
053724,000208:
053725,000209: 5353 00004 PHASCHNG INHINT # NORMAL PHASCHNG ENTRY POINT.
053726,000210: 5354 50002 INDEX Q
053727,000211: 5355 30000 CA 0
053728,000212: 5356 24002 INCR Q
053729,000213: 5357 00004 PHSCHNGA INHINT # FIRST OCTAL PARAMETER IN A.
053730,000214: # Page 1296
053731,000215: 5360 54065 TS TEMPSW
053732,000216: 5361 34753 CA ONE
053733,000217: 5362 54066 TS TEMPSW2
053734,000218: 5363 00006 PHASJUMP EXTEND
053735,000219: 5364 35367 DCA ADRPCHN2 # OFF TO SWITCHED BANK
053736,000220: 5365 52006 DTCB
053737,000221:
053738,000222: 5366 E3,1400 EBANK= LST1
053739,000223: 5366 02224 20103 ADRPCHN2 2CADR PHSCHNG2
053740,000224:
053741,000225: 5370 22073 ONEORTWO LXCH TEMPBBCN
053742,000226: 5371 22006 LXCH BBANK
053743,000227: 5372 22073 LXCH TEMPBBCN
053744,000228:
053745,000229: 5373 75024 MASK OCT14000 # SEE WHAT KIND OF PHASE CHANGE IT IS
053746,000230: 5374 10000 CCS A
053747,000231: 5375 17753 TCF CHECKB # IT IS OF TYPE `B'.
053748,000232:
053749,000233: 5376 30062 CA TEMPP
053750,000234: 5377 74745 MASK BIT7
053751,000235: 5400 10000 CCS A # SHALL WE USE THE OLD PRIORITY
053752,000236: 5401 15423 TCF GETPRIO # NO GET A NEW PRIORITY (OR DELTA T)
053753,000237:
053754,000238: 5402 50061 OLDPRIO NDX TEMPG # USE THE OLD PRIORITY (OR DELTA T)
053755,000239: 5403 31051 CA PHSPRDT1 -2
053756,000240: 5404 54070 TS TEMPPR
053757,000241:
053758,000242: 5405 30062 CON1 CA TEMPP # SEE IF A 2CADR IS GIVEN
053759,000243: 5406 74744 MASK BIT8
053760,000244: 5407 10000 CCS A
053761,000245: 5410 15427 TCF GETNEWNM
053762,000246:
053763,000247: 5411 30002 CA Q
053764,000248: 5412 54063 TS TEMPNM
053765,000249: 5413 30006 CA BB
053766,000250: 5414 00006 EXTEND # PICK UP USER'S SUPERBANK
053767,000251: 5415 04007 ROR SUPERBNK
053768,000252: 5416 54064 TS TEMPBB
053769,000253:
053770,000254: 5417 35422 TOCON2 CA CON2ADR # BACK TO SWITCHED BANK
053771,000255: 5420 22073 LXCH TEMPBBCN
053772,000256: 5421 52006 DTCB
053773,000257:
053774,000258: 5422 02312 CON2ADR GENADR CON2
053775,000259:
053776,000260: 5423 50002 GETPRIO NDX Q # DON'T CARE IF DIRECT OR INDIRECT
053777,000261: 5424 30000 CA 0 # LEAVE THAT DECISION TO RESTARTS
053778,000262: 5425 24002 INCR Q # OBTAIN RETURN ADDRESS
053779,000263: # Page 1297
053780,000264: 5426 15404 TCF CON1 -1
053781,000265:
053782,000266: 5427 00006 GETNEWNM EXTEND
053783,000267: 5430 50002 INDEX Q
053784,000268: 5431 30001 DCA 0
053785,000269: 5432 52064 DXCH TEMPNM
053786,000270: 5433 34752 CA TWO
053787,000271: 5434 26002 ADS Q # OBTAIN RETURN ADDRESS
053788,000272:
053789,000273: 5435 15417 TCF TOCON2
053790,000274:
053791,000275: 5436 5024 OCT14000 EQUALS PRIO14
053792,000276: 5436 0061 TEMPG EQUALS ITEMP1
053793,000277: 5436 0062 TEMPP EQUALS ITEMP2
053794,000278: 5436 0063 TEMPNM EQUALS ITEMP3
053795,000279: 5436 0064 TEMPBB EQUALS ITEMP4
053796,000280: 5436 0065 TEMPSW EQUALS ITEMP5
053797,000281: 5436 0066 TEMPSW2 EQUALS ITEMP6
053798,000282: 5436 0070 TEMPPR EQUALS RUPTREG1
053799,000283: 5436 0071 TEMPG2 EQUALS RUPTREG2
053800,000284: 5436 0072 TEMPP2 EQUALS RUPTREG3
053801,000285:
053802,000286: 5436 0073 TEMPBBCN EQUALS RUPTREG4
053803,000287: 5436 0000006 BB EQUALS BBANK
053804,000288:
053805,000289: 14,3775 BANK 14
053806,000290: 10,2000 SETLOC PHASETAB
053807,000291: 10,2000 BANK
053808,000292:
053809,000293: 10,2224 E3,1436 EBANK= PHSNAME1
053810,000294: 10,2224 COUNT* $$/PHASE
053811,000295: 10,2224 22073 PHSCHNG2 LXCH TEMPBBCN
053812,000296: 10,2225 30065 CA TEMPSW
053813,000297: 10,2226 74757 MASK OCT7
053814,000298: 10,2227 60000 DOUBLE
053815,000299: 10,2230 54061 TS TEMPG
053816,000300:
053817,000301: 10,2231 30065 CA TEMPSW
053818,000302: 10,2232 75030 MASK OCT17770
053819,000303: 10,2233 00006 EXTEND
053820,000304: 10,2234 74740 MP BIT12
053821,000305: 10,2235 54062 TS TEMPP
053822,000306:
053823,000307: 10,2236 30065 CA TEMPSW
053824,000308: 10,2237 74101 MASK OCT60000
053825,000309: 10,2240 56065 XCH TEMPSW
053826,000310: 10,2241 75024 MASK OCT14000
053827,000311: 10,2242 10000 CCS A
053828,000312: # Page 1298
053829,000313: 10,2243 15370 TCF ONEORTWO
053830,000314:
053831,000315: 10,2244 30062 CA TEMPP # START STORING THE PHASE INFORMATION
053832,000316: 10,2245 50061 NDX TEMPG
053833,000317: 10,2246 54750 TS PHASE1 -2
053834,000318:
053835,000319: 10,2247 10066 BELOW1 CCS TEMPSW2 # IS IT A PHASCHNG OR A 2PHSCHNG
053836,000320: 10,2250 12264 TCF BELOW2 # IT'S A PHASCHNG
053837,000321:
053838,000322: 10,2251 12252 TCF +1 # IT'S A 2PHSCHNG
053839,000323: 10,2252 40072 CS TEMPP2
053840,000324: 10,2253 22072 LXCH TEMPP2
053841,000325: 10,2254 50071 NDX TEMPG2
053842,000326: 10,2255 52750 DXCH -PHASE1 -2
053843,000327:
053844,000328: 10,2256 10066 CCS TEMPSW2
053845,000329: 10,2257 12260 NOOP # CAN'T GET HERE
053846,000330: 10,2260 12264 TCF BELOW2
053847,000331:
053848,000332: 10,2261 40025 CS TIME1
053849,000333: 10,2262 50071 NDX TEMPG2
053850,000334: 10,2263 55050 TS TBASE1 -2
053851,000335:
053852,000336: 10,2264 10065 BELOW2 CCS TEMPSW # SEE IF WE SHOULD SET TBASE OR LONGBASE
053853,000337: 10,2265 12300 TCF BELOW3 # SET LONGBASE ONLY
053854,000338: 10,2266 12303 TCF BELOW4 # SET NEITHER
053855,000339:
053856,000340: 10,2267 40025 CS TIME1 # SET TBASE TO BEGIN WITH
053857,000341: 10,2270 50061 NDX TEMPG
053858,000342: 10,2271 55050 TS TBASE1 -2
053859,000343:
053860,000344: 10,2272 30065 CA TEMPSW # SHALL WE NOW SET LONGBASE
053861,000345: 10,2273 62276 AD BIT14COM
053862,000346: 10,2274 10000 CCS A
053863,000347: 10,2275 12276 NOOP # ***** CAN'T GET HERE *****
053864,000348: 10,2276 17777 BIT14COM OCT 17777 # ***** CAN'T GET HERE *****
053865,000349: 10,2277 12303 TCF BELOW4 # NO WE NEED ONLY SET TBASE
053866,000350:
053867,000351: 10,2300 00006 BELOW3 EXTEND # SET LONGBASE
053868,000352: 10,2301 30025 DCA TIME2
053869,000353: 10,2302 53151 DXCH LONGBASE
053870,000354:
053871,000355: 10,2303 40062 BELOW4 CS TEMPP # AND STORE THE FINAL PART OF THE PHASE
053872,000356: 10,2304 50061 NDX TEMPG
053873,000357: 10,2305 54747 TS -PHASE1 -2
053874,000358:
053875,000359: 10,2306 30002 CA Q
053876,000360: 10,2307 22073 LXCH TEMPBBCN
053877,000361: 10,2310 00003 RELINT
053878,000362: 10,2311 52006 DTCB
053879,000363: # Page 1299
053880,000364: 10,2312 22073 CON2 LXCH TEMPBBCN
053881,000365:
053882,000366: 10,2313 30062 CA TEMPP
053883,000367: 10,2314 50061 NDX TEMPG
053884,000368: 10,2315 54750 TS PHASE1 -2
053885,000369:
053886,000370: 10,2316 30070 CA TEMPPR
053887,000371: 10,2317 50061 NDX TEMPG
053888,000372: 10,2320 55051 TS PHSPRDT1 -2
053889,000373:
053890,000374: 10,2321 00006 EXTEND
053891,000375: 10,2322 30064 DCA TEMPNM
053892,000376: 10,2323 50061 NDX TEMPG
053893,000377: 10,2324 53435 DXCH PHSNAME1 -2
053894,000378:
053895,000379: 10,2325 12247 TCF BELOW1
053896,000380:
053897,000381: 7753 BLOCK 03
053898,000382: 6000 SETLOC FFTAG6
053899,000383: 6000 BANK
053900,000384:
053901,000385: 7753 COUNT* $$/PHASE
053902,000386: 7753 74740 CHECKB MASK BIT12 # SINCE THIS IS OF TYPE 8, THIS BIT WOULD
053903,000387: 7754 10000 CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
053904,000388: 7755 15423 TCF GETPRIO # IT IS, SO GET NEW PRIORITY
053905,000389:
053906,000390: 7756 15402 TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.
053907,000391:
053908,000392:
End of include-file PHASE_TABLE_MAINTENANCE.agc. Parent file is MAIN.agc