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