Source Code

055436,000001: # Copyright: Public domain. 055437,000002: # Filename: DISPLAY_INTERFACE_ROUTINES.agc 055438,000003: # Purpose: A section of Luminary 1C, revision 131. 055439,000004: # It is part of the source code for the Lunar Module's (LM) 055440,000005: # Apollo Guidance Computer (AGC) for Apollo 13 and Apollo 14. 055441,000006: # This file is intended to be a faithful transcription, except 055442,000007: # that the code format has been changed to conform to the 055443,000008: # requirements of the yaYUL assembler rather than the 055444,000009: # original YUL assembler. 055445,000010: # Reference: pp. 1338-1370 of 1729.pdf. 055446,000011: # Contact: Ron Burkey <info@sandroid.org>. 055447,000012: # Website: www.ibiblio.org/apollo/index.html 055448,000013: # Mod history: 06/06/03 RSB. Began transcribing. 055449,000014: # 05/14/05 RSB. Corrected website reference above. 055450,000015: # 2010-10-25 JL Indentation fixes. 055451,000016: # 2011-05-07 JL Removed workaround. 055452,000017: 055453,000018: # Page 1338 055454,000019: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -- 055455,000020: # 1. PRIORITY DISPLAYS -- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT 055456,000021: # OUT UNDER CRITICAL ALARM CONDITIONS. 055457,000022: # 2. EXTENDED VERB DISPLAYS -- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS. 055458,000023: # 3. NORMAL DISPLAYS -- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL 055459,000024: # SEQUENCE OF EVENTS. 055460,000025: # 4. MISC. DISPLAYS -- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS 055461,000026: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL. 055462,000027: # 5. ASTRONAUT INITIATED DISPLAYS -- ALL DISPLAYS INITIATED EXTERNALLY. 055463,000028: 055464,000029: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -- 055465,000030: # 1. ACTIVE -- THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR 055466,000031: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY 055467,000032: # BUT NOT WAITING FOR A RESPONSE. 055468,000033: # 2. INACTIVE -- A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY, 055469,000034: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY 055470,000035: # WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE 055471,000036: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL 055472,000037: # HAS INFO SAVED FOR RESTART PURPOSES. 055473,000038: 055474,000039: # DISPLAY PRIORITIES WORK AS FOLLOWS -- 055475,000040: # INTERRUPTS -- 055476,000041: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST. 055477,000042: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY. 055478,000043: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER 055479,000044: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR TEH LINUS ROUTINE. 055480,000045: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY. 055481,000046: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT. 055482,000047: 055483,000048: # ORDER OF WAITING DISPLAYS -- 055484,000049: # 1. ASTRONAUT 055485,000050: # 2. PRIORITY 055486,000051: # 3. INTERRUPTED MARK 055487,000052: # 4. INTERRUPTED NORMAL 055488,000053: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK) 055489,000054: # 6. MARK WAITING 055490,000055: # 7. NORMAL WAITING 055491,000056: 055492,000057: # Page 1339 055493,000058: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE 055494,000059: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES 055495,000060: # WILL FOLLOW LATER): 055496,000061: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN 055497,000062: # IS TO THE USER'S CALL CADR +4. FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN 055498,000063: # IS TO THE USER'S CALLING LOC +1. 055499,000064: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER. 055500,000065: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USER'S JOB PRIORITY. 055501,000066: # 4. ALL ROUTIENS NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE 055502,000067: # USER'S JOB. 055503,000068: # 5. ALL DISPLAY ROUTIENS ARE CALLED VIA BANKCALL. 055504,000069: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE 055505,000070: # DESCRIPTION OF RESTARTS). 055506,000071: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES 055507,000072: # TO THE USER'S CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2. AN ENTER OR RECYCLE 055508,000073: # (V32) BRANCHES TO THE USER'S CALL CADR +3. 055509,000074: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL 055510,000075: 055511,000076: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS: 055512,000077: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. 055513,000078: # 1. GODSP IS NOT RESTARTABLE 055514,000079: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH. 055515,000080: # CAF VXXNYY 055516,000081: # TC BANKCALL 055517,000082: # CADR GODSP 055518,000083: # VXXNYY OCT OXXYY 055519,000084: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER. 055520,000085: # CAF VXXNYY 055521,000086: # TC BANKCALL 055522,000087: # CADR GODSPR 055523,000088: # ... ... # IMMEDIATE RETURN OF GODSPR 055524,000089: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM 055525,000090: # THE ASTRONAUT (SEE NO. 7 ABOVE). 055526,000091: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN. 055527,000092: # TC BANKCALL 055528,000093: # CADR GOFLASH 055529,000094: # ... ... # TERMINATE RETURN 055530,000095: # ... ... # PROCEED RETURN 055531,000096: # ... ... # ENTER OR RECYCLE RETURN 055532,000097: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A 055533,000098: # Page 1340 055534,000099: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO 055535,000100: # USER (SEE NO. 7 ABOVE). 055536,000101: # GOPERF1 BLANKS REGISTERS R2 AND R3 055537,000102: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX 055538,000103: # TC BANKCALL 055539,000104: # CADR GOPERF1 055540,000105: # ... ... # TERMINATE RETURN 055541,000106: # ... ... # PROCEED RETURN 055542,000107: # ... ... # ENTER RETURN 055543,000108: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE 055544,000109: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING 055545,000110: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). 055546,000111: # GOPERF2 DOES NOT BLANK ANY REGISTERS 055547,000112: # CAF VXXNYY # VARIABLE NOUN YY. XX=0 OR 01. 055548,000113: # TC BANKCALL 055549,000114: # CADR GOPERF2 055550,000115: # ... ... # TERMINATE RETURN 055551,000116: # ... ... # PROCEED RETURN 055552,000117: # ... ... # ENTER RETURN 055553,000118: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3 055554,000119: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN 055555,000120: # IS MADE TO THE USER (SEE NO. 7 ABOVE). 055556,000121: # GOPERF3 BLANKS REGISTERS R2 AND R3 055557,000122: # CAF DECXX # REQUEST PERFORM ON PXX 055558,000123: # TC BANKCALL 055559,000124: # CADR GOPERF3 055560,000125: # ... ... # TERMINATE RETURN 055561,000126: # ... ... # PROCEED RETURN 055562,000127: # ... ... # ENTER RETURN 055563,000128: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1. 055564,000129: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO 055565,000130: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). 055566,000131: # GOPERF4 BLANKS REGISTER R3. 055567,000132: # CAF OCTXX # REQUEST PERFORM ON OPTION XX 055568,000133: # TC BANKCALL 055569,000134: # CADR GOPERF4 055570,000135: # ... ... # TERMINATE RETURN 055571,000136: # ... ... # PROCEED RETURN 055572,000137: # ... ... # ENTER RETURN 055573,000138: # Page 1341 055574,000139: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT 055575,000140: # OUT. 055576,000141: # CAF VXXXNYY 055577,000142: # TC BANKCALL 055578,000143: # CADR GODSPRET 055579,000144: # ... ... # RETURN TO USER. 055580,000145: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES AND 055581,000146: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. 055582,000147: # CAF VXXNYY 055583,000148: # TC BANKCALL 055584,000149: # CADR REGODSP 055585,000150: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. 055586,000151: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN 055587,000152: # TC BANKCALL 055588,000153: # CADR REFLASH 055589,000154: # ... ... # TERMINATE RETURN 055590,000155: # ... ... # PROCEED RETURN 055591,000156: # ... ... # ENTER RETURN 055592,000157: # GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 055593,000158: # CAF VXXNYY 055594,000159: # TC BANKCALL 055595,000160: # CADR GOFLASHR 055596,000161: # ... ... # TERMINATE RETURN 055597,000162: # ... ... # PROCEED RETURN 055598,000163: # ... ... # ENTER OR RECYCLE RETURN 055599,000164: # ... ... # IMMEDIATE RETURN FROM GOFLASHR 055600,000165: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USER'S CALL CADR +4. 055601,000166: # GOPERF1R BLANKS REGISTERS R2 AND R3 055602,000167: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX. 055603,000168: # TC BANKCALL 055604,000169: # CADR GOPERF1R 055605,000170: # ... ... # TERMINATE RETURN 055606,000171: # ... ... # PROCEED RETURN 055607,000172: # ... ... # ENTER RETURN 055608,000173: # ... ... # IMMEDIATE RETURN FROM GOPERF1R 055609,000174: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 055610,000175: # Page 1342 055611,000176: # GOPERF2R DOES NOT BLANK ANY REGISTERS 055612,000177: # CAF VXXXNYY # VARIABLE NOUN YY REQUESTED. XX=00 OR 01 055613,000178: # TC BANKCALL 055614,000179: # CADR GOPERF2R 055615,000180: # ... ... # TERMINATE RETURN 055616,000181: # ... ... # PROCEED RETURN 055617,000182: # ... ... # ENTER RETURN 055618,000183: # ... ... # IMMEDIATE RETURN HERE FROM GOPERF2R 055619,000184: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 055620,000185: # GOPERF3R BLANKS REGISTERS R2 AND R3 055621,000186: # CAF PROGXX # PERFORM PROGRAM XX 055622,000187: # TC BANKCALL 055623,000188: # CADR GOPERF3R 055624,000189: # ... ... # TERMINATE RETURN 055625,000190: # ... ... # PROCEED RETURN 055626,000191: # ... ... # ENTER RETURN 055627,000192: # ... ... # GOPERF3R IMMEDIATELY RETURNS HERE 055628,000193: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 055629,000194: # GOPERF4R BLANKS REGISTER R3. 055630,000195: # CAF OCTXX # REQUEST PERFORM ON OPTIONXX 055631,000196: # TC BANKCALL 055632,000197: # CADR GOPERF4R 055633,000198: # ... ... # TERMINATE RETURN 055634,000199: # ... ... # PROCEED RETURN 055635,000200: # ... ... # ENTER RETURN 055636,000201: # ... ... # IMMEDIATE RETURN TO USER 055637,000202: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 055638,000203: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN 055639,000204: # TC BANKCALL 055640,000205: # CADR REFLASHR 055641,000206: # ... ... # TERMINATE RETURN 055642,000207: # ... ... # PROCEED RETURN 055643,000208: # ... ... # ENTER RETURN 055644,000209: # ... ... # IMMEDIATE RETURN TO USER 055645,000210: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER. 055646,000211: # Page 1343 055647,000212: # CAF VXXNYY 055648,000213: # TC BANKCALL 055649,000214: # CADR REGODSPR 055650,000215: # ... ... # IMMEDIATE RETURN TO USER 055651,000216: # Page 1344 055652,000217: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. 055653,000218: # GOXDSP = GOMARK 055654,000219: # CAF VXXNYY # VXXNYY CONTAINS VERB AND NOUN 055655,000220: # TC BANKCALL 055656,000221: # CADR GOMARK # OTHER EXTENDED VERBS USE CADR GOXDSP 055657,000222: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER. 055658,000223: # GOXDSPR = GOMARKR 055659,000224: # CAF VXXNYY 055660,000225: # TC BANKCALL 055661,000226: # CADR GOMARKR # OTHER EXTENDED VERBS USE CADR GOXDSPR 055662,000227: # ... ... # IMMEDIATE RETURN OF GOMARKR 055663,000228: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM 055664,000229: # THE ASTRONAUT (SEE NO. 7 ABOVE). 055665,000230: # GOXDSPF = GOMARKF 055666,000231: # CAF VXXNYY # VXXNYY WILL BE A FLASHING MARK VERB NOUN 055667,000232: # TC BANKCALL 055668,000233: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR 055669,000234: # ... ... # TERMINATE RETURN 055670,000235: # ... ... # PROCEED RETURN 055671,000236: # ... ... # ENTER OR RECYCLE RETURN 055672,000237: # ... ... # IMMEDIATE RETURN TO THE USER 055673,000238: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE 055674,000239: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R 055675,000240: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK 055676,000241: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER. 055677,000242: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 055678,000243: # TC BANKCALL 055679,000244: # Page 1345 055680,000245: # CADR GOMARK1 055681,000246: # ... ... # ENTER RETURN 055682,000247: # *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER. 055683,000248: 055684,000249: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +2. 055685,000250: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 055686,000251: # TC BANKCALL 055687,000252: # CADR GOMARK1R 055688,000253: # ... ... # ASTRONAUT ENTER RETURN 055689,000254: # ... ... # IMMEDIATE RETURN TO USER 055690,000255: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT. 055691,000256: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 055692,000257: # TC BANKCALL 055693,000258: # CADR GOMARK2 055694,000259: # ... ... # TERMINATE RETURN 055695,000260: # ... ... # PROCEED RETURN 055696,000261: # ... ... # ENTER RETURN 055697,000262: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER. 055698,000263: # CAF V5XNYY # X=0,1,2,3,4 YY=NOUN 055699,000264: # TCF BANKCALL 055700,000265: # CADR GOMARK24 055701,000266: # ... ... # TERMINATE RETURN 055702,000267: # ... ... # PROCEED RETURN 055703,000268: # ... ... # ENTER RETURN 055704,000269: # ... ... # IMMEDIATE RETURN TO THE USER. 055705,000270: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE 055706,000271: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING 055707,000272: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN. 055708,000273: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 055709,000274: # TC BANKCALL 055710,000275: # CADR GOMARK3 055711,000276: # ... ... # TERMINATE RETURN 055712,000277: # ... ... # PROCEED RETURN 055713,000278: # ... ... # ENTER RETURN 055714,000279: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL. 055715,000280: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 055716,000281: # TC BANKCALL 055717,000282: # CADR GOMARK4 055718,000283: # ... ... # TERMINATE RETURN 055719,000284: # ... ... # PROCEED RETURN 055720,000285: # Page 1346 055721,000286: # ... ... # ENTER RETURN 055722,000287: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN 055723,000288: # SEND OUT. 055724,000289: # CAF VXNYY 055725,000290: # TC BANKCALL 055726,000291: # CADR EXDSPRET 055727,000292: # ... ... # RETURN TO USER 055728,000293: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS 055729,000294: # HAVE BEEN CLEANED OUT. 055730,000295: # TC BANKCALL 055731,000296: # CADR KLEENEX 055732,000297: # ... ... # RETURN TO USER 055733,000298: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW). 055734,000299: # TC BANKCALL 055735,000300: # CADR MARKBRAN 055736,000301: # ... ... # BAD RETURN IF MARK DISPLAY NOT ACTIVE 055737,000302: # # (GOOD RETURN TO IMMEDIATE RETURN LOC OF 055738,000303: # # LAST FLASHING MARK R ROUTINE) 055739,000304: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS 055740,000305: # BLANKED AND CONTROL IS SENT TO ENDOFJOB. 055741,000306: # TC POSTJUMP 055742,000307: # CADR PINBRNCH 055743,000308: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM 055744,000309: # THE ASTRONAUT (SEE NO. 7 ABOVE). 055745,000310: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO 055746,000311: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY 055747,000312: # IS RESPONDED TO BY THE ASTRONAUT. 055748,000313: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE 055749,000314: # PRIO DISPLAY 055750,000315: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN 055751,000316: # TC BANKCALL 055752,000317: # CADR PRIODSP 055753,000318: # ... ... # TERMINATE RETURN 055754,000319: # ... ... # PROCEED RETURN 055755,000320: # Page 1347 055756,000321: # ... ... # ENTER OR RECYCLE RETURN 055757,000322: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 055758,000323: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN 055759,000324: # TC BANKCALL 055760,000325: # CADR PRIODSPR 055761,000326: # ... ... # TERMINATE ACTION 055762,000327: # ... ... # PROCEED RETURN 055763,000328: # ... ... # ENTER OR RECYCLE RETURN 055764,000329: # ... ... # IMMEDIATE RETURN 055765,000330: # PRIOLARM DOES A V05N09 PRIODSPR. 055766,000331: 055767,000332: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL 055768,000333: # DISPLAYS ARE CLEANED OUT. 055769,000334: # TC BANKCALL 055770,000335: # CADR CLEANDSP 055771,000336: # ... ... # RETURN TO USER 055772,000337: # Page 1348 055773,000338: 055774,000339: # GENERAL INFORMATION 055775,000340: # ------------------- 055776,000341: 055777,000342: # ALARM OR ABORT EXIT MODE -- 055778,000343: # PRIOBORT TC ABORT 055779,000344: # OCT 1502 055780,000345: 055781,000346: # PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE 055782,000347: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS 055783,000348: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION). 055784,000349: 055785,000350: # ERASABLE INITIALIZATION REQUIRED -- 055786,000351: # ACCOMPLISHED BY FRESH START -- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES) 055787,000352: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER. 055788,000353: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK). 055789,000354: # 5. R1SAVE = MARKBRAN CONTROL WORD 055790,000355: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3. 055791,000356: 055792,000357: # OUTPUT -- 055793,000358: # NVWORD = PRIO VERB AND NOUN 055794,000359: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN 055795,000360: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN 055796,000361: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK) 055797,000362: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK) 055798,000363: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK) 055799,000364: # CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION 055800,000365: # CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION 055801,000366: # CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION 055802,000367: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT 055803,000368: # OPTION1 = DESIRED OPTION FROM GOPERF4 055804,000369: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES 055805,000370: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL) 055806,000371: 055807,000372: # SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG, 055808,000373: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC 055809,000374: 055810,000375: # DEBRIS -- (STORED INTO) 055811,000376: # TEMPORARY TEMPORARIES -- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL, 055812,000377: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1, FACEREG(?) 055813,000378: # ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) -- CADRSTORE, DSPLIST, LOC, DSPTEM1, OPTION1 055814,000379: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) -- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4, 055815,000380: # Page 1349 055816,000381: # R1SAVE, MARK2PAC 055817,000382: 055818,000383: # DEBRIS -- (USED BUT NOT STORED INTO) -- NOUNREG, VERBREG, LOCCTR, MONSAVE1 055819,000384: 055820,000385: # FLAGWORD DESCRIPTIONS -- 055821,000386: # FLAGWRD4 -- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS 055822,000387: 055823,000388: # DSPFLG, DSPFLG+1, DSPFLG+2 055824,000389: # -------------------------- 055825,000390: # BITS 1 BLANK R1 055826,000391: # 2 BLANK R2 055827,000392: # 3 BLANK R3 055828,000393: # 4 FLASHING DISPLAY REQUESTED 055829,000394: # 5 PERFORM DISPLAY REQUESTED 055830,000395: # 6 ----- EXDSPRET GODSPRET 055831,000396: # 7 PRIO DISPLAY ----- ----- 055832,000397: # 8 ----- DEC MARK PERFORM ----- 055833,000398: # 9 EBANK 055834,000399: # 10 EBANK 055835,000400: # 11 EBANK 055836,000401: # 12 ----- ----- V99PASTE 055837,000402: # 13 2ND PART OF PERFORM 055838,000403: # 14 REFLASH OR REDO ----- REFLASH OR REDO 055839,000404: # 15 ----- MARK REQUEST ----- 055840,000405: 055841,000406: # RESTARTING DISPLAYS -- 055842,000407: 055843,000408: # RULES FOR THE DSKY OPERATOR -- 055844,000409: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING Y/N). AS LONG 055845,000410: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS 055846,000411: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR 055847,000412: # WITH PROCEED AND TERMINATE FOR THIS REASON. 055848,000413: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE 055849,000414: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME 055850,000415: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY 055851,000416: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY 055852,000417: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM 055853,000418: # CONSIDERATION. 055854,000419: # 3. KEY RELEASE BUTTON -- 055855,000420: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE. 055856,000421: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL 055857,000422: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE. 055858,000423: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF 055859,000424: # KEY RELEASE BUTTON MAY BE NECESSARY. 055860,000425: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE. 055861,000426: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE 055862,000427: # OVER AGAIN. 055863,000428: 055864,000429: # SPECIAL CONSIDERATONS -- 055865,000430: # Page 1350 055866,000431: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS 055867,000432: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST. 055868,000433: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R) 055869,000434: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT. 055870,000435: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED 055871,000436: # BY A .1 RESTART PHASE CHANGE. 055872,000437: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE 055873,000438: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO 055874,000439: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL. 055875,000440: 055876,000441: # Page 1351 055877,000442: # CALLING SEQUENCE FOR BLANKING 055878,000443: # CAF BITX # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY 055879,000444: # TC BLANKET 055880,000445: # ... ... # RETURN TO USER HERE 055881,000446: # IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL 055882,000447: # TO BLANKET AT THE IMMEDIATE RETURN LOC. 055883,000448: 5464 BLOCK 02 055884,000449: 4000 SETLOC FFTAG4 055885,000450: 4000 BANK 055886,000451: 055887,000452: 5464 COUNT* $$/DSPLA 055888,000453: 5464 54162 BLANKET TS MPAC +6 055889,000454: 5465 40160 CS PLAYTEM4 055890,000455: 5466 70162 MASK MPAC +6 055891,000456: 5467 50161 INDEX MPAC +5 055892,000457: 5470 26160 ADS PLAYTEM4 055893,000458: 055894,000459: 5471 00002 TC Q 055895,000460: 055896,000461: 5472 04635 ENDMARK TC POSTJUMP 055897,000462: 5473 20326 CADR MARKEND 055898,000463: 055899,000464: 5474 34755 CLEARMRK CAF ZERO 055900,000465: 5475 55043 TS EXTVBACT 055901,000466: 055902,000467: 5476 00004 +2 INHINT 055903,000468: 5477 44753 CS XDSPBIT 055904,000469: 5500 70100 MASK FLAGWRD4 055905,000470: 5501 54100 TS FLAGWRD4 055906,000471: 055907,000472: 5502 00003 RELINT 055908,000473: 5503 00002 TC Q 055909,000474: 055910,000475: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN 055911,000476: # FINISHED. 055912,000477: 055913,000478: 10,2326 BANK 10 055914,000479: 10,2000 SETLOC DISPLAYS 055915,000480: 10,2000 BANK 055916,000481: 055917,000482: 10,2326 COUNT* $$/DSPLA 055918,000483: 055919,000484: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH 055920,000485: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R. 055921,000486: 055922,000487: 10,2326 05474 MARKEND TC CLEARMRK 055923,000488: 10,2327 13422 TCF MARKOVER 055924,000489: 055925,000490: 10,2330 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP 055926,000491: 055927,000492: # Page 1352 055928,000493: 10,2331 34735 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS 055929,000494: 10,2332 12501 TCF GOFLASH2 055930,000495: 055931,000496: 10,2333 34755 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS 055932,000497: 10,2334 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH 055933,000498: 055934,000499: 10,2335 33032 CAF MARKFMSK # MARK, FLASH 055935,000500: 10,2336 12501 TCF GOFLASH2 055936,000501: 055937,000502: 10,2337 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS 055938,000503: 10,2340 33521 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH 055939,000504: 10,2341 12501 TCF GOFLASH2 055940,000505: 055941,000506: 10,2342 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM 055942,000507: 10,2343 33506 CAF MARK3MSK 055943,000508: 10,2344 12501 TCF GOFLASH2 055944,000509: 055945,000510: 10,2345 54155 GOMARK4 TS PLAYTEM1 055946,000511: 10,2346 33507 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK 055947,000512: 10,2347 12501 TCF GOFLASH2 055948,000513: 055949,000514: 10,2350 54155 GOMARKR TS PLAYTEM1 # ENTRANCE FOR MARK GODSPR 055950,000515: 055951,000516: 10,2351 34735 CAF BIT15 055952,000517: 10,2352 12454 TCF GODSPR2 055953,000518: 055954,000519: 10,2353 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR 055955,000520: 055956,000521: 10,2354 33032 CAF MARKFMSK 055957,000522: 10,2355 12640 TCF GODSPRS 055958,000523: 055959,000524: 10,2356 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET. 055960,000525: 10,2357 33521 CAF MPERFMSK # MARK, PERFORM, FLASH 055961,000526: 10,2360 12640 TCF GODSPRS 055962,000527: 055963,000528: 10,2361 65023 -1 AD PRIO13 055964,000529: 10,2362 54155 GOMARK3R TS PLAYTEM1 055965,000530: 10,2363 33506 CAF MARK3MSK 055966,000531: 10,2364 12640 TCF GODSPRS 055967,000532: 055968,000533: 10,2365 34753 MAKEMARK CAF ONE 055969,000534: 10,2366 02736 TC COPIES 055970,000535: 055971,000536: 10,2367 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING 055972,000537: 10,2370 73522 MASK OCT34300 055973,000538: 10,2371 10000 CCS A 055974,000539: 10,2372 12430 TCF CHKPRIO 055975,000540: 055976,000541: 10,2373 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY? 055977,000542: 10,2374 74743 MASK MRKNVBIT 055978,000543: 055979,000544: # Page 1353 055980,000545: 10,2375 00006 EXTEND 055981,000546: 10,2376 12400 BZF MARKPLAY # NO 055982,000547: 055983,000548: 10,2377 15155 TCF ENDOFJOB 055984,000549: 055985,000550: 10,2400 00004 MARKPLAY INHINT 055986,000551: 10,2401 44756 CS FIVE # RESET MARK OVER NORM, SET MARK 055987,000552: 10,2402 70100 MASK FLAGWRD4 055988,000553: 10,2403 64753 AD ONE 055989,000554: 10,2404 54100 TS FLAGWRD4 055990,000555: 10,2405 00003 RELINT 055991,000556: 055992,000557: 10,2406 41070 GOGOMARK CS MARKFLAG # PERFORM 055993,000558: 10,2407 74747 MASK BIT5 055994,000559: 10,2410 10000 CCS A 055995,000560: 10,2411 12414 TCF MARKCOP 055996,000561: 10,2412 40370 CS MARKNV 055997,000562: 10,2413 54370 TS MARKNV 055998,000563: 055999,000564: 10,2414 34753 MARKCOP CAF ONE # MARK INDEX 056000,000565: 10,2415 12617 TCF PRIOPLAY 056001,000566: 056002,000567: 10,2416 30165 COPYTOGO CA MPAC2SAV 056003,000568: 10,2417 54156 TS MPAC +2 056004,000569: 056005,000570: 10,2420 50164 COPYPACS INDEX COPINDEX 056006,000571: 10,2421 33532 CAF PRIOOCT 056007,000572: 10,2422 54162 TS GENMASK 056008,000573: 056009,000574: 10,2423 50164 INDEX COPINDEX 056010,000575: 10,2424 31067 CAF EBANKSAV 056011,000576: 10,2425 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG 056012,000577: 056013,000578: 10,2426 54003 TS EBANK 056014,000579: 056015,000580: 10,2427 00002 TC Q 056016,000581: 056017,000582: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY 056018,000583: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK 056019,000584: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP 056020,000585: # UNTIL ALL MARKING IS FINISHED. 056021,000586: 056022,000587: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A 056023,000588: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT. 056024,000589: 056025,000590: 10,2430 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO 056026,000591: 10,2431 73255 MASK OCT24100 056027,000592: 10,2432 10000 CCS A 056028,000593: 10,2433 13455 TCF MARSLEEP 056029,000594: 056030,000595: # Page 1354 056031,000596: 10,2434 40100 CS FLAGWRD4 056032,000597: 10,2435 74751 MASK MKOVBIT # SET MARK OVER NORM 056033,000598: 10,2436 00004 INHINT 056034,000599: 10,2437 26100 ADS FLAGWRD4 056035,000600: 056036,000601: 10,2440 12535 TCF SETNORM 056037,000602: 056038,000603: 10,2441 30370 MARKPERF CA MARKNV 056039,000604: 10,2442 74144 MASK VERBMASK 056040,000605: 10,2443 13121 TCF NV50DSP 056041,000606: 056042,000607: 10,2444 54155 GODSP TS PLAYTEM1 056043,000608: 056044,000609: 10,2445 34755 GODSP2 CAF ZERO 056045,000610: 10,2446 12501 TCF GOFLASH2 056046,000611: 056047,000612: 10,2447 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE 056048,000613: 056049,000614: 10,2450 34746 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB 056050,000615: 10,2451 12501 TCF GOFLASH2 056051,000616: 056052,000617: 10,2452 54155 GODSPR TS PLAYTEM1 056053,000618: 056054,000619: 10,2453 34755 GODSPR1 CAF ZERO 056055,000620: 10,2454 54160 GODSPR2 TS PLAYTEM4 056056,000621: 056057,000622: 10,2455 34755 CAF ZERO # * DON'T MOVE 056058,000623: 10,2456 12642 TCF GODSPRS1 056059,000624: 056060,000625: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS 056061,000626: # SET UP TO BE STARTED OR RESTARTED. 056062,000627: 056063,000628: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN 056064,000629: # OLD DISPLAY. 056065,000630: 056066,000631: # CALLING SEQUENCE FOR CLEANDSP -- 056067,000632: 056068,000633: # TC BANKCALL 056069,000634: # CADR CLEANDSP 056070,000635: 056071,000636: 10,2457 34755 CLEANDSP CAF ZERO 056072,000637: 10,2460 54155 REFLASH TS PLAYTEM1 056073,000638: 056074,000639: 10,2461 33505 CAF REDOMASK # FLASH AND PERMIT 056075,000640: 10,2462 12501 TCF GOFLASH2 056076,000641: 056077,000642: 10,2463 54155 REFLASHR TS PLAYTEM1 056078,000643: 056079,000644: 10,2464 33505 CAF REDOMASK # FLASH AND PERMIT 056080,000645: 10,2465 12640 TCF GODSPRS 056081,000646: 056082,000647: # Page 1355 056083,000648: 10,2466 54155 REGODSP TS PLAYTEM1 056084,000649: 056085,000650: 10,2467 34736 CAF BIT14 056086,000651: 10,2470 12501 TCF GOFLASH2 056087,000652: 056088,000653: 10,2471 54155 REGODSPR TS PLAYTEM1 056089,000654: 056090,000655: 10,2472 34736 CAF BIT14 056091,000656: 10,2473 12454 TCF GODSPR2 056092,000657: 056093,000658: 10,2474 54155 CLOCPLAY TS PLAYTEM1 056094,000659: 10,2475 33544 CAF CLOCKCON 056095,000660: 10,2476 12501 TCF GOFLASH2 056096,000661: 056097,000662: 10,2477 54155 GOFLASH TS PLAYTEM1 056098,000663: 056099,000664: 10,2500 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET 056100,000665: 10,2501 54160 GOFLASH2 TS PLAYTEM4 056101,000666: 056102,000667: 10,2502 02723 TC SAVELOCS 056103,000668: 056104,000669: 10,2503 00003 RELINT 056105,000670: 056106,000671: 10,2504 12547 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL 056107,000672: 056108,000673: 10,2505 54155 PRIODSPR TS PLAYTEM1 056109,000674: 056110,000675: 10,2506 33524 CAF BITS7+4 056111,000676: 10,2507 12640 TCF GODSPRS 056112,000677: 056113,000678: 10,2510 54155 PRIODSP TS PLAYTEM1 056114,000679: 056115,000680: 10,2511 33524 SETPRIO CAF BITS7+4 056116,000681: 10,2512 12501 TCF GOFLASH2 056117,000682: 056118,000683: 10,2513 34755 MAKEPRIO CAF ZERO 056119,000684: 10,2514 54164 TS COPINDEX 056120,000685: 056121,000686: 10,2515 03375 TC LINUSCHR 056122,000687: 10,2516 12523 TCF HIPRIO # LINUS RETURN 056123,000688: 10,2517 30100 CA FLAGWRD4 056124,000689: 10,2520 73543 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY 056125,000690: 10,2521 10000 CCS A 056126,000691: 10,2522 12576 TCF PRIOBORT # YES, ABORT 056127,000692: 056128,000693: 10,2523 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE 056129,000694: 10,2524 75632 MASK OCT40400 056130,000695: 10,2525 00006 EXTEND 056131,000696: 10,2526 12531 BZF ASKIFNRM # NO 056132,000697: 056133,000698: # Page 1356 056134,000699: 10,2527 34755 SETMARK CAF ZERO 056135,000700: 10,2530 12775 TCF JOBXCHS 056136,000701: 056137,000702: 10,2531 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE 056138,000703: 10,2532 73541 MASK OCT10200 # BITS 13+8 056139,000704: 10,2533 00006 EXTEND 056140,000705: 10,2534 12537 BZF OKTOCOPY # NO 056141,000706: 056142,000707: 10,2535 34753 SETNORM CAF ONE 056143,000708: 10,2536 12775 TCF JOBXCHS 056144,000709: 056145,000710: 10,2537 02735 OKTOCOPY TC COPYNORM 056146,000711: 10,2540 03206 TC WITCHONE 056147,000712: 056148,000713: 10,2541 05137 TC JOBWAKE 056149,000714: 056150,000715: 10,2542 03223 TC XCHTOEND 056151,000716: 056152,000717: 10,2543 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT 056153,000718: 10,2544 55164 TS PRIOTIME 056154,000719: 056155,000720: 10,2545 34755 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY 056156,000721: 10,2546 12617 TCF PRIOPLAY 056157,000722: 056158,000723: 10,2547 30167 MAKEPLAY CA PRIORITY # SAVE USER'S PRIORITY 056159,000724: 10,2550 77730 MASK PRIO37 056160,000725: 10,2551 54163 TS USERPRIO 056161,000726: 056162,000727: 10,2552 37724 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE 056163,000728: 10,2553 05146 TC PRIOCHNG 056164,000729: 056165,000730: 10,2554 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM 056166,000731: 10,2555 73523 MASK BITS15+7 056167,000732: 10,2556 10000 CCS A 056168,000733: 10,2557 12513 TCF MAKEPRIO # ITS PRIO 056169,000734: 10,2560 12562 TCF IFLEGAL 056170,000735: 10,2561 12365 TCF MAKEMARK # ITS MARK 056171,000736: 056172,000737: 10,2562 34752 IFLEGAL CAF TWO 056173,000738: 10,2563 54164 TS COPINDEX 056174,000739: 056175,000740: 10,2564 03375 TC LINUSCHR 056176,000741: 056177,000742: 10,2565 12600 TCF OKTOPLAY # LINUS RETURN 056178,000743: 10,2566 41071 CS EBANKTEM 056179,000744: 10,2567 74750 MASK BIT4 056180,000745: 10,2570 10000 CCS A 056181,000746: 10,2571 12600 TCF OKTOPLAY # NO 056182,000747: 056183,000748: 10,2572 30100 CA FLAGWRD4 # WAS NORM ASLEEP 056184,000749: # Page 1357 056185,000750: 10,2573 73514 MASK NBUSMASK # ARE ANY NORMS ASLEEP 056186,000751: 10,2574 00006 EXTEND 056187,000752: 10,2575 12600 BZF OKTOPLAY # NO 056188,000753: 056189,000754: 10,2576 05624 PRIOBORT TC BAILOUT 056190,000755: 10,2577 31502 OCT 31502 056191,000756: 056192,000757: 10,2600 02737 OKTOPLAY TC COPIES2 056193,000758: 056194,000759: 10,2601 30163 CA USERPRIO 056195,000760: 10,2602 00006 EXTEND 056196,000761: 10,2603 04007 ROR SUPERBNK 056197,000762: 10,2604 54366 TS RESTREG 056198,000763: 056199,000764: 10,2605 30100 CA FLAGWRD4 # PRIO OR MARK GOING 056200,000765: 10,2606 73515 MASK PMMASK 056201,000766: 10,2607 10000 CCS A 056202,000767: 10,2610 12755 TCF GOSLEEPS # MARK GOING 056203,000768: 056204,000769: 10,2611 12613 TCF +2 056205,000770: 10,2612 12755 TCF GOSLEEPS 056206,000771: 056207,000772: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME 056208,000773: 056209,000774: 10,2613 03206 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE 056210,000775: 10,2614 05137 TC JOBWAKE 056211,000776: 056212,000777: 10,2615 03223 TC XCHTOEND 056213,000778: 056214,000779: 10,2616 34752 PLAYJUM1 CAF TWO 056215,000780: 10,2617 54164 PRIOPLAY TS COPINDEX 056216,000781: 056217,000782: 10,2620 13071 TCF GOPLAY 056218,000783: 056219,000784: 10,2621 54155 EXDSPRET TS PLAYTEM1 056220,000785: 056221,000786: 10,2622 37737 CAF BIT15+6 056222,000787: 10,2623 12501 TCF GOFLASH2 056223,000788: 056224,000789: 10,2624 55044 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE 056225,000790: 10,2625 33477 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1 056226,000791: 056227,000792: 10,2626 54155 GOPERFS TS PLAYTEM1 056228,000793: 056229,000794: 10,2627 33476 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING 056230,000795: 10,2630 12501 TCF GOFLASH2 056231,000796: 056232,000797: 10,2631 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 056233,000798: 056234,000799: 10,2632 33502 CAF PERF2MSK 056235,000800: 10,2633 12501 TCF GOFLASH2 056236,000801: 056237,000802: # Page 1358 056238,000803: 10,2634 02716 GOPERF4 TC PURRS4 056239,000804: 056240,000805: 10,2635 12501 TCF GOFLASH2 056241,000806: 056242,000807: 10,2636 54155 GOFLASHR TS PLAYTEM1 056243,000808: 056244,000809: 10,2637 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET 056245,000810: 10,2640 54160 GODSPRS TS PLAYTEM4 056246,000811: 056247,000812: 10,2641 36250 CAF THREE 056248,000813: 056249,000814: 10,2642 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4 056250,000815: 10,2643 54072 TS RUPTREG3 056251,000816: 056252,000817: 10,2644 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER 056253,000818: 10,2645 77730 MASK PRIO37 056254,000819: 10,2646 54063 TS NEWPRIO 056255,000820: 056256,000821: 10,2647 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY 056257,000822: 10,2650 74750 MASK BIT4 056258,000823: 10,2651 10000 CCS A 056259,000824: 10,2652 12660 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC 056260,000825: 10,2653 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC 056261,000826: 10,2654 05072 TC NOVAC 056262,000827: 10,2655 E7,1471 EBANK= WHOCARES 056263,000828: 10,2655 02547 20067 2CADR MAKEPLAY 056264,000829: 056265,000830: 10,2657 12666 TCF BOTHJOBS 056266,000831: 056267,000832: 10,2660 30006 VACDSP CA BBANK 056268,000833: 10,2661 00006 EXTEND 056269,000834: 10,2662 04007 ROR SUPERBNK 056270,000835: 10,2663 54001 TS L 056271,000836: 10,2664 33540 CAF MAKEGEN 056272,000837: 10,2665 05116 TC SPVAC 056273,000838: 056274,000839: 10,2666 02723 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS 056275,000840: 056276,000841: 10,2667 00006 EXTEND # SAVE NVWORD AND USER'S MPAC +2 056277,000842: 10,2670 30156 DCA MPAC +1 056278,000843: 10,2671 50064 INDEX LOCCTR 056279,000844: 10,2672 52156 DXCH MPAC +1 056280,000845: 056281,000846: 10,2673 00006 EXTEND # SAVE USER'S CADR, FLAGS AND EBANK 056282,000847: 10,2674 30160 DCA MPAC +3 056283,000848: 10,2675 50064 INDEX LOCCTR 056284,000849: 10,2676 52160 DXCH MPAC +3 056285,000850: 056286,000851: 10,2677 30064 CA LOCCTR 056287,000852: 10,2700 54161 TS MPAC +5 056288,000853: # Page 1359 056289,000854: 10,2701 02730 TC SAVELOCR 056290,000855: 10,2702 00003 RELINT 056291,000856: 056292,000857: 10,2703 14640 TCF BANKJUMP # CALL CADR +4 056293,000858: 056294,000859: 10,2704 55044 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE 056295,000860: 056296,000861: 10,2705 33477 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1 056297,000862: 056298,000863: 10,2706 54155 GOPERFRS TS PLAYTEM1 056299,000864: 056300,000865: 10,2707 33476 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING 056301,000866: 10,2710 12640 TCF GODSPRS 056302,000867: 056303,000868: 10,2711 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 056304,000869: 056305,000870: 10,2712 33502 CAF PERF2MSK 056306,000871: 10,2713 12640 TCF GODSPRS 056307,000872: 056308,000873: 10,2714 02716 GOPERF4R TC PURRS4 056309,000874: 056310,000875: 10,2715 12640 TCF GODSPRS 056311,000876: 056312,000877: 10,2716 55143 PURRS4 TS OPTION1 # DESIRED OPTION CODE 056313,000878: 056314,000879: 10,2717 33503 CAF V04N06 056315,000880: 10,2720 54155 TS PLAYTEM1 056316,000881: 056317,000882: 10,2721 33504 CAF PERF4MSK # FLASH, PERFORM AND EBANK R3 056318,000883: 10,2722 00002 TC Q 056319,000884: 056320,000885: 10,2723 00004 SAVELOCS INHINT 056321,000886: 056322,000887: 10,2724 43513 CS OCT3400 # EBANK BITS 056323,000888: 10,2725 70160 MASK PLAYTEM4 056324,000889: 10,2726 60003 AD EBANK 056325,000890: 10,2727 54160 TS PLAYTEM4 056326,000891: 056327,000892: 10,2730 22002 SAVELOCR LXCH Q 056328,000893: 056329,000894: 10,2731 04645 TC MAKECADR 056330,000895: 10,2732 54157 TS PLAYTEM3 056331,000896: 056332,000897: 10,2733 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES 056333,000898: 10,2734 00001 TC L 056334,000899: 056335,000900: 10,2735 34755 COPYNORM CAF ZERO 056336,000901: 10,2736 54164 COPIES TS COPINDEX 056337,000902: 10,2737 00004 COPIES2 INHINT 056338,000903: 10,2740 30160 CA PLAYTEM4 # FLAGWORD 056339,000904: 056340,000905: # Page 1360 056341,000906: 10,2741 50164 INDEX COPINDEX 056342,000907: 10,2742 55067 TS EBANKSAV # EQUIV TO DSPFLG 056343,000908: 056344,000909: 10,2743 73531 MASK CADRMASK # FLASH AND GODSPRET 056345,000910: 10,2744 00006 EXTEND 056346,000911: 10,2745 12751 BZF SKIPADD 056347,000912: 056348,000913: 10,2746 30157 CA PLAYTEM3 056349,000914: 10,2747 50164 INDEX COPINDEX 056350,000915: 10,2750 54372 TS CADRFLSH 056351,000916: 056352,000917: 10,2751 30155 SKIPADD CA PLAYTEM1 # VERB NOUN 056353,000918: 10,2752 50164 INDEX COPINDEX 056354,000919: 10,2753 54367 TS NVWORD 056355,000920: 056356,000921: 10,2754 13232 TCF RELINTQ 056357,000922: 056358,000923: 10,2755 50164 GOSLEEPS INDEX COPINDEX 056359,000924: 10,2756 33532 CA PRIOOCT 056360,000925: 10,2757 72761 MASK WAITMASK 056361,000926: 10,2760 03545 TC UPENT2 056362,000927: 10,2761 03004 WAITMASK OCT 3004 056363,000928: 10,2762 44753 CS ONE 056364,000929: 10,2763 60164 AD COPINDEX 056365,000930: 10,2764 54154 TS FACEREG 056366,000931: 056367,000932: 10,2765 50154 XCHSLEEP INDEX FACEREG 056368,000933: 10,2766 33511 CAF WAKECADR 056369,000934: 10,2767 00004 INHINT 056370,000935: 10,2770 05137 TC JOBWAKE # FIND CADR IN JOB AREA 056371,000936: 056372,000937: 10,2771 03223 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB 056373,000938: 056374,000939: 10,2772 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA 056375,000940: 10,2773 33511 CAF WAKECADR 056376,000941: 10,2774 15133 TCF JOBSLEEP 056377,000942: 056378,000943: 10,2775 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP 056379,000944: 10,2776 03206 TC WITCHONE 056380,000945: 10,2777 05137 TC JOBWAKE 056381,000946: 10,3000 30154 CA FACEREG 056382,000947: 10,3001 50064 INDEX LOCCTR 056383,000948: 10,3002 54154 TS FACEREG 056384,000949: 056385,000950: 10,3003 33016 CAF XCHQADD 056386,000951: 10,3004 03224 TC XCHNYLOC 056387,000952: 056388,000953: 10,3005 50154 INDEX FACEREG 056389,000954: 10,3006 33533 CA MARKOCT 056390,000955: 10,3007 73535 MASK IDLESLEP 056391,000956: 056392,000957: # Page 1361 056393,000958: 10,3010 03555 TC DOWNENT2 056394,000959: 10,3011 74004 IDLEMASK OCT 74004 # * DON'T MOVE 056395,000960: 056396,000961: 10,3012 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK 056397,000962: 10,3013 34747 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL 056398,000963: 10,3014 64751 AD FOUR 056399,000964: 10,3015 03545 TC UPENT2 # FLAG ROUTINE DOES RELINT 056400,000965: 10,3016 02765 XCHQADD GENADR XCHSLEEP # * DON'T MOVE 056401,000966: 10,3017 30100 CA FLAGWRD4 056402,000967: 10,3020 74751 MASK MKOVBIT # MARK OVER NORM? 056403,000968: 10,3021 10000 CCS A 056404,000969: 10,3022 02400 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE 056405,000970: 10,3023 12537 TCF OKTOCOPY 056406,000971: 056407,000972: 10,3024 34755 MARKWAKE CAF ZERO 056408,000973: 10,3025 54160 WAKEPLAY TS TEMPOR2 056409,000974: 056410,000975: 10,3026 50160 INDEX TEMPOR2 056411,000976: 10,3027 33525 CA BITS5+11 056412,000977: 10,3030 64751 AD FOUR 056413,000978: 10,3031 03555 TC DOWNENT2 056414,000979: 10,3032 40010 MARKFMSK OCT 40010 # *** DON'T MOVE 056415,000980: 056416,000981: 10,3033 50160 INDEX TEMPOR2 056417,000982: 10,3034 33511 CAF WAKECADR 056418,000983: 10,3035 00004 INHINT 056419,000984: 10,3036 05137 TC JOBWAKE 056420,000985: 056421,000986: 10,3037 13336 TCF ENDRET 056422,000987: 056423,000988: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS 056424,000989: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK. 056425,000990: 056426,000991: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO TEH LAST NORMAL USER. 056427,000992: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY. 056428,000993: 056429,000994: 10,3040 31071 INITDSP CA EBANKTEM # RESTORE MOST RECENT NORMAL EBANK 056430,000995: 10,3041 54003 TS EBANK 056431,000996: 056432,000997: 10,3042 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY 056433,000998: 10,3043 04727 TC SUPERSW # RESTORE SUPERBANK 056434,000999: 056435,001000: 10,3044 77730 MASK PRIO37 056436,001001: 10,3045 05146 TC PRIOCHNG 056437,001002: 056438,001003: 10,3046 46250 CS THREE 056439,001004: 10,3047 60374 AD TEMPFLSH 056440,001005: 10,3050 14640 TCF BANKJUMP 056441,001006: 056442,001007: 10,3051 00003 PINBRNCH RELINT # FOR GOPIN USERS 056443,001008: 10,3052 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS 056444,001009: # Page 1362 056445,001010: 10,3053 54156 TS MPAC +2 # ONLY 056446,001011: 056447,001012: 10,3054 30100 CA FLAGWRD4 # PINBRANCH CONDITION 056448,001013: 10,3055 77743 MASK PINMASK 056449,001014: 10,3056 10000 CCS A 056450,001015: 10,3057 13062 TCF +3 056451,001016: 10,3060 13472 TCF ERASER # ** NOTHING IN ENDIDLE 056452,001017: 10,3061 12400 TCF MARKPLAY 056453,001018: 056454,001019: 10,3062 05504 NORMBNCH TC UPFLAG # SET PINBRANCH BIT 056455,001020: 10,3063 00105 ADRES PINBRFLG 056456,001021: 056457,001022: 10,3064 34736 CAF PRIODBIT # PRIO INTERRUPTED 056458,001023: 10,3065 70100 MASK FLAGWRD4 056459,001024: 10,3066 10000 CCS A 056460,001025: 10,3067 12545 TCF KEEPPRIO 056461,001026: 056462,001027: 10,3070 12616 TCF PLAYJUM1 056463,001028: 056464,001029: 10,3071 02420 NVDSP TC COPYPACS 056465,001030: 056466,001031: 10,3072 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE 056467,001032: 10,3073 74757 MASK SEVEN # USER REQUESTS BLANKING MONITOR 056468,001033: 10,3074 54001 TS L 056469,001034: 056470,001035: 10,3075 44737 CS BIT13 056471,001036: 10,3076 50164 INDEX COPINDEX 056472,001037: 10,3077 71067 MASK DSPFLG 056473,001038: 10,3100 50164 INDEX COPINDEX 056474,001039: 10,3101 55067 TS DSPFLG 056475,001040: 056476,001041: 10,3102 74744 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY 056477,001042: 10,3103 54141 TS TEM1 056478,001043: 056479,001044: 10,3104 30156 CA MPAC +2 056480,001045: 10,3105 54165 TS MPAC2SAV 056481,001046: 056482,001047: 10,3106 55072 TS MARK2PAC # * FOR DISK ONLY * 056483,001048: 10,3107 50164 INDEX COPINDEX 056484,001049: 10,3110 10367 CCS NVWORD 056485,001050: 10,3111 13120 TCF NVDSP1 056486,001051: 10,3112 13234 TCF CLEANEND 056487,001052: 10,3113 40370 CS MARKNV 056488,001053: 10,3114 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING 056489,001054: 10,3115 76077 MASK LOW7 056490,001055: 10,3116 63516 AD V05N00M1 056491,001056: 10,3117 60141 AD TEM1 056492,001057: 10,3120 64753 NVDSP1 AD ONE 056493,001058: 10,3121 04155 NV50DSP TC NVMONOPT 056494,001059: 10,3122 13246 TCF REST # IF BUSY 056495,001060: 056496,001061: # Page 1363 056497,001062: 10,3123 04433 TC FLASHOFF # IN CASE OF EXTENDED VERB NON-FLASH 056498,001063: 056499,001064: 10,3124 02416 TC COPYTOGO # MPACS DESTROYED BY NVSUB 056500,001065: 10,3125 05516 TC DOWNFLAG # UNSET SLEEPING BITS 056501,001066: 10,3126 00102 ADRES MRKNVFLG 056502,001067: 10,3127 05516 TC DOWNFLAG 056503,001068: 10,3130 00103 ADRES NRMNVFLG 056504,001069: 10,3131 05516 TC DOWNFLAG 056505,001070: 10,3132 00104 ADRES PRONVFLG 056506,001071: 10,3133 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET 056507,001072: 10,3134 04255 TC BLANKSUB 056508,001073: 10,3135 13071 TCF NVDSP 056509,001074: 10,3136 34747 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM 056510,001075: 10,3137 70160 MASK TEMPOR2 056511,001076: 10,3140 10000 CCS A # IS THIS A GOPERF DISPLAY 056512,001077: 10,3141 13164 TCF 1STOR2ND # YES 056513,001078: 056514,001079: 10,3142 34750 GOANIDLE CAF BIT4 056515,001080: 10,3143 70160 MASK TEMPOR2 056516,001081: 10,3144 10000 CCS A 056517,001082: 10,3145 13261 TCF FLASHSUB # IT IS 056518,001083: 056519,001084: 10,3146 40160 CS TEMPOR2 # IS THIS A GODSPRET 056520,001085: 10,3147 74746 MASK BIT6 056521,001086: 10,3150 10000 CCS A 056522,001087: 10,3151 13156 TCF ISITN00 056523,001088: 056524,001089: 10,3152 50164 INDEX COPINDEX 056525,001090: 10,3153 30372 CA CADRFLSH 056526,001091: 10,3154 54157 TS MPAC +3 056527,001092: 10,3155 13354 TCF ENDIT 056528,001093: 056529,001094: 10,3156 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE 056530,001095: 10,3157 30367 CA NVWORD 056531,001096: 10,3160 76077 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK 056532,001097: 10,3161 00006 EXTEND 056533,001098: 10,3162 13261 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH 056534,001099: 056535,001100: 10,3163 15155 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT 056536,001101: 056537,001102: 10,3164 30160 1STOR2ND CA TEMPOR2 056538,001103: 10,3165 74737 MASK BIT13 056539,001104: 10,3166 10000 CCS A 056540,001105: 10,3167 13142 TCF GOANIDLE # SECOND 056541,001106: 056542,001107: 10,3170 34737 CA BIT13 056543,001108: 10,3171 50164 INDEX COPINDEX 056544,001109: 10,3172 27067 ADS DSPFLG 056545,001110: 056546,001111: 10,3173 22007 ZL 056547,001112: # Page 1364 056548,001113: 10,3174 00006 EXTEND # IS IT MARK 056549,001114: 10,3175 62441 BZMF MARKPERF # YES 056550,001115: 056551,001116: 10,3176 74740 MASK BIT12 056552,001117: 10,3177 00006 EXTEND 056553,001118: 10,3200 13204 BZF V50PASTE 056554,001119: 10,3201 41066 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99 056555,001120: 10,3202 63542 AD V97N00 056556,001121: 10,3203 13121 TCF NV50DSP 056557,001122: 10,3204 33501 V50PASTE CAF V50N00 056558,001123: 10,3205 13121 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF 056559,001124: 056560,001125: 10,3206 44747 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT 056561,001126: 10,3207 00006 EXTEND 056562,001127: 10,3210 03011 WAND DSALMOUT 056563,001128: 056564,001129: 10,3211 30100 CA FLAGWRD4 056565,001130: 10,3212 73517 MASK NVBUSMSK # IS IT NVSUB ALEEP 056566,001131: 10,3213 10000 CCS A 056567,001132: 10,3214 34753 CAF ONE 056568,001133: 10,3215 54001 TS L 056569,001134: 10,3216 34755 CAF ZERO 056570,001135: 10,3217 50001 INDEX L 056571,001136: 10,3220 57041 XCH CADRSTOR 056572,001137: 056573,001138: 10,3221 00004 INHINT 056574,001139: 10,3222 00002 TC Q 056575,001140: 056576,001141: 10,3223 34217 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR 056577,001142: 10,3224 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING 056578,001143: 10,3225 00006 EXTEND 056579,001144: 10,3226 63232 BZMF RELINTQ # NO 056580,001145: 10,3227 56064 XCH LOCCTR # YES 056581,001146: 10,3230 50064 INDEX LOCCTR 056582,001147: 10,3231 54164 TS LOC 056583,001148: 056584,001149: 10,3232 00003 RELINTQ RELINT 056585,001150: 10,3233 00002 TC Q # BACK TO USER 056586,001151: 056587,001152: 10,3234 37723 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING 056588,001153: 10,3235 05105 TC FINDVAC 056589,001154: 10,3236 0371 EBANK= NVSAVE 056590,001155: 10,3236 04231 04060 2CADR JAMTERM 056591,001156: 056592,001157: 10,3240 13262 TCF FLASHSUB +1 056593,001158: 056594,001159: 10,3241 30100 ISITPRIO CA FLAGWRD4 056595,001160: 10,3242 73267 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET 056596,001161: 10,3243 00006 EXTEND 056597,001162: # Page 1365 056598,001163: 10,3244 12576 BZF PRIOBORT 056599,001164: 10,3245 15155 TCF ENDOFJOB 056600,001165: 056601,001166: 10,3246 11041 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE 056602,001167: 10,3247 15155 TCF ENDOFJOB # YES 056603,001168: 10,3250 13252 TCF RESTSLEP 056604,001169: 056605,001170: 10,3251 15155 TCF ENDOFJOB 056606,001171: 056607,001172: 10,3252 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS 056608,001173: 10,3253 73520 MASK ASTROMSK 056609,001174: 10,3254 03545 TC UPENT2 056610,001175: 10,3255 24100 OCT24100 OCT 24100 # *** DON'T MOVE 056611,001176: 056612,001177: 10,3256 50164 INDEX COPINDEX 056613,001178: 10,3257 33510 CAF NVCADR 056614,001179: 10,3260 04442 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL 056615,001180: 056616,001181: 10,3261 04427 FLASHSUB TC FLASHON 056617,001182: 056618,001183: 10,3262 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE 056619,001184: 10,3263 54157 TS COPMPAC 056620,001185: 056621,001186: 10,3264 30162 CA GENMASK 056622,001187: 10,3265 73011 MASK IDLEMASK 056623,001188: 10,3266 03545 TC UPENT2 056624,001189: 10,3267 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DON'T MOVE 056625,001190: 056626,001191: 10,3270 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY 056627,001192: 10,3271 50164 INDEX COPINDEX 056628,001193: 10,3272 74751 MASK BIT3 056629,001194: 10,3273 10000 CCS A 056630,001195: 10,3274 13361 TCF UNSETR1 # YES 056631,001196: 056632,001197: 10,3275 11041 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE 056633,001198: 10,3276 13241 TCF ISITPRIO 056634,001199: 10,3277 13301 TCF +2 056635,001200: 10,3300 13241 TCF ISITPRIO 056636,001201: 056637,001202: 10,3301 04207 TC ENDIDLE 056638,001203: 10,3302 13373 IDLERET1 TCF TERMATE 056639,001204: 056640,001205: 10,3303 13412 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED 056641,001206: 056642,001207: 10,3304 43527 CS LOWLOAD 056643,001208: 10,3305 60154 AD MPAC # VERBREG 056644,001209: 10,3306 00006 EXTEND 056645,001210: 10,3307 26000 DIM A 056646,001211: 10,3310 00006 EXTEND 056647,001212: 10,3311 13462 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY 056648,001213: 056649,001214: # Page 1366 056650,001215: 10,3312 34752 OKTOENT CAF TWO 056651,001216: 10,3313 54161 ENDOUT TS OUTHERE 056652,001217: 056653,001218: 10,3314 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN 056654,001219: 10,3315 74101 MASK OCT60000 056655,001220: 10,3316 10000 CCS A 056656,001221: 10,3317 13322 TCF TIMECHEK # PRIO ENDIDLE RETURN 056657,001222: 10,3320 13430 TCF NORMRET # NORMAL ENDIDLE RETURN 056658,001223: 10,3321 13414 TCF MARKRET # MARK ENDIDLE RETURN 056659,001224: 056660,001225: 10,3322 40025 TIMECHEK CS TIME1 056661,001226: 10,3323 61164 AD PRIOTIME 056662,001227: 10,3324 10000 CCS A 056663,001228: 10,3325 40000 COM 056664,001229: 10,3326 67734 AD OCT37776 056665,001230: 10,3327 64753 AD ONE 056666,001231: 10,3330 63571 AD -2SEC 056667,001232: 10,3331 00006 EXTEND 056668,001233: 10,3332 62545 BZMF KEEPPRIO 056669,001234: 056670,001235: 10,3333 13430 TCF NORMRET 056671,001236: 056672,001237: 10,3334 34753 NORMWAKE CAF ONE 056673,001238: 10,3335 13025 TCF WAKEPLAY 056674,001239: 056675,001240: 10,3336 10161 ENDRET CCS OUTHERE 056676,001241: 10,3337 64753 AD ONE 056677,001242: 10,3340 13342 TCF +2 # NORMAL ENDIDLE EXIT 056678,001243: 10,3341 15155 TCF ENDOFJOB 056679,001244: 10,3342 50157 INDEX COPMPAC 056680,001245: 10,3343 60372 AD CADRFLSH 056681,001246: 10,3344 54157 TS MPAC +3 056682,001247: 056683,001248: 10,3345 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS 056684,001249: 10,3346 73350 MASK PINIDMSK 056685,001250: 10,3347 03555 TC DOWNENT2 056686,001251: 10,3350 74044 PINIDMSK OCT 74044 # *** DON'T MOVE 056687,001252: 056688,001253: 10,3351 46250 CS THREE # BLANK EVERYTHING EXCEPT MM 056689,001254: 10,3352 04154 TC NVSUB 056690,001255: 10,3353 13354 TCF +1 056691,001256: 056692,001257: 10,3354 30163 ENDIT CA USERPRIO # RETURN TO USER'S PRIORITY 056693,001258: 10,3355 77730 MASK PRIO37 056694,001259: 10,3356 05146 TC PRIOCHNG 056695,001260: 10,3357 30157 CA MPAC +3 056696,001261: 10,3360 14640 TCF BANKJUMP 056697,001262: 056698,001263: 10,3361 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST 056699,001264: 10,3362 44751 CS BIT3 056700,001265: # Page 1367 056701,001266: 10,3363 71073 MASK R1SAVE 056702,001267: 10,3364 55073 TS R1SAVE 056703,001268: 056704,001269: 10,3365 34755 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN 056705,001270: 10,3366 04727 TC SUPERSW # SUPERBANK 0 056706,001271: 056707,001272: 10,3367 36250 -1 CAF THREE # RETURN TO USER'S IMMEDIATE RETURN LOC 056708,001273: 10,3370 50164 IMMEDRET INDEX COPINDEX 056709,001274: 10,3371 60372 AD CADRFLSH 056710,001275: 10,3372 14640 TCF BANKJUMP 056711,001276: 056712,001277: 10,3373 34755 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO 056713,001278: 10,3374 13313 TCF ENDOUT 056714,001279: 056715,001280: 10,3375 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS 056716,001281: 10,3376 74736 MASK BIT14 056717,001282: 10,3377 10000 CCS A 056718,001283: 10,3400 16742 TCF Q+1 # NO 056719,001284: 10,3401 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE 056720,001285: 10,3402 50164 INDEX COPINDEX 056721,001286: 10,3403 60372 AD CADRFLSH 056722,001287: 10,3404 00006 EXTEND 056723,001288: 10,3405 13407 BZF +2 # YES 056724,001289: 056725,001290: 10,3406 00002 TC Q # NO 056726,001291: 10,3407 11011 CCS DSPLOCK # IS THE ASTRONAUT BUSY 056727,001292: 10,3410 05155 TC ENDOFJOB # END THE NEW DISPLAY, IT'S ALREADY ACTIVE 056728,001293: 10,3411 00002 TC Q 056729,001294: 056730,001295: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD 056731,001296: 056732,001297: 10,3412 34753 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS 056733,001298: 10,3413 13313 TCF ENDOUT 056734,001299: 056735,001300: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK 056736,001301: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY 056737,001302: # DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP. 056738,001303: 056739,001304: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS 056740,001305: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS 056741,001306: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A 056742,001307: # PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART. 056743,001308: 056744,001309: 10,3414 46245 MARKRET CS SIX 056745,001310: 10,3415 70100 MASK FLAGWRD4 056746,001311: 10,3416 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF 056747,001312: 10,3417 54100 TS FLAGWRD4 056748,001313: 056749,001314: 10,3420 00003 RELINT # INHINT REALM 056750,001315: 10,3421 13336 TCF ENDRET 056751,001316: 056752,001317: # Page 1368 056753,001318: 10,3422 37752 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET 056754,001319: 10,3423 54161 TS OUTHERE 056755,001320: 056756,001321: 10,3424 30100 CA FLAGWRD4 # IS ENDIDFLG SET 056757,001322: 10,3425 74355 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE 056758,001323: 10,3426 10000 CCS A 056759,001324: 10,3427 13062 TCF NORMBNCH 056760,001325: 056761,001326: 10,3430 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING 056762,001327: 10,3431 73525 MASK BITS5+11 # OR WAITING 056763,001328: 10,3432 10000 CCS A 056764,001329: 10,3433 13024 TCF MARKWAKE 056765,001330: 056766,001331: 10,3434 30100 CA FLAGWRD4 # NO 056767,001332: 10,3435 73526 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING 056768,001333: 10,3436 10000 CCS A 056769,001334: 10,3437 13334 TCF NORMWAKE # YES 056770,001335: 056771,001336: 10,3440 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST 056772,001337: 10,3441 74771 MASK OCT50 # OR A GODSPRET 056773,001338: 10,3442 10000 CCS A 056774,001339: 10,3443 13336 TCF ENDRET # YES 056775,001340: 10,3444 30371 CA NVSAVE 056776,001341: 10,3445 00006 EXTEND 056777,001342: 10,3446 13336 BZF ENDRET 056778,001343: 056779,001344: 10,3447 35025 CAF PRIO15 056780,001345: 10,3450 00004 INHINT 056781,001346: 10,3451 05072 TC NOVAC 056782,001347: 10,3452 0367 EBANK= NVWORD 056783,001348: 10,3452 02616 20060 2CADR PLAYJUM1 056784,001349: 056785,001350: 10,3454 13336 TCF ENDRET 056786,001351: 056787,001352: 10,3455 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY ON 056788,001353: 10,3456 73525 MASK BITS5+11 056789,001354: 10,3457 10000 CCS A 056790,001355: 10,3460 15155 TCF ENDOFJOB # YES 056791,001356: 10,3461 12755 TCF GOSLEEPS 056792,001357: 056793,001358: 10,3462 50157 LOADITIS INDEX COPMPAC 056794,001359: 10,3463 30367 CA NVWORD 056795,001360: 10,3464 76077 MASK LOW7 056796,001361: 10,3465 40000 COM 056797,001362: 10,3466 60155 AD MPAC +1 # NOUNREG 056798,001363: 10,3467 00006 EXTEND 056799,001364: 10,3470 13312 BZF OKTOENT # NO, THEN LOAD IS VALID 056800,001365: 10,3471 13051 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN 056801,001366: 056802,001367: # Page 1369 056803,001368: 10,3472 46250 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM 056804,001369: 10,3473 04154 TC NVSUB 056805,001370: 10,3474 15155 TCF ENDOFJOB 056806,001371: 10,3475 15155 TCF ENDOFJOB 056807,001372: 056808,001373: 10,3476 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3 056809,001374: 10,3477 00231 V01N25 VN 00125 056810,001375: 10,3500 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50 056811,001376: 10,3501 14400 V50N00 VN 5000 056812,001377: 10,3502 00030 PERF2MSK OCT 00030 # FLASH, PERFORM 056813,001378: 10,3503 01006 V04N06 VN 00406 056814,001379: 10,3504 00014 PERF4MSK OCT 14 # FLASH, BLANK R3 056815,001380: 10,3505 10,3051 GOAGIN EQUALS PINBRNCH 056816,001381: 10,3505 20010 REDOMASK OCT 20010 # BITS 4 AND 14 056817,001382: 10,3506 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH 056818,001383: 10,3507 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3 056819,001384: 10,3510 20543 NVCADR CADR REDOPRIO 056820,001385: 10,3511 20400 WAKECADR CADR MARKPLAY 056821,001386: 10,3512 20616 CADR PLAYJUM1 056822,001387: 056823,001388: 10,3513 03400 OCT3400 OCT 3400 # EBANK MASK 056824,001389: 10,3514 11210 NBUSMASK OCT 11210 056825,001390: 10,3515 66521 PMMASK OCT 66521 056826,001391: 10,3516 4144 VERBMASK = MID7 # (OCT 37600) 056827,001392: 10,3516 01177 V05N00M1 OCT 1177 # V05 MINUS ONE 056828,001393: 10,3517 10,2330 GOXDSP EQUALS GOMARK 056829,001394: 10,3517 10,2350 GOXDSPR EQUALS GOMARKR 056830,001395: 10,3517 10,2334 GOXDSPF EQUALS GOMARKF 056831,001396: 10,3517 10,2353 GOXDSPFR EQUALS GOMARKFR 056832,001397: 10,3517 5472 ENDEXT EQUALS ENDMARK 056833,001398: 10,3517 0165 MPAC2SAV EQUALS BANKSET 056834,001399: 10,3517 00700 NVBUSMSK OCT 700 056835,001400: 10,3520 00704 ASTROMSK OCT 704 056836,001401: 10,3521 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH 056837,001402: 10,3522 34300 OCT34300 OCT 34300 056838,001403: 10,3523 40100 BITS15+7 OCT 40100 056839,001404: 10,3524 00110 BITS7+4 OCT 110 056840,001405: 10,3525 1067 DSPFLG EQUALS EBANKSAV 056841,001406: 10,3525 1070 MARKFLAG EQUALS MARKEBAN 056842,001407: 10,3525 1071 SAVEFLAG EQUALS EBANKTEM 056843,001408: 10,3525 02020 BITS5+11 OCT 2020 # * DON'T MOVE 056844,001409: 10,3526 01010 BITS4+10 OCT 1010 # * DON'T MOVE 056845,001410: 10,3527 00026 LOWLOAD DEC 22 B-14 056846,001411: 10,3530 77730 BUSYMASK OCT 77730 056847,001412: 10,3531 00050 CADRMASK OCT 50 056848,001413: 10,3532 7743 PINMASK EQUALS 13,14,15 056849,001414: 10,3532 10,3071 GOPLAY EQUALS NVDSP 056850,001415: 10,3532 1073 PRIOSAVE EQUALS R1SAVE 056851,001416: 10,3532 0157 COPMPAC EQUALS MPAC +3 056852,001417: 10,3532 0160 TEMPOR2 EQUALS MPAC +4 056853,001418: 056854,001419: # Page 1370 056855,001420: 10,3532 0161 OUTHERE EQUALS MPAC +5 056856,001421: 10,3532 0164 COPINDEX EQUALS LOC 056857,001422: 10,3532 0163 USERPRIO EQUALS MODE 056858,001423: 10,3532 0162 GENMASK EQUALS MPAC +6 056859,001424: 10,3532 20144 PRIOOCT OCT 20144 # PRIO 056860,001425: 10,3533 42424 MARKOCT OCT 42424 # MARK 056861,001426: 10,3534 11254 OCT 11254 # NORM 056862,001427: 056863,001428: 10,3535 74704 IDLESLEP OCT 74704 056864,001429: 10,3536 67777 OCT67777 OCT 67777 056865,001430: 10,3537 5464 LINUS EQUALS BLANKET 056866,001431: 10,3537 0154 FACEREG EQUALS MPAC 056867,001432: 10,3537 0155 PLAYTEM1 EQUALS MPAC +1 056868,001433: 10,3537 0157 PLAYTEM3 EQUALS MPAC +3 056869,001434: 10,3537 0160 PLAYTEM4 EQUALS MPAC +4 056870,001435: 10,3537 40420 OCT40420 OCT 40420 056871,001436: 10,3540 02547 MAKEGEN GENADR MAKEPLAY 056872,001437: 10,3541 10200 OCT10200 OCT 10200 056873,001438: 10,3542 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99 056874,001439: 10,3543 20100 OCT20100 OCT 20100 056875,001440: 10,3544 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE, REFLASH End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc