Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
055797,000002: ## Copyright: Public domain.
055798,000003: ## Filename: PHASE_TABLE_MAINTENANCE.agc
055799,000004: ## Purpose: A section of Luminary revision 210.
055800,000005: ## It is part of the source code for the Lunar Module's (LM)
055801,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
055802,000007: ## This file is intended to be a faithful transcription, except
055803,000008: ## that the code format has been changed to conform to the
055804,000009: ## requirements of the yaYUL assembler rather than the
055805,000010: ## original YUL assembler.
055806,000011: ## Reference: pp. 1291-1299
055807,000012: ## Assembler: yaYUL
055808,000013: ## Contact: Ron Burkey <info@sandroid.org>.
055809,000014: ## Website: www.ibiblio.org/apollo/index.html
055810,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
055811,000016: ## 2016-11-18 MAS Transcribed.
055812,000017: ## 2016-11-27 HG fix operand PHASETAB1 -> PHASTAB1
055813,000018: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
055814,000019: ## and corrected errors found.
055815,000020: ## 2017-03-16 RSB Comment-text fixes identified in 5-way
055816,000021: ## side-by-side diff of Luminary 69/99/116/131/210.
055817,000022: ## 2017-06-17 MAS Globally removed all SBANK= workarounds.
055818,000023:
|
|
Page 1291 |
055820,000025: # SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
055821,000026:
055822,000027: 43,3727 COUNT* $$/PHASE
055823,000028: 5313 BLOCK 02
055824,000029: 4000 SETLOC FFTAG1
055825,000030: 4000 BANK
055826,000031:
055827,000032: 5313 50002 NEWMODEX INDEX Q # UPDATE MODREG. ENTRY FOR MODE IN FIXED.
055828,000033: 5314 30000 CAF 0
055829,000034: 5315 24002 INCR Q
055830,000035:
055831,000036: 5316 55010 NEWMODEA TS MODREG # ENTRY FOR MODE IN A.
055832,000037: 5317 35322 MMDSPLAY CAF +3 # DISPLAY MAJOR MODE.
055833,000038: 5320 22006 PREBJUMP LXCH BBANK # PUTS BBANK IN L
055834,000039: 5321 14631 TCF BANKJUMP # PUTS Q INTO A
055835,000040: 5322 31754 CADR SETUPDSP
055836,000041:
055837,000042: # RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
055838,000043:
055839,000044: 5323 50002 CHECKMM INDEX Q
055840,000045: 5324 40000 CS 0
055841,000046: 5325 61010 AD MODREG
055842,000047: 5326 00006 EXTEND
055843,000048: 5327 16762 BZF Q+2
055844,000049: 5330 16760 TCF Q+1 # NO MATCH
055845,000050:
055846,000051: 5331 6763 TCQ = Q+2 +1
055847,000052:
055848,000053: 14,2000 SETLOC PHASTAB1
055849,000054: 14,2000 BANK
055850,000055:
055851,000056: 14,3754 COUNT* $$/PHASE
055852,000057: 14,3754 00004 SETUPDSP INHINT
055853,000058: 14,3755 52071 DXCH RUPTREG1 # SAVE CALLER-S RETURN 2CADR
055854,000059: 14,3756 34346 CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
055855,000060: 14,3757 05063 TC NOVAC # NEWMODE X
055856,000061: 14,3760 1010 EBANK= MODREG
055857,000062: 14,3760 03572 60102 2CADR DSPMMJOB
055858,000063:
055859,000064: 14,3762 52071 DXCH RUPTREG1
055860,000065: 14,3763 00003 RELINT
055861,000066: 14,3764 52006 DXCH Z # RETURN
055862,000067:
055863,000068: 14,3765 40,3572 DSPMMJOB EQUALS DSPMMJB
055864,000069:
055865,000070:
055866,000071: 5331 BLOCK 02
055867,000072: 4000 SETLOC FFTAG1
055868,000073: 4000 BANK
|
|
Page 1292 |
055870,000075: # PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
055871,000076: # A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
055872,000077:
055873,000078: # TC PHASCHNG
055874,000079: # OCT XXXXX
055875,000080:
055876,000081: # TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATIONTHAT IS STORED PERMANENTLY. THESE
055877,000082: # OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
055878,000083:
055879,000084: # G.0 INACTIVE, WILLNOT PERMIT A GROUP G RESTART
055880,000085: # G.1 WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
055881,000086: # G.EVEN A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
055882,000087: # LONGCALL TO BE RESTARTED.
055883,000088: # G.ODD NOT .1 A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART
055884,000089:
055885,000090: # THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
055886,000091:
055887,000092: # TL0 00P PPP PPP GGG ,
055888,000093:
055889,000094: # 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,
055890,000095: # OCTAL 0 - 127. 0:S MUST BE 0. IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
055891,000096: # 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
055892,000097: # IT IS SET TO 0. SOME EXAMPLES,
055893,000098:
055894,000099: # TC PHASCHNG THIS WILL CAUSE GROUP 3 TOBE SET TO 0,
055895,000100: # OCT 00003 MAKING GROUP 3 INACTIVE
055896,000101:
055897,000102: # TC PHASCHNG IF A RESTART OCCURS THIS WOULD CAUSE
055898,000103: # OCT 00012 GROUP 2 TO RESTART THE LAST DISPLAY
055899,000104:
055900,000105: # TC PHASCHNG THIS SETS THE TBASE OF GROUP 4 AND IN
055901,000106: # OCT 40064 CASE OF A RESTART WOULD START UP THE TWO
055902,000107: # THINGS LOCATED IN THE DOUBLE 4.6 RESTART
055903,000108: # LOCATION
055904,000109: # TC PHASCHNG THIS SETS LONGBASE AND UPON A RESTART
055905,000110: # OCT 20135 CAUSES 5.13 TO BE RESTARTED (SINCE
055906,000111: # LONGBASE WAS SET THIS SINGLE ENTRY
055907,000112: # SHOULD BE A LONGCALL)
055908,000113: # TC PHASCHNG SINCE BOTH TBASE4 AND LONGBASE ARE SET,
055909,000114: # OCT 60124 4.12 SHOULD CONTAIN BOTH A TASK AND A
055910,000115: # LONGCALL TO BE RESTARTED
055911,000116:
055912,000117: # TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A
055913,000118: # PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABKE LOCATION. THE BITS ARE AS FOLLOWS,
055914,000119:
055915,000120: # TL0 1AD XXX CJW GGG
055916,000121:
055917,000122: # WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G:S STAND FOR THE GROUP, OCTAL 1 - 7. IF THE RESTART IS TO
055918,000123: # 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
055919,000124: # THESE THREE BIT S MAY BE SET. X:S ARE IGNORED 1 MUST BE 1, AND 0 MUST BE 0. AGAIN T STANDS FOR THE TBASE,
|
|
Page 1293 |
055921,000126: # AND L FOR LONGBASE. THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
055922,000127: # OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION, IF THIS IS TO BE INDIRECT, THAT
055923,000128: # IS, THE NAME OF A LOCATION COMT+INING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
055924,000129: # THAT LOCATION WHICH CONTAINS THE DELTA TIME. IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
055925,000130: # 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
055926,000131: # THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER
055927,000132: # (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT. IF A IS SET TO 1, THEN THE ADDRESS THAT
055928,000133: # WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATIONS. EXAMPLES,
055929,000134:
055930,000135: # AD TC PHASCHNG THIS WOULD CAUSE LOCATION AD +3 TO BE
055931,000136: # AD+1 OCT 05023 RESTARTED BY GROUP THREE WITHA PRIORITY
055932,000137: # AD+2 OCT 23000 OF 23. NOTE UPON RETURNING IT WOULD
055933,000138: # AD+3 ALSO GO TO AD+3
055934,000139:
055935,000140: # AD TC PHASCHNG GROUP 1 WOULD CAUSE CAUSE CALLCALL TO
055936,000141: # AD+1 OCT 27441 BE STARTED AS A LONGCALL FROM THE TIME
055937,000142: # AD+2 -GENADR DELTIME STORED IN LONGBASE (LONGBASE WAS SET) BY
055938,000143: # AD+3 2CADR CALLCALL A DELTATIME STORED IN DELTIME. THE
055939,000144: # AD+4 BBCON OF THE 2CADR SHOULD CONTAIN THE E
055940,000145: # AD+5 BANK OF DELTIME. PHASCHNG RETURNS TO
055941,000146: # LOCATION AD+5
055942,000147:
055943,000148: # NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
055944,000149: # NEGATIVE, AS A FINDVAC IF THE PRIORITY IS POSITIVE.
055945,000150:
055946,000151:
055947,000152: # TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
055948,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
055949,000154: # DOUBLE ENTRY. THE BIT INFORMATION IS AS FOLLOWS,
055950,000155:
055951,000156: # TL1 DAP PPP PPP GGG
055952,000157:
055953,000158: # 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
055954,000159: # PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1. AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS
055955,000160: # TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
055956,000161: # 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
055957,000162: # THE NEXT LOCATION.(THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
055958,000163:
055959,000164: # AD TC PHASCHNG TBASE IS SET AND ARESTART CAUSE GROUP 3
055960,000165: # AD+1 OCT 56043 TO START THE JOB AJOBAJOB WITH PRIORITY
055961,000166: # AD+2 OCT 31000 31 AND THE FIRST ENTRY OF 3.4SPOT(WE CAN
055962,000167: # AD+3 2CADR AJOBAJOB ASSUME IT IS A TASK SINCE WE SET TBASE3)
055963,000168: # AD+4 UPON RETURN FROM PHASCHNG CONTROL WOULD
055964,000169: # AD+5 GO TO AD+5
055965,000170:
055966,000171: # AD TC PHASCHNG UPON A RESTART THE LAST DISPLAY WOULD BE
055967,000172: # AD+1 OCT 10015 RESTARTED AND A JOB WITH THE PREVIOUSLY
055968,000173: # AD+2 STORED PRIORITY WOULD BE BEGUN AT AD+2
055969,000174: # BY MEANS OF GROUP 5
055970,000175:
|
|
Page 1294 |
055972,000177: # THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO - NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
055973,000178:
055974,000179: # SUMMARY OF BITS
055975,000180:
055976,000181: # TYPE A TL0 00P PPP PPP GGG
055977,000182:
055978,000183: # TYPE B TL1 DAP PPP PPP GGG
055979,000184:
055980,000185: # TYPE C TL0 1AD XXX CJW GGG
055981,000186:
|
|
Page 1295 |
055983,000188: # 2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
055984,000189: # GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
055985,000190: # CALLS ARE MADE IN THE FOLLOWING MANNER,
055986,000191:
055987,000192: # TC 2PHSCHNG
055988,000193: # OCT XXXXX
055989,000194: # OCT YYYYY
055990,000195:
055991,000196: # WHERE OCT XXXXX MUST BE OF TYPE A AND OCT YYYYY MAY BE OF EITHER TYPE A OR TYPE B OR TYPEC. THERE IS ONE
055992,000197: # DIFFERENCE --- NOTE- IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
055993,000198: # BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
055994,000199:
055995,000200: # AD TC 2PHSCHNG SET TBASE3 AND IF A RESTART OCCURS START
055996,000201: # AD+1 OCT 40083 THE TWO ENTRIES IN 3.8 TABLE LOCATION
055997,000202: # AD+2 OCT 05025 THIS IS OF TYPE C, SET THE JOB TO BE
055998,000203: # AD+3 OCT 18000 TO BE LOCATION AD+4, WITH A PRIORITY 18,
055999,000204: # AD+4 FOR GROUP 5 PHASE INFORMATION
056000,000205:
056001,000206: 5331 COUNT* $$/PHASE
056002,000207: 5331 00004 2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
056003,000208: 5332 50002 NDX Q
056004,000209: 5333 30000 CA 0
056005,000210: 5334 24002 INCR Q
056006,000211: 5335 54072 TS TEMPP2
056007,000212:
056008,000213: 5336 74750 MASK OCT7
056009,000214: 5337 60000 DOUBLE
056010,000215: 5340 54071 TS TEMPG2
056011,000216:
056012,000217: 5341 30072 CA TEMPP2
056013,000218: 5342 75021 MASK OCT17770 # NEED ONLY 1770, BUT WHY GET A NEW CONST.
056014,000219: 5343 00006 EXTEND
056015,000220: 5344 74731 MP BIT12
056016,000221: 5345 56072 XCH TEMPP2
056017,000222:
056018,000223: 5346 74726 MASK BIT15
056019,000224: 5347 54066 TS TEMPSW2 # INDICATES WHETHER TO SET TBASE OR NOT
056020,000225:
056021,000226: 5350 50002 INDEX Q
056022,000227: 5351 30000 CA 0
056023,000228: 5352 24002 INCR Q
056024,000229: 5353 54065 TS TEMPSW
056025,000230:
056026,000231: 5354 15365 TCF PHASJUMP
056027,000232:
056028,000233: 5355 00004 PHASCHNG INHINT # NORMAL PHASCHNG ENTRY POINT.
056029,000234: 5356 50002 INDEX Q
056030,000235: 5357 30000 CA 0
056031,000236: 5360 24002 INCR Q
056032,000237: 5361 00004 PHSCHNGA INHINT # FIRST OCTAL PARAMETER IN A.
|
|
Page 1296 |
056034,000239: 5362 54065 TS TEMPSW
056035,000240: 5363 34744 CA ONE
056036,000241: 5364 54066 TS TEMPSW2
056037,000242: 5365 00006 PHASJUMP EXTEND
056038,000243: 5366 35371 DCA ADRPCHN2 # OFF TO SWITCHED BANK
056039,000244: 5367 52006 DTCB
056040,000245:
056041,000246: 5370 E3,1400 EBANK= LST1
056042,000247: 5370 02213 20103 ADRPCHN2 2CADR PHSCHNG2
056043,000248:
056044,000249:
056045,000250:
056046,000251: 5372 22073 ONEORTWO LXCH TEMPBBCN
056047,000252: 5373 22006 LXCH BBANK
056048,000253: 5374 22073 LXCH TEMPBBCN
056049,000254:
056050,000255: 5375 75015 MASK OCT14000 # SEE WHAT KIND OF PHASE CHANGE IT IS
056051,000256: 5376 10000 CCS A
056052,000257: 5377 17771 TCF CHECKB # IT IS OF TYPE :B:
056053,000258:
056054,000259: 5400 30062 CA TEMPP
056055,000260: 5401 74736 MASK BIT7
056056,000261: 5402 10000 CCS A # SHALL WE USE THE OLD PRIORITY
056057,000262: 5403 15425 TCF GETPRIO # NO GET A NEW PRIORITY (OR DELTA T)
056058,000263:
056059,000264: 5404 50061 OLDPRIO NDX TEMPG # USE THE OLD PRIORITY (OR DELTA T)
056060,000265: 5405 31051 CA PHSPRDT1 -2
056061,000266: 5406 54070 TS TEMPPR
056062,000267:
056063,000268: 5407 30062 CON1 CA TEMPP # SEE IF A 2CADR IS GIVEN
056064,000269: 5410 74735 MASK BIT8
056065,000270: 5411 10000 CCS A
056066,000271: 5412 15431 TCF GETNEWNM
056067,000272:
056068,000273: 5413 30002 CA Q
056069,000274: 5414 54063 TS TEMPNM
056070,000275: 5415 30006 CA BB
056071,000276: 5416 00006 EXTEND # PICK UP USERS SUPERBANK
056072,000277: 5417 04007 ROR SUPERBNK
056073,000278: 5420 54064 TS TEMPBB
056074,000279:
056075,000280: 5421 35424 TOCON2 CA CON2ADR # BACK TO SWITCHED BANK
056076,000281: 5422 22073 LXCH TEMPBBCN
056077,000282: 5423 52006 DTCB
056078,000283:
056079,000284: 5424 02301 CON2ADR GENADR CON2
056080,000285:
056081,000286: 5425 50002 GETPRIO NDX Q # DON:T CARE IF DIRECT OR INDIRECT
056082,000287: 5426 30000 CA 0 # LEAVE THAT DECISION TO RESTARTS
056083,000288: 5427 24002 INCR Q # OBTAIN RETURN ADDRESS
|
|
Page 1297 |
056085,000290: 5430 15406 TCF CON1 -1
056086,000291:
056087,000292: 5431 00006 GETNEWNM EXTEND
056088,000293: 5432 50002 INDEX Q
056089,000294: 5433 30001 DCA 0
056090,000295: 5434 52064 DXCH TEMPNM
056091,000296: 5435 34743 CA TWO
056092,000297: 5436 26002 ADS Q # OBTAIN RETURN ADDRESS
056093,000298:
056094,000299: 5437 15421 TCF TOCON2
056095,000300:
056096,000301: 5440 5015 OCT14000 EQUALS PRIO14
056097,000302: 5440 0061 TEMPG EQUALS ITEMP1
056098,000303: 5440 0062 TEMPP EQUALS ITEMP2
056099,000304: 5440 0063 TEMPNM EQUALS ITEMP3
056100,000305: 5440 0064 TEMPBB EQUALS ITEMP4
056101,000306: 5440 0065 TEMPSW EQUALS ITEMP5
056102,000307: 5440 0066 TEMPSW2 EQUALS ITEMP6
056103,000308: 5440 0070 TEMPPR EQUALS RUPTREG1
056104,000309: 5440 0071 TEMPG2 EQUALS RUPTREG2
056105,000310: 5440 0072 TEMPP2 EQUALS RUPTREG3
056106,000311:
056107,000312: 5440 0073 TEMPBBCN EQUALS RUPTREG4
056108,000313: 5440 0000006 BB EQUALS BBANK
056109,000314:
056110,000315:
056111,000316: 14,3765 BANK 14
056112,000317: 10,2000 SETLOC PHASETAB
056113,000318: 10,2000 BANK
056114,000319:
056115,000320: 10,2213 E3,1436 EBANK= PHSNAME1
056116,000321: 10,2213 COUNT* $$/PHASE
056117,000322: 10,2213 22073 PHSCHNG2 LXCH TEMPBBCN
056118,000323: 10,2214 30065 CA TEMPSW
056119,000324: 10,2215 74750 MASK OCT7
056120,000325: 10,2216 60000 DOUBLE
056121,000326: 10,2217 54061 TS TEMPG
056122,000327:
056123,000328: 10,2220 30065 CA TEMPSW
056124,000329: 10,2221 75021 MASK OCT17770
056125,000330: 10,2222 00006 EXTEND
056126,000331: 10,2223 74731 MP BIT12
056127,000332: 10,2224 54062 TS TEMPP
056128,000333:
056129,000334: 10,2225 30065 CA TEMPSW
056130,000335: 10,2226 74101 MASK OCT60000
056131,000336: 10,2227 56065 XCH TEMPSW
056132,000337: 10,2230 75015 MASK OCT14000
056133,000338: 10,2231 10000 CCS A
|
|
Page 1298 |
056135,000340: 10,2232 15372 TCF ONEORTWO
056136,000341:
056137,000342: 10,2233 30062 CA TEMPP # START STORING THE PHASE INFORMATION
056138,000343: 10,2234 50061 NDX TEMPG
056139,000344: 10,2235 54750 TS PHASE1 -2
056140,000345:
056141,000346: 10,2236 10066 BELOW1 CCS TEMPSW2 # IS IT A PHASCHNG OR A 2PHSCHNG
056142,000347: 10,2237 12253 TCF BELOW2 # IT:S A PHASCHNG
056143,000348:
056144,000349: 10,2240 12241 TCF +1 # IT:S A 2PHSCHNG
056145,000350: 10,2241 40072 CS TEMPP2
056146,000351: 10,2242 22072 LXCH TEMPP2
056147,000352: 10,2243 50071 NDX TEMPG2
056148,000353: 10,2244 52750 DXCH -PHASE1 -2
056149,000354:
056150,000355: 10,2245 10066 CCS TEMPSW2
056151,000356: 10,2246 12247 NOOP # CAN:T GET HERE
056152,000357: 10,2247 12253 TCF BELOW2
056153,000358:
056154,000359: 10,2250 40025 CS TIME1
056155,000360: 10,2251 50071 NDX TEMPG2
056156,000361: 10,2252 55050 TS TBASE1 -2
056157,000362:
056158,000363: 10,2253 10065 BELOW2 CCS TEMPSW # SEE IF WE SHOULD SET TBASE OR LONGBASE
056159,000364: 10,2254 12267 TCF BELOW3 # SET LONGBASE ONLY
056160,000365: 10,2255 12272 TCF BELOW4 # SET NEITHER
056161,000366:
056162,000367: 10,2256 40025 CS TIME1 # SET TBASE TO BEGIN WITH
056163,000368: 10,2257 50061 NDX TEMPG
056164,000369: 10,2260 55050 TS TBASE1 -2
056165,000370:
056166,000371: 10,2261 30065 CA TEMPSW # SHALL WE NOW SET LONGBASE
056167,000372: 10,2262 62265 AD BIT14COM
056168,000373: 10,2263 10000 CCS A
056169,000374: 10,2264 12265 NOOP # ***** CANT GET HERE *****
056170,000375: 10,2265 17777 BIT14COM OCT 17777 # ***** CANT GET HERE *****
056171,000376: 10,2266 12272 TCF BELOW4 # NO WE NEED ONLY SET TBASE
056172,000377:
056173,000378: 10,2267 00006 BELOW3 EXTEND # SET LONGBASE
056174,000379: 10,2270 30025 DCA TIME2
056175,000380: 10,2271 53151 DXCH LONGBASE
056176,000381:
056177,000382: 10,2272 40062 BELOW4 CS TEMPP # AND STORE THE FINAL PART OF THE PHASE
056178,000383: 10,2273 50061 NDX TEMPG
056179,000384: 10,2274 54747 TS -PHASE1 -2
056180,000385:
056181,000386: 10,2275 30002 CA Q
056182,000387: 10,2276 22073 LXCH TEMPBBCN
056183,000388: 10,2277 00003 RELINT
056184,000389: 10,2300 52006 DTCB
|
|
Page 1299 |
056186,000391: 10,2301 22073 CON2 LXCH TEMPBBCN
056187,000392:
056188,000393: 10,2302 30062 CA TEMPP
056189,000394: 10,2303 50061 NDX TEMPG
056190,000395: 10,2304 54750 TS PHASE1 -2
056191,000396:
056192,000397: 10,2305 30070 CA TEMPPR
056193,000398: 10,2306 50061 NDX TEMPG
056194,000399: 10,2307 55051 TS PHSPRDT1 -2
056195,000400:
056196,000401: 10,2310 00006 EXTEND
056197,000402: 10,2311 30064 DCA TEMPNM
056198,000403: 10,2312 50061 NDX TEMPG
056199,000404: 10,2313 53435 DXCH PHSNAME1 -2
056200,000405:
056201,000406: 10,2314 12236 TCF BELOW1
056202,000407:
056203,000408: 7771 BLOCK 03
056204,000409: 6000 SETLOC FFTAG6
056205,000410: 6000 BANK
056206,000411:
056207,000412: 7771 COUNT* $$/PHASE
056208,000413: 7771 74731 CHECKB MASK BIT12 # SINCE THIS IS OF TYPE B, THIS BIT SHOULD
056209,000414: 7772 10000 CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
056210,000415: 7773 15425 TCF GETPRIO # IT IS, SO GET NEW PRIORITY
056211,000416:
056212,000417: 7774 15404 TCF OLDPRIO # IT ISN:T, USE THE OLD PRIORITY
End of include-file PHASE_TABLE_MAINTENANCE.agc. Parent file is MAIN.agc