Source Code

055099,000001: # Copyright: Public domain. 055100,000002: # Filename: PHASE_TABLE_MAINTENANCE.agc 055101,000003: # Purpose: Part of the source code for Luminary 1A build 099. 055102,000004: # It is part of the source code for the Lunar Module's (LM) 055103,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 055104,000006: # Assembler: yaYUL 055105,000007: # Contact: Onno Hommes <ohommes@cmu.edu>. 055106,000008: # Website: www.ibiblio.org/apollo. 055107,000009: # Pages: 1294-1302 055108,000010: # Mod history: 2009-05-26 OH Transcribed from page images. 055109,000011: # 2009-06-05 RSB A few lines at the bottom of page image 055110,000012: # 1294 were truncated. I've fixed the page 055111,000013: # image and added those missing lines here. 055112,000014: # 2011-05-07 JL Flagged SBANK= workaround for future 055113,000015: # removal. 055114,000016: 055115,000017: # This source code has been transcribed or otherwise adapted from 055116,000018: # digitized images of a hardcopy from the MIT Museum. The digitization 055117,000019: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 055118,000020: # the Museum. Many thanks to both. The images (with suitable reduction 055119,000021: # in storage size and consequent reduction in image quality as well) are 055120,000022: # available online at www.ibiblio.org/apollo. If for some reason you 055121,000023: # find that the images are illegible, contact me at info@sandroid.org 055122,000024: # about getting access to the (much) higher-quality images which Paul 055123,000025: # actually created. 055124,000026: 055125,000027: # Notations on the hardcopy document read, in part: 055126,000028: 055127,000029: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 055128,000030: # 16:27 JULY 14, 1969 055129,000031: 055130,000032: # Page 1294 055131,000033: # SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY. 055132,000034: 055133,000035: 43,3724 COUNT* $$/PHASE 055134,000036: 5311 BLOCK 02 055135,000037: 4000 SETLOC FFTAG1 055136,000038: 4000 BANK 055137,000039: 055138,000040: 5311 50002 NEWMODEX INDEX Q # UPDATE MODREG. ENTRY FOR MODE IN FIXED. 055139,000041: 5312 30000 CAF 0 055140,000042: 5313 24002 INCR Q 055141,000043: 055142,000044: 5314 55011 NEWMODEA TS MODREG # ENTRY FOR MODE IN A. 055143,000045: 5315 35320 MMDSPLAY CAF +3 # DISPLAY MAJOR MODE. 055144,000046: 5316 22006 PREBJUMP LXCH BBANK # PUTS BBANK IN L 055145,000047: 5317 14640 TCF BANKJUMP # PUTS Q INTO A 055146,000048: 5320 20213 CADR SETUPDSP 055147,000049: 055148,000050: # RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2. 055149,000051: 055150,000052: 5321 50002 CHECKMM INDEX Q 055151,000053: 5322 40000 CS 0 055152,000054: 5323 61011 AD MODREG 055153,000055: 5324 00006 EXTEND 055154,000056: 5325 16741 BZF Q+2 055155,000057: 5326 16737 TCF Q+1 # NO MATCH 055156,000058: 055157,000059: 5327 6742 TCQ = Q+2 +1 055158,000060: 055159,000061: 14,3774 BANK 14 055160,000062: 10,2000 SETLOC PHASETAB 055161,000063: 10,2000 BANK 055162,000064: 055163,000065: 10,2213 COUNT* $$/PHASE 055164,000066: 10,2213 00004 SETUPDSP INHINT 055165,000067: 10,2214 52071 DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR 055166,000068: 10,2215 34355 CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO 055167,000069: 10,2216 05072 TC NOVAC # NEWMODE X 055168,000070: 10,2217 1011 EBANK= MODREG 055169,000071: 10,2217 03534 60102 2CADR DSPMMJOB 055170,000072: 055171,000073: 10,2221 52071 DXCH RUPTREG1 055172,000074: 10,2222 00003 RELINT 055173,000075: 10,2223 52006 DXCH Z # RETURN 055174,000076: 055175,000077: 10,2224 40,3534 DSPMMJOB EQUALS DSPMMJB 055176,000078: 055177,000079: 5327 BLOCK 02 055178,000080: 4000 SETLOC FFTAG1 055179,000081: 4000 BANK 055180,000082: 055181,000083: # Page 1295 055182,000084: # PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE 055183,000085: # A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION, 055184,000086: # TC PHASCHNG 055185,000087: # OCT XXXXX 055186,000088: # TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY. THESE 055187,000089: # OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE, 055188,000090: # G.0 INACTIVE, WILL NOT PERMIT A GROUP G RESTART 055189,000091: # G.1 WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS 055190,000092: # G.EVEN A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR 055191,000093: # LONGCALL TO BE RESTARTED. 055192,000094: # G.ODD NOT .1 A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART. 055193,000095: 055194,000096: # THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS 055195,000097: # TL0 00P PPP PPP GGG 055196,000098: # 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, 055197,000099: # OCTAL 0 - 127. 0'S MUST BE 0. IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME, 055198,000100: # 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 055199,000101: # IT IS SET TO 0. SOME EXAMPLES, 055200,000102: # TC PHASCHNG # THIS WILL CAUSE GROUP 3 TO BE SET TO 0, 055201,000103: # OCT 00003 # MAKING GROUP 3 INACTIVE 055202,000104: 055203,000105: # TC PHASCHNG # IF A RESTART OCCURS THIS WOULD CAUSE 055204,000106: # OCT 00012 # GROUP 2 TO RESTART THE LAST DISPLAY 055205,000107: 055206,000108: # TC PHASCHNG # THIS SETS THE TBASE OF GROUP 4 AND IN 055207,000109: # OCT 40064 # CASE OF A RESTART WOULD START UP THE TWO 055208,000110: # # THINGS LOCATED IN THE DOUBLE 4.6 RESTART 055209,000111: # # LOCATION. 055210,000112: 055211,000113: # TC PHASCHNG # THIS SETS LONGBASE AND UPON A RESTART 055212,000114: # OCT 20135 # CAUSES 5.13 TO BE RESTARTED (SINCE 055213,000115: # # LONGBASE WAS SET THIS SINGLE ENTRY 055214,000116: # # SHOULD BE A LONGCALL) 055215,000117: 055216,000118: # TC PHASCHNG # SINCE BOTH TBASE4 AND LONGBASE ARE SET, 055217,000119: # OCT 60124 # 4.12 SHOULD CONTAIN BOTH A TASK AND A 055218,000120: # # LONGCALL TO BE RESTARTED 055219,000121: 055220,000122: # TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A 055221,000123: # PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABLE LOCATION. THE BITS ARE AS FOLLOWS, 055222,000124: # TL0 1AD XXX CJW GGG 055223,000125: # WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1 - 7. IF THE RESTART IS TO 055224,000126: # 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 055225,000127: # 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, 055226,000128: # Page 1296 055227,000129: # AND L FOR LONGBASE. THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY 055228,000130: # OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION., IF THIS IS TO BE INDIRECT, THAT 055229,000131: # IS, THE NAME OF A LOCATION CONTAINING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF 055230,000132: # THAT LOCATION WHICH CONTAINS THE DELTA TIME. IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS 055231,000133: # 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 055232,000134: # THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER 055233,000135: # (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT. IF A IS SET TO 1, THEN THE ADDRESS THAT 055234,000136: # WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATION. EXAMPLES, 055235,000137: # AD TC PHASCHNG # THIS WOULD CAUSE LOCATION AD +3 TO BE 055236,000138: # AD+1 OCT 05023 # RESTARTED BY GROUP THREE WITH A PRIORITY 055237,000139: # AD+2 OCT 23000 # OF 23. NOTE UPON RETURNING IT WOULD 055238,000140: # AD+3 # ALSO GO TO AD+3 055239,000141: 055240,000142: # AD TC PHASCHNG # GROUP 1 WOULD CAUSE CALLCALL TO BE 055241,000143: # AD+1 OCT 27441 # BE STARTED AS A LONGCALL FROM THE TIME 055242,000144: # AD+2 -GENADR DELTIME # STORED IN LONGBASE (LONGBASE WAS SET) BY 055243,000145: # AD+3 2CADR CALLCALL # A DELTA TIME STORED IN DELTIME. THE 055244,000146: # AD+4 # BBCON OF THE 2CADR SHOULD CONTAIN THE E 055245,000147: # AD+5 # BANK OF DELTIME. PHASCHNG RETURNS TO 055246,000148: # # LOCATION AD+5 055247,000149: 055248,000150: # NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS 055249,000151: # NEGATIVE, AS A FINDVAC IF TEH PRIORITY IS POSITIVE. 055250,000152: 055251,000153: # TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED 055252,000154: # 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 055253,000155: # DOUBLE ENTRY. THE BIT INFORMATION IS AS FOLLOW, 055254,000156: # TL1 DAP PPP PPP GGG 055255,000157: # 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 055256,000158: # PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1. AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS 055257,000159: # TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN. 055258,000160: # 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 055259,000161: # THE NEXT LOCATION. (THE RETURN LOCATION OF PHASCHNG) EXAMPLES, 055260,000162: # AD TC PHASCHNG # TBASE IS SET AND A RESTART CAUSE GROUP 3 055261,000163: # AD+1 OCT 56043 # TO START THE JOB AJOBAJOB WITH PRIORITY 055262,000164: # AD+2 OCT 31000 # 31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN 055263,000165: # AD+3 2CADR AJOBAJOB # ASSUME IT IS A TASK SINCE WE SET TBASE3) 055264,000166: # AD+4 # UPON RETURN FROM PHASCHNG CONTROL WOULD 055265,000167: # AD+5 # GO TO AD+5 055266,000168: 055267,000169: # AD TC PHASCHNG # UPON A RESTART THE LAST DISPLAY WOULD BE 055268,000170: # AD+1 OCT 10015 # RESTARTED AND A JOB WITH THE PREVIOUSLY 055269,000171: # AD+2 # STORED PRIORITY WOULD BE BEGUN AT AD+2 055270,000172: # # BY MEANS OF GROUP 5 055271,000173: # Page 1297 055272,000174: # THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO -- NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC. 055273,000175: 055274,000176: # SUMMARY OF BITS: 055275,000177: # TYPE A TL0 00P PPP PPP GGG 055276,000178: # TYPE B TL1 DAP PPP PPP GGG 055277,000179: # TYPE C TL0 1AD XXX CJW GGG 055278,000180: 055279,000181: # Page 1298 055280,000182: # 2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT 055281,000183: # GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG 055282,000184: # CALLS ARE MADE IN THE FOLLOWING MANNER, 055283,000185: # TC 2PHSCHNG 055284,000186: # OCT XXXXX 055285,000187: # OCT YYYYY 055286,000188: # 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 055287,000189: # DIFFERENCE --- NOTE: IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL 055288,000190: # BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP, 055289,000191: # AD TC 2PHACHNG # SET TBASE3 AND IF A RESTART OCCURS START 055290,000192: # AD+1 OCT 40083 # THE TWO ENTRIES IN 3.8 TABLE LOCATION 055291,000193: # AD+2 OCT 05025 # THIS IS OF TYPE C, SET THE JOB TO BE 055292,000194: # AD+3 OCT 18000 # TO BE LOCATION AD+4, WITH A PRIORITY 18, 055293,000195: # AD+4 # FOR GROUP 5 PHASE INFORMATION. 055294,000196:

[WORKAROUND] RSB 2004

055296,000198:    5327  40,2000                                 SBANK=   PINSUPER                              

[WORKAROUND]

055298,000200: 
055299,000201:    5327                                          COUNT*   $$/PHASE                              
055300,000202:    5327           00004        2PHSCHNG          INHINT                                         #  THE ENTRY FOR A DOUBLE PHASE CHANGE
055301,000203:    5330           50002                          NDX      Q                                     
055302,000204:    5331           30000                          CA       0                                     
055303,000205:    5332           24002                          INCR     Q                                     
055304,000206:    5333           54072                          TS       TEMPP2                                
055305,000207: 
055306,000208:    5334           74757                          MASK     OCT7                                  
055307,000209:    5335           60000                          DOUBLE                                         
055308,000210:    5336           54071                          TS       TEMPG2                                
055309,000211: 
055310,000212:    5337           30072                          CA       TEMPP2                                
055311,000213:    5340           75030                          MASK     OCT17770                              #  NEED ONLY 1770, BUT WHY GET A NEW CONST.
055312,000214:    5341           00006                          EXTEND                                         
055313,000215:    5342           74740                          MP       BIT12                                 
055314,000216:    5343           56072                          XCH      TEMPP2                                
055315,000217: 
055316,000218:    5344           74735                          MASK     BIT15                                 
055317,000219:    5345           54066                          TS       TEMPSW2                               #  INDICATES WHETHER TO SET TBASE OR NOT
055318,000220: 
055319,000221:    5346           50002                          INDEX    Q                                     
055320,000222:    5347           30000                          CA       0                                     
055321,000223:    5350           24002                          INCR     Q                                     
055322,000224:    5351           54065                          TS       TEMPSW                                
055323,000225: 
055324,000226:    5352           15363                          TCF      PHASJUMP                              
055325,000227: 
055326,000228:    5353           00004        PHASCHNG          INHINT                                         #  NORMAL PHASCHNG ENTRY POINT.
055327,000229:    5354           50002                          INDEX    Q                                     
055328,000230:    5355           30000                          CA       0                                     
055329,000231:    5356           24002                          INCR     Q                                     
055330,000232:    5357           00004        PHSCHNGA          INHINT                                         #  FIRST OCTAL PARAMETER IN A.
055331,000233:                                                                                                 #  Page 1299
055332,000234:    5360           54065                          TS       TEMPSW                                
055333,000235:    5361           34753                          CA       ONE                                   
055334,000236:    5362           54066                          TS       TEMPSW2                               
055335,000237:    5363           00006        PHASJUMP          EXTEND                                         
055336,000238:    5364           35367                          DCA      ADRPCHN2                              #  OFF TO SWITCHED BANK
055337,000239:    5365           52006                          DTCB                                           
055338,000240: 
055339,000241:    5366  E3,1400                                 EBANK=   LST1                                  
055340,000242:    5366           02224 20103  ADRPCHN2          2CADR    PHSCHNG2                              
055341,000243: 
055342,000244:    5370           22073        ONEORTWO          LXCH     TEMPBBCN                              
055343,000245:    5371           22006                          LXCH     BBANK                                 
055344,000246:    5372           22073                          LXCH     TEMPBBCN                              
055345,000247: 
055346,000248:    5373           75024                          MASK     OCT14000                              #  SEE WHAT KIND OF PHASE CHANGE IT IS
055347,000249:    5374           10000                          CCS      A                                     
055348,000250:    5375           17750                          TCF      CHECKB                                #  IT IS OF TYPE `B'.
055349,000251: 
055350,000252:    5376           30062                          CA       TEMPP                                 
055351,000253:    5377           74745                          MASK     BIT7                                  
055352,000254:    5400           10000                          CCS      A                                     #  SHALL WE USE THE OLD PRIORITY
055353,000255:    5401           15423                          TCF      GETPRIO                               #  NO GET A NEW PRIORITY (OR DELTA T)
055354,000256: 
055355,000257:    5402           50061        OLDPRIO           NDX      TEMPG                                 #  USE THE OLD PRIORITY (OR DELTA T)
055356,000258:    5403           31052                          CA       PHSPRDT1   -2                         
055357,000259:    5404           54070                          TS       TEMPPR                                
055358,000260: 
055359,000261:    5405           30062        CON1              CA       TEMPP                                 #  SEE IF A 2CADR IS GIVEN
055360,000262:    5406           74744                          MASK     BIT8                                  
055361,000263:    5407           10000                          CCS      A                                     
055362,000264:    5410           15427                          TCF      GETNEWNM                              
055363,000265: 
055364,000266:    5411           30002                          CA       Q                                     
055365,000267:    5412           54063                          TS       TEMPNM                                
055366,000268:    5413           30006                          CA       BB                                    
055367,000269:    5414           00006                          EXTEND                                         #  PICK UP USER'S SUPERBANK
055368,000270:    5415           04007                          ROR      SUPERBNK                              
055369,000271:    5416           54064                          TS       TEMPBB                                
055370,000272: 
055371,000273:    5417           35422        TOCON2            CA       CON2ADR                               #  BACK TO SWITCHED BANK
055372,000274:    5420           22073                          LXCH     TEMPBBCN                              
055373,000275:    5421           52006                          DTCB                                           
055374,000276: 
055375,000277:    5422           02312        CON2ADR           GENADR   CON2                                  
055376,000278: 
055377,000279:    5423           50002        GETPRIO           NDX      Q                                     #  DON'T CARE IF DIRECT OR INDIRECT
055378,000280:    5424           30000                          CA       0                                     #  LEAVE THAT DECISION TO RESTARTS
055379,000281:    5425           24002                          INCR     Q                                     #  OBTAIN RETURN ADDRESS
055380,000282:                                                                                                 #  Page 1300
055381,000283:    5426           15404                          TCF      CON1       -1                         
055382,000284: 
055383,000285:    5427           00006        GETNEWNM          EXTEND                                         
055384,000286:    5430           50002                          INDEX    Q                                     
055385,000287:    5431           30001                          DCA      0                                     
055386,000288:    5432           52064                          DXCH     TEMPNM                                
055387,000289:    5433           34752                          CA       TWO                                   
055388,000290:    5434           26002                          ADS      Q                                     #  OBTAIN RETURN ADDRESS
055389,000291: 
055390,000292:    5435           15417                          TCF      TOCON2                                
055391,000293: 
055392,000294:    5436     5024               OCT14000          EQUALS   PRIO14                                
055393,000295:    5436     0061               TEMPG             EQUALS   ITEMP1                                
055394,000296:    5436     0062               TEMPP             EQUALS   ITEMP2                                
055395,000297:    5436     0063               TEMPNM            EQUALS   ITEMP3                                
055396,000298:    5436     0064               TEMPBB            EQUALS   ITEMP4                                
055397,000299:    5436     0065               TEMPSW            EQUALS   ITEMP5                                
055398,000300:    5436     0066               TEMPSW2           EQUALS   ITEMP6                                
055399,000301:    5436     0070               TEMPPR            EQUALS   RUPTREG1                              
055400,000302:    5436     0071               TEMPG2            EQUALS   RUPTREG2                              
055401,000303:    5436     0072               TEMPP2            EQUALS   RUPTREG3                              
055402,000304: 
055403,000305:    5436     0073               TEMPBBCN          EQUALS   RUPTREG4                              
055404,000306:    5436  0000006               BB                EQUALS   BBANK                                 
055405,000307: 
055406,000308: 14,3774                                          BANK     14                                    
055407,000309: 10,2000                                          SETLOC   PHASETAB                              
055408,000310: 10,2000                                          BANK                                           
055409,000311: 
055410,000312: 10,2224  E3,1436                                 EBANK=   PHSNAME1                              
055411,000313: 10,2224                                          COUNT*   $$/PHASE                              
055412,000314: 10,2224           22073        PHSCHNG2          LXCH     TEMPBBCN                              
055413,000315: 10,2225           30065                          CA       TEMPSW                                
055414,000316: 10,2226           74757                          MASK     OCT7                                  
055415,000317: 10,2227           60000                          DOUBLE                                         
055416,000318: 10,2230           54061                          TS       TEMPG                                 
055417,000319: 
055418,000320: 10,2231           30065                          CA       TEMPSW                                
055419,000321: 10,2232           75030                          MASK     OCT17770                              
055420,000322: 10,2233           00006                          EXTEND                                         
055421,000323: 10,2234           74740                          MP       BIT12                                 
055422,000324: 10,2235           54062                          TS       TEMPP                                 
055423,000325: 
055424,000326: 10,2236           30065                          CA       TEMPSW                                
055425,000327: 10,2237           74101                          MASK     OCT60000                              
055426,000328: 10,2240           56065                          XCH      TEMPSW                                
055427,000329: 10,2241           75024                          MASK     OCT14000                              
055428,000330: 10,2242           10000                          CCS      A                                     
055429,000331:                                                                                                 #  Page 1301
055430,000332: 10,2243           15370                          TCF      ONEORTWO                              
055431,000333: 
055432,000334: 10,2244           30062                          CA       TEMPP                                 #  START STORING THE PHASE INFORMATION
055433,000335: 10,2245           50061                          NDX      TEMPG                                 
055434,000336: 10,2246           54751                          TS       PHASE1     -2                         
055435,000337: 
055436,000338: 10,2247           10066        BELOW1            CCS      TEMPSW2                               #  IS IT A PHASCHNG OR A 2PHSCHNG
055437,000339: 10,2250           12264                          TCF      BELOW2                                #  IT'S A PHASCHNG
055438,000340: 
055439,000341: 10,2251           12252                          TCF      +1                                    #  IT'S A 2PHSCHNG
055440,000342: 10,2252           40072                          CS       TEMPP2                                
055441,000343: 10,2253           22072                          LXCH     TEMPP2                                
055442,000344: 10,2254           50071                          NDX      TEMPG2                                
055443,000345: 10,2255           52751                          DXCH     -PHASE1    -2                         
055444,000346: 
055445,000347: 10,2256           10066                          CCS      TEMPSW2                               
055446,000348: 10,2257           12260                          NOOP                                           #  CAN'T GET HERE
055447,000349: 10,2260           12264                          TCF      BELOW2                                
055448,000350: 
055449,000351: 10,2261           40025                          CS       TIME1                                 
055450,000352: 10,2262           50071                          NDX      TEMPG2                                
055451,000353: 10,2263           55051                          TS       TBASE1     -2                         
055452,000354: 
055453,000355: 10,2264           10065        BELOW2            CCS      TEMPSW                                #  SEE IF WE SHOULD SET TBASE OR LONGBASE
055454,000356: 10,2265           12300                          TCF      BELOW3                                #  SET LONGBASE ONLY
055455,000357: 10,2266           12303                          TCF      BELOW4                                #  SET NEITHER
055456,000358: 
055457,000359: 10,2267           40025                          CS       TIME1                                 #  SET TBASE TO BEGIN WITH
055458,000360: 10,2270           50061                          NDX      TEMPG                                 
055459,000361: 10,2271           55051                          TS       TBASE1     -2                         
055460,000362: 
055461,000363: 10,2272           30065                          CA       TEMPSW                                #  SHALL WE NOW SET LONGBASE
055462,000364: 10,2273           62276                          AD       BIT14COM                              
055463,000365: 10,2274           10000                          CCS      A                                     
055464,000366: 10,2275           12276                          NOOP                                           #  ***** CAN'T GET HERE *****
055465,000367: 10,2276           17777        BIT14COM          OCT      17777                                 #  ***** CAN'T GET HERE *****
055466,000368: 10,2277           12303                          TCF      BELOW4                                #  NO WE NEED ONLY SET TBASE
055467,000369: 
055468,000370: 10,2300           00006        BELOW3            EXTEND                                         #  SET LONGBASE
055469,000371: 10,2301           30025                          DCA      TIME2                                 
055470,000372: 10,2302           53152                          DXCH     LONGBASE                              
055471,000373: 
055472,000374: 10,2303           40062        BELOW4            CS       TEMPP                                 #  AND STORE THE FINAL PART OF THE PHASE
055473,000375: 10,2304           50061                          NDX      TEMPG                                 
055474,000376: 10,2305           54750                          TS       -PHASE1    -2                         
055475,000377: 
055476,000378: 10,2306           30002                          CA       Q                                     
055477,000379: 10,2307           22073                          LXCH     TEMPBBCN                              
055478,000380: 10,2310           00003                          RELINT                                         
055479,000381: 10,2311           52006                          DTCB                                           
055480,000382:                                                                                                 #  Page 1302
055481,000383: 10,2312           22073        CON2              LXCH     TEMPBBCN                              
055482,000384: 
055483,000385: 10,2313           30062                          CA       TEMPP                                 
055484,000386: 10,2314           50061                          NDX      TEMPG                                 
055485,000387: 10,2315           54751                          TS       PHASE1     -2                         
055486,000388: 
055487,000389: 10,2316           30070                          CA       TEMPPR                                
055488,000390: 10,2317           50061                          NDX      TEMPG                                 
055489,000391: 10,2320           55052                          TS       PHSPRDT1   -2                         
055490,000392: 
055491,000393: 10,2321           00006                          EXTEND                                         
055492,000394: 10,2322           30064                          DCA      TEMPNM                                
055493,000395: 10,2323           50061                          NDX      TEMPG                                 
055494,000396: 10,2324           53435                          DXCH     PHSNAME1   -2                         
055495,000397: 
055496,000398: 10,2325           12247                          TCF      BELOW1                                
055497,000399: 
055498,000400:    7750                                          BLOCK    03                                    
055499,000401:    6000                                          SETLOC   FFTAG6                                
055500,000402:    6000                                          BANK                                           
055501,000403: 
055502,000404:    7750                                          COUNT*   $$/PHASE                              
055503,000405:    7750           74740        CHECKB            MASK     BIT12                                 #  SINCE THIS IS OF TYPE 8, THIS BIT WOULD
055504,000406:    7751           10000                          CCS      A                                     #  BE HERE IF WE ARE TO GET A NEW PRIORITY
055505,000407:    7752           15423                          TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
055506,000408: 
055507,000409:    7753           15402                          TCF      OLDPRIO                               #  IT ISN'T, USE THE OLD PRIORITY.
055508,000410: 
055509,000411: 

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