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.

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

Page 1402

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

Page 1403

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

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

Page 1405

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

Page 1406

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

Page 1407

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

Page 1408

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

Page 1409

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

Page 1410

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