Source Code
059343,000001: # Copyright: Public domain.
059344,000002: # Filename: PHASE_TABLE_MAINTENANCE.agc
059345,000003: # Purpose: Part of the source code for Colossus, build 249.
059346,000004: # It is part of the source code for the Command Module's (CM)
059347,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
059348,000006: # Assembler: yaYUL
059349,000007: # Reference: Starts on p. 1394 of 1701.pdf.
059350,000008: # Contact: Ron Burkey <info@sandroid.org>.
059351,000009: # Website: www.ibiblio.org/apollo.
059352,000010: # Mod history: 08/30/04 RSB. Adapted from corresponding Luminary131 file.
059353,000011:
059354,000012: # The contents of the "Colossus249" files, in general, are transcribed
059355,000013: # from a scanned document obtained from MIT's website,
059356,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
059357,000015: # document read, in part:
059358,000016:
059359,000017: # Assemble revision 249 of AGC program Colossus by NASA
059360,000018: # 2021111-041. October 28, 1968.
059361,000019:
059362,000020: # This AGC program shall also be referred to as
059363,000021: # Colossus 1A
059364,000022:
059365,000023: # Prepared by
059366,000024: # Massachussets Institute of Technology
059367,000025: # 75 Cambridge Parkway
059368,000026: # Cambridge, Massachusetts
059369,000027: # under NASA contract NAS 9-4065.
059370,000028:
059371,000029: # Refer directly to the online document mentioned above for further information.
059372,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
059373,000031:
059374,000032: # In some cases, where the source code for Luminary 131 overlaps that of
059375,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131
059376,000034: # source file, and then is proofed to incorporate any changes.
059377,000035:
059378,000036: # Page 1394
059379,000037: # SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
059380,000038:
059381,000039: 43,3722 COUNT 02/PHASE
059382,000040: 5243 BLOCK 02
059383,000041: 4000 SETLOC FFTAG1
059384,000042: 4000 BANK
059385,000043:
059386,000044: 5243 50002 NEWMODEX INDEX Q # UPDATE MODREG. ENTRY FOR MODE IN FIXED.
059387,000045: # Was CAF --- RSB 2004.
059388,000046: 5244 30000 CA 0
059389,000047: 5245 24002 INCR Q
059390,000048:
059391,000049: 5246 55011 NEWMODEA TS MODREG # ENTRY FOR MODE IN A.
059392,000050: 5247 35252 MMDSPLAY CAF +3 # DISPLAY MAJOR MODE.
059393,000051: 5250 22006 PREBJUMP LXCH BBANK # PUTS BBANK IN L
059394,000052: 5251 14577 TCF BANKJUMP # PUTS Q INTO A
059395,000053: 5252 20344 CADR SETUPDSP
059396,000054:
059397,000055: # RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
059398,000056:
059399,000057: 5253 50002 CHECKMM INDEX Q
059400,000058: 5254 40000 CS 0
059401,000059: 5255 61011 AD MODREG
059402,000060: 5256 00006 EXTEND
059403,000061: 5257 16710 BZF Q+2
059404,000062: 5260 16706 TCF Q+1 # NO MATCH
059405,000063:
059406,000064: 5261 6711 TCQ = Q+2 +1
059407,000065:
059408,000066: 14,3744 BANK 14
059409,000067: 10,2000 SETLOC PHASETAB
059410,000068: 10,2000 BANK
059411,000069:
059412,000070: 10,2344 COUNT 10/PHASE
059413,000071:
059414,000072: 10,2344 00004 SETUPDSP INHINT
059415,000073: 10,2345 52071 DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR
059416,000074: 10,2346 34371 CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
059417,000075: 10,2347 05027 TC NOVAC # NEWMODE X
059418,000076: 10,2350 1011 EBANK= MODREG
059419,000077: 10,2350 03435 60102 2CADR DSPMMJOB
059420,000078:
059421,000079: 10,2352 52071 DXCH RUPTREG1
059422,000080: 10,2353 00003 RELINT
059423,000081: 10,2354 52006 DXCH Z # RETURN
059424,000082:
059425,000083: 10,2355 40,3435 DSPMMJOB EQUALS DSPMMJB
059426,000084:
059427,000085: 5261 BLOCK 02
059428,000086: # Page 1395
059429,000087: 4000 SETLOC FFTAG1
059430,000088: 4000 BANK
059431,000089:
059432,000090: # Page 1396
059433,000091: # PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
059434,000092: # A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
059435,000093: # TC PHASCHNG
059436,000094: # OCT XXXXX
059437,000095: # TYPE A IS CONCERNED WITH FIXED PHAS CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY. THESE
059438,000096: # OPTIONS ARE, WEHRE G STANDS FOR A GROUP AND .X FOR THE PHASE,
059439,000097: # G.0 INACTIVE, WILL NOT PERMIT A GROUP G RESTART
059440,000098: # G.1 WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
059441,000099: # G.EVEN A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
059442,000100: # LONGCALL TO BE RESTARTED.
059443,000101: # G.ODD NOT .1 A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART.
059444,000102:
059445,000103: # THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
059446,000104: # TL0 00P PPP PPP GGG
059447,000105: # WHERE EACH LETTER OR NUMBER STANTS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1-7, THE P'S FOR THE PHASE,
059448,000106: # OCTAL 0 - 127. 0'S MUST BE 0. IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
059449,000107: # T IS SET TO 1, OTHERWISE IT IS SET TO 0. SIMILARLY IF ONE WISHES TO SET LONGBASE, THEN L IS SET TO 1, OTHERWISE
059450,000108: # IT IS SET TO 0. SOME EXAMLES,
059451,000109: # TC PHASCHNG # THIS WILL CAUSE GROUP 3 TO BE SET TO 0,
059452,000110: # OCT 00003 # MAKING GROUP 3 INACTIVE
059453,000111:
059454,000112: # TC PHASCHNG # IF A RESTART OCCURS THIS WOULD CAUSE
059455,000113: # OCT 00012 # GROUP 2 TO RESTART THE LAST DISPLAY
059456,000114:
059457,000115: # TC PHASCHNG # THIS SETS THE TBASE OF GROUP 4 AND IN
059458,000116: # OCT 40064 # CASE OF A RESTART WOULD START UP THE TWO
059459,000117: # # THINGS LOCATED IN THE DOUBLE 4.6 RESTART
059460,000118: # # LOCATION.
059461,000119:
059462,000120: # TC PHASCHNG # THIS SETS LONGBASE AND UPON A RESTART
059463,000121: # OCT 20135 # CAUSES 5.13 TO BE RESTARTED (SINCE
059464,000122: # # LONGBASE WAS SET THIS SINGLE ENTRY
059465,000123: # # SHOULD BE A LONGCALL)
059466,000124:
059467,000125: # TC PHASCHNG # SINCE BOTH TBASE4 AND LONGBASE ARE SET,
059468,000126: # OCT 60124 # 4.12 SHOULD CONTAIN BOTH A TASK AND A
059469,000127: # # LONGCALL TO BE RESTARTED
059470,000128:
059471,000129: # TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A
059472,000130: # PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABLE LOCATION. THE BITS ARE AS FOLLOWS,
059473,000131: # TL0 1AD XXX CJW GGG
059474,000132: # WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1 - 7. IF THE RESTART IS TO
059475,000133: # 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
059476,000134: # 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,
059477,000135: # Page 1397
059478,000136: # AND L FOR LONGBASE. THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
059479,000137: # OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION., IF THIS IS TO BE INDIRECT, THAT
059480,000138: # IS, THE NAME OF A LOCATION CONTAINING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
059481,000139: # THAT LOCATION WHICH CONTAINS THE DELTA TIME. IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
059482,000140: # 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
059483,000141: # THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER
059484,000142: # (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT. IF A IS SET TO 1, THEN THE ADDRESS THAT
059485,000143: # WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATION. EXAMPLES,
059486,000144: # AD TC PHASCHNG # THIS WOULD CAUSE LOCATION AD +3 TO BE
059487,000145: # AD+1 OCT 05023 # RESTARTED BY GROUP THREE WITH A PRIORITY
059488,000146: # AD+2 OCT 23000 # OF 23. NOTE UPON RETURNING IT WOULD
059489,000147: # AD+3 # ALSO GO TO AD+3
059490,000148:
059491,000149: # AD TC PHASCHNG # GROUP 1 WOULD CAUSE CALLCALL TO BE
059492,000150: # AD+1 OCT 27441 # BE STARTED AS A LONGCALL FROM THE TIME
059493,000151: # AD+2 -GENADR DELTIME # STORED IN LONGBASE (LONGBASE WAS SET) BY
059494,000152: # AD+3 2CADR CALLCALL # A DELTA TIME STORED IN DELTIME. THE
059495,000153: # AD+4 # BBCON OF THE 2CADR SHOULD CONTAIN THE E
059496,000154: # AD+5 # BANK OF DELTIME. PHASCHNG RETURNS TO
059497,000155: # # LOCATION AD+5
059498,000156:
059499,000157: # NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
059500,000158: # NEGATIVE, AS A FINDVAC IF TEH PRIORITY IS POSITIVE.
059501,000159:
059502,000160: # TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
059503,000161: # 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
059504,000162: # DOUBLE ENTRY. THE BIT INFORMATION IS AS FOLLOW,
059505,000163: # TL1 DAP PPP PPP GGG
059506,000164: # 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
059507,000165: # PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1. AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS
059508,000166: # TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
059509,000167: # 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
059510,000168: # THE NEXT LOCATION. (THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
059511,000169: # AD TC PHASCHNG # TBASE IS SET AND A RESTART CAUSE GROUP 3
059512,000170: # AD+1 OCT 56043 # TO START THE JOB AJOBAJOB WITH PRIORITY
059513,000171: # AD+2 OCT 31000 # 31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN
059514,000172: # AD+3 2CADR AJOBAJOB # ASSUME IT IS A TASK SINCE WE SET TBASE3)
059515,000173: # AD+4 # UPON RETURN FROM PHASCHNG CONTROL WOULD
059516,000174: # AD+5 # GO TO AD+5
059517,000175:
059518,000176: # AD TC PHASCHNG # UPON A RESTART THE LAST DISPLAY WOULD BE
059519,000177: # AD+1 OCT 10015 # RESTARTED AND A JOB WITH THE PREVIOUSLY
059520,000178: # AD+2 # STORED PRIORITY WOULD BE BEGUN AT AD+2
059521,000179: # # BY MEANS OF GROUP 5
059522,000180: # Page 1398
059523,000181: # THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO -- NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
059524,000182:
059525,000183: # SUMMARY OF BITS:
059526,000184: # TYPE A TL0 00P PPP PPP GGG
059527,000185: # TYPE B TL1 DAP PPP PPP GGG
059528,000186: # TYPE C TL0 1AD XXX CJW GGG
059529,000187:
059530,000188: # Page 1399
059531,000189: # 2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
059532,000190: # GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
059533,000191: # CALLS ARE MADE IN THE FOLLOWING MANNER,
059534,000192: # TC 2PHSCHNG
059535,000193: # OCT XXXXX
059536,000194: # OCT YYYYY
059537,000195: # 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
059538,000196: # DIFFERENCE --- NOTE: IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
059539,000197: # BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
059540,000198: # AD TC 2PHACHNG # SET TBASE3 AND IF A RESTART OCCURS START
059541,000199: # AD+1 OCT 40083 # THE TWO ENTRIES IN 3.8 TABLE LOCATION
059542,000200: # AD+2 OCT 05025 # THIS IS OF TYPE C, SET THE JOB TO BE
059543,000201: # AD+3 OCT 18000 # TO BE LOCATION AD+4, WITH A PRIORITY 18,
059544,000202: # AD+4 # FOR GROUP 5 PHASE INFORMATION.
059545,000203:
059546,000204: 5261 40,2000 SBANK= PINSUPER # RSB 2004.
059547,000205: 5261 COUNT 02/PHASE
059548,000206:
059549,000207: 5261 00004 2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
059550,000208: 5262 50002 NDX Q
059551,000209: 5263 30000 CA 0
059552,000210: 5264 24002 INCR Q
059553,000211: 5265 54072 TS TEMPP2
059554,000212:
059555,000213: 5266 74716 MASK OCT7
059556,000214: 5267 60000 DOUBLE
059557,000215: 5270 54071 TS TEMPG2
059558,000216:
059559,000217: 5271 30072 CA TEMPP2
059560,000218: 5272 74765 MASK OCT17770 # NEED ONLY 1770, BUT WHY GET A NEW CONST.
059561,000219: 5273 00006 EXTEND
059562,000220: 5274 74677 MP BIT12
059563,000221: 5275 56072 XCH TEMPP2
059564,000222:
059565,000223: 5276 74674 MASK BIT15
059566,000224: 5277 54066 TS TEMPSW2 # INDICATES WHETHER TO SET TBASE OR NOT
059567,000225:
059568,000226: 5300 15304 TCF PHASCHNG +3
059569,000227:
059570,000228: 5301 00004 PHASCHNG INHINT # NORMAL PHASCHNG ENTRY POINT.
059571,000229: 5302 34712 CA ONE # INDICATES WE CAME FROM A PHASCHNG ENTRY
059572,000230: 5303 54066 TS TEMPSW2
059573,000231:
059574,000232: 5304 50002 NDX Q
059575,000233: 5305 30000 CA 0
059576,000234: 5306 24002 INCR Q
059577,000235: 5307 54065 TS TEMPSW
059578,000236: # Page 1400
059579,000237: 5310 00006 EXTEND
059580,000238: 5311 35314 DCA ADRPCHN2 # OFF TO SWITCHED BANK
059581,000239: 5312 52006 DTCB
059582,000240:
059583,000241: 5313 E3,1400 EBANK= LST1
059584,000242: 5313 02355 20103 ADRPCHN2 2CADR PHSCHNG2
059585,000243:
059586,000244: 5315 22073 ONEORTWO LXCH TEMPBBCN
059587,000245: 5316 22006 LXCH BBANK
059588,000246: 5317 22073 LXCH TEMPBBCN
059589,000247:
059590,000248: 5320 74761 MASK OCT14000 # SEE WHAT KIND OF PHASE CHANGE IT IS
059591,000249: 5321 10000 CCS A
059592,000250: 5322 15363 TCF CHECKB # IT IS OF TYPE `B'.
059593,000251:
059594,000252: 5323 30062 CA TEMPP
059595,000253: 5324 74704 MASK BIT7
059596,000254: 5325 10000 CCS A # SHALL WE USE THE OLD PRIORITY
059597,000255: 5326 15350 TCF GETPRIO # NO GET A NEW PRIORITY (OR DELTA T)
059598,000256:
059599,000257: 5327 50061 OLDPRIO NDX TEMPG # USE THE OLD PRIORITY (OR DELTA T)
059600,000258: 5330 31052 CA PHSPRDT1 -2
059601,000259: 5331 54070 TS TEMPPR
059602,000260:
059603,000261: 5332 30062 CON1 CA TEMPP # SEE IF A 2CADR IS GIVEN
059604,000262: 5333 74703 MASK BIT8
059605,000263: 5334 10000 CCS A
059606,000264: 5335 15354 TCF GETNEWNM
059607,000265:
059608,000266: 5336 30002 CA Q
059609,000267: 5337 54063 TS TEMPNM
059610,000268: 5340 30006 CA BB
059611,000269: 5341 00006 EXTEND # PICK UP USER'S SUPERBANK
059612,000270: 5342 04007 ROR SUPERBNK
059613,000271: 5343 54064 TS TEMPBB
059614,000272:
059615,000273: 5344 35347 TOCON2 CA CON2ADR # BACK TO SWITCHED BANK
059616,000274: 5345 22073 LXCH TEMPBBCN
059617,000275: 5346 52006 DTCB
059618,000276:
059619,000277: 5347 02443 CON2ADR GENADR CON2
059620,000278:
059621,000279: 5350 50002 GETPRIO NDX Q # DON'T CARE IF DIRECT OR INDIRECT
059622,000280: 5351 30000 CA 0 # LEAVE THAT DECISION TO RESTARTS
059623,000281: 5352 24002 INCR Q # OBTAIN RETURN ADDRESS
059624,000282: 5353 15331 TCF CON1 -1
059625,000283:
059626,000284: 5354 00006 GETNEWNM EXTEND
059627,000285: # Page 1401
059628,000286: 5355 50002 INDEX Q
059629,000287: 5356 30001 DCA 0
059630,000288: 5357 52064 DXCH TEMPNM
059631,000289: 5360 34711 CA TWO
059632,000290: 5361 26002 ADS Q # OBTAIN RETURN ADDRESS
059633,000291:
059634,000292: 5362 15344 TCF TOCON2
059635,000293:
059636,000294: 5363 4761 OCT14000 EQUALS PRIO14
059637,000295: 5363 0061 TEMPG EQUALS ITEMP1
059638,000296: 5363 0062 TEMPP EQUALS ITEMP2
059639,000297: 5363 0063 TEMPNM EQUALS ITEMP3
059640,000298: 5363 0064 TEMPBB EQUALS ITEMP4
059641,000299: 5363 0065 TEMPSW EQUALS ITEMP5
059642,000300: 5363 0066 TEMPSW2 EQUALS ITEMP6
059643,000301: 5363 0070 TEMPPR EQUALS RUPTREG1
059644,000302: 5363 0071 TEMPG2 EQUALS RUPTREG2
059645,000303: 5363 0072 TEMPP2 EQUALS RUPTREG3
059646,000304:
059647,000305: 5363 0073 TEMPBBCN EQUALS RUPTREG4
059648,000306: 5363 0000006 BB EQUALS BBANK
059649,000307:
059650,000308: 14,3744 BANK 14
059651,000309: 10,2000 SETLOC PHASETAB
059652,000310: 10,2000 BANK
059653,000311:
059654,000312: 10,2355 E3,1436 EBANK= PHSNAME1
059655,000313: 10,2355 COUNT 10/PHASE
059656,000314:
059657,000315: 10,2355 22073 PHSCHNG2 LXCH TEMPBBCN
059658,000316: 10,2356 30065 CA TEMPSW
059659,000317: 10,2357 74716 MASK OCT7
059660,000318: 10,2360 60000 DOUBLE
059661,000319: 10,2361 54061 TS TEMPG
059662,000320:
059663,000321: 10,2362 30065 CA TEMPSW
059664,000322: 10,2363 74765 MASK OCT17770
059665,000323: 10,2364 00006 EXTEND
059666,000324: 10,2365 74677 MP BIT12
059667,000325: 10,2366 54062 TS TEMPP
059668,000326:
059669,000327: 10,2367 30065 CA TEMPSW
059670,000328: 10,2370 74105 MASK OCT60000
059671,000329: 10,2371 56065 XCH TEMPSW
059672,000330: 10,2372 74761 MASK OCT14000
059673,000331: 10,2373 10000 CCS A
059674,000332: 10,2374 15315 TCF ONEORTWO
059675,000333:
059676,000334: # Page 1402
059677,000335: 10,2375 30062 CA TEMPP # START STORING THE PHASE INFORMATION
059678,000336: 10,2376 50061 NDX TEMPG
059679,000337: 10,2377 54751 TS PHASE1 -2
059680,000338:
059681,000339: 10,2400 10066 BELOW1 CCS TEMPSW2 # IS IT A PHASCHNG OR A 2PHSCHNG
059682,000340: 10,2401 12415 TCF BELOW2 # IT'S A PHASCHNG
059683,000341:
059684,000342: 10,2402 12403 TCF +1 # IT'S A 2PHSCHNG
059685,000343: 10,2403 40072 CS TEMPP2
059686,000344: 10,2404 22072 LXCH TEMPP2
059687,000345: 10,2405 50071 NDX TEMPG2
059688,000346: 10,2406 52751 DXCH -PHASE1 -2
059689,000347:
059690,000348: 10,2407 10066 CCS TEMPSW2
059691,000349: 10,2410 12411 NOOP # CAN'T GET HERE
059692,000350: 10,2411 12415 TCF BELOW2
059693,000351:
059694,000352: 10,2412 40025 CS TIME1
059695,000353: 10,2413 50071 NDX TEMPG2
059696,000354: 10,2414 55051 TS TBASE1 -2
059697,000355:
059698,000356: 10,2415 10065 BELOW2 CCS TEMPSW # SEE IF WE SHOULD SET TBASE OR LONGBASE
059699,000357: 10,2416 12431 TCF BELOW3 # SET LONGBASE ONLY
059700,000358: 10,2417 12434 TCF BELOW4 # SET NEITHER
059701,000359:
059702,000360: 10,2420 40025 CS TIME1 # SET TBASE TO BEGIN WITH
059703,000361: 10,2421 50061 NDX TEMPG
059704,000362: 10,2422 55051 TS TBASE1 -2
059705,000363:
059706,000364: 10,2423 30065 CA TEMPSW # SHALL WE NOW SET LONGBASE
059707,000365: 10,2424 62427 AD BIT14COM
059708,000366: 10,2425 10000 CCS A
059709,000367: 10,2426 12427 NOOP # ***** CAN'T GET HERE *****
059710,000368: 10,2427 17777 BIT14COM OCT 17777 # ***** CAN'T GET HERE *****
059711,000369: 10,2430 12434 TCF BELOW4 # NO WE NEED ONLY SET TBASE
059712,000370:
059713,000371: 10,2431 00006 BELOW3 EXTEND # SET LONGBASE
059714,000372: 10,2432 30025 DCA TIME2
059715,000373: 10,2433 53136 DXCH LONGBASE
059716,000374:
059717,000375: 10,2434 40062 BELOW4 CS TEMPP # AND STORE THE FINAL PART OF THE PHASE
059718,000376: 10,2435 50061 NDX TEMPG
059719,000377: 10,2436 54750 TS -PHASE1 -2
059720,000378:
059721,000379: 10,2437 30002 CA Q
059722,000380: 10,2440 22073 LXCH TEMPBBCN
059723,000381: 10,2441 00003 RELINT
059724,000382: 10,2442 52006 DTCB
059725,000383: 10,2443 22073 CON2 LXCH TEMPBBCN
059726,000384: # Page 1403
059727,000385: 10,2444 30062 CA TEMPP
059728,000386: 10,2445 50061 NDX TEMPG
059729,000387: 10,2446 54751 TS PHASE1 -2
059730,000388:
059731,000389: 10,2447 30070 CA TEMPPR
059732,000390: 10,2450 50061 NDX TEMPG
059733,000391: 10,2451 55052 TS PHSPRDT1 -2
059734,000392:
059735,000393: 10,2452 00006 EXTEND
059736,000394: 10,2453 30064 DCA TEMPNM
059737,000395: 10,2454 50061 NDX TEMPG
059738,000396: 10,2455 53435 DXCH PHSNAME1 -2
059739,000397:
059740,000398: 10,2456 12400 TCF BELOW1
059741,000399:
059742,000400: 5363 BLOCK 02
059743,000401: 4000 SETLOC FFTAG1
059744,000402: 4000 BANK
059745,000403:
059746,000404: 5363 COUNT 02/PHASE
059747,000405:
059748,000406: 5363 74677 CHECKB MASK BIT12 # SINCE THIS IS OF TYPE 8, THIS BIT WOULD
059749,000407: 5364 10000 CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
059750,000408: 5365 15350 TCF GETPRIO # IT IS, SO GET NEW PRIORITY
059751,000409:
059752,000410: 5366 15327 TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.
059753,000411:
059754,000412:
059755,000413:
End of include-file PHASE_TABLE_MAINTENANCE.agc. Parent file is MAIN.agc