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