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