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.

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

Page 1402

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

Page 1403

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

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

Page 1405

060343,000168: 
060344,000169:                                                                                                  #  THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
060345,000170: 
060346,000171: 
060347,000172:                                                                                                  #  SUMMARY OF BITS
060348,000173: 
060349,000174:                                                                                                  #  TYPE A                TL0 00P PPP PPP GGG
060350,000175: 
060351,000176:                                                                                                  #  TYPE B                TL1 DAP PPP PPP GGG
060352,000177: 
060353,000178:                                                                                                  #  TYPE C                TL0 1AD XXX CJW GGG
060354,000179: 
060355,000180: 

Page 1406

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

Page 1407

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

Page 1408

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

Page 1409

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

Page 1410

060558,000383: 10,2564           55154                           TS       PHASE1     -2                         
060559,000384: 
060560,000385: 10,2565           30070                           CA       TEMPPR                                
060561,000386: 10,2566           50061                           NDX      TEMPG                                 
060562,000387: 10,2567           55256                           TS       PHSPRDT1   -2                         
060563,000388: 
060564,000389: 10,2570           00006                           EXTEND                                         
060565,000390: 10,2571           30064                           DCA      TEMPNM                                
060566,000391: 10,2572           50061                           NDX      TEMPG                                 
060567,000392: 10,2573           53435                           DXCH     PHSNAME1   -2                         
060568,000393: 
060569,000394: 10,2574           12516                           TCF      BELOW1                                
060570,000395: 
060571,000396:    4000                                           SETLOC   FFTAG1                                
060572,000397:    4000                                           BANK                                           
060573,000398: 
060574,000399:    5464                                           COUNT*   $$/PHASE                              
060575,000400:    5464           74755        CHECKB             MASK     BIT12                                 #  SINCE THIS IS OF TYPE B, THIS BIT SHOULD
060576,000401:    5465           10000                           CCS      A                                     #  BE HERE IF WE ARE TO GET A NEW PRIORITY
060577,000402:    5466           15451                           TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
060578,000403: 
060579,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