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.

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

Page 1291

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

Page 1292

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

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

Page 1294

055959,000177:                                                                                                  #  THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
055960,000178: 
055961,000179:                                                                                                  #  SUMMARY OF BITS
055962,000180: 
055963,000181:                                                                                                  #  TYPE A          TL0 00P PPP PPP GGG
055964,000182: 
055965,000183:                                                                                                  #  TYPE B          TL1 DAP PPP PPP GGG
055966,000184: 
055967,000185:                                                                                                  #  TYPE C          TL0 1AD XXX CJW GGG
055968,000186: 

Page 1295

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

Page 1296

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

Page 1297

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

Page 1298

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

Page 1299

056173,000391: 10,2301           22073        CON2               LXCH     TEMPBBCN                              
056174,000392: 
056175,000393: 10,2302           30062                           CA       TEMPP                                 
056176,000394: 10,2303           50061                           NDX      TEMPG                                 
056177,000395: 10,2304           54750                           TS       PHASE1     -2                         
056178,000396: 
056179,000397: 10,2305           30070                           CA       TEMPPR                                
056180,000398: 10,2306           50061                           NDX      TEMPG                                 
056181,000399: 10,2307           55051                           TS       PHSPRDT1   -2                         
056182,000400: 
056183,000401: 10,2310           00006                           EXTEND                                         
056184,000402: 10,2311           30064                           DCA      TEMPNM                                
056185,000403: 10,2312           50061                           NDX      TEMPG                                 
056186,000404: 10,2313           53435                           DXCH     PHSNAME1   -2                         
056187,000405: 
056188,000406: 10,2314           12236                           TCF      BELOW1                                
056189,000407: 
056190,000408:    7771                                           BLOCK    03                                    
056191,000409:    6000                                           SETLOC   FFTAG6                                
056192,000410:    6000                                           BANK                                           
056193,000411: 
056194,000412:    7771                                           COUNT*   $$/PHASE                              
056195,000413:    7771           74731        CHECKB             MASK     BIT12                                 #  SINCE THIS IS OF TYPE B, THIS BIT SHOULD
056196,000414:    7772           10000                           CCS      A                                     #   BE HERE IF WE ARE TO GET A NEW PRIORITY
056197,000415:    7773           15425                           TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
056198,000416: 
056199,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