Source Code

057043,000001: # Copyright: Public domain. 057044,000002: # Filename: DISPLAY_INTERFACE_ROUTINES.agc 057045,000003: # Purpose: Part of the source code for Luminary 1A build 099. 057046,000004: # It is part of the source code for the Lunar Module's (LM) 057047,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 057048,000006: # Assembler: yaYUL 057049,000007: # Contact: Ron Burkey <info@sandroid.org>. 057050,000008: # Website: www.ibiblio.org/apollo. 057051,000009: # Pages: 1341-1373 057052,000010: # Mod history: 2009-05-27 RSB Adapted from the corresponding 057053,000011: # Luminary131 file, using page 057054,000012: # images from Luminary 1A. 057055,000013: # 2011-01-06 JL Fixed pseudo-label indentation. 057056,000014: # 2011-05-08 JL Removed workaround. 057057,000015: 057058,000016: # This source code has been transcribed or otherwise adapted from 057059,000017: # digitized images of a hardcopy from the MIT Museum. The digitization 057060,000018: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 057061,000019: # the Museum. Many thanks to both. The images (with suitable reduction 057062,000020: # in storage size and consequent reduction in image quality as well) are 057063,000021: # available online at www.ibiblio.org/apollo. If for some reason you 057064,000022: # find that the images are illegible, contact me at info@sandroid.org 057065,000023: # about getting access to the (much) higher-quality images which Paul 057066,000024: # actually created. 057067,000025: 057068,000026: # Notations on the hardcopy document read, in part: 057069,000027: 057070,000028: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 057071,000029: # 16:27 JULY 14, 1969 057072,000030: 057073,000031: # Page 1341 057074,000032: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -- 057075,000033: # 1. PRIORITY DISPLAYS -- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT 057076,000034: # OUT UNDER CRITICAL ALARM CONDITIONS. 057077,000035: # 2. EXTENDED VERB DISPLAYS -- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS. 057078,000036: # 3. NORMAL DISPLAYS -- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL 057079,000037: # SEQUENCE OF EVENTS. 057080,000038: # 4. MISC. DISPLAYS -- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS 057081,000039: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL. 057082,000040: # 5. ASTRONAUT INITIATED DISPLAYS -- ALL DISPLAYS INITIATED EXTERNALLY. 057083,000041: 057084,000042: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -- 057085,000043: # 1. ACTIVE -- THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR 057086,000044: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY 057087,000045: # BUT NOT WAITING FOR A RESPONSE. 057088,000046: # 2. INACTIVE -- A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY, 057089,000047: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY 057090,000048: # WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE 057091,000049: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL 057092,000050: # HAS INFO SAVED FOR RESTART PURPOSES. 057093,000051: 057094,000052: # DISPLAY PRIORITIES WORK AS FOLLOWS -- 057095,000053: # INTERRUPTS -- 057096,000054: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST. 057097,000055: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY. 057098,000056: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER 057099,000057: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE. 057100,000058: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY. 057101,000059: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT. 057102,000060: 057103,000061: # ORDER OF WAITING DISPLAYS -- 057104,000062: # 1. ASTRONAUT 057105,000063: # 2. PRIORITY 057106,000064: # 3. INTERRUPTED MARK 057107,000065: # 4. INTERRUPTED NORMAL 057108,000066: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK) 057109,000067: # 6. MARK WAITING 057110,000068: # 7. NORMAL WAITING 057111,000069: 057112,000070: # Page 1342 057113,000071: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE 057114,000072: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES 057115,000073: # WILL FOLLOW LATER): 057116,000074: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN 057117,000075: # IS TO THE USER'S CALL CADR +4. FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN 057118,000076: # IS TO THE USER'S CALLING LOC +1. 057119,000077: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER. 057120,000078: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USER'S JOB PRIORITY. 057121,000079: # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE 057122,000080: # USER'S JOB. 057123,000081: # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL. 057124,000082: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE 057125,000083: # DESCRIPTION OF RESTARTS). 057126,000084: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES 057127,000085: # TO THE USER'S CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2. AN ENTER OR RECYCLE 057128,000086: # (V32) BRANCHES TO THE USER'S CALL CADR +3. 057129,000087: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL 057130,000088: 057131,000089: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS: 057132,000090: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. 057133,000091: # 1. GODSP IS NOT RESTARTABLE 057134,000092: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH. 057135,000093: # CAF VXXNYY 057136,000094: # TC BANKCALL 057137,000095: # CADR GODSP 057138,000096: # VXXNYY OCT 0XXYY 057139,000097: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER. 057140,000098: # CAF VXXNYY 057141,000099: # TC BANKCALL 057142,000100: # CADR GODSPR 057143,000101: # ... ... # IMMEDIATE RETURN OF GODSPR 057144,000102: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM 057145,000103: # THE ASTRONAUT (SEE NO. 7 ABOVE). 057146,000104: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN. 057147,000105: # TC BANKCALL 057148,000106: # CADR GOFLASH 057149,000107: # ... ... # TERMINATE RETURN 057150,000108: # ... ... # PROCEED RETURN 057151,000109: # ... ... # ENTER OR RECYCLE RETURN 057152,000110: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A 057153,000111: # Page 1343 057154,000112: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO 057155,000113: # USER (SEE NO. 7 ABOVE). 057156,000114: # GOPERF1 BLANKS REGISTERS R2 AND R3 057157,000115: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX 057158,000116: # TC BANKCALL 057159,000117: # CADR GOPERF1 057160,000118: # ... ... # TERMINATE RETURN 057161,000119: # ... ... # PROCEED RETURN 057162,000120: # ... ... # ENTER RETURN 057163,000121: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE 057164,000122: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING 057165,000123: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). 057166,000124: # GOPERF2 DOES NOT BLANK ANY REGISTERS 057167,000125: # CAF VXXNYY # VARIABLE NOUN YY. XX=0 OR 01. 057168,000126: # TC BANKCALL 057169,000127: # CADR GOPERF2 057170,000128: # ... ... # TERMINATE RETURN 057171,000129: # ... ... # PROCEED RETURN 057172,000130: # ... ... # ENTER RETURN 057173,000131: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3 057174,000132: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN 057175,000133: # IS MADE TO THE USER (SEE NO. 7 ABOVE). 057176,000134: # GOPERF3 BLANKS REGISTERS R2 AND R3 057177,000135: # CAF DECXX # REQUEST PERFORM ON PXX 057178,000136: # TC BANKCALL 057179,000137: # CADR GOPERF3 057180,000138: # ... ... # TERMINATE RETURN 057181,000139: # ... ... # PROCEED RETURN 057182,000140: # ... ... # ENTER RETURN 057183,000141: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1. 057184,000142: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO 057185,000143: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). 057186,000144: # CAF OCTXX # REQUEST PERFORM ON OPTION XX 057187,000145: # TC BANKCALL 057188,000146: # CADR GOPERF4 057189,000147: # ... ... # TERMINATE RETURN 057190,000148: # ... ... # PROCEED RETURN 057191,000149: # ... ... # ENTER RETURN 057192,000150: # GOPERF4 BLANKS REGISTER R3. 057193,000151: # Page 1344 057194,000152: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT 057195,000153: # OUT. 057196,000154: # CAF VXXXNYY 057197,000155: # TC BANKCALL 057198,000156: # CADR GODSPRET 057199,000157: # ... ... # RETURN TO USER. 057200,000158: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY 057201,000159: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. 057202,000160: # CAF VXXNYY 057203,000161: # TC BANKCALL 057204,000162: # CADR REGODSP 057205,000163: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. 057206,000164: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN 057207,000165: # TC BANKCALL 057208,000166: # CADR REFLASH 057209,000167: # ... ... # TERMINATE RETURN 057210,000168: # ... ... # PROCEED RETURN 057211,000169: # ... ... # ENTER RETURN 057212,000170: # GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 057213,000171: # CAF VXXNYY 057214,000172: # TC BANKCALL 057215,000173: # CADR GOFLASHR 057216,000174: # ... ... # TERMINATE RETURN 057217,000175: # ... ... # PROCEED RETURN 057218,000176: # ... ... # ENTER OR RECYCLE RETURN 057219,000177: # ... ... # IMMEDIATE RETURN FROM GOFLASHR 057220,000178: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USER'S CALL CADR +4. 057221,000179: # GOPERF1R BLANKS REGISTERS R2 AND R3 057222,000180: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX. 057223,000181: # TC BANKCALL 057224,000182: # CADR GOPERF1R 057225,000183: # ... ... # TERMINATE RETURN 057226,000184: # ... ... # PROCEED RETURN 057227,000185: # ... ... # ENTER RETURN 057228,000186: # ... ... # IMMEDIATE RETURN FROM GOPERF1R 057229,000187: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 057230,000188: # Page 1345 057231,000189: # GOPERF2R DOES NOT BLANK ANY REGISTERS 057232,000190: # CAF VXXXNYY # VARIABLE NOUN YY REQUESTED. XX=00 OR 01 057233,000191: # TC BANKCALL 057234,000192: # CADR GOPERF2R 057235,000193: # ... ... # TERMINATE RETURN 057236,000194: # ... ... # PROCEED RETURN 057237,000195: # ... ... # ENTER RETURN 057238,000196: # ... ... # IMMEDIATE RETURN HERE FROM GOPERF2R 057239,000197: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 057240,000198: # GOPERF3R BLANKS REGISTERS R2 AND R3 057241,000199: # CAF PROGXX # PERFORM PROGRAM XX 057242,000200: # TC BANKCALL 057243,000201: # CADR GOPERF3R 057244,000202: # ... ... # TERMINATE RETURN 057245,000203: # ... ... # PROCEED RETURN 057246,000204: # ... ... # ENTER RETURN 057247,000205: # ... ... # GOPERF3R IMMEDIATELY RETURNS HERE 057248,000206: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 057249,000207: # CAF OCTXX # REQUEST PERFORM ON OPTIONXX 057250,000208: # TC BANKCALL 057251,000209: # CADR GOPERF4R 057252,000210: # ... ... # TERMINATE RETURN 057253,000211: # ... ... # PROCEED RETURN 057254,000212: # ... ... # ENTER RETURN 057255,000213: # ... ... # IMMEDIATE RETURN TO USER 057256,000214: # GOPERF4R BLANKS REGISTER R3. 057257,000215: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 057258,000216: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN 057259,000217: # TC BANKCALL 057260,000218: # CADR REFLASHR 057261,000219: # ... ... # TERMINATE RETURN 057262,000220: # ... ... # PROCEED RETURN 057263,000221: # ... ... # ENTER RETURN 057264,000222: # ... ... # IMMEDIATE RETURN TO USER 057265,000223: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER. 057266,000224: # Page 1346 057267,000225: # CAF VXXNYY 057268,000226: # TC BANKCALL 057269,000227: # CADR REGODSPR 057270,000228: # ... ... # IMMEDIATE RETURN TO USER 057271,000229: # Page 1347 057272,000230: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. 057273,000231: # GOXDSP = GOMARK 057274,000232: # CAF VXXNYY # VXXNYY CONTAINS VERB AND NOUN 057275,000233: # TC BANKCALL 057276,000234: # CADR GOMARK # OTHER EXTENDED VERBS USE CADR GOXDSP 057277,000235: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER. 057278,000236: # GOXDSPR = GOMARKR 057279,000237: # CAF VXXNYY 057280,000238: # TC BANKCALL 057281,000239: # CADR GOMARKR # OTHER EXTENDED VERBS USE CADR GOXDSPR 057282,000240: # ... ... # IMMEDIATE RETURN OF GOMARKR 057283,000241: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM 057284,000242: # THE ASTRONAUT (SEE NO. 7 ABOVE). 057285,000243: # GOXDSPF = GOMARKF 057286,000244: # CAF VXXNYY # VXXNYY WILL BE A FLASHING MARK VERB NOUN 057287,000245: # TC BANKCALL 057288,000246: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR 057289,000247: # ... ... # TERMINATE RETURN 057290,000248: # ... ... # PROCEED RETURN 057291,000249: # ... ... # ENTER OR RECYCLE RETURN 057292,000250: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4. 057293,000251: # GOXDSPFR = GOMARKFR 057294,000252: # CAF VXXNYY # FLASHING MARK VERB NOUN 057295,000253: # TC BANKCALL 057296,000254: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR 057297,000255: # ... ... # TERMINATE RETURN 057298,000256: # ... ... # PROCEED RETURN 057299,000257: # ... ... # ENTER OR RECYCLE RETURN 057300,000258: # ... ... # IMMEDIATE RETURN TO THE USER 057301,000259: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE 057302,000260: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R 057303,000261: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK 057304,000262: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER. 057305,000263: # CAF V5XNYY # X=1,2,3,4 Y=NOUN 057306,000264: # TC BANKCALL 057307,000265: # Page 1348 057308,000266: # CADR GOMARK1 057309,000267: # ... ... # ENTER RETURN 057310,000268: # *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER. 057311,000269: 057312,000270: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +2. 057313,000271: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 057314,000272: # TC BANKCALL 057315,000273: # CADR GOMARK1R 057316,000274: # ... ... # ASTRONAUT ENTER RETURN 057317,000275: # ... ... # IMMEDIATE RETURN TO USER 057318,000276: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT. 057319,000277: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 057320,000278: # TC BANKCALL 057321,000279: # CADR GOMARK2 057322,000280: # ... ... # TERMINATE RETURN 057323,000281: # ... ... # PROCEED RETURN 057324,000282: # ... ... # ENTER RETURN 057325,000283: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER. 057326,000284: # CAF V5XNYY # X=0,1,2,3,4 YY=NOUN 057327,000285: # TCF BANKCALL 057328,000286: # CADR GOMARK2R 057329,000287: # ... ... # TERMINATE RETURN 057330,000288: # ... ... # PROCEED RETURN 057331,000289: # ... ... # ENTER RETURN 057332,000290: # ... ... # IMMEDIATE RETURN TO THE USER. 057333,000291: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE 057334,000292: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING 057335,000293: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN. 057336,000294: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 057337,000295: # TC BANKCALL 057338,000296: # CADR GOMARK3 057339,000297: # ... ... # TERMINATE RETURN 057340,000298: # ... ... # PROCEED RETURN 057341,000299: # ... ... # ENTER RETURN 057342,000300: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL. 057343,000301: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 057344,000302: # TC BANKCALL 057345,000303: # CADR GOMARK4 057346,000304: # ... ... # TERMINATE RETURN 057347,000305: # ... ... # PROCEED RETURN 057348,000306: # Page 1349 057349,000307: # ... ... # ENTER RETURN 057350,000308: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN 057351,000309: # SEND OUT. 057352,000310: # CAF VXNYY 057353,000311: # TC BANKCALL 057354,000312: # CADR EXDSPRET 057355,000313: # ... ... # RETURN TO USER 057356,000314: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS 057357,000315: # HAVE BEEN CLEANED OUT. 057358,000316: # TC BANKCALL 057359,000317: # CADR KLEENEX 057360,000318: # ... ... # RETURN TO USER 057361,000319: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW). 057362,000320: # TC BANKCALL 057363,000321: # CADR MARKBRAN 057364,000322: # ... ... # BAD RETURN IF MARK DISPLAY NOT ACTIVE 057365,000323: # # (GOOD RETURN TO IMMEDIATE RETURN LOC OF 057366,000324: # # LAST FLASHING MARK R ROUTINE) 057367,000325: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS 057368,000326: # BLANKED AND CONTROL IS SENT TO ENDOFJOB. 057369,000327: # TC POSTJUMP 057370,000328: # CADR PINBRNCH 057371,000329: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM 057372,000330: # THE ASTRONAUT (SEE NO. 7 ABOVE). 057373,000331: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO 057374,000332: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY 057375,000333: # IS RESPONDED TO BY THE ASTRONAUT. 057376,000334: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE 057377,000335: # PRIO DISPLAY 057378,000336: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN 057379,000337: # TC BANKCALL 057380,000338: # CADR PRIODSP 057381,000339: # ... ... # TERMINATE RETURN 057382,000340: # ... ... # PROCEED RETURN 057383,000341: # Page 1350 057384,000342: # ... ... # ENTER OR RECYCLE RETURN 057385,000343: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 057386,000344: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN 057387,000345: # TC BANKCALL 057388,000346: # CADR PRIODSPR 057389,000347: # ... ... # TERMINATE ACTION 057390,000348: # ... ... # PROCEED RETURN 057391,000349: # ... ... # ENTER OR RECYCLE RETURN 057392,000350: # ... ... # IMMEDIATE RETURN 057393,000351: # PRIOLARM DOES A V05N09 PRIODSPR. 057394,000352: 057395,000353: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL 057396,000354: # DISPLAYS ARE CLEANED OUT. 057397,000355: # TC BANKCALL 057398,000356: # CADR CLEANDSP 057399,000357: # ... ... # RETURN TO USER 057400,000358: # Page 1351 057401,000359: 057402,000360: # GENERAL INFORMATION 057403,000361: # ------------------- 057404,000362: 057405,000363: # ALARM OR ABORT EXIT MODE -- 057406,000364: # PRIOBORT TC ABORT 057407,000365: # OCT 1502 057408,000366: 057409,000367: # PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE 057410,000368: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS 057411,000369: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION). 057412,000370: 057413,000371: # ERASABLE INITIALIZATION REQUIRED -- 057414,000372: # ACCOMPLISHED BY FRESH START -- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES) 057415,000373: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER. 057416,000374: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK). 057417,000375: # 5. R1SAVE = MARKBRAN CONTROL WORD 057418,000376: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3. 057419,000377: 057420,000378: # OUTPUT -- 057421,000379: # NVWORD = PRIO VERB AND NOUN 057422,000380: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN 057423,000381: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN 057424,000382: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK) 057425,000383: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK) 057426,000384: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK) 057427,000385: # CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION 057428,000386: # CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION 057429,000387: # CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION 057430,000388: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT 057431,000389: # OPTION1 = DESIRED OPTION FROM GOPERF4 057432,000390: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES 057433,000391: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL) 057434,000392: 057435,000393: # SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG, 057436,000394: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC 057437,000395: 057438,000396: # DEBRIS -- (STORED INTO) 057439,000397: # TEMPORARY TEMPORARIES -- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL, 057440,000398: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1, FACEREG 057441,000399: # ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) -- CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1 057442,000400: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) -- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4, 057443,000401: # Page 1352 057444,000402: # R1SAVE, MARK2PAC 057445,000403: 057446,000404: # DEBRIS -- (USED BUT NOT STORED INTO) -- NOUNREG, VERBREG, LOCCTR, MONSAVE1 057447,000405: 057448,000406: # FLAGWORD DESCRIPTIONS -- 057449,000407: # FLAGWRD4 -- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS 057450,000408: 057451,000409: # DSPFLG, DSPFLG+1, DSPFLG+2 057452,000410: # -------------------------- 057453,000411: # BITS 1 BLANK R1 057454,000412: # 2 BLANK R2 057455,000413: # 3 BLANK R3 057456,000414: # 4 FLASHING DISPLAY REQUESTED 057457,000415: # 5 PERFORM DISPLAY REQUESTED 057458,000416: # 6 ----- EXDSPRET GODSPRET 057459,000417: # 7 PRIO DISPLAY ----- ----- 057460,000418: # 8 ----- DEC MARK PERFORM ----- 057461,000419: # 9 EBANK 057462,000420: # 10 EBANK 057463,000421: # 11 EBANK 057464,000422: # 12 ----- ----- V99PASTE 057465,000423: # 13 2ND PART OF PERFORM 057466,000424: # 14 REFLASH OR REDO ----- REFLASH OR REDO 057467,000425: # 15 ----- MARK REQUEST ----- 057468,000426: 057469,000427: # RESTARTING DISPLAYS -- 057470,000428: 057471,000429: # RULES FOR THE DSKY OPERATOR -- 057472,000430: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG 057473,000431: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS 057474,000432: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR 057475,000433: # WITH PROCEED AND TERMINATE FOR THIS REASON. 057476,000434: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE 057477,000435: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME 057478,000436: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY 057479,000437: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY 057480,000438: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM 057481,000439: # CONSIDERATION. 057482,000440: # 3. KEY RELEASE BUTTON -- 057483,000441: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE. 057484,000442: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL 057485,000443: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE. 057486,000444: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF 057487,000445: # KEY RELEASE BUTTON MAY BE NECESSARY. 057488,000446: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE. 057489,000447: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE 057490,000448: # OVER AGAIN. 057491,000449: 057492,000450: # SPECIAL CONSIDERATONS -- 057493,000451: # Page 1353 057494,000452: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS 057495,000453: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST. 057496,000454: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R) 057497,000455: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT. 057498,000456: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED 057499,000457: # BY A .1 RESTART PHASE CHANGE. 057500,000458: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE 057501,000459: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO 057502,000460: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL. 057503,000461: 057504,000462: # Page 1354 057505,000463: # CALLING SEQUENCE FOR BLANKING 057506,000464: # CAF BITX # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY 057507,000465: # TC BLANKET 057508,000466: # ... ... # RETURN TO USER HERE 057509,000467: # IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL 057510,000468: # TO BLANKET AT THE IMMEDIATE RETURN LOC. 057511,000469: 5464 BLOCK 02 057512,000470: 4000 SETLOC FFTAG4 057513,000471: 4000 BANK 057514,000472: 057515,000473: 5464 COUNT* $$/DSPLA 057516,000474: 5464 54162 BLANKET TS MPAC +6 057517,000475: 5465 40160 CS PLAYTEM4 057518,000476: 5466 70162 MASK MPAC +6 057519,000477: 5467 50161 INDEX MPAC +5 057520,000478: 5470 26160 ADS PLAYTEM4 057521,000479: 057522,000480: 5471 00002 TC Q 057523,000481: 057524,000482: 5472 04635 ENDMARK TC POSTJUMP 057525,000483: 5473 20326 CADR MARKEND 057526,000484: 057527,000485: 5474 34755 CLEARMRK CAF ZERO 057528,000486: 5475 55044 TS EXTVBACT 057529,000487: 057530,000488: 5476 00004 +2 INHINT 057531,000489: 5477 44753 CS XDSPBIT 057532,000490: 5500 70100 MASK FLAGWRD4 057533,000491: 5501 54100 TS FLAGWRD4 057534,000492: 057535,000493: 5502 00003 RELINT 057536,000494: 5503 00002 TC Q 057537,000495: 057538,000496: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN 057539,000497: # FINISHED. 057540,000498: 057541,000499: 10,2326 BANK 10 057542,000500: 10,2000 SETLOC DISPLAYS 057543,000501: 10,2000 BANK 057544,000502: 057545,000503: 10,2326 COUNT* $$/DSPLA 057546,000504: 057547,000505: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH 057548,000506: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R. 057549,000507: 057550,000508: 10,2326 05474 MARKEND TC CLEARMRK 057551,000509: 10,2327 13421 TCF MARKOVER 057552,000510: 057553,000511: 10,2330 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP 057554,000512: # Page 1355 057555,000513: 10,2331 34735 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS 057556,000514: 10,2332 12500 TCF GOFLASH2 057557,000515: 057558,000516: 10,2333 34755 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS 057559,000517: 10,2334 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH 057560,000518: 057561,000519: 10,2335 33031 CAF MARKFMSK # MARK, FLASH 057562,000520: 10,2336 12500 TCF GOFLASH2 057563,000521: 057564,000522: 10,2337 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS 057565,000523: 10,2340 33520 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH 057566,000524: 10,2341 12500 TCF GOFLASH2 057567,000525: 057568,000526: 10,2342 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM 057569,000527: 10,2343 33505 CAF MARK3MSK 057570,000528: 10,2344 12500 TCF GOFLASH2 057571,000529: 057572,000530: 10,2345 54155 GOMARK4 TS PLAYTEM1 057573,000531: 10,2346 33506 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK 057574,000532: 10,2347 12500 TCF GOFLASH2 057575,000533: 057576,000534: 10,2350 54155 GOMARKR TS PLAYTEM1 # ENTRANCE FOR MARK GODSPR 057577,000535: 057578,000536: 10,2351 34735 CAF BIT15 057579,000537: 10,2352 12453 TCF GODSPR2 057580,000538: 057581,000539: 10,2353 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR 057582,000540: 057583,000541: 10,2354 33031 CAF MARKFMSK 057584,000542: 10,2355 12637 TCF GODSPRS 057585,000543: 057586,000544: 10,2356 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET. 057587,000545: 10,2357 33520 CAF MPERFMSK # MARK, PERFORM, FLASH 057588,000546: 10,2360 12637 TCF GODSPRS 057589,000547: 057590,000548: 10,2361 54155 GOMARK3R TS PLAYTEM1 057591,000549: 10,2362 33505 CAF MARK3MSK 057592,000550: 10,2363 12637 TCF GODSPRS 057593,000551: 057594,000552: 10,2364 34753 MAKEMARK CAF ONE 057595,000553: 10,2365 02735 TC COPIES 057596,000554: 057597,000555: 10,2366 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING 057598,000556: 10,2367 73521 MASK OCT34300 057599,000557: 10,2370 10000 CCS A 057600,000558: 10,2371 12427 TCF CHKPRIO 057601,000559: 057602,000560: 10,2372 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY 057603,000561: 10,2373 74743 MASK MRKNVBIT 057604,000562: 057605,000563: 10,2374 00006 EXTEND 057606,000564: # Page 1356 057607,000565: 10,2375 12377 BZF MARKPLAY # NO 057608,000566: 057609,000567: 10,2376 15155 TCF ENDOFJOB 057610,000568: 057611,000569: 10,2377 00004 MARKPLAY INHINT 057612,000570: 10,2400 44756 CS FIVE # RESET MARK OVER NORM, SET MARK 057613,000571: 10,2401 70100 MASK FLAGWRD4 057614,000572: 10,2402 64753 AD ONE 057615,000573: 10,2403 54100 TS FLAGWRD4 057616,000574: 10,2404 00003 RELINT 057617,000575: 057618,000576: 10,2405 41071 GOGOMARK CS MARKFLAG # PERFORM 057619,000577: 10,2406 74747 MASK BIT5 057620,000578: 10,2407 10000 CCS A 057621,000579: 10,2410 12413 TCF MARKCOP 057622,000580: 10,2411 40370 CS MARKNV 057623,000581: 10,2412 54370 TS MARKNV 057624,000582: 057625,000583: 10,2413 34753 MARKCOP CAF ONE # MARK INDEX 057626,000584: 10,2414 12616 TCF PRIOPLAY 057627,000585: 057628,000586: 10,2415 30165 COPYTOGO CA MPAC2SAV 057629,000587: 10,2416 54156 TS MPAC +2 057630,000588: 057631,000589: 10,2417 50164 COPYPACS INDEX COPINDEX 057632,000590: 10,2420 33531 CAF PRIOOCT 057633,000591: 10,2421 54162 TS GENMASK 057634,000592: 057635,000593: 10,2422 50164 INDEX COPINDEX 057636,000594: 10,2423 31070 CAF EBANKSAV 057637,000595: 10,2424 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG 057638,000596: 057639,000597: 10,2425 54003 TS EBANK 057640,000598: 057641,000599: 10,2426 00002 TC Q 057642,000600: 057643,000601: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY 057644,000602: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK 057645,000603: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP 057646,000604: # UNTIL ALL MARKING IS FINISHED. 057647,000605: 057648,000606: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A 057649,000607: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT. 057650,000608: 057651,000609: 10,2427 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO 057652,000610: 10,2430 73254 MASK OCT24100 057653,000611: 10,2431 10000 CCS A 057654,000612: 10,2432 13454 TCF MARSLEEP 057655,000613: 057656,000614: 10,2433 40100 CS FLAGWRD4 057657,000615: # Page 1357 057658,000616: 10,2434 74751 MASK MKOVBIT # SET MARK OVER NORM 057659,000617: 10,2435 00004 INHINT 057660,000618: 10,2436 26100 ADS FLAGWRD4 057661,000619: 057662,000620: 10,2437 12534 TCF SETNORM 057663,000621: 057664,000622: 10,2440 30370 MARKPERF CA MARKNV 057665,000623: 10,2441 74144 MASK VERBMASK 057666,000624: 10,2442 13120 TCF NV50DSP 057667,000625: 057668,000626: 10,2443 54155 GODSP TS PLAYTEM1 057669,000627: 057670,000628: 10,2444 34755 GODSP2 CAF ZERO 057671,000629: 10,2445 12500 TCF GOFLASH2 057672,000630: 057673,000631: 10,2446 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE 057674,000632: 057675,000633: 10,2447 34746 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB 057676,000634: 10,2450 12500 TCF GOFLASH2 057677,000635: 057678,000636: 10,2451 54155 GODSPR TS PLAYTEM1 057679,000637: 057680,000638: 10,2452 34755 GODSPR1 CAF ZERO 057681,000639: 10,2453 54160 GODSPR2 TS PLAYTEM4 057682,000640: 057683,000641: 10,2454 34755 CAF ZERO # * DON'T MOVE 057684,000642: 10,2455 12641 TCF GODSPRS1 057685,000643: 057686,000644: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS 057687,000645: # SET UP TO BE STARTED OR RESTARTED. 057688,000646: 057689,000647: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN 057690,000648: # OLD DISPLAY. 057691,000649: 057692,000650: # CALLING SEQUENCE FOR CLEANDSP -- 057693,000651: 057694,000652: # TC BANKCALL 057695,000653: # CADR CLEANDSP 057696,000654: 057697,000655: 10,2456 34755 CLEANDSP CAF ZERO 057698,000656: 10,2457 54155 REFLASH TS PLAYTEM1 057699,000657: 057700,000658: 10,2460 33504 CAF REDOMASK # FLASH AND PERMIT 057701,000659: 10,2461 12500 TCF GOFLASH2 057702,000660: 057703,000661: 10,2462 54155 REFLASHR TS PLAYTEM1 057704,000662: 057705,000663: 10,2463 33504 CAF REDOMASK # FLASH AND PERMIT 057706,000664: 10,2464 12637 TCF GODSPRS 057707,000665: 057708,000666: # Page 1358 057709,000667: 10,2465 54155 REGODSP TS PLAYTEM1 057710,000668: 057711,000669: 10,2466 34736 CAF BIT14 057712,000670: 10,2467 12500 TCF GOFLASH2 057713,000671: 057714,000672: 10,2470 54155 REGODSPR TS PLAYTEM1 057715,000673: 057716,000674: 10,2471 34736 CAF BIT14 057717,000675: 10,2472 12453 TCF GODSPR2 057718,000676: 057719,000677: 10,2473 54155 CLOCPLAY TS PLAYTEM1 057720,000678: 10,2474 33543 CAF CLOCKCON 057721,000679: 10,2475 12500 TCF GOFLASH2 057722,000680: 057723,000681: 10,2476 54155 GOFLASH TS PLAYTEM1 057724,000682: 057725,000683: 10,2477 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET 057726,000684: 10,2500 54160 GOFLASH2 TS PLAYTEM4 057727,000685: 057728,000686: 10,2501 02722 TC SAVELOCS 057729,000687: 057730,000688: 10,2502 00003 RELINT 057731,000689: 057732,000690: 10,2503 12546 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL 057733,000691: 057734,000692: 10,2504 54155 PRIODSPR TS PLAYTEM1 057735,000693: 057736,000694: 10,2505 33523 CAF BITS7+4 057737,000695: 10,2506 12637 TCF GODSPRS 057738,000696: 057739,000697: 10,2507 54155 PRIODSP TS PLAYTEM1 057740,000698: 057741,000699: 10,2510 33523 SETPRIO CAF BITS7+4 057742,000700: 10,2511 12500 TCF GOFLASH2 057743,000701: 057744,000702: 10,2512 34755 MAKEPRIO CAF ZERO 057745,000703: 10,2513 54164 TS COPINDEX 057746,000704: 057747,000705: 10,2514 03374 TC LINUSCHR 057748,000706: 10,2515 12522 TCF HIPRIO # LINUS RETURN 057749,000707: 10,2516 30100 CA FLAGWRD4 057750,000708: 10,2517 73542 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY 057751,000709: 10,2520 10000 CCS A 057752,000710: 10,2521 12575 TCF PRIOBORT # YES, ABORT 057753,000711: 057754,000712: 10,2522 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE 057755,000713: 10,2523 75642 MASK OCT40400 057756,000714: 10,2524 00006 EXTEND 057757,000715: 10,2525 12530 BZF ASKIFNRM # NO 057758,000716: 057759,000717: # Page 1359 057760,000718: 10,2526 34755 SETMARK CAF ZERO 057761,000719: 10,2527 12774 TCF JOBXCHS 057762,000720: 057763,000721: 10,2530 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE 057764,000722: 10,2531 73540 MASK OCT10200 # BITS 13+8 057765,000723: 10,2532 00006 EXTEND 057766,000724: 10,2533 12536 BZF OKTOCOPY # NO 057767,000725: 057768,000726: 10,2534 34753 SETNORM CAF ONE 057769,000727: 10,2535 12774 TCF JOBXCHS 057770,000728: 057771,000729: 10,2536 02734 OKTOCOPY TC COPYNORM 057772,000730: 10,2537 03205 TC WITCHONE 057773,000731: 057774,000732: 10,2540 05137 TC JOBWAKE 057775,000733: 057776,000734: 10,2541 03222 TC XCHTOEND 057777,000735: 057778,000736: 10,2542 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT 057779,000737: 10,2543 55165 TS PRIOTIME 057780,000738: 057781,000739: 10,2544 34755 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY 057782,000740: 10,2545 12616 TCF PRIOPLAY 057783,000741: 057784,000742: 10,2546 30167 MAKEPLAY CA PRIORITY # SAVE USER'S PRIORITY 057785,000743: 10,2547 77725 MASK PRIO37 057786,000744: 10,2550 54163 TS USERPRIO 057787,000745: 057788,000746: 10,2551 37721 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE 057789,000747: 10,2552 05146 TC PRIOCHNG 057790,000748: 057791,000749: 10,2553 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM 057792,000750: 10,2554 73522 MASK BITS15+7 057793,000751: 10,2555 10000 CCS A 057794,000752: 10,2556 12512 TCF MAKEPRIO # ITS PRIO 057795,000753: 10,2557 12561 TCF IFLEGAL 057796,000754: 10,2560 12364 TCF MAKEMARK # ITS MARK 057797,000755: 057798,000756: 10,2561 34752 IFLEGAL CAF TWO 057799,000757: 10,2562 54164 TS COPINDEX 057800,000758: 057801,000759: 10,2563 03374 TC LINUSCHR 057802,000760: 057803,000761: 10,2564 12577 TCF OKTOPLAY # LINUS RETURN 057804,000762: 10,2565 41072 CS EBANKTEM 057805,000763: 10,2566 74750 MASK BIT4 057806,000764: 10,2567 10000 CCS A 057807,000765: 10,2570 12577 TCF OKTOPLAY # NO 057808,000766: 057809,000767: 10,2571 30100 CA FLAGWRD4 # WAS NORM ASLEEP 057810,000768: # Page 1360 057811,000769: 10,2572 73513 MASK NBUSMASK # ARE ANY NORMS ASLEEP 057812,000770: 10,2573 00006 EXTEND 057813,000771: 10,2574 12577 BZF OKTOPLAY # NO 057814,000772: 057815,000773: 10,2575 05652 PRIOBORT TC P00DOO 057816,000774: 10,2576 01502 OCT 1502 057817,000775: 057818,000776: 10,2577 02736 OKTOPLAY TC COPIES2 057819,000777: 057820,000778: 10,2600 30163 CA USERPRIO 057821,000779: 10,2601 00006 EXTEND 057822,000780: 10,2602 04007 ROR SUPERBNK 057823,000781: 10,2603 54366 TS RESTREG 057824,000782: 057825,000783: 10,2604 30100 CA FLAGWRD4 # PRIO OR MARK GOING 057826,000784: 10,2605 73514 MASK PMMASK 057827,000785: 10,2606 10000 CCS A 057828,000786: 10,2607 12754 TCF GOSLEEPS # MARK GOING 057829,000787: 057830,000788: 10,2610 12612 TCF +2 057831,000789: 10,2611 12754 TCF GOSLEEPS 057832,000790: 057833,000791: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME 057834,000792: 057835,000793: 10,2612 03205 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE 057836,000794: 10,2613 05137 TC JOBWAKE 057837,000795: 057838,000796: 10,2614 03222 TC XCHTOEND 057839,000797: 057840,000798: 10,2615 34752 PLAYJUM1 CAF TWO 057841,000799: 10,2616 54164 PRIOPLAY TS COPINDEX 057842,000800: 057843,000801: 10,2617 13070 TCF GOPLAY 057844,000802: 057845,000803: 10,2620 54155 EXDSPRET TS PLAYTEM1 057846,000804: 057847,000805: 10,2621 37734 CAF BIT15+6 057848,000806: 10,2622 12500 TCF GOFLASH2 057849,000807: 057850,000808: 10,2623 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE 057851,000809: 10,2624 33476 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1 057852,000810: 057853,000811: 10,2625 54155 GOPERFS TS PLAYTEM1 057854,000812: 057855,000813: 10,2626 33475 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING 057856,000814: 10,2627 12500 TCF GOFLASH2 057857,000815: 057858,000816: 10,2630 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 057859,000817: 057860,000818: 10,2631 33501 CAF PERF2MSK 057861,000819: 10,2632 12500 TCF GOFLASH2 057862,000820: 057863,000821: # Page 1361 057864,000822: 10,2633 02715 GOPERF4 TC PURRS4 057865,000823: 057866,000824: 10,2634 12500 TCF GOFLASH2 057867,000825: 057868,000826: 10,2635 54155 GOFLASHR TS PLAYTEM1 057869,000827: 057870,000828: 10,2636 34750 CAF BIT4 # LEAVE ONLY FLASH BIT SET 057871,000829: 10,2637 54160 GODSPRS TS PLAYTEM4 057872,000830: 057873,000831: 10,2640 36245 CAF THREE 057874,000832: 057875,000833: 10,2641 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4 057876,000834: 10,2642 54072 TS RUPTREG3 057877,000835: 057878,000836: 10,2643 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER 057879,000837: 10,2644 77725 MASK PRIO37 057880,000838: 10,2645 54063 TS NEWPRIO 057881,000839: 057882,000840: 10,2646 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY 057883,000841: 10,2647 74750 MASK BIT4 057884,000842: 10,2650 10000 CCS A 057885,000843: 10,2651 12657 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC 057886,000844: 10,2652 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC 057887,000845: 10,2653 05072 TC NOVAC 057888,000846: 10,2654 E7,1471 EBANK= WHOCARES 057889,000847: 10,2654 02546 20067 2CADR MAKEPLAY 057890,000848: 057891,000849: 10,2656 12665 TCF BOTHJOBS 057892,000850: 057893,000851: 10,2657 30006 VACDSP CA BBANK 057894,000852: 10,2660 00006 EXTEND 057895,000853: 10,2661 04007 ROR SUPERBNK 057896,000854: 10,2662 54001 TS L 057897,000855: 10,2663 33537 CAF MAKEGEN 057898,000856: 10,2664 05116 TC SPVAC 057899,000857: 057900,000858: 10,2665 02722 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS 057901,000859: 057902,000860: 10,2666 00006 EXTEND # SAVE NVWORD AND USER'S MPAC +2 057903,000861: 10,2667 30156 DCA MPAC +1 057904,000862: 10,2670 50064 INDEX LOCCTR 057905,000863: 10,2671 52156 DXCH MPAC +1 057906,000864: 057907,000865: 10,2672 00006 EXTEND # SAVE USER'S CADR, FLAGS AND EBANK 057908,000866: 10,2673 30160 DCA MPAC +3 057909,000867: 10,2674 50064 INDEX LOCCTR 057910,000868: 10,2675 52160 DXCH MPAC +3 057911,000869: 057912,000870: 10,2676 30064 CA LOCCTR 057913,000871: 10,2677 54161 TS MPAC +5 057914,000872: # Page 1362 057915,000873: 10,2700 02727 TC SAVELOCR 057916,000874: 10,2701 00003 RELINT 057917,000875: 057918,000876: 10,2702 14640 TCF BANKJUMP # CALL CADR +4 057919,000877: 057920,000878: 10,2703 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE 057921,000879: 057922,000880: 10,2704 33476 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1 057923,000881: 057924,000882: 10,2705 54155 GOPERFRS TS PLAYTEM1 057925,000883: 057926,000884: 10,2706 33475 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING 057927,000885: 10,2707 12637 TCF GODSPRS 057928,000886: 057929,000887: 10,2710 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 057930,000888: 057931,000889: 10,2711 33501 CAF PERF2MSK 057932,000890: 10,2712 12637 TCF GODSPRS 057933,000891: 057934,000892: 10,2713 02715 GOPERF4R TC PURRS4 057935,000893: 057936,000894: 10,2714 12637 TCF GODSPRS 057937,000895: 057938,000896: 10,2715 55144 PURRS4 TS OPTION1 # DESIRED OPTION CODE 057939,000897: 057940,000898: 10,2716 33502 CAF V04N06 057941,000899: 10,2717 54155 TS PLAYTEM1 057942,000900: 057943,000901: 10,2720 33503 CAF PERF4MSK # FLASH, PERFORM AND EBANK R3 057944,000902: 10,2721 00002 TC Q 057945,000903: 057946,000904: 10,2722 00004 SAVELOCS INHINT 057947,000905: 057948,000906: 10,2723 43512 CS OCT3400 # EBANK BITS 057949,000907: 10,2724 70160 MASK PLAYTEM4 057950,000908: 10,2725 60003 AD EBANK 057951,000909: 10,2726 54160 TS PLAYTEM4 057952,000910: 057953,000911: 10,2727 22002 SAVELOCR LXCH Q 057954,000912: 057955,000913: 10,2730 04645 TC MAKECADR 057956,000914: 10,2731 54157 TS PLAYTEM3 057957,000915: 057958,000916: 10,2732 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES 057959,000917: 10,2733 00001 TC L 057960,000918: 057961,000919: 10,2734 34755 COPYNORM CAF ZERO 057962,000920: 10,2735 54164 COPIES TS COPINDEX 057963,000921: 10,2736 00004 COPIES2 INHINT 057964,000922: 10,2737 30160 CA PLAYTEM4 # FLAGWORD 057965,000923: 057966,000924: # Page 1363 057967,000925: 10,2740 50164 INDEX COPINDEX 057968,000926: 10,2741 55070 TS EBANKSAV # EQUIV TO DSPFLG 057969,000927: 057970,000928: 10,2742 73530 MASK CADRMASK # FLASH AND GODSPRET 057971,000929: 10,2743 00006 EXTEND 057972,000930: 10,2744 12750 BZF SKIPADD 057973,000931: 057974,000932: 10,2745 30157 CA PLAYTEM3 057975,000933: 10,2746 50164 INDEX COPINDEX 057976,000934: 10,2747 54372 TS CADRFLSH 057977,000935: 057978,000936: 10,2750 30155 SKIPADD CA PLAYTEM1 # VERB NOUN 057979,000937: 10,2751 50164 INDEX COPINDEX 057980,000938: 10,2752 54367 TS NVWORD 057981,000939: 057982,000940: 10,2753 13231 TCF RELINTQ 057983,000941: 057984,000942: 10,2754 50164 GOSLEEPS INDEX COPINDEX 057985,000943: 10,2755 33531 CA PRIOOCT 057986,000944: 10,2756 72760 MASK WAITMASK 057987,000945: 10,2757 03544 TC UPENT2 057988,000946: 10,2760 03004 WAITMASK OCT 3004 057989,000947: 10,2761 44753 CS ONE 057990,000948: 10,2762 60164 AD COPINDEX 057991,000949: 10,2763 54154 TS FACEREG 057992,000950: 057993,000951: 10,2764 50154 XCHSLEEP INDEX FACEREG 057994,000952: 10,2765 33510 CAF WAKECADR 057995,000953: 10,2766 00004 INHINT 057996,000954: 10,2767 05137 TC JOBWAKE # FIND CADR IN JOB AREA 057997,000955: 057998,000956: 10,2770 03222 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB 057999,000957: 058000,000958: 10,2771 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA 058001,000959: 10,2772 33510 CAF WAKECADR 058002,000960: 10,2773 15133 TCF JOBSLEEP 058003,000961: 058004,000962: 10,2774 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP 058005,000963: 10,2775 03205 TC WITCHONE 058006,000964: 10,2776 05137 TC JOBWAKE 058007,000965: 10,2777 30154 CA FACEREG 058008,000966: 10,3000 50064 INDEX LOCCTR 058009,000967: 10,3001 54154 TS FACEREG 058010,000968: 058011,000969: 10,3002 33015 CAF XCHQADD 058012,000970: 10,3003 03223 TC XCHNYLOC 058013,000971: 058014,000972: 10,3004 50154 INDEX FACEREG 058015,000973: 10,3005 33532 CA MARKOCT 058016,000974: 10,3006 73534 MASK IDLESLEP 058017,000975: 058018,000976: # Page 1364 058019,000977: 10,3007 03554 TC DOWNENT2 058020,000978: 10,3010 74004 IDLEMASK OCT 74004 # * DON'T MOVE 058021,000979: 058022,000980: 10,3011 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK 058023,000981: 10,3012 34747 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL 058024,000982: 10,3013 64751 AD FOUR 058025,000983: 10,3014 03544 TC UPENT2 # FLAG ROUTINE DOES RELINT 058026,000984: 10,3015 02764 XCHQADD GENADR XCHSLEEP # * DON'T MOVE 058027,000985: 10,3016 30100 CA FLAGWRD4 058028,000986: 10,3017 74751 MASK MKOVBIT # MARK OVER NORM? 058029,000987: 10,3020 10000 CCS A 058030,000988: 10,3021 02377 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE 058031,000989: 10,3022 12536 TCF OKTOCOPY 058032,000990: 058033,000991: 10,3023 34755 MARKWAKE CAF ZERO 058034,000992: 10,3024 54160 WAKEPLAY TS TEMPOR2 058035,000993: 058036,000994: 10,3025 50160 INDEX TEMPOR2 058037,000995: 10,3026 33524 CA BITS5+11 058038,000996: 10,3027 64751 AD FOUR 058039,000997: 10,3030 03554 TC DOWNENT2 058040,000998: 10,3031 40010 MARKFMSK OCT 40010 # *** DON'T MOVE 058041,000999: 058042,001000: 10,3032 50160 INDEX TEMPOR2 058043,001001: 10,3033 33510 CAF WAKECADR 058044,001002: 10,3034 00004 INHINT 058045,001003: 10,3035 05137 TC JOBWAKE 058046,001004: 058047,001005: 10,3036 13335 TCF ENDRET 058048,001006: 058049,001007: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS 058050,001008: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK. 058051,001009: 058052,001010: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER. 058053,001011: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY. 058054,001012: 058055,001013: 10,3037 31072 INITDSP CA EBANKTEM # RESTORE MOST RECENT NORMAL EBANK 058056,001014: 10,3040 54003 TS EBANK 058057,001015: 058058,001016: 10,3041 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY 058059,001017: 10,3042 04727 TC SUPERSW # RESTORE SUPERBANK 058060,001018: 058061,001019: 10,3043 77725 MASK PRIO37 058062,001020: 10,3044 05146 TC PRIOCHNG 058063,001021: 058064,001022: 10,3045 46245 CS THREE 058065,001023: 10,3046 60374 AD TEMPFLSH 058066,001024: 10,3047 14640 TCF BANKJUMP 058067,001025: 058068,001026: 10,3050 00003 PINBRNCH RELINT # FOR GOPIN USERS 058069,001027: 10,3051 31073 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS 058070,001028: # Page 1365 058071,001029: 10,3052 54156 TS MPAC +2 # ONLY 058072,001030: 058073,001031: 10,3053 30100 CA FLAGWRD4 # PINBRANCH CONDITION 058074,001032: 10,3054 77740 MASK PINMASK 058075,001033: 10,3055 10000 CCS A 058076,001034: 10,3056 13061 TCF +3 058077,001035: 10,3057 13471 TCF ERASER # ** NOTHING IN ENDIDLE 058078,001036: 10,3060 12377 TCF MARKPLAY 058079,001037: 058080,001038: 10,3061 05504 NORMBNCH TC UPFLAG # SET PINBRANCH BIT 058081,001039: 10,3062 00105 ADRES PINBRFLG 058082,001040: 058083,001041: 10,3063 34736 CAF PRIODBIT # PRIO INTERRUPTED 058084,001042: 10,3064 70100 MASK FLAGWRD4 058085,001043: 10,3065 10000 CCS A 058086,001044: 10,3066 12544 TCF KEEPPRIO 058087,001045: 058088,001046: 10,3067 12615 TCF PLAYJUM1 058089,001047: 058090,001048: 10,3070 02417 NVDSP TC COPYPACS 058091,001049: 058092,001050: 10,3071 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE 058093,001051: 10,3072 74757 MASK SEVEN # USER REQUESTS BLANKING MONITOR 058094,001052: 10,3073 54001 TS L 058095,001053: 058096,001054: 10,3074 44737 CS BIT13 058097,001055: 10,3075 50164 INDEX COPINDEX 058098,001056: 10,3076 71070 MASK DSPFLG 058099,001057: 10,3077 50164 INDEX COPINDEX 058100,001058: 10,3100 55070 TS DSPFLG 058101,001059: 058102,001060: 10,3101 74744 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY 058103,001061: 10,3102 54141 TS TEM1 058104,001062: 058105,001063: 10,3103 30156 CA MPAC +2 058106,001064: 10,3104 54165 TS MPAC2SAV 058107,001065: 058108,001066: 10,3105 55073 TS MARK2PAC # * FOR DISK ONLY * 058109,001067: 10,3106 50164 INDEX COPINDEX 058110,001068: 10,3107 10367 CCS NVWORD 058111,001069: 10,3110 13117 TCF NVDSP1 058112,001070: 10,3111 13233 TCF CLEANEND 058113,001071: 10,3112 40370 CS MARKNV 058114,001072: 10,3113 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING 058115,001073: 10,3114 76074 MASK LOW7 058116,001074: 10,3115 63515 AD V05N00M1 058117,001075: 10,3116 60141 AD TEM1 058118,001076: 10,3117 64753 NVDSP1 AD ONE 058119,001077: 10,3120 04155 NV50DSP TC NVMONOPT 058120,001078: 10,3121 13245 TCF REST # IF BUSY 058121,001079: 058122,001080: # Page 1366 058123,001081: 10,3122 04433 TC FLASHOFF # IN CASE OF EXTENDED VERB NON-FLASH 058124,001082: 058125,001083: 10,3123 02415 TC COPYTOGO # MPACS DESTROYED BY NVSUB 058126,001084: 10,3124 05516 TC DOWNFLAG # UNSET SLEEPING BITS 058127,001085: 10,3125 00102 ADRES MRKNVFLG 058128,001086: 10,3126 05516 TC DOWNFLAG 058129,001087: 10,3127 00103 ADRES NRMNVFLG 058130,001088: 10,3130 05516 TC DOWNFLAG 058131,001089: 10,3131 00104 ADRES PRONVFLG 058132,001090: 10,3132 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET 058133,001091: 10,3133 04255 TC BLANKSUB 058134,001092: 10,3134 13070 TCF NVDSP 058135,001093: 10,3135 34747 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM 058136,001094: 10,3136 70160 MASK TEMPOR2 058137,001095: 10,3137 10000 CCS A # IS THIS A GOPERF DISPLAY 058138,001096: 10,3140 13163 TCF 1STOR2ND # YES 058139,001097: 058140,001098: 10,3141 34750 GOANIDLE CAF BIT4 058141,001099: 10,3142 70160 MASK TEMPOR2 058142,001100: 10,3143 10000 CCS A 058143,001101: 10,3144 13260 TCF FLASHSUB # IT IS 058144,001102: 058145,001103: 10,3145 40160 CS TEMPOR2 # IS THIS A GODSPRET 058146,001104: 10,3146 74746 MASK BIT6 058147,001105: 10,3147 10000 CCS A 058148,001106: 10,3150 13155 TCF ISITN00 058149,001107: 058150,001108: 10,3151 50164 INDEX COPINDEX 058151,001109: 10,3152 30372 CA CADRFLSH 058152,001110: 10,3153 54157 TS MPAC +3 058153,001111: 10,3154 13353 TCF ENDIT 058154,001112: 058155,001113: 10,3155 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE 058156,001114: 10,3156 30367 CA NVWORD 058157,001115: 10,3157 76074 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK 058158,001116: 10,3160 00006 EXTEND 058159,001117: 10,3161 13260 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH 058160,001118: 058161,001119: 10,3162 15155 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT 058162,001120: 058163,001121: 10,3163 30160 1STOR2ND CA TEMPOR2 058164,001122: 10,3164 74737 MASK BIT13 058165,001123: 10,3165 10000 CCS A 058166,001124: 10,3166 13141 TCF GOANIDLE # SECOND 058167,001125: 058168,001126: 10,3167 34737 CA BIT13 058169,001127: 10,3170 50164 INDEX COPINDEX 058170,001128: 10,3171 27070 ADS DSPFLG 058171,001129: 058172,001130: 10,3172 22007 ZL 058173,001131: # Page 1367 058174,001132: 10,3173 00006 EXTEND # IS IT MARK 058175,001133: 10,3174 62440 BZMF MARKPERF # YES 058176,001134: 058177,001135: 10,3175 74740 MASK BIT12 058178,001136: 10,3176 00006 EXTEND 058179,001137: 10,3177 13203 BZF V50PASTE 058180,001138: 10,3200 41067 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99 058181,001139: 10,3201 63541 AD V97N00 058182,001140: 10,3202 13120 TCF NV50DSP 058183,001141: 10,3203 33500 V50PASTE CAF V50N00 058184,001142: 10,3204 13120 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF 058185,001143: 058186,001144: 10,3205 44747 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT 058187,001145: 10,3206 00006 EXTEND 058188,001146: 10,3207 03011 WAND DSALMOUT 058189,001147: 058190,001148: 10,3210 30100 CA FLAGWRD4 058191,001149: 10,3211 73516 MASK NVBUSMSK # IS IT NVSUB ALEEP 058192,001150: 10,3212 10000 CCS A 058193,001151: 10,3213 34753 CAF ONE 058194,001152: 10,3214 54001 TS L 058195,001153: 10,3215 34755 CAF ZERO 058196,001154: 10,3216 50001 INDEX L 058197,001155: 10,3217 57042 XCH CADRSTOR 058198,001156: 058199,001157: 10,3220 00004 INHINT 058200,001158: 10,3221 00002 TC Q 058201,001159: 058202,001160: 10,3222 34217 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR 058203,001161: 10,3223 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING 058204,001162: 10,3224 00006 EXTEND 058205,001163: 10,3225 63231 BZMF RELINTQ # NO 058206,001164: 10,3226 56064 XCH LOCCTR # YES 058207,001165: 10,3227 50064 INDEX LOCCTR 058208,001166: 10,3230 54164 TS LOC 058209,001167: 058210,001168: 10,3231 00003 RELINTQ RELINT 058211,001169: 10,3232 00002 TC Q # BACK TO USER 058212,001170: 058213,001171: 10,3233 37720 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING 058214,001172: 10,3234 05105 TC FINDVAC 058215,001173: 10,3235 0371 EBANK= NVSAVE 058216,001174: 10,3235 04231 04060 2CADR JAMTERM 058217,001175: 058218,001176: 10,3237 13261 TCF FLASHSUB +1 058219,001177: 058220,001178: 10,3240 30100 ISITPRIO CA FLAGWRD4 058221,001179: 10,3241 73266 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET 058222,001180: 10,3242 00006 EXTEND 058223,001181: # Page 1368 058224,001182: 10,3243 12575 BZF PRIOBORT 058225,001183: 10,3244 15155 TCF ENDOFJOB 058226,001184: 058227,001185: 10,3245 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE 058228,001186: 10,3246 15155 TCF ENDOFJOB # YES 058229,001187: 10,3247 13251 TCF RESTSLEP 058230,001188: 058231,001189: 10,3250 15155 TCF ENDOFJOB 058232,001190: 058233,001191: 10,3251 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS 058234,001192: 10,3252 73517 MASK ASTROMSK 058235,001193: 10,3253 03544 TC UPENT2 058236,001194: 10,3254 24100 OCT24100 OCT 24100 # *** DON'T MOVE 058237,001195: 058238,001196: 10,3255 50164 INDEX COPINDEX 058239,001197: 10,3256 33507 CAF NVCADR 058240,001198: 10,3257 04442 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL 058241,001199: 058242,001200: 10,3260 04427 FLASHSUB TC FLASHON 058243,001201: 058244,001202: 10,3261 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE 058245,001203: 10,3262 54157 TS COPMPAC 058246,001204: 058247,001205: 10,3263 30162 CA GENMASK 058248,001206: 10,3264 73010 MASK IDLEMASK 058249,001207: 10,3265 03544 TC UPENT2 058250,001208: 10,3266 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DON'T MOVE 058251,001209: 058252,001210: 10,3267 31074 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY 058253,001211: 10,3270 50164 INDEX COPINDEX 058254,001212: 10,3271 74751 MASK BIT3 058255,001213: 10,3272 10000 CCS A 058256,001214: 10,3273 13360 TCF UNSETR1 # YES 058257,001215: 058258,001216: 10,3274 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE 058259,001217: 10,3275 13240 TCF ISITPRIO 058260,001218: 10,3276 13300 TCF +2 058261,001219: 10,3277 13240 TCF ISITPRIO 058262,001220: 058263,001221: 10,3300 04207 TC ENDIDLE 058264,001222: 10,3301 13372 IDLERET1 TCF TERMATE 058265,001223: 058266,001224: 10,3302 13411 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED 058267,001225: 058268,001226: 10,3303 43526 CS LOWLOAD 058269,001227: 10,3304 60154 AD MPAC # VERBREG 058270,001228: 10,3305 00006 EXTEND 058271,001229: 10,3306 26000 DIM A 058272,001230: 10,3307 00006 EXTEND 058273,001231: 10,3310 13461 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY 058274,001232: 058275,001233: # Page 1369 058276,001234: 10,3311 34752 OKTOENT CAF TWO 058277,001235: 10,3312 54161 ENDOUT TS OUTHERE 058278,001236: 058279,001237: 10,3313 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN 058280,001238: 10,3314 74101 MASK OCT60000 058281,001239: 10,3315 10000 CCS A 058282,001240: 10,3316 13321 TCF TIMECHEK # PRIO ENDIDLE RETURN 058283,001241: 10,3317 13427 TCF NORMRET # NORMAL ENDIDLE RETURN 058284,001242: 10,3320 13413 TCF MARKRET # MARK ENDIDLE RETURN 058285,001243: 058286,001244: 10,3321 40025 TIMECHEK CS TIME1 058287,001245: 10,3322 61165 AD PRIOTIME 058288,001246: 10,3323 10000 CCS A 058289,001247: 10,3324 40000 COM 058290,001248: 10,3325 67731 AD OCT37776 058291,001249: 10,3326 64753 AD ONE 058292,001250: 10,3327 63570 AD -2SEC 058293,001251: 10,3330 00006 EXTEND 058294,001252: 10,3331 62544 BZMF KEEPPRIO 058295,001253: 058296,001254: 10,3332 13427 TCF NORMRET 058297,001255: 058298,001256: 10,3333 34753 NORMWAKE CAF ONE 058299,001257: 10,3334 13024 TCF WAKEPLAY 058300,001258: 058301,001259: 10,3335 10161 ENDRET CCS OUTHERE 058302,001260: 10,3336 64753 AD ONE 058303,001261: 10,3337 13341 TCF +2 # NORMAL ENDIDLE EXIT 058304,001262: 10,3340 15155 TCF ENDOFJOB 058305,001263: 10,3341 50157 INDEX COPMPAC 058306,001264: 10,3342 60372 AD CADRFLSH 058307,001265: 10,3343 54157 TS MPAC +3 058308,001266: 058309,001267: 10,3344 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS 058310,001268: 10,3345 73347 MASK PINIDMSK 058311,001269: 10,3346 03554 TC DOWNENT2 058312,001270: 10,3347 74044 PINIDMSK OCT 74044 # *** DON'T MOVE 058313,001271: 058314,001272: 10,3350 46245 CS THREE # BLANK EVERYTHING EXCEPT MM 058315,001273: 10,3351 04154 TC NVSUB 058316,001274: 10,3352 13353 TCF +1 058317,001275: 058318,001276: 10,3353 30163 ENDIT CA USERPRIO # RETURN TO USER'S PRIORITY 058319,001277: 10,3354 77725 MASK PRIO37 058320,001278: 10,3355 05146 TC PRIOCHNG 058321,001279: 10,3356 30157 CA MPAC +3 058322,001280: 10,3357 14640 TCF BANKJUMP 058323,001281: 058324,001282: 10,3360 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST 058325,001283: 10,3361 44751 CS BIT3 058326,001284: # Page 1370 058327,001285: 10,3362 71074 MASK R1SAVE 058328,001286: 10,3363 55074 TS R1SAVE 058329,001287: 058330,001288: 10,3364 34755 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN 058331,001289: 10,3365 04727 TC SUPERSW # SUPERBANK 0 058332,001290: 058333,001291: 10,3366 36245 -1 CAF THREE # RETURN TO USER'S IMMEDIATE RETURN LOC 058334,001292: 10,3367 50164 IMMEDRET INDEX COPINDEX 058335,001293: 10,3370 60372 AD CADRFLSH 058336,001294: 10,3371 14640 TCF BANKJUMP 058337,001295: 058338,001296: 10,3372 34755 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO 058339,001297: 10,3373 13312 TCF ENDOUT 058340,001298: 058341,001299: 10,3374 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS 058342,001300: 10,3375 74736 MASK BIT14 058343,001301: 10,3376 10000 CCS A 058344,001302: 10,3377 16737 TCF Q+1 # NO 058345,001303: 10,3400 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE 058346,001304: 10,3401 50164 INDEX COPINDEX 058347,001305: 10,3402 60372 AD CADRFLSH 058348,001306: 10,3403 00006 EXTEND 058349,001307: 10,3404 13406 BZF +2 # YES 058350,001308: 058351,001309: 10,3405 00002 TC Q # NO 058352,001310: 10,3406 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY 058353,001311: 10,3407 05155 TC ENDOFJOB # END THE NEW DISPLAY, IT'S ALREADY ACTIVE 058354,001312: 10,3410 00002 TC Q 058355,001313: 058356,001314: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD 058357,001315: 058358,001316: 10,3411 34753 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS 058359,001317: 10,3412 13312 TCF ENDOUT 058360,001318: 058361,001319: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK 058362,001320: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY 058363,001321: # DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP. 058364,001322: 058365,001323: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS 058366,001324: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS 058367,001325: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A 058368,001326: # PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART. 058369,001327: 058370,001328: 10,3413 46242 MARKRET CS SIX 058371,001329: 10,3414 70100 MASK FLAGWRD4 058372,001330: 10,3415 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF 058373,001331: 10,3416 54100 TS FLAGWRD4 058374,001332: 058375,001333: 10,3417 00003 RELINT # INHINT REALM 058376,001334: 10,3420 13335 TCF ENDRET 058377,001335: 058378,001336: # Page 1371 058379,001337: 10,3421 37747 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET 058380,001338: 10,3422 54161 TS OUTHERE 058381,001339: 058382,001340: 10,3423 30100 CA FLAGWRD4 # IS ENDIDFLG SET 058383,001341: 10,3424 74355 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE 058384,001342: 10,3425 10000 CCS A 058385,001343: 10,3426 13061 TCF NORMBNCH 058386,001344: 058387,001345: 10,3427 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING 058388,001346: 10,3430 73524 MASK BITS5+11 # OR WAITING 058389,001347: 10,3431 10000 CCS A 058390,001348: 10,3432 13023 TCF MARKWAKE 058391,001349: 058392,001350: 10,3433 30100 CA FLAGWRD4 # NO 058393,001351: 10,3434 73525 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING 058394,001352: 10,3435 10000 CCS A 058395,001353: 10,3436 13333 TCF NORMWAKE # YES 058396,001354: 058397,001355: 10,3437 31072 CA EBANKTEM # NO, WAS IT A FLASH REQUEST 058398,001356: 10,3440 74771 MASK OCT50 # OR A GODSPRET 058399,001357: 10,3441 10000 CCS A 058400,001358: 10,3442 13335 TCF ENDRET # YES 058401,001359: 10,3443 30371 CA NVSAVE 058402,001360: 10,3444 00006 EXTEND 058403,001361: 10,3445 13335 BZF ENDRET 058404,001362: 058405,001363: 10,3446 35025 CAF PRIO15 058406,001364: 10,3447 00004 INHINT 058407,001365: 10,3450 05072 TC NOVAC 058408,001366: 10,3451 0367 EBANK= NVWORD 058409,001367: 10,3451 02615 20060 2CADR PLAYJUM1 058410,001368: 058411,001369: 10,3453 13335 TCF ENDRET 058412,001370: 058413,001371: 10,3454 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN 058414,001372: 10,3455 73524 MASK BITS5+11 058415,001373: 10,3456 10000 CCS A 058416,001374: 10,3457 15155 TCF ENDOFJOB # YES 058417,001375: 10,3460 12754 TCF GOSLEEPS 058418,001376: 058419,001377: 10,3461 50157 LOADITIS INDEX COPMPAC 058420,001378: 10,3462 30367 CA NVWORD 058421,001379: 10,3463 76074 MASK LOW7 058422,001380: 10,3464 40000 COM 058423,001381: 10,3465 60155 AD MPAC +1 # NOUNREG 058424,001382: 10,3466 00006 EXTEND 058425,001383: 10,3467 13311 BZF OKTOENT # NO, THEN LOAD IS VALID 058426,001384: 10,3470 13050 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN 058427,001385: 058428,001386: # Page 1372 058429,001387: 10,3471 46245 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM 058430,001388: 10,3472 04154 TC NVSUB 058431,001389: 10,3473 15155 TCF ENDOFJOB 058432,001390: 10,3474 15155 TCF ENDOFJOB 058433,001391: 058434,001392: 10,3475 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3 058435,001393: 10,3476 00231 V01N25 VN 00125 058436,001394: 10,3477 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50 058437,001395: 10,3500 14400 V50N00 VN 5000 058438,001396: 10,3501 00030 PERF2MSK OCT 00030 # FLASH, PERFORM 058439,001397: 10,3502 01006 V04N06 VN 00406 058440,001398: 10,3503 00014 PERF4MSK OCT 14 # FLASH, BLANK R3 058441,001399: 10,3504 10,3050 GOAGIN EQUALS PINBRNCH 058442,001400: 10,3504 20010 REDOMASK OCT 20010 # BITS 4 AND 14 058443,001401: 10,3505 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH 058444,001402: 10,3506 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3 058445,001403: 10,3507 20542 NVCADR CADR REDOPRIO 058446,001404: 10,3510 20377 WAKECADR CADR MARKPLAY 058447,001405: 10,3511 20615 CADR PLAYJUM1 058448,001406: 058449,001407: 10,3512 03400 OCT3400 OCT 3400 # EBANK MASK 058450,001408: 10,3513 11210 NBUSMASK OCT 11210 058451,001409: 10,3514 66521 PMMASK OCT 66521 058452,001410: 10,3515 4144 VERBMASK = MID7 # (OCT 37600) 058453,001411: 10,3515 01177 V05N00M1 OCT 1177 # V05 MINUS ONE 058454,001412: 10,3516 10,2330 GOXDSP EQUALS GOMARK 058455,001413: 10,3516 10,2350 GOXDSPR EQUALS GOMARKR 058456,001414: 10,3516 10,2334 GOXDSPF EQUALS GOMARKF 058457,001415: 10,3516 10,2353 GOXDSPFR EQUALS GOMARKFR 058458,001416: 10,3516 5472 ENDEXT EQUALS ENDMARK 058459,001417: 10,3516 0165 MPAC2SAV EQUALS BANKSET 058460,001418: 10,3516 00700 NVBUSMSK OCT 700 058461,001419: 10,3517 00704 ASTROMSK OCT 704 058462,001420: 10,3520 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH 058463,001421: 10,3521 34300 OCT34300 OCT 34300 058464,001422: 10,3522 40100 BITS15+7 OCT 40100 058465,001423: 10,3523 00110 BITS7+4 OCT 110 058466,001424: 10,3524 1070 DSPFLG EQUALS EBANKSAV 058467,001425: 10,3524 1071 MARKFLAG EQUALS MARKEBAN 058468,001426: 10,3524 1072 SAVEFLAG EQUALS EBANKTEM 058469,001427: 10,3524 02020 BITS5+11 OCT 2020 # * DON'T MOVE 058470,001428: 10,3525 01010 BITS4+10 OCT 1010 # * DON'T MOVE 058471,001429: 10,3526 00026 LOWLOAD DEC 22 B-14 058472,001430: 10,3527 77730 BUSYMASK OCT 77730 058473,001431: 10,3530 00050 CADRMASK OCT 50 058474,001432: 10,3531 7740 PINMASK EQUALS 13,14,15 058475,001433: 10,3531 10,3070 GOPLAY EQUALS NVDSP 058476,001434: 10,3531 1074 PRIOSAVE EQUALS R1SAVE 058477,001435: 10,3531 0157 COPMPAC EQUALS MPAC +3 058478,001436: 10,3531 0160 TEMPOR2 EQUALS MPAC +4 058479,001437: 058480,001438: # Page 1373 058481,001439: 10,3531 0161 OUTHERE EQUALS MPAC +5 058482,001440: 10,3531 0164 COPINDEX EQUALS LOC 058483,001441: 10,3531 0163 USERPRIO EQUALS MODE 058484,001442: 10,3531 0162 GENMASK EQUALS MPAC +6 058485,001443: 10,3531 20144 PRIOOCT OCT 20144 # PRIO 058486,001444: 10,3532 42424 MARKOCT OCT 42424 # MARK 058487,001445: 10,3533 11254 OCT 11254 # NORM 058488,001446: 058489,001447: 10,3534 74704 IDLESLEP OCT 74704 058490,001448: 10,3535 67777 OCT67777 OCT 67777 058491,001449: 10,3536 5464 LINUS EQUALS BLANKET 058492,001450: 10,3536 0154 FACEREG EQUALS MPAC 058493,001451: 10,3536 0155 PLAYTEM1 EQUALS MPAC +1 058494,001452: 10,3536 0157 PLAYTEM3 EQUALS MPAC +3 058495,001453: 10,3536 0160 PLAYTEM4 EQUALS MPAC +4 058496,001454: 10,3536 40420 OCT40420 OCT 40420 058497,001455: 10,3537 02546 MAKEGEN GENADR MAKEPLAY 058498,001456: 10,3540 10200 OCT10200 OCT 10200 058499,001457: 10,3541 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99 058500,001458: 10,3542 20100 OCT20100 OCT 20100 058501,001459: 10,3543 24030 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE, REFLASH End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc