Source Code

059389,000001: # Copyright: Public domain. 059390,000002: # Filename: PHASE_TABLE_MAINTENANCE.agc 059391,000003: # Purpose: Part of the source code for Colossus, build 249. 059392,000004: # It is part of the source code for the Command Module's (CM) 059393,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 059394,000006: # Assembler: yaYUL 059395,000007: # Reference: Starts on p. 1394 of 1701.pdf. 059396,000008: # Contact: Ron Burkey <info@sandroid.org>. 059397,000009: # Website: www.ibiblio.org/apollo. 059398,000010: # Mod history: 08/30/04 RSB. Adapted from corresponding Luminary131 file. 059399,000011: # 2011-05-07 JL Flagged SBANK= workarounds for future removal. 059400,000012: # Removed workaround. 059401,000013: 059402,000014: # The contents of the "Colossus249" files, in general, are transcribed 059403,000015: # from a scanned document obtained from MIT's website, 059404,000016: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 059405,000017: # document read, in part: 059406,000018: 059407,000019: # Assemble revision 249 of AGC program Colossus by NASA 059408,000020: # 2021111-041. October 28, 1968. 059409,000021: 059410,000022: # This AGC program shall also be referred to as 059411,000023: # Colossus 1A 059412,000024: 059413,000025: # Prepared by 059414,000026: # Massachusetts Institute of Technology 059415,000027: # 75 Cambridge Parkway 059416,000028: # Cambridge, Massachusetts 059417,000029: # under NASA contract NAS 9-4065. 059418,000030: 059419,000031: # Refer directly to the online document mentioned above for further information. 059420,000032: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 059421,000033: 059422,000034: # In some cases, where the source code for Luminary 131 overlaps that of 059423,000035: # Colossus 249, this code is instead copied from the corresponding Luminary 131 059424,000036: # source file, and then is proofed to incorporate any changes. 059425,000037: 059426,000038: # Page 1394 059427,000039: # SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY. 059428,000040: 059429,000041: 43,3722 COUNT 02/PHASE 059430,000042: 5243 BLOCK 02 059431,000043: 4000 SETLOC FFTAG1 059432,000044: 4000 BANK 059433,000045: 059434,000046: 5243 50002 NEWMODEX INDEX Q # UPDATE MODREG. ENTRY FOR MODE IN FIXED. 059435,000047: 5244 30000 CAF 0 059436,000048: 5245 24002 INCR Q 059437,000049: 059438,000050: 5246 55011 NEWMODEA TS MODREG # ENTRY FOR MODE IN A. 059439,000051: 5247 35252 MMDSPLAY CAF +3 # DISPLAY MAJOR MODE. 059440,000052: 5250 22006 PREBJUMP LXCH BBANK # PUTS BBANK IN L 059441,000053: 5251 14577 TCF BANKJUMP # PUTS Q INTO A 059442,000054: 5252 20344 CADR SETUPDSP 059443,000055: 059444,000056: # RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2. 059445,000057: 059446,000058: 5253 50002 CHECKMM INDEX Q 059447,000059: 5254 40000 CS 0 059448,000060: 5255 61011 AD MODREG 059449,000061: 5256 00006 EXTEND 059450,000062: 5257 16710 BZF Q+2 059451,000063: 5260 16706 TCF Q+1 # NO MATCH 059452,000064: 059453,000065: 5261 6711 TCQ = Q+2 +1 059454,000066: 059455,000067: 14,3744 BANK 14 059456,000068: 10,2000 SETLOC PHASETAB 059457,000069: 10,2000 BANK 059458,000070: 059459,000071: 10,2344 COUNT 10/PHASE 059460,000072: 059461,000073: 10,2344 00004 SETUPDSP INHINT 059462,000074: 10,2345 52071 DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR 059463,000075: 10,2346 34371 CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO 059464,000076: 10,2347 05027 TC NOVAC # NEWMODE X 059465,000077: 10,2350 1011 EBANK= MODREG 059466,000078: 10,2350 03435 60102 2CADR DSPMMJOB 059467,000079: 059468,000080: 10,2352 52071 DXCH RUPTREG1 059469,000081: 10,2353 00003 RELINT 059470,000082: 10,2354 52006 DXCH Z # RETURN 059471,000083: 059472,000084: 10,2355 40,3435 DSPMMJOB EQUALS DSPMMJB 059473,000085: 059474,000086: 5261 BLOCK 02 059475,000087: # Page 1395 059476,000088: 4000 SETLOC FFTAG1 059477,000089: 4000 BANK 059478,000090: 059479,000091: # Page 1396 059480,000092: # PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE 059481,000093: # A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION, 059482,000094: # TC PHASCHNG 059483,000095: # OCT XXXXX 059484,000096: # TYPE A IS CONCERNED WITH FIXED PHAS CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY. THESE 059485,000097: # OPTIONS ARE, WEHRE G STANDS FOR A GROUP AND .X FOR THE PHASE, 059486,000098: # G.0 INACTIVE, WILL NOT PERMIT A GROUP G RESTART 059487,000099: # G.1 WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS 059488,000100: # G.EVEN A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR 059489,000101: # LONGCALL TO BE RESTARTED. 059490,000102: # G.ODD NOT .1 A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART. 059491,000103: 059492,000104: # THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS 059493,000105: # TL0 00P PPP PPP GGG 059494,000106: # 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, 059495,000107: # OCTAL 0 - 127. 0'S MUST BE 0. IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME, 059496,000108: # 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 059497,000109: # IT IS SET TO 0. SOME EXAMLES, 059498,000110: # TC PHASCHNG # THIS WILL CAUSE GROUP 3 TO BE SET TO 0, 059499,000111: # OCT 00003 # MAKING GROUP 3 INACTIVE 059500,000112: 059501,000113: # TC PHASCHNG # IF A RESTART OCCURS THIS WOULD CAUSE 059502,000114: # OCT 00012 # GROUP 2 TO RESTART THE LAST DISPLAY 059503,000115: 059504,000116: # TC PHASCHNG # THIS SETS THE TBASE OF GROUP 4 AND IN 059505,000117: # OCT 40064 # CASE OF A RESTART WOULD START UP THE TWO 059506,000118: # # THINGS LOCATED IN THE DOUBLE 4.6 RESTART 059507,000119: # # LOCATION. 059508,000120: 059509,000121: # TC PHASCHNG # THIS SETS LONGBASE AND UPON A RESTART 059510,000122: # OCT 20135 # CAUSES 5.13 TO BE RESTARTED (SINCE 059511,000123: # # LONGBASE WAS SET THIS SINGLE ENTRY 059512,000124: # # SHOULD BE A LONGCALL) 059513,000125: 059514,000126: # TC PHASCHNG # SINCE BOTH TBASE4 AND LONGBASE ARE SET, 059515,000127: # OCT 60124 # 4.12 SHOULD CONTAIN BOTH A TASK AND A 059516,000128: # # LONGCALL TO BE RESTARTED 059517,000129: 059518,000130: # TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A 059519,000131: # PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABLE LOCATION. THE BITS ARE AS FOLLOWS, 059520,000132: # TL0 1AD XXX CJW GGG 059521,000133: # WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1 - 7. IF THE RESTART IS TO 059522,000134: # 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 059523,000135: # 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, 059524,000136: # Page 1397 059525,000137: # AND L FOR LONGBASE. THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY 059526,000138: # OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION., IF THIS IS TO BE INDIRECT, THAT 059527,000139: # IS, THE NAME OF A LOCATION CONTAINING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF 059528,000140: # THAT LOCATION WHICH CONTAINS THE DELTA TIME. IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS 059529,000141: # 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 059530,000142: # THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER 059531,000143: # (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT. IF A IS SET TO 1, THEN THE ADDRESS THAT 059532,000144: # WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATION. EXAMPLES, 059533,000145: # AD TC PHASCHNG # THIS WOULD CAUSE LOCATION AD +3 TO BE 059534,000146: # AD+1 OCT 05023 # RESTARTED BY GROUP THREE WITH A PRIORITY 059535,000147: # AD+2 OCT 23000 # OF 23. NOTE UPON RETURNING IT WOULD 059536,000148: # AD+3 # ALSO GO TO AD+3 059537,000149: 059538,000150: # AD TC PHASCHNG # GROUP 1 WOULD CAUSE CALLCALL TO BE 059539,000151: # AD+1 OCT 27441 # BE STARTED AS A LONGCALL FROM THE TIME 059540,000152: # AD+2 -GENADR DELTIME # STORED IN LONGBASE (LONGBASE WAS SET) BY 059541,000153: # AD+3 2CADR CALLCALL # A DELTA TIME STORED IN DELTIME. THE 059542,000154: # AD+4 # BBCON OF THE 2CADR SHOULD CONTAIN THE E 059543,000155: # AD+5 # BANK OF DELTIME. PHASCHNG RETURNS TO 059544,000156: # # LOCATION AD+5 059545,000157: 059546,000158: # NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS 059547,000159: # NEGATIVE, AS A FINDVAC IF TEH PRIORITY IS POSITIVE. 059548,000160: 059549,000161: # TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED 059550,000162: # 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 059551,000163: # DOUBLE ENTRY. THE BIT INFORMATION IS AS FOLLOW, 059552,000164: # TL1 DAP PPP PPP GGG 059553,000165: # 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 059554,000166: # PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1. AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS 059555,000167: # TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN. 059556,000168: # 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 059557,000169: # THE NEXT LOCATION. (THE RETURN LOCATION OF PHASCHNG) EXAMPLES, 059558,000170: # AD TC PHASCHNG # TBASE IS SET AND A RESTART CAUSE GROUP 3 059559,000171: # AD+1 OCT 56043 # TO START THE JOB AJOBAJOB WITH PRIORITY 059560,000172: # AD+2 OCT 31000 # 31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN 059561,000173: # AD+3 2CADR AJOBAJOB # ASSUME IT IS A TASK SINCE WE SET TBASE3) 059562,000174: # AD+4 # UPON RETURN FROM PHASCHNG CONTROL WOULD 059563,000175: # AD+5 # GO TO AD+5 059564,000176: 059565,000177: # AD TC PHASCHNG # UPON A RESTART THE LAST DISPLAY WOULD BE 059566,000178: # AD+1 OCT 10015 # RESTARTED AND A JOB WITH THE PREVIOUSLY 059567,000179: # AD+2 # STORED PRIORITY WOULD BE BEGUN AT AD+2 059568,000180: # # BY MEANS OF GROUP 5 059569,000181: # Page 1398 059570,000182: # THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO -- NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC. 059571,000183: 059572,000184: # SUMMARY OF BITS: 059573,000185: # TYPE A TL0 00P PPP PPP GGG 059574,000186: # TYPE B TL1 DAP PPP PPP GGG 059575,000187: # TYPE C TL0 1AD XXX CJW GGG 059576,000188: 059577,000189: # Page 1399 059578,000190: # 2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT 059579,000191: # GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG 059580,000192: # CALLS ARE MADE IN THE FOLLOWING MANNER, 059581,000193: # TC 2PHSCHNG 059582,000194: # OCT XXXXX 059583,000195: # OCT YYYYY 059584,000196: # 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 059585,000197: # DIFFERENCE --- NOTE: IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL 059586,000198: # BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP, 059587,000199: # AD TC 2PHACHNG # SET TBASE3 AND IF A RESTART OCCURS START 059588,000200: # AD+1 OCT 40083 # THE TWO ENTRIES IN 3.8 TABLE LOCATION 059589,000201: # AD+2 OCT 05025 # THIS IS OF TYPE C, SET THE JOB TO BE 059590,000202: # AD+3 OCT 18000 # TO BE LOCATION AD+4, WITH A PRIORITY 18, 059591,000203: # AD+4 # FOR GROUP 5 PHASE INFORMATION. 059592,000204:

[WORKAROUND] RSB 2004

059594,000206:    5261  40,2000                                 SBANK=   PINSUPER                              

[WORKAROUND]

059596,000208:    5261                                          COUNT    02/PHASE                              
059597,000209: 
059598,000210:    5261           00004        2PHSCHNG          INHINT                                         #  THE ENTRY FOR A DOUBLE PHASE CHANGE
059599,000211:    5262           50002                          NDX      Q                                     
059600,000212:    5263           30000                          CA       0                                     
059601,000213:    5264           24002                          INCR     Q                                     
059602,000214:    5265           54072                          TS       TEMPP2                                
059603,000215: 
059604,000216:    5266           74716                          MASK     OCT7                                  
059605,000217:    5267           60000                          DOUBLE                                         
059606,000218:    5270           54071                          TS       TEMPG2                                
059607,000219: 
059608,000220:    5271           30072                          CA       TEMPP2                                
059609,000221:    5272           74765                          MASK     OCT17770                              #  NEED ONLY 1770, BUT WHY GET A NEW CONST.
059610,000222:    5273           00006                          EXTEND                                         
059611,000223:    5274           74677                          MP       BIT12                                 
059612,000224:    5275           56072                          XCH      TEMPP2                                
059613,000225: 
059614,000226:    5276           74674                          MASK     BIT15                                 
059615,000227:    5277           54066                          TS       TEMPSW2                               #  INDICATES WHETHER TO SET TBASE OR NOT
059616,000228: 
059617,000229:    5300           15304                          TCF      PHASCHNG   +3                         
059618,000230: 
059619,000231:    5301           00004        PHASCHNG          INHINT                                         #  NORMAL PHASCHNG ENTRY POINT.
059620,000232:    5302           34712                          CA       ONE                                   #  INDICATES WE CAME FROM A PHASCHNG ENTRY
059621,000233:    5303           54066                          TS       TEMPSW2                               
059622,000234: 
059623,000235:    5304           50002                          NDX      Q                                     
059624,000236:    5305           30000                          CA       0                                     
059625,000237:    5306           24002                          INCR     Q                                     
059626,000238:    5307           54065                          TS       TEMPSW                                
059627,000239:                                                                                                 #  Page 1400
059628,000240:    5310           00006                          EXTEND                                         
059629,000241:    5311           35314                          DCA      ADRPCHN2                              #  OFF TO SWITCHED BANK
059630,000242:    5312           52006                          DTCB                                           
059631,000243: 
059632,000244:    5313  E3,1400                                 EBANK=   LST1                                  
059633,000245:    5313           02355 20103  ADRPCHN2          2CADR    PHSCHNG2                              
059634,000246: 
059635,000247:    5315           22073        ONEORTWO          LXCH     TEMPBBCN                              
059636,000248:    5316           22006                          LXCH     BBANK                                 
059637,000249:    5317           22073                          LXCH     TEMPBBCN                              
059638,000250: 
059639,000251:    5320           74761                          MASK     OCT14000                              #  SEE WHAT KIND OF PHASE CHANGE IT IS
059640,000252:    5321           10000                          CCS      A                                     
059641,000253:    5322           15363                          TCF      CHECKB                                #  IT IS OF TYPE `B'.
059642,000254: 
059643,000255:    5323           30062                          CA       TEMPP                                 
059644,000256:    5324           74704                          MASK     BIT7                                  
059645,000257:    5325           10000                          CCS      A                                     #  SHALL WE USE THE OLD PRIORITY
059646,000258:    5326           15350                          TCF      GETPRIO                               #  NO GET A NEW PRIORITY (OR DELTA T)
059647,000259: 
059648,000260:    5327           50061        OLDPRIO           NDX      TEMPG                                 #  USE THE OLD PRIORITY (OR DELTA T)
059649,000261:    5330           31052                          CA       PHSPRDT1   -2                         
059650,000262:    5331           54070                          TS       TEMPPR                                
059651,000263: 
059652,000264:    5332           30062        CON1              CA       TEMPP                                 #  SEE IF A 2CADR IS GIVEN
059653,000265:    5333           74703                          MASK     BIT8                                  
059654,000266:    5334           10000                          CCS      A                                     
059655,000267:    5335           15354                          TCF      GETNEWNM                              
059656,000268: 
059657,000269:    5336           30002                          CA       Q                                     
059658,000270:    5337           54063                          TS       TEMPNM                                
059659,000271:    5340           30006                          CA       BB                                    
059660,000272:    5341           00006                          EXTEND                                         #  PICK UP USER'S SUPERBANK
059661,000273:    5342           04007                          ROR      SUPERBNK                              
059662,000274:    5343           54064                          TS       TEMPBB                                
059663,000275: 
059664,000276:    5344           35347        TOCON2            CA       CON2ADR                               #  BACK TO SWITCHED BANK
059665,000277:    5345           22073                          LXCH     TEMPBBCN                              
059666,000278:    5346           52006                          DTCB                                           
059667,000279: 
059668,000280:    5347           02443        CON2ADR           GENADR   CON2                                  
059669,000281: 
059670,000282:    5350           50002        GETPRIO           NDX      Q                                     #  DON'T CARE IF DIRECT OR INDIRECT
059671,000283:    5351           30000                          CA       0                                     #  LEAVE THAT DECISION TO RESTARTS
059672,000284:    5352           24002                          INCR     Q                                     #  OBTAIN RETURN ADDRESS
059673,000285:    5353           15331                          TCF      CON1       -1                         
059674,000286: 
059675,000287:    5354           00006        GETNEWNM          EXTEND                                         
059676,000288:                                                                                                 #  Page 1401
059677,000289:    5355           50002                          INDEX    Q                                     
059678,000290:    5356           30001                          DCA      0                                     
059679,000291:    5357           52064                          DXCH     TEMPNM                                
059680,000292:    5360           34711                          CA       TWO                                   
059681,000293:    5361           26002                          ADS      Q                                     #  OBTAIN RETURN ADDRESS
059682,000294: 
059683,000295:    5362           15344                          TCF      TOCON2                                
059684,000296: 
059685,000297:    5363     4761               OCT14000          EQUALS   PRIO14                                
059686,000298:    5363     0061               TEMPG             EQUALS   ITEMP1                                
059687,000299:    5363     0062               TEMPP             EQUALS   ITEMP2                                
059688,000300:    5363     0063               TEMPNM            EQUALS   ITEMP3                                
059689,000301:    5363     0064               TEMPBB            EQUALS   ITEMP4                                
059690,000302:    5363     0065               TEMPSW            EQUALS   ITEMP5                                
059691,000303:    5363     0066               TEMPSW2           EQUALS   ITEMP6                                
059692,000304:    5363     0070               TEMPPR            EQUALS   RUPTREG1                              
059693,000305:    5363     0071               TEMPG2            EQUALS   RUPTREG2                              
059694,000306:    5363     0072               TEMPP2            EQUALS   RUPTREG3                              
059695,000307: 
059696,000308:    5363     0073               TEMPBBCN          EQUALS   RUPTREG4                              
059697,000309:    5363  0000006               BB                EQUALS   BBANK                                 
059698,000310: 
059699,000311: 14,3744                                          BANK     14                                    
059700,000312: 10,2000                                          SETLOC   PHASETAB                              
059701,000313: 10,2000                                          BANK                                           
059702,000314: 
059703,000315: 10,2355  E3,1436                                 EBANK=   PHSNAME1                              
059704,000316: 10,2355                                          COUNT    10/PHASE                              
059705,000317: 
059706,000318: 10,2355           22073        PHSCHNG2          LXCH     TEMPBBCN                              
059707,000319: 10,2356           30065                          CA       TEMPSW                                
059708,000320: 10,2357           74716                          MASK     OCT7                                  
059709,000321: 10,2360           60000                          DOUBLE                                         
059710,000322: 10,2361           54061                          TS       TEMPG                                 
059711,000323: 
059712,000324: 10,2362           30065                          CA       TEMPSW                                
059713,000325: 10,2363           74765                          MASK     OCT17770                              
059714,000326: 10,2364           00006                          EXTEND                                         
059715,000327: 10,2365           74677                          MP       BIT12                                 
059716,000328: 10,2366           54062                          TS       TEMPP                                 
059717,000329: 
059718,000330: 10,2367           30065                          CA       TEMPSW                                
059719,000331: 10,2370           74105                          MASK     OCT60000                              
059720,000332: 10,2371           56065                          XCH      TEMPSW                                
059721,000333: 10,2372           74761                          MASK     OCT14000                              
059722,000334: 10,2373           10000                          CCS      A                                     
059723,000335: 10,2374           15315                          TCF      ONEORTWO                              
059724,000336: 
059725,000337:                                                                                                 #  Page 1402
059726,000338: 10,2375           30062                          CA       TEMPP                                 #  START STORING THE PHASE INFORMATION
059727,000339: 10,2376           50061                          NDX      TEMPG                                 
059728,000340: 10,2377           54751                          TS       PHASE1     -2                         
059729,000341: 
059730,000342: 10,2400           10066        BELOW1            CCS      TEMPSW2                               #  IS IT A PHASCHNG OR A 2PHSCHNG
059731,000343: 10,2401           12415                          TCF      BELOW2                                #  IT'S A PHASCHNG
059732,000344: 
059733,000345: 10,2402           12403                          TCF      +1                                    #  IT'S A 2PHSCHNG
059734,000346: 10,2403           40072                          CS       TEMPP2                                
059735,000347: 10,2404           22072                          LXCH     TEMPP2                                
059736,000348: 10,2405           50071                          NDX      TEMPG2                                
059737,000349: 10,2406           52751                          DXCH     -PHASE1    -2                         
059738,000350: 
059739,000351: 10,2407           10066                          CCS      TEMPSW2                               
059740,000352: 10,2410           12411                          NOOP                                           #  CAN'T GET HERE
059741,000353: 10,2411           12415                          TCF      BELOW2                                
059742,000354: 
059743,000355: 10,2412           40025                          CS       TIME1                                 
059744,000356: 10,2413           50071                          NDX      TEMPG2                                
059745,000357: 10,2414           55051                          TS       TBASE1     -2                         
059746,000358: 
059747,000359: 10,2415           10065        BELOW2            CCS      TEMPSW                                #  SEE IF WE SHOULD SET TBASE OR LONGBASE
059748,000360: 10,2416           12431                          TCF      BELOW3                                #  SET LONGBASE ONLY
059749,000361: 10,2417           12434                          TCF      BELOW4                                #  SET NEITHER
059750,000362: 
059751,000363: 10,2420           40025                          CS       TIME1                                 #  SET TBASE TO BEGIN WITH
059752,000364: 10,2421           50061                          NDX      TEMPG                                 
059753,000365: 10,2422           55051                          TS       TBASE1     -2                         
059754,000366: 
059755,000367: 10,2423           30065                          CA       TEMPSW                                #  SHALL WE NOW SET LONGBASE
059756,000368: 10,2424           62427                          AD       BIT14COM                              
059757,000369: 10,2425           10000                          CCS      A                                     
059758,000370: 10,2426           12427                          NOOP                                           #  ***** CAN'T GET HERE *****
059759,000371: 10,2427           17777        BIT14COM          OCT      17777                                 #  ***** CAN'T GET HERE *****
059760,000372: 10,2430           12434                          TCF      BELOW4                                #  NO WE NEED ONLY SET TBASE
059761,000373: 
059762,000374: 10,2431           00006        BELOW3            EXTEND                                         #  SET LONGBASE
059763,000375: 10,2432           30025                          DCA      TIME2                                 
059764,000376: 10,2433           53136                          DXCH     LONGBASE                              
059765,000377: 
059766,000378: 10,2434           40062        BELOW4            CS       TEMPP                                 #  AND STORE THE FINAL PART OF THE PHASE
059767,000379: 10,2435           50061                          NDX      TEMPG                                 
059768,000380: 10,2436           54750                          TS       -PHASE1    -2                         
059769,000381: 
059770,000382: 10,2437           30002                          CA       Q                                     
059771,000383: 10,2440           22073                          LXCH     TEMPBBCN                              
059772,000384: 10,2441           00003                          RELINT                                         
059773,000385: 10,2442           52006                          DTCB                                           
059774,000386: 10,2443           22073        CON2              LXCH     TEMPBBCN                              
059775,000387:                                                                                                 #  Page 1403
059776,000388: 10,2444           30062                          CA       TEMPP                                 
059777,000389: 10,2445           50061                          NDX      TEMPG                                 
059778,000390: 10,2446           54751                          TS       PHASE1     -2                         
059779,000391: 
059780,000392: 10,2447           30070                          CA       TEMPPR                                
059781,000393: 10,2450           50061                          NDX      TEMPG                                 
059782,000394: 10,2451           55052                          TS       PHSPRDT1   -2                         
059783,000395: 
059784,000396: 10,2452           00006                          EXTEND                                         
059785,000397: 10,2453           30064                          DCA      TEMPNM                                
059786,000398: 10,2454           50061                          NDX      TEMPG                                 
059787,000399: 10,2455           53435                          DXCH     PHSNAME1   -2                         
059788,000400: 
059789,000401: 10,2456           12400                          TCF      BELOW1                                
059790,000402: 
059791,000403:    5363                                          BLOCK    02                                    
059792,000404:    4000                                          SETLOC   FFTAG1                                
059793,000405:    4000                                          BANK                                           
059794,000406: 
059795,000407:    5363                                          COUNT    02/PHASE                              
059796,000408: 
059797,000409:    5363           74677        CHECKB            MASK     BIT12                                 #  SINCE THIS IS OF TYPE 8, THIS BIT WOULD
059798,000410:    5364           10000                          CCS      A                                     #  BE HERE IF WE ARE TO GET A NEW PRIORITY
059799,000411:    5365           15350                          TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
059800,000412: 
059801,000413:    5366           15327                          TCF      OLDPRIO                               #  IT ISN'T, USE THE OLD PRIORITY.
059802,000414: 
059803,000415: 
059804,000416: 

End of include-file PHASE_TABLE_MAINTENANCE.agc.  Parent file is MAIN.agc