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.

055797,000002:                                                                                                  ## Copyright:   Public domain.
055798,000003:                                                                                                  ## Filename:    PHASE_TABLE_MAINTENANCE.agc
055799,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
055800,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
055801,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
055802,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
055803,000008:                                                                                                  ##              that the code format has been changed to conform to the
055804,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
055805,000010:                                                                                                  ##              original YUL assembler.
055806,000011:                                                                                                  ## Reference:   pp. 1291-1299
055807,000012:                                                                                                  ## Assembler:   yaYUL
055808,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
055809,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
055810,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
055811,000016:                                                                                                  ##              2016-11-18 MAS  Transcribed.
055812,000017:                                                                                                  ##              2016-11-27 HG   fix operand  PHASETAB1 -> PHASTAB1
055813,000018:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
055814,000019:                                                                                                  ##                              and corrected errors found.
055815,000020:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
055816,000021:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
055817,000022:                                                                                                  ##              2017-06-17 MAS  Globally removed all SBANK= workarounds.
055818,000023: 

Page 1291

055820,000025:                                                                                                  #           SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
055821,000026: 
055822,000027: 43,3727                                           COUNT*   $$/PHASE                              
055823,000028:    5313                                           BLOCK    02                                    
055824,000029:    4000                                           SETLOC   FFTAG1                                
055825,000030:    4000                                           BANK                                           
055826,000031: 
055827,000032:    5313           50002        NEWMODEX           INDEX    Q                                     #  UPDATE MODREG. ENTRY FOR MODE IN FIXED.
055828,000033:    5314           30000                           CAF      0                                     
055829,000034:    5315           24002                           INCR     Q                                     
055830,000035: 
055831,000036:    5316           55010        NEWMODEA           TS       MODREG                                #  ENTRY FOR MODE IN A.
055832,000037:    5317           35322        MMDSPLAY           CAF      +3                                    #  DISPLAY MAJOR MODE.
055833,000038:    5320           22006        PREBJUMP           LXCH     BBANK                                 #  PUTS BBANK IN L
055834,000039:    5321           14631                           TCF      BANKJUMP                              #  PUTS Q INTO A
055835,000040:    5322           31754                           CADR     SETUPDSP                              
055836,000041: 
055837,000042:                                                                                                  #           RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
055838,000043: 
055839,000044:    5323           50002        CHECKMM            INDEX    Q                                     
055840,000045:    5324           40000                           CS       0                                     
055841,000046:    5325           61010                           AD       MODREG                                
055842,000047:    5326           00006                           EXTEND                                         
055843,000048:    5327           16762                           BZF      Q+2                                   
055844,000049:    5330           16760                           TCF      Q+1                                   #  NO MATCH
055845,000050: 
055846,000051:    5331     6763               TCQ                =        Q+2        +1                         
055847,000052: 
055848,000053: 14,2000                                           SETLOC   PHASTAB1                              
055849,000054: 14,2000                                           BANK                                           
055850,000055: 
055851,000056: 14,3754                                           COUNT*   $$/PHASE                              
055852,000057: 14,3754           00004        SETUPDSP           INHINT                                         
055853,000058: 14,3755           52071                           DXCH     RUPTREG1                              #  SAVE CALLER-S RETURN 2CADR
055854,000059: 14,3756           34346                           CAF      PRIO30                                #    EITHER A TASK OR JOB CAN COME TO
055855,000060: 14,3757           05063                           TC       NOVAC                                 #    NEWMODE X
055856,000061: 14,3760     1010                                  EBANK=   MODREG                                
055857,000062: 14,3760           03572 60102                     2CADR    DSPMMJOB                              
055858,000063: 
055859,000064: 14,3762           52071                           DXCH     RUPTREG1                              
055860,000065: 14,3763           00003                           RELINT                                         
055861,000066: 14,3764           52006                           DXCH     Z                                     #  RETURN
055862,000067: 
055863,000068: 14,3765  40,3572               DSPMMJOB           EQUALS   DSPMMJB                               
055864,000069: 
055865,000070: 
055866,000071:    5331                                           BLOCK    02                                    
055867,000072:    4000                                           SETLOC   FFTAG1                                
055868,000073:    4000                                           BANK                                           

Page 1292

055870,000075:                                                                                                  #  PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS.  THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
055871,000076:                                                                                                  #  A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX   CONTAINS THE PHASE INFORMATION,
055872,000077: 
055873,000078:                                                                                                  #                                                   TC     PHASCHNG
055874,000079:                                                                                                  #                                                   OCT    XXXXX
055875,000080: 
055876,000081:                                                                                                  #  TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATIONTHAT IS STORED PERMANENTLY.  THESE
055877,000082:                                                                                                  #  OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
055878,000083: 
055879,000084:                                                                                                  #                  G.0             INACTIVE, WILLNOT PERMIT A GROUP G RESTART
055880,000085:                                                                                                  #                  G.1             WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
055881,000086:                                                                                                  #                  G.EVEN          A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
055882,000087:                                                                                                  #                                  LONGCALL TO BE RESTARTED.
055883,000088:                                                                                                  #                  G.ODD NOT .1    A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART
055884,000089: 
055885,000090:                                                                                                  #  THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
055886,000091: 
055887,000092:                                                                                                  #                  TL0 00P PPP PPP GGG                                     ,
055888,000093: 
055889,000094:                                                                                                  #  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,
055890,000095:                                                                                                  #  OCTAL 0 - 127.  0:S MUST BE 0.              IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
055891,000096:                                                                                                  #  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
055892,000097:                                                                                                  #  IT IS SET TO 0.  SOME EXAMPLES,
055893,000098: 
055894,000099:                                                                                                  #                                                   TC     PHASCHNG        THIS WILL CAUSE GROUP 3 TOBE SET TO 0,
055895,000100:                                                                                                  #                                                   OCT    00003           MAKING GROUP 3 INACTIVE
055896,000101: 
055897,000102:                                                                                                  #                                                   TC     PHASCHNG        IF A RESTART OCCURS THIS WOULD CAUSE
055898,000103:                                                                                                  #                                                   OCT    00012           GROUP 2 TO RESTART THE LAST DISPLAY
055899,000104: 
055900,000105:                                                                                                  #                                                   TC     PHASCHNG        THIS SETS THE TBASE OF GROUP 4 AND IN
055901,000106:                                                                                                  #                                                   OCT    40064           CASE OF A RESTART WOULD START UP THE TWO
055902,000107:                                                                                                  #                                                                          THINGS LOCATED IN THE DOUBLE 4.6 RESTART
055903,000108:                                                                                                  #                                                                          LOCATION
055904,000109:                                                                                                  #                                                   TC     PHASCHNG        THIS SETS LONGBASE AND UPON A RESTART
055905,000110:                                                                                                  #                                                   OCT    20135           CAUSES 5.13 TO BE RESTARTED  (SINCE
055906,000111:                                                                                                  #                                                                          LONGBASE WAS SET THIS SINGLE ENTRY
055907,000112:                                                                                                  #                                                                          SHOULD BE A LONGCALL)
055908,000113:                                                                                                  #                                                   TC     PHASCHNG        SINCE BOTH TBASE4 AND LONGBASE ARE SET,
055909,000114:                                                                                                  #                                                   OCT    60124           4.12 SHOULD CONTAIN BOTH A TASK AND A
055910,000115:                                                                                                  #                                                                          LONGCALL TO BE RESTARTED
055911,000116: 
055912,000117:                                                                                                  #  TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A
055913,000118:                                                                                                  #  PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABKE LOCATION. THE BITS ARE AS FOLLOWS,
055914,000119: 
055915,000120:                                                                                                  #                  TL0 1AD XXX CJW GGG
055916,000121: 
055917,000122:                                                                                                  #  WHERE EACH LETTER OR NUMBER STANDS FOR A BIT.  THE G:S STAND FOR THE GROUP, OCTAL 1 - 7.  IF THE RESTART IS TO
055918,000123:                                                                                                  #  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
055919,000124:                                                                                                  #  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

055921,000126:                                                                                                  #  AND L FOR LONGBASE.  THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
055922,000127:                                                                                                  #  OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION, IF THIS IS TO BE INDIRECT, THAT
055923,000128:                                                                                                  #  IS, THE NAME OF A LOCATION COMT+INING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
055924,000129:                                                                                                  #  THAT LOCATION WHICH CONTAINS THE DELTA TIME.  IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
055925,000130:                                                                                                  #  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
055926,000131:                                                                                                  #  THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE  PHASE INFORMATION, THAT IS, EITHER
055927,000132:                                                                                                  #  (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT.  IF A IS SET TO 1, THEN THE ADDRESS THAT
055928,000133:                                                                                                  #  WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATIONS.  EXAMPLES,
055929,000134: 
055930,000135:                                                                                                  #                                          AD       TC     PHASCHNG        THIS WOULD CAUSE LOCATION AD +3 TO BE
055931,000136:                                                                                                  #                                          AD+1     OCT    05023           RESTARTED BY GROUP THREE WITHA PRIORITY
055932,000137:                                                                                                  #                                          AD+2     OCT    23000           OF 23.  NOTE UPON RETURNING IT WOULD
055933,000138:                                                                                                  #                                          AD+3                            ALSO GO TO AD+3
055934,000139: 
055935,000140:                                                                                                  #                                          AD       TC     PHASCHNG        GROUP  1 WOULD CAUSE CAUSE CALLCALL TO
055936,000141:                                                                                                  #                                          AD+1     OCT    27441           BE STARTED AS A LONGCALL FROM THE TIME
055937,000142:                                                                                                  #                                          AD+2    -GENADR DELTIME         STORED IN LONGBASE (LONGBASE WAS SET) BY
055938,000143:                                                                                                  #                                          AD+3     2CADR  CALLCALL        A DELTATIME STORED IN DELTIME.  THE
055939,000144:                                                                                                  #                                          AD+4                            BBCON OF THE 2CADR SHOULD CONTAIN THE E
055940,000145:                                                                                                  #                                          AD+5                            BANK OF DELTIME. PHASCHNG RETURNS TO
055941,000146:                                                                                                  #                                                                          LOCATION AD+5
055942,000147: 
055943,000148:                                                                                                  #  NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
055944,000149:                                                                                                  #  NEGATIVE, AS A FINDVAC IF THE PRIORITY IS POSITIVE.
055945,000150: 
055946,000151: 
055947,000152:                                                                                                  #  TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
055948,000153:                                                                                                  #  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
055949,000154:                                                                                                  #  DOUBLE ENTRY.  THE BIT INFORMATION IS AS FOLLOWS,
055950,000155: 
055951,000156:                                                                                                  #                  TL1 DAP PPP PPP GGG
055952,000157: 
055953,000158:                                                                                                  #  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
055954,000159:                                                                                                  #  PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1.  AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS
055955,000160:                                                                                                  #  TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
055956,000161:                                                                                                  #  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
055957,000162:                                                                                                  #  THE NEXT LOCATION.(THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
055958,000163: 
055959,000164:                                                                                                  #                                          AD       TC     PHASCHNG        TBASE IS SET AND ARESTART CAUSE GROUP 3
055960,000165:                                                                                                  #                                          AD+1     OCT    56043           TO START THE JOB AJOBAJOB WITH PRIORITY
055961,000166:                                                                                                  #                                          AD+2     OCT    31000           31 AND THE FIRST ENTRY OF 3.4SPOT(WE CAN
055962,000167:                                                                                                  #                                          AD+3     2CADR  AJOBAJOB        ASSUME IT IS A TASK SINCE WE SET TBASE3)
055963,000168:                                                                                                  #                                          AD+4                            UPON RETURN FROM PHASCHNG CONTROL WOULD
055964,000169:                                                                                                  #                                          AD+5                            GO TO AD+5
055965,000170: 
055966,000171:                                                                                                  #                                          AD       TC     PHASCHNG        UPON A RESTART THE LAST DISPLAY WOULD BE
055967,000172:                                                                                                  #                                          AD+1     OCT    10015           RESTARTED AND A JOB WITH THE PREVIOUSLY
055968,000173:                                                                                                  #                                          AD+2                            STORED PRIORITY WOULD BE BEGUN AT AD+2
055969,000174:                                                                                                  #                                                                          BY MEANS OF GROUP 5
055970,000175: 

Page 1294

055972,000177:                                                                                                  #  THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
055973,000178: 
055974,000179:                                                                                                  #  SUMMARY OF BITS
055975,000180: 
055976,000181:                                                                                                  #  TYPE A          TL0 00P PPP PPP GGG
055977,000182: 
055978,000183:                                                                                                  #  TYPE B          TL1 DAP PPP PPP GGG
055979,000184: 
055980,000185:                                                                                                  #  TYPE C          TL0 1AD XXX CJW GGG
055981,000186: 

Page 1295

055983,000188:                                                                                                  #  2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
055984,000189:                                                                                                  #  GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
055985,000190:                                                                                                  #  CALLS ARE MADE IN THE FOLLOWING MANNER,
055986,000191: 
055987,000192:                                                                                                  #                                                   TC     2PHSCHNG
055988,000193:                                                                                                  #                                                   OCT    XXXXX
055989,000194:                                                                                                  #                                                   OCT    YYYYY
055990,000195: 
055991,000196:                                                                                                  #  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
055992,000197:                                                                                                  #  DIFFERENCE --- NOTE- IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
055993,000198:                                                                                                  #  BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
055994,000199: 
055995,000200:                                                                                                  #                                          AD       TC     2PHSCHNG        SET TBASE3 AND IF A RESTART OCCURS START
055996,000201:                                                                                                  #                                          AD+1     OCT    40083           THE TWO ENTRIES IN 3.8 TABLE LOCATION
055997,000202:                                                                                                  #                                          AD+2     OCT    05025           THIS IS OF TYPE C, SET THE JOB TO BE
055998,000203:                                                                                                  #                                          AD+3     OCT    18000           TO BE LOCATION AD+4, WITH A PRIORITY 18,
055999,000204:                                                                                                  #                                          AD+4                            FOR GROUP 5 PHASE INFORMATION
056000,000205: 
056001,000206:    5331                                           COUNT*   $$/PHASE                              
056002,000207:    5331           00004        2PHSCHNG           INHINT                                         #  THE ENTRY FOR A DOUBLE PHASE CHANGE
056003,000208:    5332           50002                           NDX      Q                                     
056004,000209:    5333           30000                           CA       0                                     
056005,000210:    5334           24002                           INCR     Q                                     
056006,000211:    5335           54072                           TS       TEMPP2                                
056007,000212: 
056008,000213:    5336           74750                           MASK     OCT7                                  
056009,000214:    5337           60000                           DOUBLE                                         
056010,000215:    5340           54071                           TS       TEMPG2                                
056011,000216: 
056012,000217:    5341           30072                           CA       TEMPP2                                
056013,000218:    5342           75021                           MASK     OCT17770                              #  NEED ONLY 1770, BUT WHY GET A NEW CONST.
056014,000219:    5343           00006                           EXTEND                                         
056015,000220:    5344           74731                           MP       BIT12                                 
056016,000221:    5345           56072                           XCH      TEMPP2                                
056017,000222: 
056018,000223:    5346           74726                           MASK     BIT15                                 
056019,000224:    5347           54066                           TS       TEMPSW2                               #  INDICATES WHETHER TO SET TBASE OR NOT
056020,000225: 
056021,000226:    5350           50002                           INDEX    Q                                     
056022,000227:    5351           30000                           CA       0                                     
056023,000228:    5352           24002                           INCR     Q                                     
056024,000229:    5353           54065                           TS       TEMPSW                                
056025,000230: 
056026,000231:    5354           15365                           TCF      PHASJUMP                              
056027,000232: 
056028,000233:    5355           00004        PHASCHNG           INHINT                                         #  NORMAL PHASCHNG ENTRY POINT.
056029,000234:    5356           50002                           INDEX    Q                                     
056030,000235:    5357           30000                           CA       0                                     
056031,000236:    5360           24002                           INCR     Q                                     
056032,000237:    5361           00004        PHSCHNGA           INHINT                                         #  FIRST OCTAL PARAMETER IN A.

Page 1296

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

Page 1297

056085,000290:    5430           15406                           TCF      CON1       -1                         
056086,000291: 
056087,000292:    5431           00006        GETNEWNM           EXTEND                                         
056088,000293:    5432           50002                           INDEX    Q                                     
056089,000294:    5433           30001                           DCA      0                                     
056090,000295:    5434           52064                           DXCH     TEMPNM                                
056091,000296:    5435           34743                           CA       TWO                                   
056092,000297:    5436           26002                           ADS      Q                                     #  OBTAIN RETURN ADDRESS
056093,000298: 
056094,000299:    5437           15421                           TCF      TOCON2                                
056095,000300: 
056096,000301:    5440     5015               OCT14000           EQUALS   PRIO14                                
056097,000302:    5440     0061               TEMPG              EQUALS   ITEMP1                                
056098,000303:    5440     0062               TEMPP              EQUALS   ITEMP2                                
056099,000304:    5440     0063               TEMPNM             EQUALS   ITEMP3                                
056100,000305:    5440     0064               TEMPBB             EQUALS   ITEMP4                                
056101,000306:    5440     0065               TEMPSW             EQUALS   ITEMP5                                
056102,000307:    5440     0066               TEMPSW2            EQUALS   ITEMP6                                
056103,000308:    5440     0070               TEMPPR             EQUALS   RUPTREG1                              
056104,000309:    5440     0071               TEMPG2             EQUALS   RUPTREG2                              
056105,000310:    5440     0072               TEMPP2             EQUALS   RUPTREG3                              
056106,000311: 
056107,000312:    5440     0073               TEMPBBCN           EQUALS   RUPTREG4                              
056108,000313:    5440  0000006               BB                 EQUALS   BBANK                                 
056109,000314: 
056110,000315: 
056111,000316: 14,3765                                           BANK     14                                    
056112,000317: 10,2000                                           SETLOC   PHASETAB                              
056113,000318: 10,2000                                           BANK                                           
056114,000319: 
056115,000320: 10,2213  E3,1436                                  EBANK=   PHSNAME1                              
056116,000321: 10,2213                                           COUNT*   $$/PHASE                              
056117,000322: 10,2213           22073        PHSCHNG2           LXCH     TEMPBBCN                              
056118,000323: 10,2214           30065                           CA       TEMPSW                                
056119,000324: 10,2215           74750                           MASK     OCT7                                  
056120,000325: 10,2216           60000                           DOUBLE                                         
056121,000326: 10,2217           54061                           TS       TEMPG                                 
056122,000327: 
056123,000328: 10,2220           30065                           CA       TEMPSW                                
056124,000329: 10,2221           75021                           MASK     OCT17770                              
056125,000330: 10,2222           00006                           EXTEND                                         
056126,000331: 10,2223           74731                           MP       BIT12                                 
056127,000332: 10,2224           54062                           TS       TEMPP                                 
056128,000333: 
056129,000334: 10,2225           30065                           CA       TEMPSW                                
056130,000335: 10,2226           74101                           MASK     OCT60000                              
056131,000336: 10,2227           56065                           XCH      TEMPSW                                
056132,000337: 10,2230           75015                           MASK     OCT14000                              
056133,000338: 10,2231           10000                           CCS      A                                     

Page 1298

056135,000340: 10,2232           15372                           TCF      ONEORTWO                              
056136,000341: 
056137,000342: 10,2233           30062                           CA       TEMPP                                 #  START STORING THE PHASE INFORMATION
056138,000343: 10,2234           50061                           NDX      TEMPG                                 
056139,000344: 10,2235           54750                           TS       PHASE1     -2                         
056140,000345: 
056141,000346: 10,2236           10066        BELOW1             CCS      TEMPSW2                               #  IS IT A PHASCHNG OR A 2PHSCHNG
056142,000347: 10,2237           12253                           TCF      BELOW2                                #  IT:S A PHASCHNG
056143,000348: 
056144,000349: 10,2240           12241                           TCF      +1                                    #  IT:S A 2PHSCHNG
056145,000350: 10,2241           40072                           CS       TEMPP2                                
056146,000351: 10,2242           22072                           LXCH     TEMPP2                                
056147,000352: 10,2243           50071                           NDX      TEMPG2                                
056148,000353: 10,2244           52750                           DXCH     -PHASE1    -2                         
056149,000354: 
056150,000355: 10,2245           10066                           CCS      TEMPSW2                               
056151,000356: 10,2246           12247                           NOOP                                           #  CAN:T GET HERE
056152,000357: 10,2247           12253                           TCF      BELOW2                                
056153,000358: 
056154,000359: 10,2250           40025                           CS       TIME1                                 
056155,000360: 10,2251           50071                           NDX      TEMPG2                                
056156,000361: 10,2252           55050                           TS       TBASE1     -2                         
056157,000362: 
056158,000363: 10,2253           10065        BELOW2             CCS      TEMPSW                                #  SEE IF WE SHOULD SET TBASE OR LONGBASE
056159,000364: 10,2254           12267                           TCF      BELOW3                                #  SET LONGBASE ONLY
056160,000365: 10,2255           12272                           TCF      BELOW4                                #  SET NEITHER
056161,000366: 
056162,000367: 10,2256           40025                           CS       TIME1                                 #  SET TBASE TO BEGIN WITH
056163,000368: 10,2257           50061                           NDX      TEMPG                                 
056164,000369: 10,2260           55050                           TS       TBASE1     -2                         
056165,000370: 
056166,000371: 10,2261           30065                           CA       TEMPSW                                #   SHALL WE NOW SET LONGBASE
056167,000372: 10,2262           62265                           AD       BIT14COM                              
056168,000373: 10,2263           10000                           CCS      A                                     
056169,000374: 10,2264           12265                           NOOP                                           #  ***** CANT GET HERE *****
056170,000375: 10,2265           17777        BIT14COM           OCT      17777                                 #  ***** CANT GET HERE *****
056171,000376: 10,2266           12272                           TCF      BELOW4                                #  NO WE NEED ONLY SET TBASE
056172,000377: 
056173,000378: 10,2267           00006        BELOW3             EXTEND                                         #  SET LONGBASE
056174,000379: 10,2270           30025                           DCA      TIME2                                 
056175,000380: 10,2271           53151                           DXCH     LONGBASE                              
056176,000381: 
056177,000382: 10,2272           40062        BELOW4             CS       TEMPP                                 #  AND STORE THE FINAL PART OF THE PHASE
056178,000383: 10,2273           50061                           NDX      TEMPG                                 
056179,000384: 10,2274           54747                           TS       -PHASE1    -2                         
056180,000385: 
056181,000386: 10,2275           30002                           CA       Q                                     
056182,000387: 10,2276           22073                           LXCH     TEMPBBCN                              
056183,000388: 10,2277           00003                           RELINT                                         
056184,000389: 10,2300           52006                           DTCB                                           

Page 1299

056186,000391: 10,2301           22073        CON2               LXCH     TEMPBBCN                              
056187,000392: 
056188,000393: 10,2302           30062                           CA       TEMPP                                 
056189,000394: 10,2303           50061                           NDX      TEMPG                                 
056190,000395: 10,2304           54750                           TS       PHASE1     -2                         
056191,000396: 
056192,000397: 10,2305           30070                           CA       TEMPPR                                
056193,000398: 10,2306           50061                           NDX      TEMPG                                 
056194,000399: 10,2307           55051                           TS       PHSPRDT1   -2                         
056195,000400: 
056196,000401: 10,2310           00006                           EXTEND                                         
056197,000402: 10,2311           30064                           DCA      TEMPNM                                
056198,000403: 10,2312           50061                           NDX      TEMPG                                 
056199,000404: 10,2313           53435                           DXCH     PHSNAME1   -2                         
056200,000405: 
056201,000406: 10,2314           12236                           TCF      BELOW1                                
056202,000407: 
056203,000408:    7771                                           BLOCK    03                                    
056204,000409:    6000                                           SETLOC   FFTAG6                                
056205,000410:    6000                                           BANK                                           
056206,000411: 
056207,000412:    7771                                           COUNT*   $$/PHASE                              
056208,000413:    7771           74731        CHECKB             MASK     BIT12                                 #  SINCE THIS IS OF TYPE B, THIS BIT SHOULD
056209,000414:    7772           10000                           CCS      A                                     #   BE HERE IF WE ARE TO GET A NEW PRIORITY
056210,000415:    7773           15425                           TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
056211,000416: 
056212,000417:    7774           15404                           TCF      OLDPRIO                               #  IT ISN:T, USE THE OLD PRIORITY

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