Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

059718,000002:                                                                                                 #  Copyright:    Public domain.
059719,000003:                                                                                                 #  Filename:      DISPLAY_INTERFACE_ROUTINES.agc
059720,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
059721,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
059722,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
059723,000007:                                                                                                 #  Assembler:    yaYUL
059724,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
059725,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
059726,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
059727,000011:                                                                                                 #  Mod history:  2011-04-17 JL    Adapted from corresponding Colossus 249 file.
059728,000012: 
059729,000013:                                                                                                 # # Page 1416
059730,000014:                                                                                                 #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
059731,000015: 
059732,000016:                                                                                                 #      1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
059733,000017:                                                                                                 #         OUT UNDER CRITICAL ALARM CONDITIONS.
059734,000018:                                                                                                 #      2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
059735,000019:                                                                                                 #      3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
059736,000020:                                                                                                 #         SEQUENCE OF EVENTS.
059737,000021:                                                                                                 #      4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
059738,000022:                                                                                                 #         MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
059739,000023: 
059740,000024: 
059741,000025:                                                                                                 #      5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
059742,000026:                                                                                                 #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
059743,000027: 
059744,000028:                                                                                                 #      1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
059745,000029:                                                                                                 #         (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
059746,000030:                                                                                                 #         BUT NOT WAITING FOR A RESPONSE.
059747,000031:                                                                                                 #      2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
059748,000032:                                                                                                 #         (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
059749,000033:                                                                                                 #         WAS ALREADY DOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
059750,000034:                                                                                                 #         OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
059751,000035:                                                                                                 #         HAS INFO SAVED FOR RESTART PURPOSES.
059752,000036: 
059753,000037: 
059754,000038:                                                                                                 #  DISPLAY PRIORITIES WORK AS FOLLOWS-
059755,000039: 
059756,000040:                                                                                                 #    INTERRUPTS-
059757,000041:                                                                                                 #      1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
059758,000042:                                                                                                 #      2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
059759,000043:                                                                                                 #      3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
059760,000044:                                                                                                 #         PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
059761,000045:                                                                                                 #      4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
059762,000046:                                                                                                 #      5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
059763,000047: 
059764,000048:                                                                                                 #    ORDER OF WAITING DISPLAYS-
059765,000049:                                                                                                 #      1. ASTRONAUT
059766,000050:                                                                                                 #      2. PRIORITY
059767,000051:                                                                                                 #      3. INTERRUPTED MARK
059768,000052:                                                                                                 #      4. INTERRUPTED NORMAL
059769,000053: 
059770,000054:                                                                                                 #      5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
059771,000055:                                                                                                 #      6. MARK WAITING
059772,000056:                                                                                                 #      7. NORMAL WAITING
059773,000057: 
059774,000058:                                                                                                 # # Page 1417
059775,000059:                                                                                                 #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
059776,000060:                                                                                                 #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
059777,000061:                                                                                                 #  WILL FOLLOW LATER):
059778,000062: 
059779,000063:                                                                                                 #       1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
059780,000064:                                                                                                 #           IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
059781,000065:                                                                                                 #           IS TO THE USERS CALLING LOC +1.
059782,000066:                                                                                                 #       2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
059783,000067:                                                                                                 #       3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
059784,000068:                                                                                                 #       4.  ALL ROUTIENS NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
059785,000069:                                                                                                 #           USERS JOB.
059786,000070:                                                                                                 #       5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
059787,000071:                                                                                                 #       6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
059788,000072:                                                                                                 #           DESCRIPTION OF RESTARTS).
059789,000073:                                                                                                 #       7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
059790,000074:                                                                                                 #           TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
059791,000075:                                                                                                 #           (V32) BRANCHES TO THE USERS CALL CADR +3.
059792,000076:                                                                                                 #       8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL
059793,000077: 
059794,000078:                                                                                                 #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
059795,000079: 
059796,000080:                                                                                                 #  GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
059797,000081: 
059798,000082:                                                                                                 #       1. GODSP IS NOT RESTARTABLE
059799,000083:                                                                                                 #       2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
059800,000084:                                                                                                 #                                                   CAF    VXXNYY
059801,000085:                                                                                                 #                                                   TC     BANKCALL
059802,000086:                                                                                                 #                                                   CADR   GODSP
059803,000087: 
059804,000088:                                                                                                 #                                         VXXNYY    OCT    OXXYY
059805,000089: 
059806,000090:                                                                                                 #  ODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
059807,000091: 
059808,000092:                                                                                                 #                                                   CAF    VXXNYY
059809,000093:                                                                                                 #                                                   TC     BANKCALL
059810,000094:                                                                                                 #                                                   CADR   GODSPR
059811,000095: 
059812,000096:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN OF GODSPR
059813,000097: 
059814,000098:                                                                                                 #  GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
059815,000099:                                                                                                 #  THE ASTRONAUT (SEE NO. 7 ABOVE).
059816,000100: 
059817,000101:                                                                                                 #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
059818,000102:                                                                                                 #                                                   TC     BANKCALL
059819,000103:                                                                                                 #                                                   CADR   GOFLASH
059820,000104:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059821,000105:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059822,000106:                                                                                                 #                                                   ...    ...             ENTER OR RECYCLE RETURN
059823,000107: 
059824,000108:                                                                                                 #  GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
059825,000109:                                                                                                 # # Page 1418
059826,000110:                                                                                                 #  V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
059827,000111:                                                                                                 #  USER (SEE NO. 7 ABOVE).
059828,000112: 
059829,000113:                                                                                                 #  GOPERF1 BLANKS REGISTERS R2 AND R3
059830,000114: 
059831,000115:                                                                                                 #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX
059832,000116:                                                                                                 #                                                   TC     BANKCALL
059833,000117:                                                                                                 #                                                   CADR   GOPERF1
059834,000118:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059835,000119:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059836,000120:                                                                                                 #                                                   ...    ...             ENTER RETURN
059837,000121: 
059838,000122:                                                                                                 #  GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
059839,000123:                                                                                                 #  REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
059840,000124:                                                                                                 #  DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
059841,000125: 
059842,000126:                                                                                                 #  GOPERF2 DOES NOT BLANK ANY REGISTERS
059843,000127: 
059844,000128:                                                                                                 #                                                   CAF    VXXNYY          VARIABLE NOUN YY. XX=0 OR 01.
059845,000129:                                                                                                 #                                                   TC     BANKCALL
059846,000130:                                                                                                 #                                                   CADR   GOPERF2
059847,000131:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059848,000132:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059849,000133:                                                                                                 #                                                   ...    ...             ENTER RETURN
059850,000134: 
059851,000135:                                                                                                 #  GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
059852,000136:                                                                                                 #  DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
059853,000137:                                                                                                 #  IS MADE TO THE USER (SEE NO. 7 ABOVE).
059854,000138: 
059855,000139:                                                                                                 #  GOPERF3 BLANKS REGISTERS R2 AND R3
059856,000140: 
059857,000141:                                                                                                 #                                                   CAF    DECXX           REQUEST PERFORM ON PXX
059858,000142:                                                                                                 #                                                   TC     BANKCALL
059859,000143:                                                                                                 #                                                   CADR   GOPERF3
059860,000144:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059861,000145:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059862,000146:                                                                                                 #                                                   ...    ...             ENTER RETURN
059863,000147: 
059864,000148:                                                                                                 #  GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
059865,000149:                                                                                                 #  GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING  V50N06 FOR A PLEASE PERFORM. NO
059866,000150:                                                                                                 #  IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
059867,000151: 
059868,000152:                                                                                                 #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTION XX
059869,000153:                                                                                                 #                                                   TC     BANKCALL
059870,000154:                                                                                                 #                                                   CADR   GOPERF4
059871,000155:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059872,000156:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059873,000157:                                                                                                 #                                                   ...    ...             ENTER RETURN
059874,000158: 
059875,000159:                                                                                                 #  GOPERF4 BLANKS REGISTER R3
059876,000160:                                                                                                 # # Page 1419
059877,000161:                                                                                                 #  GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
059878,000162:                                                                                                 #  OUT.
059879,000163: 
059880,000164:                                                                                                 #                                                   CAF    VXXNYY
059881,000165:                                                                                                 #                                                   TC     BANKCALL
059882,000166:                                                                                                 #                                                   CADR   GODSPRET
059883,000167: 
059884,000168:                                                                                                 #                                                   ...    ...             RETURN TO USER
059885,000169: 
059886,000170:                                                                                                 #  REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
059887,000171:                                                                                                 #  ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
059888,000172: 
059889,000173:                                                                                                 #                                                   CAF    VXXNYY
059890,000174:                                                                                                 #                                                   TC     BANKCALL
059891,000175:                                                                                                 #                                                   CADR   REGODSP
059892,000176: 
059893,000177:                                                                                                 #  REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
059894,000178: 
059895,000179:                                                                                                 #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
059896,000180:                                                                                                 #                                                   TC     BANKCALL
059897,000181:                                                                                                 #                                                   CADR   REFLASH
059898,000182:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059899,000183:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059900,000184:                                                                                                 #                                                   ...    ...             ENTER RETURN
059901,000185: 
059902,000186:                                                                                                 #  GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
059903,000187: 
059904,000188:                                                                                                 #                                                   CAF    VXXNYY
059905,000189:                                                                                                 #                                                   TC     BANKCALL
059906,000190:                                                                                                 #                                                   CADR   GOFLASHR
059907,000191:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059908,000192:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059909,000193:                                                                                                 #                                                   ...    ...             ENTER OR RECYCLE RETURN
059910,000194: 
059911,000195:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN FROM GOFLASHR
059912,000196: 
059913,000197:                                                                                                 #  GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
059914,000198: 
059915,000199:                                                                                                 #  GOPERF1R BLANKS REGISTERS R2 AND R3
059916,000200: 
059917,000201:                                                                                                 #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX.
059918,000202:                                                                                                 #                                                   TC     BANKCALL
059919,000203:                                                                                                 #                                                   CADR   GOPERF1R
059920,000204:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059921,000205:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059922,000206:                                                                                                 #                                                   ...    ...             ENTER RETURN
059923,000207: 
059924,000208:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN FROM GOPERF1R
059925,000209: 
059926,000210:                                                                                                 #  GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
059927,000211:                                                                                                 # # Page 1420
059928,000212:                                                                                                 #  GOPERF2R DOES NOT BLANK ANY REGISTERS
059929,000213: 
059930,000214:                                                                                                 #                                                   CAF    VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
059931,000215:                                                                                                 #                                                   TC     BANKCALL
059932,000216:                                                                                                 #                                                   CADR   GOPERF2R
059933,000217:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059934,000218:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059935,000219:                                                                                                 #                                                   ...    ...             ENTER RETURN
059936,000220: 
059937,000221:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN HERE FROM GOPERF2R
059938,000222: 
059939,000223:                                                                                                 #  GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
059940,000224: 
059941,000225:                                                                                                 #  GOPERF3R BLANKS REGISTERS R2 AND R3
059942,000226: 
059943,000227:                                                                                                 #                                                   CAF    PROGXX          PERFORM PROGRAM XX
059944,000228:                                                                                                 #                                                   TC     BANKCALL
059945,000229:                                                                                                 #                                                   CADR   GOPERF3R
059946,000230:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059947,000231:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059948,000232:                                                                                                 #                                                   ...    ...             ENTER RETURN
059949,000233: 
059950,000234:                                                                                                 #                                                   ...    ...             GOPERF3R IMMEDIATELY RETURNS HERE
059951,000235: 
059952,000236:                                                                                                 #  GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
059953,000237: 
059954,000238:                                                                                                 #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTIONXX
059955,000239:                                                                                                 #                                                   TC     BANKCALL
059956,000240:                                                                                                 #                                                   CADR   GOPERF4R
059957,000241:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059958,000242:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059959,000243:                                                                                                 #                                                   ...    ...             ENTER RETURN
059960,000244: 
059961,000245:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN TO USER
059962,000246: 
059963,000247:                                                                                                 #  GOPERF4R BLANKS REGISTER R3
059964,000248: 
059965,000249:                                                                                                 #  REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
059966,000250: 
059967,000251:                                                                                                 #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
059968,000252:                                                                                                 #                                                   TC     BANKCALL
059969,000253:                                                                                                 #                                                   CADR   REFLASHR
059970,000254:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
059971,000255:                                                                                                 #                                                   ...    ...             PROCEED RETURN
059972,000256:                                                                                                 #                                                   ...    ...             ENTER RETURN
059973,000257: 
059974,000258:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN TO USER
059975,000259: 
059976,000260:                                                                                                 #  REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
059977,000261: 
059978,000262:                                                                                                 # # Page 1421
059979,000263:                                                                                                 #                                                   CAF    VXXNYY
059980,000264:                                                                                                 #                                                   TC     BANKCALL
059981,000265:                                                                                                 #                                                   CADR   REGODSPR
059982,000266: 
059983,000267:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN TO USER
059984,000268: 
059985,000269:                                                                                                 # # Page 1422
059986,000270:                                                                                                 #  GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
059987,000271: 
059988,000272:                                                                                                 #  GOXDSP = GOMARK
059989,000273: 
059990,000274:                                                                                                 #                                                   CAF    VXXNYY          VXXNYY CONTAINS VERB AND NOUN
059991,000275:                                                                                                 #                                                   TC     BANKCALL
059992,000276:                                                                                                 #                                                   CADR   GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
059993,000277: 
059994,000278:                                                                                                 #  GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
059995,000279: 
059996,000280:                                                                                                 #  GOXDSPR = GOMARKR
059997,000281: 
059998,000282:                                                                                                 #                                                   CAF    VXXNYY
059999,000283:                                                                                                 #                                                   TC     BANKCALL
060000,000284:                                                                                                 #                                                   CADR   GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
060001,000285: 
060002,000286:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN OF GOMARKR
060003,000287: 
060004,000288:                                                                                                 #  GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
060005,000289:                                                                                                 #  THE ASTRONAUT (SEE NO. 7 ABOVE ).
060006,000290: 
060007,000291:                                                                                                 #  GOXDSPF = GOMARKF
060008,000292: 
060009,000293:                                                                                                 #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
060010,000294:                                                                                                 #                                                   TC     BANKCALL
060011,000295:                                                                                                 #                                                   CADR   GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
060012,000296:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
060013,000297:                                                                                                 #                                                   ...    ...             PROCEED RETURN
060014,000298:                                                                                                 #                                                   ...    ...             ENTER OR RECYCLE RETURN
060015,000299: 
060016,000300:                                                                                                 #  GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
060017,000301: 
060018,000302:                                                                                                 #  GOXDSPFR = GOMARKFR
060019,000303: 
060020,000304:                                                                                                 #                                                   CAF    VXXNYY          FLASHING MARK VERB NOUN
060021,000305:                                                                                                 #                                                   TC     BANKCALL
060022,000306:                                                                                                 #                                                   CADR   GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
060023,000307:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
060024,000308:                                                                                                 #                                                   ...    ...             PROCEED RETURN
060025,000309:                                                                                                 #                                                   ...    ...             ENTER OR RECYCLE RETURN
060026,000310: 
060027,000311:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
060028,000312: 
060029,000313:                                                                                                 #  GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
060030,000314:                                                                                                 #  RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
060031,000315:                                                                                                 #  MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
060032,000316:                                                                                                 #  OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
060033,000317: 
060034,000318:                                                                                                 #                                                   CAF    V5XNYY          X=1,2,3,4   Y= NOUN
060035,000319:                                                                                                 #                                                   TC     BANKCALL
060036,000320:                                                                                                 # # Page 1423
060037,000321:                                                                                                 #                                                   CADR   GOMARK1
060038,000322: 
060039,000323:                                                                                                 #                                                   ...    ...             ENTER RETURN
060040,000324: 
060041,000325:                                                                                                 #  *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
060042,000326: 
060043,000327:                                                                                                 #  GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
060044,000328:                                                                                                 #                                                   CAF    V5XNYY          X=1,2,3,4    YY = NOUN
060045,000329:                                                                                                 #                                                   TC     BANKCALL
060046,000330:                                                                                                 #                                                   CADR   GOMARK1R
060047,000331: 
060048,000332:                                                                                                 #                                                   ...    ...             ASTRONAUT ENTER RETURN
060049,000333:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN TO USER
060050,000334: 
060051,000335:                                                                                                 #  GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
060052,000336:                                                                                                 #                                                   CAF    V5XNYY          X=1,2,3,4   YY=NOUN
060053,000337:                                                                                                 #                                                   TC     BANKCALL
060054,000338:                                                                                                 #                                                   CADR   GOMARK2
060055,000339:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
060056,000340:                                                                                                 #                                                   ...    ...             PROCEED RETURN
060057,000341:                                                                                                 #                                                   ...    ...             ENTER RETURN
060058,000342:                                                                                                 #  GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
060059,000343: 
060060,000344:                                                                                                 #                                                   CAF    V5XNYY          X=0,1,2,3,4   YY=NOUN
060061,000345:                                                                                                 #                                                   TC     BANKCALL
060062,000346:                                                                                                 #                                                   CADR   GOMARK24
060063,000347:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
060064,000348:                                                                                                 #                                                   ...    ...             PROCEED RETURN
060065,000349:                                                                                                 #                                                   ...    ...             ENTER RETURN
060066,000350: 
060067,000351:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
060068,000352: 
060069,000353:                                                                                                 #  GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY.  THE DESIRED MARK PLEASE
060070,000354:                                                                                                 #  PERFORM VERB AND NOUN ARE ENTERED IN A.  GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
060071,000355:                                                                                                 #  V5XNYY FOR A PLEASE PERFORM.  GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
060072,000356: 
060073,000357:                                                                                                 #                                                   CAF    V5XNYY          X=1, 2,3,4 YY=NOUN
060074,000358:                                                                                                 #                                                   TC     BANKCALL
060075,000359:                                                                                                 #                                                   CADR   GOMARK3
060076,000360:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
060077,000361:                                                                                                 #                                                   ...    ...             PROCEED RETURN
060078,000362:                                                                                                 #                                                   ...    ...             ENTER RETURN
060079,000363: 
060080,000364:                                                                                                 #  GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
060081,000365: 
060082,000366:                                                                                                 #                                                   CAF    V5XNYY          X=1,2,3,4 YY=NOUN
060083,000367:                                                                                                 #                                                   TC     BANKCALL
060084,000368:                                                                                                 #                                                   CADR   GOMARK4
060085,000369:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
060086,000370:                                                                                                 #                                                   ...    ...             PROCEED RETURN
060087,000371:                                                                                                 # # Page 1424
060088,000372:                                                                                                 #                                                   ...    ...             ENTER RETURN
060089,000373: 
060090,000374:                                                                                                 #  EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
060091,000375:                                                                                                 #  SENT OUT.
060092,000376: 
060093,000377:                                                                                                 #                                                   CAF    VXNYY
060094,000378:                                                                                                 #                                                   TC     BANKCALL
060095,000379:                                                                                                 #                                                   CADR   EXDSPRET
060096,000380: 
060097,000381:                                                                                                 #                                                   ...    ...             RETURN TO USER
060098,000382: 
060099,000383:                                                                                                 #  KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
060100,000384:                                                                                                 #  HAVE BEEN CLEANED OUT.
060101,000385: 
060102,000386:                                                                                                 #                                                   TC     BANKCALL
060103,000387:                                                                                                 #                                                   CADR   KLEENEX
060104,000388: 
060105,000389:                                                                                                 #                                                   ...    ...             RETURN TO USER
060106,000390: 
060107,000391:                                                                                                 #  MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
060108,000392: 
060109,000393:                                                                                                 #                                                   TC     BANKCALL
060110,000394:                                                                                                 #                                                   CADR   MARKBRAN
060111,000395:                                                                                                 #                                                   ...    ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
060112,000396: 
060113,000397:                                                                                                 #                                                                          (GOOD RETURN TO IMMEDIATE RETURN LOC OF
060114,000398:                                                                                                 #                                                                          LAST FLASHING MARK R ROUTINE)
060115,000399: 
060116,000400:                                                                                                 #  PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
060117,000401:                                                                                                 #  BLANKED AND CONTROL IS SENT TO ENDOFJOB.
060118,000402: 
060119,000403:                                                                                                 #                                                   TC     POSTJUMP
060120,000404:                                                                                                 #                                                   CADR   PINBRNCH
060121,000405: 
060122,000406:                                                                                                 #  PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
060123,000407:                                                                                                 #  THE ASTRONAUT (SEE NO. 7 ABOVE).
060124,000408: 
060125,000409:                                                                                                 #       THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
060126,000410:                                                                                                 #  PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
060127,000411:                                                                                                 #  IS RESPONDED TO BY THE ASTRONAUT.
060128,000412: 
060129,000413:                                                                                                 #       THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
060130,000414:                                                                                                 #  PRIO DISPLAY.
060131,000415: 
060132,000416:                                                                                                 #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
060133,000417:                                                                                                 #                                                   TC     BANKCALL
060134,000418:                                                                                                 #                                                   CADR   PRIODSP
060135,000419:                                                                                                 #                                                   ...    ...             TERMINATE RETURN
060136,000420:                                                                                                 #                                                   ...    ...             PROCEED RETURN
060137,000421:                                                                                                 # # Page 1425
060138,000422:                                                                                                 #                                                   ...    ...             ENTER OR RECYCLE RETURN
060139,000423: 
060140,000424:                                                                                                 #  PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE  USERS CALL CADR +4.
060141,000425: 
060142,000426:                                                                                                 #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
060143,000427:                                                                                                 #                                                   TC     BANKCALL
060144,000428:                                                                                                 #                                                   CADR   PRIODSPR
060145,000429:                                                                                                 #                                                   ...    ...             TERMINATE ACTION
060146,000430:                                                                                                 #                                                   ...    ...             PROCEED RETURN
060147,000431:                                                                                                 #                                                   ...    ...             ENTER OR RECYCLE RETURN
060148,000432: 
060149,000433:                                                                                                 #                                                   ...    ...             IMMEDIATE RETURN
060150,000434: 
060151,000435:                                                                                                 #  PRIOLARM DOES A V05N09 PRIODSPR.
060152,000436:                                                                                                 #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
060153,000437:                                                                                                 #  DISPLAYS ARE CLEANED OUT.
060154,000438: 
060155,000439:                                                                                                 #                                                   TC     BANKCALL
060156,000440:                                                                                                 #                                                   CADR   CLEANDSP
060157,000441: 
060158,000442:                                                                                                 #                                                   ...    ...             RETURN TO USER
060159,000443: 
060160,000444:                                                                                                 # # Page 1426
060161,000445:                                                                                                 #  GENERAL INFORMATION
060162,000446:                                                                                                 #  ------- -----------
060163,000447: 
060164,000448: 
060165,000449:                                                                                                 #  ALARM OR ABORT EXIT MODES--
060166,000450: 
060167,000451:                                                                                                 #                                          PRIOBORT TC     ABORT
060168,000452:                                                                                                 #                                                   OCT    1502
060169,000453: 
060170,000454:                                                                                                 #  PRIOBORT IS BRANCED TO WHEN (1)  A NORMAL DISPLAY IS REQUESTED AND  ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
060171,000455:                                                                                                 #  (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
060172,000456:                                                                                                 #  ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
060173,000457: 
060174,000458: 
060175,000459:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED--
060176,000460: 
060177,000461:                                                                                                 #       ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
060178,000462:                                                                                                 #                                    2. NVSAVE = NORMAL VERB AND NOUN      REGISTER.
060179,000463:                                                                                                 #                                    3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
060180,000464: 
060181,000465: 
060182,000466:                                                                                                 #                                    5. R1SAVE = MARKBRAN CONTROL WORD
060183,000467:                                                                                                 #                                    4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
060184,000468:                                                                                                 #  OUTPUT--
060185,000469: 
060186,000470:                                                                                                 #       NVWORD = PRIO VERB AND NOUN
060187,000471:                                                                                                 #       NVWORD +1(MARKNV) = MARK VERB AND NOUN
060188,000472:                                                                                                 #       NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
060189,000473: 
060190,000474:                                                                                                 #       DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
060191,000475:                                                                                                 #       DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
060192,000476:                                                                                                 #       DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
060193,000477: 
060194,000478:                                                                                                 #       CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
060195,000479:                                                                                                 #       CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
060196,000480:                                                                                                 #       CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
060197,000481: 
060198,000482:                                                                                                 #       PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
060199,000483:                                                                                                 #       OPTION1 = DESIRED OPTION FROM GOPERF4
060200,000484:                                                                                                 #       FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
060201,000485:                                                                                                 #       DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
060202,000486:                                                                                                 #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
060203,000487:                                                                                                 #  JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
060204,000488:                                                                                                 #  DEBRIS-- (STORED INTO)
060205,000489: 
060206,000490:                                                                                                 #       TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
060207,000491:                                                                                                 #  EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1                      4, FACEREG
060208,000492:                                                                                                 #       ERASABLES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
060209,000493:                                                                                                 #       ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
060210,000494:                                                                                                 # # Page 1427
060211,000495:                                                                                                 #       R1SAVE, MARK2PAC
060212,000496: 
060213,000497: 
060214,000498:                                                                                                 #  DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
060215,000499:                                                                                                 #  FLAGWORD DESCRIPTIONS--
060216,000500:                                                                                                 #      FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
060217,000501: 
060218,000502:                                                                                                 #      DSPFLG, DSPFLG+1, DSPFLG+2-
060219,000503:                                                                                                 #      ---------------------------
060220,000504:                                                                                                 #  BITS 1 BLANK R1
060221,000505:                                                                                                 #       2 BLANK R2
060222,000506:                                                                                                 #       3 BLANK R3
060223,000507:                                                                                                 #       4 FLASHING DISPLAY REQUESTED
060224,000508:                                                                                                 #       5 PERFORM DISPLAY REQUESTED
060225,000509:                                                                                                 #       6 -----            EXDSPRET           GODSPRET
060226,000510:                                                                                                 #       7 PRIO DISPLAY     -----               -----
060227,000511:                                                                                                 #       8 -----         DEC MARK PERFORM      -----
060228,000512:                                                                                                 #       9 EBANK
060229,000513:                                                                                                 #      10 EBANK
060230,000514:                                                                                                 #      11 EBANK
060231,000515:                                                                                                 #      12 -----           -----       V99PASTE
060232,000516:                                                                                                 #      13 2ND PART OF PERFORM
060233,000517:                                                                                                 #      14 REFLASH OR REDO  -----           REFLASH OR REDO
060234,000518:                                                                                                 #      15 -----          MARK REQUEST          -----
060235,000519:                                                                                                 #  RESTARTING DISPLAYS--
060236,000520: 
060237,000521:                                                                                                 #  RULES FOR THE DSKY OPERATOR--
060238,000522: 
060239,000523:                                                                                                 #       1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
060240,000524:                                                                                                 #          AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
060241,000525:                                                                                                 #          RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
060242,000526:                                                                                                 #          WITH PROCEED AND TERMINATE FOR THIS REASON.
060243,000527:                                                                                                 #       2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
060244,000528:                                                                                                 #          PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
060245,000529:                                                                                                 #          DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
060246,000530:                                                                                                 #          IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
060247,000531:                                                                                                 #          OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
060248,000532:                                                                                                 #          CONSIDERATION.
060249,000533:                                                                                                 #       3. KEY RELEASE BUTTON-
060250,000534:                                                                                                 #          A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
060251,000535:                                                                                                 #          B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
060252,000536:                                                                                                 #             AWAITING RESPONSE  THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
060253,000537:                                                                                                 #          IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
060254,000538:                                                                                                 #          KEY RELEASE BUTTON MAY BE NECESSARY.
060255,000539:                                                                                                 #       4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
060256,000540:                                                                                                 #       5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
060257,000541:                                                                                                 #          OVER AGAIN.
060258,000542: 
060259,000543: 
060260,000544:                                                                                                 #  SPECIAL CONSIDERATONS--
060261,000545:                                                                                                 # # Page 1428
060262,000546:                                                                                                 #       1. MPAC +2  SAVED ONLY IN MARK DISPLAYS
060263,000547:                                                                                                 #       2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
060264,000548:                                                                                                 #       3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
060265,000549:                                                                                                 #       4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
060266,000550:                                                                                                 #       5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
060267,000551:                                                                                                 #          BY A .1 RESTART PHASE CHANGE.
060268,000552:                                                                                                 #       6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
060269,000553:                                                                                                 #          CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
060270,000554:                                                                                                 #       7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED  BEFORE THE TC BANKCALL.
060271,000555: 
060272,000556:                                                                                                 # # Page 1429
060273,000557:                                                                                                 #  CALLING SEQUENCE FOR BLANKING
060274,000558:                                                                                                 #                                                   CAF    BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
060275,000559:                                                                                                 #                                                   TC     BLANKET
060276,000560:                                                                                                 #                                                   ...    ...             RETURN TO USER HERE
060277,000561: 
060278,000562:                                                                                                 #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
060279,000563:                                                                                                 #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
060280,000564: 
060281,000565:    5415                                          BLOCK    02                                    
060282,000566:    4000                                          SETLOC   FFTAG4                                
060283,000567:    4000                                          BANK                                           
060284,000568: 
060285,000569:    5415                                          COUNT    02/DSPLA                              
060286,000570: 
060287,000571:    5415           54162        BLANKET           TS       MPAC       +6                         
060288,000572:    5416           40160                          CS       PLAYTEM4                              
060289,000573:    5417           70162                          MASK     MPAC       +6                         
060290,000574:    5420           50161                          INDEX    MPAC       +5                         
060291,000575:    5421           26160                          ADS      PLAYTEM4                              
060292,000576: 
060293,000577:    5422           00002                          TC       Q                                     
060294,000578: 
060295,000579:    5423           04574        ENDMARK           TC       POSTJUMP                              
060296,000580:    5424           20457                          CADR     MARKEND                               
060297,000581: 
060298,000582:    5425           34714        CLEARMRK          CAF      ZERO                                  
060299,000583:    5426           55044                          TS       EXTVBACT                              
060300,000584: 
060301,000585:    5427           00004                          INHINT                                         
060302,000586:    5430           44712                          CS       BIT1                                  
060303,000587:    5431           70100                          MASK     FLAGWRD4                              
060304,000588:    5432           54100                          TS       FLAGWRD4                              
060305,000589: 
060306,000590:    5433           00003                          RELINT                                         
060307,000591:    5434           00002                          TC       Q                                     
060308,000592:                                                                                                 #  *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
060309,000593:                                                                                                 #  FINISHED.
060310,000594: 
060311,000595: 10,2457                                          BANK     10                                    
060312,000596: 10,2000                                          SETLOC   DISPLAYS                              
060313,000597: 10,2000                                          BANK                                           
060314,000598: 
060315,000599: 10,2457                                          COUNT    10/DSPLA                              
060316,000600: 
060317,000601:                                                                                                 #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
060318,000602:                                                                                                 #  3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
060319,000603: 
060320,000604: 10,2457           05425        MARKEND           TC       CLEARMRK                              
060321,000605: 10,2460           13547                          TCF      MARKOVER                              
060322,000606: 
060323,000607:                                                                                                 # # Page 1430
060324,000608: 10,2461           54155        GOMARK            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP
060325,000609: 
060326,000610: 10,2462           34674        GOMARS            CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
060327,000611: 10,2463           12626                          TCF      GOFLASH2                              
060328,000612: 
060329,000613: 10,2464           34714        KLEENEX           CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
060330,000614: 10,2465           54155        GOMARKF           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
060331,000615: 
060332,000616: 10,2466           33157                          CAF      MARKFMSK                              #  MARK,FLASH
060333,000617: 10,2467           12626                          TCF      GOFLASH2                              
060334,000618: 
060335,000619: 10,2470           54155        GOMARK2           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
060336,000620: 10,2471           33646        MARKFORM          CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
060337,000621: 10,2472           12626                          TCF      GOFLASH2                              
060338,000622: 
060339,000623: 10,2473           54155        GOMARK3           TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
060340,000624: 10,2474           33633                          CAF      MARK3MSK                              
060341,000625: 10,2475           12626                          TCF      GOFLASH2                              
060342,000626: 
060343,000627: 10,2476           54155        GOMARK4           TS       PLAYTEM1                              
060344,000628: 10,2477           33634                          CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
060345,000629: 10,2500           12626                          TCF      GOFLASH2                              
060346,000630: 
060347,000631: 10,2501           54155        GOMARKR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSPR
060348,000632: 
060349,000633: 10,2502           34674                          CAF      BIT15                                 
060350,000634: 10,2503           12604                          TCF      GODSPR2                               
060351,000635: 
060352,000636: 10,2504           54155        GOMARKFR          TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
060353,000637: 
060354,000638: 10,2505           33157                          CAF      MARKFMSK                              
060355,000639: 10,2506           12765                          TCF      GODSPRS                               
060356,000640: 
060357,000641: 10,2507           54155        GOMARK2R          TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
060358,000642: 10,2510           33646                          CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
060359,000643: 10,2511           12765                          TCF      GODSPRS                               
060360,000644: 
060361,000645: 10,2512           54155        GOMARK3R          TS       PLAYTEM1                              
060362,000646: 10,2513           33633                          CAF      MARK3MSK                              
060363,000647: 10,2514           12765                          TCF      GODSPRS                               
060364,000648: 
060365,000649: 10,2515           34712        MAKEMARK          CAF      ONE                                   
060366,000650: 10,2516           03063                          TC       COPIES                                
060367,000651: 
060368,000652: 10,2517           30100                          CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
060369,000653: 10,2520           73647                          MASK     OCT34300                              
060370,000654: 10,2521           10000                          CCS      A                                     
060371,000655: 10,2522           12560                          TCF      CHKPRIO                               
060372,000656: 
060373,000657: 10,2523           30100                          CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY
060374,000658:                                                                                                 # # Page 1431
060375,000659: 10,2524           74702                          MASK     BIT9                                  
060376,000660: 
060377,000661: 10,2525           00006                          EXTEND                                         
060378,000662: 10,2526           12530                          BZF      MARKPLAY                              #  NO
060379,000663: 
060380,000664: 10,2527           15112                          TCF      ENDOFJOB                              
060381,000665: 
060382,000666: 10,2530           00004        MARKPLAY          INHINT                                         
060383,000667: 10,2531           44715                          CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
060384,000668: 10,2532           70100                          MASK     FLAGWRD4                              
060385,000669: 10,2533           64712                          AD       ONE                                   
060386,000670: 10,2534           54100                          TS       FLAGWRD4                              
060387,000671: 10,2535           00003                          RELINT                                         
060388,000672: 
060389,000673: 10,2536           41070        GOGOMARK          CS       MARKFLAG                              #  PERFORM
060390,000674: 10,2537           74706                          MASK     BIT5                                  
060391,000675: 10,2540           10000                          CCS      A                                     
060392,000676: 10,2541           12544                          TCF      MARKCOP                               
060393,000677: 10,2542           40370                          CS       MARKNV                                
060394,000678: 10,2543           54370                          TS       MARKNV                                
060395,000679: 
060396,000680: 10,2544           34712        MARKCOP           CAF      ONE                                   #  MARK INDEX
060397,000681: 10,2545           12744                          TCF      PRIOPLAY                              
060398,000682: 
060399,000683: 10,2546           30165        COPYTOGO          CA       MPAC2SAV                              
060400,000684: 10,2547           54156                          TS       MPAC       +2                         
060401,000685: 
060402,000686: 10,2550           50164        COPYPACS          INDEX    COPINDEX                              
060403,000687: 10,2551           33657                          CAF      PRIOOCT                               
060404,000688: 10,2552           54162                          TS       GENMASK                               
060405,000689: 
060406,000690: 10,2553           50164                          INDEX    COPINDEX                              
060407,000691: 10,2554           31067                          CAF      EBANKSAV                              
060408,000692: 10,2555           54160                          TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
060409,000693: 
060410,000694: 10,2556           54003                          TS       EBANK                                 
060411,000695: 
060412,000696: 10,2557           00002                          TC       Q                                     
060413,000697: 
060414,000698:                                                                                                 #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
060415,000699:                                                                                                 #  (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
060416,000700:                                                                                                 #  REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
060417,000701:                                                                                                 #  UNTIL ALL MARKING IS FINISHED.
060418,000702: 
060419,000703:                                                                                                 #       IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
060420,000704:                                                                                                 #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
060421,000705: 
060422,000706: 10,2560           30100        CHKPRIO           CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
060423,000707: 10,2561           73402                          MASK     OCT24100                              
060424,000708: 10,2562           10000                          CCS      A                                     
060425,000709: 10,2563           13602                          TCF      MARSLEEP                              
060426,000710:                                                                                                 # # Page 1432
060427,000711: 10,2564           40100                          CS       FLAGWRD4                              
060428,000712: 10,2565           74710                          MASK     BIT3                                  #  SET MARK OVER NORM
060429,000713: 10,2566           00004                          INHINT                                         
060430,000714: 10,2567           26100                          ADS      FLAGWRD4                              
060431,000715: 
060432,000716: 10,2570           12662                          TCF      SETNORM                               
060433,000717: 
060434,000718: 10,2571           30370        MARKPERF          CA       MARKNV                                
060435,000719: 10,2572           74160                          MASK     VERBMASK                              
060436,000720: 10,2573           13246                          TCF      NV50DSP                               
060437,000721: 
060438,000722: 10,2574           54155        GODSP             TS       PLAYTEM1                              
060439,000723: 
060440,000724: 10,2575           34714        GODSP2            CAF      ZERO                                  
060441,000725: 10,2576           12626                          TCF      GOFLASH2                              
060442,000726: 
060443,000727: 10,2577           54155        GODSPRET          TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
060444,000728: 
060445,000729: 10,2600           34705                          CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
060446,000730: 10,2601           12626                          TCF      GOFLASH2                              
060447,000731: 
060448,000732: 10,2602           54155        GODSPR            TS       PLAYTEM1                              
060449,000733: 
060450,000734: 10,2603           34714        GODSPR1           CAF      ZERO                                  
060451,000735: 10,2604           54160        GODSPR2           TS       PLAYTEM4                              
060452,000736: 
060453,000737: 10,2605           34714                          CAF      ZERO                                  #  * DONT MOVE
060454,000738: 10,2606           12767                          TCF      GODSPRS1                              
060455,000739: 
060456,000740:                                                                                                 #       CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
060457,000741:                                                                                                 #  SET UP TO BE STARTED OR RESTARTED.
060458,000742: 
060459,000743:                                                                                                 #       NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
060460,000744:                                                                                                 #  OLD DISPLAY.
060461,000745: 
060462,000746:                                                                                                 #       CALLING SEQUENCE FOR CLEANDSP-
060463,000747: 
060464,000748:                                                                                                 #                                                   TC     BANKCALL
060465,000749:                                                                                                 #                                                   CADR   CLEANDSP
060466,000750: 
060467,000751: 10,2607           34714        CLEANDSP          CAF      ZERO                                  
060468,000752: 10,2610           54155        REFLASH           TS       PLAYTEM1                              
060469,000753: 
060470,000754: 10,2611           33632                          CAF      REDOMASK                              #  FLASH AND PERMIT
060471,000755: 10,2612           12626                          TCF      GOFLASH2                              
060472,000756: 
060473,000757: 10,2613           54155        REFLASHR          TS       PLAYTEM1                              
060474,000758: 
060475,000759: 10,2614           33632                          CAF      REDOMASK                              #  FLASH AND PERMIT
060476,000760: 10,2615           12765                          TCF      GODSPRS                               
060477,000761:                                                                                                 # # Page 1433
060478,000762: 10,2616           54155        REGODSP           TS       PLAYTEM1                              
060479,000763: 
060480,000764: 10,2617           34675                          CAF      BIT14                                 
060481,000765: 10,2620           12626                          TCF      GOFLASH2                              
060482,000766: 
060483,000767: 10,2621           54155        REGODSPR          TS       PLAYTEM1                              
060484,000768: 
060485,000769: 10,2622           34675                          CAF      BIT14                                 
060486,000770: 10,2623           12604                          TCF      GODSPR2                               
060487,000771: 
060488,000772: 10,2624           54155        GOFLASH           TS       PLAYTEM1                              
060489,000773: 
060490,000774: 10,2625           34707                          CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
060491,000775: 10,2626           54160        GOFLASH2          TS       PLAYTEM4                              
060492,000776: 
060493,000777: 10,2627           03050                          TC       SAVELOCS                              
060494,000778: 
060495,000779: 10,2630           00003                          RELINT                                         
060496,000780: 
060497,000781: 10,2631           12674                          TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
060498,000782: 
060499,000783: 10,2632           54155        PRIODSPR          TS       PLAYTEM1                              
060500,000784: 
060501,000785: 10,2633           33651                          CAF      BITS7+4                               
060502,000786: 10,2634           12765                          TCF      GODSPRS                               
060503,000787: 
060504,000788: 10,2635           54155        PRIODSP           TS       PLAYTEM1                              
060505,000789: 
060506,000790: 10,2636           33651        SETPRIO           CAF      BITS7+4                               
060507,000791: 10,2637           12626                          TCF      GOFLASH2                              
060508,000792: 
060509,000793: 10,2640           34714        MAKEPRIO          CAF      ZERO                                  
060510,000794: 10,2641           54164                          TS       COPINDEX                              
060511,000795: 
060512,000796: 10,2642           03522                          TC       LINUSCHR                              
060513,000797: 10,2643           12650                          TCF      HIPRIO                                #  LINUS RETURN
060514,000798: 10,2644           30100                          CA       FLAGWRD4                              
060515,000799: 10,2645           73670                          MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
060516,000800: 10,2646           10000                          CCS      A                                     
060517,000801: 10,2647           12723                          TCF      PRIOBORT                              #  YES, ABORT
060518,000802: 
060519,000803: 10,2650           30100        HIPRIO            CA       FLAGWRD4                              #  MARK ACTIVE
060520,000804: 10,2651           75612                          MASK     OCT40400                              
060521,000805: 10,2652           00006                          EXTEND                                         
060522,000806: 10,2653           12656                          BZF      ASKIFNRM                              #  NO
060523,000807: 
060524,000808: 10,2654           34714        SETMARK           CAF      ZERO                                  
060525,000809: 10,2655           13122                          TCF      JOBXCHS                               
060526,000810: 
060527,000811: 10,2656           30100        ASKIFNRM          CA       FLAGWRD4                              #  NORMAL ACTIVE
060528,000812:                                                                                                 # # Page 1434
060529,000813: 10,2657           73666                          MASK     OCT10200                              #  BITS 13+8
060530,000814: 10,2660           00006                          EXTEND                                         
060531,000815: 10,2661           12664                          BZF      OKTOCOPY                              #  NO
060532,000816: 
060533,000817: 10,2662           34712        SETNORM           CAF      ONE                                   
060534,000818: 10,2663           13122                          TCF      JOBXCHS                               
060535,000819: 
060536,000820: 10,2664           03062        OKTOCOPY          TC       COPYNORM                              
060537,000821: 10,2665           03333                          TC       WITCHONE                              
060538,000822: 
060539,000823: 10,2666           05074                          TC       JOBWAKE                               
060540,000824: 
060541,000825: 10,2667           03350                          TC       XCHTOEND                              
060542,000826: 
060543,000827: 10,2670           30025        REDOPRIO          CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
060544,000828: 10,2671           55147                          TS       PRIOTIME                              
060545,000829: 
060546,000830: 10,2672           34714        KEEPPRIO          CAF      ZERO                                  #  START UP PRIO DISPLAY
060547,000831: 10,2673           12744                          TCF      PRIOPLAY                              
060548,000832: 
060549,000833: 10,2674           30167        MAKEPLAY          CA       PRIORITY                              #  SAVE USERS PRIORITY
060550,000834: 10,2675           77674                          MASK     PRIO37                                
060551,000835: 10,2676           54163                          TS       USERPRIO                              
060552,000836: 
060553,000837: 10,2677           37670                          CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
060554,000838: 10,2700           05103                          TC       PRIOCHNG                              
060555,000839: 
060556,000840: 10,2701           30160                          CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
060557,000841: 10,2702           73650                          MASK     BITS15+7                              
060558,000842: 10,2703           10000                          CCS      A                                     
060559,000843: 10,2704           12640                          TCF      MAKEPRIO                              #  ITS PRIO
060560,000844: 10,2705           12707                          TCF      IFLEGAL                               
060561,000845: 10,2706           12515                          TCF      MAKEMARK                              #  ITS MARK
060562,000846: 
060563,000847: 10,2707           34711        IFLEGAL           CAF      TWO                                   
060564,000848: 10,2710           54164                          TS       COPINDEX                              
060565,000849: 
060566,000850: 10,2711           03522                          TC       LINUSCHR                              
060567,000851: 
060568,000852: 10,2712           12725                          TCF      OKTOPLAY                              #  LINUS RETURN
060569,000853: 10,2713           41071                          CS       EBANKTEM                              
060570,000854: 10,2714           74707                          MASK     BIT4                                  
060571,000855: 10,2715           10000                          CCS      A                                     
060572,000856: 10,2716           12725                          TCF      OKTOPLAY                              #  NO
060573,000857: 
060574,000858: 10,2717           30100                          CA       FLAGWRD4                              #  WAS NORM ASLEEP
060575,000859: 10,2720           73641                          MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
060576,000860: 10,2721           00006                          EXTEND                                         
060577,000861: 10,2722           12725                          BZF      OKTOPLAY                              #  NO
060578,000862: 
060579,000863:                                                                                                 # # Page 1435
060580,000864: 10,2723           05622        PRIOBORT          TC       POODOO                                
060581,000865: 10,2724           01502                          OCT      1502                                  
060582,000866: 
060583,000867: 10,2725           03064        OKTOPLAY          TC       COPIES2                               
060584,000868: 
060585,000869: 10,2726           30163                          CA       USERPRIO                              
060586,000870: 10,2727           00006                          EXTEND                                         
060587,000871: 10,2730           04007                          ROR      SUPERBNK                              
060588,000872: 10,2731           54366                          TS       RESTREG                               
060589,000873: 
060590,000874: 10,2732           30100                          CA       FLAGWRD4                              #  PRIO OR MARK GOING
060591,000875: 10,2733           73642                          MASK     PMMASK                                
060592,000876: 10,2734           10000                          CCS      A                                     
060593,000877: 10,2735           13102                          TCF      GOSLEEPS                              #  YES
060594,000878: 
060595,000879: 10,2736           12740                          TCF      +2                                    
060596,000880: 10,2737           13102                          TCF      GOSLEEPS                              #  MARK GOING
060597,000881: 
060598,000882:                                                                                                 #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
060599,000883: 10,2740           03333                          TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
060600,000884: 10,2741           05074                          TC       JOBWAKE                               
060601,000885: 
060602,000886: 10,2742           03350                          TC       XCHTOEND                              
060603,000887: 
060604,000888: 10,2743           34711        PLAYJUM1          CAF      TWO                                   
060605,000889: 10,2744           54164        PRIOPLAY          TS       COPINDEX                              
060606,000890: 
060607,000891: 10,2745           13216                          TCF      GOPLAY                                
060608,000892: 
060609,000893: 10,2746           54155        EXDSPRET          TS       PLAYTEM1                              
060610,000894: 
060611,000895: 10,2747           37703                          CAF      BIT15+6                               
060612,000896: 10,2750           12626                          TCF      GOFLASH2                              
060613,000897: 
060614,000898: 10,2751           55045        GOPERF1           TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
060615,000899: 10,2752           33624                          CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
060616,000900: 
060617,000901: 10,2753           54155        GOPERFS           TS       PLAYTEM1                              
060618,000902: 
060619,000903: 10,2754           33623                          CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
060620,000904: 10,2755           12626                          TCF      GOFLASH2                              
060621,000905: 
060622,000906: 10,2756           54155        GOPERF2           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
060623,000907: 
060624,000908: 10,2757           33627                          CAF      PERF2MSK                              
060625,000909: 10,2760           12626                          TCF      GOFLASH2                              
060626,000910: 
060627,000911: 10,2761           03043        GOPERF4           TC       PURRS4                                
060628,000912: 
060629,000913: 10,2762           12626                          TCF      GOFLASH2                              
060630,000914:                                                                                                 # # Page 1436
060631,000915: 10,2763           54155        GOFLASHR          TS       PLAYTEM1                              
060632,000916: 
060633,000917: 10,2764           34707                          CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
060634,000918: 10,2765           54160        GODSPRS           TS       PLAYTEM4                              
060635,000919: 
060636,000920: 10,2766           36214                          CAF      THREE                                 
060637,000921: 
060638,000922: 10,2767           00004        GODSPRS1          INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
060639,000923: 10,2770           54072                          TS       RUPTREG3                              
060640,000924: 
060641,000925: 10,2771           30167                          CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
060642,000926: 10,2772           77674                          MASK     PRIO37                                
060643,000927: 10,2773           54063                          TS       NEWPRIO                               
060644,000928: 
060645,000929: 10,2774           30160                          CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
060646,000930: 10,2775           74707                          MASK     BIT4                                  
060647,000931: 10,2776           10000                          CCS      A                                     
060648,000932: 10,2777           13005                          TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
060649,000933: 10,3000           30063                          CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
060650,000934: 10,3001           05027                          TC       NOVAC                                 
060651,000935: 10,3002  0003777                                 EBANK=   WHOCARES                              
060652,000936: 10,3002           02674 20067                    2CADR    MAKEPLAY                              
060653,000937: 10,3004           13013                          TCF      BOTHJOBS                              
060654,000938: 
060655,000939: 10,3005           30006        VACDSP            CA       BBANK                                 
060656,000940: 10,3006           00006                          EXTEND                                         
060657,000941: 10,3007           04007                          ROR      SUPERBNK                              
060658,000942: 10,3010           54001                          TS       L                                     
060659,000943: 10,3011           33665                          CAF      MAKEGEN                               
060660,000944: 10,3012           05053                          TC       SPVAC                                 
060661,000945: 
060662,000946: 10,3013           03050        BOTHJOBS          TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
060663,000947: 
060664,000948: 10,3014           00006                          EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
060665,000949: 10,3015           30156                          DCA      MPAC       +1                         
060666,000950: 10,3016           50064                          INDEX    LOCCTR                                
060667,000951: 10,3017           52156                          DXCH     MPAC       +1                         
060668,000952: 
060669,000953: 10,3020           00006                          EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
060670,000954: 10,3021           30160                          DCA      MPAC       +3                         
060671,000955: 10,3022           50064                          INDEX    LOCCTR                                
060672,000956: 10,3023           52160                          DXCH     MPAC       +3                         
060673,000957: 
060674,000958: 10,3024           30064                          CA       LOCCTR                                
060675,000959: 10,3025           54161                          TS       MPAC       +5                         
060676,000960: 
060677,000961: 10,3026           03055                          TC       SAVELOCR                              
060678,000962: 10,3027           00003                          RELINT                                         
060679,000963: 
060680,000964:                                                                                                 # # Page 1437
060681,000965: 10,3030           14577                          TCF      BANKJUMP                              #  CALL CADR +4
060682,000966: 
060683,000967: 10,3031           55045        GOPERF1R          TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
060684,000968: 
060685,000969: 10,3032           33624                          CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
060686,000970: 
060687,000971: 10,3033           54155        GOPERFRS          TS       PLAYTEM1                              
060688,000972: 
060689,000973: 10,3034           33623                          CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
060690,000974: 10,3035           12765                          TCF      GODSPRS                               
060691,000975: 
060692,000976: 10,3036           54155        GOPERF2R          TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
060693,000977: 
060694,000978: 10,3037           33627                          CAF      PERF2MSK                              
060695,000979: 10,3040           12765                          TCF      GODSPRS                               
060696,000980: 
060697,000981: 10,3041           03043        GOPERF4R          TC       PURRS4                                
060698,000982: 
060699,000983: 10,3042           12765                          TCF      GODSPRS                               
060700,000984: 
060701,000985: 10,3043           55131        PURRS4            TS       OPTION1                               #  DESIRED OPTION CODE
060702,000986: 
060703,000987: 10,3044           33630                          CAF      V04N06                                
060704,000988: 10,3045           54155                          TS       PLAYTEM1                              
060705,000989: 
060706,000990: 10,3046           33631                          CAF      PERF4MSK                              #  FLASH,PERFORM AND EBANK R3
060707,000991: 10,3047           00002                          TC       Q                                     
060708,000992: 
060709,000993: 10,3050           00004        SAVELOCS          INHINT                                         
060710,000994: 
060711,000995: 10,3051           43640                          CS       OCT3400                               #  EBANK BITS
060712,000996: 10,3052           70160                          MASK     PLAYTEM4                              
060713,000997: 10,3053           60003                          AD       EBANK                                 
060714,000998: 10,3054           54160                          TS       PLAYTEM4                              
060715,000999: 
060716,001000: 10,3055           22002        SAVELOCR          LXCH     Q                                     
060717,001001: 
060718,001002: 10,3056           04604                          TC       MAKECADR                              
060719,001003: 10,3057           54157                          TS       PLAYTEM3                              
060720,001004: 
060721,001005: 10,3060           60072                          AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
060722,001006: 10,3061           00001                          TC       L                                     
060723,001007: 
060724,001008: 10,3062           34714        COPYNORM          CAF      ZERO                                  
060725,001009: 10,3063           54164        COPIES            TS       COPINDEX                              
060726,001010: 10,3064           00004        COPIES2           INHINT                                         
060727,001011: 10,3065           30160                          CA       PLAYTEM4                              #  FLAGWORD
060728,001012: 10,3066           50164                          INDEX    COPINDEX                              
060729,001013: 10,3067           55067                          TS       EBANKSAV                              #  EQUIV TO DSPFLG
060730,001014: 
060731,001015:                                                                                                 # # Page 1438
060732,001016: 10,3070           73656                          MASK     CADRMASK                              #  FLASH AND GODSPRET
060733,001017: 10,3071           00006                          EXTEND                                         
060734,001018: 10,3072           13076                          BZF      SKIPADD                               
060735,001019: 
060736,001020: 10,3073           30157                          CA       PLAYTEM3                              
060737,001021: 10,3074           50164                          INDEX    COPINDEX                              
060738,001022: 10,3075           54372                          TS       CADRFLSH                              
060739,001023: 
060740,001024: 10,3076           30155        SKIPADD           CA       PLAYTEM1                              #  VERB NOUN
060741,001025: 10,3077           50164                          INDEX    COPINDEX                              
060742,001026: 10,3100           54367                          TS       NVWORD                                
060743,001027: 
060744,001028: 10,3101           13357                          TCF      RELINTQ                               
060745,001029: 
060746,001030: 10,3102           50164        GOSLEEPS          INDEX    COPINDEX                              
060747,001031: 10,3103           33657                          CA       PRIOOCT                               
060748,001032: 10,3104           73106                          MASK     WAITMASK                              
060749,001033: 10,3105           07717                          TC       UPENT2                                
060750,001034: 10,3106           03004        WAITMASK          OCT      3004                                  
060751,001035: 10,3107           44712                          CS       ONE                                   
060752,001036: 10,3110           60164                          AD       COPINDEX                              
060753,001037: 10,3111           54154                          TS       FACEREG                               
060754,001038: 
060755,001039: 10,3112           50154        XCHSLEEP          INDEX    FACEREG                               
060756,001040: 10,3113           33636                          CAF      WAKECADR                              
060757,001041: 10,3114           00004                          INHINT                                         
060758,001042: 10,3115           05074                          TC       JOBWAKE                               #  FIND CADR IN JOB AREA
060759,001043: 
060760,001044: 10,3116           03350                          TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
060761,001045: 
060762,001046: 10,3117           50154                          INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
060763,001047: 10,3120           33636                          CAF      WAKECADR                              
060764,001048: 10,3121           15070                          TCF      JOBSLEEP                              
060765,001049: 
060766,001050: 10,3122           54154        JOBXCHS           TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
060767,001051: 10,3123           03333                          TC       WITCHONE                              
060768,001052: 10,3124           05074                          TC       JOBWAKE                               
060769,001053: 10,3125           30154                          CA       FACEREG                               
060770,001054: 10,3126           50064                          INDEX    LOCCTR                                
060771,001055: 10,3127           54154                          TS       FACEREG                               
060772,001056: 
060773,001057: 10,3130           33143                          CAF      XCHQADD                               
060774,001058: 10,3131           03351                          TC       XCHNYLOC                              
060775,001059: 
060776,001060: 10,3132           50154                          INDEX    FACEREG                               
060777,001061: 10,3133           33660                          CA       MARKOCT                               
060778,001062: 10,3134           73662                          MASK     IDLESLEP                              
060779,001063: 10,3135           07735                          TC       DOWNENT2                              
060780,001064: 10,3136           74004        IDLEMASK          OCT      74004                                 #  * DONT MOVE
060781,001065: 
060782,001066:                                                                                                 # # Page 1439
060783,001067: 10,3137           50154                          INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
060784,001068: 10,3140           34706                          CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL
060785,001069: 10,3141           64710                          AD       FOUR                                  
060786,001070: 10,3142           07717                          TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
060787,001071: 10,3143           03112        XCHQADD           GENADR   XCHSLEEP                              #  * DONT MOVE
060788,001072: 10,3144           30100                          CA       FLAGWRD4                              
060789,001073: 10,3145           74710                          MASK     BIT3                                  #  IF BIT3 THEN MARK OVER NORM
060790,001074: 10,3146           10000                          CCS      A                                     
060791,001075: 10,3147           02530        GENMARK           TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
060792,001076: 10,3150           12664                          TCF      OKTOCOPY                              
060793,001077: 
060794,001078: 10,3151           34714        MARKWAKE          CAF      ZERO                                  
060795,001079: 10,3152           54160        WAKEPLAY          TS       TEMPOR2                               
060796,001080: 
060797,001081: 10,3153           50160                          INDEX    TEMPOR2                               
060798,001082: 10,3154           33652                          CA       BITS5+11                              
060799,001083: 10,3155           64710                          AD       FOUR                                  
060800,001084: 10,3156           07735                          TC       DOWNENT2                              
060801,001085: 10,3157           40010        MARKFMSK          OCT      40010                                 #  ***DONT MOVE
060802,001086: 
060803,001087: 10,3160           50160                          INDEX    TEMPOR2                               
060804,001088: 10,3161           33636                          CAF      WAKECADR                              
060805,001089: 10,3162           00004                          INHINT                                         
060806,001090: 10,3163           05074                          TC       JOBWAKE                               
060807,001091: 
060808,001092: 10,3164           13463                          TCF      ENDRET                                
060809,001093: 
060810,001094:                                                                                                 #       ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
060811,001095:                                                                                                 #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
060812,001096:                                                                                                 #       IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
060813,001097:                                                                                                 #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
060814,001098: 
060815,001099: 10,3165           31071        INITDSP           CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
060816,001100: 10,3166           54003                          TS       EBANK                                 
060817,001101: 
060818,001102: 10,3167           30366                          CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
060819,001103: 10,3170           04666                          TC       SUPERSW                               #  RESTORE SUPERBANK
060820,001104: 
060821,001105: 10,3171           77674                          MASK     PRIO37                                
060822,001106: 10,3172           05103                          TC       PRIOCHNG                              
060823,001107: 
060824,001108: 10,3173           46214                          CS       THREE                                 
060825,001109: 10,3174           60374                          AD       TEMPFLSH                              
060826,001110: 10,3175           14577                          TCF      BANKJUMP                              
060827,001111: 
060828,001112: 10,3176           00003        PINBRNCH          RELINT                                         #  FOR GOPIN USERS
060829,001113: 10,3177           31072                          CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
060830,001114: 10,3200           54156                          TS       MPAC       +2                         #  ONLY
060831,001115: 
060832,001116: 10,3201           30100                          CA       FLAGWRD4                              #  PINBRANCH CONDITION
060833,001117:                                                                                                 # # Page 1440
060834,001118: 10,3202           77707                          MASK     PINMASK                               
060835,001119: 10,3203           10000                          CCS      A                                     
060836,001120: 10,3204           13207                          TCF      +3                                    
060837,001121: 10,3205           13617                          TCF      ERASER                                #  ** NOTHING IN ENDIDLE
060838,001122: 10,3206           12530                          TCF      MARKPLAY                              
060839,001123: 
060840,001124: 10,3207           05435        NORMBNCH          TC       UPFLAG                                #  SET PINBRANCH BIT
060841,001125: 10,3210           00105                          ADRES    PINBRFLG                              
060842,001126: 
060843,001127: 10,3211           34675                          CAF      BIT14                                 #  PRIO INTERRUPTED
060844,001128: 10,3212           70100                          MASK     FLAGWRD4                              
060845,001129: 10,3213           10000                          CCS      A                                     
060846,001130: 10,3214           12672                          TCF      KEEPPRIO                              
060847,001131: 
060848,001132: 10,3215           12743                          TCF      PLAYJUM1                              
060849,001133: 
060850,001134: 10,3216           02550        NVDSP             TC       COPYPACS                              
060851,001135: 
060852,001136: 10,3217           30160                          CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
060853,001137: 10,3220           74716                          MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
060854,001138: 10,3221           54001                          TS       L                                     
060855,001139: 
060856,001140: 10,3222           44676                          CS       BIT13                                 
060857,001141: 10,3223           50164                          INDEX    COPINDEX                              
060858,001142: 10,3224           71067                          MASK     DSPFLG                                
060859,001143: 10,3225           50164                          INDEX    COPINDEX                              
060860,001144: 10,3226           55067                          TS       DSPFLG                                
060861,001145: 
060862,001146: 10,3227           74703                          MASK     BIT8                                  #  BIT8 SET IF DEC MARK PERFORM DISPLAY
060863,001147: 10,3230           54141                          TS       TEM1                                  
060864,001148: 
060865,001149: 10,3231           30156                          CA       MPAC       +2                         
060866,001150: 10,3232           54165                          TS       MPAC2SAV                              
060867,001151: 
060868,001152: 10,3233           55072                          TS       MARK2PAC                              #  * FOR DISK ONLY *
060869,001153: 10,3234           50164                          INDEX    COPINDEX                              
060870,001154: 10,3235           10367                          CCS      NVWORD                                
060871,001155: 10,3236           13245                          TCF      NVDSP1                                
060872,001156: 10,3237           13361                          TCF      CLEANEND                              
060873,001157: 10,3240           40370                          CS       MARKNV                                
060874,001158: 10,3241           54370                          TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
060875,001159: 10,3242           76043                          MASK     LOW7                                  
060876,001160: 10,3243           63643                          AD       V05N00M1                              
060877,001161: 10,3244           60141                          AD       TEM1                                  
060878,001162: 10,3245           64712        NVDSP1            AD       ONE                                   
060879,001163: 10,3246           04171        NV50DSP           TC       NVMONOPT                              
060880,001164: 10,3247           13373                          TCF      REST                                  #  IF BUSY
060881,001165: 10,3250           04447                          TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
060882,001166: 
060883,001167: 10,3251           02546                          TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
060884,001168:                                                                                                 # # Page 1441
060885,001169: 10,3252           05447                          TC       DOWNFLAG                              #  UNSET SLEEPING BITS
060886,001170: 10,3253           00102                          ADRES    MRKNVFLG                              
060887,001171: 10,3254           05447                          TC       DOWNFLAG                              
060888,001172: 10,3255           00103                          ADRES    NRMNVFLG                              
060889,001173: 10,3256           05447                          TC       DOWNFLAG                              
060890,001174: 10,3257           00104                          ADRES    PRONVFLG                              
060891,001175: 10,3260           30160        BLANKCHK          CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
060892,001176: 10,3261           04271                          TC       BLANKSUB                              
060893,001177: 10,3262           13216                          TCF      NVDSP                                 
060894,001178: 10,3263           34706        PERFCHEK          CAF      BIT5                                  #  BIT 5 FOR PERFORM
060895,001179: 10,3264           70160                          MASK     TEMPOR2                               
060896,001180: 10,3265           10000                          CCS      A                                     #  IS THIS A GOPERF DISPLAY
060897,001181: 10,3266           13311                          TCF      1STOR2ND                              #  YES
060898,001182: 
060899,001183: 10,3267           34707        GOANIDLE          CAF      BIT4                                  
060900,001184: 10,3270           70160                          MASK     TEMPOR2                               
060901,001185: 10,3271           10000                          CCS      A                                     
060902,001186: 10,3272           13406                          TCF      FLASHSUB                              #  IT IS
060903,001187: 
060904,001188: 10,3273           40160                          CS       TEMPOR2                               #  IS THIS A GODSPRET
060905,001189: 10,3274           74705                          MASK     BIT6                                  
060906,001190: 10,3275           10000                          CCS      A                                     
060907,001191: 10,3276           13303                          TCF      ISITN00                               
060908,001192: 
060909,001193: 10,3277           50164                          INDEX    COPINDEX                              
060910,001194: 10,3300           30372                          CA       CADRFLSH                              
060911,001195: 10,3301           54157                          TS       MPAC       +3                         
060912,001196: 10,3302           13501                          TCF      ENDIT                                 
060913,001197: 
060914,001198: 10,3303           50164        ISITN00           INDEX    COPINDEX                              #  IS THIS A PASTE
060915,001199: 10,3304           30367                          CA       NVWORD                                
060916,001200: 10,3305           76043                          MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
060917,001201: 10,3306           00006                          EXTEND                                         
060918,001202: 10,3307           13406                          BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
060919,001203: 
060920,001204: 10,3310           15112                          TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THEREFORE EXIT
060921,001205: 
060922,001206: 10,3311           30160        1STOR2ND          CA       TEMPOR2                               
060923,001207: 10,3312           74676                          MASK     BIT13                                 
060924,001208: 10,3313           10000                          CCS      A                                     
060925,001209: 10,3314           13267                          TCF      GOANIDLE                              #  SECOND
060926,001210: 
060927,001211: 10,3315           34676                          CA       BIT13                                 
060928,001212: 10,3316           50164                          INDEX    COPINDEX                              
060929,001213: 10,3317           27067                          ADS      DSPFLG                                
060930,001214: 
060931,001215: 10,3320           22007                          ZL                                             
060932,001216: 10,3321           00006                          EXTEND                                         #  IS IT MARK
060933,001217: 10,3322           62571                          BZMF     MARKPERF                              #  YES
060934,001218: 
060935,001219:                                                                                                 # # Page 1442
060936,001220: 10,3323           74677                          MASK     BIT12                                 
060937,001221: 10,3324           00006                          EXTEND                                         
060938,001222: 10,3325           13331                          BZF      V50PASTE                              
060939,001223: 10,3326           41145                          CS       NVWORD1                               #  NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
060940,001224: 10,3327           63667                          AD       V97N00                                
060941,001225: 10,3330           13246                          TCF      NV50DSP                               
060942,001226: 10,3331           33626        V50PASTE          CAF      V50N00                                
060943,001227: 10,3332           13246                          TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
060944,001228: 
060945,001229: 10,3333           44706        WITCHONE          CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
060946,001230: 10,3334           00006                          EXTEND                                         
060947,001231: 10,3335           03011                          WAND     DSALMOUT                              
060948,001232: 
060949,001233: 10,3336           30100                          CA       FLAGWRD4                              
060950,001234: 10,3337           73644                          MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
060951,001235: 10,3340           10000                          CCS      A                                     
060952,001236: 10,3341           34712                          CAF      ONE                                   
060953,001237: 10,3342           54001                          TS       L                                     
060954,001238: 10,3343           34714                          CAF      ZERO                                  
060955,001239: 10,3344           50001                          INDEX    L                                     
060956,001240: 10,3345           57042                          XCH      CADRSTOR                              
060957,001241: 
060958,001242: 10,3346           00004                          INHINT                                         
060959,001243: 10,3347           00002                          TC       Q                                     
060960,001244: 
060961,001245: 10,3350           34233        XCHTOEND          CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
060962,001246: 10,3351           56064        XCHNYLOC          XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
060963,001247: 10,3352           00006                          EXTEND                                         
060964,001248: 10,3353           63357                          BZMF     RELINTQ                               #  NO
060965,001249: 10,3354           56064                          XCH      LOCCTR                                #  YES
060966,001250: 10,3355           50064                          INDEX    LOCCTR                                
060967,001251: 10,3356           54164                          TS       LOC                                   
060968,001252: 
060969,001253: 10,3357           00003        RELINTQ           RELINT                                         
060970,001254: 10,3360           00002                          TC       Q                                     #  BACK TO USER
060971,001255: 
060972,001256: 10,3361           37667        CLEANEND          CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
060973,001257: 10,3362           05042                          TC       FINDVAC                               
060974,001258: 10,3363     0371                                 EBANK=   NVSAVE                                
060975,001259: 10,3363           04245 04060                    2CADR    JAMTERM                               
060976,001260: 
060977,001261: 10,3365           13407                          TCF      FLASHSUB   +1                         
060978,001262: 
060979,001263: 10,3366           30100        ISITPRIO          CA       FLAGWRD4                              
060980,001264: 10,3367           73414                          MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
060981,001265: 10,3370           00006                          EXTEND                                         
060982,001266: 10,3371           12723                          BZF      PRIOBORT                              
060983,001267: 10,3372           15112                          TCF      ENDOFJOB                              
060984,001268: 
060985,001269:                                                                                                 # # Page 1443
060986,001270: 10,3373           11042        REST              CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
060987,001271: 10,3374           15112                          TCF      ENDOFJOB                              #  YES
060988,001272: 10,3375           13377                          TCF      RESTSLEP                              
060989,001273: 
060990,001274: 10,3376           15112                          TCF      ENDOFJOB                              
060991,001275: 
060992,001276: 10,3377           30162        RESTSLEP          CA       GENMASK                               #  SET NVSLEEP BITS
060993,001277: 10,3400           73645                          MASK     ASTROMSK                              
060994,001278: 10,3401           07717                          TC       UPENT2                                
060995,001279: 10,3402           24100        OCT24100          OCT      24100                                 #  *** DONT MOVE
060996,001280: 
060997,001281: 10,3403           50164                          INDEX    COPINDEX                              
060998,001282: 10,3404           33635                          CAF      NVCADR                                
060999,001283: 10,3405           04456                          TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
061000,001284: 
061001,001285: 10,3406           04443        FLASHSUB          TC       FLASHON                               
061002,001286: 
061003,001287: 10,3407           30164                          CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
061004,001288: 10,3410           54157                          TS       COPMPAC                               
061005,001289: 
061006,001290: 10,3411           30162                          CA       GENMASK                               
061007,001291: 10,3412           73136                          MASK     IDLEMASK                              
061008,001292: 10,3413           07717                          TC       UPENT2                                
061009,001293: 10,3414           40040        ITISMASK          OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
061010,001294: 
061011,001295: 10,3415           31073                          CA       R1SAVE                                #  IS THIS A REPEAT AND RETURN DISPLAY
061012,001296: 10,3416           50164                          INDEX    COPINDEX                              
061013,001297: 10,3417           74710                          MASK     BIT3                                  
061014,001298: 10,3420           10000                          CCS      A                                     
061015,001299: 10,3421           13506                          TCF      UNSETR1                               #  YES
061016,001300: 
061017,001301: 10,3422           11042                          CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
061018,001302: 10,3423           13366                          TCF      ISITPRIO                              
061019,001303: 10,3424           13426                          TCF      +2                                    
061020,001304: 10,3425           13366                          TCF      ISITPRIO                              
061021,001305: 
061022,001306: 10,3426           04223                          TC       ENDIDLE                               
061023,001307: 10,3427           13520        IDLERET1          TCF      TERMATE                               
061024,001308: 
061025,001309: 10,3430           13537                          TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
061026,001310: 
061027,001311: 10,3431           43654                          CS       LOWLOAD                               
061028,001312: 10,3432           60154                          AD       MPAC                                  #  VERBREG
061029,001313: 10,3433           00006                          EXTEND                                         
061030,001314: 10,3434           26000                          DIM      A                                     
061031,001315: 10,3435           00006                          EXTEND                                         
061032,001316: 10,3436           13607                          BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
061033,001317: 10,3437           34711        OKTOENT           CAF      TWO                                   
061034,001318: 10,3440           54161        ENDOUT            TS       OUTHERE                               
061035,001319: 
061036,001320:                                                                                                 # # Page 1444
061037,001321: 10,3441           30100                          CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
061038,001322: 10,3442           74105                          MASK     OCT60000                              
061039,001323: 10,3443           10000                          CCS      A                                     
061040,001324: 10,3444           13447                          TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
061041,001325: 10,3445           13555                          TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
061042,001326: 10,3446           13541                          TCF      MARKRET                               #  MARK ENDIDLE RETURN
061043,001327: 
061044,001328: 10,3447           40025        TIMECHEK          CS       TIME1                                 
061045,001329: 10,3450           61147                          AD       PRIOTIME                              
061046,001330: 10,3451           10000                          CCS      A                                     
061047,001331: 10,3452           40000                          COM                                            
061048,001332: 10,3453           67700                          AD       OCT37776                              
061049,001333: 10,3454           64712                          AD       ONE                                   
061050,001334: 10,3455           63677                          AD       -2SEC                                 
061051,001335: 10,3456           00006                          EXTEND                                         
061052,001336: 10,3457           62672                          BZMF     KEEPPRIO                              
061053,001337: 
061054,001338: 10,3460           13555                          TCF      NORMRET                               
061055,001339: 
061056,001340: 10,3461           34712        NORMWAKE          CAF      ONE                                   
061057,001341: 10,3462           13152                          TCF      WAKEPLAY                              
061058,001342: 
061059,001343: 10,3463           10161        ENDRET            CCS      OUTHERE                               
061060,001344: 10,3464           64712                          AD       ONE                                   
061061,001345: 10,3465           13467                          TCF      +2                                    #  NORMAL ENDIDLE EXIT
061062,001346: 10,3466           15112                          TCF      ENDOFJOB                              
061063,001347: 10,3467           50157                          INDEX    COPMPAC                               
061064,001348: 10,3470           60372                          AD       CADRFLSH                              
061065,001349: 10,3471           54157                          TS       MPAC       +3                         
061066,001350: 
061067,001351: 10,3472           30162                          CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
061068,001352: 10,3473           73475                          MASK     PINIDMSK                              
061069,001353: 10,3474           07735                          TC       DOWNENT2                              
061070,001354: 10,3475           74044        PINIDMSK          OCT      74044                                 #  *** DONT MOVE
061071,001355: 
061072,001356: 10,3476           46214                          CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
061073,001357: 10,3477           04170                          TC       NVSUB                                 
061074,001358: 10,3500           13501                          TCF      +1                                    
061075,001359: 
061076,001360: 10,3501           30163        ENDIT             CA       USERPRIO                              #  RETURN TO USERS PRIORITY
061077,001361: 10,3502           77674                          MASK     PRIO37                                
061078,001362: 10,3503           05103                          TC       PRIOCHNG                              
061079,001363: 10,3504           30157                          CA       MPAC       +3                         
061080,001364: 10,3505           14577                          TCF      BANKJUMP                              
061081,001365: 
061082,001366: 10,3506           50164        UNSETR1           INDEX    COPINDEX                              #  RESET REPEAT AND RETURN REQUEST
061083,001367: 10,3507           44710                          CS       BIT3                                  
061084,001368: 10,3510           71073                          MASK     R1SAVE                                
061085,001369: 10,3511           55073                          TS       R1SAVE                                
061086,001370: 
061087,001371:                                                                                                 # # Page 1445
061088,001372: 10,3512           34714                          CAF      ZERO                                  #  *** 205 ONLY MARKBRAN USERS IN
061089,001373: 10,3513           04666                          TC       SUPERSW                               #  SUPERBANK 0
061090,001374: 
061091,001375: 10,3514           36214        -1                CAF      THREE                                 #  RETURN TO USERS IMMEDIATE RETURN LOC
061092,001376: 10,3515           50164        IMMEDRET          INDEX    COPINDEX                              
061093,001377: 10,3516           60372                          AD       CADRFLSH                              
061094,001378: 10,3517           14577                          TCF      BANKJUMP                              
061095,001379: 
061096,001380: 10,3520           34714        TERMATE           CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
061097,001381: 10,3521           13440                          TCF      ENDOUT                                
061098,001382: 
061099,001383: 10,3522           40160        LINUSCHR          CS       PLAYTEM4                              #  IS THIS A LINUS
061100,001384: 10,3523           74675                          MASK     BIT14                                 
061101,001385: 10,3524           10000                          CCS      A                                     
061102,001386: 10,3525           16706                          TCF      Q+1                                   #  NO
061103,001387: 10,3526           40157                          CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
061104,001388: 10,3527           50164                          INDEX    COPINDEX                              
061105,001389: 10,3530           60372                          AD       CADRFLSH                              
061106,001390: 10,3531           00006                          EXTEND                                         
061107,001391: 10,3532           13534                          BZF      +2                                    #  YES
061108,001392: 
061109,001393: 10,3533           00002                          TC       Q                                     #  NO
061110,001394: 10,3534           11012                          CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
061111,001395: 10,3535           05112                          TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
061112,001396: 10,3536           00002                          TC       Q                                     
061113,001397: 
061114,001398:                                                                                                 #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
061115,001399: 10,3537           34712        PROCEED           CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
061116,001400: 10,3540           13440                          TCF      ENDOUT                                
061117,001401: 
061118,001402:                                                                                                 #       LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
061119,001403:                                                                                                 #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
061120,001404:                                                                                                 #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
061121,001405: 
061122,001406:                                                                                                 #       IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
061123,001407:                                                                                                 #  UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
061124,001408:                                                                                                 #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
061125,001409:                                                                                                 #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
061126,001410: 
061127,001411: 10,3541           46211        MARKRET           CS       SIX                                   
061128,001412: 10,3542           70100                          MASK     FLAGWRD4                              
061129,001413: 10,3543           00004                          INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
061130,001414: 10,3544           54100                          TS       FLAGWRD4                              
061131,001415: 
061132,001416: 10,3545           00003                          RELINT                                         #  INHINT REALM
061133,001417: 10,3546           13463                          TCF      ENDRET                                
061134,001418: 
061135,001419: 10,3547           37716        MARKOVER          CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
061136,001420: 10,3550           54161                          TS       OUTHERE                               
061137,001421: 
061138,001422:                                                                                                 # # Page 1446
061139,001423: 10,3551           30100                          CA       FLAGWRD4                              #  IS ENDIDFLG SET
061140,001424: 10,3552           74371                          MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
061141,001425: 10,3553           10000                          CCS      A                                     
061142,001426: 10,3554           13207                          TCF      NORMBNCH                              
061143,001427: 
061144,001428: 10,3555           30100        NORMRET           CA       FLAGWRD4                              #  IS MARK SLEEPING
061145,001429: 10,3556           73652                          MASK     BITS5+11                              #  OR WAITING
061146,001430: 10,3557           10000                          CCS      A                                     
061147,001431: 10,3560           13151                          TCF      MARKWAKE                              
061148,001432: 
061149,001433: 10,3561           30100                          CA       FLAGWRD4                              #  NO
061150,001434: 10,3562           73653                          MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
061151,001435: 10,3563           10000                          CCS      A                                     
061152,001436: 10,3564           13461                          TCF      NORMWAKE                              #  YES
061153,001437: 
061154,001438: 10,3565           31071                          CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST
061155,001439: 10,3566           74726                          MASK     OCT50                                 #  OR A GODSPRET
061156,001440: 10,3567           10000                          CCS      A                                     
061157,001441: 10,3570           13463                          TCF      ENDRET                                #  YES
061158,001442: 10,3571           30371                          CA       NVSAVE                                
061159,001443: 10,3572           00006                          EXTEND                                         
061160,001444: 10,3573           13463                          BZF      ENDRET                                
061161,001445: 
061162,001446: 10,3574           34762                          CAF      PRIO15                                
061163,001447: 10,3575           00004                          INHINT                                         
061164,001448: 10,3576           05027                          TC       NOVAC                                 
061165,001449: 10,3577     0367                                 EBANK=   NVWORD                                
061166,001450: 10,3577           02743 20060                    2CADR    PLAYJUM1                              
061167,001451: 
061168,001452: 10,3601           13463                          TCF      ENDRET                                
061169,001453: 
061170,001454: 10,3602           30100        MARSLEEP          CA       FLAGWRD4                              #  IS MARK ALREADY IN
061171,001455: 10,3603           73652                          MASK     BITS5+11                              
061172,001456: 10,3604           10000                          CCS      A                                     
061173,001457: 10,3605           15112                          TCF      ENDOFJOB                              #  YES
061174,001458: 10,3606           13102                          TCF      GOSLEEPS                              
061175,001459: 
061176,001460: 10,3607           50157        LOADITIS          INDEX    COPMPAC                               
061177,001461: 10,3610           30367                          CA       NVWORD                                
061178,001462: 10,3611           76043                          MASK     LOW7                                  
061179,001463: 10,3612           40000                          COM                                            
061180,001464: 10,3613           60155                          AD       MPAC       +1                         #  NOUNREG
061181,001465: 10,3614           00006                          EXTEND                                         
061182,001466: 10,3615           13437                          BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
061183,001467: 10,3616           13176                          TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
061184,001468: 
061185,001469: 10,3617           46214        ERASER            CS       THREE                                 #  BLANK EVERYTHINGEXCEPT MM
061186,001470: 10,3620           04170                          TC       NVSUB                                 
061187,001471: 10,3621           15112                          TCF      ENDOFJOB                              
061188,001472:                                                                                                 # # Page 1447
061189,001473: 10,3622           15112                          TCF      ENDOFJOB                              
061190,001474: 
061191,001475: 10,3623           00036        PERFMASK          OCT      0036                                  #  FLASH,PERFORM,BLANK R2 AND R3
061192,001476: 10,3624           00231        V01N25            VN       00125                                 
061193,001477: 10,3625           01407        V06N07            VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
061194,001478: 10,3626           14400        V50N00            VN       5000                                  
061195,001479: 10,3627           00030        PERF2MSK          OCT      00030                                 #  FLASH, PERFORM
061196,001480: 10,3630           01006        V04N06            VN       00406                                 
061197,001481: 10,3631           00014        PERF4MSK          OCT      14                                    #  FLASH, BLANK R3
061198,001482: 10,3632  10,3176               GOAGIN            EQUALS   PINBRNCH                              
061199,001483: 10,3632           20010        REDOMASK          OCT      20010                                 #  BITS 4 AND 14
061200,001484: 10,3633           40230        MARK3MSK          OCT      40230                                 #  MARK,DECIMAL NOUN, PERFORM,FLASH
061201,001485: 10,3634           40036        MARK4MSK          OCT      40036                                 #  MARK,PERFORM,FLASH,BLANK 2 AND 3
061202,001486: 10,3635           20670        NVCADR            CADR     REDOPRIO                              
061203,001487: 10,3636           20530        WAKECADR          CADR     MARKPLAY                              
061204,001488: 10,3637           20743                          CADR     PLAYJUM1                              
061205,001489: 
061206,001490: 10,3640           03400        OCT3400           OCT      3400                                  #  EBANK MASK
061207,001491: 10,3641           11210        NBUSMASK          OCT      11210                                 
061208,001492: 10,3642           66521        PMMASK            OCT      66521                                 
061209,001493: 10,3643     4160               VERBMASK          =        MID7                                  #  (OCT 37600)
061210,001494: 10,3643           01177        V05N00M1          OCT      1177                                  #  V05 MINUS ONE
061211,001495: 10,3644  10,2461               GOXDSP            EQUALS   GOMARK                                
061212,001496: 10,3644  10,2501               GOXDSPR           EQUALS   GOMARKR                               
061213,001497: 10,3644  10,2465               GOXDSPF           EQUALS   GOMARKF                               
061214,001498: 10,3644  10,2504               GOXDSPFR          EQUALS   GOMARKFR                              
061215,001499: 10,3644     5423               ENDEXT            EQUALS   ENDMARK                               
061216,001500: 10,3644     0165               MPAC2SAV          EQUALS   BANKSET                               
061217,001501: 10,3644           00700        NVBUSMSK          OCT      700                                   
061218,001502: 10,3645           00704        ASTROMSK          OCT      704                                   
061219,001503: 10,3646           40030        MPERFMSK          OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
061220,001504: 10,3647           34300        OCT34300          OCT      34300                                 
061221,001505: 10,3650           40100        BITS15+7          OCT      40100                                 
061222,001506: 10,3651           00110        BITS7+4           OCT      110                                   
061223,001507: 10,3652     1067               DSPFLG            EQUALS   EBANKSAV                              
061224,001508: 10,3652     1070               MARKFLAG          EQUALS   MARKEBAN                              
061225,001509: 10,3652     1071               SAVEFLAG          EQUALS   EBANKTEM                              
061226,001510: 10,3652           02020        BITS5+11          OCT      2020                                  #  * DONT MOVE
061227,001511: 10,3653           01010        BITS4+10          OCT      1010                                  #  * DONT MOVE
061228,001512: 10,3654           00026        LOWLOAD           DEC      22         B-14                       
061229,001513: 10,3655           77730        BUSYMASK          OCT      77730                                 
061230,001514: 10,3656           00050        CADRMASK          OCT      50                                    
061231,001515: 10,3657     7707               PINMASK           EQUALS   13,14,15                              
061232,001516: 10,3657  10,3216               GOPLAY            EQUALS   NVDSP                                 
061233,001517: 10,3657     1073               PRIOSAVE          EQUALS   R1SAVE                                
061234,001518: 10,3657     0157               COPMPAC           EQUALS   MPAC       +3                         
061235,001519: 10,3657     0160               TEMPOR2           EQUALS   MPAC       +4                         
061236,001520: 10,3657     0161               OUTHERE           EQUALS   MPAC       +5                         
061237,001521: 10,3657     0164               COPINDEX          EQUALS   LOC                                   
061238,001522: 10,3657     0163               USERPRIO          EQUALS   MODE                                  
061239,001523:                                                                                                 # # Page 1448
061240,001524: 10,3657     0162               GENMASK           EQUALS   MPAC       +6                         
061241,001525: 10,3657           20144        PRIOOCT           OCT      20144                                 #  PRIO
061242,001526: 10,3660           42424        MARKOCT           OCT      42424                                 #  MARK
061243,001527: 10,3661           11254                          OCT      11254                                 #  NORM
061244,001528: 
061245,001529: 10,3662           74704        IDLESLEP          OCT      74704                                 
061246,001530: 10,3663           67777        OCT67777          OCT      67777                                 
061247,001531: 10,3664     5415               LINUS             EQUALS   BLANKET                               
061248,001532: 10,3664     0154               FACEREG           EQUALS   MPAC                                  
061249,001533: 10,3664     0155               PLAYTEM1          EQUALS   MPAC       +1                         
061250,001534: 10,3664     0157               PLAYTEM3          EQUALS   MPAC       +3                         
061251,001535: 10,3664     0160               PLAYTEM4          EQUALS   MPAC       +4                         
061252,001536: 10,3664           40420        OCT40420          OCT      40420                                 
061253,001537: 10,3665           02674        MAKEGEN           GENADR   MAKEPLAY                              
061254,001538: 10,3666           10200        OCT10200          OCT      10200                                 
061255,001539: 10,3667           30200        V97N00            VN       09700                                 #  PASTE FOR V97 OR V99
061256,001540: 10,3670           20100        OCT20100          OCT      20100                                 

End of include-file DISPLAY_INTERFACE_ROUTINES.agc.  Parent file is MAIN.agc