Source Code

These source-code files derive from a printout of Luminary 210 (Apollo 15-17 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Jim Lawton, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY 
	BY NASA 2021112-161 17:11 MAR. 19,1971
Note that the date is the date of the printout, not the date of the program revision.

055768,000002:                                                                                                  ## Copyright:   Public domain.
055769,000003:                                                                                                  ## Filename:    PHASE_TABLE_MAINTENANCE.agc
055770,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
055771,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
055772,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
055773,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
055774,000008:                                                                                                  ##              that the code format has been changed to conform to the
055775,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
055776,000010:                                                                                                  ##              original YUL assembler.
055777,000011:                                                                                                  ## Reference:   pp. 1291-1299
055778,000012:                                                                                                  ## Assembler:   yaYUL
055779,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
055780,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
055781,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
055782,000016:                                                                                                  ##              2016-11-18 MAS  Transcribed.
055783,000017:                                                                                                  ##              2016-11-27 HG   fix operand  PHASETAB1 -> PHASTAB1
055784,000018:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
055785,000019:                                                                                                  ##                              and corrected errors found.
055786,000020:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
055787,000021:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
055788,000022: 

Page 1291

055790,000024:                                                                                                  #           SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
055791,000025: 
055792,000026: 43,3727                                           COUNT*   $$/PHASE                              
055793,000027:    5313                                           BLOCK    02                                    
055794,000028:    4000                                           SETLOC   FFTAG1                                
055795,000029:    4000                                           BANK                                           
055796,000030: 
055797,000031:    5313           50002        NEWMODEX           INDEX    Q                                     #  UPDATE MODREG. ENTRY FOR MODE IN FIXED.
055798,000032:    5314           30000                           CAF      0                                     
055799,000033:    5315           24002                           INCR     Q                                     
055800,000034: 
055801,000035:    5316           55010        NEWMODEA           TS       MODREG                                #  ENTRY FOR MODE IN A.
055802,000036:    5317           35322        MMDSPLAY           CAF      +3                                    #  DISPLAY MAJOR MODE.
055803,000037:    5320           22006        PREBJUMP           LXCH     BBANK                                 #  PUTS BBANK IN L
055804,000038:    5321           14631                           TCF      BANKJUMP                              #  PUTS Q INTO A
055805,000039:    5322           31754                           CADR     SETUPDSP                              
055806,000040: 
055807,000041:                                                                                                  #           RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
055808,000042: 
055809,000043:    5323           50002        CHECKMM            INDEX    Q                                     
055810,000044:    5324           40000                           CS       0                                     
055811,000045:    5325           61010                           AD       MODREG                                
055812,000046:    5326           00006                           EXTEND                                         
055813,000047:    5327           16762                           BZF      Q+2                                   
055814,000048:    5330           16760                           TCF      Q+1                                   #  NO MATCH
055815,000049: 
055816,000050:    5331     6763               TCQ                =        Q+2        +1                         
055817,000051: 
055818,000052: 14,2000                                           SETLOC   PHASTAB1                              
055819,000053: 14,2000                                           BANK                                           
055820,000054: 
055821,000055: 14,3754                                           COUNT*   $$/PHASE                              
055822,000056: 14,3754           00004        SETUPDSP           INHINT                                         
055823,000057: 14,3755           52071                           DXCH     RUPTREG1                              #  SAVE CALLER-S RETURN 2CADR
055824,000058: 14,3756           34346                           CAF      PRIO30                                #    EITHER A TASK OR JOB CAN COME TO
055825,000059: 14,3757           05063                           TC       NOVAC                                 #    NEWMODE X
055826,000060: 14,3760     1010                                  EBANK=   MODREG                                
055827,000061: 14,3760           03572 60102                     2CADR    DSPMMJOB                              
055828,000062: 
055829,000063: 14,3762           52071                           DXCH     RUPTREG1                              
055830,000064: 14,3763           00003                           RELINT                                         
055831,000065: 14,3764           52006                           DXCH     Z                                     #  RETURN
055832,000066: 
055833,000067: 14,3765  40,3572               DSPMMJOB           EQUALS   DSPMMJB                               
055834,000068: 
055835,000069: 
055836,000070:    5331                                           BLOCK    02                                    
055837,000071:    4000                                           SETLOC   FFTAG1                                
055838,000072:    4000                                           BANK                                           

Page 1292

055840,000074:                                                                                                  #  PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS.  THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
055841,000075:                                                                                                  #  A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX   CONTAINS THE PHASE INFORMATION,
055842,000076: 
055843,000077:                                                                                                  #                                                   TC     PHASCHNG
055844,000078:                                                                                                  #                                                   OCT    XXXXX
055845,000079: 
055846,000080:                                                                                                  #  TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATIONTHAT IS STORED PERMANENTLY.  THESE
055847,000081:                                                                                                  #  OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
055848,000082: 
055849,000083:                                                                                                  #                  G.0             INACTIVE, WILLNOT PERMIT A GROUP G RESTART
055850,000084:                                                                                                  #                  G.1             WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
055851,000085:                                                                                                  #                  G.EVEN          A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
055852,000086:                                                                                                  #                                  LONGCALL TO BE RESTARTED.
055853,000087:                                                                                                  #                  G.ODD NOT .1    A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART
055854,000088: 
055855,000089:                                                                                                  #  THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
055856,000090: 
055857,000091:                                                                                                  #                  TL0 00P PPP PPP GGG                                     ,
055858,000092: 
055859,000093:                                                                                                  #  WHERE EACH LETTER OR NUMBER STANDS FOR A BIT.  THE G:S STAND FOR THE GROUP, OCTAL 1 - 7, THE P:S FOR THE PHASE,
055860,000094:                                                                                                  #  OCTAL 0 - 127.  0:S MUST BE 0.              IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
055861,000095:                                                                                                  #  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
055862,000096:                                                                                                  #  IT IS SET TO 0.  SOME EXAMPLES,
055863,000097: 
055864,000098:                                                                                                  #                                                   TC     PHASCHNG        THIS WILL CAUSE GROUP 3 TOBE SET TO 0,
055865,000099:                                                                                                  #                                                   OCT    00003           MAKING GROUP 3 INACTIVE
055866,000100: 
055867,000101:                                                                                                  #                                                   TC     PHASCHNG        IF A RESTART OCCURS THIS WOULD CAUSE
055868,000102:                                                                                                  #                                                   OCT    00012           GROUP 2 TO RESTART THE LAST DISPLAY
055869,000103: 
055870,000104:                                                                                                  #                                                   TC     PHASCHNG        THIS SETS THE TBASE OF GROUP 4 AND IN
055871,000105:                                                                                                  #                                                   OCT    40064           CASE OF A RESTART WOULD START UP THE TWO
055872,000106:                                                                                                  #                                                                          THINGS LOCATED IN THE DOUBLE 4.6 RESTART
055873,000107:                                                                                                  #                                                                          LOCATION
055874,000108:                                                                                                  #                                                   TC     PHASCHNG        THIS SETS LONGBASE AND UPON A RESTART
055875,000109:                                                                                                  #                                                   OCT    20135           CAUSES 5.13 TO BE RESTARTED  (SINCE
055876,000110:                                                                                                  #                                                                          LONGBASE WAS SET THIS SINGLE ENTRY
055877,000111:                                                                                                  #                                                                          SHOULD BE A LONGCALL)
055878,000112:                                                                                                  #                                                   TC     PHASCHNG        SINCE BOTH TBASE4 AND LONGBASE ARE SET,
055879,000113:                                                                                                  #                                                   OCT    60124           4.12 SHOULD CONTAIN BOTH A TASK AND A
055880,000114:                                                                                                  #                                                                          LONGCALL TO BE RESTARTED
055881,000115: 
055882,000116:                                                                                                  #  TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A
055883,000117:                                                                                                  #  PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABKE LOCATION. THE BITS ARE AS FOLLOWS,
055884,000118: 
055885,000119:                                                                                                  #                  TL0 1AD XXX CJW GGG
055886,000120: 
055887,000121:                                                                                                  #  WHERE EACH LETTER OR NUMBER STANDS FOR A BIT.  THE G:S STAND FOR THE GROUP, OCTAL 1 - 7.  IF THE RESTART IS TO
055888,000122:                                                                                                  #  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
055889,000123:                                                                                                  #  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,

Page 1293

055891,000125:                                                                                                  #  AND L FOR LONGBASE.  THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
055892,000126:                                                                                                  #  OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION, IF THIS IS TO BE INDIRECT, THAT
055893,000127:                                                                                                  #  IS, THE NAME OF A LOCATION COMT+INING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
055894,000128:                                                                                                  #  THAT LOCATION WHICH CONTAINS THE DELTA TIME.  IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
055895,000129:                                                                                                  #  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
055896,000130:                                                                                                  #  THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE  PHASE INFORMATION, THAT IS, EITHER
055897,000131:                                                                                                  #  (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT.  IF A IS SET TO 1, THEN THE ADDRESS THAT
055898,000132:                                                                                                  #  WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATIONS.  EXAMPLES,
055899,000133: 
055900,000134:                                                                                                  #                                          AD       TC     PHASCHNG        THIS WOULD CAUSE LOCATION AD +3 TO BE
055901,000135:                                                                                                  #                                          AD+1     OCT    05023           RESTARTED BY GROUP THREE WITHA PRIORITY
055902,000136:                                                                                                  #                                          AD+2     OCT    23000           OF 23.  NOTE UPON RETURNING IT WOULD
055903,000137:                                                                                                  #                                          AD+3                            ALSO GO TO AD+3
055904,000138: 
055905,000139:                                                                                                  #                                          AD       TC     PHASCHNG        GROUP  1 WOULD CAUSE CAUSE CALLCALL TO
055906,000140:                                                                                                  #                                          AD+1     OCT    27441           BE STARTED AS A LONGCALL FROM THE TIME
055907,000141:                                                                                                  #                                          AD+2    -GENADR DELTIME         STORED IN LONGBASE (LONGBASE WAS SET) BY
055908,000142:                                                                                                  #                                          AD+3     2CADR  CALLCALL        A DELTATIME STORED IN DELTIME.  THE
055909,000143:                                                                                                  #                                          AD+4                            BBCON OF THE 2CADR SHOULD CONTAIN THE E
055910,000144:                                                                                                  #                                          AD+5                            BANK OF DELTIME. PHASCHNG RETURNS TO
055911,000145:                                                                                                  #                                                                          LOCATION AD+5
055912,000146: 
055913,000147:                                                                                                  #  NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
055914,000148:                                                                                                  #  NEGATIVE, AS A FINDVAC IF THE PRIORITY IS POSITIVE.
055915,000149: 
055916,000150: 
055917,000151:                                                                                                  #  TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
055918,000152:                                                                                                  #  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
055919,000153:                                                                                                  #  DOUBLE ENTRY.  THE BIT INFORMATION IS AS FOLLOWS,
055920,000154: 
055921,000155:                                                                                                  #                  TL1 DAP PPP PPP GGG
055922,000156: 
055923,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
055924,000158:                                                                                                  #  PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1.  AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS
055925,000159:                                                                                                  #  TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
055926,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
055927,000161:                                                                                                  #  THE NEXT LOCATION.(THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
055928,000162: 
055929,000163:                                                                                                  #                                          AD       TC     PHASCHNG        TBASE IS SET AND ARESTART CAUSE GROUP 3
055930,000164:                                                                                                  #                                          AD+1     OCT    56043           TO START THE JOB AJOBAJOB WITH PRIORITY
055931,000165:                                                                                                  #                                          AD+2     OCT    31000           31 AND THE FIRST ENTRY OF 3.4SPOT(WE CAN
055932,000166:                                                                                                  #                                          AD+3     2CADR  AJOBAJOB        ASSUME IT IS A TASK SINCE WE SET TBASE3)
055933,000167:                                                                                                  #                                          AD+4                            UPON RETURN FROM PHASCHNG CONTROL WOULD
055934,000168:                                                                                                  #                                          AD+5                            GO TO AD+5
055935,000169: 
055936,000170:                                                                                                  #                                          AD       TC     PHASCHNG        UPON A RESTART THE LAST DISPLAY WOULD BE
055937,000171:                                                                                                  #                                          AD+1     OCT    10015           RESTARTED AND A JOB WITH THE PREVIOUSLY
055938,000172:                                                                                                  #                                          AD+2                            STORED PRIORITY WOULD BE BEGUN AT AD+2
055939,000173:                                                                                                  #                                                                          BY MEANS OF GROUP 5
055940,000174: 

Page 1294

055942,000176:                                                                                                  #  THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
055943,000177: 
055944,000178:                                                                                                  #  SUMMARY OF BITS
055945,000179: 
055946,000180:                                                                                                  #  TYPE A          TL0 00P PPP PPP GGG
055947,000181: 
055948,000182:                                                                                                  #  TYPE B          TL1 DAP PPP PPP GGG
055949,000183: 
055950,000184:                                                                                                  #  TYPE C          TL0 1AD XXX CJW GGG
055951,000185: 

Page 1295

055953,000187:                                                                                                  #  2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
055954,000188:                                                                                                  #  GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
055955,000189:                                                                                                  #  CALLS ARE MADE IN THE FOLLOWING MANNER,
055956,000190: 
055957,000191:                                                                                                  #                                                   TC     2PHSCHNG
055958,000192:                                                                                                  #                                                   OCT    XXXXX
055959,000193:                                                                                                  #                                                   OCT    YYYYY
055960,000194: 
055961,000195:                                                                                                  #  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
055962,000196:                                                                                                  #  DIFFERENCE --- NOTE- IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
055963,000197:                                                                                                  #  BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
055964,000198: 
055965,000199:                                                                                                  #                                          AD       TC     2PHSCHNG        SET TBASE3 AND IF A RESTART OCCURS START
055966,000200:                                                                                                  #                                          AD+1     OCT    40083           THE TWO ENTRIES IN 3.8 TABLE LOCATION
055967,000201:                                                                                                  #                                          AD+2     OCT    05025           THIS IS OF TYPE C, SET THE JOB TO BE
055968,000202:                                                                                                  #                                          AD+3     OCT    18000           TO BE LOCATION AD+4, WITH A PRIORITY 18,
055969,000203:                                                                                                  #                                          AD+4                            FOR GROUP 5 PHASE INFORMATION
055970,000204: 

[WORKAROUND] RSB 2004

055972,000206:    5331  40,2000                                  SBANK=   PINSUPER                              
055973,000207: 
055974,000208:    5331                                           COUNT*   $$/PHASE                              
055975,000209:    5331           00004        2PHSCHNG           INHINT                                         #  THE ENTRY FOR A DOUBLE PHASE CHANGE
055976,000210:    5332           50002                           NDX      Q                                     
055977,000211:    5333           30000                           CA       0                                     
055978,000212:    5334           24002                           INCR     Q                                     
055979,000213:    5335           54072                           TS       TEMPP2                                
055980,000214: 
055981,000215:    5336           74750                           MASK     OCT7                                  
055982,000216:    5337           60000                           DOUBLE                                         
055983,000217:    5340           54071                           TS       TEMPG2                                
055984,000218: 
055985,000219:    5341           30072                           CA       TEMPP2                                
055986,000220:    5342           75021                           MASK     OCT17770                              #  NEED ONLY 1770, BUT WHY GET A NEW CONST.
055987,000221:    5343           00006                           EXTEND                                         
055988,000222:    5344           74731                           MP       BIT12                                 
055989,000223:    5345           56072                           XCH      TEMPP2                                
055990,000224: 
055991,000225:    5346           74726                           MASK     BIT15                                 
055992,000226:    5347           54066                           TS       TEMPSW2                               #  INDICATES WHETHER TO SET TBASE OR NOT
055993,000227: 
055994,000228:    5350           50002                           INDEX    Q                                     
055995,000229:    5351           30000                           CA       0                                     
055996,000230:    5352           24002                           INCR     Q                                     
055997,000231:    5353           54065                           TS       TEMPSW                                
055998,000232: 
055999,000233:    5354           15365                           TCF      PHASJUMP                              
056000,000234: 
056001,000235:    5355           00004        PHASCHNG           INHINT                                         #  NORMAL PHASCHNG ENTRY POINT.
056002,000236:    5356           50002                           INDEX    Q                                     
056003,000237:    5357           30000                           CA       0                                     
056004,000238:    5360           24002                           INCR     Q                                     
056005,000239:    5361           00004        PHSCHNGA           INHINT                                         #  FIRST OCTAL PARAMETER IN A.

Page 1296

056007,000241:    5362           54065                           TS       TEMPSW                                
056008,000242:    5363           34744                           CA       ONE                                   
056009,000243:    5364           54066                           TS       TEMPSW2                               
056010,000244:    5365           00006        PHASJUMP           EXTEND                                         
056011,000245:    5366           35371                           DCA      ADRPCHN2                              #  OFF TO SWITCHED BANK
056012,000246:    5367           52006                           DTCB                                           
056013,000247: 
056014,000248:    5370  E3,1400                                  EBANK=   LST1                                  
056015,000249:    5370           02213 20103  ADRPCHN2           2CADR    PHSCHNG2                              
056016,000250: 
056017,000251: 
056018,000252: 
056019,000253:    5372           22073        ONEORTWO           LXCH     TEMPBBCN                              
056020,000254:    5373           22006                           LXCH     BBANK                                 
056021,000255:    5374           22073                           LXCH     TEMPBBCN                              
056022,000256: 
056023,000257:    5375           75015                           MASK     OCT14000                              #  SEE WHAT KIND OF PHASE CHANGE IT IS
056024,000258:    5376           10000                           CCS      A                                     
056025,000259:    5377           17771                           TCF      CHECKB                                #   IT IS OF TYPE :B:
056026,000260: 
056027,000261:    5400           30062                           CA       TEMPP                                 
056028,000262:    5401           74736                           MASK     BIT7                                  
056029,000263:    5402           10000                           CCS      A                                     #   SHALL WE USE THE OLD PRIORITY
056030,000264:    5403           15425                           TCF      GETPRIO                               #   NO GET A NEW PRIORITY (OR DELTA T)
056031,000265: 
056032,000266:    5404           50061        OLDPRIO            NDX      TEMPG                                 #   USE THE OLD PRIORITY (OR DELTA T)
056033,000267:    5405           31051                           CA       PHSPRDT1   -2                         
056034,000268:    5406           54070                           TS       TEMPPR                                
056035,000269: 
056036,000270:    5407           30062        CON1               CA       TEMPP                                 #  SEE IF A 2CADR IS GIVEN
056037,000271:    5410           74735                           MASK     BIT8                                  
056038,000272:    5411           10000                           CCS      A                                     
056039,000273:    5412           15431                           TCF      GETNEWNM                              
056040,000274: 
056041,000275:    5413           30002                           CA       Q                                     
056042,000276:    5414           54063                           TS       TEMPNM                                
056043,000277:    5415           30006                           CA       BB                                    
056044,000278:    5416           00006                           EXTEND                                         #  PICK UP USERS SUPERBANK
056045,000279:    5417           04007                           ROR      SUPERBNK                              
056046,000280:    5420           54064                           TS       TEMPBB                                
056047,000281: 
056048,000282:    5421           35424        TOCON2             CA       CON2ADR                               #  BACK TO SWITCHED BANK
056049,000283:    5422           22073                           LXCH     TEMPBBCN                              
056050,000284:    5423           52006                           DTCB                                           
056051,000285: 
056052,000286:    5424           02301        CON2ADR            GENADR   CON2                                  
056053,000287: 
056054,000288:    5425           50002        GETPRIO            NDX      Q                                     #  DON:T CARE IF DIRECT OR INDIRECT
056055,000289:    5426           30000                           CA       0                                     #  LEAVE THAT DECISION TO RESTARTS
056056,000290:    5427           24002                           INCR     Q                                     #  OBTAIN RETURN ADDRESS

Page 1297

056058,000292:    5430           15406                           TCF      CON1       -1                         
056059,000293: 
056060,000294:    5431           00006        GETNEWNM           EXTEND                                         
056061,000295:    5432           50002                           INDEX    Q                                     
056062,000296:    5433           30001                           DCA      0                                     
056063,000297:    5434           52064                           DXCH     TEMPNM                                
056064,000298:    5435           34743                           CA       TWO                                   
056065,000299:    5436           26002                           ADS      Q                                     #  OBTAIN RETURN ADDRESS
056066,000300: 
056067,000301:    5437           15421                           TCF      TOCON2                                
056068,000302: 
056069,000303:    5440     5015               OCT14000           EQUALS   PRIO14                                
056070,000304:    5440     0061               TEMPG              EQUALS   ITEMP1                                
056071,000305:    5440     0062               TEMPP              EQUALS   ITEMP2                                
056072,000306:    5440     0063               TEMPNM             EQUALS   ITEMP3                                
056073,000307:    5440     0064               TEMPBB             EQUALS   ITEMP4                                
056074,000308:    5440     0065               TEMPSW             EQUALS   ITEMP5                                
056075,000309:    5440     0066               TEMPSW2            EQUALS   ITEMP6                                
056076,000310:    5440     0070               TEMPPR             EQUALS   RUPTREG1                              
056077,000311:    5440     0071               TEMPG2             EQUALS   RUPTREG2                              
056078,000312:    5440     0072               TEMPP2             EQUALS   RUPTREG3                              
056079,000313: 
056080,000314:    5440     0073               TEMPBBCN           EQUALS   RUPTREG4                              
056081,000315:    5440  0000006               BB                 EQUALS   BBANK                                 
056082,000316: 
056083,000317: 
056084,000318: 14,3765                                           BANK     14                                    
056085,000319: 10,2000                                           SETLOC   PHASETAB                              
056086,000320: 10,2000                                           BANK                                           
056087,000321: 
056088,000322: 10,2213  E3,1436                                  EBANK=   PHSNAME1                              
056089,000323: 10,2213                                           COUNT*   $$/PHASE                              
056090,000324: 10,2213           22073        PHSCHNG2           LXCH     TEMPBBCN                              
056091,000325: 10,2214           30065                           CA       TEMPSW                                
056092,000326: 10,2215           74750                           MASK     OCT7                                  
056093,000327: 10,2216           60000                           DOUBLE                                         
056094,000328: 10,2217           54061                           TS       TEMPG                                 
056095,000329: 
056096,000330: 10,2220           30065                           CA       TEMPSW                                
056097,000331: 10,2221           75021                           MASK     OCT17770                              
056098,000332: 10,2222           00006                           EXTEND                                         
056099,000333: 10,2223           74731                           MP       BIT12                                 
056100,000334: 10,2224           54062                           TS       TEMPP                                 
056101,000335: 
056102,000336: 10,2225           30065                           CA       TEMPSW                                
056103,000337: 10,2226           74101                           MASK     OCT60000                              
056104,000338: 10,2227           56065                           XCH      TEMPSW                                
056105,000339: 10,2230           75015                           MASK     OCT14000                              
056106,000340: 10,2231           10000                           CCS      A                                     

Page 1298

056108,000342: 10,2232           15372                           TCF      ONEORTWO                              
056109,000343: 
056110,000344: 10,2233           30062                           CA       TEMPP                                 #  START STORING THE PHASE INFORMATION
056111,000345: 10,2234           50061                           NDX      TEMPG                                 
056112,000346: 10,2235           54750                           TS       PHASE1     -2                         
056113,000347: 
056114,000348: 10,2236           10066        BELOW1             CCS      TEMPSW2                               #  IS IT A PHASCHNG OR A 2PHSCHNG
056115,000349: 10,2237           12253                           TCF      BELOW2                                #  IT:S A PHASCHNG
056116,000350: 
056117,000351: 10,2240           12241                           TCF      +1                                    #  IT:S A 2PHSCHNG
056118,000352: 10,2241           40072                           CS       TEMPP2                                
056119,000353: 10,2242           22072                           LXCH     TEMPP2                                
056120,000354: 10,2243           50071                           NDX      TEMPG2                                
056121,000355: 10,2244           52750                           DXCH     -PHASE1    -2                         
056122,000356: 
056123,000357: 10,2245           10066                           CCS      TEMPSW2                               
056124,000358: 10,2246           12247                           NOOP                                           #  CAN:T GET HERE
056125,000359: 10,2247           12253                           TCF      BELOW2                                
056126,000360: 
056127,000361: 10,2250           40025                           CS       TIME1                                 
056128,000362: 10,2251           50071                           NDX      TEMPG2                                
056129,000363: 10,2252           55050                           TS       TBASE1     -2                         
056130,000364: 
056131,000365: 10,2253           10065        BELOW2             CCS      TEMPSW                                #  SEE IF WE SHOULD SET TBASE OR LONGBASE
056132,000366: 10,2254           12267                           TCF      BELOW3                                #  SET LONGBASE ONLY
056133,000367: 10,2255           12272                           TCF      BELOW4                                #  SET NEITHER
056134,000368: 
056135,000369: 10,2256           40025                           CS       TIME1                                 #  SET TBASE TO BEGIN WITH
056136,000370: 10,2257           50061                           NDX      TEMPG                                 
056137,000371: 10,2260           55050                           TS       TBASE1     -2                         
056138,000372: 
056139,000373: 10,2261           30065                           CA       TEMPSW                                #   SHALL WE NOW SET LONGBASE
056140,000374: 10,2262           62265                           AD       BIT14COM                              
056141,000375: 10,2263           10000                           CCS      A                                     
056142,000376: 10,2264           12265                           NOOP                                           #  ***** CANT GET HERE *****
056143,000377: 10,2265           17777        BIT14COM           OCT      17777                                 #  ***** CANT GET HERE *****
056144,000378: 10,2266           12272                           TCF      BELOW4                                #  NO WE NEED ONLY SET TBASE
056145,000379: 
056146,000380: 10,2267           00006        BELOW3             EXTEND                                         #  SET LONGBASE
056147,000381: 10,2270           30025                           DCA      TIME2                                 
056148,000382: 10,2271           53151                           DXCH     LONGBASE                              
056149,000383: 
056150,000384: 10,2272           40062        BELOW4             CS       TEMPP                                 #  AND STORE THE FINAL PART OF THE PHASE
056151,000385: 10,2273           50061                           NDX      TEMPG                                 
056152,000386: 10,2274           54747                           TS       -PHASE1    -2                         
056153,000387: 
056154,000388: 10,2275           30002                           CA       Q                                     
056155,000389: 10,2276           22073                           LXCH     TEMPBBCN                              
056156,000390: 10,2277           00003                           RELINT                                         
056157,000391: 10,2300           52006                           DTCB                                           

Page 1299

056159,000393: 10,2301           22073        CON2               LXCH     TEMPBBCN                              
056160,000394: 
056161,000395: 10,2302           30062                           CA       TEMPP                                 
056162,000396: 10,2303           50061                           NDX      TEMPG                                 
056163,000397: 10,2304           54750                           TS       PHASE1     -2                         
056164,000398: 
056165,000399: 10,2305           30070                           CA       TEMPPR                                
056166,000400: 10,2306           50061                           NDX      TEMPG                                 
056167,000401: 10,2307           55051                           TS       PHSPRDT1   -2                         
056168,000402: 
056169,000403: 10,2310           00006                           EXTEND                                         
056170,000404: 10,2311           30064                           DCA      TEMPNM                                
056171,000405: 10,2312           50061                           NDX      TEMPG                                 
056172,000406: 10,2313           53435                           DXCH     PHSNAME1   -2                         
056173,000407: 
056174,000408: 10,2314           12236                           TCF      BELOW1                                
056175,000409: 
056176,000410:    7771                                           BLOCK    03                                    
056177,000411:    6000                                           SETLOC   FFTAG6                                
056178,000412:    6000                                           BANK                                           
056179,000413: 
056180,000414:    7771                                           COUNT*   $$/PHASE                              
056181,000415:    7771           74731        CHECKB             MASK     BIT12                                 #  SINCE THIS IS OF TYPE B, THIS BIT SHOULD
056182,000416:    7772           10000                           CCS      A                                     #   BE HERE IF WE ARE TO GET A NEW PRIORITY
056183,000417:    7773           15425                           TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
056184,000418: 
056185,000419:    7774           15404                           TCF      OLDPRIO                               #  IT ISN:T, USE THE OLD PRIORITY

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