Source Code
055099,000001: # Copyright: Public domain.
055100,000002: # Filename: PHASE_TABLE_MAINTENANCE.agc
055101,000003: # Purpose: Part of the source code for Luminary 1A build 099.
055102,000004: # It is part of the source code for the Lunar Module's (LM)
055103,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
055104,000006: # Assembler: yaYUL
055105,000007: # Contact: Onno Hommes <ohommes@cmu.edu>.
055106,000008: # Website: www.ibiblio.org/apollo.
055107,000009: # Pages: 1294-1302
055108,000010: # Mod history: 2009-05-26 OH Transcribed from page images.
055109,000011: # 2009-06-05 RSB A few lines at the bottom of page image
055110,000012: # 1294 were truncated. I've fixed the page
055111,000013: # image and added those missing lines here.
055112,000014: # 2011-05-07 JL Flagged SBANK= workaround for future
055113,000015: # removal.
055114,000016:
055115,000017: # This source code has been transcribed or otherwise adapted from
055116,000018: # digitized images of a hardcopy from the MIT Museum. The digitization
055117,000019: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
055118,000020: # the Museum. Many thanks to both. The images (with suitable reduction
055119,000021: # in storage size and consequent reduction in image quality as well) are
055120,000022: # available online at www.ibiblio.org/apollo. If for some reason you
055121,000023: # find that the images are illegible, contact me at info@sandroid.org
055122,000024: # about getting access to the (much) higher-quality images which Paul
055123,000025: # actually created.
055124,000026:
055125,000027: # Notations on the hardcopy document read, in part:
055126,000028:
055127,000029: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
055128,000030: # 16:27 JULY 14, 1969
055129,000031:
055130,000032: # Page 1294
055131,000033: # SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
055132,000034:
055133,000035: 43,3724 COUNT* $$/PHASE
055134,000036: 5311 BLOCK 02
055135,000037: 4000 SETLOC FFTAG1
055136,000038: 4000 BANK
055137,000039:
055138,000040: 5311 50002 NEWMODEX INDEX Q # UPDATE MODREG. ENTRY FOR MODE IN FIXED.
055139,000041: 5312 30000 CAF 0
055140,000042: 5313 24002 INCR Q
055141,000043:
055142,000044: 5314 55011 NEWMODEA TS MODREG # ENTRY FOR MODE IN A.
055143,000045: 5315 35320 MMDSPLAY CAF +3 # DISPLAY MAJOR MODE.
055144,000046: 5316 22006 PREBJUMP LXCH BBANK # PUTS BBANK IN L
055145,000047: 5317 14640 TCF BANKJUMP # PUTS Q INTO A
055146,000048: 5320 20213 CADR SETUPDSP
055147,000049:
055148,000050: # RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
055149,000051:
055150,000052: 5321 50002 CHECKMM INDEX Q
055151,000053: 5322 40000 CS 0
055152,000054: 5323 61011 AD MODREG
055153,000055: 5324 00006 EXTEND
055154,000056: 5325 16741 BZF Q+2
055155,000057: 5326 16737 TCF Q+1 # NO MATCH
055156,000058:
055157,000059: 5327 6742 TCQ = Q+2 +1
055158,000060:
055159,000061: 14,3774 BANK 14
055160,000062: 10,2000 SETLOC PHASETAB
055161,000063: 10,2000 BANK
055162,000064:
055163,000065: 10,2213 COUNT* $$/PHASE
055164,000066: 10,2213 00004 SETUPDSP INHINT
055165,000067: 10,2214 52071 DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR
055166,000068: 10,2215 34355 CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
055167,000069: 10,2216 05072 TC NOVAC # NEWMODE X
055168,000070: 10,2217 1011 EBANK= MODREG
055169,000071: 10,2217 03534 60102 2CADR DSPMMJOB
055170,000072:
055171,000073: 10,2221 52071 DXCH RUPTREG1
055172,000074: 10,2222 00003 RELINT
055173,000075: 10,2223 52006 DXCH Z # RETURN
055174,000076:
055175,000077: 10,2224 40,3534 DSPMMJOB EQUALS DSPMMJB
055176,000078:
055177,000079: 5327 BLOCK 02
055178,000080: 4000 SETLOC FFTAG1
055179,000081: 4000 BANK
055180,000082:
055181,000083: # Page 1295
055182,000084: # PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
055183,000085: # A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
055184,000086: # TC PHASCHNG
055185,000087: # OCT XXXXX
055186,000088: # TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY. THESE
055187,000089: # OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
055188,000090: # G.0 INACTIVE, WILL NOT PERMIT A GROUP G RESTART
055189,000091: # G.1 WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
055190,000092: # G.EVEN A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
055191,000093: # LONGCALL TO BE RESTARTED.
055192,000094: # G.ODD NOT .1 A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART.
055193,000095:
055194,000096: # THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
055195,000097: # TL0 00P PPP PPP GGG
055196,000098: # 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,
055197,000099: # OCTAL 0 - 127. 0'S MUST BE 0. IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
055198,000100: # 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
055199,000101: # IT IS SET TO 0. SOME EXAMPLES,
055200,000102: # TC PHASCHNG # THIS WILL CAUSE GROUP 3 TO BE SET TO 0,
055201,000103: # OCT 00003 # MAKING GROUP 3 INACTIVE
055202,000104:
055203,000105: # TC PHASCHNG # IF A RESTART OCCURS THIS WOULD CAUSE
055204,000106: # OCT 00012 # GROUP 2 TO RESTART THE LAST DISPLAY
055205,000107:
055206,000108: # TC PHASCHNG # THIS SETS THE TBASE OF GROUP 4 AND IN
055207,000109: # OCT 40064 # CASE OF A RESTART WOULD START UP THE TWO
055208,000110: # # THINGS LOCATED IN THE DOUBLE 4.6 RESTART
055209,000111: # # LOCATION.
055210,000112:
055211,000113: # TC PHASCHNG # THIS SETS LONGBASE AND UPON A RESTART
055212,000114: # OCT 20135 # CAUSES 5.13 TO BE RESTARTED (SINCE
055213,000115: # # LONGBASE WAS SET THIS SINGLE ENTRY
055214,000116: # # SHOULD BE A LONGCALL)
055215,000117:
055216,000118: # TC PHASCHNG # SINCE BOTH TBASE4 AND LONGBASE ARE SET,
055217,000119: # OCT 60124 # 4.12 SHOULD CONTAIN BOTH A TASK AND A
055218,000120: # # LONGCALL TO BE RESTARTED
055219,000121:
055220,000122: # TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A
055221,000123: # PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABLE LOCATION. THE BITS ARE AS FOLLOWS,
055222,000124: # TL0 1AD XXX CJW GGG
055223,000125: # WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1 - 7. IF THE RESTART IS TO
055224,000126: # 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
055225,000127: # 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,
055226,000128: # Page 1296
055227,000129: # AND L FOR LONGBASE. THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
055228,000130: # OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION., IF THIS IS TO BE INDIRECT, THAT
055229,000131: # IS, THE NAME OF A LOCATION CONTAINING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
055230,000132: # THAT LOCATION WHICH CONTAINS THE DELTA TIME. IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
055231,000133: # 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
055232,000134: # THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER
055233,000135: # (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT. IF A IS SET TO 1, THEN THE ADDRESS THAT
055234,000136: # WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATION. EXAMPLES,
055235,000137: # AD TC PHASCHNG # THIS WOULD CAUSE LOCATION AD +3 TO BE
055236,000138: # AD+1 OCT 05023 # RESTARTED BY GROUP THREE WITH A PRIORITY
055237,000139: # AD+2 OCT 23000 # OF 23. NOTE UPON RETURNING IT WOULD
055238,000140: # AD+3 # ALSO GO TO AD+3
055239,000141:
055240,000142: # AD TC PHASCHNG # GROUP 1 WOULD CAUSE CALLCALL TO BE
055241,000143: # AD+1 OCT 27441 # BE STARTED AS A LONGCALL FROM THE TIME
055242,000144: # AD+2 -GENADR DELTIME # STORED IN LONGBASE (LONGBASE WAS SET) BY
055243,000145: # AD+3 2CADR CALLCALL # A DELTA TIME STORED IN DELTIME. THE
055244,000146: # AD+4 # BBCON OF THE 2CADR SHOULD CONTAIN THE E
055245,000147: # AD+5 # BANK OF DELTIME. PHASCHNG RETURNS TO
055246,000148: # # LOCATION AD+5
055247,000149:
055248,000150: # NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
055249,000151: # NEGATIVE, AS A FINDVAC IF TEH PRIORITY IS POSITIVE.
055250,000152:
055251,000153: # TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
055252,000154: # 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
055253,000155: # DOUBLE ENTRY. THE BIT INFORMATION IS AS FOLLOW,
055254,000156: # TL1 DAP PPP PPP GGG
055255,000157: # 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
055256,000158: # PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1. AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS
055257,000159: # TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
055258,000160: # 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
055259,000161: # THE NEXT LOCATION. (THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
055260,000162: # AD TC PHASCHNG # TBASE IS SET AND A RESTART CAUSE GROUP 3
055261,000163: # AD+1 OCT 56043 # TO START THE JOB AJOBAJOB WITH PRIORITY
055262,000164: # AD+2 OCT 31000 # 31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN
055263,000165: # AD+3 2CADR AJOBAJOB # ASSUME IT IS A TASK SINCE WE SET TBASE3)
055264,000166: # AD+4 # UPON RETURN FROM PHASCHNG CONTROL WOULD
055265,000167: # AD+5 # GO TO AD+5
055266,000168:
055267,000169: # AD TC PHASCHNG # UPON A RESTART THE LAST DISPLAY WOULD BE
055268,000170: # AD+1 OCT 10015 # RESTARTED AND A JOB WITH THE PREVIOUSLY
055269,000171: # AD+2 # STORED PRIORITY WOULD BE BEGUN AT AD+2
055270,000172: # # BY MEANS OF GROUP 5
055271,000173: # Page 1297
055272,000174: # THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO -- NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
055273,000175:
055274,000176: # SUMMARY OF BITS:
055275,000177: # TYPE A TL0 00P PPP PPP GGG
055276,000178: # TYPE B TL1 DAP PPP PPP GGG
055277,000179: # TYPE C TL0 1AD XXX CJW GGG
055278,000180:
055279,000181: # Page 1298
055280,000182: # 2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
055281,000183: # GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
055282,000184: # CALLS ARE MADE IN THE FOLLOWING MANNER,
055283,000185: # TC 2PHSCHNG
055284,000186: # OCT XXXXX
055285,000187: # OCT YYYYY
055286,000188: # 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
055287,000189: # DIFFERENCE --- NOTE: IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
055288,000190: # BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
055289,000191: # AD TC 2PHACHNG # SET TBASE3 AND IF A RESTART OCCURS START
055290,000192: # AD+1 OCT 40083 # THE TWO ENTRIES IN 3.8 TABLE LOCATION
055291,000193: # AD+2 OCT 05025 # THIS IS OF TYPE C, SET THE JOB TO BE
055292,000194: # AD+3 OCT 18000 # TO BE LOCATION AD+4, WITH A PRIORITY 18,
055293,000195: # AD+4 # FOR GROUP 5 PHASE INFORMATION.
055294,000196:
![]() |
[WORKAROUND] RSB 2004 |
055296,000198: 5327 40,2000 SBANK= PINSUPER
![]() |
[WORKAROUND] |
055298,000200:
055299,000201: 5327 COUNT* $$/PHASE
055300,000202: 5327 00004 2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
055301,000203: 5330 50002 NDX Q
055302,000204: 5331 30000 CA 0
055303,000205: 5332 24002 INCR Q
055304,000206: 5333 54072 TS TEMPP2
055305,000207:
055306,000208: 5334 74757 MASK OCT7
055307,000209: 5335 60000 DOUBLE
055308,000210: 5336 54071 TS TEMPG2
055309,000211:
055310,000212: 5337 30072 CA TEMPP2
055311,000213: 5340 75030 MASK OCT17770 # NEED ONLY 1770, BUT WHY GET A NEW CONST.
055312,000214: 5341 00006 EXTEND
055313,000215: 5342 74740 MP BIT12
055314,000216: 5343 56072 XCH TEMPP2
055315,000217:
055316,000218: 5344 74735 MASK BIT15
055317,000219: 5345 54066 TS TEMPSW2 # INDICATES WHETHER TO SET TBASE OR NOT
055318,000220:
055319,000221: 5346 50002 INDEX Q
055320,000222: 5347 30000 CA 0
055321,000223: 5350 24002 INCR Q
055322,000224: 5351 54065 TS TEMPSW
055323,000225:
055324,000226: 5352 15363 TCF PHASJUMP
055325,000227:
055326,000228: 5353 00004 PHASCHNG INHINT # NORMAL PHASCHNG ENTRY POINT.
055327,000229: 5354 50002 INDEX Q
055328,000230: 5355 30000 CA 0
055329,000231: 5356 24002 INCR Q
055330,000232: 5357 00004 PHSCHNGA INHINT # FIRST OCTAL PARAMETER IN A.
055331,000233: # Page 1299
055332,000234: 5360 54065 TS TEMPSW
055333,000235: 5361 34753 CA ONE
055334,000236: 5362 54066 TS TEMPSW2
055335,000237: 5363 00006 PHASJUMP EXTEND
055336,000238: 5364 35367 DCA ADRPCHN2 # OFF TO SWITCHED BANK
055337,000239: 5365 52006 DTCB
055338,000240:
055339,000241: 5366 E3,1400 EBANK= LST1
055340,000242: 5366 02224 20103 ADRPCHN2 2CADR PHSCHNG2
055341,000243:
055342,000244: 5370 22073 ONEORTWO LXCH TEMPBBCN
055343,000245: 5371 22006 LXCH BBANK
055344,000246: 5372 22073 LXCH TEMPBBCN
055345,000247:
055346,000248: 5373 75024 MASK OCT14000 # SEE WHAT KIND OF PHASE CHANGE IT IS
055347,000249: 5374 10000 CCS A
055348,000250: 5375 17750 TCF CHECKB # IT IS OF TYPE `B'.
055349,000251:
055350,000252: 5376 30062 CA TEMPP
055351,000253: 5377 74745 MASK BIT7
055352,000254: 5400 10000 CCS A # SHALL WE USE THE OLD PRIORITY
055353,000255: 5401 15423 TCF GETPRIO # NO GET A NEW PRIORITY (OR DELTA T)
055354,000256:
055355,000257: 5402 50061 OLDPRIO NDX TEMPG # USE THE OLD PRIORITY (OR DELTA T)
055356,000258: 5403 31052 CA PHSPRDT1 -2
055357,000259: 5404 54070 TS TEMPPR
055358,000260:
055359,000261: 5405 30062 CON1 CA TEMPP # SEE IF A 2CADR IS GIVEN
055360,000262: 5406 74744 MASK BIT8
055361,000263: 5407 10000 CCS A
055362,000264: 5410 15427 TCF GETNEWNM
055363,000265:
055364,000266: 5411 30002 CA Q
055365,000267: 5412 54063 TS TEMPNM
055366,000268: 5413 30006 CA BB
055367,000269: 5414 00006 EXTEND # PICK UP USER'S SUPERBANK
055368,000270: 5415 04007 ROR SUPERBNK
055369,000271: 5416 54064 TS TEMPBB
055370,000272:
055371,000273: 5417 35422 TOCON2 CA CON2ADR # BACK TO SWITCHED BANK
055372,000274: 5420 22073 LXCH TEMPBBCN
055373,000275: 5421 52006 DTCB
055374,000276:
055375,000277: 5422 02312 CON2ADR GENADR CON2
055376,000278:
055377,000279: 5423 50002 GETPRIO NDX Q # DON'T CARE IF DIRECT OR INDIRECT
055378,000280: 5424 30000 CA 0 # LEAVE THAT DECISION TO RESTARTS
055379,000281: 5425 24002 INCR Q # OBTAIN RETURN ADDRESS
055380,000282: # Page 1300
055381,000283: 5426 15404 TCF CON1 -1
055382,000284:
055383,000285: 5427 00006 GETNEWNM EXTEND
055384,000286: 5430 50002 INDEX Q
055385,000287: 5431 30001 DCA 0
055386,000288: 5432 52064 DXCH TEMPNM
055387,000289: 5433 34752 CA TWO
055388,000290: 5434 26002 ADS Q # OBTAIN RETURN ADDRESS
055389,000291:
055390,000292: 5435 15417 TCF TOCON2
055391,000293:
055392,000294: 5436 5024 OCT14000 EQUALS PRIO14
055393,000295: 5436 0061 TEMPG EQUALS ITEMP1
055394,000296: 5436 0062 TEMPP EQUALS ITEMP2
055395,000297: 5436 0063 TEMPNM EQUALS ITEMP3
055396,000298: 5436 0064 TEMPBB EQUALS ITEMP4
055397,000299: 5436 0065 TEMPSW EQUALS ITEMP5
055398,000300: 5436 0066 TEMPSW2 EQUALS ITEMP6
055399,000301: 5436 0070 TEMPPR EQUALS RUPTREG1
055400,000302: 5436 0071 TEMPG2 EQUALS RUPTREG2
055401,000303: 5436 0072 TEMPP2 EQUALS RUPTREG3
055402,000304:
055403,000305: 5436 0073 TEMPBBCN EQUALS RUPTREG4
055404,000306: 5436 0000006 BB EQUALS BBANK
055405,000307:
055406,000308: 14,3774 BANK 14
055407,000309: 10,2000 SETLOC PHASETAB
055408,000310: 10,2000 BANK
055409,000311:
055410,000312: 10,2224 E3,1436 EBANK= PHSNAME1
055411,000313: 10,2224 COUNT* $$/PHASE
055412,000314: 10,2224 22073 PHSCHNG2 LXCH TEMPBBCN
055413,000315: 10,2225 30065 CA TEMPSW
055414,000316: 10,2226 74757 MASK OCT7
055415,000317: 10,2227 60000 DOUBLE
055416,000318: 10,2230 54061 TS TEMPG
055417,000319:
055418,000320: 10,2231 30065 CA TEMPSW
055419,000321: 10,2232 75030 MASK OCT17770
055420,000322: 10,2233 00006 EXTEND
055421,000323: 10,2234 74740 MP BIT12
055422,000324: 10,2235 54062 TS TEMPP
055423,000325:
055424,000326: 10,2236 30065 CA TEMPSW
055425,000327: 10,2237 74101 MASK OCT60000
055426,000328: 10,2240 56065 XCH TEMPSW
055427,000329: 10,2241 75024 MASK OCT14000
055428,000330: 10,2242 10000 CCS A
055429,000331: # Page 1301
055430,000332: 10,2243 15370 TCF ONEORTWO
055431,000333:
055432,000334: 10,2244 30062 CA TEMPP # START STORING THE PHASE INFORMATION
055433,000335: 10,2245 50061 NDX TEMPG
055434,000336: 10,2246 54751 TS PHASE1 -2
055435,000337:
055436,000338: 10,2247 10066 BELOW1 CCS TEMPSW2 # IS IT A PHASCHNG OR A 2PHSCHNG
055437,000339: 10,2250 12264 TCF BELOW2 # IT'S A PHASCHNG
055438,000340:
055439,000341: 10,2251 12252 TCF +1 # IT'S A 2PHSCHNG
055440,000342: 10,2252 40072 CS TEMPP2
055441,000343: 10,2253 22072 LXCH TEMPP2
055442,000344: 10,2254 50071 NDX TEMPG2
055443,000345: 10,2255 52751 DXCH -PHASE1 -2
055444,000346:
055445,000347: 10,2256 10066 CCS TEMPSW2
055446,000348: 10,2257 12260 NOOP # CAN'T GET HERE
055447,000349: 10,2260 12264 TCF BELOW2
055448,000350:
055449,000351: 10,2261 40025 CS TIME1
055450,000352: 10,2262 50071 NDX TEMPG2
055451,000353: 10,2263 55051 TS TBASE1 -2
055452,000354:
055453,000355: 10,2264 10065 BELOW2 CCS TEMPSW # SEE IF WE SHOULD SET TBASE OR LONGBASE
055454,000356: 10,2265 12300 TCF BELOW3 # SET LONGBASE ONLY
055455,000357: 10,2266 12303 TCF BELOW4 # SET NEITHER
055456,000358:
055457,000359: 10,2267 40025 CS TIME1 # SET TBASE TO BEGIN WITH
055458,000360: 10,2270 50061 NDX TEMPG
055459,000361: 10,2271 55051 TS TBASE1 -2
055460,000362:
055461,000363: 10,2272 30065 CA TEMPSW # SHALL WE NOW SET LONGBASE
055462,000364: 10,2273 62276 AD BIT14COM
055463,000365: 10,2274 10000 CCS A
055464,000366: 10,2275 12276 NOOP # ***** CAN'T GET HERE *****
055465,000367: 10,2276 17777 BIT14COM OCT 17777 # ***** CAN'T GET HERE *****
055466,000368: 10,2277 12303 TCF BELOW4 # NO WE NEED ONLY SET TBASE
055467,000369:
055468,000370: 10,2300 00006 BELOW3 EXTEND # SET LONGBASE
055469,000371: 10,2301 30025 DCA TIME2
055470,000372: 10,2302 53152 DXCH LONGBASE
055471,000373:
055472,000374: 10,2303 40062 BELOW4 CS TEMPP # AND STORE THE FINAL PART OF THE PHASE
055473,000375: 10,2304 50061 NDX TEMPG
055474,000376: 10,2305 54750 TS -PHASE1 -2
055475,000377:
055476,000378: 10,2306 30002 CA Q
055477,000379: 10,2307 22073 LXCH TEMPBBCN
055478,000380: 10,2310 00003 RELINT
055479,000381: 10,2311 52006 DTCB
055480,000382: # Page 1302
055481,000383: 10,2312 22073 CON2 LXCH TEMPBBCN
055482,000384:
055483,000385: 10,2313 30062 CA TEMPP
055484,000386: 10,2314 50061 NDX TEMPG
055485,000387: 10,2315 54751 TS PHASE1 -2
055486,000388:
055487,000389: 10,2316 30070 CA TEMPPR
055488,000390: 10,2317 50061 NDX TEMPG
055489,000391: 10,2320 55052 TS PHSPRDT1 -2
055490,000392:
055491,000393: 10,2321 00006 EXTEND
055492,000394: 10,2322 30064 DCA TEMPNM
055493,000395: 10,2323 50061 NDX TEMPG
055494,000396: 10,2324 53435 DXCH PHSNAME1 -2
055495,000397:
055496,000398: 10,2325 12247 TCF BELOW1
055497,000399:
055498,000400: 7750 BLOCK 03
055499,000401: 6000 SETLOC FFTAG6
055500,000402: 6000 BANK
055501,000403:
055502,000404: 7750 COUNT* $$/PHASE
055503,000405: 7750 74740 CHECKB MASK BIT12 # SINCE THIS IS OF TYPE 8, THIS BIT WOULD
055504,000406: 7751 10000 CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
055505,000407: 7752 15423 TCF GETPRIO # IT IS, SO GET NEW PRIORITY
055506,000408:
055507,000409: 7753 15402 TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.
055508,000410:
055509,000411:
End of include-file PHASE_TABLE_MAINTENANCE.agc. Parent file is MAIN.agc