Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

058693,000002:                                                                                                  ## Copyright:   Public domain.
058694,000003:                                                                                                  ## Filename:    PHASE_TABLE_MAINTENANCE.agc
058695,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
058696,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
058697,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
058698,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
058699,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
058700,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
058701,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
058702,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
058703,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
058704,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
058705,000014:                                                                                                  ##              reconstruction is correct.
058706,000015:                                                                                                  ## Assembler:   yaYUL
058707,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
058708,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
058709,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
058710,000019: 
058711,000020:                                                                                                  #  SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
058712,000021: 
058713,000022: 43,3736                                           COUNT    02/PHASE                              
058714,000023:    5370                                           BLOCK    02                                    
058715,000024:    4000                                           SETLOC   FFTAG1                                
058716,000025:    4000                                           BANK                                           
058717,000026: 
058718,000027:    5370           50002        NEWMODEX           INDEX    Q                                     #  UPDATE MODREG.  ENTRY FOR MODE IN FIXED.
058719,000028:    5371           30000                           CAF      0                                     
058720,000029:    5372           24002                           INCR     Q                                     
058721,000030: 
058722,000031:    5373           55011        NEWMODEA           TS       MODREG                                #  ENTRY FOR MODE IN A.
058723,000032:    5374           35377        MMDSPLAY           CAF      +3                                    #  DISPLAY MAJOR MODE.
058724,000033:    5375           22006        PREBJUMP           LXCH     BBANK                                 #  PUTS BBANK IN L
058725,000034:    5376           14720                           TCF      BANKJUMP                              #  PUTS Q INTO A
058726,000035:    5377           20440                           CADR     SETUPDSP                              
058727,000036: 
058728,000037:                                                                                                  #  RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1.  OTHERWISE RETURN TO CALLER +2.
058729,000038: 
058730,000039:    5400           50002        CHECKMM            INDEX    Q                                     
058731,000040:    5401           40000                           CS       0                                     
058732,000041:    5402           61011                           AD       MODREG                                
058733,000042:    5403           00006                           EXTEND                                         
058734,000043:    5404           16710                           BZF      Q+2                                   
058735,000044:    5405           16706                           TCF      Q+1                                   #  NO MATCH
058736,000045: 
058737,000046:    5406     6711               TCQ                =        Q+2        +1                         
058738,000047: 
058739,000048: 14,3765                                           BANK     14                                    
058740,000049: 10,2000                                           SETLOC   PHASETAB                              
058741,000050: 10,2000                                           BANK                                           
058742,000051: 
058743,000052: 10,2440                                           COUNT    10/PHASE                              
058744,000053: 
058745,000054: 10,2440           00004        SETUPDSP           INHINT                                         
058746,000055: 10,2441           52071                           DXCH     RUPTREG1                              #  SAVE CALLER-S RETURN 2CADR
058747,000056: 10,2442           34371                           CAF      PRIO30                                #        EITHER A TASK OR JOB CAN COME TO
058748,000057: 10,2443           05150                           TC       NOVAC                                 #        NEWMODEX
058749,000058: 10,2444     1011                                  EBANK=   MODREG                                
058750,000059: 10,2444           03450 60102                     2CADR    DSPMMJOB                              
058751,000060: 
058752,000061: 10,2446           52071                           DXCH     RUPTREG1                              
058753,000062: 10,2447           00003                           RELINT                                         
058754,000063: 10,2450           52006                           DXCH     Z                                     #  RETURN
058755,000064: 
058756,000065: 10,2451  40,3450               DSPMMJOB           EQUALS   DSPMMJB                               
058757,000066: 
058758,000067:    5406                                           BLOCK    02                                    
058759,000068:    4000                                           SETLOC   FFTAG1                                
058760,000069:    4000                                           BANK                                           
058761,000070: 
058762,000071:                                                                                                  #  PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS.  THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
058763,000072:                                                                                                  #  A, TYPE B, AND TYPE C.  THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
058764,000073:                                                                                                  #                TC      PHASCHNG
058765,000074:                                                                                                  #                OCT     XXXXX
058766,000075:                                                                                                  #  TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY.  THESE
058767,000076:                                                                                                  #  OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
058768,000077:                                                                                                  #        G.0             INACTIVE, WILL NOT PERMIT A GROUP G RESTART
058769,000078:                                                                                                  #        G.1             WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
058770,000079:                                                                                                  #        G.EVEN          A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
058771,000080:                                                                                                  #                        LONGCALL TO BE RESTARTED.
058772,000081:                                                                                                  #        G.ODD NOT .1    A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART
058773,000082: 
058774,000083:                                                                                                  #  THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
058775,000084:                                                                                                  #                  TL0 00P PPP PPP GGG                                     ,
058776,000085:                                                                                                  #  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,
058777,000086:                                                                                                  #  OCTAL 0 - 127.  0:S MUST BE 0.  IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
058778,000087:                                                                                                  #  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
058779,000088:                                                                                                  #  IT IS SET TO 0.  SOME EXAMPLES,
058780,000089:                                                                                                  #                TC      PHASCHNG        THIS WILL CAUSE GROUP 3 TO BE SET TO 0,
058781,000090:                                                                                                  #                OCT     00003           MAKING GROUP 3 INACTIVE
058782,000091: 
058783,000092:                                                                                                  #                TC      PHASCHNG        IF A RESTART OCCURS THIS WOULD CAUSE
058784,000093:                                                                                                  #                OCT     00012           GROUP 2 TO RESTART THE LAST DISPLAY
058785,000094: 
058786,000095:                                                                                                  #                TC      PHASCHNG        THIS SETS THE TBASE OF GROUP 4 AND IN
058787,000096:                                                                                                  #                OCT     40064           CASE OF A RESTART WOULD START UP THE TWO
058788,000097:                                                                                                  #                                        THINGS LOCATED IN THE DOUBLE 4.6 RESTART
058789,000098:                                                                                                  #                                        LOCATION
058790,000099: 
058791,000100:                                                                                                  #                TC      PHASCHNG        THIS SETS LONGBASE AND UPON A RESTART
058792,000101:                                                                                                  #                OCT     20135           CAUSES 5.13 TO BE RESTARTED (SINCE
058793,000102:                                                                                                  #                                        LONGBASE WAS SET THIS SINGLE ENTRY
058794,000103:                                                                                                  #                                        SHOULD BE A LONGCALL)
058795,000104: 
058796,000105:                                                                                                  #                TC      PHASCHNG        SINCE BOTH TBASE4 AND LONGBASE ARE SET,
058797,000106:                                                                                                  #                OCT     60124           4.12 SHOULD CONTAIN BOTH A TASK AND A
058798,000107:                                                                                                  #                                        LONGCALL TO BE RESTARTED
058799,000108: 
058800,000109:                                                                                                  #  TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION.  INSTEAD OF THE INFORMATION BEING IN A
058801,000110:                                                                                                  #  PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABKE LOCATION.  THE BITS ARE AS FOLLOWS,
058802,000111:                                                                                                  #        TL0 1AD XXX CJW GGG
058803,000112:                                                                                                  #  WHERE EACH LETTER OR NUMBER STANDS FOR A BIT.  THE G:S STAND FOR THE GROUP, OCTAL 1 - 7.  IF THE RESTART IS TO
058804,000113:                                                                                                  #  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
058805,000114:                                                                                                  #  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,
058806,000115:                                                                                                  #  AND L FOR LONGBASE.  THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION.  IF D IS SET TO 1, A PRIORITY
058807,000116:                                                                                                  #  OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION, IF THIS IS TO BE INDIRECT, THAT
058808,000117:                                                                                                  #  IS, THE NAME OF A LOCATION COMT+INING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
058809,000118:                                                                                                  #  THAT LOCATION WHICH CONTAINS THE DELTA TIME.  IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
058810,000119:                                                                                                  #  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
058811,000120:                                                                                                  #  THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER
058812,000121:                                                                                                  #  (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT.  IF A IS SET TO 1, THEN THE ADDRESS THAT
058813,000122:                                                                                                  #  WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATIONS.  EXAMPLES,
058814,000123:                                                                                                  #        AD      TC      PHASCHNG        THIS WOULD CAUSE LOCATION AD +3 TO BE
058815,000124:                                                                                                  #        AD+1    OCT     05023           RESTARTED BY GROUP THREE WITH A PRIORITY
058816,000125:                                                                                                  #        AD+2    OCT     23000           OF 23.  NOTE UPON RETURNING IT WOULD
058817,000126:                                                                                                  #        AD+3                            ALSO GO TO AD+3
058818,000127: 
058819,000128:                                                                                                  #        AD      TC      PHASCHNG        GROUP  1 WOULD CAUSE CAUSE CALLCALL TO 
058820,000129:                                                                                                  #        AD+1    OCT     27441           BE STARTED AS A LONGCALL FROM THE TIME
058821,000130:                                                                                                  #        AD+2    -GENADR DELTIME         STORED IN LONGBASE (LONGBASE WAS SET) BY
058822,000131:                                                                                                  #        AD+3    2CADR   CALLCALL        A DELTATIME STORED IN DELTIME.  THE
058823,000132:                                                                                                  #        AD+4                            BBCON OF THE 2CADR SHOULD CONTAIN THE E
058824,000133:                                                                                                  #        AD+5                            BANK OF DELTIME.  PHASCHNG RETURNS TO
058825,000134:                                                                                                  #                                        LOCATION AD+5
058826,000135: 
058827,000136:                                                                                                  #  NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
058828,000137:                                                                                                  #  NEGATIVE, AS A FINDVAC IF THE PRIORITY IS POSITIVE.
058829,000138: 
058830,000139:                                                                                                  #  TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES.  IT WILL START UP A JOB AS INDICATED
058831,000140:                                                                                                  #  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
058832,000141:                                                                                                  #  DOUBLE ENTRY.  THE BIT INFORMATION IS AS FOLLOWS,
058833,000142:                                                                                                  #        TL1 DAP PPP PPP GGG
058834,000143:                                                                                                  #  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
058835,000144:                                                                                                  #  PHASE INFORMATION, OCTAL 0 - 127.  1 MUST BE 1.  AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE.  D THIS
058836,000145:                                                                                                  #  TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
058837,000146:                                                                                                  #  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
058838,000147:                                                                                                  #  THE NEXT LOCATION.  (THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
058839,000148:                                                                                                  #        AD      TC      PHASCHNG        TBASE IS SET AND A RESTART CAUSE GROUP 3
058840,000149:                                                                                                  #        AD+1    OCT     56043           TO START THE JOB AJOBAJOB WITH PRIORITY
058841,000150:                                                                                                  #        AD+2    OCT     31000           31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN
058842,000151:                                                                                                  #        AD+3    2CADR   AJOBAJOB        ASSUME IT IS A TASK SINCE WE SET TBASE3)
058843,000152:                                                                                                  #        AD+4                            UPON RETURN FROM PHASCHNG CONTROL WOULD
058844,000153:                                                                                                  #        AD+5                            GO TO AD+5
058845,000154: 
058846,000155:                                                                                                  #        AD      TC      PHASCHNG        UPON A RESTART THE LAST DISPLAY WOULD BE
058847,000156:                                                                                                  #        AD+1    OCT     10015           RESTARTED AND A JOB WITH THE PREVIOUSLY
058848,000157:                                                                                                  #        AD+2                            STORED PRIORITY WOULD BE BEGUN AT AD+2
058849,000158:                                                                                                  #                                        BY MEANS OF GROUP 5
058850,000159:                                                                                                  #  THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
058851,000160: 
058852,000161:                                                                                                  #  SUMMARY OF BITS
058853,000162:                                                                                                  #        TYPE A          TL0 00P PPP PPP GGG
058854,000163:                                                                                                  #        TYPE B          TL1 DAP PPP PPP GGG
058855,000164:                                                                                                  #        TYPE C          TL0 1AD XXX CJW GGG
058856,000165: 
058857,000166:                                                                                                  #  2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
058858,000167:                                                                                                  #  GROUP.  FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5.  ALL 2PHSCHNG
058859,000168:                                                                                                  #  CALLS ARE MADE IN THE FOLLOWING MANNER,
058860,000169:                                                                                                  #                TC      2PHSCHNG
058861,000170:                                                                                                  #                OCT     XXXXX
058862,000171:                                                                                                  #                OCT     YYYYY
058863,000172:                                                                                                  #  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
058864,000173:                                                                                                  #  DIFFERENCE --- NOTE- IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
058865,000174:                                                                                                  #  BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION.  A COUPLE OF EXAMPLES MAY HELP,
058866,000175:                                                                                                  #        AD      TC      2PHSCHNG        SET TBASE3 AND IF A RESTART OCCURS START
058867,000176:                                                                                                  #        AD+1    OCT     40083           THE TWO ENTRIES IN 3.8 TABLE LOCATION
058868,000177:                                                                                                  #        AD+2    OCT     05025           THIS IS OF TYPE C, SET THE JOB TO BE
058869,000178:                                                                                                  #        AD+3    OCT     18000           TO BE LOCATION AD+4, WITH A PRIORITY 18,
058870,000179:                                                                                                  #        AD+4                            FOR GROUP 5 PHASE INFORMATION
058871,000180: 
058872,000181:    5406                                           COUNT    02/PHASE                              
058873,000182: 
058874,000183:    5406           00004        2PHSCHNG           INHINT                                         #  THE ENTRY FOR A DOUBLE PHASE CHANGE
058875,000184:    5407           50002                           NDX      Q                                     
058876,000185:    5410           30000                           CA       0                                     
058877,000186:    5411           24002                           INCR     Q                                     
058878,000187:    5412           54072                           TS       TEMPP2                                
058879,000188: 
058880,000189:    5413           75037                           MASK     OCT7                                  
058881,000190:    5414           60000                           DOUBLE                                         
058882,000191:    5415           54071                           TS       TEMPG2                                
058883,000192: 
058884,000193:    5416           30072                           CA       TEMPP2                                
058885,000194:    5417           75106                           MASK     OCT17770                              #  NEED ONLY 1770, BUT WHY GET A NEW CONST.
058886,000195:    5420           00006                           EXTEND                                         
058887,000196:    5421           75020                           MP       BIT12                                 
058888,000197:    5422           56072                           XCH      TEMPP2                                
058889,000198: 
058890,000199:    5423           75015                           MASK     BIT15                                 
058891,000200:    5424           54066                           TS       TEMPSW2                               #  INDICATES WHETHER TO SET TBASE OR NOT
058892,000201: 
058893,000202:    5425           15431                           TCF      PHASCHNG   +3                         
058894,000203: 
058895,000204:    5426           00004        PHASCHNG           INHINT                                         
058896,000205:    5427           35033                           CA       ONE                                   #  INDICATESWE CAME FROM A PHASCHNG ENTRY
058897,000206:    5430           54066                           TS       TEMPSW2                               
058898,000207: 
058899,000208:    5431           50002                           NDX      Q                                     
058900,000209:    5432           30000                           CA       0                                     
058901,000210:    5433           24002                           INCR     Q                                     
058902,000211:    5434           54065                           TS       TEMPSW                                
058903,000212:    5435           00006                           EXTEND                                         
058904,000213:    5436           35441                           DCA      ADRPCHN2                              #  OFF TO SWITCHED BANK
058905,000214:    5437           52006                           DTCB                                           
058906,000215: 
058907,000216:    5440  E3,1400                                  EBANK=   LST1                                  
058908,000217:    5440           02451 20063  ADRPCHN2           2CADR    PHSCHNG2                              
058909,000218: 
058910,000219:    5442           22073        ONEORTWO           LXCH     TEMPBBCN                              
058911,000220:    5443           22006                           LXCH     BBANK                                 
058912,000221:    5444           22073                           LXCH     TEMPBBCN                              
058913,000222: 
058914,000223:    5445           75102                           MASK     OCT14000                              #  SEE WHAT KIND OF PHASE CHANGE IT IS
058915,000224:    5446           10000                           CCS      A                                     
058916,000225:    5447           15510                           TCF      CHECKB                                #  IT IS OF TYPE :B:
058917,000226: 
058918,000227:    5450           30062                           CA       TEMPP                                 
058919,000228:    5451           75025                           MASK     BIT7                                  
058920,000229:    5452           10000                           CCS      A                                     #  SHALL WE USE THE OLD PRIORITY
058921,000230:    5453           15475                           TCF      GETPRIO                               #  NO GET A NEW PRIORITY (OR DELTA T)
058922,000231: 
058923,000232:    5454           50061        OLDPRIO            NDX      TEMPG                                 #  USE THE OLD PRIORITY (OR DELTA T)
058924,000233:    5455           31052                           CA       PHSPRDT1   -2                         
058925,000234:    5456           54070                           TS       TEMPPR                                
058926,000235: 
058927,000236:    5457           30062        CON1               CA       TEMPP                                 #  SEE IF A 2CADR IS GIVEN
058928,000237:    5460           75024                           MASK     BIT8                                  
058929,000238:    5461           10000                           CCS      A                                     
058930,000239:    5462           15501                           TCF      GETNEWNM                              
058931,000240: 
058932,000241:    5463           30002                           CA       Q                                     
058933,000242:    5464           54063                           TS       TEMPNM                                
058934,000243:    5465           30006                           CA       BB                                    
058935,000244:    5466           00006                           EXTEND                                         #  PICK UP USERS SUPERBANK
058936,000245:    5467           04007                           ROR      SUPERBNK                              
058937,000246:    5470           54064                           TS       TEMPBB                                
058938,000247: 
058939,000248:    5471           35474        TOCON2             CA       CON2ADR                               #  BACK TO SWITCHED BANK
058940,000249:    5472           22073                           LXCH     TEMPBBCN                              
058941,000250:    5473           52006                           DTCB                                           
058942,000251: 
058943,000252:    5474           02537        CON2ADR            GENADR   CON2                                  
058944,000253: 
058945,000254:    5475           50002        GETPRIO            NDX      Q                                     #  DON:T CARE IF DIRECT OR INDIRECT
058946,000255:    5476           30000                           CA       0                                     #  LEAVE THAT DECISION TO RESTARTS
058947,000256:    5477           24002                           INCR     Q                                     #  OBTAIN RETURN ADDRESS
058948,000257:    5500           15456                           TCF      CON1       -1                         
058949,000258: 
058950,000259:    5501           00006        GETNEWNM           EXTEND                                         
058951,000260:    5502           50002                           INDEX    Q                                     
058952,000261:    5503           30001                           DCA      0                                     
058953,000262:    5504           52064                           DXCH     TEMPNM                                
058954,000263:    5505           35032                           CA       TWO                                   
058955,000264:    5506           26002                           ADS      Q                                     #  OBTAIN RETURN ADDRESS
058956,000265: 
058957,000266:    5507           15471                           TCF      TOCON2                                
058958,000267: 
058959,000268:    5510     5102               OCT14000           EQUALS   PRIO14                                
058960,000269:    5510     0061               TEMPG              EQUALS   ITEMP1                                
058961,000270:    5510     0062               TEMPP              EQUALS   ITEMP2                                
058962,000271:    5510     0063               TEMPNM             EQUALS   ITEMP3                                
058963,000272:    5510     0064               TEMPBB             EQUALS   ITEMP4                                
058964,000273:    5510     0065               TEMPSW             EQUALS   ITEMP5                                
058965,000274:    5510     0066               TEMPSW2            EQUALS   ITEMP6                                
058966,000275:    5510     0070               TEMPPR             EQUALS   RUPTREG1                              
058967,000276:    5510     0071               TEMPG2             EQUALS   RUPTREG2                              
058968,000277:    5510     0072               TEMPP2             EQUALS   RUPTREG3                              
058969,000278: 
058970,000279:    5510     0073               TEMPBBCN           EQUALS   RUPTREG4                              
058971,000280:    5510  0000006               BB                 EQUALS   BBANK                                 
058972,000281: 
058973,000282: 14,3765                                           BANK     14                                    
058974,000283: 10,2000                                           SETLOC   PHASETAB                              
058975,000284: 10,2000                                           BANK                                           
058976,000285: 
058977,000286: 10,2451  E3,1436                                  EBANK=   PHSNAME1                              
058978,000287: 10,2451                                           COUNT    10/PHASE                              
058979,000288: 
058980,000289: 10,2451           22073        PHSCHNG2           LXCH     TEMPBBCN                              
058981,000290: 10,2452           30065                           CA       TEMPSW                                
058982,000291: 10,2453           75037                           MASK     OCT7                                  
058983,000292: 10,2454           60000                           DOUBLE                                         
058984,000293: 10,2455           54061                           TS       TEMPG                                 
058985,000294: 
058986,000295: 10,2456           30065                           CA       TEMPSW                                
058987,000296: 10,2457           75106                           MASK     OCT17770                              
058988,000297: 10,2460           00006                           EXTEND                                         
058989,000298: 10,2461           75020                           MP       BIT12                                 
058990,000299: 10,2462           54062                           TS       TEMPP                                 
058991,000300: 
058992,000301: 10,2463           30065                           CA       TEMPSW                                
058993,000302: 10,2464           74105                           MASK     OCT60000                              
058994,000303: 10,2465           56065                           XCH      TEMPSW                                
058995,000304: 10,2466           75102                           MASK     OCT14000                              
058996,000305: 10,2467           10000                           CCS      A                                     
058997,000306: 10,2470           15442                           TCF      ONEORTWO                              
058998,000307: 
058999,000308: 10,2471           30062                           CA       TEMPP                                 #  START STORING THE PHASE INFORMATION
059000,000309: 10,2472           50061                           NDX      TEMPG                                 
059001,000310: 10,2473           54751                           TS       PHASE1     -2                         
059002,000311: 
059003,000312: 10,2474           10066        BELOW1             CCS      TEMPSW2                               #  IS IT A PHASCHNG OR A 2PHSCHNG
059004,000313: 10,2475           12511                           TCF      BELOW2                                #  IT:S A PHASCHNG
059005,000314: 
059006,000315: 10,2476           12477                           TCF      +1                                    #  IT:S A 2PHSCHNG
059007,000316: 10,2477           40072                           CS       TEMPP2                                
059008,000317: 10,2500           22072                           LXCH     TEMPP2                                
059009,000318: 10,2501           50071                           NDX      TEMPG2                                
059010,000319: 10,2502           52751                           DXCH     -PHASE1    -2                         
059011,000320: 
059012,000321: 10,2503           10066                           CCS      TEMPSW2                               
059013,000322: 10,2504           12505                           NOOP                                           #  CAN:T GET HERE
059014,000323: 10,2505           12511                           TCF      BELOW2                                
059015,000324: 
059016,000325: 10,2506           40025                           CS       TIME1                                 
059017,000326: 10,2507           50071                           NDX      TEMPG2                                
059018,000327: 10,2510           55051                           TS       TBASE1     -2                         
059019,000328: 
059020,000329: 10,2511           10065        BELOW2             CCS      TEMPSW                                #  SEE IF WE SHOULD SET TBASE OR LONGBASE
059021,000330: 10,2512           12525                           TCF      BELOW3                                #  SET LONGBASE ONLY
059022,000331: 10,2513           12530                           TCF      BELOW4                                #  SET NEITHER
059023,000332: 
059024,000333: 10,2514           40025                           CS       TIME1                                 #  SET TBASE TO BEGIN WITH
059025,000334: 10,2515           50061                           NDX      TEMPG                                 
059026,000335: 10,2516           55051                           TS       TBASE1     -2                         
059027,000336: 
059028,000337: 10,2517           30065                           CA       TEMPSW                                #  SHALL WE NOW SET LONGBASE
059029,000338: 10,2520           62523                           AD       BIT14COM                              
059030,000339: 10,2521           10000                           CCS      A                                     
059031,000340: 10,2522           12523                           NOOP                                           #  ***** CANT GET HERE *****
059032,000341: 10,2523           17777        BIT14COM           OCT      17777                                 #  ***** CANT GET HERE *****
059033,000342: 10,2524           12530                           TCF      BELOW4                                #  NO WE NEED ONLY SET TBASE
059034,000343: 
059035,000344: 10,2525           00006        BELOW3             EXTEND                                         #  SET LONGBASE
059036,000345: 10,2526           30025                           DCA      TIME2                                 
059037,000346: 10,2527           53136                           DXCH     LONGBASE                              
059038,000347: 
059039,000348: 10,2530           40062        BELOW4             CS       TEMPP                                 #  AND STORE THE FINAL PART OF THE PHASE
059040,000349: 10,2531           50061                           NDX      TEMPG                                 
059041,000350: 10,2532           54750                           TS       -PHASE1    -2                         
059042,000351: 
059043,000352: 10,2533           30002                           CA       Q                                     
059044,000353: 10,2534           22073                           LXCH     TEMPBBCN                              
059045,000354: 10,2535           00003                           RELINT                                         
059046,000355: 10,2536           52006                           DTCB                                           
059047,000356: 10,2537           22073        CON2               LXCH     TEMPBBCN                              
059048,000357: 10,2540           30062                           CA       TEMPP                                 
059049,000358: 10,2541           50061                           NDX      TEMPG                                 
059050,000359: 10,2542           54751                           TS       PHASE1     -2                         
059051,000360: 
059052,000361: 10,2543           30070                           CA       TEMPPR                                
059053,000362: 10,2544           50061                           NDX      TEMPG                                 
059054,000363: 10,2545           55052                           TS       PHSPRDT1   -2                         
059055,000364: 
059056,000365: 10,2546           00006                           EXTEND                                         
059057,000366: 10,2547           30064                           DCA      TEMPNM                                
059058,000367: 10,2550           50061                           NDX      TEMPG                                 
059059,000368: 10,2551           53435                           DXCH     PHSNAME1   -2                         
059060,000369: 
059061,000370: 10,2552           12474                           TCF      BELOW1                                
059062,000371: 
059063,000372:    5510                                           BLOCK    02                                    
059064,000373:    4000                                           SETLOC   FFTAG1                                
059065,000374:    4000                                           BANK                                           
059066,000375: 
059067,000376:    5510                                           COUNT    02/PHASE                              
059068,000377: 
059069,000378:    5510           75020        CHECKB             MASK     BIT12                                 #  SINCE THIS IS OF TYPE B, THIS BIT SHOULD
059070,000379:    5511           10000                           CCS      A                                     #  BE HERE IF WE ARE TO GET A NEW PRIORITY
059071,000380:    5512           15475                           TCF      GETPRIO                               #  IT IS, SO GET NEW PRIORITY
059072,000381: 
059073,000382:    5513           15454                           TCF      OLDPRIO                               #  IT ISN:T, USE THE OLD PRIORITY
059074,000383: 
059075,000384: 
059076,000385: 

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