Source Code

061361,000001: # Copyright: Public domain. 061362,000002: # Filename: DISPLAY_INTERFACE_ROUTINES.agc 061363,000003: # Purpose: Part of the source code for Colossus, build 249. 061364,000004: # It is part of the source code for the Command Module's (CM) 061365,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 061366,000006: # Assembler: yaYUL 061367,000007: # Reference: Starts on p. 1442 of 1701.pdf. 061368,000008: # Contact: Ron Burkey <info@sandroid.org>. 061369,000009: # Website: www.ibiblio.org/apollo. 061370,000010: # Mod history: 08/30/04 RSB Adapted from corresponding Luminary131 file. 061371,000011: # 2010-10-24 JL Indentation fixes. 061372,000012: # 2011-05-07 JL Removed workarounds. 061373,000013: 061374,000014: # The contents of the "Colossus249" files, in general, are transcribed 061375,000015: # from a scanned document obtained from MIT's website, 061376,000016: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 061377,000017: # document read, in part: 061378,000018: 061379,000019: # Assemble revision 249 of AGC program Colossus by NASA 061380,000020: # 2021111-041. October 28, 1968. 061381,000021: 061382,000022: # This AGC program shall also be referred to as 061383,000023: # Colossus 1A 061384,000024: 061385,000025: # Prepared by 061386,000026: # Massachusetts Institute of Technology 061387,000027: # 75 Cambridge Parkway 061388,000028: # Cambridge, Massachusetts 061389,000029: # under NASA contract NAS 9-4065. 061390,000030: 061391,000031: # Refer directly to the online document mentioned above for further information. 061392,000032: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 061393,000033: 061394,000034: # In some cases, where the source code for Luminary 131 overlaps that of 061395,000035: # Colossus 249, this code is instead copied from the corresponding Luminary 131 061396,000036: # source file, and then is proofed to incorporate any changes. 061397,000037: 061398,000038: # Page 1442 061399,000039: # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -- 061400,000040: # 1. PRIORITY DISPLAYS -- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT 061401,000041: # OUT UNDER CRITICAL ALARM CONDITIONS. 061402,000042: # 2. EXTENDED VERB DISPLAYS -- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS. 061403,000043: # 3. NORMAL DISPLAYS -- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL 061404,000044: # SEQUENCE OF EVENTS. 061405,000045: # 4. MISC. DISPLAYS -- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS 061406,000046: # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL. 061407,000047: # 5. ASTRONAUT INITIATED DISPLAYS -- ALL DISPLAYS INITIATED EXTERNALLY. 061408,000048: 061409,000049: # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -- 061410,000050: # 1. ACTIVE -- THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR 061411,000051: # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY 061412,000052: # BUT NOT WAITING FOR A RESPONSE. 061413,000053: # 2. INACTIVE -- A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY, 061414,000054: # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY 061415,000055: # WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE 061416,000056: # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL 061417,000057: # HAS INFO SAVED FOR RESTART PURPOSES. 061418,000058: 061419,000059: # DISPLAY PRIORITIES WORK AS FOLLOWS -- 061420,000060: # INTERRUPTS -- 061421,000061: # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST. 061422,000062: # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY. 061423,000063: # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER 061424,000064: # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR TEH LINUS ROUTINE. 061425,000065: # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY. 061426,000066: # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT. 061427,000067: 061428,000068: # ORDER OF WAITING DISPLAYS -- 061429,000069: # 1. ASTRONAUT 061430,000070: # 2. PRIORITY 061431,000071: # 3. INTERRUPTED MARK 061432,000072: # 4. INTERRUPTED NORMAL 061433,000073: # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK) 061434,000074: # 6. MARK WAITING 061435,000075: # 7. NORMAL WAITING 061436,000076: 061437,000077: # Page 1443 061438,000078: # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE 061439,000079: # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES 061440,000080: # WILL FOLLOW LATER): 061441,000081: # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN 061442,000082: # IS TO THE USER'S CALL CADR +4. FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN 061443,000083: # IS TO THE USER'S CALLING LOC +1. 061444,000084: # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER. 061445,000085: # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USER'S JOB PRIORITY. 061446,000086: # 4. ALL ROUTIENS NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE 061447,000087: # USER'S JOB. 061448,000088: # 5. ALL DISPLAY ROUTIENS ARE CALLED VIA BANKCALL. 061449,000089: # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE 061450,000090: # DESCRIPTION OF RESTARTS). 061451,000091: # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES 061452,000092: # TO THE USER'S CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2. AN ENTER OR RECYCLE 061453,000093: # (V32) BRANCHES TO THE USER'S CALL CADR +3. 061454,000094: # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL 061455,000095: 061456,000096: # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS: 061457,000097: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. 061458,000098: # 1. GODSP IS NOT RESTARTABLE 061459,000099: # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH. 061460,000100: # CAF VXXNYY 061461,000101: # TC BANKCALL 061462,000102: # CADR GODSP 061463,000103: # VXXNYY OCT OXXYY 061464,000104: # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER. 061465,000105: # CAF VXXNYY 061466,000106: # TC BANKCALL 061467,000107: # CADR GODSPR 061468,000108: # ... ... # IMMEDIATE RETURN OF GODSPR 061469,000109: # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM 061470,000110: # THE ASTRONAUT (SEE NO. 7 ABOVE). 061471,000111: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN. 061472,000112: # TC BANKCALL 061473,000113: # CADR GOFLASH 061474,000114: # ... ... # TERMINATE RETURN 061475,000115: # ... ... # PROCEED RETURN 061476,000116: # ... ... # ENTER OR RECYCLE RETURN 061477,000117: # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A 061478,000118: # Page 1444 061479,000119: # V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO 061480,000120: # USER (SEE NO. 7 ABOVE). 061481,000121: # GOPERF1 BLANKS REGISTERS R2 AND R3 061482,000122: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX 061483,000123: # TC BANKCALL 061484,000124: # CADR GOPERF1 061485,000125: # ... ... # TERMINATE RETURN 061486,000126: # ... ... # PROCEED RETURN 061487,000127: # ... ... # ENTER RETURN 061488,000128: # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE 061489,000129: # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING 061490,000130: # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). 061491,000131: # GOPERF2 DOES NOT BLANK ANY REGISTERS 061492,000132: # CAF VXXNYY # VARIABLE NOUN YY. XX=0 OR 01. 061493,000133: # TC BANKCALL 061494,000134: # CADR GOPERF2 061495,000135: # ... ... # TERMINATE RETURN 061496,000136: # ... ... # PROCEED RETURN 061497,000137: # ... ... # ENTER RETURN 061498,000138: # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3 061499,000139: # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN 061500,000140: # IS MADE TO THE USER (SEE NO. 7 ABOVE). 061501,000141: # GOPERF3 BLANKS REGISTERS R2 AND R3 061502,000142: # CAF DECXX # REQUEST PERFORM ON PXX 061503,000143: # TC BANKCALL 061504,000144: # CADR GOPERF3 061505,000145: # ... ... # TERMINATE RETURN 061506,000146: # ... ... # PROCEED RETURN 061507,000147: # ... ... # ENTER RETURN 061508,000148: # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1. 061509,000149: # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO 061510,000150: # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). 061511,000151: # CAF OCTXX # REQUEST PERFORM ON OPTION XX 061512,000152: # TC BANKCALL 061513,000153: # CADR GOPERF4 061514,000154: # ... ... # TERMINATE RETURN 061515,000155: # ... ... # PROCEED RETURN 061516,000156: # ... ... # ENTER RETURN 061517,000157: # GOPERF4 BLANKS REGISTER R3. 061518,000158: 061519,000159: # Page 1445 061520,000160: # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT 061521,000161: # OUT. 061522,000162: # CAF VXXXNYY 061523,000163: # TC BANKCALL 061524,000164: # CADR GODSPRET 061525,000165: # ... ... # RETURN TO USER. 061526,000166: # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES AND 061527,000167: # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. 061528,000168: # CAF VXXNYY 061529,000169: # TC BANKCALL 061530,000170: # CADR REGODSP 061531,000171: # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. 061532,000172: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN 061533,000173: # TC BANKCALL 061534,000174: # CADR REFLASH 061535,000175: # ... ... # TERMINATE RETURN 061536,000176: # ... ... # PROCEED RETURN 061537,000177: # ... ... # ENTER RETURN 061538,000178: # GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 061539,000179: # CAF VXXNYY 061540,000180: # TC BANKCALL 061541,000181: # CADR GOFLASHR 061542,000182: # ... ... # TERMINATE RETURN 061543,000183: # ... ... # PROCEED RETURN 061544,000184: # ... ... # ENTER OR RECYCLE RETURN 061545,000185: # ... ... # IMMEDIATE RETURN FROM GOFLASHR 061546,000186: # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USER'S CALL CADR +4. 061547,000187: # GOPERF1R BLANKS REGISTERS R2 AND R3 061548,000188: # CAF OCTXX # CODE FOR CHECKLIST VALUE XX. 061549,000189: # TC BANKCALL 061550,000190: # CADR GOPERF1R 061551,000191: # ... ... # TERMINATE RETURN 061552,000192: # ... ... # PROCEED RETURN 061553,000193: # ... ... # ENTER RETURN 061554,000194: # ... ... # IMMEDIATE RETURN FROM GOPERF1R 061555,000195: # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 061556,000196: # Page 1446 061557,000197: # GOPERF2R DOES NOT BLANK ANY REGISTERS 061558,000198: # CAF VXXXNYY # VARIABLE NOUN YY REQUESTED. XX=00 OR 01 061559,000199: # TC BANKCALL 061560,000200: # CADR GOPERF2R 061561,000201: # ... ... # TERMINATE RETURN 061562,000202: # ... ... # PROCEED RETURN 061563,000203: # ... ... # ENTER RETURN 061564,000204: # ... ... # IMMEDIATE RETURN HERE FROM GOPERF2R 061565,000205: # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 061566,000206: # GOPERF3R BLANKS REGISTERS R2 AND R3 061567,000207: # CAF PROGXX # PERFORM PROGRAM XX 061568,000208: # TC BANKCALL 061569,000209: # CADR GOPERF3R 061570,000210: # ... ... # TERMINATE RETURN 061571,000211: # ... ... # PROCEED RETURN 061572,000212: # ... ... # ENTER RETURN 061573,000213: # ... ... # GOPERF3R IMMEDIATELY RETURNS HERE 061574,000214: # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USER'S CALL CADR +4. 061575,000215: # CAF OCTXX # REQUEST PERFORM ON OPTIONXX 061576,000216: # TC BANKCALL 061577,000217: # CADR GOPERF4R 061578,000218: # ... ... # TERMINATE RETURN 061579,000219: # ... ... # PROCEED RETURN 061580,000220: # ... ... # ENTER RETURN 061581,000221: # ... ... # IMMEDIATE RETURN TO USER 061582,000222: # GOPERF4R BLANKS REGISTER R3. 061583,000223: 061584,000224: # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 061585,000225: # CAF VXXNYY # VXX NYY WILL BE A FLASHING VERB NOUN 061586,000226: # TC BANKCALL 061587,000227: # CADR REFLASHR 061588,000228: # ... ... # TERMINATE RETURN 061589,000229: # ... ... # PROCEED RETURN 061590,000230: # ... ... # ENTER RETURN 061591,000231: # ... ... # IMMEDIATE RETURN TO USER 061592,000232: # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER. 061593,000233: # Page 1447 061594,000234: # CAF VXXNYY 061595,000235: # TC BANKCALL 061596,000236: # CADR REGODSPR 061597,000237: # ... ... # IMMEDIATE RETURN TO USER 061598,000238: # Page 1448 061599,000239: # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. 061600,000240: # GOXDSP = GOMARK 061601,000241: # CAF VXXNYY # VXXNYY CONTAINS VERB AND NOUN 061602,000242: # TC BANKCALL 061603,000243: # CADR GOMARK # OTHER EXTENDED VERBS USE CADR GOXDSP 061604,000244: # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER. 061605,000245: # GOXDSPR = GOMARKR 061606,000246: # CAF VXXNYY 061607,000247: # TC BANKCALL 061608,000248: # CADR GOMARKR # OTHER EXTENDED VERBS USE CADR GOXDSPR 061609,000249: # ... ... # IMMEDIATE RETURN OF GOMARKR 061610,000250: # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM 061611,000251: # THE ASTRONAUT (SEE NO. 7 ABOVE). 061612,000252: # GOXDSPF = GOMARKF 061613,000253: # CAF VXXNYY # VXXNYY WILL BE A FLASHING MARK VERB NOUN 061614,000254: # TC BANKCALL 061615,000255: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR 061616,000256: # ... ... # TERMINATE RETURN 061617,000257: # ... ... # PROCEED RETURN 061618,000258: # ... ... # ENTER OR RECYCLE RETURN 061619,000259: # ... ... # IMMEDIATE RETURN TO THE USER 061620,000260: # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4. 061621,000261: # GOXDSPFR = GOMARKFR 061622,000262: # CAF VXXNYY # FLASHING MARK VERB NOUN 061623,000263: # TCF BANKCALL 061624,000264: # CADR GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR 061625,000265: # ... ... # TERMINATE RETURN 061626,000266: # ... ... # PROCEED RETURN 061627,000267: # ... ... # ENTER OR RECYCLE RETURN 061628,000268: # 061629,000269: # ... ... # IMMEDIATE RETURN TO THE USER 061630,000270: # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE 061631,000271: # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R 061632,000272: # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK 061633,000273: # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER. 061634,000274: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 061635,000275: # TC BANKCALL 061636,000276: # Page 1449 061637,000277: # CADR GOMARK1 061638,000278: # ... ... # ENTER RETURN 061639,000279: # *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER. 061640,000280: 061641,000281: # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +2. 061642,000282: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 061643,000283: # TC BANKCALL 061644,000284: # CADR GOMARK1R 061645,000285: # ... ... # ASTRONAUT ENTER RETURN 061646,000286: # ... ... # IMMEDIATE RETURN TO USER 061647,000287: # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT. 061648,000288: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 061649,000289: # TC BANKCALL 061650,000290: # CADR GOMARK2 061651,000291: # ... ... # TERMINATE RETURN 061652,000292: # ... ... # PROCEED RETURN 061653,000293: # ... ... # ENTER RETURN 061654,000294: # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER. 061655,000295: # CAF V5XNYY # X=0,1,2,3,4 YY=NOUN 061656,000296: # TCF BANKCALL 061657,000297: # CADR GOMARK24 061658,000298: # ... ... # TERMINATE RETURN 061659,000299: # ... ... # PROCEED RETURN 061660,000300: # ... ... # ENTER RETURN 061661,000301: # ... ... # IMMEDIATE RETURN TO THE USER. 061662,000302: # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE 061663,000303: # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING 061664,000304: # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN. 061665,000305: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 061666,000306: # TC BANKCALL 061667,000307: # CADR GOMARK3 061668,000308: # ... ... # TERMINATE RETURN 061669,000309: # ... ... # PROCEED RETURN 061670,000310: # ... ... # ENTER RETURN 061671,000311: # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL. 061672,000312: # CAF V5XNYY # X=1,2,3,4 YY=NOUN 061673,000313: # TC BANKCALL 061674,000314: # CADR GOMARK4 061675,000315: # ... ... # TERMINATE RETURN 061676,000316: # ... ... # PROCEED RETURN 061677,000317: # Page 1450 061678,000318: # ... ... # ENTER RETURN 061679,000319: # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN 061680,000320: # SEND OUT. 061681,000321: # CAF VXNYY 061682,000322: # TC BANKCALL 061683,000323: # CADR EXDSPRET 061684,000324: # ... ... # RETURN TO USER 061685,000325: # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS 061686,000326: # HAVE BEEN CLEANED OUT. 061687,000327: # TC BANKCALL 061688,000328: # CADR KLEENEX 061689,000329: # ... ... # RETURN TO USER 061690,000330: # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW). 061691,000331: # TC BANKCALL 061692,000332: # CADR MARKBRAN 061693,000333: # ... ... # BAD RETURN IF MARK DISPLAY NOT ACTIVE 061694,000334: # # (GOOD RETURN TO IMMEDIATE RETURN LOC OF 061695,000335: # # LAST FLASHING MARK R ROUTINE) 061696,000336: # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS 061697,000337: # BLANKED AND CONTROL IS SENT TO ENDOFJOB. 061698,000338: # TC POSTJUMP 061699,000339: # CADR PINBRNCH 061700,000340: # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM 061701,000341: # THE ASTRONAUT (SEE NO. 7 ABOVE). 061702,000342: 061703,000343: # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO 061704,000344: # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY 061705,000345: # IS RESPONDED TO BY THE ASTRONAUT. 061706,000346: 061707,000347: # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE 061708,000348: # PRIO DISPLAY 061709,000349: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN 061710,000350: # TC BANKCALL 061711,000351: # CADR PRIODSP 061712,000352: # ... ... # TERMINATE RETURN 061713,000353: # ... ... # PROCEED RETURN 061714,000354: # Page 1451 061715,000355: # ... ... # ENTER OR RECYCLE RETURN 061716,000356: # PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4. 061717,000357: # CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN 061718,000358: # TC BANKCALL 061719,000359: # CADR PRIODSPR 061720,000360: # ... ... # TERMINATE ACTION 061721,000361: # ... ... # PROCEED RETURN 061722,000362: # ... ... # ENTER OR RECYCLE RETURN 061723,000363: # ... ... # IMMEDIATE RETURN 061724,000364: # PRIOLARM DOES A V05N09 PRIODSPR. 061725,000365: 061726,000366: # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL 061727,000367: # DISPLAYS ARE CLEANED OUT. 061728,000368: # TC BANKCALL 061729,000369: # CADR CLEANDSP 061730,000370: # ... ... # RETURN TO USER 061731,000371: # Page 1452 061732,000372: 061733,000373: # GENERAL INFORMATION 061734,000374: # ------------------- 061735,000375: 061736,000376: # ALARM OR ABORT EXIT MODE -- 061737,000377: # PRIOBORT TC ABORT 061738,000378: # OCT 1502 061739,000379: 061740,000380: # PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE 061741,000381: # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS 061742,000382: # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION). 061743,000383: 061744,000384: # ERASABLE INITIALIZATION REQUIRED -- 061745,000385: # ACCOMPLISHED BY FRESH START -- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES) 061746,000386: # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER. 061747,000387: # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK). 061748,000388: # 5. R1SAVE = MARKBRAN CONTROL WORD 061749,000389: # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3. 061750,000390: 061751,000391: # OUTPUT -- 061752,000392: # NVWORD = PRIO VERB AND NOUN 061753,000393: # NVWORD +1 (MARKNV) = MARK VERB AND NOUN 061754,000394: # NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN 061755,000395: # DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK) 061756,000396: # DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK) 061757,000397: # DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK) 061758,000398: # CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION 061759,000399: # CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION 061760,000400: # CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION 061761,000401: # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT 061762,000402: # OPTION1 = DESIRED OPTION FROM GOPERF4 061763,000403: # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES 061764,000404: # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL) 061765,000405: 061766,000406: # SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG, 061767,000407: # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC 061768,000408: 061769,000409: # DEBRIS -- (STORED INTO) 061770,000410: # TEMPORARY TEMPORARIES -- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL, 061771,000411: # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1, FACEREG 061772,000412: # ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) -- CADRSTORE, DSPLIST, LOC, DSPTEM1, OPTION1 061773,000413: # ERASABLES (USED ONLY BY DISPLAY ROUTINES) -- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4, 061774,000414: # Page 1453 061775,000415: # R1SAVE, MARK2PAC 061776,000416: 061777,000417: # DEBRIS -- (USED BUT NOT STORED INTO) -- NOUNREG, VERBREG, LOCCTR, MONSAVE1 061778,000418: 061779,000419: # FLAGWORD DESCRIPTIONS -- 061780,000420: # FLAGWRD4 -- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS 061781,000421: 061782,000422: # DSPFLG, DSPFLG+1, DSPFLG+2 061783,000423: # -------------------------- 061784,000424: # BITS 1 BLANK R1 061785,000425: # 2 BLANK R2 061786,000426: # 3 BLANK R3 061787,000427: # 4 FLASHING DISPLAY REQUESTED 061788,000428: # 5 PERFORM DISPLAY REQUESTED 061789,000429: # 6 ----- EXDSPRET GODSPRET 061790,000430: # 7 PRIO DISPLAY ----- ----- 061791,000431: # 8 ----- DEC MARK PERFORM ----- 061792,000432: # 9 EBANK 061793,000433: # 10 EBANK 061794,000434: # 11 EBANK 061795,000435: # 12 ----- ----- V99PASTE 061796,000436: # 13 2ND PART OF PERFORM 061797,000437: # 14 REFLASH OR REDO ----- REFLASH OR REDO 061798,000438: # 15 ----- MARK REQUEST ----- 061799,000439: 061800,000440: # RESTARTING DISPLAYS -- 061801,000441: 061802,000442: # RULES FOR THE DSKY OPERATOR -- 061803,000443: # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING Y/N). AS LONG 061804,000444: # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS 061805,000445: # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR 061806,000446: # WITH PROCEED AND TERMINATE FOR THIS REASON. 061807,000447: # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE 061808,000448: # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME 061809,000449: # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY 061810,000450: # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY 061811,000451: # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM 061812,000452: # CONSIDERATION. 061813,000453: # 3. KEY RELEASE BUTTON -- 061814,000454: # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE. 061815,000455: # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL 061816,000456: # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE. 061817,000457: # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF 061818,000458: # KEY RELEASE BUTTON MAY BE NECESSARY. 061819,000459: # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE. 061820,000460: # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE 061821,000461: # OVER AGAIN. 061822,000462: 061823,000463: # SPECIAL CONSIDERATONS -- 061824,000464: # Page 1454 061825,000465: # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS 061826,000466: # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST. 061827,000467: # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R) 061828,000468: # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT. 061829,000469: # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED 061830,000470: # BY A .1 RESTART PHASE CHANGE. 061831,000471: # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE 061832,000472: # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO 061833,000473: # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL. 061834,000474: 061835,000475: # Page 1455 061836,000476: # CALLING SEQUENCE FOR BLANKING 061837,000477: # CAF BITX # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY 061838,000478: # TC BLANKET 061839,000479: # ... ... # RETURN TO USER HERE 061840,000480: # IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL 061841,000481: # TO BLANKET AT THE IMMEDIATE RETURN LOC. 061842,000482: 5415 BLOCK 02 061843,000483: 4000 SETLOC FFTAG4 061844,000484: 4000 BANK 061845,000485: 061846,000486: 5415 COUNT 02/DSPLA 061847,000487: 061848,000488: 5415 54162 BLANKET TS MPAC +6 061849,000489: 5416 40160 CS PLAYTEM4 061850,000490: 5417 70162 MASK MPAC +6 061851,000491: 5420 50161 INDEX MPAC +5 061852,000492: 5421 26160 ADS PLAYTEM4 061853,000493: 061854,000494: 5422 00002 TC Q 061855,000495: 061856,000496: 5423 04574 ENDMARK TC POSTJUMP 061857,000497: 5424 20457 CADR MARKEND 061858,000498: 061859,000499: 5425 34714 CLEARMRK CAF ZERO 061860,000500: 5426 55044 TS EXTVBACT 061861,000501: 061862,000502: 5427 00004 INHINT 061863,000503: 5430 44712 CS BIT1 061864,000504: 5431 70100 MASK FLAGWRD4 061865,000505: 5432 54100 TS FLAGWRD4 061866,000506: 061867,000507: 5433 00003 RELINT 061868,000508: 5434 00002 TC Q 061869,000509: 061870,000510: # *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN 061871,000511: # FINISHED. 061872,000512: 061873,000513: 10,2457 BANK 10 061874,000514: 10,2000 SETLOC DISPLAYS 061875,000515: 10,2000 BANK 061876,000516: 061877,000517: 10,2457 COUNT 10/DSPLA 061878,000518: 061879,000519: # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH 061880,000520: # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R. 061881,000521: 061882,000522: 10,2457 05425 MARKEND TC CLEARMRK 061883,000523: 10,2460 13547 TCF MARKOVER 061884,000524: 061885,000525: # Page 1456 061886,000526: 10,2461 54155 GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP 061887,000527: 061888,000528: 10,2462 34674 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS 061889,000529: 10,2463 12626 TCF GOFLASH2 061890,000530: 061891,000531: 10,2464 34714 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS 061892,000532: 10,2465 54155 GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH 061893,000533: 061894,000534: 10,2466 33157 CAF MARKFMSK # MARK, FLASH 061895,000535: 10,2467 12626 TCF GOFLASH2 061896,000536: 061897,000537: 10,2470 54155 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS 061898,000538: 10,2471 33646 MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH 061899,000539: 10,2472 12626 TCF GOFLASH2 061900,000540: 061901,000541: 10,2473 54155 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM 061902,000542: 10,2474 33633 CAF MARK3MSK 061903,000543: 10,2475 12626 TCF GOFLASH2 061904,000544: 061905,000545: 10,2476 54155 GOMARK4 TS PLAYTEM1 061906,000546: 10,2477 33634 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK 061907,000547: 10,2500 12626 TCF GOFLASH2 061908,000548: 061909,000549: 10,2501 54155 GOMARKR TS PLAYTEM1 # ENTRANCE FOR MARK GODSPR 061910,000550: 061911,000551: 10,2502 34674 CAF BIT15 061912,000552: 10,2503 12604 TCF GODSPR2 061913,000553: 061914,000554: 10,2504 54155 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR 061915,000555: 061916,000556: 10,2505 33157 CAF MARKFMSK 061917,000557: 10,2506 12765 TCF GODSPRS 061918,000558: 061919,000559: 10,2507 54155 GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET. 061920,000560: 10,2510 33646 CAF MPERFMSK # MARK, PERFORM, FLASH 061921,000561: 10,2511 12765 TCF GODSPRS 061922,000562: 061923,000563: 10,2512 54155 GOMARK3R TS PLAYTEM1 061924,000564: 10,2513 33633 CAF MARK3MSK 061925,000565: 10,2514 12765 TCF GODSPRS 061926,000566: 061927,000567: 10,2515 34712 MAKEMARK CAF ONE 061928,000568: 10,2516 03063 TC COPIES 061929,000569: 061930,000570: 10,2517 30100 CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING 061931,000571: 10,2520 73647 MASK OCT34300 061932,000572: 10,2521 10000 CCS A 061933,000573: 10,2522 12560 TCF CHKPRIO 061934,000574: 061935,000575: 10,2523 30100 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY? 061936,000576: # Page 1457 061937,000577: 10,2524 74702 MASK BIT9 061938,000578: 061939,000579: 10,2525 00006 EXTEND 061940,000580: 10,2526 12530 BZF MARKPLAY # NO 061941,000581: 061942,000582: 10,2527 15112 TCF ENDOFJOB 061943,000583: 061944,000584: 10,2530 00004 MARKPLAY INHINT 061945,000585: 10,2531 44715 CS FIVE # RESET MARK OVER NORM, SET MARK 061946,000586: 10,2532 70100 MASK FLAGWRD4 061947,000587: 10,2533 64712 AD ONE 061948,000588: 10,2534 54100 TS FLAGWRD4 061949,000589: 10,2535 00003 RELINT 061950,000590: 061951,000591: 10,2536 41070 GOGOMARK CS MARKFLAG # PERFORM 061952,000592: 10,2537 74706 MASK BIT5 061953,000593: 10,2540 10000 CCS A 061954,000594: 10,2541 12544 TCF MARKCOP 061955,000595: 10,2542 40370 CS MARKNV 061956,000596: 10,2543 54370 TS MARKNV 061957,000597: 061958,000598: 10,2544 34712 MARKCOP CAF ONE # MARK INDEX 061959,000599: 10,2545 12744 TCF PRIOPLAY 061960,000600: 061961,000601: 10,2546 30165 COPYTOGO CA MPAC2SAV 061962,000602: 10,2547 54156 TS MPAC +2 061963,000603: 061964,000604: 10,2550 50164 COPYPACS INDEX COPINDEX 061965,000605: 10,2551 33657 CAF PRIOOCT 061966,000606: 10,2552 54162 TS GENMASK 061967,000607: 061968,000608: 10,2553 50164 INDEX COPINDEX 061969,000609: 10,2554 31067 CAF EBANKSAV 061970,000610: 10,2555 54160 TS TEMPOR2 # ACTIVE EBANK AND FLAG 061971,000611: 061972,000612: 10,2556 54003 TS EBANK 061973,000613: 061974,000614: 10,2557 00002 TC Q 061975,000615: 061976,000616: # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY 061977,000617: # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK 061978,000618: # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP 061979,000619: # UNTIL ALL MARKING IS FINISHED. 061980,000620: 061981,000621: # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A 061982,000622: # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT. 061983,000623: 061984,000624: 10,2560 30100 CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO 061985,000625: 10,2561 73402 MASK OCT24100 061986,000626: 10,2562 10000 CCS A 061987,000627: 10,2563 13602 TCF MARSLEEP 061988,000628: 061989,000629: # Page 1458 061990,000630: 10,2564 40100 CS FLAGWRD4 061991,000631: 10,2565 74710 MASK BIT3 # SET MARK OVER NORM 061992,000632: 10,2566 00004 INHINT 061993,000633: 10,2567 26100 ADS FLAGWRD4 061994,000634: 061995,000635: 10,2570 12662 TCF SETNORM 061996,000636: 061997,000637: 10,2571 30370 MARKPERF CA MARKNV 061998,000638: 10,2572 74160 MASK VERBMASK 061999,000639: 10,2573 13246 TCF NV50DSP 062000,000640: 062001,000641: 10,2574 54155 GODSP TS PLAYTEM1 062002,000642: 062003,000643: 10,2575 34714 GODSP2 CAF ZERO 062004,000644: 10,2576 12626 TCF GOFLASH2 062005,000645: 062006,000646: 10,2577 54155 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE 062007,000647: 062008,000648: 10,2600 34705 CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB 062009,000649: 10,2601 12626 TCF GOFLASH2 062010,000650: 062011,000651: 10,2602 54155 GODSPR TS PLAYTEM1 062012,000652: 062013,000653: 10,2603 34714 GODSPR1 CAF ZERO 062014,000654: 10,2604 54160 GODSPR2 TS PLAYTEM4 062015,000655: 062016,000656: 10,2605 34714 CAF ZERO # * DON'T MOVE 062017,000657: 10,2606 12767 TCF GODSPRS1 062018,000658: 062019,000659: # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS 062020,000660: # SET UP TO BE STARTED OR RESTARTED. 062021,000661: 062022,000662: # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN 062023,000663: # OLD DISPLAY. 062024,000664: 062025,000665: # CALLING SEQUENCE FOR CLEANDSP -- 062026,000666: 062027,000667: # TC BANKCALL 062028,000668: # CADR CLEANDSP 062029,000669: 062030,000670: 10,2607 34714 CLEANDSP CAF ZERO 062031,000671: 10,2610 54155 REFLASH TS PLAYTEM1 062032,000672: 062033,000673: 10,2611 33632 CAF REDOMASK # FLASH AND PERMIT 062034,000674: 10,2612 12626 TCF GOFLASH2 062035,000675: 062036,000676: 10,2613 54155 REFLASHR TS PLAYTEM1 062037,000677: 062038,000678: 10,2614 33632 CAF REDOMASK # FLASH AND PERMIT 062039,000679: 10,2615 12765 TCF GODSPRS 062040,000680: 062041,000681: # Page 1459 062042,000682: 10,2616 54155 REGODSP TS PLAYTEM1 062043,000683: 062044,000684: 10,2617 34675 CAF BIT14 062045,000685: 10,2620 12626 TCF GOFLASH2 062046,000686: 062047,000687: 10,2621 54155 REGODSPR TS PLAYTEM1 062048,000688: 062049,000689: 10,2622 34675 CAF BIT14 062050,000690: 10,2623 12604 TCF GODSPR2 062051,000691: 062052,000692: 10,2624 54155 GOFLASH TS PLAYTEM1 062053,000693: 062054,000694: 10,2625 34707 CAF BIT4 # LEAVE ONLY FLASH BIT SET 062055,000695: 10,2626 54160 GOFLASH2 TS PLAYTEM4 062056,000696: 062057,000697: 10,2627 03050 TC SAVELOCS 062058,000698: 062059,000699: 10,2630 00003 RELINT 062060,000700: 062061,000701: 10,2631 12674 TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL 062062,000702: 062063,000703: 10,2632 54155 PRIODSPR TS PLAYTEM1 062064,000704: 062065,000705: 10,2633 33651 CAF BITS7+4 062066,000706: 10,2634 12765 TCF GODSPRS 062067,000707: 062068,000708: 10,2635 54155 PRIODSP TS PLAYTEM1 062069,000709: 062070,000710: 10,2636 33651 SETPRIO CAF BITS7+4 062071,000711: 10,2637 12626 TCF GOFLASH2 062072,000712: 062073,000713: 10,2640 34714 MAKEPRIO CAF ZERO 062074,000714: 10,2641 54164 TS COPINDEX 062075,000715: 062076,000716: 10,2642 03522 TC LINUSCHR 062077,000717: 10,2643 12650 TCF HIPRIO # LINUS RETURN 062078,000718: 10,2644 30100 CA FLAGWRD4 062079,000719: 10,2645 73670 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY 062080,000720: 10,2646 10000 CCS A 062081,000721: 10,2647 12723 TCF PRIOBORT # YES, ABORT 062082,000722: 062083,000723: 10,2650 30100 HIPRIO CA FLAGWRD4 # MARK ACTIVE 062084,000724: 10,2651 75612 MASK OCT40400 062085,000725: 10,2652 00006 EXTEND 062086,000726: 10,2653 12656 BZF ASKIFNRM # NO 062087,000727: 062088,000728: 10,2654 34714 SETMARK CAF ZERO 062089,000729: 10,2655 13122 TCF JOBXCHS 062090,000730: 062091,000731: 10,2656 30100 ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE 062092,000732: # Page 1460 062093,000733: 10,2657 73666 MASK OCT10200 # BITS 13+8 062094,000734: 10,2660 00006 EXTEND 062095,000735: 10,2661 12664 BZF OKTOCOPY # NO 062096,000736: 062097,000737: 10,2662 34712 SETNORM CAF ONE 062098,000738: 10,2663 13122 TCF JOBXCHS 062099,000739: 062100,000740: 10,2664 03062 OKTOCOPY TC COPYNORM 062101,000741: 10,2665 03333 TC WITCHONE 062102,000742: 062103,000743: 10,2666 05074 TC JOBWAKE 062104,000744: 062105,000745: 10,2667 03350 TC XCHTOEND 062106,000746: 062107,000747: 10,2670 30025 REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT 062108,000748: 10,2671 55147 TS PRIOTIME 062109,000749: 062110,000750: 10,2672 34714 KEEPPRIO CAF ZERO # START UP PRIO DISPLAY 062111,000751: 10,2673 12744 TCF PRIOPLAY 062112,000752: 062113,000753: 10,2674 30167 MAKEPLAY CA PRIORITY # SAVE USER'S PRIORITY 062114,000754: 10,2675 77674 MASK PRIO37 062115,000755: 10,2676 54163 TS USERPRIO 062116,000756: 062117,000757: 10,2677 37670 CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE 062118,000758: 10,2700 05103 TC PRIOCHNG 062119,000759: 062120,000760: 10,2701 30160 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM 062121,000761: 10,2702 73650 MASK BITS15+7 062122,000762: 10,2703 10000 CCS A 062123,000763: 10,2704 12640 TCF MAKEPRIO # ITS PRIO 062124,000764: 10,2705 12707 TCF IFLEGAL 062125,000765: 10,2706 12515 TCF MAKEMARK # ITS MARK 062126,000766: 062127,000767: 10,2707 34711 IFLEGAL CAF TWO 062128,000768: 10,2710 54164 TS COPINDEX 062129,000769: 062130,000770: 10,2711 03522 TC LINUSCHR 062131,000771: 062132,000772: 10,2712 12725 TCF OKTOPLAY # LINUS RETURN 062133,000773: 10,2713 41071 CS EBANKTEM 062134,000774: 10,2714 74707 MASK BIT4 062135,000775: 10,2715 10000 CCS A 062136,000776: 10,2716 12725 TCF OKTOPLAY # NO 062137,000777: 062138,000778: 10,2717 30100 CA FLAGWRD4 # WAS NORM ASLEEP 062139,000779: 10,2720 73641 MASK NBUSMASK # ARE ANY NORMS ASLEEP 062140,000780: 10,2721 00006 EXTEND 062141,000781: 10,2722 12725 BZF OKTOPLAY # NO 062142,000782: 062143,000783: # Page 1461 062144,000784: 10,2723 05622 PRIOBORT TC P00DOO 062145,000785: 10,2724 01502 OCT 1502 062146,000786: 062147,000787: 10,2725 03064 OKTOPLAY TC COPIES2 062148,000788: 062149,000789: 10,2726 30163 CA USERPRIO 062150,000790: 10,2727 00006 EXTEND 062151,000791: 10,2730 04007 ROR SUPERBNK 062152,000792: 10,2731 54366 TS RESTREG 062153,000793: 062154,000794: 10,2732 30100 CA FLAGWRD4 # PRIO OR MARK GOING 062155,000795: 10,2733 73642 MASK PMMASK 062156,000796: 10,2734 10000 CCS A 062157,000797: 10,2735 13102 TCF GOSLEEPS # MARK GOING 062158,000798: 062159,000799: 10,2736 12740 TCF +2 062160,000800: 10,2737 13102 TCF GOSLEEPS 062161,000801: 062162,000802: # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME 062163,000803: 062164,000804: 10,2740 03333 TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE 062165,000805: 10,2741 05074 TC JOBWAKE 062166,000806: 062167,000807: 10,2742 03350 TC XCHTOEND 062168,000808: 062169,000809: 10,2743 34711 PLAYJUM1 CAF TWO 062170,000810: 10,2744 54164 PRIOPLAY TS COPINDEX 062171,000811: 062172,000812: 10,2745 13216 TCF GOPLAY 062173,000813: 062174,000814: 10,2746 54155 EXDSPRET TS PLAYTEM1 062175,000815: 062176,000816: 10,2747 37703 CAF BIT15+6 062177,000817: 10,2750 12626 TCF GOFLASH2 062178,000818: 062179,000819: 10,2751 55045 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE 062180,000820: 10,2752 33624 CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1 062181,000821: 062182,000822: 10,2753 54155 GOPERFS TS PLAYTEM1 062183,000823: 062184,000824: 10,2754 33623 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING 062185,000825: 10,2755 12626 TCF GOFLASH2 062186,000826: 062187,000827: 10,2756 54155 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 062188,000828: 062189,000829: 10,2757 33627 CAF PERF2MSK 062190,000830: 10,2760 12626 TCF GOFLASH2 062191,000831: 062192,000832: 10,2761 03043 GOPERF4 TC PURRS4 062193,000833: 062194,000834: 10,2762 12626 TCF GOFLASH2 062195,000835: 062196,000836: # Page 1462 062197,000837: 10,2763 54155 GOFLASHR TS PLAYTEM1 062198,000838: 062199,000839: 10,2764 34707 CAF BIT4 # LEAVE ONLY FLASH BIT SET 062200,000840: 10,2765 54160 GODSPRS TS PLAYTEM4 062201,000841: 062202,000842: 10,2766 36214 CAF THREE 062203,000843: 062204,000844: 10,2767 00004 GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4 062205,000845: 10,2770 54072 TS RUPTREG3 062206,000846: 062207,000847: 10,2771 30167 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER 062208,000848: 10,2772 77674 MASK PRIO37 062209,000849: 10,2773 54063 TS NEWPRIO 062210,000850: 062211,000851: 10,2774 30160 CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY 062212,000852: 10,2775 74707 MASK BIT4 062213,000853: 10,2776 10000 CCS A 062214,000854: 10,2777 13005 TCF VACDSP # YES, MAKE DSPLAY JOB A VAC 062215,000855: 10,3000 30063 CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC 062216,000856: 10,3001 05027 TC NOVAC 062217,000857: 10,3002 0003777 EBANK= WHOCARES 062218,000858: 10,3002 02674 20107 2CADR MAKEPLAY 062219,000859: 062220,000860: 10,3004 13013 TCF BOTHJOBS 062221,000861: 062222,000862: 10,3005 30006 VACDSP CA BBANK 062223,000863: 10,3006 00006 EXTEND 062224,000864: 10,3007 04007 ROR SUPERBNK 062225,000865: 10,3010 54001 TS L 062226,000866: 10,3011 33665 CAF MAKEGEN 062227,000867: 10,3012 05053 TC SPVAC 062228,000868: 062229,000869: 10,3013 03050 BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS 062230,000870: 062231,000871: 10,3014 00006 EXTEND # SAVE NVWORD AND USER'S MPAC +2 062232,000872: 10,3015 30156 DCA MPAC +1 062233,000873: 10,3016 50064 INDEX LOCCTR 062234,000874: 10,3017 52156 DXCH MPAC +1 062235,000875: 062236,000876: 10,3020 00006 EXTEND # SAVE USER'S CADR, FLAGS AND EBANK 062237,000877: 10,3021 30160 DCA MPAC +3 062238,000878: 10,3022 50064 INDEX LOCCTR 062239,000879: 10,3023 52160 DXCH MPAC +3 062240,000880: 062241,000881: 10,3024 30064 CA LOCCTR 062242,000882: 10,3025 54161 TS MPAC +5 062243,000883: 10,3026 03055 TC SAVELOCR 062244,000884: 10,3027 00003 RELINT 062245,000885: # Page 1463 062246,000886: 10,3030 14577 TCF BANKJUMP # CALL CADR +4 062247,000887: 062248,000888: 10,3031 55045 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE 062249,000889: 062250,000890: 10,3032 33624 CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1 062251,000891: 062252,000892: 10,3033 54155 GOPERFRS TS PLAYTEM1 062253,000893: 062254,000894: 10,3034 33623 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING 062255,000895: 10,3035 12765 TCF GODSPRS 062256,000896: 062257,000897: 10,3036 54155 GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 062258,000898: 062259,000899: 10,3037 33627 CAF PERF2MSK 062260,000900: 10,3040 12765 TCF GODSPRS 062261,000901: 062262,000902: 10,3041 03043 GOPERF4R TC PURRS4 062263,000903: 062264,000904: 10,3042 12765 TCF GODSPRS 062265,000905: 062266,000906: 10,3043 55131 PURRS4 TS OPTION1 # DESIRED OPTION CODE 062267,000907: 062268,000908: 10,3044 33630 CAF V04N06 062269,000909: 10,3045 54155 TS PLAYTEM1 062270,000910: 062271,000911: 10,3046 33631 CAF PERF4MSK # FLASH, PERFORM AND EBANK R3 062272,000912: 10,3047 00002 TC Q 062273,000913: 062274,000914: 10,3050 00004 SAVELOCS INHINT 062275,000915: 062276,000916: 10,3051 43640 CS OCT3400 # EBANK BITS 062277,000917: 10,3052 70160 MASK PLAYTEM4 062278,000918: 10,3053 60003 AD EBANK 062279,000919: 10,3054 54160 TS PLAYTEM4 062280,000920: 062281,000921: 10,3055 22002 SAVELOCR LXCH Q 062282,000922: 062283,000923: 10,3056 04604 TC MAKECADR 062284,000924: 10,3057 54157 TS PLAYTEM3 062285,000925: 062286,000926: 10,3060 60072 AD RUPTREG3 # NOT USED FOR NON R ROUTINES 062287,000927: 10,3061 00001 TC L 062288,000928: 062289,000929: 10,3062 34714 COPYNORM CAF ZERO 062290,000930: 10,3063 54164 COPIES TS COPINDEX 062291,000931: 10,3064 00004 COPIES2 INHINT 062292,000932: 10,3065 30160 CA PLAYTEM4 # FLAGWORD 062293,000933: 062294,000934: 10,3066 50164 INDEX COPINDEX 062295,000935: 10,3067 55067 TS EBANKSAV # EQUIV TO DSPFLG 062296,000936: # Page 1464 062297,000937: 10,3070 73656 MASK CADRMASK # FLASH AND GODSPRET 062298,000938: 10,3071 00006 EXTEND 062299,000939: 10,3072 13076 BZF SKIPADD 062300,000940: 062301,000941: 10,3073 30157 CA PLAYTEM3 062302,000942: 10,3074 50164 INDEX COPINDEX 062303,000943: 10,3075 54372 TS CADRFLSH 062304,000944: 062305,000945: 10,3076 30155 SKIPADD CA PLAYTEM1 # VERB NOUN 062306,000946: 10,3077 50164 INDEX COPINDEX 062307,000947: 10,3100 54367 TS NVWORD 062308,000948: 062309,000949: 10,3101 13357 TCF RELINTQ 062310,000950: 062311,000951: 10,3102 50164 GOSLEEPS INDEX COPINDEX 062312,000952: 10,3103 33657 CA PRIOOCT 062313,000953: 10,3104 73106 MASK WAITMASK 062314,000954: 10,3105 07717 TC UPENT2 062315,000955: 10,3106 03004 WAITMASK OCT 3004 062316,000956: 10,3107 44712 CS ONE 062317,000957: 10,3110 60164 AD COPINDEX 062318,000958: 10,3111 54154 TS FACEREG 062319,000959: 062320,000960: 10,3112 50154 XCHSLEEP INDEX FACEREG 062321,000961: 10,3113 33636 CAF WAKECADR 062322,000962: 10,3114 00004 INHINT 062323,000963: 10,3115 05074 TC JOBWAKE # FIND CADR IN JOB AREA 062324,000964: 062325,000965: 10,3116 03350 TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB 062326,000966: 062327,000967: 10,3117 50154 INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA 062328,000968: 10,3120 33636 CAF WAKECADR 062329,000969: 10,3121 15070 TCF JOBSLEEP 062330,000970: 062331,000971: 10,3122 54154 JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP 062332,000972: 10,3123 03333 TC WITCHONE 062333,000973: 10,3124 05074 TC JOBWAKE 062334,000974: 10,3125 30154 CA FACEREG 062335,000975: 10,3126 50064 INDEX LOCCTR 062336,000976: 10,3127 54154 TS FACEREG 062337,000977: 062338,000978: 10,3130 33143 CAF XCHQADD 062339,000979: 10,3131 03351 TC XCHNYLOC 062340,000980: 062341,000981: 10,3132 50154 INDEX FACEREG 062342,000982: 10,3133 33660 CA MARKOCT 062343,000983: 10,3134 73662 MASK IDLESLEP 062344,000984: 062345,000985: 10,3135 07735 TC DOWNENT2 062346,000986: 10,3136 74004 IDLEMASK OCT 74004 # * DON'T MOVE 062347,000987: # Page 1465 062348,000988: 10,3137 50154 INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK 062349,000989: 10,3140 34706 CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL 062350,000990: 10,3141 64710 AD FOUR 062351,000991: 10,3142 07717 TC UPENT2 # FLAG ROUTINE DOES RELINT 062352,000992: 10,3143 03112 XCHQADD GENADR XCHSLEEP # * DON'T MOVE 062353,000993: 10,3144 30100 CA FLAGWRD4 062354,000994: 10,3145 74710 MASK BIT3 # MARK OVER NORM? 062355,000995: 10,3146 10000 CCS A 062356,000996: 10,3147 02530 GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE 062357,000997: 10,3150 12664 TCF OKTOCOPY 062358,000998: 062359,000999: 10,3151 34714 MARKWAKE CAF ZERO 062360,001000: 10,3152 54160 WAKEPLAY TS TEMPOR2 062361,001001: 062362,001002: 10,3153 50160 INDEX TEMPOR2 062363,001003: 10,3154 33652 CA BITS5+11 062364,001004: 10,3155 64710 AD FOUR 062365,001005: 10,3156 07735 TC DOWNENT2 062366,001006: 10,3157 40010 MARKFMSK OCT 40010 # *** DON'T MOVE 062367,001007: 062368,001008: 10,3160 50160 INDEX TEMPOR2 062369,001009: 10,3161 33636 CAF WAKECADR 062370,001010: 10,3162 00004 INHINT 062371,001011: 10,3163 05074 TC JOBWAKE 062372,001012: 062373,001013: 10,3164 13463 TCF ENDRET 062374,001014: 062375,001015: # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS 062376,001016: # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK. 062377,001017: 062378,001018: # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO TEH LAST NORMAL USER. 062379,001019: # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY. 062380,001020: 062381,001021: 10,3165 31071 INITDSP CA EBANKTEM # RESTORE MOST RECENT NORMAL EBANK 062382,001022: 10,3166 54003 TS EBANK 062383,001023: 062384,001024: 10,3167 30366 CA RESTREG # SUPERBANK AND JOB PRIORITY 062385,001025: 10,3170 04666 TC SUPERSW # RESTORE SUPERBANK 062386,001026: 062387,001027: 10,3171 77674 MASK PRIO37 062388,001028: 10,3172 05103 TC PRIOCHNG 062389,001029: 062390,001030: 10,3173 46214 CS THREE 062391,001031: 10,3174 60374 AD TEMPFLSH 062392,001032: 10,3175 14577 TCF BANKJUMP 062393,001033: 062394,001034: 10,3176 00003 PINBRNCH RELINT # FOR GOPIN USERS 062395,001035: 10,3177 31072 CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS 062396,001036: 10,3200 54156 TS MPAC +2 # ONLY 062397,001037: 062398,001038: 10,3201 30100 CA FLAGWRD4 # PINBRANCH CONDITION 062399,001039: # Page 1466 062400,001040: 10,3202 77707 MASK PINMASK 062401,001041: 10,3203 10000 CCS A 062402,001042: 10,3204 13207 TCF +3 062403,001043: 10,3205 13617 TCF ERASER # ** NOTHING IN ENDIDLE 062404,001044: 10,3206 12530 TCF MARKPLAY 062405,001045: 062406,001046: 10,3207 05435 NORMBNCH TC UPFLAG # SET PINBRANCH BIT 062407,001047: 10,3210 00105 ADRES PINBRFLG 062408,001048: 062409,001049: 10,3211 34675 CAF BIT14 # PRIO INTERRUPTED 062410,001050: 10,3212 70100 MASK FLAGWRD4 062411,001051: 10,3213 10000 CCS A 062412,001052: 10,3214 12672 TCF KEEPPRIO 062413,001053: 062414,001054: 10,3215 12743 TCF PLAYJUM1 062415,001055: 062416,001056: 10,3216 02550 NVDSP TC COPYPACS 062417,001057: 062418,001058: 10,3217 30160 CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE 062419,001059: 10,3220 74716 MASK SEVEN # USER REQUESTS BLANKING MONITOR 062420,001060: 10,3221 54001 TS L 062421,001061: 062422,001062: 10,3222 44676 CS BIT13 062423,001063: 10,3223 50164 INDEX COPINDEX 062424,001064: 10,3224 71067 MASK DSPFLG 062425,001065: 10,3225 50164 INDEX COPINDEX 062426,001066: 10,3226 55067 TS DSPFLG 062427,001067: 062428,001068: 10,3227 74703 MASK BIT8 # BIT8 SET IF DEC MARK PERFORM DISPLAY 062429,001069: 10,3230 54141 TS TEM1 062430,001070: 062431,001071: 10,3231 30156 CA MPAC +2 062432,001072: 10,3232 54165 TS MPAC2SAV 062433,001073: 062434,001074: 10,3233 55072 TS MARK2PAC # * FOR DISK ONLY * 062435,001075: 10,3234 50164 INDEX COPINDEX 062436,001076: 10,3235 10367 CCS NVWORD 062437,001077: 10,3236 13245 TCF NVDSP1 062438,001078: 10,3237 13361 TCF CLEANEND 062439,001079: 10,3240 40370 CS MARKNV 062440,001080: 10,3241 54370 TS MARKNV # IN CASE MARKPLAY AWAKENED AFTER SLEEPING 062441,001081: 10,3242 76043 MASK LOW7 062442,001082: 10,3243 63643 AD V05N00M1 062443,001083: 10,3244 60141 AD TEM1 062444,001084: 10,3245 64712 NVDSP1 AD ONE 062445,001085: 10,3246 04171 NV50DSP TC NVMONOPT 062446,001086: 10,3247 13373 TCF REST # IF BUSY 062447,001087: 062448,001088: 10,3250 04447 TC FLASHOFF # IN CASE OF EXTENDED VERB NON-FLASH 062449,001089: 062450,001090: 10,3251 02546 TC COPYTOGO # MPACS DESTROYED BY NVSUB 062451,001091: # Page 1467 062452,001092: 10,3252 05447 TC DOWNFLAG # UNSET SLEEPING BITS 062453,001093: 10,3253 00102 ADRES MRKNVFLG 062454,001094: 10,3254 05447 TC DOWNFLAG 062455,001095: 10,3255 00103 ADRES NRMNVFLG 062456,001096: 10,3256 05447 TC DOWNFLAG 062457,001097: 10,3257 00104 ADRES PRONVFLG 062458,001098: 10,3260 30160 BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET 062459,001099: 10,3261 04271 TC BLANKSUB 062460,001100: 10,3262 13216 TCF NVDSP 062461,001101: 10,3263 34706 PERFCHEK CAF BIT5 # BIT5 FOR PERFORM 062462,001102: 10,3264 70160 MASK TEMPOR2 062463,001103: 10,3265 10000 CCS A # IS THIS A GOPERF DISPLAY 062464,001104: 10,3266 13311 TCF 1STOR2ND # YES 062465,001105: 062466,001106: 10,3267 34707 GOANIDLE CAF BIT4 062467,001107: 10,3270 70160 MASK TEMPOR2 062468,001108: 10,3271 10000 CCS A 062469,001109: 10,3272 13406 TCF FLASHSUB # IT IS 062470,001110: 062471,001111: 10,3273 40160 CS TEMPOR2 # IS THIS A GODSPRET 062472,001112: 10,3274 74705 MASK BIT6 062473,001113: 10,3275 10000 CCS A 062474,001114: 10,3276 13303 TCF ISITN00 062475,001115: 062476,001116: 10,3277 50164 INDEX COPINDEX 062477,001117: 10,3300 30372 CA CADRFLSH 062478,001118: 10,3301 54157 TS MPAC +3 062479,001119: 10,3302 13501 TCF ENDIT 062480,001120: 062481,001121: 10,3303 50164 ISITN00 INDEX COPINDEX # IS THIS A PASTE 062482,001122: 10,3304 30367 CA NVWORD 062483,001123: 10,3305 76043 MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK 062484,001124: 10,3306 00006 EXTEND 062485,001125: 10,3307 13406 BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH 062486,001126: 062487,001127: 10,3310 15112 TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THEREFORE EXIT 062488,001128: 062489,001129: 10,3311 30160 1STOR2ND CA TEMPOR2 062490,001130: 10,3312 74676 MASK BIT13 062491,001131: 10,3313 10000 CCS A 062492,001132: 10,3314 13267 TCF GOANIDLE # SECOND 062493,001133: 062494,001134: 10,3315 34676 CA BIT13 062495,001135: 10,3316 50164 INDEX COPINDEX 062496,001136: 10,3317 27067 ADS DSPFLG 062497,001137: 062498,001138: 10,3320 22007 ZL 062499,001139: 10,3321 00006 EXTEND # IS IT MARK 062500,001140: 10,3322 62571 BZMF MARKPERF # YES 062501,001141: # Page 1468 062502,001142: 10,3323 74677 MASK BIT12 062503,001143: 10,3324 00006 EXTEND 062504,001144: 10,3325 13331 BZF V50PASTE 062505,001145: 10,3326 41145 CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99 062506,001146: 10,3327 63667 AD V97N00 062507,001147: 10,3330 13246 TCF NV50DSP 062508,001148: 10,3331 33626 V50PASTE CAF V50N00 062509,001149: 10,3332 13246 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF 062510,001150: 062511,001151: 10,3333 44706 WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT 062512,001152: 10,3334 00006 EXTEND 062513,001153: 10,3335 03011 WAND DSALMOUT 062514,001154: 062515,001155: 10,3336 30100 CA FLAGWRD4 062516,001156: 10,3337 73644 MASK NVBUSMSK # IS IT NVSUB ALEEP 062517,001157: 10,3340 10000 CCS A 062518,001158: 10,3341 34712 CAF ONE 062519,001159: 10,3342 54001 TS L 062520,001160: 10,3343 34714 CAF ZERO 062521,001161: 10,3344 50001 INDEX L 062522,001162: 10,3345 57042 XCH CADRSTOR 062523,001163: 062524,001164: 10,3346 00004 INHINT 062525,001165: 10,3347 00002 TC Q 062526,001166: 062527,001167: 10,3350 34233 XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR 062528,001168: 10,3351 56064 XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING 062529,001169: 10,3352 00006 EXTEND 062530,001170: 10,3353 63357 BZMF RELINTQ # NO 062531,001171: 10,3354 56064 XCH LOCCTR # YES 062532,001172: 10,3355 50064 INDEX LOCCTR 062533,001173: 10,3356 54164 TS LOC 062534,001174: 062535,001175: 10,3357 00003 RELINTQ RELINT 062536,001176: 10,3360 00002 TC Q # BACK TO USER 062537,001177: 062538,001178: 10,3361 37667 CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING 062539,001179: 10,3362 05042 TC FINDVAC 062540,001180: 10,3363 0371 EBANK= NVSAVE 062541,001181: 10,3363 04245 04100 2CADR JAMTERM 062542,001182: 062543,001183: 10,3365 13407 TCF FLASHSUB +1 062544,001184: 062545,001185: 10,3366 30100 ISITPRIO CA FLAGWRD4 062546,001186: 10,3367 73414 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET 062547,001187: 10,3370 00006 EXTEND 062548,001188: 10,3371 12723 BZF PRIOBORT 062549,001189: 10,3372 15112 TCF ENDOFJOB 062550,001190: # Page 1469 062551,001191: 10,3373 11042 REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE 062552,001192: 10,3374 15112 TCF ENDOFJOB # YES 062553,001193: 10,3375 13377 TCF RESTSLEP 062554,001194: 062555,001195: 10,3376 15112 TCF ENDOFJOB 062556,001196: 062557,001197: 10,3377 30162 RESTSLEP CA GENMASK # SET NVSLEEP BITS 062558,001198: 10,3400 73645 MASK ASTROMSK 062559,001199: 10,3401 07717 TC UPENT2 062560,001200: 10,3402 24100 OCT24100 OCT 24100 # *** DON'T MOVE 062561,001201: 062562,001202: 10,3403 50164 INDEX COPINDEX 062563,001203: 10,3404 33635 CAF NVCADR 062564,001204: 10,3405 04456 TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL 062565,001205: 062566,001206: 10,3406 04443 FLASHSUB TC FLASHON 062567,001207: 062568,001208: 10,3407 30164 CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE 062569,001209: 10,3410 54157 TS COPMPAC 062570,001210: 062571,001211: 10,3411 30162 CA GENMASK 062572,001212: 10,3412 73136 MASK IDLEMASK 062573,001213: 10,3413 07717 TC UPENT2 062574,001214: 10,3414 40040 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DON'T MOVE 062575,001215: 062576,001216: 10,3415 31073 CA R1SAVE # IS THIS A REPEAT AND RETURN DISPLAY 062577,001217: 10,3416 50164 INDEX COPINDEX 062578,001218: 10,3417 74710 MASK BIT3 062579,001219: 10,3420 10000 CCS A 062580,001220: 10,3421 13506 TCF UNSETR1 # YES 062581,001221: 062582,001222: 10,3422 11042 CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE 062583,001223: 10,3423 13366 TCF ISITPRIO 062584,001224: 10,3424 13426 TCF +2 062585,001225: 10,3425 13366 TCF ISITPRIO 062586,001226: 062587,001227: 10,3426 04223 TC ENDIDLE 062588,001228: 10,3427 13520 IDLERET1 TCF TERMATE 062589,001229: 062590,001230: 10,3430 13537 TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED 062591,001231: 062592,001232: 10,3431 43654 CS LOWLOAD 062593,001233: 10,3432 60154 AD MPAC # VERBREG 062594,001234: 10,3433 00006 EXTEND 062595,001235: 10,3434 26000 DIM A 062596,001236: 10,3435 00006 EXTEND 062597,001237: 10,3436 13607 BZF LOADITIS # V21 OR V22 OR V23 ON DSKY 062598,001238: 062599,001239: 10,3437 34711 OKTOENT CAF TWO 062600,001240: 10,3440 54161 ENDOUT TS OUTHERE 062601,001241: # Page 1470 062602,001242: 10,3441 30100 CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN 062603,001243: 10,3442 74105 MASK OCT60000 062604,001244: 10,3443 10000 CCS A 062605,001245: 10,3444 13447 TCF TIMECHEK # PRIO ENDIDLE RETURN 062606,001246: 10,3445 13555 TCF NORMRET # NORMAL ENDIDLE RETURN 062607,001247: 10,3446 13541 TCF MARKRET # MARK ENDIDLE RETURN 062608,001248: 062609,001249: 10,3447 40025 TIMECHEK CS TIME1 062610,001250: 10,3450 61147 AD PRIOTIME 062611,001251: 10,3451 10000 CCS A 062612,001252: 10,3452 40000 COM 062613,001253: 10,3453 67700 AD OCT37776 062614,001254: 10,3454 64712 AD ONE 062615,001255: 10,3455 63677 AD -2SEC 062616,001256: 10,3456 00006 EXTEND 062617,001257: 10,3457 62672 BZMF KEEPPRIO 062618,001258: 062619,001259: 10,3460 13555 TCF NORMRET 062620,001260: 062621,001261: 10,3461 34712 NORMWAKE CAF ONE 062622,001262: 10,3462 13152 TCF WAKEPLAY 062623,001263: 062624,001264: 10,3463 10161 ENDRET CCS OUTHERE 062625,001265: 10,3464 64712 AD ONE 062626,001266: 10,3465 13467 TCF +2 # NORMAL ENDIDLE EXIT 062627,001267: 10,3466 15112 TCF ENDOFJOB 062628,001268: 10,3467 50157 INDEX COPMPAC 062629,001269: 10,3470 60372 AD CADRFLSH 062630,001270: 10,3471 54157 TS MPAC +3 062631,001271: 062632,001272: 10,3472 30162 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS 062633,001273: 10,3473 73475 MASK PINIDMSK 062634,001274: 10,3474 07735 TC DOWNENT2 062635,001275: 10,3475 74044 PINIDMSK OCT 74044 # *** DON'T MOVE 062636,001276: 062637,001277: 10,3476 46214 CS THREE # BLANK EVERYTHING EXCEPT MM 062638,001278: 10,3477 04170 TC NVSUB 062639,001279: 10,3500 13501 TCF +1 062640,001280: 062641,001281: 10,3501 30163 ENDIT CA USERPRIO # RETURN TO USER'S PRIORITY 062642,001282: 10,3502 77674 MASK PRIO37 062643,001283: 10,3503 05103 TC PRIOCHNG 062644,001284: 10,3504 30157 CA MPAC +3 062645,001285: 10,3505 14577 TCF BANKJUMP 062646,001286: 062647,001287: 10,3506 50164 UNSETR1 INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST 062648,001288: 10,3507 44710 CS BIT3 062649,001289: 10,3510 71073 MASK R1SAVE 062650,001290: 10,3511 55073 TS R1SAVE 062651,001291: # Page 1471 062652,001292: 10,3512 34714 CAF ZERO # *** 205 ONLY MARKBRAN USERS IN 062653,001293: 10,3513 04666 TC SUPERSW # SUPERBANK 0 062654,001294: 062655,001295: 10,3514 36214 -1 CAF THREE # RETURN TO USER'S IMMEDIATE RETURN LOC 062656,001296: 10,3515 50164 IMMEDRET INDEX COPINDEX 062657,001297: 10,3516 60372 AD CADRFLSH 062658,001298: 10,3517 14577 TCF BANKJUMP 062659,001299: 062660,001300: 10,3520 34714 TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO 062661,001301: 10,3521 13440 TCF ENDOUT 062662,001302: 062663,001303: 10,3522 40160 LINUSCHR CS PLAYTEM4 # IS THIS A LINUS 062664,001304: 10,3523 74675 MASK BIT14 062665,001305: 10,3524 10000 CCS A 062666,001306: 10,3525 16706 TCF Q+1 # NO 062667,001307: 10,3526 40157 CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE 062668,001308: 10,3527 50164 INDEX COPINDEX 062669,001309: 10,3530 60372 AD CADRFLSH 062670,001310: 10,3531 00006 EXTEND 062671,001311: 10,3532 13534 BZF +2 # YES 062672,001312: 062673,001313: 10,3533 00002 TC Q # NO 062674,001314: 10,3534 11012 CCS DSPLOCK # IS THE ASTRONAUT BUSY 062675,001315: 10,3535 05112 TC ENDOFJOB # END THE NEW DISPLAY, IT'S ALREADY ACTIVE 062676,001316: 10,3536 00002 TC Q 062677,001317: 062678,001318: # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD 062679,001319: 062680,001320: 10,3537 34712 PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS 062681,001321: 10,3540 13440 TCF ENDOUT 062682,001322: 062683,001323: # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK 062684,001324: # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY 062685,001325: # DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP. 062686,001326: 062687,001327: # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS 062688,001328: # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS 062689,001329: # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A 062690,001330: # PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART. 062691,001331: 062692,001332: 10,3541 46211 MARKRET CS SIX 062693,001333: 10,3542 70100 MASK FLAGWRD4 062694,001334: 10,3543 00004 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF 062695,001335: 10,3544 54100 TS FLAGWRD4 062696,001336: 062697,001337: 10,3545 00003 RELINT # INHINT REALM 062698,001338: 10,3546 13463 TCF ENDRET 062699,001339: 062700,001340: 10,3547 37716 MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET 062701,001341: 10,3550 54161 TS OUTHERE 062702,001342: # Page 1472 062703,001343: 10,3551 30100 CA FLAGWRD4 # IS ENDIDFLG SET 062704,001344: 10,3552 74371 MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE 062705,001345: 10,3553 10000 CCS A 062706,001346: 10,3554 13207 TCF NORMBNCH 062707,001347: 062708,001348: 10,3555 30100 NORMRET CA FLAGWRD4 # IS MARK SLEEPING 062709,001349: 10,3556 73652 MASK BITS5+11 # OR WAITING 062710,001350: 10,3557 10000 CCS A 062711,001351: 10,3560 13151 TCF MARKWAKE 062712,001352: 062713,001353: 10,3561 30100 CA FLAGWRD4 # NO 062714,001354: 10,3562 73653 MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING 062715,001355: 10,3563 10000 CCS A 062716,001356: 10,3564 13461 TCF NORMWAKE # YES 062717,001357: 062718,001358: 10,3565 31071 CA EBANKTEM # NO, WAS IT A FLASH REQUEST 062719,001359: 10,3566 74726 MASK OCT50 # OR A GODSPRET 062720,001360: 10,3567 10000 CCS A 062721,001361: 10,3570 13463 TCF ENDRET # YES 062722,001362: 10,3571 30371 CA NVSAVE 062723,001363: 10,3572 00006 EXTEND 062724,001364: 10,3573 13463 BZF ENDRET 062725,001365: 062726,001366: 10,3574 34762 CAF PRIO15 062727,001367: 10,3575 00004 INHINT 062728,001368: 10,3576 05027 TC NOVAC 062729,001369: 10,3577 0367 EBANK= NVWORD 062730,001370: 10,3577 02743 20100 2CADR PLAYJUM1 062731,001371: 062732,001372: 10,3601 13463 TCF ENDRET 062733,001373: 062734,001374: 10,3602 30100 MARSLEEP CA FLAGWRD4 # IS MARK ALREADY ON 062735,001375: 10,3603 73652 MASK BITS5+11 062736,001376: 10,3604 10000 CCS A 062737,001377: 10,3605 15112 TCF ENDOFJOB # YES 062738,001378: 10,3606 13102 TCF GOSLEEPS 062739,001379: 062740,001380: 10,3607 50157 LOADITIS INDEX COPMPAC 062741,001381: 10,3610 30367 CA NVWORD 062742,001382: 10,3611 76043 MASK LOW7 062743,001383: 10,3612 40000 COM 062744,001384: 10,3613 60155 AD MPAC +1 # NOUNREG 062745,001385: 10,3614 00006 EXTEND 062746,001386: 10,3615 13437 BZF OKTOENT # NO, THEN LOAD IS VALID 062747,001387: 10,3616 13176 TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN 062748,001388: 062749,001389: 10,3617 46214 ERASER CS THREE # BLANK EVERYTHING EXCEPT MM 062750,001390: 10,3620 04170 TC NVSUB 062751,001391: 10,3621 15112 TCF ENDOFJOB 062752,001392: # Page 1473 062753,001393: 10,3622 15112 TCF ENDOFJOB 062754,001394: 062755,001395: 10,3623 00036 PERFMASK OCT 0036 # FLASH, PERFORM, BLANK R2 AND R3 062756,001396: 10,3624 00231 V01N25 VN 00125 062757,001397: 10,3625 01407 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50 062758,001398: 10,3626 14400 V50N00 VN 5000 062759,001399: 10,3627 00030 PERF2MSK OCT 00030 # FLASH, PERFORM 062760,001400: 10,3630 01006 V04N06 VN 00406 062761,001401: 10,3631 00014 PERF4MSK OCT 14 # FLASH, BLANK R3 062762,001402: 10,3632 10,3176 GOAGIN EQUALS PINBRNCH 062763,001403: 10,3632 20010 REDOMASK OCT 20010 # BITS 4 AND 14 062764,001404: 10,3633 40230 MARK3MSK OCT 40230 # MARK, DECIMAL NOUN, PERFORM, FLASH 062765,001405: 10,3634 40036 MARK4MSK OCT 40036 # MARK, PERFORM, FLASH, BLANK 2 AND 3 062766,001406: 10,3635 20670 NVCADR CADR REDOPRIO 062767,001407: 10,3636 20530 WAKECADR CADR MARKPLAY 062768,001408: 10,3637 20743 CADR PLAYJUM1 062769,001409: 062770,001410: 10,3640 03400 OCT3400 OCT 3400 # EBANK MASK 062771,001411: 10,3641 11210 NBUSMASK OCT 11210 062772,001412: 10,3642 66521 PMMASK OCT 66521 062773,001413: 10,3643 4160 VERBMASK = MID7 # (OCT 37600) 062774,001414: 10,3643 01177 V05N00M1 OCT 1177 # V05 MINUS ONE 062775,001415: 10,3644 10,2461 GOXDSP EQUALS GOMARK 062776,001416: 10,3644 10,2501 GOXDSPR EQUALS GOMARKR 062777,001417: 10,3644 10,2465 GOXDSPF EQUALS GOMARKF 062778,001418: 10,3644 10,2504 GOXDSPFR EQUALS GOMARKFR 062779,001419: 10,3644 5423 ENDEXT EQUALS ENDMARK 062780,001420: 10,3644 0165 MPAC2SAV EQUALS BANKSET 062781,001421: 10,3644 00700 NVBUSMSK OCT 700 062782,001422: 10,3645 00704 ASTROMSK OCT 704 062783,001423: 10,3646 40030 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH 062784,001424: 10,3647 34300 OCT34300 OCT 34300 062785,001425: 10,3650 40100 BITS15+7 OCT 40100 062786,001426: 10,3651 00110 BITS7+4 OCT 110 062787,001427: 10,3652 1067 DSPFLG EQUALS EBANKSAV 062788,001428: 10,3652 1070 MARKFLAG EQUALS MARKEBAN 062789,001429: 10,3652 1071 SAVEFLAG EQUALS EBANKTEM 062790,001430: 10,3652 02020 BITS5+11 OCT 2020 # * DON'T MOVE 062791,001431: 10,3653 01010 BITS4+10 OCT 1010 # * DON'T MOVE 062792,001432: 10,3654 00026 LOWLOAD DEC 22 B-14 062793,001433: 10,3655 77730 BUSYMASK OCT 77730 062794,001434: 10,3656 00050 CADRMASK OCT 50 062795,001435: 10,3657 7707 PINMASK EQUALS 13,14,15 062796,001436: 10,3657 10,3216 GOPLAY EQUALS NVDSP 062797,001437: 10,3657 1073 PRIOSAVE EQUALS R1SAVE 062798,001438: 10,3657 0157 COPMPAC EQUALS MPAC +3 062799,001439: 10,3657 0160 TEMPOR2 EQUALS MPAC +4 062800,001440: 10,3657 0161 OUTHERE EQUALS MPAC +5 062801,001441: 10,3657 0164 COPINDEX EQUALS LOC 062802,001442: 10,3657 0163 USERPRIO EQUALS MODE 062803,001443: # Page 1474 062804,001444: 10,3657 0162 GENMASK EQUALS MPAC +6 062805,001445: 10,3657 20144 PRIOOCT OCT 20144 # PRIO 062806,001446: 10,3660 42424 MARKOCT OCT 42424 # MARK 062807,001447: 10,3661 11254 OCT 11254 # NORM 062808,001448: 062809,001449: 10,3662 74704 IDLESLEP OCT 74704 062810,001450: 10,3663 67777 OCT67777 OCT 67777 062811,001451: 10,3664 5415 LINUS EQUALS BLANKET 062812,001452: 10,3664 0154 FACEREG EQUALS MPAC 062813,001453: 10,3664 0155 PLAYTEM1 EQUALS MPAC +1 062814,001454: 10,3664 0157 PLAYTEM3 EQUALS MPAC +3 062815,001455: 10,3664 0160 PLAYTEM4 EQUALS MPAC +4 062816,001456: 10,3664 40420 OCT40420 OCT 40420 062817,001457: 10,3665 02674 MAKEGEN GENADR MAKEPLAY 062818,001458: 10,3666 10200 OCT10200 OCT 10200 062819,001459: 10,3667 30200 V97N00 VN 09700 # PASTE FOR V97 OR V99 062820,001460: 10,3670 20100 OCT20100 OCT 20100 062821,001461: 062822,001462: End of include-file DISPLAY_INTERFACE_ROUTINES.agc. Parent file is MAIN.agc