Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

057833,000002:                                                                                                 #  Copyright:    Public domain.
057834,000003:                                                                                                 #  Filename:      PHASE_TABLE_MAINTENANCE.agc
057835,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
057836,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
057837,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
057838,000007:                                                                                                 #  Assembler:    yaYUL
057839,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
057840,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
057841,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
057842,000011:                                                                                                 #  Mod history:  2011-04-17 JL    Adapted from corresponding Colossus 249 file.
057843,000012: 
057844,000013:                                                                                                 # # Page 1368
057845,000014:                                                                                                 #           SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
057846,000015: 
057847,000016: ???????                                          COUNT    02/PHASE                              
057848,000017: 
057849,000018:    5243                                          BLOCK    02                                    
057850,000019:    4000                                          SETLOC   FFTAG1                                
057851,000020:    4000                                          BANK                                           
057852,000021: 
057853,000022:    5243           50002        NEWMODEX          INDEX    Q                                     #  UPDATE MODREG. ENTRY FOR MODE IN FIXED.
057854,000023:    5244           30000                          CAF      0                                     
057855,000024:    5245           24002                          INCR     Q                                     
057856,000025: 
057857,000026:    5246           55011        NEWMODEA          TS       MODREG                                #  ENTRY FOR MODE IN A.
057858,000027:    5247           35252        MMDSPLAY          CAF      +3                                    #  DISPLAY MAJOR MODE.
057859,000028:    5250           22006        PREBJUMP          LXCH     BBANK                                 #  PUTS BBANK IN L
057860,000029:    5251           14577                          TCF      BANKJUMP                              #  PUTS Q INTO A
057861,000030:    5252           20344                          CADR     SETUPDSP                              
057862,000031: 
057863,000032:                                                                                                 #           RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
057864,000033: 
057865,000034:    5253           50002        CHECKMM           INDEX    Q                                     
057866,000035:    5254           40000                          CS       0                                     
057867,000036:    5255           61011                          AD       MODREG                                
057868,000037:    5256           00006                          EXTEND                                         
057869,000038:    5257           16710                          BZF      Q+2                                   
057870,000039:    5260           16706                          TCF      Q+1                                   #  NO MATCH
057871,000040: 
057872,000041:    5261     6711               TCQ               =        Q+2        +1                         
057873,000042: 
057874,000043: 14,3751                                          BANK     14                                    
057875,000044: 10,2000                                          SETLOC   PHASETAB                              
057876,000045: 10,2000                                          BANK                                           
057877,000046: 
057878,000047: 10,2344                                          COUNT    10/PHASE                              
057879,000048: 
057880,000049: 10,2344           00004        SETUPDSP          INHINT                                         
057881,000050: 10,2345           52071                          DXCH     RUPTREG1                              #  SAVE CALLER-S RETURN 2CADR
057882,000051: 10,2346           34371                          CAF      PRIO30                                #    EITHER A TASK OR JOB CAN COME TO
057883,000052: 10,2347           05027                          TC       NOVAC                                 #    NEWMODEX
057884,000053: 10,2350     1011                                 EBANK=   MODREG                                
057885,000054: 10,2350           03435 60102                    2CADR    DSPMMJOB                              
057886,000055: 10,2352           52071                          DXCH     RUPTREG1                              
057887,000056: 10,2353           00003                          RELINT                                         
057888,000057: 10,2354           52006                          DXCH     Z                                     #  RETURN
057889,000058: 
057890,000059: 10,2355  40,3435               DSPMMJOB          EQUALS   DSPMMJB                               
057891,000060: 
057892,000061: 
057893,000062:    5261                                          BLOCK    02                                    
057894,000063:                                                                                                 # # Page 1369
057895,000064:    4000                                          SETLOC   FFTAG1                                
057896,000065:    4000                                          BANK                                           
057897,000066: 
057898,000067:                                                                                                 # # Page 1370
057899,000068:                                                                                                 #  PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS.  THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
057900,000069:                                                                                                 #  A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX   CONTAINS THE PHASE INFORMATION,
057901,000070: 
057902,000071:                                                                                                 #                                                   TC     PHASCHNG
057903,000072:                                                                                                 #                                                   OCT    XXXXX
057904,000073: 
057905,000074:                                                                                                 #  TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATIONTHAT IS STORED PERMANENTLY.  THESE
057906,000075:                                                                                                 #  OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
057907,000076: 
057908,000077:                                                                                                 #                  G.0             INACTIVE, WILL NOT PERMIT A GROUP G RESTART
057909,000078:                                                                                                 #                  G.1             WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
057910,000079:                                                                                                 #                  G.EVEN          A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
057911,000080:                                                                                                 #                                  LONGCALL TO BE RESTARTED.
057912,000081:                                                                                                 #                  G.ODD NOT .1    A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART
057913,000082: 
057914,000083:                                                                                                 #  THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
057915,000084: 
057916,000085:                                                                                                 #                  TL0 00P PPP PPP GGG
057917,000086: 
057918,000087:                                                                                                 #  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,
057919,000088:                                                                                                 #  OCTAL 0 - 127.  0:S MUST BE 0.              IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
057920,000089:                                                                                                 #  T IS SET TO 1, OTHERWISE IT IS SET TO 0.  SIMIARLY IF ONE WISHES TO SET LONGBASE, THEN L IS SET TO 1, OTHERWISE
057921,000090:                                                                                                 #  IT IS SET TO 0.  SOME EXAMLES,
057922,000091: 
057923,000092:                                                                                                 #                                                   TC     PHASCHNG        THIS WILL CAUSE GROUP 3 TOBE SET TO 0,
057924,000093:                                                                                                 #                                                   OCT    00003           MAKING GROUP 3 INACTIVE
057925,000094: 
057926,000095:                                                                                                 #                                                   TC     PHASCHNG        IF A RESTART OCCURS THIS WOULD CAUSE
057927,000096:                                                                                                 #                                                   OCT    00012           GROUP 2 TO RESTART THE LAST DISPLAY
057928,000097: 
057929,000098:                                                                                                 #                                                   TC     PHASCHNG        THIS SETS THE TBASE OF GROUP 4 AND IN
057930,000099:                                                                                                 #                                                   OCT    40064           CASE OF A RESTART WOULD START UP THE TWO
057931,000100:                                                                                                 #                                                                          THINGS LOCATED IN THE DOUBLE 4.6 RESTART
057932,000101:                                                                                                 #                                                                          LOCATION
057933,000102:                                                                                                 #                                                   TC     PHASCHNG        THIS SETS LONGBASE AND UPON A RESTART
057934,000103:                                                                                                 #                                                   OCT    20135           CAUSES 5.13 TO BE RESTARTED (SINCE
057935,000104:                                                                                                 #                                                                          LONGBASE WAS SET THIS SINGLE ENTRY
057936,000105:                                                                                                 #                                                                          SHOULD BE A LONGCALL)
057937,000106:                                                                                                 #                                                   TC     PHASCHNG        SINCE BOTH TBASE4 AND LONGBASE ARE SET,
057938,000107:                                                                                                 #                                                   OCT    60124           4.12 SHOULD CONTAIN BOTH A TASK AND A
057939,000108:                                                                                                 #                                                                          LONGCALL TO BE RESTARTED
057940,000109: 
057941,000110:                                                                                                 #  TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A
057942,000111:                                                                                                 #  PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABKE LOCATION. THE BITS ARE AS FOLLOWS,
057943,000112: 
057944,000113:                                                                                                 #                  TL0 1AD XXX CJW GGG
057945,000114: 
057946,000115:                                                                                                 #  WHERE EACH LETTER OR NUMBER STANDS FOR A BIT.  THE G:S STAND FOR THE GROUP, OCTAL 1 - 7.  IF THE RESTART IS TO
057947,000116:                                                                                                 #  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
057948,000117:                                                                                                 #  THESE THREE BIT S MAY BE SET.  X:S ARE IGNORED  1 MUST BE 1, AND 0 MUST  BE 0.  AGAIN T STANDS FOR THE TBASE,
057949,000118:                                                                                                 # # Page 1371
057950,000119:                                                                                                 #  AND L FOR LONGBASE.  THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
057951,000120:                                                                                                 #  OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION, IF THIS IS TO BE INDIRECT, THAT
057952,000121:                                                                                                 #  IS, THE NAME OF A LOCATION CONT+INING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
057953,000122:                                                                                                 #  THAT LOCATION WHICH CONTAINS THE DELTA TIME.  IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
057954,000123:                                                                                                 #  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
057955,000124:                                                                                                 #  THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE  PHASE INFORMATION, THAT IS, EITHER
057956,000125:                                                                                                 #  (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT.  IF A IS SET TO 1, THEN THE ADDRESS THAT
057957,000126:                                                                                                 #  WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATIONS.  EXAMPLES,
057958,000127: 
057959,000128:                                                                                                 #                                          AD       TC     PHASCHNG        THIS WOULD CAUSE LOCATION AD +3 TO BE
057960,000129:                                                                                                 #                                          AD+1     OCT    05023           RESTARTED BY GROUP THREE WITHA PRIORITY
057961,000130:                                                                                                 #                                          AD+2     OCT    23000           OF 23.  NOTE UPON RETURNING IT WOULD
057962,000131:                                                                                                 #                                          AD+3                            ALSO GO TO AD+3
057963,000132: 
057964,000133:                                                                                                 #                                          AD       TC     PHASCHNG        GROUP  1 WOULD CAUSE CAUSE CALLCALL TO
057965,000134:                                                                                                 #                                          AD+1     OCT    27441           BE STARTED AS A LONGCALL FROM THE TIME
057966,000135:                                                                                                 #                                          AD+2    -GENADR DELTIME         STORED IN LONGBASE (LONGBASE WAS SET) BY
057967,000136:                                                                                                 #                                          AD+3     2CADR  CALLCALL        A DELTATIME STORED IN DELTIME.  THE
057968,000137:                                                                                                 #                                          AD+4                            BBCON OF THE 2CADR SHOULD CONTAIN THE E
057969,000138:                                                                                                 #                                          AD+5                            BANK OF DELTIME. PHASCHNG RETURNS TO
057970,000139:                                                                                                 #                                                                          LOCATION AD+5
057971,000140: 
057972,000141:                                                                                                 #  NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
057973,000142:                                                                                                 #  NEGATIVE, AS A FINDVAC IF THE PRIORITY IS POSITIVE.
057974,000143: 
057975,000144: 
057976,000145:                                                                                                 #  TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
057977,000146:                                                                                                 #  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
057978,000147:                                                                                                 #  DOUBLE ENTRY.  THE BIT INFORMATION IS AS FOLLOWS,
057979,000148: 
057980,000149:                                                                                                 #                  TL1 DAP PPP PPP GGG
057981,000150: 
057982,000151:                                                                                                 #  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
057983,000152:                                                                                                 #  PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1.  AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS
057984,000153:                                                                                                 #  TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
057985,000154:                                                                                                 #  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
057986,000155:                                                                                                 #  THE NEXT LOCATION.(THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
057987,000156: 
057988,000157:                                                                                                 #                                          AD       TC     PHASCHNG        TBASE IS SET AND ARESTART CAUSE GROUP 3
057989,000158:                                                                                                 #                                          AD+1     OCT    56043           TO START THE JOB AJOBAJOB WITH PRIORITY
057990,000159:                                                                                                 #                                          AD+2     OCT    31000           31 AND THE FIRST ENTRY OF 3.4SPOT(WE CAN
057991,000160:                                                                                                 #                                          AD+3     2CADR  AJOBAJOB        ASSUME IT IS A TASK SINCE WE SET TBASE3)
057992,000161:                                                                                                 #                                          AD+4                            UPON RETURN FROM PHASCHNG CONTROL WOULD
057993,000162:                                                                                                 #                                          AD+5                            GO TO AD+5
057994,000163: 
057995,000164:                                                                                                 #                                          AD       TC     PHASCHNG        UPON A RESTART THE LAST DISPLAY WOULD BE
057996,000165:                                                                                                 #                                          AD+1     OCT    10015           RESTARTED AND A JOB WITH THE PREVIOUSLY
057997,000166:                                                                                                 #                                          AD+2                            STORED PRIORITY WOULD BE BEGUN AT AD+2
057998,000167:                                                                                                 #                                                                          BY MEANS OF GROUP 5
057999,000168: 
058000,000169:                                                                                                 # # Page 1372
058001,000170:                                                                                                 #  THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
058002,000171: 
058003,000172:                                                                                                 #  SUMMARY OF BITS
058004,000173: 
058005,000174:                                                                                                 #  TYPE A          TL0 00P PPP PPP GGG
058006,000175: 
058007,000176:                                                                                                 #  TYPE B          TL1 DAP PPP PPP GGG
058008,000177: 
058009,000178:                                                                                                 #  TYPE C          TL0 1AD XXX CJW GGG
058010,000179: 
058011,000180:                                                                                                 # # Page 1373
058012,000181:                                                                                                 #  2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
058013,000182:                                                                                                 #  GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
058014,000183:                                                                                                 #  CALLS ARE MADE IN THE FOLLOWING MANNER,
058015,000184: 
058016,000185:                                                                                                 #                                                   TC     2PHSCHNG
058017,000186:                                                                                                 #                                                   OCT    XXXXX
058018,000187:                                                                                                 #                                                   OCT    YYYYY
058019,000188: 
058020,000189:                                                                                                 #  WHERE OCT XXXXX MUST BE OF TYPE A AND OCT YYYYY MAY BE OF EITHER TYPE A OR TYPE B OR TYPEC.  THERE IS ONE
058021,000190:                                                                                                 #  DIFFERENCE --- NOTE- IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
058022,000191:                                                                                                 #  BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
058023,000192: 
058024,000193:                                                                                                 #                                          AD       TC     2PHACHNG        SET TBASE3 AND IF A RESTART OCCURS START
058025,000194:                                                                                                 #                                          AD+1     OCT    40083           THE TWO ENTRIES IN 3.8 TABLE LOCATION
058026,000195:                                                                                                 #                                          AD+2     OCT    05025           THIS IS OF TYPE C, SET THE JOB TO BE
058027,000196:                                                                                                 #                                          AD+3     OCT    18000           TO BE LOCATION AD+4, WITH A PRIORITY 18,
058028,000197:                                                                                                 #                                          AD+4                            FOR GROUP 5 PHASE INFORMATION.
058029,000198: 
058030,000199:    5261                                          COUNT    02/PHASE                              
058031,000200: 
058032,000201:    5261           00004        2PHSCHNG          INHINT                                         #  THE ENTRY FOR A DOUBLE PHASE CHANGE
058033,000202:    5262           50002                          NDX      Q                                     
058034,000203:    5263           30000                          CA       0                                     
058035,000204:    5264           24002                          INCR     Q                                     
058036,000205:    5265           54072                          TS       TEMPP2                                
058037,000206: 
058038,000207:    5266           74716                          MASK     OCT7                                  
058039,000208:    5267           60000                          DOUBLE                                         
058040,000209:    5270           54071                          TS       TEMPG2                                
058041,000210: 
058042,000211:    5271           30072                          CA       TEMPP2                                
058043,000212:    5272           74765                          MASK     OCT17770                              #  NEED ONLY 1770, BUT WHY GET A NEW CONST.
058044,000213:    5273           00006                          EXTEND                                         
058045,000214:    5274           74677                          MP       BIT12                                 
058046,000215:    5275           56072                          XCH      TEMPP2                                
058047,000216: 
058048,000217:    5276           74674                          MASK     BIT15                                 
058049,000218:    5277           54066                          TS       TEMPSW2                               #  INDICATES WHETHER TO SET TBASE OR NOT
058050,000219: 
058051,000220:    5300           15304                          TCF      PHASCHNG   +3                         
058052,000221: 
058053,000222: 
058054,000223:    5301           00004        PHASCHNG          INHINT                                         
058055,000224:    5302           34712                          CA       ONE                                   #  INDICATESWE CAME FROM A PHASCHNG ENTRY
058056,000225:    5303           54066                          TS       TEMPSW2                               
058057,000226: 
058058,000227:    5304           50002                          NDX      Q                                     
058059,000228:    5305           30000                          CA       0                                     
058060,000229:    5306           24002                          INCR     Q                                     
058061,000230:    5307           54065                          TS       TEMPSW                                
058062,000231:                                                                                                 # # Page 1374
058063,000232:    5310           00006                          EXTEND                                         
058064,000233:    5311           35314                          DCA      ADRPCHN2                              #  OFF TO SWITCHED BANK
058065,000234:    5312           52006                          DTCB                                           
058066,000235: 
058067,000236:    5313  E3,1400                                 EBANK=   LST1                                  
058068,000237:    5313           02355 20063  ADRPCHN2          2CADR    PHSCHNG2                              
058069,000238: 
058070,000239: 
058071,000240:    5315           22073        ONEORTWO          LXCH     TEMPBBCN                              
058072,000241:    5316           22006                          LXCH     BBANK                                 
058073,000242:    5317           22073                          LXCH     TEMPBBCN                              
058074,000243: 
058075,000244:    5320           74761                          MASK     OCT14000                              #  SEE WHAT KIND OF PHASE CHANGE IT IS
058076,000245:    5321           10000                          CCS      A                                     
058077,000246:    5322           15363                          TCF      CHECKB                                #   IT IS OF TYPE :B:
058078,000247: 
058079,000248:    5323           30062                          CA       TEMPP                                 
058080,000249:    5324           74704                          MASK     BIT7                                  
058081,000250:    5325           10000                          CCS      A                                     #   SHALL WE USE THE OLD PRIORITY
058082,000251:    5326           15350                          TCF      GETPRIO                               #   NO GET A NEW PRIORITY (OR DELTA T)
058083,000252: 
058084,000253:    5327           50061        OLDPRIO           NDX      TEMPG                                 #   USE THE OLD PRIORITY (OR DELTA T)
058085,000254:    5330           31052                          CA       PHSPRDT1   -2                         
058086,000255:    5331           54070                          TS       TEMPPR                                
058087,000256: 
058088,000257:    5332           30062        CON1              CA       TEMPP                                 #  SEE IF A 2CADR IS GIVEN
058089,000258:    5333           74703                          MASK     BIT8                                  
058090,000259:    5334           10000                          CCS      A                                     
058091,000260:    5335           15354                          TCF      GETNEWNM                              
058092,000261: 
058093,000262:    5336           30002                          CA       Q                                     
058094,000263:    5337           54063                          TS       TEMPNM                                
058095,000264:    5340           30006                          CA       BB                                    
058096,000265:    5341           00006                          EXTEND                                         #  PICK UP USERS SUPERBANK
058097,000266:    5342           04007                          ROR      SUPERBNK                              
058098,000267:    5343           54064                          TS       TEMPBB                                
058099,000268: 
058100,000269:    5344           35347        TOCON2            CA       CON2ADR                               #  BACK TO SWITCHED BANK
058101,000270:    5345           22073                          LXCH     TEMPBBCN                              
058102,000271:    5346           52006                          DTCB                                           
058103,000272: 
058104,000273:    5347           02443        CON2ADR           GENADR   CON2                                  
058105,000274: 
058106,000275:    5350           50002        GETPRIO           NDX      Q                                     #  DON:T CARE IF DIRECT OR INDIRECT
058107,000276:    5351           30000                          CA       0                                     #  LEAVE THAT DECISION TO RESTARTS
058108,000277:    5352           24002                          INCR     Q                                     #  OBTAIN RETURN ADDRESS
058109,000278:    5353           15331                          TCF      CON1       -1                         
058110,000279: 
058111,000280:    5354           00006        GETNEWNM          EXTEND                                         
058112,000281:                                                                                                 # # Page 1375
058113,000282:    5355           50002                          INDEX    Q                                     
058114,000283:    5356           30001                          DCA      0                                     
058115,000284:    5357           52064                          DXCH     TEMPNM                                
058116,000285:    5360           34711                          CA       TWO                                   
058117,000286:    5361           26002                          ADS      Q                                     #  OBTAIN RETURN ADDRESS
058118,000287: 
058119,000288:    5362           15344                          TCF      TOCON2                                
058120,000289: 
058121,000290:    5363     4761               OCT14000          EQUALS   PRIO14                                
058122,000291:    5363     0061               TEMPG             EQUALS   ITEMP1                                
058123,000292:    5363     0062               TEMPP             EQUALS   ITEMP2                                
058124,000293:    5363     0063               TEMPNM            EQUALS   ITEMP3                                
058125,000294:    5363     0064               TEMPBB            EQUALS   ITEMP4                                
058126,000295:    5363     0065               TEMPSW            EQUALS   ITEMP5                                
058127,000296:    5363     0066               TEMPSW2           EQUALS   ITEMP6                                
058128,000297:    5363     0070               TEMPPR            EQUALS   RUPTREG1                              
058129,000298:    5363     0071               TEMPG2            EQUALS   RUPTREG2                              
058130,000299:    5363     0072               TEMPP2            EQUALS   RUPTREG3                              
058131,000300: 
058132,000301:    5363     0073               TEMPBBCN          EQUALS   RUPTREG4                              
058133,000302:    5363  0000006               BB                EQUALS   BBANK                                 
058134,000303: 
058135,000304: 
058136,000305: 14,3751                                          BANK     14                                    
058137,000306: 10,2000                                          SETLOC   PHASETAB                              
058138,000307: 10,2000                                          BANK                                           
058139,000308: 
058140,000309: 10,2355  E3,1436                                 EBANK=   PHSNAME1                              
058141,000310: 10,2355                                          COUNT    10/PHASE                              
058142,000311: 
058143,000312: 10,2355           22073        PHSCHNG2          LXCH     TEMPBBCN                              
058144,000313: 10,2356           30065                          CA       TEMPSW                                
058145,000314: 10,2357           74716                          MASK     OCT7                                  
058146,000315: 10,2360           60000                          DOUBLE                                         
058147,000316: 10,2361           54061                          TS       TEMPG                                 
058148,000317: 
058149,000318: 10,2362           30065                          CA       TEMPSW                                
058150,000319: 10,2363           74765                          MASK     OCT17770                              
058151,000320: 10,2364           00006                          EXTEND                                         
058152,000321: 10,2365           74677                          MP       BIT12                                 
058153,000322: 10,2366           54062                          TS       TEMPP                                 
058154,000323: 
058155,000324: 10,2367           30065                          CA       TEMPSW                                
058156,000325: 10,2370           74105                          MASK     OCT60000                              
058157,000326: 10,2371           56065                          XCH      TEMPSW                                
058158,000327: 10,2372           74761                          MASK     OCT14000                              
058159,000328: 10,2373           10000                          CCS      A                                     
058160,000329: 10,2374           15315                          TCF      ONEORTWO                              
058161,000330: 
058162,000331:                                                                                                 # # Page 1376
058163,000332: 10,2375           30062                          CA       TEMPP                                 #  START STORING THE PHASE INFORMATION
058164,000333: 10,2376           50061                          NDX      TEMPG                                 
058165,000334: 10,2377           54751                          TS       PHASE1     -2                         
058166,000335: 
058167,000336: 10,2400           10066        BELOW1            CCS      TEMPSW2                               #  IS IT A PHASCHNG OR A 2PHSCHNG
058168,000337: 10,2401           12415                          TCF      BELOW2                                #  IT:S A PHASCHNG
058169,000338: 
058170,000339: 10,2402           12403                          TCF      +1                                    #  IT:S A 2PHSCHNG
058171,000340: 10,2403           40072                          CS       TEMPP2                                
058172,000341: 10,2404           22072                          LXCH     TEMPP2                                
058173,000342: 10,2405           50071                          NDX      TEMPG2                                
058174,000343: 10,2406           52751                          DXCH     -PHASE1    -2                         
058175,000344: 
058176,000345: 10,2407           10066                          CCS      TEMPSW2                               
058177,000346: 10,2410           12411                          NOOP                                           #  CAN:T GET HERE
058178,000347: 10,2411           12415                          TCF      BELOW2                                
058179,000348: 
058180,000349: 10,2412           40025                          CS       TIME1                                 
058181,000350: 10,2413           50071                          NDX      TEMPG2                                
058182,000351: 10,2414           55051                          TS       TBASE1     -2                         
058183,000352: 
058184,000353: 10,2415           10065        BELOW2            CCS      TEMPSW                                #  SEE IF WE SHOULD SET TBASE OR LONGBASE
058185,000354: 10,2416           12431                          TCF      BELOW3                                #  SET LONGBASE ONLY
058186,000355: 10,2417           12434                          TCF      BELOW4                                #  SET NEITHER
058187,000356: 
058188,000357: 10,2420           40025                          CS       TIME1                                 #  SET TBASE TO BEGIN WITH
058189,000358: 10,2421           50061                          NDX      TEMPG                                 
058190,000359: 10,2422           55051                          TS       TBASE1     -2                         
058191,000360: 
058192,000361: 10,2423           30065                          CA       TEMPSW                                #   SHALL WE NOW SET LONGBASE
058193,000362: 10,2424           62427                          AD       BIT14COM                              
058194,000363: 10,2425           10000                          CCS      A                                     
058195,000364: 10,2426           12427                          NOOP                                           #  ***** CANT GET HERE *****
058196,000365: 10,2427           17777        BIT14COM          OCT      17777                                 #  ***** CANT GET HERE *****
058197,000366: 10,2430           12434                          TCF      BELOW4                                #  NO WE NEED ONLY SET TBASE
058198,000367: 
058199,000368: 10,2431           00006        BELOW3            EXTEND                                         #  SET LONGBASE
058200,000369: 10,2432           30025                          DCA      TIME2                                 
058201,000370: 10,2433           53136                          DXCH     LONGBASE                              
058202,000371: 
058203,000372: 10,2434           40062        BELOW4            CS       TEMPP                                 #  AND STORE THE FINAL PART OF THE PHASE
058204,000373: 10,2435           50061                          NDX      TEMPG                                 
058205,000374: 10,2436           54750                          TS       -PHASE1    -2                         
058206,000375: 
058207,000376: 10,2437           30002                          CA       Q                                     
058208,000377: 10,2440           22073                          LXCH     TEMPBBCN                              
058209,000378: 10,2441           00003                          RELINT                                         
058210,000379: 10,2442           52006                          DTCB                                           
058211,000380: 10,2443           22073        CON2              LXCH     TEMPBBCN                              
058212,000381: 
058213,000382:                                                                                                 # # Page 1377
058214,000383: 10,2444           30062                          CA       TEMPP                                 
058215,000384: 10,2445           50061                          NDX      TEMPG                                 
058216,000385: 10,2446           54751                          TS       PHASE1     -2                         
058217,000386: 
058218,000387: 10,2447           30070                          CA       TEMPPR                                
058219,000388: 10,2450           50061                          NDX      TEMPG                                 
058220,000389: 10,2451           55052                          TS       PHSPRDT1   -2                         
058221,000390: 
058222,000391: 10,2452           00006                          EXTEND                                         
058223,000392: 10,2453           30064                          DCA      TEMPNM                                
058224,000393: 10,2454           50061                          NDX      TEMPG                                 
058225,000394: 10,2455           53435                          DXCH     PHSNAME1   -2                         
058226,000395: 
058227,000396: 10,2456           12400                          TCF      BELOW1                                
058228,000397: 
058229,000398:    5363                                          BLOCK    02                                    
058230,000399:    4000                                          SETLOC   FFTAG1                                
058231,000400:    4000                                          BANK                                           
058232,000401: 
058233,000402:    5363                                          COUNT    02/PHASE                              
058234,000403: 
058235,000404:    5363           74677        CHECKB            MASK     BIT12                                 #  SINCE THIS IS OF TYPE 8, THIS BIT SHOULD
058236,000405:    5364           10000                          CCS      A                                     #   BE HERE IF WE ARE TO GET A NEW PRIORITY
058237,000406:    5365           15350                          TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
058238,000407: 
058239,000408:    5366           15327                          TCF      OLDPRIO                               #  IT ISN:T, USE THE OLD PRIORITY

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