Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

059910,000002:                                                                                                 #  Copyright:     Public domain.
059911,000003:                                                                                                 #  Filename:      PHASE_TABLE_MAINTENANCE.agc
059912,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
059913,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
059914,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
059915,000007:                                                                                                 #                 Apollo 15-17.
059916,000008:                                                                                                 #  Assembler:     yaYUL
059917,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
059918,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
059919,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
059920,000012:                                                                                                 #  Mod history:   2009-08-18 JL   Adapted from corresponding Comanche 055 file.
059921,000013:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
059922,000014: 
059923,000015:                                                                                                 # # Page 1402
059924,000016: 
059925,000017:                                                                                                 #  SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
059926,000018: 
059927,000019:    4000                                          SETLOC   FFTAG1                                
059928,000020:    4000                                          BANK                                           
059929,000021: 
059930,000022:    5344                                          COUNT*   $$/PHASE                              
059931,000023:    5344           50002        NEWMODEX          INDEX    Q                                     #  UPDATE MODREG. ENTRY FOR MODE IN FIXED.
059932,000024:    5345           30000                          CAF      0                                     
059933,000025:    5346           24002                          INCR     Q                                     
059934,000026: 
059935,000027:    5347           55214        NEWMODEA          TS       MODREG                                #  ENTRY FOR MODE IN A.
059936,000028:    5350           35353        MMDSPLAY          CAF      +3                                    #  DISPLAY MAJOR MODE.
059937,000029:    5351           22006        PREBJUMP          LXCH     BBANK                                 #  PUTS BBANK IN L
059938,000030:    5352           14660                          TCF      BANKJUMP                              #  PUTS Q INTO A
059939,000031:    5353           20463                          CADR     SETUPDSP                              
059940,000032: 
059941,000033:                                                                                                 #  RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
059942,000034: 
059943,000035:    5354           50002        CHECKMM           INDEX    Q                                     
059944,000036:    5355           40000                          CS       0                                     
059945,000037:    5356           61214                          AD       MODREG                                
059946,000038:    5357           00006                          EXTEND                                         
059947,000039:    5360           16710                          BZF      Q+2                                   
059948,000040:    5361           16706                          TCF      Q+1                                   #  NO MATCH
059949,000041: 
059950,000042: 10,2000                                          SETLOC   PHASETAB                              
059951,000043: 10,2000                                          BANK                                           
059952,000044: 
059953,000045: 10,2463                                          COUNT*   $$/PHASE                              
059954,000046: 10,2463           00004        SETUPDSP          INHINT                                         
059955,000047: 10,2464           52071                          DXCH     RUPTREG1                              #  SAVE CALLER'S RETURN 2CADR
059956,000048: 10,2465           05120                          TC       NOVAC30                               #  EITHER A TASK OR JOB CAN COME TO NEWMODEX
059957,000049: 10,2466     1214                                 EBANK=   MODREG                                
059958,000050: 10,2466           03377 60102                    2CADR    DSPMMJOB                              
059959,000051: 
059960,000052: 10,2470           52071                          DXCH     RUPTREG1                              
059961,000053: 10,2471           00003                          RELINT                                         
059962,000054: 10,2472           52006                          DXCH     Z                                     #  RETURN
059963,000055: 
059964,000056: 10,2473  40,3377               DSPMMJOB          EQUALS   DSPMMJB                               
059965,000057: 
059966,000058:    4000                                          SETLOC   FFTAG1                                
059967,000059:    4000                                          BANK                                           
059968,000060:                                                                                                 # # Page 1403
059969,000061: 
059970,000062:                                                                                                 #  PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS.  THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
059971,000063:                                                                                                 #  A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
059972,000064: 
059973,000065:                                                                                                 #                 TC      PHASCHNG
059974,000066:                                                                                                 #                 OCT     XXXXX
059975,000067: 
059976,000068:                                                                                                 #  TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY.  THESE
059977,000069:                                                                                                 #  OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
059978,000070: 
059979,000071:                                                                                                 #         G.0             INACTIVE, WILL NOT PERMIT A GROUP G RESTART
059980,000072:                                                                                                 #         G.1             WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
059981,000073:                                                                                                 #         G.EVEN          A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
059982,000074:                                                                                                 #                         LONGCALL TO BE RESTARTED.
059983,000075:                                                                                                 #         G.ODD NOT .1    A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART
059984,000076: 
059985,000077:                                                                                                 #  THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
059986,000078: 
059987,000079:                                                                                                 #         TL0 00P PPP PPP GGG
059988,000080: 
059989,000081:                                                                                                 #  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,
059990,000082:                                                                                                 #  OCTAL 0 - 127.  0'S MUST BE 0.              IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
059991,000083:                                                                                                 #  T IS SET TO 1, OTHERWISE IT IS SET TO 0.  SIMILARLY IF ONE WISHES TO SET LONGBASE, THEN L IS SET TO 1, OTHERWISE
059992,000084:                                                                                                 #  IT IS SET TO 0.  SOME EXAMLES,
059993,000085: 
059994,000086:                                                                                                 #                 TC      PHASCHNG        # THIS WILL CAUSE GROUP 3 TO BE SET TO 0,
059995,000087:                                                                                                 #                 OCT     00003           # MAKING GROUP 3 INACTIVE
059996,000088: 
059997,000089:                                                                                                 #                 TC      PHASCHNG        # IF A RESTART OCCURS THIS WOULD CAUSE
059998,000090:                                                                                                 #                 OCT     00012           # GROUP 2 TO RESTART THE LAST DISPLAY
059999,000091: 
060000,000092:                                                                                                 #                 TC      PHASCHNG        # THIS SETS THE TBASE OF GROUP 4 AND IN
060001,000093:                                                                                                 #                 OCT     40064           # CASE OF A RESTART WOULD START UP THE TWO
060002,000094:                                                                                                 #                                         # THINGS LOCATED IN THE DOUBLE 4.6 RESTART
060003,000095:                                                                                                 #                                         # LOCATION.
060004,000096:                                                                                                 #                 TC      PHASCHNG        # THIS SETS LONGBASE AND UPON A RESTART
060005,000097:                                                                                                 #                 OCT     20135           # CAUSES 5.13 TO BE RESTARTED (SINCE
060006,000098:                                                                                                 #                                         # LONGBASE WAS SET THIS SINGLE ENTRY
060007,000099:                                                                                                 #                                         # SHOULD BE A LONGCALL)
060008,000100:                                                                                                 #                 TC      PHASCHNG        # SINCE BOTH TBASE4 AND LONGBASE ARE SET,
060009,000101:                                                                                                 #                 OCT     60124           # 4.12 SHOULD CONTAIN BOTH A TASK AND A
060010,000102:                                                                                                 #                                         # LONGCALL TO BE RESTARTED
060011,000103: 
060012,000104:                                                                                                 #  TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION.  INSTEAD OF THE INFORMATION BEING IN A
060013,000105:                                                                                                 #  PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABLE LOCATION. THE BITS ARE AS FOLLOWS,
060014,000106: 
060015,000107:                                                                                                 #         TL0 1AD XXX CJW GGG
060016,000108: 
060017,000109:                                                                                                 #  WHERE EACH LETTER OR NUMBER STANDS FOR A BIT.  THE G'S STAND FOR THE GROUP, OCTAL 1 - 7.  IF THE RESTART IS TO
060018,000110:                                                                                                 #  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
060019,000111:                                                                                                 #  THESE THREE BITS MAY BE SET.  X'S ARE IGNORED, 1 MUST BE 1, AND 0 MUST BE 0.  AGAIN T STANDS FOR THE TBASE,
060020,000112:                                                                                                 # # Page 1404
060021,000113:                                                                                                 #  AND L FOR LONGBASE.  THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
060022,000114:                                                                                                 #  OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION, IF THIS IS TO BE INDIRECT, THAT
060023,000115:                                                                                                 #  IS, THE NAME OF A LOCATION CONTAINING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
060024,000116:                                                                                                 #  THAT LOCATION WHICH CONTAINS THE DELTA TIME.  IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
060025,000117:                                                                                                 #  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
060026,000118:                                                                                                 #  THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER
060027,000119:                                                                                                 #  (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT.  IF A IS SET TO 1, THEN THE ADDRESS THAT
060028,000120:                                                                                                 #  WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATION.  EXAMPLES,
060029,000121: 
060030,000122:                                                                                                 #         AD      TC      PHASCHNG        # THIS WOULD CAUSE LOCATION AD +3 TO BE
060031,000123:                                                                                                 #         AD+1    OCT     05023           # RESTARTED BY GROUP THREE WITH A PRIORITY
060032,000124:                                                                                                 #         AD+2    OCT     23000           # OF 23.  NOTE UPON RETURNING IT WOULD
060033,000125:                                                                                                 #         AD+3                            # ALSO GO TO AD+3
060034,000126: 
060035,000127:                                                                                                 #         AD      TC      PHASCHNG        # GROUP  1 WOULD CAUSE CALLCALL TO BE
060036,000128:                                                                                                 #         AD+1    OCT     27441           # BE STARTED AS A LONGCALL FROM THE TIME
060037,000129:                                                                                                 #         AD+2   -GENADR  DELTIME         # STORED IN LONGBASE (LONGBASE WAS SET) BY
060038,000130:                                                                                                 #         AD+3    2CADR   CALLCALL        # A DELTATIME STORED IN DELTIME.  THE
060039,000131:                                                                                                 #         AD+4                            # BBCON OF THE 2CADR SHOULD CONTAIN THE E
060040,000132:                                                                                                 #         AD+5                            # BANK OF DELTIME. PHASCHNG RETURNS TO
060041,000133:                                                                                                 #                                         # LOCATION AD+5
060042,000134: 
060043,000135:                                                                                                 #  NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
060044,000136:                                                                                                 #  NEGATIVE, AS A FINDVAC IF THE PRIORITY IS POSITIVE.
060045,000137: 
060046,000138:                                                                                                 #  TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
060047,000139:                                                                                                 #  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
060048,000140:                                                                                                 #  DOUBLE ENTRY.  THE BIT INFORMATION IS AS FOLLOW,
060049,000141: 
060050,000142:                                                                                                 #         TL1 DAP PPP PPP GGG
060051,000143: 
060052,000144:                                                                                                 #  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
060053,000145:                                                                                                 #  PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1.  AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE.  D THIS
060054,000146:                                                                                                 #  TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
060055,000147:                                                                                                 #  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
060056,000148:                                                                                                 #  THE NEXT LOCATION.(THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
060057,000149: 
060058,000150:                                                                                                 #         AD      TC      PHASCHNG        # TBASE IS SET AND A RESTART CAUSE GROUP 3
060059,000151:                                                                                                 #         AD+1    OCT     56043           # TO START THE JOB AJOBAJOB WITH PRIORITY
060060,000152:                                                                                                 #         AD+2    OCT     31000           # 31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN
060061,000153:                                                                                                 #         AD+3    2CADR   AJOBAJOB        # ASSUME IT IS A TASK SINCE WE SET TBASE3)
060062,000154:                                                                                                 #         AD+4                            # UPON RETURN FROM PHASCHNG CONTROL WOULD
060063,000155:                                                                                                 #         AD+5                            # GO TO AD+5
060064,000156: 
060065,000157:                                                                                                 #         AD      TC      PHASCHNG        # UPON A RESTART THE LAST DISPLAY WOULD BE
060066,000158:                                                                                                 #         AD+1    OCT     10015           # RESTARTED AND A JOB WITH THE PREVIOUSLY
060067,000159:                                                                                                 #         AD+2                            # STORED PRIORITY WOULD BE BEGUN AT AD+2
060068,000160:                                                                                                 #                                         # BY MEANS OF GROUP 5
060069,000161: 
060070,000162:                                                                                                 # # Page 1405
060071,000163: 
060072,000164:                                                                                                 #  THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
060073,000165: 
060074,000166: 
060075,000167:                                                                                                 #  SUMMARY OF BITS:
060076,000168: 
060077,000169:                                                                                                 #  TYPE A         TL0 00P PPP PPP GGG
060078,000170: 
060079,000171:                                                                                                 #  TYPE B         TL1 DAP PPP PPP GGG
060080,000172: 
060081,000173:                                                                                                 #  TYPE C         TL0 1AD XXX CJW GGG
060082,000174: 
060083,000175: 
060084,000176:                                                                                                 # # Page 1406
060085,000177: 
060086,000178:                                                                                                 #  2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
060087,000179:                                                                                                 #  GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
060088,000180:                                                                                                 #  CALLS ARE MADE IN THE FOLLOWING MANNER,
060089,000181: 
060090,000182:                                                                                                 #                 TC      2PHSCHNG
060091,000183:                                                                                                 #                 OCT     XXXXX
060092,000184:                                                                                                 #                 OCT     YYYYY
060093,000185: 
060094,000186:                                                                                                 #  WHERE OCT XXXXX MUST BE OF TYPE A AND OCT YYYYY MAY BE OF EITHER TYPE A OR TYPE B OR TYPE C.  THERE IS ONE
060095,000187:                                                                                                 #  DIFFERENCE --- NOTE- IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
060096,000188:                                                                                                 #  BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
060097,000189: 
060098,000190:                                                                                                 #         AD      TC      2PHACHNG        # SET TBASE3 AND IF A RESTART OCCURS START
060099,000191:                                                                                                 #         AD+1    OCT     40083           # THE TWO ENTRIES IN 3.8 TABLE LOCATION
060100,000192:                                                                                                 #         AD+2    OCT     05025           # THIS IS OF TYPE C, SET THE JOB TO BE
060101,000193:                                                                                                 #         AD+3    OCT     18000           # TO BE LOCATION AD+4, WITH A PRIORITY 18,
060102,000194:                                                                                                 #         AD+4                            # FOR GROUP 5 PHASE INFORMATION.
060103,000195: 
060104,000196:    5362                                          COUNT*   $$/PHASE                              
060105,000197:    5362           00004        2PHSCHNG          INHINT                                         #  THE ENTRY FOR A DOUBLE PHASE CHANGE
060106,000198:    5363           50002                          NDX      Q                                     
060107,000199:    5364           30000                          CA       0                                     
060108,000200:    5365           24002                          INCR     Q                                     
060109,000201:    5366           54072                          TS       TEMPP2                                
060110,000202: 
060111,000203:    5367           74774                          MASK     OCT7                                  
060112,000204:    5370           60000                          DOUBLE                                         
060113,000205:    5371           54071                          TS       TEMPG2                                
060114,000206: 
060115,000207:    5372           30072                          CA       TEMPP2                                
060116,000208:    5373           75056                          MASK     OCT17770                              #  NEED ONLY 1770, BUT WHY GET A NEW CONST.
060117,000209:    5374           00006                          EXTEND                                         
060118,000210:    5375           74755                          MP       BIT12                                 
060119,000211:    5376           56072                          XCH      TEMPP2                                
060120,000212: 
060121,000213:    5377           74752                          MASK     BIT15                                 
060122,000214:    5400           54066                          TS       TEMPSW2                               #  INDICATES WHETHER TO SET TBASE OR NOT
060123,000215: 
060124,000216:    5401           15405                          TCF      PHASCHNG   +3                         
060125,000217: 
060126,000218:    5402           00004        PHASCHNG          INHINT                                         
060127,000219:    5403           34770                          CA       ONE                                   #  INDICATES CAME FROM A PHASCHNG ENTRY
060128,000220:    5404           54066                          TS       TEMPSW2                               
060129,000221: 
060130,000222:    5405           50002                 +3       NDX      Q                                     
060131,000223:    5406           30000                          CA       0                                     
060132,000224:    5407           24002                          INCR     Q                                     
060133,000225:    5410           54065                          TS       TEMPSW                                
060134,000226:                                                                                                 # # Page 1407
060135,000227:    5411           00006                          EXTEND                                         
060136,000228:    5412           35415                          DCA      ADRPCHN2                              #  OFF TO SWITCHED BANK
060137,000229:    5413           52006                          DTCB                                           
060138,000230: 
060139,000231:    5414  E3,1400                                 EBANK=   LST1                                  
060140,000232:    5414           02473 20063  ADRPCHN2          2CADR    PHSCHNG2                              
060141,000233: 
060142,000234: 
060143,000235:    5416           22073        ONEORTWO          LXCH     TEMPBBCN                              
060144,000236:    5417           22006                          LXCH     BBANK                                 
060145,000237:    5420           22073                          LXCH     TEMPBBCN                              
060146,000238: 
060147,000239:    5421           75053                          MASK     OCT14000                              #  SEE WHAT KIND OF PHASE CHANGE IT IS
060148,000240:    5422           10000                          CCS      A                                     
060149,000241:    5423           15464                          TCF      CHECKB                                #  IT IS OF TYPE 'B'.
060150,000242: 
060151,000243:    5424           30062                          CA       TEMPP                                 
060152,000244:    5425           74762                          MASK     BIT7                                  
060153,000245:    5426           10000                          CCS      A                                     #  SHALL WE USE THE OLD PRIORITY
060154,000246:    5427           15451                          TCF      GETPRIO                               #  NO GET A NEW PRIORITY (OR DELTA T)
060155,000247: 
060156,000248:    5430           50061        OLDPRIO           NDX      TEMPG                                 #  USE THE OLD PRIORITY (OR DELTA T)
060157,000249:    5431           31256                          CA       PHSPRDT1   -2                         
060158,000250:    5432           54070                 -1       TS       TEMPPR                                
060159,000251: 
060160,000252:    5433           30062        CON1              CA       TEMPP                                 #  SEE IF A 2CADR IS GIVEN
060161,000253:    5434           74761                          MASK     BIT8                                  
060162,000254:    5435           10000                          CCS      A                                     
060163,000255:    5436           15455                          TCF      GETNEWNM                              
060164,000256: 
060165,000257:    5437           30002                          CA       Q                                     
060166,000258:    5440           54063                          TS       TEMPNM                                
060167,000259:    5441           30006                          CA       BB                                    
060168,000260:    5442           00006                          EXTEND                                         #  PICK UP USERS SUPERBANK
060169,000261:    5443           04007                          ROR      SUPERBNK                              
060170,000262:    5444           54064                          TS       TEMPBB                                
060171,000263: 
060172,000264:    5445           35450        TOCON2            CA       CON2ADR                               #  BACK TO SWITCHED BANK
060173,000265:    5446           22073                          LXCH     TEMPBBCN                              
060174,000266:    5447           52006                          DTCB                                           
060175,000267: 
060176,000268:    5450           02561        CON2ADR           GENADR   CON2                                  
060177,000269: 
060178,000270:    5451           50002        GETPRIO           NDX      Q                                     #  DON'T CARE IF DIRECT OR INDIRECT
060179,000271:    5452           30000                          CA       0                                     #  LEAVE THAT DECISION TO RESTARTS
060180,000272:    5453           24002                          INCR     Q                                     #  OBTAIN RETURN ADDRESS
060181,000273:    5454           15432                          TCF      CON1       -1                         
060182,000274: 
060183,000275:    5455           00006        GETNEWNM          EXTEND                                         
060184,000276:                                                                                                 # # Page 1408
060185,000277:    5456           50002                          INDEX    Q                                     
060186,000278:    5457           30001                          DCA      0                                     
060187,000279:    5460           52064                          DXCH     TEMPNM                                
060188,000280:    5461           34767                          CA       TWO                                   
060189,000281:    5462           26002                          ADS      Q                                     #  OBTAIN RETURN ADDRESS
060190,000282: 
060191,000283:    5463           15445                          TCF      TOCON2                                
060192,000284: 
060193,000285:    5464     5053               OCT14000          EQUALS   PRIO14                                
060194,000286:    5464     0061               TEMPG             EQUALS   ITEMP1                                
060195,000287:    5464     0062               TEMPP             EQUALS   ITEMP2                                
060196,000288:    5464     0063               TEMPNM            EQUALS   ITEMP3                                
060197,000289:    5464     0064               TEMPBB            EQUALS   ITEMP4                                
060198,000290:    5464     0065               TEMPSW            EQUALS   ITEMP5                                
060199,000291:    5464     0066               TEMPSW2           EQUALS   ITEMP6                                
060200,000292:    5464     0070               TEMPPR            EQUALS   RUPTREG1                              
060201,000293:    5464     0071               TEMPG2            EQUALS   RUPTREG2                              
060202,000294:    5464     0072               TEMPP2            EQUALS   RUPTREG3                              
060203,000295: 
060204,000296:    5464     0073               TEMPBBCN          EQUALS   RUPTREG4                              
060205,000297:    5464  0000006               BB                EQUALS   BBANK                                 
060206,000298: 
060207,000299: 10,2000                                          SETLOC   PHASETAB                              
060208,000300: 10,2000                                          BANK                                           
060209,000301: 
060210,000302: 10,2473  E3,1436                                 EBANK=   PHSNAME1                              
060211,000303: 10,2473                                          COUNT*   $$/PHASE                              
060212,000304: 10,2473           22073        PHSCHNG2          LXCH     TEMPBBCN                              
060213,000305: 10,2474           30065                          CA       TEMPSW                                
060214,000306: 10,2475           74774                          MASK     OCT7                                  
060215,000307: 10,2476           60000                          DOUBLE                                         
060216,000308: 10,2477           54061                          TS       TEMPG                                 
060217,000309: 
060218,000310: 10,2500           30065                          CA       TEMPSW                                
060219,000311: 10,2501           75056                          MASK     OCT17770                              
060220,000312: 10,2502           00006                          EXTEND                                         
060221,000313: 10,2503           74755                          MP       BIT12                                 
060222,000314: 10,2504           54062                          TS       TEMPP                                 
060223,000315: 
060224,000316: 10,2505           30065                          CA       TEMPSW                                
060225,000317: 10,2506           74076                          MASK     OCT60000                              
060226,000318: 10,2507           56065                          XCH      TEMPSW                                
060227,000319: 10,2510           75053                          MASK     OCT14000                              
060228,000320: 10,2511           10000                          CCS      A                                     
060229,000321: 
060230,000322: 10,2512           15416                          TCF      ONEORTWO                              
060231,000323: 
060232,000324: 10,2513           30062                          CA       TEMPP                                 #  START STORING THE PHASE INFORMATION
060233,000325: 10,2514           50061                          NDX      TEMPG                                 
060234,000326:                                                                                                 # # Page 1409
060235,000327: 10,2515           55154                          TS       PHASE1     -2                         
060236,000328: 
060237,000329: 10,2516           10066        BELOW1            CCS      TEMPSW2                               #  IS IT A PHASCHNG OR A 2PHSCHNG
060238,000330: 10,2517           12533                          TCF      BELOW2                                #  IT'S A PHASCHNG
060239,000331: 
060240,000332: 10,2520           12521                          TCF      +1                                    #  IT'S A 2PHSCHNG
060241,000333: 10,2521           40072                          CS       TEMPP2                                
060242,000334: 10,2522           22072                          LXCH     TEMPP2                                
060243,000335: 10,2523           50071                          NDX      TEMPG2                                
060244,000336: 10,2524           53154                          DXCH     -PHASE1    -2                         
060245,000337: 
060246,000338: 10,2525           10066                          CCS      TEMPSW2                               
060247,000339: 10,2526           12527                          NOOP                                           #  CAN'T GET HERE
060248,000340: 10,2527           12533                          TCF      BELOW2                                
060249,000341: 
060250,000342: 10,2530           40025                          CS       TIME1                                 
060251,000343: 10,2531           50071                          NDX      TEMPG2                                
060252,000344: 10,2532           55255                          TS       TBASE1     -2                         
060253,000345: 
060254,000346: 10,2533           10065        BELOW2            CCS      TEMPSW                                #  SEE IF WE SHOULD SET TBASE OR LONGBASE
060255,000347: 10,2534           12547                          TCF      BELOW3                                #  SET LONGBASE ONLY
060256,000348: 10,2535           12552                          TCF      BELOW4                                #  SET NEITHER
060257,000349: 
060258,000350: 10,2536           40025                          CS       TIME1                                 #  SET TBASE TO BEGIN WITH
060259,000351: 10,2537           50061                          NDX      TEMPG                                 
060260,000352: 10,2540           55255                          TS       TBASE1     -2                         
060261,000353: 
060262,000354: 10,2541           30065                          CA       TEMPSW                                #  SHALL WE NOW SET LONGBASE
060263,000355: 10,2542           62545                          AD       BIT14COM                              
060264,000356: 10,2543           10000                          CCS      A                                     
060265,000357: 10,2544           12545                          NOOP                                           #  ***** CANT GET HERE *****
060266,000358: 10,2545           17777        BIT14COM          OCT      17777                                 #  ***** CANT GET HERE *****
060267,000359: 10,2546           12552                          TCF      BELOW4                                #  NO WE NEED ONLY SET TBASE
060268,000360: 
060269,000361: 10,2547           00006        BELOW3            EXTEND                                         #  SET LONGBASE
060270,000362: 10,2550           30025                          DCA      TIME2                                 
060271,000363: 10,2551           53303                          DXCH     LONGBASE                              
060272,000364: 
060273,000365: 10,2552           40062        BELOW4            CS       TEMPP                                 #  AND STORE THE FINAL PART OF THE PHASE
060274,000366: 10,2553           50061                          NDX      TEMPG                                 
060275,000367: 10,2554           55153                          TS       -PHASE1    -2                         
060276,000368: 
060277,000369: 10,2555           30002                          CA       Q                                     
060278,000370: 10,2556           22073                          LXCH     TEMPBBCN                              
060279,000371: 10,2557           00003                          RELINT                                         
060280,000372: 10,2560           52006                          DTCB                                           
060281,000373: 10,2561           22073        CON2              LXCH     TEMPBBCN                              
060282,000374: 
060283,000375: 10,2562           30062                          CA       TEMPP                                 
060284,000376: 10,2563           50061                          NDX      TEMPG                                 
060285,000377:                                                                                                 # # Page 1410
060286,000378: 10,2564           55154                          TS       PHASE1     -2                         
060287,000379: 
060288,000380: 10,2565           30070                          CA       TEMPPR                                
060289,000381: 10,2566           50061                          NDX      TEMPG                                 
060290,000382: 10,2567           55256                          TS       PHSPRDT1   -2                         
060291,000383: 
060292,000384: 10,2570           00006                          EXTEND                                         
060293,000385: 10,2571           30064                          DCA      TEMPNM                                
060294,000386: 10,2572           50061                          NDX      TEMPG                                 
060295,000387: 10,2573           53435                          DXCH     PHSNAME1   -2                         
060296,000388: 
060297,000389: 10,2574           12516                          TCF      BELOW1                                
060298,000390: 
060299,000391:    4000                                          SETLOC   FFTAG1                                
060300,000392:    4000                                          BANK                                           
060301,000393: 
060302,000394:    5464                                          COUNT*   $$/PHASE                              
060303,000395:    5464           74755        CHECKB            MASK     BIT12                                 #  SINCE THIS IS OF TYPE B, THIS BIT SHOULD
060304,000396:    5465           10000                          CCS      A                                     #  BE HERE IF WE ARE TO GET A NEW PRIORITY
060305,000397:    5466           15451                          TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
060306,000398: 
060307,000399:    5467           15430                          TCF      OLDPRIO                               #  IT ISN'T, USE THE OLD PRIORITY.

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