Source Code
060729,000001: # Copyright: Public domain.
060730,000002: # Filename: PHASE_TABLE_MAINTENANCE.agc
060731,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
060732,000004: # It is part of the source code for the Command Module's (CM)
060733,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
060734,000006: # Assembler: yaYUL
060735,000007: # Contact: Ron Burkey <info@sandroid.org>.
060736,000008: # Website: www.ibiblio.org/apollo.
060737,000009: # Pages: 1404-1413
060738,000010: # Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
060739,000011: # from the Colossus249/ file of the same
060740,000012: # name, using Comanche055 page images.
060741,000013:
060742,000014: # This source code has been transcribed or otherwise adapted from digitized
060743,000015: # images of a hardcopy from the MIT Museum. The digitization was performed
060744,000016: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
060745,000017: # thanks to both. The images (with suitable reduction in storage size and
060746,000018: # consequent reduction in image quality as well) are available online at
060747,000019: # www.ibiblio.org/apollo. If for some reason you find that the images are
060748,000020: # illegible, contact me at info@sandroid.org about getting access to the
060749,000021: # (much) higher-quality images which Paul actually created.
060750,000022:
060751,000023: # Notations on the hardcopy document read, in part:
060752,000024:
060753,000025: # Assemble revision 055 of AGC program Comanche by NASA
060754,000026: # 2021113-051. 10:28 APR. 1, 1969
060755,000027:
060756,000028: # This AGC program shall also be referred to as
060757,000029: # Colossus 2A
060758,000030:
060759,000031: # Page 1404
060760,000032: # SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
060761,000033:
060762,000034: 43,3726 COUNT 02/PHASE
060763,000035: 5354 BLOCK 02
060764,000036: 4000 SETLOC FFTAG1
060765,000037: 4000 BANK
060766,000038:
060767,000039: 5354 50002 NEWMODEX INDEX Q # UPDATE MODREG. ENTRY FOR MODE IN FIXED.
060768,000040: 5355 30000 CAF 0
060769,000041: 5356 24002 INCR Q
060770,000042:
060771,000043: 5357 55011 NEWMODEA TS MODREG # ENTRY FOR MODE IN A.
060772,000044: 5360 35363 MMDSPLAY CAF +3 # DISPLAY MAJOR MODE.
060773,000045: 5361 22006 PREBJUMP LXCH BBANK # PUTS BBANK IN L
060774,000046: 5362 14704 TCF BANKJUMP # PUTS Q INTO A
060775,000047: 5363 20440 CADR SETUPDSP
060776,000048:
060777,000049: # RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
060778,000050:
060779,000051: 5364 50002 CHECKMM INDEX Q
060780,000052: 5365 40000 CS 0
060781,000053: 5366 61011 AD MODREG
060782,000054: 5367 00006 EXTEND
060783,000055: 5370 16710 BZF Q+2
060784,000056: 5371 16706 TCF Q+1 # NO MATCH
060785,000057:
060786,000058: 5372 6711 TCQ = Q+2 +1
060787,000059:
060788,000060: 14,3761 BANK 14
060789,000061: 10,2000 SETLOC PHASETAB
060790,000062: 10,2000 BANK
060791,000063:
060792,000064: 10,2440 COUNT 10/PHASE
060793,000065:
060794,000066: 10,2440 00004 SETUPDSP INHINT
060795,000067: 10,2441 52071 DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR
060796,000068: 10,2442 34371 CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
060797,000069: 10,2443 05134 TC NOVAC # NEWMODEX
060798,000070: 10,2444 1011 EBANK= MODREG
060799,000071: 10,2444 03441 60102 2CADR DSPMMJOB
060800,000072:
060801,000073: 10,2446 52071 DXCH RUPTREG1
060802,000074: 10,2447 00003 RELINT
060803,000075: 10,2450 52006 DXCH Z # RETURN
060804,000076:
060805,000077: 10,2451 40,3441 DSPMMJOB EQUALS DSPMMJB
060806,000078:
060807,000079: 5372 BLOCK 02
060808,000080: # Page 1405
060809,000081: 4000 SETLOC FFTAG1
060810,000082: 4000 BANK
060811,000083:
060812,000084: # Page 1406
060813,000085: # PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
060814,000086: # A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
060815,000087: # TC PHASCHNG
060816,000088: # OCT XXXXX
060817,000089: # TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY. THESE
060818,000090: # OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
060819,000091: # G.0 INACTIVE, WILL NOT PERMIT A GROUP G RESTART
060820,000092: # G.1 WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
060821,000093: # G.EVEN A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
060822,000094: # LONGCALL TO BE RESTARTED.
060823,000095: # G.ODD NOT .1 A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART.
060824,000096:
060825,000097: # THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
060826,000098: # TL0 00P PPP PPP GGG
060827,000099: # 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,
060828,000100: # OCTAL 0 - 127. 0'S MUST BE 0. IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
060829,000101: # 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
060830,000102: # IT IS SET TO 0. SOME EXAMLES,
060831,000103: # TC PHASCHNG # THIS WILL CAUSE GROUP 3 TO BE SET TO 0,
060832,000104: # OCT 00003 # MAKING GROUP 3 INACTIVE
060833,000105:
060834,000106: # TC PHASCHNG # IF A RESTART OCCURS THIS WOULD CAUSE
060835,000107: # OCT 00012 # GROUP 2 TO RESTART THE LAST DISPLAY
060836,000108:
060837,000109: # TC PHASCHNG # THIS SETS THE TBASE OF GROUP 4 AND IN
060838,000110: # OCT 40064 # CASE OF A RESTART WOULD START UP THE TWO
060839,000111: # # THINGS LOCATED IN THE DOUBLE 4.6 RESTART
060840,000112: # # LOCATION.
060841,000113:
060842,000114: # TC PHASCHNG # THIS SETS LONGBASE AND UPON A RESTART
060843,000115: # OCT 20135 # CAUSES 5.13 TO BE RESTARTED (SINCE
060844,000116: # # LONGBASE WAS SET THIS SINGLE ENTRY
060845,000117: # # SHOULD BE A LONGCALL)
060846,000118:
060847,000119: # TC PHASCHNG # SINCE BOTH TBASE4 AND LONGBASE ARE SET,
060848,000120: # OCT 60124 # 4.12 SHOULD CONTAIN BOTH A TASK AND A
060849,000121: # # LONGCALL TO BE RESTARTED
060850,000122:
060851,000123: # TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A
060852,000124: # PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABLE LOCATION. THE BITS ARE AS FOLLOWS,
060853,000125: # TL0 1AD XXX CJW GGG
060854,000126: # WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1 - 7. IF THE RESTART IS TO
060855,000127: # 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
060856,000128: # 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,
060857,000129: # Page 1407
060858,000130: # AND L FOR LONGBASE. THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
060859,000131: # OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION., IF THIS IS TO BE INDIRECT, THAT
060860,000132: # IS, THE NAME OF A LOCATION CONTAINING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
060861,000133: # THAT LOCATION WHICH CONTAINS THE DELTA TIME. IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
060862,000134: # 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
060863,000135: # THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER
060864,000136: # (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT. IF A IS SET TO 1, THEN THE ADDRESS THAT
060865,000137: # WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATION. EXAMPLES,
060866,000138: # AD TC PHASCHNG # THIS WOULD CAUSE LOCATION AD +3 TO BE
060867,000139: # AD+1 OCT 05023 # RESTARTED BY GROUP THREE WITH A PRIORITY
060868,000140: # AD+2 OCT 23000 # OF 23. NOTE UPON RETURNING IT WOULD
060869,000141: # AD+3 # ALSO GO TO AD+3
060870,000142:
060871,000143: # AD TC PHASCHNG # GROUP 1 WOULD CAUSE CALLCALL TO BE
060872,000144: # AD+1 OCT 27441 # BE STARTED AS A LONGCALL FROM THE TIME
060873,000145: # AD+2 -GENADR DELTIME # STORED IN LONGBASE (LONGBASE WAS SET) BY
060874,000146: # AD+3 2CADR CALLCALL # A DELTATIME STORED IN DELTIME. THE
060875,000147: # AD+4 # BBCON OF THE 2CADR SHOULD CONTAIN THE E
060876,000148: # AD+5 # BANK OF DELTIME. PHASCHNG RETURNS TO
060877,000149: # # LOCATION AD+5
060878,000150:
060879,000151: # NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
060880,000152: # NEGATIVE, AS A FINDVAC IF THE PRIORITY IS POSITIVE.
060881,000153:
060882,000154: # TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
060883,000155: # 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
060884,000156: # DOUBLE ENTRY. THE BIT INFORMATION IS AS FOLLOW,
060885,000157: # TL1 DAP PPP PPP GGG
060886,000158: # 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
060887,000159: # PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1. AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS
060888,000160: # TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
060889,000161: # 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
060890,000162: # THE NEXT LOCATION. (THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
060891,000163: # AD TC PHASCHNG # TBASE IS SET AND A RESTART CAUSE GROUP 3
060892,000164: # AD+1 OCT 56043 # TO START THE JOB AJOBAJOB WITH PRIORITY
060893,000165: # AD+2 OCT 31000 # 31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN
060894,000166: # AD+3 2CADR AJOBAJOB # ASSUME IT IS A TASK SINCE WE SET TBASE3)
060895,000167: # AD+4 # UPON RETURN FROM PHASCHNG CONTROL WOULD
060896,000168: # AD+5 # GO TO AD+5
060897,000169:
060898,000170: # AD TC PHASCHNG # UPON A RESTART THE LAST DISPLAY WOULD BE
060899,000171: # AD+1 OCT 10015 # RESTARTED AND A JOB WITH THE PREVIOUSLY
060900,000172: # AD+2 # STORED PRIORITY WOULD BE BEGUN AT AD+2
060901,000173: # # BY MEANS OF GROUP 5
060902,000174: # Page 1408
060903,000175: # THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO -- NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
060904,000176:
060905,000177: # SUMMARY OF BITS:
060906,000178: # TYPE A TL0 00P PPP PPP GGG
060907,000179: # TYPE B TL1 DAP PPP PPP GGG
060908,000180: # TYPE C TL0 1AD XXX CJW GGG
060909,000181:
060910,000182: # Page 1409
060911,000183: # 2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
060912,000184: # GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
060913,000185: # CALLS ARE MADE IN THE FOLLOWING MANNER,
060914,000186: # TC 2PHSCHNG
060915,000187: # OCT XXXXX
060916,000188: # OCT YYYYY
060917,000189: # 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
060918,000190: # DIFFERENCE --- NOTE: IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
060919,000191: # BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
060920,000192: # AD TC 2PHACHNG # SET TBASE3 AND IF A RESTART OCCURS START
060921,000193: # AD+1 OCT 40083 # THE TWO ENTRIES IN 3.8 TABLE LOCATION
060922,000194: # AD+2 OCT 05025 # THIS IS OF TYPE C, SET THE JOB TO BE
060923,000195: # AD+3 OCT 18000 # TO BE LOCATION AD+4, WITH A PRIORITY 18,
060924,000196: # AD+4 # FOR GROUP 5 PHASE INFORMATION.
060925,000197:
060926,000198: 5372 COUNT 02/PHASE
060927,000199:
060928,000200: 5372 00004 2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
060929,000201: 5373 50002 NDX Q
060930,000202: 5374 30000 CA 0
060931,000203: 5375 24002 INCR Q
060932,000204: 5376 54072 TS TEMPP2
060933,000205:
060934,000206: 5377 75023 MASK OCT7
060935,000207: 5400 60000 DOUBLE
060936,000208: 5401 54071 TS TEMPG2
060937,000209:
060938,000210: 5402 30072 CA TEMPP2
060939,000211: 5403 75072 MASK OCT17770 # NEED ONLY 1770, BUT WHY GET A NEW CONST.
060940,000212: 5404 00006 EXTEND
060941,000213: 5405 75004 MP BIT12
060942,000214: 5406 56072 XCH TEMPP2
060943,000215:
060944,000216: 5407 75001 MASK BIT15
060945,000217: 5410 54066 TS TEMPSW2 # INDICATES WHETHER TO SET TBASE OR NOT
060946,000218:
060947,000219: 5411 15415 TCF PHASCHNG +3
060948,000220:
060949,000221: 5412 00004 PHASCHNG INHINT
060950,000222: 5413 35017 CA ONE # INDICATES CAME FROM A PHASCHNG ENTRY
060951,000223: 5414 54066 TS TEMPSW2
060952,000224:
060953,000225: 5415 50002 NDX Q
060954,000226: 5416 30000 CA 0
060955,000227: 5417 24002 INCR Q
060956,000228: 5420 54065 TS TEMPSW
060957,000229: # Page 1410
060958,000230: 5421 00006 EXTEND
060959,000231: 5422 35425 DCA ADRPCHN2 # OFF TO SWITCHED BANK
060960,000232: 5423 52006 DTCB
060961,000233:
060962,000234: 5424 E3,1400 EBANK= LST1
060963,000235: 5424 02451 20063 ADRPCHN2 2CADR PHSCHNG2
060964,000236:
060965,000237: 5426 22073 ONEORTWO LXCH TEMPBBCN
060966,000238: 5427 22006 LXCH BBANK
060967,000239: 5430 22073 LXCH TEMPBBCN
060968,000240:
060969,000241: 5431 75066 MASK OCT14000 # SEE WHAT KIND OF PHASE CHANGE IT IS
060970,000242: 5432 10000 CCS A
060971,000243: 5433 15474 TCF CHECKB # IT IS OF TYPE `B'.
060972,000244:
060973,000245: 5434 30062 CA TEMPP
060974,000246: 5435 75011 MASK BIT7
060975,000247: 5436 10000 CCS A # SHALL WE USE THE OLD PRIORITY
060976,000248: 5437 15461 TCF GETPRIO # NO GET A NEW PRIORITY (OR DELTA T)
060977,000249:
060978,000250: 5440 50061 OLDPRIO NDX TEMPG # USE THE OLD PRIORITY (OR DELTA T)
060979,000251: 5441 31052 CA PHSPRDT1 -2
060980,000252: 5442 54070 TS TEMPPR
060981,000253:
060982,000254: 5443 30062 CON1 CA TEMPP # SEE IF A 2CADR IS GIVEN
060983,000255: 5444 75010 MASK BIT8
060984,000256: 5445 10000 CCS A
060985,000257: 5446 15465 TCF GETNEWNM
060986,000258:
060987,000259: 5447 30002 CA Q
060988,000260: 5450 54063 TS TEMPNM
060989,000261: 5451 30006 CA BB
060990,000262: 5452 00006 EXTEND # PICK UP USER'S SUPERBANK
060991,000263: 5453 04007 ROR SUPERBNK
060992,000264: 5454 54064 TS TEMPBB
060993,000265:
060994,000266: 5455 35460 TOCON2 CA CON2ADR # BACK TO SWITCHED BANK
060995,000267: 5456 22073 LXCH TEMPBBCN
060996,000268: 5457 52006 DTCB
060997,000269:
060998,000270: 5460 02537 CON2ADR GENADR CON2
060999,000271:
061000,000272: 5461 50002 GETPRIO NDX Q # DON'T CARE IF DIRECT OR INDIRECT
061001,000273: 5462 30000 CA 0 # LEAVE THAT DECISION TO RESTARTS
061002,000274: 5463 24002 INCR Q # OBTAIN RETURN ADDRESS
061003,000275: 5464 15442 TCF CON1 -1
061004,000276:
061005,000277: 5465 00006 GETNEWNM EXTEND
061006,000278: # Page 1411
061007,000279: 5466 50002 INDEX Q
061008,000280: 5467 30001 DCA 0
061009,000281: 5470 52064 DXCH TEMPNM
061010,000282: 5471 35016 CA TWO
061011,000283: 5472 26002 ADS Q # OBTAIN RETURN ADDRESS
061012,000284:
061013,000285: 5473 15455 TCF TOCON2
061014,000286:
061015,000287: 5474 5066 OCT14000 EQUALS PRIO14
061016,000288: 5474 0061 TEMPG EQUALS ITEMP1
061017,000289: 5474 0062 TEMPP EQUALS ITEMP2
061018,000290: 5474 0063 TEMPNM EQUALS ITEMP3
061019,000291: 5474 0064 TEMPBB EQUALS ITEMP4
061020,000292: 5474 0065 TEMPSW EQUALS ITEMP5
061021,000293: 5474 0066 TEMPSW2 EQUALS ITEMP6
061022,000294: 5474 0070 TEMPPR EQUALS RUPTREG1
061023,000295: 5474 0071 TEMPG2 EQUALS RUPTREG2
061024,000296: 5474 0072 TEMPP2 EQUALS RUPTREG3
061025,000297:
061026,000298: 5474 0073 TEMPBBCN EQUALS RUPTREG4
061027,000299: 5474 0000006 BB EQUALS BBANK
061028,000300:
061029,000301: 14,3761 BANK 14
061030,000302: 10,2000 SETLOC PHASETAB
061031,000303: 10,2000 BANK
061032,000304:
061033,000305: 10,2451 E3,1436 EBANK= PHSNAME1
061034,000306: 10,2451 COUNT 10/PHASE
061035,000307:
061036,000308: 10,2451 22073 PHSCHNG2 LXCH TEMPBBCN
061037,000309: 10,2452 30065 CA TEMPSW
061038,000310: 10,2453 75023 MASK OCT7
061039,000311: 10,2454 60000 DOUBLE
061040,000312: 10,2455 54061 TS TEMPG
061041,000313:
061042,000314: 10,2456 30065 CA TEMPSW
061043,000315: 10,2457 75072 MASK OCT17770
061044,000316: 10,2460 00006 EXTEND
061045,000317: 10,2461 75004 MP BIT12
061046,000318: 10,2462 54062 TS TEMPP
061047,000319:
061048,000320: 10,2463 30065 CA TEMPSW
061049,000321: 10,2464 74105 MASK OCT60000
061050,000322: 10,2465 56065 XCH TEMPSW
061051,000323: 10,2466 75066 MASK OCT14000
061052,000324: 10,2467 10000 CCS A
061053,000325: 10,2470 15426 TCF ONEORTWO
061054,000326:
061055,000327: # Page 1412
061056,000328: 10,2471 30062 CA TEMPP # START STORING THE PHASE INFORMATION
061057,000329: 10,2472 50061 NDX TEMPG
061058,000330: 10,2473 54751 TS PHASE1 -2
061059,000331:
061060,000332: 10,2474 10066 BELOW1 CCS TEMPSW2 # IS IT A PHASCHNG OR A 2PHSCHNG
061061,000333: 10,2475 12511 TCF BELOW2 # IT'S A PHASCHNG
061062,000334:
061063,000335: 10,2476 12477 TCF +1 # IT'S A 2PHSCHNG
061064,000336: 10,2477 40072 CS TEMPP2
061065,000337: 10,2500 22072 LXCH TEMPP2
061066,000338: 10,2501 50071 NDX TEMPG2
061067,000339: 10,2502 52751 DXCH -PHASE1 -2
061068,000340:
061069,000341: 10,2503 10066 CCS TEMPSW2
061070,000342: 10,2504 12505 NOOP # CAN'T GET HERE
061071,000343: 10,2505 12511 TCF BELOW2
061072,000344:
061073,000345: 10,2506 40025 CS TIME1
061074,000346: 10,2507 50071 NDX TEMPG2
061075,000347: 10,2510 55051 TS TBASE1 -2
061076,000348:
061077,000349: 10,2511 10065 BELOW2 CCS TEMPSW # SEE IF WE SHOULD SET TBASE OR LONGBASE
061078,000350: 10,2512 12525 TCF BELOW3 # SET LONGBASE ONLY
061079,000351: 10,2513 12530 TCF BELOW4 # SET NEITHER
061080,000352:
061081,000353: 10,2514 40025 CS TIME1 # SET TBASE TO BEGIN WITH
061082,000354: 10,2515 50061 NDX TEMPG
061083,000355: 10,2516 55051 TS TBASE1 -2
061084,000356:
061085,000357: 10,2517 30065 CA TEMPSW # SHALL WE NOW SET LONGBASE
061086,000358: 10,2520 62523 AD BIT14COM
061087,000359: 10,2521 10000 CCS A
061088,000360: 10,2522 12523 NOOP # ***** CAN'T GET HERE *****
061089,000361: 10,2523 17777 BIT14COM OCT 17777 # ***** CAN'T GET HERE *****
061090,000362: 10,2524 12530 TCF BELOW4 # NO WE NEED ONLY SET TBASE
061091,000363:
061092,000364: 10,2525 00006 BELOW3 EXTEND # SET LONGBASE
061093,000365: 10,2526 30025 DCA TIME2
061094,000366: 10,2527 53136 DXCH LONGBASE
061095,000367:
061096,000368: 10,2530 40062 BELOW4 CS TEMPP # AND STORE THE FINAL PART OF THE PHASE
061097,000369: 10,2531 50061 NDX TEMPG
061098,000370: 10,2532 54750 TS -PHASE1 -2
061099,000371:
061100,000372: 10,2533 30002 CA Q
061101,000373: 10,2534 22073 LXCH TEMPBBCN
061102,000374: 10,2535 00003 RELINT
061103,000375: 10,2536 52006 DTCB
061104,000376: 10,2537 22073 CON2 LXCH TEMPBBCN
061105,000377: # Page 1413
061106,000378: 10,2540 30062 CA TEMPP
061107,000379: 10,2541 50061 NDX TEMPG
061108,000380: 10,2542 54751 TS PHASE1 -2
061109,000381:
061110,000382: 10,2543 30070 CA TEMPPR
061111,000383: 10,2544 50061 NDX TEMPG
061112,000384: 10,2545 55052 TS PHSPRDT1 -2
061113,000385:
061114,000386: 10,2546 00006 EXTEND
061115,000387: 10,2547 30064 DCA TEMPNM
061116,000388: 10,2550 50061 NDX TEMPG
061117,000389: 10,2551 53435 DXCH PHSNAME1 -2
061118,000390:
061119,000391: 10,2552 12474 TCF BELOW1
061120,000392:
061121,000393: 5474 BLOCK 02
061122,000394: 4000 SETLOC FFTAG1
061123,000395: 4000 BANK
061124,000396:
061125,000397: 5474 COUNT 02/PHASE
061126,000398:
061127,000399: 5474 75004 CHECKB MASK BIT12 # SINCE THIS IS OF TYPE B, THIS BIT SHOULD
061128,000400: 5475 10000 CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
061129,000401: 5476 15461 TCF GETPRIO # IT IS, SO GET NEW PRIORITY
061130,000402:
061131,000403: 5477 15440 TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.
061132,000404:
061133,000405:
061134,000406:
End of include-file PHASE_TABLE_MAINTENANCE.agc. Parent file is MAIN.agc