Source Code

062756,000001: # Copyright: Public domain. 062757,000002: # Filename: DISPLAY_INTERFACE_ROUTINES.agc 062758,000003: # Purpose: Part of the source code for Comanche, build 055. It 062759,000004: # is part of the source code for the Command Module's 062760,000005: # (CM) Apollo Guidance Computer (AGC), Apollo 11. 062761,000006: # Assembler: yaYUL 062762,000007: # Reference: pp. 1452-1484 062763,000008: # Contact: Ron Burkey <info@sandroid.org> 062764,000009: # Website: http://www.ibiblio.org/apollo. 062765,000010: # Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same 062766,000011: # name, and page images. Corrected various 062767,000012: # typos in the transcription of program 062768,000013: # comments, and these should be back-ported 062769,000014: # to Colossus249. 062770,000015: 062771,000016: # The contents of the "Comanche055" files, in general, are transcribed 062772,000017: # from scanned documents. 062773,000018: 062774,000019: # Assemble revision 055 of AGC program Comanche by NASA 062775,000020: # 2021113-051. April 1, 1969. 062776,000021: 062777,000022: # This AGC program shall also be referred to as Colossus 2A 062778,000023: 062779,000024: # Prepared by 062780,000025: # Massachussets Institute of Technology 062781,000026: # 75 Cambridge Parkway 062782,000027: # Cambridge, Massachusetts 062783,000028: 062784,000029: # under NASA contract NAS 9-4065. 062785,000030: 062786,000031: # Refer directly to the online document mentioned above for further 062787,000032: # information. Please report any errors to info@sandroid.org. 062788,000033: 062789,000034: # Page 1452 062790,000035: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -- 062791,000036: # 1. PRIORITY DISPLAYS -- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT 062792,000037: # OUT UNDER CRITICAL ALARM CONDITIONS. 062793,000038: # 2. EXTENDED VERB DISPLAYS -- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS. 062794,000039: # 3. NORMAL DISPLAYS -- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL 062795,000040: # SEQUENCE OF EVENTS. 062796,000041: # 4. MISC. DISPLAYS -- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS 062797,000042: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL. 062798,000043: # 5. ASTRONAUT INITIATED DISPLAYS -- ALL DISPLAYS INITIATED EXTERNALLY. 062799,000044: 062800,000045: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -- 062801,000046: # 1. ACTIVE -- THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR 062802,000047: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY 062803,000048: # BUT NOT WAITING FOR A RESPONSE. 062804,000049: # 2. INACTIVE -- A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY, 062805,000050: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY 062806,000051: # WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE 062807,000052: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL 062808,000053: # HAS INFO SAVED FOR RESTART PURPOSES. 062809,000054: 062810,000055: # DISPLAY PRIORITIES WORK AS FOLLOWS -- 062811,000056: # INTERRUPTS -- 062812,000057: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST. 062813,000058: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY. 062814,000059: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER 062815,000060: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE. 062816,000061: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY. 062817,000062: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT. 062818,000063: 062819,000064: # ORDER OF WAITING DISPLAYS -- 062820,000065: # 1. ASTRONAUT 062821,000066: # 2. PRIORITY 062822,000067: # 3. INTERRUPTED MARK 062823,000068: # 4. INTERRUPTED NORMAL 062824,000069: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK) 062825,000070: # 6. MARK WAITING 062826,000071: # 7. NORMAL WAITING 062827,000072: 062828,000073: # Page 1453 062829,000074: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE 062830,000075: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES 062831,000076: # WILL FOLLOW LATER): 062832,000077: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN 062833,000078: # IS TO THE USER'S CALL CADR +4. FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN 062834,000079: # IS TO THE USER'S CALLING LOC +1. 062835,000080: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER. 062836,000081: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USER'S JOB PRIORITY. 062837,000082: # 4. ALL ROUTIENS NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE 062838,000083: # USER'S JOB. 062839,000084: # 5. ALL DISPLAY ROUTIENS ARE CALLED VIA BANKCALL. 062840,000085: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE 062841,000086: # DESCRIPTION OF RESTARTS). 062842,000087: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES 062843,000088: # TO THE USER'S CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2. AN ENTER OR RECYCLE 062844,000089: # (V32) BRANCHES TO THE USER'S CALL CADR +3. 062845,000090: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL 062846,000091: 062847,000092: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS: 062848,000093: 062849,000094: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. 062850,000095: # 1. GODSP IS NOT RESTARTABLE 062851,000096: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH. 062852,000097: # CAF VXXNYY 062853,000098: # TC BANKCALL 062854,000099: # CADR GODSP 062855,000100: # VXXNYY OCT OXXYY 062856,000101: 062857,000102: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER. 062858,000103: # CAF VXXNYY 062859,000104: # TC BANKCALL 062860,000105: # CADR GODSPR 062861,000106: # ... ... # IMMEDIATE RETURN OF GODSPR 062862,000107: 062863,000108: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM 062864,000109: # THE ASTRONAUT (SEE NO. 7 ABOVE). 062865,000110: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN. 062866,000111: # TC BANKCALL 062867,000112: # CADR GOFLASH 062868,000113: # ... ... # TERMINATE RETURN 062869,000114: # ... ... # PROCEED RETURN 062870,000115: # ... ... # ENTER OR RECYCLE RETURN 062871,000116: 062872,000117: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A 062873,000118: # Page 1454 062874,000119: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO 062875,000120: # USER (SEE NO. 7 ABOVE). 062876,000121: # GOPERF1 BLANKS REGISTERS R2 AND R3 062877,000122: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX 062878,000123: # TC BANKCALL 062879,000124: # CADR GOPERF1 062880,000125: # ... ... # TERMINATE RETURN 062881,000126: # ... ... # PROCEED RETURN 062882,000127: # ... ... # ENTER RETURN 062883,000128: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE 062884,000129: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING 062885,000130: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). 062886,000131: # GOPERF2 DOES NOT BLANK ANY REGISTERS 062887,000132: # CAF VXXNYY # VARIABLE NOUN YY. XX=0 OR 01. 062888,000133: # TC BANKCALL 062889,000134: # CADR GOPERF2 062890,000135: # ... ... # TERMINATE RETURN 062891,000136: # ... ... # PROCEED RETURN 062892,000137: # ... ... # ENTER RETURN 062893,000138: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3 062894,000139: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN 062895,000140: # IS MADE TO THE USER (SEE NO. 7 ABOVE). 062896,000141: # GOPERF3 BLANKS REGISTERS R2 AND R3 062897,000142: # CAF DECXX # REQUEST PERFORM ON PXX 062898,000143: # TC BANKCALL 062899,000144: # CADR GOPERF3 062900,000145: # ... ... # TERMINATE RETURN 062901,000146: # ... ... # PROCEED RETURN 062902,000147: # ... ... # ENTER RETURN 062903,000148: 062904,000149: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1. 062905,000150: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO 062906,000151: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). 062907,000152: # CAF OCTXX # REQUEST PERFORM ON OPTION XX 062908,000153: # TC BANKCALL 062909,000154: # CADR GOPERF4 062910,000155: # ... ... # TERMINATE RETURN 062911,000156: # ... ... # PROCEED RETURN 062912,000157: # ... ... # ENTER RETURN 062913,000158: # GOPERF4 BLANKS REGISTER R3. 062914,000159: 062915,000160: # Page 1455 062916,000161: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT 062917,000162: # OUT. 062918,000163: # CAF VXXXNYY 062919,000164: # TC BANKCALL 062920,000165: # CADR GODSPRET 062921,000166: # ... ... # RETURN TO USER. 062922,000167: 062923,000168: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES AND 062924,000169: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. 062925,000170: # CAF VXXNYY 062926,000171: # TC BANKCALL 062927,000172: # CADR REGODSP 062928,000173: 062929,000174: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. 062930,000175: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN 062931,000176: # TC BANKCALL 062932,000177: # CADR REFLASH 062933,000178: # ... ... # TERMINATE RETURN 062934,000179: # ... ... # PROCEED RETURN 062935,000180: # ... ... # ENTER RETURN 062936,000181: 062937,000182: # GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 062938,000183: # CAF VXXNYY 062939,000184: # TC BANKCALL 062940,000185: # CADR GOFLASHR 062941,000186: # ... ... # TERMINATE RETURN 062942,000187: # ... ... # PROCEED RETURN 062943,000188: # ... ... # ENTER OR RECYCLE RETURN 062944,000189: # ... ... # IMMEDIATE RETURN FROM GOFLASHR 062945,000190: 062946,000191: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USER'S CALL CADR +4. 062947,000192: # GOPERF1R BLANKS REGISTERS R2 AND R3 062948,000193: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX. 062949,000194: # TC BANKCALL 062950,000195: # CADR GOPERF1R 062951,000196: # ... ... # TERMINATE RETURN 062952,000197: # ... ... # PROCEED RETURN 062953,000198: # ... ... # ENTER RETURN 062954,000199: # ... ... # IMMEDIATE RETURN FROM GOPERF1R 062955,000200: 062956,000201: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 062957,000202: # Page 1456 062958,000203: # GOPERF2R DOES NOT BLANK ANY REGISTERS 062959,000204: # CAF VXXXNYY # VARIABLE NOUN YY REQUESTED. XX=00 OR 01 062960,000205: # TC BANKCALL 062961,000206: # CADR GOPERF2R 062962,000207: # ... ... # TERMINATE RETURN 062963,000208: # ... ... # PROCEED RETURN 062964,000209: # ... ... # ENTER RETURN 062965,000210: # ... ... # IMMEDIATE RETURN HERE FROM GOPERF2R 062966,000211: 062967,000212: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 062968,000213: # GOPERF3R BLANKS REGISTERS R2 AND R3 062969,000214: # CAF PROGXX # PERFORM PROGRAM XX 062970,000215: # TC BANKCALL 062971,000216: # CADR GOPERF3R 062972,000217: # ... ... # TERMINATE RETURN 062973,000218: # ... ... # PROCEED RETURN 062974,000219: # ... ... # ENTER RETURN 062975,000220: # ... ... # GOPERF3R IMMEDIATELY RETURNS HERE 062976,000221: 062977,000222: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 062978,000223: # CAF OCTXX # REQUEST PERFORM ON OPTIONXX 062979,000224: # TC BANKCALL 062980,000225: # CADR GOPERF4R 062981,000226: # ... ... # TERMINATE RETURN 062982,000227: # ... ... # PROCEED RETURN 062983,000228: # ... ... # ENTER RETURN 062984,000229: # ... ... # IMMEDIATE RETURN TO USER 062985,000230: # GOPERF4R BLANKS REGISTER R3. 062986,000231: 062987,000232: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 062988,000233: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN 062989,000234: # TC BANKCALL 062990,000235: # CADR REFLASHR 062991,000236: # ... ... # TERMINATE RETURN 062992,000237: # ... ... # PROCEED RETURN 062993,000238: # ... ... # ENTER RETURN 062994,000239: # ... ... # IMMEDIATE RETURN TO USER 062995,000240: 062996,000241: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER. 062997,000242: # Page 1457 062998,000243: # CAF VXXNYY 062999,000244: # TC BANKCALL 063000,000245: # CADR REGODSPR 063001,000246: # ... ... # IMMEDIATE RETURN TO USER 063002,000247: 063003,000248: # Page 1458 063004,000249: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. 063005,000250: # GOXDSP = GOMARK 063006,000251: # CAF VXXNYY # VXXNYY CONTAINS VERB AND NOUN 063007,000252: # TC BANKCALL 063008,000253: # CADR GOMARK # OTHER EXTENDED VERBS USE CADR GOXDSP 063009,000254: 063010,000255: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER. 063011,000256: # GOXDSPR = GOMARKR 063012,000257: # CAF VXXNYY 063013,000258: # TC BANKCALL 063014,000259: # CADR GOMARKR # OTHER EXTENDED VERBS USE CADR GOXDSPR 063015,000260: # ... ... # IMMEDIATE RETURN OF GOMARKR 063016,000261: 063017,000262: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM 063018,000263: # THE ASTRONAUT (SEE NO. 7 ABOVE). 063019,000264: # GOXDSPF = GOMARKF 063020,000265: # CAF VXXNYY # VXXNYY WILL BE A FLASHING MARK VERB NOUN 063021,000266: # TC BANKCALL 063022,000267: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR 063023,000268: # ... ... # TERMINATE RETURN 063024,000269: # ... ... # PROCEED RETURN 063025,000270: # ... ... # ENTER OR RECYCLE RETURN 063026,000271: # ... ... # IMMEDIATE RETURN TO THE USER 063027,000272: 063028,000273: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4. 063029,000274: # GOXDSPFR = GOMARKFR 063030,000275: # CAF VXXNYY # FLASHING MARK VERB NOUN 063031,000276: # TCF BANKCALL 063032,000277: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR 063033,000278: # ... ... # TERMINATE RETURN 063034,000279: # ... ... # PROCEED RETURN 063035,000280: # ... ... # ENTER OR RECYCLE RETURN 063036,000281: # 063037,000282: # ... ... # IMMEDIATE RETURN TO THE USER 063038,000283: 063039,000284: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE 063040,000285: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R 063041,000286: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK 063042,000287: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER. 063043,000288: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 063044,000289: # TC BANKCALL 063045,000290: # Page 1459 063046,000291: # CADR GOMARK1 063047,000292: # ... ... # ENTER RETURN 063048,000293: 063049,000294: # *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER. 063050,000295: 063051,000296: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +2. 063052,000297: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 063053,000298: # TC BANKCALL 063054,000299: # CADR GOMARK1R 063055,000300: # ... ... # ASTRONAUT ENTER RETURN 063056,000301: # ... ... # IMMEDIATE RETURN TO USER 063057,000302: 063058,000303: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT. 063059,000304: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 063060,000305: # TC BANKCALL 063061,000306: # CADR GOMARK2 063062,000307: # ... ... # TERMINATE RETURN 063063,000308: # ... ... # PROCEED RETURN 063064,000309: # ... ... # ENTER RETURN 063065,000310: 063066,000311: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER. 063067,000312: # CAF V5XNYY # X=0,1,2,3,4 YY=NOUN 063068,000313: # TCF BANKCALL 063069,000314: # CADR GOMARK24 063070,000315: # ... ... # TERMINATE RETURN 063071,000316: # ... ... # PROCEED RETURN 063072,000317: # ... ... # ENTER RETURN 063073,000318: # ... ... # IMMEDIATE RETURN TO THE USER. 063074,000319: 063075,000320: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE 063076,000321: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING 063077,000322: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN. 063078,000323: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 063079,000324: # TC BANKCALL 063080,000325: # CADR GOMARK3 063081,000326: # ... ... # TERMINATE RETURN 063082,000327: # ... ... # PROCEED RETURN 063083,000328: # ... ... # ENTER RETURN 063084,000329: 063085,000330: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL. 063086,000331: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 063087,000332: # TC BANKCALL 063088,000333: # CADR GOMARK4 063089,000334: # ... ... # TERMINATE RETURN 063090,000335: # ... ... # PROCEED RETURN 063091,000336: # Page 1460 063092,000337: # ... ... # ENTER RETURN 063093,000338: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN 063094,000339: # SENT OUT. 063095,000340: # CAF VXNYY 063096,000341: # TC BANKCALL 063097,000342: # CADR EXDSPRET 063098,000343: # ... ... # RETURN TO USER 063099,000344: 063100,000345: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS 063101,000346: # HAVE BEEN CLEANED OUT. 063102,000347: # TC BANKCALL 063103,000348: # CADR KLEENEX 063104,000349: # ... ... # RETURN TO USER 063105,000350: 063106,000351: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW). 063107,000352: # TC BANKCALL 063108,000353: # CADR MARKBRAN 063109,000354: # ... ... # BAD RETURN IF MARK DISPLAY NOT ACTIVE 063110,000355: # # (GOOD RETURN TO IMMEDIATE RETURN LOC OF 063111,000356: # # LAST FLASHING MARK R ROUTINE) 063112,000357: 063113,000358: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS 063114,000359: # BLANKED AND CONTROL IS SENT TO ENDOFJOB. 063115,000360: # TC POSTJUMP 063116,000361: # CADR PINBRNCH 063117,000362: 063118,000363: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM 063119,000364: # THE ASTRONAUT (SEE NO. 7 ABOVE). 063120,000365: 063121,000366: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO 063122,000367: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY 063123,000368: # IS RESPONDED TO BY THE ASTRONAUT. 063124,000369: 063125,000370: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE 063126,000371: # PRIO DISPLAY 063127,000372: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN 063128,000373: # TC BANKCALL 063129,000374: # CADR PRIODSP 063130,000375: # ... ... # TERMINATE RETURN 063131,000376: # ... ... # PROCEED RETURN 063132,000377: # Page 1461 063133,000378: # ... ... # ENTER OR RECYCLE RETURN 063134,000379: 063135,000380: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 063136,000381: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN 063137,000382: # TC BANKCALL 063138,000383: # CADR PRIODSPR 063139,000384: # ... ... # TERMINATE ACTION 063140,000385: # ... ... # PROCEED RETURN 063141,000386: # ... ... # ENTER OR RECYCLE RETURN 063142,000387: # ... ... # IMMEDIATE RETURN 063143,000388: 063144,000389: # PRIOLARM DOES A V05N09 PRIODSPR. 063145,000390: 063146,000391: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL 063147,000392: # DISPLAYS ARE CLEANED OUT. 063148,000393: # TC BANKCALL 063149,000394: # CADR CLEANDSP 063150,000395: # ... ... # RETURN TO USER 063151,000396: # Page 1462 063152,000397: 063153,000398: # GENERAL INFORMATION 063154,000399: # ------------------- 063155,000400: 063156,000401: # ALARM OR ABORT EXIT MODE -- 063157,000402: # PRIOBORT TC ABORT 063158,000403: # OCT 1502 063159,000404: 063160,000405: # PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE 063161,000406: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS 063162,000407: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION). 063163,000408: 063164,000409: # ERASABLE INITIALIZATION REQUIRED -- 063165,000410: # ACCOMPLISHED BY FRESH START -- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES) 063166,000411: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER. 063167,000412: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK). 063168,000413: # 5. R1SAVE = MARKBRAN CONTROL WORD 063169,000414: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3. 063170,000415: 063171,000416: # OUTPUT -- 063172,000417: # NVWORD = PRIO VERB AND NOUN 063173,000418: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN 063174,000419: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN 063175,000420: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK) 063176,000421: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK) 063177,000422: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK) 063178,000423: # CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION 063179,000424: # CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION 063180,000425: # CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION 063181,000426: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT 063182,000427: # OPTION1 = DESIRED OPTION FROM GOPERF4 063183,000428: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES 063184,000429: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL) 063185,000430: 063186,000431: # SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG, 063187,000432: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC 063188,000433: 063189,000434: # DEBRIS -- (STORED INTO) 063190,000435: # TEMPORARY TEMPORARIES -- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL, 063191,000436: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1, FACEREG 063192,000437: # ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) -- CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1 063193,000438: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) -- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4, 063194,000439: # Page 1463 063195,000440: # R1SAVE, MARK2PAC 063196,000441: 063197,000442: # DEBRIS -- (USED BUT NOT STORED INTO) -- NOUNREG, VERBREG, LOCCTR, MONSAVE1 063198,000443: 063199,000444: # FLAGWORD DESCRIPTIONS -- 063200,000445: # FLAGWRD4 -- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS 063201,000446: 063202,000447: # DSPFLG, DSPFLG+1, DSPFLG+2 063203,000448: # -------------------------- 063204,000449: # BITS 1 BLANK R1 063205,000450: # 2 BLANK R2 063206,000451: # 3 BLANK R3 063207,000452: # 4 FLASHING DISPLAY REQUESTED 063208,000453: # 5 PERFORM DISPLAY REQUESTED 063209,000454: # 6 ----- EXDSPRET GODSPRET 063210,000455: # 7 PRIO DISPLAY ----- ----- 063211,000456: # 8 ----- DEC MARK PERFORM ----- 063212,000457: # 9 EBANK 063213,000458: # 10 EBANK 063214,000459: # 11 EBANK 063215,000460: # 12 ----- ----- V99PASTE 063216,000461: # 13 2ND PART OF PERFORM 063217,000462: # 14 REFLASH OR REDO ----- REFLASH OR REDO 063218,000463: # 15 ----- MARK REQUEST ----- 063219,000464: 063220,000465: # RESTARTING DISPLAYS -- 063221,000466: 063222,000467: # RULES FOR THE DSKY OPERATOR -- 063223,000468: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING Y/N). AS LONG 063224,000469: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS 063225,000470: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR 063226,000471: # WITH PROCEED AND TERMINATE FOR THIS REASON. 063227,000472: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE 063228,000473: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME 063229,000474: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY 063230,000475: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY 063231,000476: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM 063232,000477: # CONSIDERATION. 063233,000478: # 3. KEY RELEASE BUTTON -- 063234,000479: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE. 063235,000480: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL 063236,000481: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE. 063237,000482: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF 063238,000483: # KEY RELEASE BUTTON MAY BE NECESSARY. 063239,000484: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE. 063240,000485: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE 063241,000486: # OVER AGAIN. 063242,000487: 063243,000488: # SPECIAL CONSIDERATONS -- 063244,000489: # Page 1464 063245,000490: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS 063246,000491: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST. 063247,000492: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R) 063248,000493: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT. 063249,000494: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED 063250,000495: # BY A .1 RESTART PHASE CHANGE. 063251,000496: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE 063252,000497: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO 063253,000498: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL. 063254,000499: 063255,000500: # Page 1465 063256,000501: # CALLING SEQUENCE FOR BLANKING 063257,000502: # CAF BITX # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY 063258,000503: # TC BLANKET 063259,000504: # ... ... # RETURN TO USER HERE 063260,000505: # IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL 063261,000506: # TO BLANKET AT THE IMMEDIATE RETURN LOC. 063262,000507: 5526 BLOCK 02 063263,000508: 4000 SETLOC FFTAG4 063264,000509: 4000 BANK 063265,000510: 063266,000511: 5526 COUNT 02/DSPLA 063267,000512: 063268,000513: 5526 54162 BLANKET TS MPAC +6 063269,000514: 5527 40160 CS PLAYTEM4 063270,000515: 5530 70162 MASK MPAC +6 063271,000516: 5531 50161 INDEX MPAC +5 063272,000517: 5532 26160 ADS PLAYTEM4 063273,000518: 063274,000519: 5533 00002 TC Q 063275,000520: 063276,000521: 5534 04701 ENDMARK TC POSTJUMP 063277,000522: 5535 20553 CADR MARKEND 063278,000523: 063279,000524: 5536 35021 CLEARMRK CAF ZERO 063280,000525: 5537 55044 TS EXTVBACT 063281,000526: 063282,000527: 5540 00004 INHINT 063283,000528: 5541 45017 CS BIT1 063284,000529: 5542 70100 MASK FLAGWRD4 063285,000530: 5543 54100 TS FLAGWRD4 063286,000531: 063287,000532: 5544 00003 RELINT 063288,000533: 5545 00002 TC Q 063289,000534: 063290,000535: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN 063291,000536: # FINISHED. 063292,000537: 063293,000538: 10,2553 BANK 10 063294,000539: 10,2000 SETLOC DISPLAYS 063295,000540: 10,2000 BANK 063296,000541: 063297,000542: 10,2553 COUNT 10/DSPLA 063298,000543: 063299,000544: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH 063300,000545: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R. 063301,000546: 063302,000547: 10,2553 05536 MARKEND TC CLEARMRK 063303,000548: 10,2554 13643 TCF MARKOVER 063304,000549: 063305,000550: # Page 1466 063306,000551: 10,2555 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP 063307,000552: 063308,000553: 10,2556 35001 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS 063309,000554: 10,2557 12722 TCF GOFLASH2 063310,000555: 063311,000556: 10,2560 35021 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS 063312,000557: 10,2561 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH 063313,000558: 063314,000559: 10,2562 33253 CAF MARKFMSK # MARK, FLASH 063315,000560: 10,2563 12722 TCF GOFLASH2 063316,000561: 063317,000562: 10,2564 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS 063318,000563: 10,2565 33742 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH 063319,000564: 10,2566 12722 TCF GOFLASH2 063320,000565: 063321,000566: 10,2567 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM 063322,000567: 10,2570 33727 CAF MARK3MSK 063323,000568: 10,2571 12722 TCF GOFLASH2 063324,000569: 063325,000570: 10,2572 54155 GOMARK4 TS PLAYTEM1 063326,000571: 10,2573 33730 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK 063327,000572: 10,2574 12722 TCF GOFLASH2 063328,000573: 063329,000574: 10,2575 54155 GOMARKR TS PLAYTEM1 # ENTRANCE FOR MARK GODSPR 063330,000575: 063331,000576: 10,2576 35001 CAF BIT15 063332,000577: 10,2577 12700 TCF GODSPR2 063333,000578: 063334,000579: 10,2600 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR 063335,000580: 063336,000581: 10,2601 33253 CAF MARKFMSK 063337,000582: 10,2602 13061 TCF GODSPRS 063338,000583: 063339,000584: 10,2603 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET. 063340,000585: 10,2604 33742 CAF MPERFMSK # MARK, PERFORM, FLASH 063341,000586: 10,2605 13061 TCF GODSPRS 063342,000587: 063343,000588: 10,2606 54155 GOMARK3R TS PLAYTEM1 063344,000589: 10,2607 33727 CAF MARK3MSK 063345,000590: 10,2610 13061 TCF GODSPRS 063346,000591: 063347,000592: 10,2611 35017 MAKEMARK CAF ONE 063348,000593: 10,2612 03157 TC COPIES 063349,000594: 063350,000595: 10,2613 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING 063351,000596: 10,2614 73743 MASK OCT34300 063352,000597: 10,2615 10000 CCS A 063353,000598: 10,2616 12654 TCF CHKPRIO 063354,000599: 063355,000600: 10,2617 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY? 063356,000601: # Page 1467 063357,000602: 10,2620 75007 MASK BIT9 063358,000603: 063359,000604: 10,2621 00006 EXTEND 063360,000605: 10,2622 12624 BZF MARKPLAY # NO 063361,000606: 063362,000607: 10,2623 15217 TCF ENDOFJOB 063363,000608: 063364,000609: 10,2624 00004 MARKPLAY INHINT 063365,000610: 10,2625 45022 CS FIVE # RESET MARK OVER NORM, SET MARK 063366,000611: 10,2626 70100 MASK FLAGWRD4 063367,000612: 10,2627 65017 AD ONE 063368,000613: 10,2630 54100 TS FLAGWRD4 063369,000614: 10,2631 00003 RELINT 063370,000615: 063371,000616: 10,2632 41070 GOGOMARK CS MARKFLAG # PERFORM 063372,000617: 10,2633 75013 MASK BIT5 063373,000618: 10,2634 10000 CCS A 063374,000619: 10,2635 12640 TCF MARKCOP 063375,000620: 10,2636 40370 CS MARKNV 063376,000621: 10,2637 54370 TS MARKNV 063377,000622: 063378,000623: 10,2640 35017 MARKCOP CAF ONE # MARK INDEX 063379,000624: 10,2641 13040 TCF PRIOPLAY 063380,000625: 063381,000626: 10,2642 30165 COPYTOGO CA MPAC2SAV 063382,000627: 10,2643 54156 TS MPAC +2 063383,000628: 063384,000629: 10,2644 50164 COPYPACS INDEX COPINDEX 063385,000630: 10,2645 33753 CAF PRIOOCT 063386,000631: 10,2646 54162 TS GENMASK 063387,000632: 063388,000633: 10,2647 50164 INDEX COPINDEX 063389,000634: 10,2650 31067 CA EBANKSAV # Was CAF --- RSB 2004. 063390,000635: 10,2651 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG 063391,000636: 063392,000637: 10,2652 54003 TS EBANK 063393,000638: 063394,000639: 10,2653 00002 TC Q 063395,000640: 063396,000641: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY 063397,000642: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK 063398,000643: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP 063399,000644: # UNTIL ALL MARKING IS FINISHED. 063400,000645: 063401,000646: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A 063402,000647: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT. 063403,000648: 063404,000649: 10,2654 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO 063405,000650: 10,2655 73476 MASK OCT24100 063406,000651: 10,2656 10000 CCS A 063407,000652: 10,2657 13676 TCF MARSLEEP 063408,000653: 063409,000654: # Page 1468 063410,000655: 10,2660 40100 CS FLAGWRD4 063411,000656: 10,2661 75015 MASK BIT3 # SET MARK OVER NORM 063412,000657: 10,2662 00004 INHINT 063413,000658: 10,2663 26100 ADS FLAGWRD4 063414,000659: 063415,000660: 10,2664 12756 TCF SETNORM 063416,000661: 063417,000662: 10,2665 30370 MARKPERF CA MARKNV 063418,000663: 10,2666 74160 MASK VERBMASK 063419,000664: 10,2667 13342 TCF NV50DSP 063420,000665: 063421,000666: 10,2670 54155 GODSP TS PLAYTEM1 063422,000667: 063423,000668: 10,2671 35021 GODSP2 CAF ZERO 063424,000669: 10,2672 12722 TCF GOFLASH2 063425,000670: 063426,000671: 10,2673 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE 063427,000672: 063428,000673: 10,2674 35012 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB 063429,000674: 10,2675 12722 TCF GOFLASH2 063430,000675: 063431,000676: 10,2676 54155 GODSPR TS PLAYTEM1 063432,000677: 063433,000678: 10,2677 35021 GODSPR1 CAF ZERO 063434,000679: 10,2700 54160 GODSPR2 TS PLAYTEM4 063435,000680: 063436,000681: 10,2701 35021 CAF ZERO # * DON'T MOVE 063437,000682: 10,2702 13063 TCF GODSPRS1 063438,000683: 063439,000684: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS 063440,000685: # SET UP TO BE STARTED OR RESTARTED. 063441,000686: 063442,000687: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN 063443,000688: # OLD DISPLAY. 063444,000689: 063445,000690: # CALLING SEQUENCE FOR CLEANDSP -- 063446,000691: 063447,000692: # TC BANKCALL 063448,000693: # CADR CLEANDSP 063449,000694: 063450,000695: 10,2703 35021 CLEANDSP CAF ZERO 063451,000696: 10,2704 54155 REFLASH TS PLAYTEM1 063452,000697: 063453,000698: 10,2705 33726 CAF REDOMASK # FLASH AND PERMIT 063454,000699: 10,2706 12722 TCF GOFLASH2 063455,000700: 063456,000701: 10,2707 54155 REGODSP TS PLAYTEM1 063457,000702: 063458,000703: 10,2710 35002 CAF BIT14 063459,000704: 10,2711 12722 TCF GOFLASH2 063460,000705: 063461,000706: # Page 1469 063462,000707: 063463,000708: 10,2712 54155 REGODSPR TS PLAYTEM1 063464,000709: 10,2713 35002 CAF BIT14 063465,000710: 10,2714 12700 TCF GODSPR2 063466,000711: 063467,000712: 10,2715 54155 CLOCPLAY TS PLAYTEM1 063468,000713: 10,2716 33765 CAF CLOCKCON 063469,000714: 10,2717 12722 TCF GOFLASH2 063470,000715: 10,2720 54155 GOFLASH TS PLAYTEM1 063471,000716: 063472,000717: 10,2721 35014 CAF BIT4 # LEAVE ONLY FLASH BIT SET 063473,000718: 10,2722 54160 GOFLASH2 TS PLAYTEM4 063474,000719: 063475,000720: 10,2723 03144 TC SAVELOCS 063476,000721: 063477,000722: 10,2724 00003 RELINT 063478,000723: 063479,000724: 10,2725 12770 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL 063480,000725: 063481,000726: 10,2726 54155 PRIODSPR TS PLAYTEM1 063482,000727: 063483,000728: 10,2727 33745 CAF BITS7+4 063484,000729: 10,2730 13061 TCF GODSPRS 063485,000730: 063486,000731: 10,2731 54155 PRIODSP TS PLAYTEM1 063487,000732: 063488,000733: 10,2732 33745 SETPRIO CAF BITS7+4 063489,000734: 10,2733 12722 TCF GOFLASH2 063490,000735: 063491,000736: 10,2734 35021 MAKEPRIO CAF ZERO 063492,000737: 10,2735 54164 TS COPINDEX 063493,000738: 063494,000739: 10,2736 03616 TC LINUSCHR 063495,000740: 10,2737 12744 TCF HIPRIO # LINUS RETURN 063496,000741: 10,2740 30100 CA FLAGWRD4 063497,000742: 10,2741 73764 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY 063498,000743: 10,2742 10000 CCS A 063499,000744: 10,2743 13017 TCF PRIOBORT # YES, ABORT 063500,000745: 063501,000746: 10,2744 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE 063502,000747: 10,2745 77765 MASK OCT40400 063503,000748: 10,2746 00006 EXTEND 063504,000749: 10,2747 12752 BZF ASKIFNRM # NO 063505,000750: 063506,000751: 10,2750 35021 SETMARK CAF ZERO 063507,000752: 10,2751 13216 TCF JOBXCHS 063508,000753: 063509,000754: 10,2752 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE 063510,000755: 10,2753 73762 MASK OCT10200 # BITS 13+8 063511,000756: 10,2754 00006 EXTEND 063512,000757: # Page 1470 063513,000758: 10,2755 12760 BZF OKTOCOPY # NO 063514,000759: 063515,000760: 10,2756 35017 SETNORM CAF ONE 063516,000761: 10,2757 13216 TCF JOBXCHS 063517,000762: 063518,000763: 10,2760 03156 OKTOCOPY TC COPYNORM 063519,000764: 10,2761 03427 TC WITCHONE 063520,000765: 063521,000766: 10,2762 05201 TC JOBWAKE 063522,000767: 063523,000768: 10,2763 03444 TC XCHTOEND 063524,000769: 063525,000770: 10,2764 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT 063526,000771: 10,2765 55147 TS PRIOTIME 063527,000772: 063528,000773: 10,2766 35021 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY 063529,000774: 10,2767 13040 TCF PRIOPLAY 063530,000775: 063531,000776: 10,2770 30167 MAKEPLAY CA PRIORITY # SAVE USER'S PRIORITY 063532,000777: 10,2771 77674 MASK PRIO37 063533,000778: 10,2772 54163 TS USERPRIO 063534,000779: 063535,000780: 10,2773 37670 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE 063536,000781: 10,2774 05210 TC PRIOCHNG 063537,000782: 063538,000783: 10,2775 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM 063539,000784: 10,2776 73744 MASK BITS15+7 063540,000785: 10,2777 10000 CCS A 063541,000786: 10,3000 12734 TCF MAKEPRIO # ITS PRIO 063542,000787: 10,3001 13003 TCF IFLEGAL 063543,000788: 10,3002 12611 TCF MAKEMARK # ITS MARK 063544,000789: 063545,000790: 10,3003 35016 IFLEGAL CAF TWO 063546,000791: 10,3004 54164 TS COPINDEX 063547,000792: 063548,000793: 10,3005 03616 TC LINUSCHR 063549,000794: 063550,000795: 10,3006 13021 TCF OKTOPLAY # LINUS RETURN 063551,000796: 10,3007 41071 CS EBANKTEM 063552,000797: 10,3010 75014 MASK BIT4 063553,000798: 10,3011 10000 CCS A 063554,000799: 10,3012 13021 TCF OKTOPLAY # NO 063555,000800: 063556,000801: 10,3013 30100 CA FLAGWRD4 # WAS NORM ASLEEP 063557,000802: 10,3014 73735 MASK NBUSMASK # ARE ANY NORMS ASLEEP 063558,000803: 10,3015 00006 EXTEND 063559,000804: 10,3016 13021 BZF OKTOPLAY # NO 063560,000805: 063561,000806: 10,3017 05721 PRIOBORT TC P00DOO 063562,000807: 10,3020 01502 OCT 1502 063563,000808: # Page 1471 063564,000809: 063565,000810: 10,3021 03160 OKTOPLAY TC COPIES2 063566,000811: 063567,000812: 10,3022 30163 CA USERPRIO 063568,000813: 10,3023 00006 EXTEND 063569,000814: 10,3024 04007 ROR SUPERBNK 063570,000815: 10,3025 54366 TS RESTREG 063571,000816: 063572,000817: 10,3026 30100 CA FLAGWRD4 # PRIO OR MARK GOING 063573,000818: 10,3027 73736 MASK PMMASK 063574,000819: 10,3030 10000 CCS A 063575,000820: 10,3031 13176 TCF GOSLEEPS # MARK GOING 063576,000821: 063577,000822: 10,3032 13034 TCF +2 063578,000823: 10,3033 13176 TCF GOSLEEPS 063579,000824: 063580,000825: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME 063581,000826: 063582,000827: 10,3034 03427 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE 063583,000828: 10,3035 05201 TC JOBWAKE 063584,000829: 063585,000830: 10,3036 03444 TC XCHTOEND 063586,000831: 063587,000832: 10,3037 35016 PLAYJUM1 CAF TWO 063588,000833: 10,3040 54164 PRIOPLAY TS COPINDEX 063589,000834: 063590,000835: 10,3041 13312 TCF GOPLAY 063591,000836: 063592,000837: 10,3042 54155 EXDSPRET TS PLAYTEM1 063593,000838: 063594,000839: 10,3043 37703 CAF BIT15+6 063595,000840: 10,3044 12722 TCF GOFLASH2 063596,000841: 063597,000842: 10,3045 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE 063598,000843: 10,3046 33720 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1 063599,000844: 063600,000845: 10,3047 54155 GOPERFS TS PLAYTEM1 063601,000846: 063602,000847: 10,3050 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING 063603,000848: 10,3051 12722 TCF GOFLASH2 063604,000849: 063605,000850: 10,3052 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 063606,000851: 063607,000852: 10,3053 33723 CAF PERF2MSK 063608,000853: 10,3054 12722 TCF GOFLASH2 063609,000854: 063610,000855: 10,3055 03137 GOPERF4 TC PURRS4 063611,000856: 063612,000857: 10,3056 12722 TCF GOFLASH2 063613,000858: 063614,000859: 10,3057 54155 GOFLASHR TS PLAYTEM1 063615,000860: # Page 1472 063616,000861: 10,3060 35014 CAF BIT4 # LEAVE ONLY FLASH BIT SET 063617,000862: 10,3061 54160 GODSPRS TS PLAYTEM4 063618,000863: 063619,000864: 10,3062 36214 CAF THREE 063620,000865: 063621,000866: 10,3063 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4 063622,000867: 10,3064 54072 TS RUPTREG3 063623,000868: 063624,000869: 10,3065 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER 063625,000870: 10,3066 77674 MASK PRIO37 063626,000871: 10,3067 54063 TS NEWPRIO 063627,000872: 063628,000873: 10,3070 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY 063629,000874: 10,3071 75014 MASK BIT4 063630,000875: 10,3072 10000 CCS A 063631,000876: 10,3073 13101 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC 063632,000877: 10,3074 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC 063633,000878: 10,3075 05134 TC NOVAC 063634,000879: 10,3076 E7,1777 EBANK= WHOCARES 063635,000880: 10,3076 02770 20067 2CADR MAKEPLAY 063636,000881: 063637,000882: 10,3100 13107 TCF BOTHJOBS 063638,000883: 063639,000884: 10,3101 30006 VACDSP CA BBANK 063640,000885: 10,3102 00006 EXTEND 063641,000886: 10,3103 04007 ROR SUPERBNK 063642,000887: 10,3104 54001 TS L 063643,000888: 10,3105 33761 CAF MAKEGEN 063644,000889: 10,3106 05160 TC SPVAC 063645,000890: 063646,000891: 10,3107 03144 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS 063647,000892: 063648,000893: 10,3110 00006 EXTEND # SAVE NVWORD AND USER'S MPAC +2 063649,000894: 10,3111 30156 DCA MPAC +1 063650,000895: 10,3112 50064 INDEX LOCCTR 063651,000896: 10,3113 52156 DXCH MPAC +1 063652,000897: 063653,000898: 10,3114 00006 EXTEND # SAVE USER'S CADR, FLAGS AND EBANK 063654,000899: 10,3115 30160 DCA MPAC +3 063655,000900: 10,3116 50064 INDEX LOCCTR 063656,000901: 10,3117 52160 DXCH MPAC +3 063657,000902: 063658,000903: 10,3120 30064 CA LOCCTR 063659,000904: 10,3121 54161 TS MPAC +5 063660,000905: 10,3122 03151 TC SAVELOCR 063661,000906: 10,3123 00003 RELINT 063662,000907: 10,3124 14704 TCF BANKJUMP # CALL CADR +4 063663,000908: 063664,000909: # Page 1473 063665,000910: 10,3125 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE 063666,000911: 063667,000912: 10,3126 33720 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1 063668,000913: 063669,000914: 10,3127 54155 GOPERFRS TS PLAYTEM1 063670,000915: 063671,000916: 10,3130 33717 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING 063672,000917: 10,3131 13061 TCF GODSPRS 063673,000918: 063674,000919: 10,3132 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 063675,000920: 063676,000921: 10,3133 33723 CAF PERF2MSK 063677,000922: 10,3134 13061 TCF GODSPRS 063678,000923: 063679,000924: 10,3135 03137 GOPERF4R TC PURRS4 063680,000925: 063681,000926: 10,3136 13061 TCF GODSPRS 063682,000927: 063683,000928: 10,3137 55131 PURRS4 TS OPTION1 # DESIRED OPTION CODE 063684,000929: 063685,000930: 10,3140 33724 CAF V04N06 063686,000931: 10,3141 54155 TS PLAYTEM1 063687,000932: 063688,000933: 10,3142 33725 CAF PERF4MSK # FLASH, PERFORM AND EBANK R3 063689,000934: 10,3143 00002 TC Q 063690,000935: 063691,000936: 10,3144 00004 SAVELOCS INHINT 063692,000937: 063693,000938: 10,3145 43734 CS OCT3400 # EBANK BITS 063694,000939: 10,3146 70160 MASK PLAYTEM4 063695,000940: 10,3147 60003 AD EBANK 063696,000941: 10,3150 54160 TS PLAYTEM4 063697,000942: 063698,000943: 10,3151 22002 SAVELOCR LXCH Q 063699,000944: 063700,000945: 10,3152 04711 TC MAKECADR 063701,000946: 10,3153 54157 TS PLAYTEM3 063702,000947: 063703,000948: 10,3154 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES 063704,000949: 10,3155 00001 TC L 063705,000950: 063706,000951: 10,3156 35021 COPYNORM CAF ZERO 063707,000952: 10,3157 54164 COPIES TS COPINDEX 063708,000953: 10,3160 00004 COPIES2 INHINT 063709,000954: 10,3161 30160 CA PLAYTEM4 # FLAGWORD 063710,000955: 063711,000956: 10,3162 50164 INDEX COPINDEX 063712,000957: 10,3163 55067 TS EBANKSAV # EQUIV TO DSPFLG 063713,000958: 10,3164 73752 MASK CADRMASK # FLASH AND GODSPRET 063714,000959: 10,3165 00006 EXTEND 063715,000960: # Page 1474 063716,000961: 10,3166 13172 BZF SKIPADD 063717,000962: 063718,000963: 10,3167 30157 CA PLAYTEM3 063719,000964: 10,3170 50164 INDEX COPINDEX 063720,000965: 10,3171 54372 TS CADRFLSH 063721,000966: 063722,000967: 10,3172 30155 SKIPADD CA PLAYTEM1 # VERB NOUN 063723,000968: 10,3173 50164 INDEX COPINDEX 063724,000969: 10,3174 54367 TS NVWORD 063725,000970: 063726,000971: 10,3175 13453 TCF RELINTQ 063727,000972: 063728,000973: 10,3176 50164 GOSLEEPS INDEX COPINDEX 063729,000974: 10,3177 33753 CA PRIOOCT 063730,000975: 10,3200 73202 MASK WAITMASK 063731,000976: 10,3201 07722 TC UPENT2 063732,000977: 10,3202 03004 WAITMASK OCT 3004 063733,000978: 10,3203 45017 CS ONE 063734,000979: 10,3204 60164 AD COPINDEX 063735,000980: 10,3205 54154 TS FACEREG 063736,000981: 063737,000982: 10,3206 50154 XCHSLEEP INDEX FACEREG 063738,000983: 10,3207 33732 CAF WAKECADR 063739,000984: 10,3210 00004 INHINT 063740,000985: 10,3211 05201 TC JOBWAKE # FIND CADR IN JOB AREA 063741,000986: 063742,000987: 10,3212 03444 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB 063743,000988: 063744,000989: 10,3213 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA 063745,000990: 10,3214 33732 CAF WAKECADR 063746,000991: 10,3215 15175 TCF JOBSLEEP 063747,000992: 063748,000993: 10,3216 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP 063749,000994: 10,3217 03427 TC WITCHONE 063750,000995: 10,3220 05201 TC JOBWAKE 063751,000996: 10,3221 30154 CA FACEREG 063752,000997: 10,3222 50064 INDEX LOCCTR 063753,000998: 10,3223 54154 TS FACEREG 063754,000999: 063755,001000: 10,3224 33237 CAF XCHQADD 063756,001001: 10,3225 03445 TC XCHNYLOC 063757,001002: 063758,001003: 10,3226 50154 INDEX FACEREG 063759,001004: 10,3227 33754 CA MARKOCT 063760,001005: 10,3230 73756 MASK IDLESLEP 063761,001006: 063762,001007: 10,3231 07740 TC DOWNENT2 063763,001008: 10,3232 74004 IDLEMASK OCT 74004 # * DON'T MOVE 063764,001009: 10,3233 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK 063765,001010: 10,3234 35013 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL 063766,001011: # Page 1475 063767,001012: 10,3235 65015 AD FOUR 063768,001013: 10,3236 07722 TC UPENT2 # FLAG ROUTINE DOES RELINT 063769,001014: 10,3237 03206 XCHQADD GENADR XCHSLEEP # * DON'T MOVE 063770,001015: 10,3240 30100 CA FLAGWRD4 063771,001016: 10,3241 75015 MASK BIT3 # MARK OVER NORM? 063772,001017: 10,3242 10000 CCS A 063773,001018: 10,3243 02624 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE 063774,001019: 10,3244 12760 TCF OKTOCOPY 063775,001020: 063776,001021: 10,3245 35021 MARKWAKE CAF ZERO 063777,001022: 10,3246 54160 WAKEPLAY TS TEMPOR2 063778,001023: 063779,001024: 10,3247 50160 INDEX TEMPOR2 063780,001025: 10,3250 33746 CA BITS5+11 063781,001026: 10,3251 65015 AD FOUR 063782,001027: 10,3252 07740 TC DOWNENT2 063783,001028: 10,3253 40010 MARKFMSK OCT 40010 # *** DON'T MOVE 063784,001029: 063785,001030: 10,3254 50160 INDEX TEMPOR2 063786,001031: 10,3255 33732 CAF WAKECADR 063787,001032: 10,3256 00004 INHINT 063788,001033: 10,3257 05201 TC JOBWAKE 063789,001034: 063790,001035: 10,3260 13557 TCF ENDRET 063791,001036: 063792,001037: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS 063793,001038: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK. 063794,001039: 063795,001040: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER. 063796,001041: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY. 063797,001042: 063798,001043: 10,3261 31071 INITDSP CA EBANKTEM # RESTORE MOST RECENT NORMAL EBANK 063799,001044: 10,3262 54003 TS EBANK 063800,001045: 063801,001046: 10,3263 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY 063802,001047: 10,3264 04773 TC SUPERSW # RESTORE SUPERBANK 063803,001048: 063804,001049: 10,3265 77674 MASK PRIO37 063805,001050: 10,3266 05210 TC PRIOCHNG 063806,001051: 063807,001052: 10,3267 46214 CS THREE 063808,001053: 10,3270 60374 AD TEMPFLSH 063809,001054: 10,3271 14704 TCF BANKJUMP 063810,001055: 063811,001056: 10,3272 00003 PINBRNCH RELINT # FOR GOPIN USERS 063812,001057: 10,3273 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS 063813,001058: 10,3274 54156 TS MPAC +2 # ONLY 063814,001059: 063815,001060: 10,3275 30100 CA FLAGWRD4 # PINBRANCH CONDITION 063816,001061: 10,3276 77707 MASK PINMASK 063817,001062: 10,3277 10000 CCS A 063818,001063: # Page 1476 063819,001064: 10,3300 13303 TCF +3 063820,001065: 10,3301 13713 TCF ERASER # ** NOTHING IN ENDIDLE 063821,001066: 10,3302 12624 TCF MARKPLAY 063822,001067: 063823,001068: 10,3303 05546 NORMBNCH TC UPFLAG # SET PINBRANCH BIT 063824,001069: 10,3304 00105 ADRES PINBRFLG 063825,001070: 063826,001071: 10,3305 35002 CAF BIT14 # PRIO INTERRUPTED 063827,001072: 10,3306 70100 MASK FLAGWRD4 063828,001073: 10,3307 10000 CCS A 063829,001074: 10,3310 12766 TCF KEEPPRIO 063830,001075: 063831,001076: 10,3311 13037 TCF PLAYJUM1 063832,001077: 063833,001078: 10,3312 02644 NVDSP TC COPYPACS 063834,001079: 063835,001080: 10,3313 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE 063836,001081: 10,3314 75023 MASK SEVEN # USER REQUESTS BLANKING MONITOR 063837,001082: 10,3315 54001 TS L 063838,001083: 063839,001084: 10,3316 45003 CS BIT13 063840,001085: 10,3317 50164 INDEX COPINDEX 063841,001086: 10,3320 71067 MASK DSPFLG 063842,001087: 10,3321 50164 INDEX COPINDEX 063843,001088: 10,3322 55067 TS DSPFLG 063844,001089: 063845,001090: 10,3323 75010 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY 063846,001091: 10,3324 54141 TS TEM1 063847,001092: 063848,001093: 10,3325 30156 CA MPAC +2 063849,001094: 10,3326 54165 TS MPAC2SAV 063850,001095: 063851,001096: 10,3327 55072 TS MARK2PAC # * FOR DISK ONLY * 063852,001097: 10,3330 50164 INDEX COPINDEX 063853,001098: 10,3331 10367 CCS NVWORD 063854,001099: 10,3332 13341 TCF NVDSP1 063855,001100: 10,3333 13455 TCF CLEANEND 063856,001101: 10,3334 40370 CS MARKNV 063857,001102: 10,3335 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING 063858,001103: 10,3336 76043 MASK LOW7 063859,001104: 10,3337 63737 AD V05N00M1 063860,001105: 10,3340 60141 AD TEM1 063861,001106: 10,3341 65017 NVDSP1 AD ONE 063862,001107: 10,3342 04171 NV50DSP TC NVMONOPT 063863,001108: 10,3343 13467 TCF REST # IF BUSY 063864,001109: 063865,001110: 10,3344 04447 TC FLASHOFF # IN CASE OF EXTENDED VERB NON-FLASH 063866,001111: 063867,001112: 10,3345 02642 TC COPYTOGO # MPACS DESTROYED BY NVSUB 063868,001113: 10,3346 05560 TC DOWNFLAG # UNSET SLEEPING BITS 063869,001114: 10,3347 00102 ADRES MRKNVFLG 063870,001115: # Page 1477 063871,001116: 10,3350 05560 TC DOWNFLAG 063872,001117: 10,3351 00103 ADRES NRMNVFLG 063873,001118: 10,3352 05560 TC DOWNFLAG 063874,001119: 10,3353 00104 ADRES PRONVFLG 063875,001120: 10,3354 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET 063876,001121: 10,3355 04271 TC BLANKSUB 063877,001122: 10,3356 13312 TCF NVDSP 063878,001123: 10,3357 35013 PERFCHEK CAF BIT5 # BIT 5 FOR PERFORM 063879,001124: 10,3360 70160 MASK TEMPOR2 063880,001125: 10,3361 10000 CCS A # IS THIS A GOPERF DISPLAY 063881,001126: 10,3362 13405 TCF 1STOR2ND # YES 063882,001127: 063883,001128: 10,3363 35014 GOANIDLE CAF BIT4 063884,001129: 10,3364 70160 MASK TEMPOR2 063885,001130: 10,3365 10000 CCS A 063886,001131: 10,3366 13502 TCF FLASHSUB # IT IS 063887,001132: 063888,001133: 10,3367 40160 CS TEMPOR2 # IS THIS A GODSPRET 063889,001134: 10,3370 75012 MASK BIT6 063890,001135: 10,3371 10000 CCS A 063891,001136: 10,3372 13377 TCF ISITN00 063892,001137: 063893,001138: 10,3373 50164 INDEX COPINDEX 063894,001139: 10,3374 30372 CA CADRFLSH 063895,001140: 10,3375 54157 TS MPAC +3 063896,001141: 10,3376 13575 TCF ENDIT 063897,001142: 063898,001143: 10,3377 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE 063899,001144: 10,3400 30367 CA NVWORD 063900,001145: 10,3401 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK 063901,001146: 10,3402 00006 EXTEND 063902,001147: 10,3403 13502 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH 063903,001148: 063904,001149: 10,3404 15217 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT 063905,001150: 063906,001151: 10,3405 30160 1STOR2ND CA TEMPOR2 063907,001152: 10,3406 75003 MASK BIT13 063908,001153: 10,3407 10000 CCS A 063909,001154: 10,3410 13363 TCF GOANIDLE # SECOND 063910,001155: 063911,001156: 10,3411 35003 CA BIT13 063912,001157: 10,3412 50164 INDEX COPINDEX 063913,001158: 10,3413 27067 ADS DSPFLG 063914,001159: 063915,001160: 10,3414 22007 ZL 063916,001161: 10,3415 00006 EXTEND # IS IT MARK 063917,001162: 10,3416 62665 BZMF MARKPERF # YES 063918,001163: 10,3417 75004 MASK BIT12 063919,001164: 10,3420 00006 EXTEND 063920,001165: # Page 1478 063921,001166: 10,3421 13425 BZF V50PASTE 063922,001167: 10,3422 41145 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99 063923,001168: 10,3423 63763 AD V97N00 063924,001169: 10,3424 13342 TCF NV50DSP 063925,001170: 10,3425 33722 V50PASTE CAF V50N00 063926,001171: 10,3426 13342 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF 063927,001172: 063928,001173: 10,3427 45013 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT 063929,001174: 10,3430 00006 EXTEND 063930,001175: 10,3431 03011 WAND DSALMOUT 063931,001176: 063932,001177: 10,3432 30100 CA FLAGWRD4 063933,001178: 10,3433 73740 MASK NVBUSMSK # IS IT NVSUB ALEEP 063934,001179: 10,3434 10000 CCS A 063935,001180: 10,3435 35017 CAF ONE 063936,001181: 10,3436 54001 TS L 063937,001182: 10,3437 35021 CAF ZERO 063938,001183: 10,3440 50001 INDEX L 063939,001184: 10,3441 57042 XCH CADRSTOR 063940,001185: 063941,001186: 10,3442 00004 INHINT 063942,001187: 10,3443 00002 TC Q 063943,001188: 063944,001189: 10,3444 34233 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR 063945,001190: 10,3445 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING 063946,001191: 10,3446 00006 EXTEND 063947,001192: 10,3447 63453 BZMF RELINTQ # NO 063948,001193: 10,3450 56064 XCH LOCCTR # YES 063949,001194: 10,3451 50064 INDEX LOCCTR 063950,001195: 10,3452 54164 TS LOC 063951,001196: 063952,001197: 10,3453 00003 RELINTQ RELINT 063953,001198: 10,3454 00002 TC Q # BACK TO USER 063954,001199: 063955,001200: 10,3455 37667 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING 063956,001201: 10,3456 05147 TC FINDVAC 063957,001202: 10,3457 0371 EBANK= NVSAVE 063958,001203: 10,3457 04245 04060 2CADR JAMTERM 063959,001204: 063960,001205: 10,3461 13503 TCF FLASHSUB +1 063961,001206: 063962,001207: 10,3462 30100 ISITPRIO CA FLAGWRD4 063963,001208: 10,3463 73510 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET 063964,001209: 10,3464 00006 EXTEND 063965,001210: 10,3465 13017 BZF PRIOBORT 063966,001211: 10,3466 15217 TCF ENDOFJOB 063967,001212: 10,3467 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE 063968,001213: 10,3470 15217 TCF ENDOFJOB # YES 063969,001214: # Page 1479 063970,001215: 10,3471 13473 TCF RESTSLEP 063971,001216: 063972,001217: 10,3472 15217 TCF ENDOFJOB 063973,001218: 063974,001219: 10,3473 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS 063975,001220: 10,3474 73741 MASK ASTROMSK 063976,001221: 10,3475 07722 TC UPENT2 063977,001222: 10,3476 24100 OCT24100 OCT 24100 # *** DON'T MOVE 063978,001223: 063979,001224: 10,3477 50164 INDEX COPINDEX 063980,001225: 10,3500 33731 CAF NVCADR 063981,001226: 10,3501 04456 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL 063982,001227: 063983,001228: 10,3502 04443 FLASHSUB TC FLASHON 063984,001229: 063985,001230: 10,3503 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE 063986,001231: 10,3504 54157 TS COPMPAC 063987,001232: 063988,001233: 10,3505 30162 CA GENMASK 063989,001234: 10,3506 73232 MASK IDLEMASK 063990,001235: 10,3507 07722 TC UPENT2 063991,001236: 10,3510 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DON'T MOVE 063992,001237: 063993,001238: 10,3511 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY 063994,001239: 10,3512 50164 INDEX COPINDEX 063995,001240: 10,3513 75015 MASK BIT3 063996,001241: 10,3514 10000 CCS A 063997,001242: 10,3515 13602 TCF UNSETR1 # YES 063998,001243: 063999,001244: 10,3516 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE 064000,001245: 10,3517 13462 TCF ISITPRIO 064001,001246: 10,3520 13522 TCF +2 064002,001247: 10,3521 13462 TCF ISITPRIO 064003,001248: 064004,001249: 10,3522 04223 TC ENDIDLE 064005,001250: 10,3523 13614 IDLERET1 TCF TERMATE 064006,001251: 064007,001252: 10,3524 13633 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED 064008,001253: 064009,001254: 10,3525 43750 CS LOWLOAD 064010,001255: 10,3526 60154 AD MPAC # VERBREG 064011,001256: 10,3527 00006 EXTEND 064012,001257: 10,3530 26000 DIM A 064013,001258: 10,3531 00006 EXTEND 064014,001259: 10,3532 13703 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY 064015,001260: 064016,001261: 10,3533 35016 OKTOENT CAF TWO 064017,001262: 10,3534 54161 ENDOUT TS OUTHERE 064018,001263: 10,3535 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN 064019,001264: 10,3536 74105 MASK OCT60000 064020,001265: # Page 1480 064021,001266: 10,3537 10000 CCS A 064022,001267: 10,3540 13543 TCF TIMECHEK # PRIO ENDIDLE RETURN 064023,001268: 10,3541 13651 TCF NORMRET # NORMAL ENDIDLE RETURN 064024,001269: 10,3542 13635 TCF MARKRET # MARK ENDIDLE RETURN 064025,001270: 064026,001271: 10,3543 40025 TIMECHEK CS TIME1 064027,001272: 10,3544 61147 AD PRIOTIME 064028,001273: 10,3545 10000 CCS A 064029,001274: 10,3546 40000 COM 064030,001275: 10,3547 67700 AD OCT37776 064031,001276: 10,3550 65017 AD ONE 064032,001277: 10,3551 63774 AD -2SEC 064033,001278: 10,3552 00006 EXTEND 064034,001279: 10,3553 62766 BZMF KEEPPRIO 064035,001280: 064036,001281: 10,3554 13651 TCF NORMRET 064037,001282: 064038,001283: 10,3555 35017 NORMWAKE CAF ONE 064039,001284: 10,3556 13246 TCF WAKEPLAY 064040,001285: 064041,001286: 10,3557 10161 ENDRET CCS OUTHERE 064042,001287: 10,3560 65017 AD ONE 064043,001288: 10,3561 13563 TCF +2 # NORMAL ENDIDLE EXIT 064044,001289: 10,3562 15217 TCF ENDOFJOB 064045,001290: 10,3563 50157 INDEX COPMPAC 064046,001291: 10,3564 60372 AD CADRFLSH 064047,001292: 10,3565 54157 TS MPAC +3 064048,001293: 064049,001294: 10,3566 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS 064050,001295: 10,3567 73571 MASK PINIDMSK 064051,001296: 10,3570 07740 TC DOWNENT2 064052,001297: 10,3571 74044 PINIDMSK OCT 74044 # *** DON'T MOVE 064053,001298: 064054,001299: 10,3572 46214 CS THREE # BLANK EVERYTHING EXCEPT MM 064055,001300: 10,3573 04170 TC NVSUB 064056,001301: 10,3574 13575 TCF +1 064057,001302: 064058,001303: 10,3575 30163 ENDIT CA USERPRIO # RETURN TO USER'S PRIORITY 064059,001304: 10,3576 77674 MASK PRIO37 064060,001305: 10,3577 05210 TC PRIOCHNG 064061,001306: 10,3600 30157 CA MPAC +3 064062,001307: 10,3601 14704 TCF BANKJUMP 064063,001308: 064064,001309: 10,3602 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST 064065,001310: 10,3603 45015 CS BIT3 064066,001311: 10,3604 71073 MASK R1SAVE 064067,001312: 10,3605 55073 TS R1SAVE 064068,001313: 10,3606 35021 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN 064069,001314: 10,3607 04773 TC SUPERSW # SUPERBANK 0 064070,001315: # Page 1481 064071,001316: 064072,001317: 10,3610 36214 -1 CAF THREE # RETURN TO USER'S IMMEDIATE RETURN LOC 064073,001318: 10,3611 50164 IMMEDRET INDEX COPINDEX 064074,001319: 10,3612 60372 AD CADRFLSH 064075,001320: 10,3613 14704 TCF BANKJUMP 064076,001321: 064077,001322: 10,3614 35021 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO 064078,001323: 10,3615 13534 TCF ENDOUT 064079,001324: 064080,001325: 10,3616 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS 064081,001326: 10,3617 75002 MASK BIT14 064082,001327: 10,3620 10000 CCS A 064083,001328: 10,3621 16706 TCF Q+1 # NO 064084,001329: 10,3622 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE 064085,001330: 10,3623 50164 INDEX COPINDEX 064086,001331: 10,3624 60372 AD CADRFLSH 064087,001332: 10,3625 00006 EXTEND 064088,001333: 10,3626 13630 BZF +2 # YES 064089,001334: 064090,001335: 10,3627 00002 TC Q # NO 064091,001336: 10,3630 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY 064092,001337: 10,3631 05217 TC ENDOFJOB # END THE NEW DISPLAY, IT'S ALREADY ACTIVE 064093,001338: 10,3632 00002 TC Q 064094,001339: 064095,001340: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD 064096,001341: 064097,001342: 10,3633 35017 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS 064098,001343: 10,3634 13534 TCF ENDOUT 064099,001344: 064100,001345: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK 064101,001346: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY 064102,001347: # DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP. 064103,001348: 064104,001349: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS 064105,001350: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS 064106,001351: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A 064107,001352: # PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART. 064108,001353: 064109,001354: 10,3635 46211 MARKRET CS SIX 064110,001355: 10,3636 70100 MASK FLAGWRD4 064111,001356: 10,3637 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF 064112,001357: 10,3640 54100 TS FLAGWRD4 064113,001358: 064114,001359: 10,3641 00003 RELINT # INHINT REALM 064115,001360: 10,3642 13557 TCF ENDRET 064116,001361: 064117,001362: 10,3643 37716 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET 064118,001363: 10,3644 54161 TS OUTHERE 064119,001364: 10,3645 30100 CA FLAGWRD4 # IS ENDIDFLG SET 064120,001365: 10,3646 74371 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE 064121,001366: 10,3647 10000 CCS A 064122,001367: # Page 1482 064123,001368: 10,3650 13303 TCF NORMBNCH 064124,001369: 064125,001370: 10,3651 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING 064126,001371: 10,3652 73746 MASK BITS5+11 # OR WAITING 064127,001372: 10,3653 10000 CCS A 064128,001373: 10,3654 13245 TCF MARKWAKE 064129,001374: 064130,001375: 10,3655 30100 CA FLAGWRD4 # NO 064131,001376: 10,3656 73747 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING 064132,001377: 10,3657 10000 CCS A 064133,001378: 10,3660 13555 TCF NORMWAKE # YES 064134,001379: 064135,001380: 10,3661 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST 064136,001381: 10,3662 75033 MASK OCT50 # OR A GODSPRET 064137,001382: 10,3663 10000 CCS A 064138,001383: 10,3664 13557 TCF ENDRET # YES 064139,001384: 10,3665 30371 CA NVSAVE 064140,001385: 10,3666 00006 EXTEND 064141,001386: 10,3667 13557 BZF ENDRET 064142,001387: 064143,001388: 10,3670 35067 CAF PRIO15 064144,001389: 10,3671 00004 INHINT 064145,001390: 10,3672 05134 TC NOVAC 064146,001391: 10,3673 0367 EBANK= NVWORD 064147,001392: 10,3673 03037 20060 2CADR PLAYJUM1 064148,001393: 064149,001394: 10,3675 13557 TCF ENDRET 064150,001395: 064151,001396: 10,3676 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY ON 064152,001397: 10,3677 73746 MASK BITS5+11 064153,001398: 10,3700 10000 CCS A 064154,001399: 10,3701 15217 TCF ENDOFJOB # YES 064155,001400: 10,3702 13176 TCF GOSLEEPS 064156,001401: 064157,001402: 10,3703 50157 LOADITIS INDEX COPMPAC 064158,001403: 10,3704 30367 CA NVWORD 064159,001404: 10,3705 76043 MASK LOW7 064160,001405: 10,3706 40000 COM 064161,001406: 10,3707 60155 AD MPAC +1 # NOUNREG 064162,001407: 10,3710 00006 EXTEND 064163,001408: 10,3711 13533 BZF OKTOENT # NO, THEN LOAD IS VALID 064164,001409: 10,3712 13272 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN 064165,001410: 064166,001411: 10,3713 46214 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM 064167,001412: 10,3714 04170 TC NVSUB 064168,001413: 10,3715 15217 TCF ENDOFJOB 064169,001414: 10,3716 15217 TCF ENDOFJOB 064170,001415: 064171,001416: 10,3717 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3 064172,001417: # Page 1483 064173,001418: 10,3720 00231 V01N25 VN 00125 064174,001419: 10,3721 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50 064175,001420: 10,3722 14400 V50N00 VN 5000 064176,001421: 10,3723 00030 PERF2MSK OCT 00030 # FLASH, PERFORM 064177,001422: 10,3724 01006 V04N06 VN 00406 064178,001423: 10,3725 00014 PERF4MSK OCT 14 # FLASH, BLANK R3 064179,001424: 10,3726 10,3272 GOAGIN EQUALS PINBRNCH 064180,001425: 10,3726 20010 REDOMASK OCT 20010 # BITS 4 AND 14 064181,001426: 10,3727 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH 064182,001427: 10,3730 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3 064183,001428: 10,3731 20764 NVCADR CADR REDOPRIO 064184,001429: 10,3732 20624 WAKECADR CADR MARKPLAY 064185,001430: 10,3733 21037 CADR PLAYJUM1 064186,001431: 064187,001432: 10,3734 03400 OCT3400 OCT 3400 # EBANK MASK 064188,001433: 10,3735 11210 NBUSMASK OCT 11210 064189,001434: 10,3736 66521 PMMASK OCT 66521 064190,001435: 10,3737 4160 VERBMASK = MID7 # (OCT 37600) 064191,001436: 10,3737 01177 V05N00M1 OCT 1177 # V05 MINUS ONE 064192,001437: 10,3740 10,2555 GOXDSP EQUALS GOMARK 064193,001438: 10,3740 10,2575 GOXDSPR EQUALS GOMARKR 064194,001439: 10,3740 10,2561 GOXDSPF EQUALS GOMARKF 064195,001440: 10,3740 10,2600 GOXDSPFR EQUALS GOMARKFR 064196,001441: 10,3740 5534 ENDEXT EQUALS ENDMARK 064197,001442: 10,3740 0165 MPAC2SAV EQUALS BANKSET 064198,001443: 10,3740 00700 NVBUSMSK OCT 700 064199,001444: 10,3741 00704 ASTROMSK OCT 704 064200,001445: 10,3742 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH 064201,001446: 10,3743 34300 OCT34300 OCT 34300 064202,001447: 10,3744 40100 BITS15+7 OCT 40100 064203,001448: 10,3745 00110 BITS7+4 OCT 110 064204,001449: 10,3746 1067 DSPFLG EQUALS EBANKSAV 064205,001450: 10,3746 1070 MARKFLAG EQUALS MARKEBAN 064206,001451: 10,3746 1071 SAVEFLAG EQUALS EBANKTEM 064207,001452: 10,3746 02020 BITS5+11 OCT 2020 # * DON'T MOVE 064208,001453: 10,3747 01010 BITS4+10 OCT 1010 # * DON'T MOVE 064209,001454: 10,3750 00026 LOWLOAD DEC 22 B-14 064210,001455: 10,3751 77730 BUSYMASK OCT 77730 064211,001456: 10,3752 00050 CADRMASK OCT 50 064212,001457: 10,3753 7707 PINMASK EQUALS 13,14,15 064213,001458: 10,3753 10,3312 GOPLAY EQUALS NVDSP 064214,001459: 10,3753 1073 PRIOSAVE EQUALS R1SAVE 064215,001460: 10,3753 0157 COPMPAC EQUALS MPAC +3 064216,001461: 10,3753 0160 TEMPOR2 EQUALS MPAC +4 064217,001462: 10,3753 0161 OUTHERE EQUALS MPAC +5 064218,001463: 10,3753 0164 COPINDEX EQUALS LOC 064219,001464: 10,3753 0163 USERPRIO EQUALS MODE 064220,001465: 10,3753 0162 GENMASK EQUALS MPAC +6 064221,001466: 10,3753 20144 PRIOOCT OCT 20144 # PRIO 064222,001467: 10,3754 42424 MARKOCT OCT 42424 # MARK 064223,001468: # Page 1484 064224,001469: 10,3755 11254 OCT 11254 # NORM 064225,001470: 064226,001471: 10,3756 74704 IDLESLEP OCT 74704 064227,001472: 10,3757 67777 OCT67777 OCT 67777 064228,001473: 10,3760 5526 LINUS EQUALS BLANKET 064229,001474: 10,3760 0154 FACEREG EQUALS MPAC 064230,001475: 10,3760 0155 PLAYTEM1 EQUALS MPAC +1 064231,001476: 10,3760 0157 PLAYTEM3 EQUALS MPAC +3 064232,001477: 10,3760 0160 PLAYTEM4 EQUALS MPAC +4 064233,001478: 10,3760 40420 OCT40420 OCT 40420 064234,001479: 10,3761 02770 MAKEGEN GENADR MAKEPLAY 064235,001480: 10,3762 10200 OCT10200 OCT 10200 064236,001481: 10,3763 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99 064237,001482: 10,3764 20100 OCT20100 OCT 20100 064238,001483: 10,3765 24030 CLOCKCON OCT 24030 064239,001484: 064240,001485: End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc