Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

060190,000002:                                                                                                  ## Copyright:   Public domain.
060191,000003:                                                                                                  ## Filename:    PHASE_TABLE_MAINTENANCE.agc
060192,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
060193,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
060194,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
060195,000007:                                                                                                  ##              Apollo 15-17.
060196,000008:                                                                                                  ## Assembler:   yaYUL
060197,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
060198,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
060199,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
060200,000012:                                                                                                  ## Mod history: 2009-08-18 JL   Adapted from corresponding Comanche 055 file.
060201,000013:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
060202,000014:                                                                                                  ##              2017-02-08 RSB  Proofed comment text by using octopus/ProoferComments.
060203,000015:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
060204,000016:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
060205,000017:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified by 4-way diff'ing
060206,000018:                                                                                                  ##                              of Colossus 237 & 249, Comanche 55, and Artemis 72.
060207,000019: 

Page 1402

060209,000021: 
060210,000022:                                                                                                  #  SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
060211,000023: 
060212,000024:    4000                                           SETLOC   FFTAG1                                
060213,000025:    4000                                           BANK                                           
060214,000026: 
060215,000027:    5344                                           COUNT*   $$/PHASE                              
060216,000028:    5344           50002        NEWMODEX           INDEX    Q                                     #  UPDATE MODREG. ENTRY FOR MODE IN FIXED.
060217,000029:    5345           30000                           CAF      0                                     
060218,000030:    5346           24002                           INCR     Q                                     
060219,000031: 
060220,000032:    5347           55214        NEWMODEA           TS       MODREG                                #  ENTRY FOR MODE IN A.
060221,000033:    5350           35353        MMDSPLAY           CAF      +3                                    #  DISPLAY MAJOR MODE.
060222,000034:    5351           22006        PREBJUMP           LXCH     BBANK                                 #  PUTS BBANK IN L
060223,000035:    5352           14660                           TCF      BANKJUMP                              #  PUTS Q INTO A
060224,000036:    5353           20463                           CADR     SETUPDSP                              
060225,000037: 
060226,000038:                                                                                                  #  RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
060227,000039: 
060228,000040:    5354           50002        CHECKMM            INDEX    Q                                     
060229,000041:    5355           40000                           CS       0                                     
060230,000042:    5356           61214                           AD       MODREG                                
060231,000043:    5357           00006                           EXTEND                                         
060232,000044:    5360           16710                           BZF      Q+2                                   
060233,000045:    5361           16706                           TCF      Q+1                                   #  NO MATCH
060234,000046: 
060235,000047: 10,2000                                           SETLOC   PHASETAB                              
060236,000048: 10,2000                                           BANK                                           
060237,000049: 
060238,000050: 10,2463                                           COUNT*   $$/PHASE                              
060239,000051: 10,2463           00004        SETUPDSP           INHINT                                         
060240,000052: 10,2464           52071                           DXCH     RUPTREG1                              #  SAVE CALLER-S RETURN 2CADR
060241,000053: 10,2465           05120                           TC       NOVAC30                               #  EITHER A TASK OR JOB CAN COMETO NEWMODEX
060242,000054: 10,2466     1214                                  EBANK=   MODREG                                
060243,000055: 10,2466           03377 60102                     2CADR    DSPMMJOB                              
060244,000056: 
060245,000057: 10,2470           52071                           DXCH     RUPTREG1                              
060246,000058: 10,2471           00003                           RELINT                                         
060247,000059: 10,2472           52006                           DXCH     Z                                     #  RETURN
060248,000060: 
060249,000061: 10,2473  40,3377               DSPMMJOB           EQUALS   DSPMMJB                               
060250,000062: 
060251,000063:    4000                                           SETLOC   FFTAG1                                
060252,000064:    4000                                           BANK                                           

Page 1403

060254,000066: 
060255,000067:                                                                                                  #  PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS.  THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
060256,000068:                                                                                                  #  A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
060257,000069: 
060258,000070:                                                                                                  #                TC      PHASCHNG
060259,000071:                                                                                                  #                OCT     XXXXX
060260,000072: 
060261,000073:                                                                                                  #  TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY.  THESE
060262,000074:                                                                                                  #  OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
060263,000075: 
060264,000076:                                                                                                  #        G.0             INACTIVE, WILLNOT PERMIT A GROUP G RESTART
060265,000077:                                                                                                  #        G.1             WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
060266,000078:                                                                                                  #        G.EVEN          A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
060267,000079:                                                                                                  #                        LONGCALL TO BE RESTARTED.
060268,000080:                                                                                                  #        G.ODD NOT .1    A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART
060269,000081: 
060270,000082:                                                                                                  #  THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
060271,000083: 
060272,000084:                                                                                                  #        TL0 00P PPP PPP GGG                                               ,
060273,000085: 
060274,000086:                                                                                                  #  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,
060275,000087:                                                                                                  #  OCTAL 0 - 127.  0:S MUST BE 0.              IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
060276,000088:                                                                                                  #  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
060277,000089:                                                                                                  #  IT IS SET TO 0.  SOME EXAMPLES,
060278,000090: 
060279,000091:                                                                                                  #                TC      PHASCHNG        THIS WILL CAUSE GROUP 3 TO BE SET TO 0,
060280,000092:                                                                                                  #                OCT     00003           MAKING GROUP 3 INACTIVE
060281,000093: 
060282,000094:                                                                                                  #                TC      PHASCHNG        IF A RESTART OCCURS THIS WOULD CAUSE
060283,000095:                                                                                                  #                OCT     00012           GROUP 2 TO RESTART THE LAST DISPLAY
060284,000096: 
060285,000097:                                                                                                  #                TC      PHASCHNG        THIS SETS THE TBASE OF GROUP 4 AND IN
060286,000098:                                                                                                  #                OCT     40064           CASE OF A RESTART WOULD START UP THE TWO
060287,000099:                                                                                                  #                                        THINGS LOCATED IN THE DOUBLE 4.6 RESTART
060288,000100:                                                                                                  #                                        LOCATION
060289,000101:                                                                                                  #                TC      PHASCHNG        THIS SETS LONGBASE AND UPON A RESTART
060290,000102:                                                                                                  #                OCT     20135           CAUSES 5.13 TO BE RESTARTED (SINCE
060291,000103:                                                                                                  #                                        LONGBASE WAS SET THIS SINGLE ENTRY
060292,000104:                                                                                                  #                                        SHOULD BE A LONGCALL)
060293,000105:                                                                                                  #                TC      PHASCHNG        SINCE BOTH TBASE4 AND LONGBASE ARE SET,
060294,000106:                                                                                                  #                OCT     60124           4.12 SHOULD CONTAIN BOTH A TASK AND A
060295,000107:                                                                                                  #                                        LONGCALL TO BE RESTARTED
060296,000108: 
060297,000109:                                                                                                  #  TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION.  INSTEAD OF THE INFORMATION BEING IN A
060298,000110:                                                                                                  #  PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABKE LOCATION. THE BITS ARE AS FOLLOWS,
060299,000111: 
060300,000112:                                                                                                  #        TL0 1AD XXX CJW GGG
060301,000113: 
060302,000114:                                                                                                  #  WHERE EACH LETTER OR NUMBER STANDS FOR A BIT.  THE G:S STAND FOR THE GROUP, OCTAL 1 - 7.  IF THE RESTART IS TO
060303,000115:                                                                                                  #  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
060304,000116:                                                                                                  #  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,

Page 1404

060306,000118:                                                                                                  #  AND L FOR LONGBASE.  THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
060307,000119:                                                                                                  #  OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION, IF THIS IS TO BE INDIRECT, THAT
060308,000120:                                                                                                  #  IS, THE NAME OF A LOCATION COMT+INING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
060309,000121:                                                                                                  #  THAT LOCATION WHICH CONTAINS THE DELTA TIME.  IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
060310,000122:                                                                                                  #  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
060311,000123:                                                                                                  #  THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER
060312,000124:                                                                                                  #  (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT.  IF A IS SET TO 1, THEN THE ADDRESS THAT
060313,000125:                                                                                                  #  WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATIONS.  EXAMPLES,
060314,000126: 
060315,000127:                                                                                                  #        AD      TC      PHASCHNG        THIS WOULD CAUSE LOCATION AD +3 TO BE
060316,000128:                                                                                                  #        AD+1    OCT     05023           RESTARTED BY GROUP THREE WITH A PRIORITY
060317,000129:                                                                                                  #        AD+2    OCT     23000           OF 23.  NOTE UPON RETURNING IT WOULD
060318,000130:                                                                                                  #        AD+3                            ALSO GO TO AD+3
060319,000131: 
060320,000132:                                                                                                  #        AD      TC      PHASCHNG        GROUP  1 WOULD CAUSE CAUSE CALLCALL TO
060321,000133:                                                                                                  #        AD+1    OCT     27441           BE STARTED AS A LONGCALL FROM THE TIME
060322,000134:                                                                                                  #        AD+2   -GENADR  DELTIME         STORED IN LONGBASE (LONGBASE WAS SET) BY
060323,000135:                                                                                                  #        AD+3    2CADR   CALLCALL        A DELTATIME STORED IN DELTIME.  THE
060324,000136:                                                                                                  #        AD+4                            BBCON OF THE 2CADR SHOULD CONTAIN THE E
060325,000137:                                                                                                  #        AD+5                            BANK OF DELTIME. PHASCHNG RETURNS TO
060326,000138:                                                                                                  #                                        LOCATION AD+5
060327,000139: 
060328,000140:                                                                                                  #  NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
060329,000141:                                                                                                  #  NEGATIVE, AS A FINDVAC IF THE PRIORITY IS POSITIVE.
060330,000142: 
060331,000143:                                                                                                  #  TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
060332,000144:                                                                                                  #  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
060333,000145:                                                                                                  #  DOUBLE ENTRY.  THE BIT INFORMATION IS AS FOLLOWS,
060334,000146: 
060335,000147:                                                                                                  #        TL1 DAP PPP PPP GGG
060336,000148: 
060337,000149:                                                                                                  #  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
060338,000150:                                                                                                  #  PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1.  AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE.  D THIS
060339,000151:                                                                                                  #  TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
060340,000152:                                                                                                  #  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
060341,000153:                                                                                                  #  THE NEXT LOCATION.(THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
060342,000154: 
060343,000155:                                                                                                  #        AD      TC      PHASCHNG        TBASE IS SET AND A RESTART CAUSE GROUP 3
060344,000156:                                                                                                  #        AD+1    OCT     56043           TO START THE JOB AJOBAJOB WITH PRIORITY
060345,000157:                                                                                                  #        AD+2    OCT     31000           31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN
060346,000158:                                                                                                  #        AD+3    2CADR   AJOBAJOB        ASSUME IT IS A TASK SINCE WE SET TBASE3)
060347,000159:                                                                                                  #        AD+4                            UPON RETURN FROM PHASCHNG CONTROL WOULD
060348,000160:                                                                                                  #        AD+5                            GO TO AD+5
060349,000161: 
060350,000162:                                                                                                  #        AD      TC      PHASCHNG        UPON A RESTART THE LAST DISPLAY WOULD BE
060351,000163:                                                                                                  #        AD+1    OCT     10015           RESTARTED AND A JOB WITH THE PREVIOUSLY
060352,000164:                                                                                                  #        AD+2                            STORED PRIORITY WOULD BE BEGUN AT AD+2
060353,000165:                                                                                                  #                                        BY MEANS OF GROUP 5
060354,000166: 

Page 1405

060356,000168: 
060357,000169:                                                                                                  #  THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
060358,000170: 
060359,000171: 
060360,000172:                                                                                                  #  SUMMARY OF BITS
060361,000173: 
060362,000174:                                                                                                  #  TYPE A                TL0 00P PPP PPP GGG
060363,000175: 
060364,000176:                                                                                                  #  TYPE B                TL1 DAP PPP PPP GGG
060365,000177: 
060366,000178:                                                                                                  #  TYPE C                TL0 1AD XXX CJW GGG
060367,000179: 
060368,000180: 

Page 1406

060370,000182: 
060371,000183:                                                                                                  #  2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
060372,000184:                                                                                                  #  GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
060373,000185:                                                                                                  #  CALLS ARE MADE IN THE FOLLOWING MANNER,
060374,000186: 
060375,000187:                                                                                                  #                TC      2PHSCHNG
060376,000188:                                                                                                  #                OCT     XXXXX
060377,000189:                                                                                                  #                OCT     YYYYY
060378,000190: 
060379,000191:                                                                                                  #  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
060380,000192:                                                                                                  #  DIFFERENCE --- NOTE- IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
060381,000193:                                                                                                  #  BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
060382,000194: 
060383,000195:                                                                                                  #        AD      TC      2PHSCHNG        SET TBASE3 AND IF A RESTART OCCURS START
060384,000196:                                                                                                  #        AD+1    OCT     40083           THE TWO ENTRIES IN 3.8 TABLE LOCATION
060385,000197:                                                                                                  #        AD+2    OCT     05025           THIS IS OF TYPE C, SET THE JOB TO BE
060386,000198:                                                                                                  #        AD+3    OCT     18000           TO BE LOCATION AD+4, WITH A PRIORITY 18,
060387,000199:                                                                                                  #        AD+4                            FOR GROUP 5 PHASE INFORMATION
060388,000200: 
060389,000201:    5362                                           COUNT*   $$/PHASE                              
060390,000202:    5362           00004        2PHSCHNG           INHINT                                         #  THE ENTRY FOR A DOUBLE PHASE CHANGE
060391,000203:    5363           50002                           NDX      Q                                     
060392,000204:    5364           30000                           CA       0                                     
060393,000205:    5365           24002                           INCR     Q                                     
060394,000206:    5366           54072                           TS       TEMPP2                                
060395,000207: 
060396,000208:    5367           74774                           MASK     OCT7                                  
060397,000209:    5370           60000                           DOUBLE                                         
060398,000210:    5371           54071                           TS       TEMPG2                                
060399,000211: 
060400,000212:    5372           30072                           CA       TEMPP2                                
060401,000213:    5373           75056                           MASK     OCT17770                              #  NEED ONLY 1770, BUT WHY GET A NEW CONST.
060402,000214:    5374           00006                           EXTEND                                         
060403,000215:    5375           74755                           MP       BIT12                                 
060404,000216:    5376           56072                           XCH      TEMPP2                                
060405,000217: 
060406,000218:    5377           74752                           MASK     BIT15                                 
060407,000219:    5400           54066                           TS       TEMPSW2                               #  INDICATES WHETHER TO SET TBASE OR NOT
060408,000220: 
060409,000221:    5401           15405                           TCF      PHASCHNG   +3                         
060410,000222: 
060411,000223:    5402           00004        PHASCHNG           INHINT                                         
060412,000224:    5403           34770                           CA       ONE                                   #  INDICATESWE CAME FROM A PHASCHNG ENTRY
060413,000225:    5404           54066                           TS       TEMPSW2                               
060414,000226: 
060415,000227:    5405           50002                 +3        NDX      Q                                     
060416,000228:    5406           30000                           CA       0                                     
060417,000229:    5407           24002                           INCR     Q                                     
060418,000230:    5410           54065                           TS       TEMPSW                                

Page 1407

060420,000232:    5411           00006                           EXTEND                                         
060421,000233:    5412           35415                           DCA      ADRPCHN2                              #  OFF TO SWITCHED BANK
060422,000234:    5413           52006                           DTCB                                           
060423,000235: 
060424,000236:    5414  E3,1400                                  EBANK=   LST1                                  
060425,000237:    5414           02473 20063  ADRPCHN2           2CADR    PHSCHNG2                              
060426,000238: 
060427,000239: 
060428,000240:    5416           22073        ONEORTWO           LXCH     TEMPBBCN                              
060429,000241:    5417           22006                           LXCH     BBANK                                 
060430,000242:    5420           22073                           LXCH     TEMPBBCN                              
060431,000243: 
060432,000244:    5421           75053                           MASK     OCT14000                              #  SEE WHAT KIND OF PHASE CHANGE IT IS
060433,000245:    5422           10000                           CCS      A                                     
060434,000246:    5423           15464                           TCF      CHECKB                                #  IT IS OF TYPE :B:
060435,000247: 
060436,000248:    5424           30062                           CA       TEMPP                                 
060437,000249:    5425           74762                           MASK     BIT7                                  
060438,000250:    5426           10000                           CCS      A                                     #  SHALL WE USE THE OLD PRIORITY
060439,000251:    5427           15451                           TCF      GETPRIO                               #  NO GET A NEW PRIORITY (OR DELTA T)
060440,000252: 
060441,000253:    5430           50061        OLDPRIO            NDX      TEMPG                                 #  USE THE OLD PRIORITY (OR DELTA T)
060442,000254:    5431           31256                           CA       PHSPRDT1   -2                         
060443,000255:    5432           54070                 -1        TS       TEMPPR                                
060444,000256: 
060445,000257:    5433           30062        CON1               CA       TEMPP                                 #  SEE IF A 2CADR IS GIVEN
060446,000258:    5434           74761                           MASK     BIT8                                  
060447,000259:    5435           10000                           CCS      A                                     
060448,000260:    5436           15455                           TCF      GETNEWNM                              
060449,000261: 
060450,000262:    5437           30002                           CA       Q                                     
060451,000263:    5440           54063                           TS       TEMPNM                                
060452,000264:    5441           30006                           CA       BB                                    
060453,000265:    5442           00006                           EXTEND                                         #  PICK UP USERS SUPERBANK
060454,000266:    5443           04007                           ROR      SUPERBNK                              
060455,000267:    5444           54064                           TS       TEMPBB                                
060456,000268: 
060457,000269:    5445           35450        TOCON2             CA       CON2ADR                               #  BACK TO SWITCHED BANK
060458,000270:    5446           22073                           LXCH     TEMPBBCN                              
060459,000271:    5447           52006                           DTCB                                           
060460,000272: 
060461,000273:    5450           02561        CON2ADR            GENADR   CON2                                  
060462,000274: 
060463,000275:    5451           50002        GETPRIO            NDX      Q                                     #  DON:T CARE IF DIRECT OR INDIRECT
060464,000276:    5452           30000                           CA       0                                     #  LEAVE THAT DECISION TO RESTARTS
060465,000277:    5453           24002                           INCR     Q                                     #  OBTAIN RETURN ADDRESS
060466,000278:    5454           15432                           TCF      CON1       -1                         
060467,000279: 
060468,000280:    5455           00006        GETNEWNM           EXTEND                                         

Page 1408

060470,000282:    5456           50002                           INDEX    Q                                     
060471,000283:    5457           30001                           DCA      0                                     
060472,000284:    5460           52064                           DXCH     TEMPNM                                
060473,000285:    5461           34767                           CA       TWO                                   
060474,000286:    5462           26002                           ADS      Q                                     #  OBTAIN RETURN ADDRESS
060475,000287: 
060476,000288:    5463           15445                           TCF      TOCON2                                
060477,000289: 
060478,000290:    5464     5053               OCT14000           EQUALS   PRIO14                                
060479,000291:    5464     0061               TEMPG              EQUALS   ITEMP1                                
060480,000292:    5464     0062               TEMPP              EQUALS   ITEMP2                                
060481,000293:    5464     0063               TEMPNM             EQUALS   ITEMP3                                
060482,000294:    5464     0064               TEMPBB             EQUALS   ITEMP4                                
060483,000295:    5464     0065               TEMPSW             EQUALS   ITEMP5                                
060484,000296:    5464     0066               TEMPSW2            EQUALS   ITEMP6                                
060485,000297:    5464     0070               TEMPPR             EQUALS   RUPTREG1                              
060486,000298:    5464     0071               TEMPG2             EQUALS   RUPTREG2                              
060487,000299:    5464     0072               TEMPP2             EQUALS   RUPTREG3                              
060488,000300: 
060489,000301:    5464     0073               TEMPBBCN           EQUALS   RUPTREG4                              
060490,000302:    5464  0000006               BB                 EQUALS   BBANK                                 
060491,000303: 
060492,000304: 10,2000                                           SETLOC   PHASETAB                              
060493,000305: 10,2000                                           BANK                                           
060494,000306: 
060495,000307: 10,2473  E3,1436                                  EBANK=   PHSNAME1                              
060496,000308: 10,2473                                           COUNT*   $$/PHASE                              
060497,000309: 10,2473           22073        PHSCHNG2           LXCH     TEMPBBCN                              
060498,000310: 10,2474           30065                           CA       TEMPSW                                
060499,000311: 10,2475           74774                           MASK     OCT7                                  
060500,000312: 10,2476           60000                           DOUBLE                                         
060501,000313: 10,2477           54061                           TS       TEMPG                                 
060502,000314: 
060503,000315: 10,2500           30065                           CA       TEMPSW                                
060504,000316: 10,2501           75056                           MASK     OCT17770                              
060505,000317: 10,2502           00006                           EXTEND                                         
060506,000318: 10,2503           74755                           MP       BIT12                                 
060507,000319: 10,2504           54062                           TS       TEMPP                                 
060508,000320: 
060509,000321: 10,2505           30065                           CA       TEMPSW                                
060510,000322: 10,2506           74076                           MASK     OCT60000                              
060511,000323: 10,2507           56065                           XCH      TEMPSW                                
060512,000324: 10,2510           75053                           MASK     OCT14000                              
060513,000325: 10,2511           10000                           CCS      A                                     
060514,000326: 
060515,000327: 10,2512           15416                           TCF      ONEORTWO                              
060516,000328: 
060517,000329: 10,2513           30062                           CA       TEMPP                                 #  START STORING THE PHASE INFORMATION
060518,000330: 10,2514           50061                           NDX      TEMPG                                 

Page 1409

060520,000332: 10,2515           55154                           TS       PHASE1     -2                         
060521,000333: 
060522,000334: 10,2516           10066        BELOW1             CCS      TEMPSW2                               #  IS IT A PHASCHNG OR A 2PHSCHNG
060523,000335: 10,2517           12533                           TCF      BELOW2                                #  IT:S A PHASCHNG
060524,000336: 
060525,000337: 10,2520           12521                           TCF      +1                                    #  IT:S A 2PHSCHNG
060526,000338: 10,2521           40072                           CS       TEMPP2                                
060527,000339: 10,2522           22072                           LXCH     TEMPP2                                
060528,000340: 10,2523           50071                           NDX      TEMPG2                                
060529,000341: 10,2524           53154                           DXCH     -PHASE1    -2                         
060530,000342: 
060531,000343: 10,2525           10066                           CCS      TEMPSW2                               
060532,000344: 10,2526           12527                           NOOP                                           #  CAN:T GET HERE
060533,000345: 10,2527           12533                           TCF      BELOW2                                
060534,000346: 
060535,000347: 10,2530           40025                           CS       TIME1                                 
060536,000348: 10,2531           50071                           NDX      TEMPG2                                
060537,000349: 10,2532           55255                           TS       TBASE1     -2                         
060538,000350: 
060539,000351: 10,2533           10065        BELOW2             CCS      TEMPSW                                #  SEE IF WE SHOULD SET TBASE OR LONGBASE
060540,000352: 10,2534           12547                           TCF      BELOW3                                #  SET LONGBASE ONLY
060541,000353: 10,2535           12552                           TCF      BELOW4                                #  SET NEITHER
060542,000354: 
060543,000355: 10,2536           40025                           CS       TIME1                                 #  SET TBASE TO BEGIN WITH
060544,000356: 10,2537           50061                           NDX      TEMPG                                 
060545,000357: 10,2540           55255                           TS       TBASE1     -2                         
060546,000358: 
060547,000359: 10,2541           30065                           CA       TEMPSW                                #  SHALL WE NOW SET LONGBASE
060548,000360: 10,2542           62545                           AD       BIT14COM                              
060549,000361: 10,2543           10000                           CCS      A                                     
060550,000362: 10,2544           12545                           NOOP                                           #  ***** CANT GET HERE *****
060551,000363: 10,2545           17777        BIT14COM           OCT      17777                                 #  ***** CANT GET HERE *****
060552,000364: 10,2546           12552                           TCF      BELOW4                                #  NO WE NEED ONLY SET TBASE
060553,000365: 
060554,000366: 10,2547           00006        BELOW3             EXTEND                                         #  SET LONGBASE
060555,000367: 10,2550           30025                           DCA      TIME2                                 
060556,000368: 10,2551           53303                           DXCH     LONGBASE                              
060557,000369: 
060558,000370: 10,2552           40062        BELOW4             CS       TEMPP                                 #  AND STORE THE FINAL PART OF THE PHASE
060559,000371: 10,2553           50061                           NDX      TEMPG                                 
060560,000372: 10,2554           55153                           TS       -PHASE1    -2                         
060561,000373: 
060562,000374: 10,2555           30002                           CA       Q                                     
060563,000375: 10,2556           22073                           LXCH     TEMPBBCN                              
060564,000376: 10,2557           00003                           RELINT                                         
060565,000377: 10,2560           52006                           DTCB                                           
060566,000378: 10,2561           22073        CON2               LXCH     TEMPBBCN                              
060567,000379: 
060568,000380: 10,2562           30062                           CA       TEMPP                                 
060569,000381: 10,2563           50061                           NDX      TEMPG                                 

Page 1410

060571,000383: 10,2564           55154                           TS       PHASE1     -2                         
060572,000384: 
060573,000385: 10,2565           30070                           CA       TEMPPR                                
060574,000386: 10,2566           50061                           NDX      TEMPG                                 
060575,000387: 10,2567           55256                           TS       PHSPRDT1   -2                         
060576,000388: 
060577,000389: 10,2570           00006                           EXTEND                                         
060578,000390: 10,2571           30064                           DCA      TEMPNM                                
060579,000391: 10,2572           50061                           NDX      TEMPG                                 
060580,000392: 10,2573           53435                           DXCH     PHSNAME1   -2                         
060581,000393: 
060582,000394: 10,2574           12516                           TCF      BELOW1                                
060583,000395: 
060584,000396:    4000                                           SETLOC   FFTAG1                                
060585,000397:    4000                                           BANK                                           
060586,000398: 
060587,000399:    5464                                           COUNT*   $$/PHASE                              
060588,000400:    5464           74755        CHECKB             MASK     BIT12                                 #  SINCE THIS IS OF TYPE B, THIS BIT SHOULD
060589,000401:    5465           10000                           CCS      A                                     #  BE HERE IF WE ARE TO GET A NEW PRIORITY
060590,000402:    5466           15451                           TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
060591,000403: 
060592,000404:    5467           15430                           TCF      OLDPRIO                               #  IT ISN:T, USE THE OLD PRIORITY

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