Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

061771,000002:                                                                                                 #  Copyright:     Public domain.
061772,000003:                                                                                                 #  Filename:      DISPLAY_INTERFACE_ROUTINES.agc
061773,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
061774,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
061775,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
061776,000007:                                                                                                 #                 Apollo 15-17.
061777,000008:                                                                                                 #  Assembler:     yaYUL
061778,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
061779,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
061780,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
061781,000012:                                                                                                 #  Mod history:   2009-08-18 JL   Adapted from corresponding Comanche 055 file.
061782,000013:                                                                                                 #                 2010-01-31 JL   Removed obsolete meta-comment.
061783,000014:                                                                                                 #                 2010-02-01 JL   Fixed build errors.
061784,000015:                                                                                                 #                 2010-02-11 JL   Fixed error on p1465.
061785,000016:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
061786,000017: 
061787,000018:                                                                                                 # # Page 1448
061788,000019: 
061789,000020:                                                                                                 #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -
061790,000021: 
061791,000022:                                                                                                 #         1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
061792,000023:                                                                                                 #            OUT UNDER CRITICAL ALARM CONDITIONS.
061793,000024:                                                                                                 #         2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
061794,000025:                                                                                                 #         3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
061795,000026:                                                                                                 #            SEQUENCE OF EVENTS.
061796,000027:                                                                                                 #         4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
061797,000028:                                                                                                 #            MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
061798,000029:                                                                                                 #         5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
061799,000030: 
061800,000031:                                                                                                 #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -
061801,000032: 
061802,000033:                                                                                                 #         1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
061803,000034:                                                                                                 #            (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
061804,000035:                                                                                                 #            BUT NOT WAITING FOR A RESPONSE.
061805,000036:                                                                                                 #         2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
061806,000037:                                                                                                 #            (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
061807,000038:                                                                                                 #            WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
061808,000039:                                                                                                 #            OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
061809,000040:                                                                                                 #            HAS INFO SAVED FOR RESTART PURPOSES.
061810,000041: 
061811,000042:                                                                                                 #  DISPLAY PRIORITIES WORK AS FOLLOWS -
061812,000043: 
061813,000044:                                                                                                 #         INTERRUPTS -
061814,000045:                                                                                                 #                 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
061815,000046:                                                                                                 #                 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
061816,000047:                                                                                                 #                 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
061817,000048:                                                                                                 #                    PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
061818,000049:                                                                                                 #                 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
061819,000050:                                                                                                 #                 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
061820,000051: 
061821,000052:                                                                                                 #         ORDER OF WAITING DISPLAYS -
061822,000053:                                                                                                 #                 1.  ASTRONAUT EXTERNAL USE
061823,000054:                                                                                                 #                 2.  PRIORITY
061824,000055:                                                                                                 #                 3.  INTERRUPTED MARK
061825,000056:                                                                                                 #                 4.  INTERRUPTED NORMAL
061826,000057: 
061827,000058:                                                                                                 #                 5.  MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
061828,000059:                                                                                                 #                 6.  MARK WAITING
061829,000060:                                                                                                 #                 7.  NORMAL WAITING
061830,000061: 
061831,000062:                                                                                                 # # Page 1449
061832,000063:                                                                                                 #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
061833,000064:                                                                                                 #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
061834,000065:                                                                                                 #  WILL FOLLOW LATER):
061835,000066: 
061836,000067:                                                                                                 #         1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
061837,000068:                                                                                                 #             IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
061838,000069:                                                                                                 #             IS TO THE USERS CALLING LOC +1.
061839,000070:                                                                                                 #         2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
061840,000071:                                                                                                 #         3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
061841,000072:                                                                                                 #         4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
061842,000073:                                                                                                 #             USERS JOB.
061843,000074:                                                                                                 #         5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
061844,000075:                                                                                                 #         6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
061845,000076:                                                                                                 #             DESCRIPTION OF RESTARTS).
061846,000077:                                                                                                 #         7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES.  A TERMINATE (V34) BRANCHES
061847,000078:                                                                                                 #             TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
061848,000079:                                                                                                 #             (V32) BRANCHES TO THE USERS CALL CADR +3.
061849,000080:                                                                                                 #         8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL
061850,000081: 
061851,000082:                                                                                                 #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
061852,000083: 
061853,000084:                                                                                                 #  GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
061854,000085: 
061855,000086:                                                                                                 #                         CAF     VXXNYY
061856,000087:                                                                                                 #                         TC      BANKCALL
061857,000088:                                                                                                 #                         CADR    GODSPR
061858,000089:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN OF GODSPR
061859,000090: 
061860,000091:                                                                                                 #  GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
061861,000092:                                                                                                 #  THE ASTRONAUT (SEE NO. 7 ABOVE).
061862,000093: 
061863,000094:                                                                                                 #                         CAF     VXXNYY          # VXX NYY WILL BE A FLASHING VERB NOUN.
061864,000095:                                                                                                 #                         TC      BANKCALL
061865,000096:                                                                                                 #                         CADR    GOFLASH
061866,000097:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061867,000098:                                                                                                 #                         ...     ...             # PROCEED RETURN
061868,000099:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
061869,000100: 
061870,000101:                                                                                                 #  GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
061871,000102:                                                                                                 #  V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
061872,000103:                                                                                                 #  USER (SEE NO. 7 ABOVE).
061873,000104:                                                                                                 #  GOPERF1 BLANKS REGISTERS R2 AND R3
061874,000105: 
061875,000106:                                                                                                 #                         CAF     OCTXX           # CODE FOR CHECKLIST VALUE XX
061876,000107:                                                                                                 #                         TC      BANKCALL
061877,000108:                                                                                                 #                         CADR    GOPERF1
061878,000109:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061879,000110:                                                                                                 #                         ...     ...             # PROCEED RETURN
061880,000111:                                                                                                 # # Page 1450
061881,000112:                                                                                                 #                         ...     ...             # ENTER RETURN
061882,000113: 
061883,000114:                                                                                                 #  GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
061884,000115:                                                                                                 #  DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
061885,000116:                                                                                                 #  IS MADE TO THE USER (SEE NO. 7 ABOVE).
061886,000117:                                                                                                 #  GOPERF3 BLANKS REGISTERS R2 AND R3
061887,000118: 
061888,000119:                                                                                                 #                         CAF     DECXX           # REQUEST PERFORM ON PXX
061889,000120:                                                                                                 #                         TC      BANKCALL
061890,000121:                                                                                                 #                         CADR    GOPERF3
061891,000122:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061892,000123:                                                                                                 #                         ...     ...             # PROCEED RETURN
061893,000124:                                                                                                 #                         ...     ...             # ENTER RETURN
061894,000125: 
061895,000126:                                                                                                 #  GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
061896,000127:                                                                                                 #  GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
061897,000128:                                                                                                 #  IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
061898,000129: 
061899,000130:                                                                                                 #                         CAF     OCTXX           # REQUEST PERFORM ON OPTION XX
061900,000131:                                                                                                 #                         TC      BANKCALL
061901,000132:                                                                                                 #                         CADR    GOPERF4
061902,000133:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061903,000134:                                                                                                 #                         ...     ...             # PROCEED RETURN
061904,000135:                                                                                                 #                         ...     ...             # ENTER RETURN
061905,000136: 
061906,000137:                                                                                                 #  GOPERF4 BLANKS REGISTER R3.
061907,000138: 
061908,000139:                                                                                                 #  GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
061909,000140:                                                                                                 #  OUT.
061910,000141: 
061911,000142:                                                                                                 #                         CAF     VXXNYY
061912,000143:                                                                                                 #                         TC      BANKCALL
061913,000144:                                                                                                 #                         CADR    GODSPRET
061914,000145:                                                                                                 #                         ...     ...             # RETURN TO USER.
061915,000146: 
061916,000147:                                                                                                 #  REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
061917,000148:                                                                                                 #  ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
061918,000149: 
061919,000150:                                                                                                 #                         CAF     VXXNYY
061920,000151:                                                                                                 #                         TC      BANKCALL
061921,000152:                                                                                                 #                         CADR    REGODSP
061922,000153: 
061923,000154:                                                                                                 #  REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
061924,000155: 
061925,000156:                                                                                                 #                         CAF     VXXNYY          # VXX NYY WILL BE A FLASHING VERB NOUN
061926,000157:                                                                                                 #                         TC      BANKCALL
061927,000158:                                                                                                 #                         CADR    REFLASH
061928,000159:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061929,000160:                                                                                                 # # Page 1451
061930,000161:                                                                                                 #                         ...     ...             # PROCEED RETURN
061931,000162:                                                                                                 #                         ...     ...             # ENTER RETURN
061932,000163: 
061933,000164:                                                                                                 #  GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
061934,000165: 
061935,000166:                                                                                                 #                         CAF     VXXNYY
061936,000167:                                                                                                 #                         TC      BANKCALL
061937,000168:                                                                                                 #                         CADR    GOFLASHR
061938,000169:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061939,000170:                                                                                                 #                         ...     ...             # PROCEED RETURN
061940,000171:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
061941,000172: 
061942,000173:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN FROM GOFLASHR
061943,000174: 
061944,000175:                                                                                                 #  GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
061945,000176:                                                                                                 #  GOPERF1R BLANKS REGISTERS R2 AND R3
061946,000177: 
061947,000178:                                                                                                 #                         CAF     OCTXX           # CODE FOR CHECKLIST VALUE XX.
061948,000179:                                                                                                 #                         TC      BANKCALL
061949,000180:                                                                                                 #                         CADR    GOPERF1R
061950,000181:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061951,000182:                                                                                                 #                         ...     ...             # PROCEED RETURN
061952,000183:                                                                                                 #                         ...     ...             # ENTER RETURN
061953,000184: 
061954,000185:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN FROM GOPERF1R
061955,000186: 
061956,000187:                                                                                                 #  GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
061957,000188:                                                                                                 #  GOPERF3R BLANKS REGISTERS R2 AND R3
061958,000189: 
061959,000190:                                                                                                 #                         CAF     PROGXX          # PERFORM PROGRAM XX
061960,000191:                                                                                                 #                         TC      BANKCALL
061961,000192:                                                                                                 #                         CADR    GOPERF3R
061962,000193:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061963,000194:                                                                                                 #                         ...     ...             # PROCEED RETURN
061964,000195:                                                                                                 #                         ...     ...             # ENTER RETURN
061965,000196: 
061966,000197:                                                                                                 #                         ...     ...             # GOPERF3R IMMEDIATELY RETURNS HERE
061967,000198: 
061968,000199:                                                                                                 #  GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
061969,000200: 
061970,000201:                                                                                                 #                         CAF     OCTXX           # REQUEST PERFORM ON OPTIONXX
061971,000202:                                                                                                 #                         TC      BANKCALL
061972,000203:                                                                                                 #                         CADR    GOPERF4R
061973,000204:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061974,000205:                                                                                                 #                         ...     ...             # PROCEED RETURN
061975,000206:                                                                                                 #                         ...     ...             # ENTER RETURN
061976,000207: 
061977,000208:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN TO USER
061978,000209: 
061979,000210:                                                                                                 # # Page 1452
061980,000211:                                                                                                 #  GOPERF4R BLANKS REGISTER R3.
061981,000212: 
061982,000213:                                                                                                 #  REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
061983,000214: 
061984,000215:                                                                                                 #                         CAF     VXXNYY          # VXX NYY WILL BE A FLASHING VERB NOUN
061985,000216:                                                                                                 #                         TC      BANKCALL
061986,000217:                                                                                                 #                         CADR    REFLASHR
061987,000218:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061988,000219:                                                                                                 #                         ...     ...             # PROCEED RETURN
061989,000220:                                                                                                 #                         ...     ...             # ENTER RETURN
061990,000221: 
061991,000222:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN TO USER
061992,000223: 
061993,000224:                                                                                                 #  REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
061994,000225: 
061995,000226:                                                                                                 #                         CAF     VXXNYY
061996,000227:                                                                                                 #                         TC      BANKCALL
061997,000228:                                                                                                 #                         CADR    REGODSPR
061998,000229: 
061999,000230:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN TO USER
062000,000231: 
062001,000232:                                                                                                 # # Page 1453
062002,000233:                                                                                                 #  GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
062003,000234: 
062004,000235:                                                                                                 #  GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
062005,000236: 
062006,000237:                                                                                                 #  GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
062007,000238:                                                                                                 #  THE ASTRONAUT (SEE NO. 7 ABOVE).
062008,000239:                                                                                                 #  GOXDSPF = GOMARKF
062009,000240: 
062010,000241:                                                                                                 #                         CAF     VXXNYY          # VXXNYY WILL BE A FLASHING MARK VERB NOUN
062011,000242:                                                                                                 #                         TC      BANKCALL
062012,000243:                                                                                                 #                         CADR    GOMARKF         # OTHER EXTENDED VERBS USE CADR GOXDSPF
062013,000244:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062014,000245:                                                                                                 #                         ...     ...             # PROCEED RETURN
062015,000246:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
062016,000247: 
062017,000248:                                                                                                 #  GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
062018,000249: 
062019,000250:                                                                                                 #  GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
062020,000251:                                                                                                 #  RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
062021,000252:                                                                                                 #  MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
062022,000253:                                                                                                 #  OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
062023,000254: 
062024,000255:                                                                                                 #                         CAF     V5XNYY          # X=1,2,3,4     Y=NOUN
062025,000256:                                                                                                 #                         TC      BANKCALL
062026,000257:                                                                                                 #                         CADR    GOMARK1
062027,000258: 
062028,000259:                                                                                                 #                         ...     ...             # ENTER RETURN
062029,000260: 
062030,000261:                                                                                                 #  *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER.
062031,000262: 
062032,000263:                                                                                                 #  GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
062033,000264: 
062034,000265:                                                                                                 #                         CAF     V5XNYY          # X=1,2,3,4     YY=NOUN
062035,000266:                                                                                                 #                         TC      BANKCALL
062036,000267:                                                                                                 #                         CADR    GOMARK1R
062037,000268: 
062038,000269:                                                                                                 #                         ...     ...             # ASTRONAUT ENTER RETURN
062039,000270:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN TO USER
062040,000271: 
062041,000272:                                                                                                 #  GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
062042,000273: 
062043,000274:                                                                                                 #                         CAF     V5XNYY          # X=1,2,3,4     YY=NOUN
062044,000275:                                                                                                 #                         TC      BANKCALL
062045,000276:                                                                                                 #                         CADR    GOMARK2
062046,000277:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062047,000278:                                                                                                 #                         ...     ...             # PROCEED RETURN
062048,000279:                                                                                                 #                         ...     ...             # ENTER RETURN
062049,000280: 
062050,000281:                                                                                                 #  GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
062051,000282: 
062052,000283:                                                                                                 #                         CAF     V5XNYY          # X=1,2,3,4     YY=NOUN
062053,000284:                                                                                                 #                         TC      BANKCALL
062054,000285:                                                                                                 # # Page 1454
062055,000286:                                                                                                 #                         CADR    GOMARK4
062056,000287:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062057,000288:                                                                                                 #                         ...     ...             # PROCEED RETURN
062058,000289:                                                                                                 #                         ...     ...             # ENTER RETURN
062059,000290: 
062060,000291:                                                                                                 #  EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
062061,000292:                                                                                                 #  SENT OUT.
062062,000293: 
062063,000294:                                                                                                 #                         CAF     VXXNYY
062064,000295:                                                                                                 #                         TC      BANKCALL
062065,000296:                                                                                                 #                         CADR    EXDSPRET
062066,000297: 
062067,000298:                                                                                                 #                         ...     ...             # RETURN TO USER
062068,000299: 
062069,000300:                                                                                                 #  KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
062070,000301:                                                                                                 #  HAVE BEEN CLEANED OUT.
062071,000302: 
062072,000303:                                                                                                 #                         TC      BANKCALL
062073,000304:                                                                                                 #                         CADR    KLEENEX
062074,000305: 
062075,000306:                                                                                                 #                         ...     ...             # RETURN TO USER
062076,000307: 
062077,000308:                                                                                                 #  MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
062078,000309: 
062079,000310:                                                                                                 #                         TC      BANKCALL
062080,000311:                                                                                                 #                         CADR    MARKBRAN
062081,000312: 
062082,000313:                                                                                                 #                         ...     ...             # BAD RETURN IF MARK DISPLAY NOT ACTIVE
062083,000314: 
062084,000315:                                                                                                 #                                                 # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
062085,000316:                                                                                                 #                                                 # LAST FLASHING MARK R ROUTINE)
062086,000317: 
062087,000318:                                                                                                 #  PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
062088,000319:                                                                                                 #  BLANKED AND CONTROL IS SENT TO ENDOFJOB.
062089,000320: 
062090,000321:                                                                                                 #                                 TC      POSTJUMP
062091,000322:                                                                                                 #                                 CADR    PINBRNCH
062092,000323: 
062093,000324:                                                                                                 #  PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
062094,000325:                                                                                                 #  THE ASTRONAUT (SEE NO. 7 ABOVE).
062095,000326: 
062096,000327:                                                                                                 #  THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
062097,000328:                                                                                                 #  PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
062098,000329:                                                                                                 #  IS RESPONDED TO BY THE ASTRONAUT.
062099,000330: 
062100,000331:                                                                                                 #  THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
062101,000332:                                                                                                 #  PRIO DISPLAY.
062102,000333: 
062103,000334:                                                                                                 #                         CAF     VXXNYY          # VXXNYY WILL BE A FLASHING VERB NOUN
062104,000335:                                                                                                 #                         TC      BANKCALL
062105,000336:                                                                                                 # # Page 1455
062106,000337:                                                                                                 #                         CADR    PRIODSP
062107,000338:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062108,000339:                                                                                                 #                         ...     ...             # PROCEED RETURN
062109,000340:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
062110,000341: 
062111,000342:                                                                                                 #  PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062112,000343: 
062113,000344:                                                                                                 #                         CAF     VXXNYY          # VXXNYY WILL BE A FLASHING VERB NOUN
062114,000345:                                                                                                 #                         TC      BANKCALL
062115,000346:                                                                                                 #                         CADR    PRIODSPR
062116,000347:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062117,000348:                                                                                                 #                         ...     ...             # PROCEED RETURN
062118,000349:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
062119,000350: 
062120,000351:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN
062121,000352: 
062122,000353:                                                                                                 #  PRIOLARM DOES A V05N09 PRIODSPR.
062123,000354: 
062124,000355:                                                                                                 #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
062125,000356:                                                                                                 #  DISPLAYS ARE CLEANED OUT.
062126,000357: 
062127,000358:                                                                                                 #                         TC      BANKCALL
062128,000359:                                                                                                 #                         CADR    CLEANDSP
062129,000360: 
062130,000361:                                                                                                 #                         ...     ...             # RETURN TO USER
062131,000362: 
062132,000363:                                                                                                 # # Page 1456
062133,000364: 
062134,000365:                                                                                                 #  GENERAL INFORMATION
062135,000366:                                                                                                 #  ------- -----------
062136,000367: 
062137,000368:                                                                                                 #  ALARM OR ABORT EXIT MODES--
062138,000369: 
062139,000370:                                                                                                 #                 PRIOBORT        TC      ABORT
062140,000371:                                                                                                 #                                 OCT     1502
062141,000372: 
062142,000373:                                                                                                 #  PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
062143,000374:                                                                                                 #  (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
062144,000375:                                                                                                 #  ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
062145,000376: 
062146,000377:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED--
062147,000378: 
062148,000379:                                                                                                 #         ACCOMPLISHED BY FRESH START-    1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
062149,000380:                                                                                                 #                                         2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
062150,000381:                                                                                                 #                                         3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
062151,000382: 
062152,000383:                                                                                                 #                                         5. R1SAVE = MARKBRAN CONTROL WORD
062153,000384:                                                                                                 #                                         4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
062154,000385: 
062155,000386:                                                                                                 #  OUTPUT--
062156,000387: 
062157,000388:                                                                                                 #         NVWORD = PRIO VERB AND NOUN
062158,000389:                                                                                                 #         NVWORD +1 (MARKNV) = MARK VERB AND NOUN
062159,000390:                                                                                                 #         NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
062160,000391: 
062161,000392:                                                                                                 #         DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
062162,000393:                                                                                                 #         DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
062163,000394:                                                                                                 #         DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK)
062164,000395: 
062165,000396:                                                                                                 #         CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION
062166,000397:                                                                                                 #         CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION
062167,000398:                                                                                                 #         CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION
062168,000399: 
062169,000400:                                                                                                 #         PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
062170,000401:                                                                                                 #         OPTION1 = DESIRED OPTION FROM GOPERF4
062171,000402:                                                                                                 #         FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
062172,000403:                                                                                                 #         DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
062173,000404: 
062174,000405:                                                                                                 #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
062175,000406:                                                                                                 #  JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
062176,000407: 
062177,000408:                                                                                                 #  DEBRIS-- (STORED INTO)
062178,000409:                                                                                                 #         TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL,
062179,000410:                                                                                                 #                 EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1      4, FACEREG
062180,000411:                                                                                                 #         ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
062181,000412:                                                                                                 #         ERASABLES (USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
062182,000413:                                                                                                 # # Page 1457
062183,000414:                                                                                                 #                 R1SAVE, MARK2PAC,
062184,000415: 
062185,000416:                                                                                                 #  DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
062186,000417: 
062187,000418:                                                                                                 #  FLAGWORD DESCRIPTIONS--
062188,000419:                                                                                                 #         FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
062189,000420: 
062190,000421:                                                                                                 #         DSPFLG, DSPFLG+1, DSPFLG+2-
062191,000422:                                                                                                 #         ---------------------------
062192,000423:                                                                                                 #         BITS 1  BLANK R1
062193,000424:                                                                                                 #              2  BLANK R2
062194,000425:                                                                                                 #              3  BLANK R3
062195,000426:                                                                                                 #              4  FLASHING DISPLAY REQUESTED
062196,000427:                                                                                                 #              5  PERFORM DISPLAY REQUESTED
062197,000428:                                                                                                 #              6  -----                   EXDSPRET                GODSPRET
062198,000429:                                                                                                 #              7  PRIO DISPLAY            -----                   -----
062199,000430:                                                                                                 #              8  -----                   MARK MONITOR PERF       -----
062200,000431:                                                                                                 #              9  EBANK
062201,000432:                                                                                                 #             10  EBANK
062202,000433:                                                                                                 #             11  EBANK
062203,000434:                                                                                                 #             12  -----                   -----                   V99PASTE
062204,000435:                                                                                                 #             13  2ND PART OF PERFORM
062205,000436:                                                                                                 #             14  REFLASH OR REDO         -----                   REFLASH OR REDO
062206,000437:                                                                                                 #             15  -----                   MARK REQUEST            -----
062207,000438: 
062208,000439:                                                                                                 #  RESTARTING DISPLAYS--
062209,000440: 
062210,000441:                                                                                                 #  RULES FOR THE DSKY OPERATOR--
062211,000442: 
062212,000443:                                                                                                 #         1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING Y/N).  AS LONG
062213,000444:                                                                                                 #            AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
062214,000445:                                                                                                 #            RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
062215,000446:                                                                                                 #            WITH PROCEED AND TERMINATE FOR THIS REASON.
062216,000447:                                                                                                 #         2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECONDS FROM THE TIME THE MISSION
062217,000448:                                                                                                 #            PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
062218,000449:                                                                                                 #            DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.)  IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
062219,000450:                                                                                                 #            IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
062220,000451:                                                                                                 #            OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
062221,000452:                                                                                                 #            CONSIDERATION.
062222,000453:                                                                                                 #         3. KEY RELEASE BUTTON-
062223,000454:                                                                                                 #            A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
062224,000455:                                                                                                 #            B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
062225,000456:                                                                                                 #               AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
062226,000457:                                                                                                 #            IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
062227,000458:                                                                                                 #            KEY RELEASE BUTTON MAY BE NECESSARY.
062228,000459:                                                                                                 #         4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
062229,000460:                                                                                                 #         5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
062230,000461:                                                                                                 #            OVER AGAIN.
062231,000462: 
062232,000463:                                                                                                 #  SPECIAL CONSIDERATONS -
062233,000464:                                                                                                 # # Page 1458
062234,000465:                                                                                                 #         1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
062235,000466:                                                                                                 #         2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
062236,000467:                                                                                                 #         3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
062237,000468:                                                                                                 #         4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
062238,000469:                                                                                                 #         5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
062239,000470:                                                                                                 #            BY A .1 RESTART PHASE CHANGE.
062240,000471:                                                                                                 #         6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
062241,000472:                                                                                                 #            CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
062242,000473:                                                                                                 #         7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL
062243,000474: 
062244,000475:                                                                                                 # # Page 1459
062245,000476:                                                                                                 #  CALLING SEQUENCE FOR BLANKING
062246,000477:                                                                                                 #                 CAF     BITX            # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
062247,000478:                                                                                                 #                 TC      BLANKET
062248,000479:                                                                                                 #                 ...     ...             # RETURN TO USER HERE
062249,000480: 
062250,000481:                                                                                                 #  IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
062251,000482:                                                                                                 #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
062252,000483: 
062253,000484:    4000                                          SETLOC   FFTAG4                                
062254,000485:    4000                                          BANK                                           
062255,000486: 
062256,000487:    5516                                          COUNT*   $$/DSPLA                              
062257,000488:    5516           54162        BLANKET           TS       MPAC       +6                         
062258,000489:    5517           40160                          CS       PLAYTEM4                              
062259,000490:    5520           70162                          MASK     MPAC       +6                         
062260,000491:    5521           50161                          INDEX    MPAC       +5                         
062261,000492:    5522           26160                          ADS      PLAYTEM4                              
062262,000493: 
062263,000494:    5523           00002                          TC       Q                                     
062264,000495: 
062265,000496:    5524           05527        ENDMARK           TC       CLEARMRK                              
062266,000497:    5525           04655                          TC       POSTJUMP                              
062267,000498:    5526           21643                          CADR     MARKOVER                              
062268,000499: 
062269,000500:    5527           34772        CLEARMRK          CAF      ZERO                                  
062270,000501:    5530           55247                          TS       EXTVBACT                              
062271,000502: 
062272,000503:    5531           44770                          CS       XDSPBIT                               
062273,000504:    5532           70100                          MASK     FLAGWRD4                              
062274,000505:    5533           54100                          TS       FLAGWRD4                              
062275,000506: 
062276,000507:    5534           00002                          TC       Q                                     
062277,000508: 
062278,000509:                                                                                                 #  *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
062279,000510:                                                                                                 #  FINISHED.
062280,000511: 
062281,000512:    5535           56001        VNFLASH           XCH      L                                     
062282,000513:    5536           35545                          CAF      VNCADR                                
062283,000514:    5537           15542                          TCF      VNGODSP                               
062284,000515: 
062285,000516:    5540           56001        VNFLASHR          XCH      L                                     
062286,000517:    5541           35546                          CAF      VNRCADR                               
062287,000518:    5542           24002        VNGODSP           INCR     Q                                     #  BECAUSE OF RESTARTS
062288,000519:    5543           22155                          LXCH     PLAYTEM1                              
062289,000520:    5544           14642                          TCF      SWCALL                                
062290,000521: 
062291,000522:    5545           20732        VNCADR            CADR     VNFLSH                                
062292,000523:    5546           20735        VNRCADR           CADR     VNFLSHR                               
062293,000524: 
062294,000525: 10,2000                                          SETLOC   DISPLAYS                              
062295,000526: 10,2000                                          BANK                                           
062296,000527:                                                                                                 # # Page 1460
062297,000528: 
062298,000529: 10,2575                                          COUNT    10/DSPLA                              
062299,000530: 
062300,000531:                                                                                                 #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH
062301,000532:                                                                                                 #  3 RETURNS TO THE USER.  THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
062302,000533: 
062303,000534: 10,2575           34772        KLEENEX           CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
062304,000535: 10,2576           54155        GOMARKF           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
062305,000536: 
062306,000537: 10,2577           37664                          CAF      MARKFMSK                              #  MARK,FLASH
062307,000538: 10,2600           12745                          TCF      GOFLASH2                              
062308,000539: 
062309,000540: 10,2601           54155        GOMARK2           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
062310,000541: 10,2602           33733        MARKFORM          CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
062311,000542: 10,2603           12745                          TCF      GOFLASH2                              
062312,000543: 
062313,000544: 10,2604           54155        GOMARK4           TS       PLAYTEM1                              
062314,000545: 10,2605           33723                          CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
062315,000546: 10,2606           12745                          TCF      GOFLASH2                              
062316,000547: 
062317,000548: 10,2607           54155        GOMARKFR          TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
062318,000549: 
062319,000550: 10,2610           37664                          CAF      MARKFMSK                              
062320,000551: 10,2611           13103                          TCF      GODSPRS                               
062321,000552: 
062322,000553: 10,2612           54155        MARKMONR          TS       PLAYTEM1                              #  USED FOR MARK MONITOR
062323,000554: 10,2613           33754                          CAF      MARK3MSK                              
062324,000555: 10,2614           12745                          TCF      GOFLASH2                              
062325,000556: 10,2615           34770        MAKEMARK          CAF      ONE                                   
062326,000557: 10,2616           03172                          TC       COPIES                                
062327,000558: 
062328,000559: 10,2617           30100                          CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
062329,000560: 10,2620           73734                          MASK     OCT34300                              
062330,000561: 10,2621           10000                          CCS      A                                     
062331,000562: 10,2622           12670                          TCF      CHKPRIO                               
062332,000563: 
062333,000564: 10,2623           30100                          CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY?
062334,000565: 10,2624           74760                          MASK     MRKNVBIT                              
062335,000566: 10,2625           00006                          EXTEND                                         
062336,000567: 10,2626           12630                          BZF      MARKPLAY                              #  NO
062337,000568: 
062338,000569: 10,2627           15205                          TCF      ENDOFJOB                              
062339,000570: 
062340,000571: 10,2630           44773        MARKPLAY          CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
062341,000572: 10,2631           70100                          MASK     FLAGWRD4                              
062342,000573: 10,2632           64770                          AD       XDSPBIT                               
062343,000574: 10,2633           54100                          TS       FLAGWRD4                              
062344,000575: 10,2634           22007        GOGOMARK          ZL                                             #  PERFORM
062345,000576: 10,2635           41274                          CS       MARKFLAG                              
062346,000577: 10,2636           74761                          MASK     DCMKPERF                              
062347,000578: 10,2637           10000                          CCS      A                                     
062348,000579: 10,2640           12645                          TCF      +5                                    
062349,000580:                                                                                                 # # Page 1461
062350,000581: 10,2641           30367                          CA       MARKNV                                
062351,000582: 10,2642           74171                          MASK     MID7                                  
062352,000583: 10,2643           54001                          TS       L                                     
062353,000584: 10,2644           12651                          TCF      +5                                    
062354,000585: 10,2645           41274                          CS       MARKFLAG                              
062355,000586: 10,2646           74764                          MASK     PERFRQST                              
062356,000587: 10,2647           10000                          CCS      A                                     
062357,000588: 10,2650           12653                          TCF      MARKCOP                               
062358,000589: 10,2651           40367                          CS       MARKNV                                
062359,000590: 10,2652           54367                          TS       MARKNV                                
062360,000591: 
062361,000592: 10,2653           34770        MARKCOP           CAF      ONE                                   #  MARK INDEX
062362,000593: 10,2654           54164                          TS       COPINDEX                              
062363,000594: 10,2655           13316                          TCF      NVDSP      +1                         
062364,000595: 10,2656           30165        COPYTOGO          CA       MPAC2SAV                              
062365,000596: 10,2657           54156                          TS       MPAC       +2                         
062366,000597: 
062367,000598: 10,2660           50164        COPYPACS          INDEX    COPINDEX                              
062368,000599: 10,2661           33740                          CAF      PRIOOCT                               
062369,000600: 10,2662           54162                          TS       GENMASK                               
062370,000601: 
062371,000602: 10,2663           50164                          INDEX    COPINDEX                              
062372,000603: 10,2664           31273                          CAF      EBANKSAV                              
062373,000604: 10,2665           54160                          TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
062374,000605: 
062375,000606: 10,2666           54003                          TS       EBANK                                 
062376,000607: 
062377,000608: 10,2667           00002                          TC       Q                                     
062378,000609: 
062379,000610:                                                                                                 #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY
062380,000611:                                                                                                 #  (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
062381,000612:                                                                                                 #  REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
062382,000613:                                                                                                 #  UNTIL ALL MARKING IS FINISHED.
062383,000614: 
062384,000615:                                                                                                 #  IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
062385,000616:                                                                                                 #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
062386,000617: 
062387,000618: 10,2670           30100        CHKPRIO           CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
062388,000619: 10,2671           77646                          MASK     14,12,7                               
062389,000620: 10,2672           10000                          CCS      A                                     
062390,000621: 10,2673           13676                          TCF      MARSLEEP                              
062391,000622: 
062392,000623: 10,2674           34766                          CAF      MKOVBIT                               #  SET MARK OVER NORM
062393,000624: 10,2675           03755                          TC       UPENT2                                
062394,000625: 
062395,000626: 10,2676           13000                          TCF      SETNORM                               
062396,000627: 
062397,000628: 10,2677           30367        MARKPERF          CA       MARKNV                                
062398,000629: 10,2700           74171                          MASK     VERBMASK                              
062399,000630: 10,2701           13350                          TCF      NV50DSP                               
062400,000631: 
062401,000632:                                                                                                 # # Page 1462
062402,000633: 10,2702           54155        GODSP             TS       PLAYTEM1                              
062403,000634: 
062404,000635: 10,2703           34772        GODSP2            CAF      DSPONLY                               
062405,000636: 10,2704           12745                          TCF      GOFLASH2                              
062406,000637: 
062407,000638: 10,2705           54155        GODSPRET          TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
062408,000639: 
062409,000640: 10,2706           34763                          CAF      RETDSPY                               #  SET BIT6 TO RETURN TO USER AFTER NVSUB
062410,000641: 10,2707           12745                          TCF      GOFLASH2                              
062411,000642: 
062412,000643: 10,2710           54155        GODSPR            TS       PLAYTEM1                              
062413,000644: 
062414,000645: 10,2711           34772        GODSPR1           CAF      DSPONLY                               
062415,000646: 10,2712           54160        GODSPR2           TS       PLAYTEM4                              
062416,000647: 
062417,000648: 10,2713           34772                          CAF      ZERO                                  #  * DONT MOVE
062418,000649: 10,2714           13105                          TCF      GODSPRS1                              
062419,000650: 
062420,000651:                                                                                                 #  CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
062421,000652:                                                                                                 #  SET UP TO BE STARTED OR RESTARTED.
062422,000653: 
062423,000654:                                                                                                 #  NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
062424,000655:                                                                                                 #  OLD DISPLAY.
062425,000656: 
062426,000657:                                                                                                 #  CALLING SEQUENCE FOR CLEANDSP-
062427,000658: 
062428,000659:                                                                                                 #                 TC      BANKCALL
062429,000660:                                                                                                 #                 CADR    CLEANDSP
062430,000661: 
062431,000662: 10,2715           34772        CLEANDSP          CAF      ZERO                                  
062432,000663: 10,2716           54155        REFLASH           TS       PLAYTEM1                              
062433,000664: 
062434,000665: 10,2717           33722                          CAF      REDOMASK                              #  FLASH AND PERMIT
062435,000666: 10,2720           12745                          TCF      GOFLASH2                              
062436,000667: 
062437,000668: 10,2721           54155        REGODSP           TS       PLAYTEM1                              
062438,000669: 
062439,000670: 10,2722           34753                          CAF      REFLSH                                
062440,000671: 10,2723           12745                          TCF      GOFLASH2                              
062441,000672: 
062442,000673: 10,2724           54155        REGODSPR          TS       PLAYTEM1                              
062443,000674: 
062444,000675: 10,2725           34753                          CAF      REFLSH                                
062445,000676: 10,2726           12712                          TCF      GODSPR2                               
062446,000677: 
062447,000678: 10,2727           54155        CLOCPLAY          TS       PLAYTEM1                              
062448,000679: 10,2730           33750                          CAF      CLOCKCON                              
062449,000680: 10,2731           12745                          TCF      GOFLASH2                              
062450,000681: 10,2732           05547        VNFLSH            TC       UPFLAG                                
062451,000682: 10,2733           00111                          ADRES    VNFLAG                                
062452,000683:                                                                                                 # # Page 1463
062453,000684: 10,2734           12744                          TCF      GOFLASH    +1                         
062454,000685: 
062455,000686: 10,2735           05547        VNFLSHR           TC       UPFLAG                                
062456,000687: 10,2736           00111                          ADRES    VNFLAG                                
062457,000688: 10,2737           34765                          CAF      FLSHRQST                              
062458,000689: 10,2740           54160                          TS       PLAYTEM4                              #  IT'S A FLASHING DISPLAY
062459,000690: 10,2741           34772                          CAF      ZERO                                  #  RETURN TO CALLER'S Q +1
062460,000691: 10,2742           13105                          TCF      GODSPRS1                              
062461,000692: 
062462,000693: 10,2743           54155        GOFLASH           TS       PLAYTEM1                              
062463,000694: 
062464,000695: 10,2744           34765                 +1       CAF      FLSHRQST                              #  LEAVE ONLY FLASH BIT SET
062465,000696: 10,2745           54160        GOFLASH2          TS       PLAYTEM4                              
062466,000697: 
062467,000698: 10,2746           03157                          TC       SAVELOCS                              
062468,000699: 
062469,000700: 10,2747           13012                          TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
062470,000701: 
062471,000702: 10,2750           54155        PRIODSPR          TS       PLAYTEM1                              
062472,000703: 
062473,000704: 10,2751           35013                          CAF      BITS7+4                               
062474,000705: 10,2752           13103                          TCF      GODSPRS                               
062475,000706: 
062476,000707: 10,2753           54155        PRIODSP           TS       PLAYTEM1                              
062477,000708: 
062478,000709: 10,2754           35013        SETPRIO           CAF      BITS7+4                               
062479,000710: 10,2755           12745                          TCF      GOFLASH2                              
062480,000711: 
062481,000712: 10,2756           34772        MAKEPRIO          CAF      ZERO                                  
062482,000713: 10,2757           54164                          TS       COPINDEX                              
062483,000714: 
062484,000715: 10,2760           03623                          TC       LINUSCHR                              
062485,000716: 10,2761           12766                          TCF      HIPRIO                                #  LINUS RETURN
062486,000717: 10,2762           30100                          CA       FLAGWRD4                              
062487,000718: 10,2763           73747                          MASK     BIT14+7                               #  IS PRIO IN ENDIDLE OR BUSY
062488,000719: 10,2764           10000                          CCS      A                                     
062489,000720: 10,2765           13041                          TCF      PRIOBORT                              #  YES, ABORT
062490,000721: 
062491,000722: 10,2766           30100        HIPRIO            CA       FLAGWRD4                              #  MARK ACTIVE
062492,000723: 10,2767           77716                          MASK     BIT15+9                               
062493,000724: 10,2770           00006                          EXTEND                                         
062494,000725: 10,2771           12774                          BZF      ASKIFNRM                              #  NO
062495,000726: 
062496,000727: 10,2772           34772        SETMARK           CAF      ZERO                                  
062497,000728: 10,2773           13226                          TCF      JOBXCHS                               
062498,000729: 
062499,000730: 10,2774           30100        ASKIFNRM          CA       FLAGWRD4                              #  NORMAL ACTIVE
062500,000731: 10,2775           73745                          MASK     BIT13+8                               
062501,000732: 10,2776           00006                          EXTEND                                         
062502,000733: 10,2777           13002                          BZF      OKTOCOPY                              #  NO
062503,000734:                                                                                                 # # Page 1464
062504,000735: 
062505,000736: 10,3000           34770        SETNORM           CAF      ONE                                   
062506,000737: 10,3001           13226                          TCF      JOBXCHS                               
062507,000738: 
062508,000739: 10,3002           03171        OKTOCOPY          TC       COPYNORM                              
062509,000740: 10,3003           03431                          TC       WITCHONE                              
062510,000741: 
062511,000742: 10,3004           05167                          TC       JOBWAKE                               
062512,000743: 
062513,000744: 10,3005           03445                          TC       XCHTOEND                              
062514,000745: 
062515,000746: 10,3006           30025        REDOPRIO          CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
062516,000747: 10,3007           55005                          TS       PRIOTIME                              
062517,000748: 
062518,000749: 10,3010           34772        KEEPPRIO          CAF      ZERO                                  #  START UP PRIO DISPLAY
062519,000750: 10,3011           13062                          TCF      PRIOPLAY                              
062520,000751: 
062521,000752: 10,3012           30167        MAKEPLAY          CA       PRIORITY                              #  SAVE USERS PRIORITY
062522,000753: 10,3013           77660                          MASK     PRIO37                                
062523,000754: 10,3014           54163                          TS       USERPRIO                              
062524,000755: 
062525,000756: 10,3015           37655                          CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
062526,000757: 10,3016           05176                          TC       PRIOCHNG                              
062527,000758: 
062528,000759: 10,3017           30160                          CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
062529,000760: 10,3020           73735                          MASK     BITS15+7                              
062530,000761: 10,3021           10000                          CCS      A                                     
062531,000762: 10,3022           12756                          TCF      MAKEPRIO                              #  ITS PRIO
062532,000763: 10,3023           13025                          TCF      IFLEGAL                               
062533,000764: 10,3024           12615                          TCF      MAKEMARK                              #  ITS MARK
062534,000765: 
062535,000766: 10,3025           34767        IFLEGAL           CAF      TWO                                   
062536,000767: 10,3026           54164                          TS       COPINDEX                              
062537,000768: 
062538,000769: 10,3027           03623                          TC       LINUSCHR                              
062539,000770: 
062540,000771: 10,3030           13043                          TCF      OKTOPLAY                              #  LINUS RETURN
062541,000772: 10,3031           41275                          CS       EBANKTEM                              
062542,000773: 10,3032           74765                          MASK     FLSHRQST                              
062543,000774: 10,3033           10000                          CCS      A                                     
062544,000775: 10,3034           13043                          TCF      OKTOPLAY                              #  NO
062545,000776: 
062546,000777: 10,3035           30100                          CA       FLAGWRD4                              #  WAS NORM ASLEEP
062547,000778: 10,3036           73727                          MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
062548,000779: 10,3037           00006                          EXTEND                                         
062549,000780: 10,3040           13043                          BZF      OKTOPLAY                              #  NO
062550,000781: 
062551,000782: 10,3041           05726        PRIOBORT          TC       POODOO                                
062552,000783: 10,3042           21502                          OCT      21502                                 #  ILLEGAL FLASHING DISPLAY
062553,000784: 
062554,000785: 10,3043           03173        OKTOPLAY          TC       COPIES2                               
062555,000786:                                                                                                 # # Page 1465
062556,000787: 10,3044           30163                          CA       USERPRIO                              
062557,000788: 10,3045           00006                          EXTEND                                         
062558,000789: 10,3046           04007                          ROR      SUPERBNK                              
062559,000790: 10,3047           54365                          TS       RESTREG                               
062560,000791: 
062561,000792: 10,3050           30100                          CA       FLAGWRD4                              #  PRIO OR MARK GOING
062562,000793: 10,3051           73730                          MASK     PMMASK                                
062563,000794: 10,3052           10000                          CCS      A                                     
062564,000795: 10,3053           13210                          TCF      GOSLEEPS                              #  YES
062565,000796: 
062566,000797: 10,3054           13056                          TCF      +2                                    
062567,000798: 10,3055           13210                          TCF      GOSLEEPS                              #  MARK GOING
062568,000799: 
062569,000800:                                                                                                 #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
062570,000801: 
062571,000802: 10,3056           03431                          TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
062572,000803: 10,3057           05167                          TC       JOBWAKE                               
062573,000804: 
062574,000805: 10,3060           03445                          TC       XCHTOEND                              
062575,000806: 
062576,000807: 10,3061           34767        PLAYJUM1          CAF      TWO                                   
062577,000808: 10,3062           54164        PRIOPLAY          TS       COPINDEX                              
062578,000809: 
062579,000810: 10,3063           13315                          TCF      GOPLAY                                
062580,000811: 
062581,000812: 10,3064           54155        EXDSPRET          TS       PLAYTEM1                              
062582,000813: 
062583,000814: 10,3065           37667                          CAF      BIT15+6                               
062584,000815: 10,3066           12745                          TCF      GOFLASH2                              
062585,000816: 
062586,000817: 10,3067           55250        GOPERF1           TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
062587,000818: 10,3070           33720                          CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
062588,000819: 
062589,000820: 10,3071           54155        GOPERFS           TS       PLAYTEM1                              
062590,000821: 
062591,000822: 10,3072           33717                          CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
062592,000823: 10,3073           12745                          TCF      GOFLASH2                              
062593,000824: 
062594,000825: 10,3074           54775        GOPERF4           TS       OPTION1                               #  DESIRED OPTION CODE
062595,000826: 
062596,000827: 10,3075           34537                          CAF      V04N06                                
062597,000828: 10,3076           54155                          TS       PLAYTEM1                              
062598,000829: 
062599,000830: 10,3077           35775                          CAF      PERF4MSK                              #  FLASH, PERFORM, AND BLANK R3
062600,000831: 10,3100           12745                          TCF      GOFLASH2                              
062601,000832: 
062602,000833: 10,3101           54155        GOFLASHR          TS       PLAYTEM1                              
062603,000834: 
062604,000835: 10,3102           34765                          CAF      FLSHRQST                              #  LEAVE ONLY FLASH BIT SET
062605,000836: 10,3103           54160        GODSPRS           TS       PLAYTEM4                              
062606,000837:                                                                                                 # # Page 1466
062607,000838: 10,3104           36214                          CAF      THREE                                 
062608,000839: 
062609,000840: 10,3105           00004        GODSPRS1          INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
062610,000841: 10,3106           54072                          TS       RUPTREG3                              
062611,000842: 
062612,000843: 10,3107           30167                          CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
062613,000844: 10,3110           77660                          MASK     PRIO37                                
062614,000845: 10,3111           54063                          TS       NEWPRIO                               
062615,000846: 
062616,000847: 10,3112           30160                          CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
062617,000848: 10,3113           74765                          MASK     FLSHRQST                              
062618,000849: 10,3114           10000                          CCS      A                                     
062619,000850: 10,3115           13123                          TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
062620,000851: 10,3116           30063                          CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
062621,000852: 10,3117           05121                          TC       NOVAC                                 
062622,000853: 10,3120  0003777                                 EBANK=   WHOCARES                              
062623,000854: 10,3120           03012 20067                    2CADR    MAKEPLAY                              
062624,000855: 
062625,000856: 10,3122           13131                          TCF      BOTHJOBS                              
062626,000857: 
062627,000858: 10,3123           30006        VACDSP            CA       BBANK                                 
062628,000859: 10,3124           00006                          EXTEND                                         
062629,000860: 10,3125           04007                          ROR      SUPERBNK                              
062630,000861: 10,3126           54001                          TS       L                                     
062631,000862: 10,3127           33744                          CAF      MAKEGEN                               
062632,000863: 10,3130           05146                          TC       SPVAC                                 
062633,000864: 
062634,000865: 10,3131           03157        BOTHJOBS          TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
062635,000866: 
062636,000867: 10,3132           00006                          EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
062637,000868: 10,3133           30156                          DCA      MPAC       +1                         
062638,000869: 10,3134           50064                          INDEX    LOCCTR                                
062639,000870: 10,3135           52156                          DXCH     MPAC       +1                         
062640,000871: 
062641,000872: 10,3136           00006                          EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
062642,000873: 10,3137           30160                          DCA      MPAC       +3                         
062643,000874: 10,3140           50064                          INDEX    LOCCTR                                
062644,000875: 10,3141           52160                          DXCH     MPAC       +3                         
062645,000876: 
062646,000877: 10,3142           30064                          CA       LOCCTR                                
062647,000878: 10,3143           54161                          TS       MPAC       +5                         
062648,000879: 
062649,000880: 10,3144           03164                          TC       SAVELOCR                              
062650,000881: 10,3145           00003                          RELINT                                         
062651,000882: 
062652,000883: 10,3146           14660                          TCF      BANKJUMP                              #  CALL CADR +4
062653,000884: 
062654,000885: 10,3147           55250        GOPERF1R          TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
062655,000886: 
062656,000887: 10,3150           33720                          CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
062657,000888: 
062658,000889:                                                                                                 # # Page 1467
062659,000890: 
062660,000891: 10,3151           54155        GOPERFRS          TS       PLAYTEM1                              
062661,000892: 
062662,000893: 10,3152           33717                          CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
062663,000894: 10,3153           13103                          TCF      GODSPRS                               
062664,000895: 
062665,000896: 10,3154           54155        GOPERF2R          TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
062666,000897: 
062667,000898: 10,3155           35001                          CAF      PERF2MSK                              
062668,000899: 10,3156           13103                          TCF      GODSPRS                               
062669,000900: 
062670,000901: 10,3157           00004        SAVELOCS          INHINT                                         
062671,000902: 
062672,000903: 10,3160           45046                          CS       EBANK7                                #  GETS ALL EBANK BITS OFF
062673,000904: 10,3161           70160                          MASK     PLAYTEM4                              
062674,000905: 10,3162           60003                          AD       EBANK                                 
062675,000906: 10,3163           54160                          TS       PLAYTEM4                              
062676,000907: 
062677,000908: 10,3164           22002        SAVELOCR          LXCH     Q                                     
062678,000909: 
062679,000910: 10,3165           04665                          TC       MAKECADR                              
062680,000911: 10,3166           54157                          TS       PLAYTEM3                              
062681,000912: 
062682,000913: 10,3167           60072                          AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
062683,000914: 10,3170           00001                          TC       L                                     
062684,000915: 
062685,000916: 10,3171           34772        COPYNORM          CAF      ZERO                                  
062686,000917: 10,3172           54164        COPIES            TS       COPINDEX                              
062687,000918: 10,3173           30160        COPIES2           CA       PLAYTEM4                              #  FLAGWORD
062688,000919: 10,3174           50164                          INDEX    COPINDEX                              
062689,000920: 10,3175           55273                          TS       EBANKSAV                              #  EQUIV TO DSPFLG
062690,000921: 
062691,000922: 10,3176           75004                          MASK     CADRMASK                              #  FLASH AND GODSPRET
062692,000923: 10,3177           00006                          EXTEND                                         
062693,000924: 10,3200           13204                          BZF      SKIPADD                               
062694,000925: 
062695,000926: 10,3201           30157                          CA       PLAYTEM3                              
062696,000927: 10,3202           50164                          INDEX    COPINDEX                              
062697,000928: 10,3203           54371                          TS       CADRFLSH                              
062698,000929: 
062699,000930: 10,3204           30155        SKIPADD           CA       PLAYTEM1                              #  VERB NOUN
062700,000931: 10,3205           50164                          INDEX    COPINDEX                              
062701,000932: 10,3206           54366                          TS       NVWORD                                
062702,000933: 
062703,000934: 10,3207           13454                          TCF      RELINTQ                               
062704,000935: 
062705,000936: 10,3210           50164        GOSLEEPS          INDEX    COPINDEX                              
062706,000937: 10,3211           33740                          CA       PRIOOCT                               
062707,000938: 10,3212           75045                          MASK     WAITMASK                              
062708,000939: 10,3213           03755                          TC       UPENT2                                
062709,000940: 10,3214           44770                          CS       ONE                                   
062710,000941:                                                                                                 # # Page 1468
062711,000942: 10,3215           60164                          AD       COPINDEX                              
062712,000943: 10,3216           54154                          TS       FACEREG                               
062713,000944: 
062714,000945: 10,3217           50154        XCHSLEEP          INDEX    FACEREG                               
062715,000946: 10,3220           33725                          CAF      WAKECADR                              
062716,000947: 10,3221           05167                          TC       JOBWAKE                               #  FIND CADR IN JOB AREA
062717,000948: 
062718,000949: 10,3222           03445                          TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
062719,000950: 
062720,000951: 10,3223           50154                          INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
062721,000952: 10,3224           33725                          CAF      WAKECADR                              
062722,000953: 10,3225           15163                          TCF      JOBSLEEP                              
062723,000954: 
062724,000955: 10,3226           54154        JOBXCHS           TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
062725,000956: 10,3227           03431                          TC       WITCHONE                              
062726,000957: 10,3230           05167                          TC       JOBWAKE                               
062727,000958: 10,3231           30154                          CA       FACEREG                               
062728,000959: 10,3232           50064                          INDEX    LOCCTR                                
062729,000960: 10,3233           54154                          TS       FACEREG                               
062730,000961: 
062731,000962: 10,3234           33752                          CAF      XCHQADD                               
062732,000963: 10,3235           03446                          TC       XCHNYLOC                              
062733,000964: 
062734,000965: 10,3236           50154                          INDEX    FACEREG                               
062735,000966: 10,3237           33741                          CA       MARKOCT                               
062736,000967: 10,3240           73743                          MASK     IDLESLEP                              
062737,000968: 10,3241           03762                          TC       DOWNENT2                              
062738,000969: 10,3242           50154                          INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
062739,000970: 10,3243           34764                          CA       MRUPTBIT                              #  BIT5 FOR MARK, BIT4 FOR NORMAL
062740,000971: 10,3244           03755                          TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
062741,000972: 10,3245           30100                          CA       FLAGWRD4                              
062742,000973: 10,3246           74766                          MASK     MKOVBIT                               #  IF BIT 3 THEN MARK OVER NORM
062743,000974: 10,3247           10000                          CCS      A                                     
062744,000975: 10,3250           02630        GENMARK           TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
062745,000976: 10,3251           13002                          TCF      OKTOCOPY                              
062746,000977: 
062747,000978: 10,3252           34772        MARKWAKE          CAF      ZERO                                  
062748,000979: 10,3253           54160        WAKEPLAY          TS       TEMPOR2                               
062749,000980: 
062750,000981: 10,3254           50160                          INDEX    TEMPOR2                               
062751,000982: 10,3255           33736                          CA       BITS5+11                              
062752,000983: 10,3256           03762                          TC       DOWNENT2                              
062753,000984: 10,3257           50160                          INDEX    TEMPOR2                               
062754,000985: 10,3260           33725                          CAF      WAKECADR                              
062755,000986: 10,3261           05167                          TC       JOBWAKE                               
062756,000987: 
062757,000988: 10,3262           13555                          TCF      ENDRET                                
062758,000989: 
062759,000990:                                                                                                 #  ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
062760,000991:                                                                                                 #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
062761,000992:                                                                                                 # # Page 1469
062762,000993:                                                                                                 #  IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
062763,000994:                                                                                                 #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
062764,000995: 
062765,000996: 10,3263           31275        INITDSP           CA       EBANKTEM                              #  RESTORE MOST RECENT NORMAL EBANK
062766,000997: 10,3264           54003                          TS       EBANK                                 
062767,000998: 
062768,000999: 10,3265           30365                          CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
062769,001000: 10,3266           00006                          EXTEND                                         #  RESTORE SUPERBANK
062770,001001: 10,3267           01007                          WRITE    SUPERBNK                              #  CHAN 07
062771,001002: 10,3270           77660                          MASK     PRIO37                                
062772,001003: 10,3271           05176                          TC       PRIOCHNG                              
062773,001004: 
062774,001005: 10,3272           46214                          CS       THREE                                 
062775,001006: 10,3273           60373                          AD       TEMPFLSH                              
062776,001007: 10,3274           14660                          TCF      BANKJUMP                              
062777,001008: 
062778,001009: 10,3275           00003        PINBRNCH          RELINT                                         #  FOR GOPIN USERS
062779,001010: 10,3276           31276                          CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
062780,001011: 10,3277           54156                          TS       MPAC       +2                         #  ONLY
062781,001012: 
062782,001013: 10,3300           30100                          CA       FLAGWRD4                              #  PINBRANCH CONDITION
062783,001014: 10,3301           77673                          MASK     PINMASK                               
062784,001015: 10,3302           10000                          CCS      A                                     
062785,001016: 10,3303           13306                          TCF      +3                                    
062786,001017: 10,3304           13713                          TCF      ERASER                                #  ** NOTHING IN ENDIDLE
062787,001018: 10,3305           12630                          TCF      MARKPLAY                              
062788,001019: 
062789,001020: 10,3306           05547        NORMBNCH          TC       UPFLAG                                #  SET PINBRANCH BIT
062790,001021: 10,3307           00105                          ADRES    PINBRFLG                              
062791,001022: 
062792,001023: 10,3310           34753                          CAF      PRIODBIT                              #  PRIO INTERRUPTED
062793,001024: 10,3311           70100                          MASK     FLAGWRD4                              
062794,001025: 10,3312           10000                          CCS      A                                     
062795,001026: 10,3313           13010                          TCF      KEEPPRIO                              
062796,001027: 
062797,001028: 10,3314           13061                          TCF      PLAYJUM1                              
062798,001029: 
062799,001030: 10,3315           22007        NVDSP             ZL                                             
062800,001031: 10,3316           02660                          TC       COPYPACS                              
062801,001032: 10,3317           30160                          CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
062802,001033: 10,3320           74774                          MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
062803,001034: 10,3321           26001                          ADS      L                                     
062804,001035: 10,3322           44754                          CS       2NDPERF                               
062805,001036: 10,3323           50164                          INDEX    COPINDEX                              
062806,001037: 10,3324           71273                          MASK     DSPFLG                                
062807,001038: 10,3325           50164                          INDEX    COPINDEX                              
062808,001039: 10,3326           55273                          TS       DSPFLG                                
062809,001040: 
062810,001041: 10,3327           74761                          MASK     DCMKPERF                              
062811,001042: 10,3330           10000                          CCS      A                                     
062812,001043:                                                                                                 # # Page 1470
062813,001044: 10,3331           35044                          CA       OCT2600                               
062814,001045: 10,3332           54141                          TS       TEM1                                  
062815,001046: 
062816,001047: 10,3333           30156                          CA       MPAC       +2                         
062817,001048: 10,3334           54165                          TS       MPAC2SAV                              
062818,001049: 
062819,001050: 10,3335           55276                          TS       MARK2PAC                              #  * FOR DISK ONLY *
062820,001051: 10,3336           50164                          INDEX    COPINDEX                              
062821,001052: 10,3337           10366                          CCS      NVWORD                                
062822,001053: 10,3340           13347                          TCF      NVDSP1                                
062823,001054: 10,3341           13455                          TCF      CLEANEND                              
062824,001055: 10,3342           40367                          CS       MARKNV                                
062825,001056: 10,3343           54367                          TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
062826,001057: 10,3344           76043                          MASK     LOW7                                  
062827,001058: 10,3345           63731                          AD       V05N00M1                              
062828,001059: 10,3346           60141                          AD       TEM1                                  
062829,001060: 10,3347           64770        NVDSP1            AD       ONE                                   
062830,001061: 10,3350           04203        NV50DSP           TC       NVMONOPT                              
062831,001062: 10,3351           13467                          TCF      REST                                  #  IF BUSY
062832,001063: 10,3352           04417                          TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
062833,001064: 
062834,001065: 10,3353           02656                          TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
062835,001066: 10,3354           33732                          CAF      OCT700                                
062836,001067: 10,3355           03762                          TC       DOWNENT2                              
062837,001068: 
062838,001069: 10,3356           30160        BLANKCHK          CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
062839,001070: 10,3357           04264                          TC       BLANKSUB                              
062840,001071: 10,3360           13315                          TCF      NVDSP                                 
062841,001072: 10,3361           34764        PERFCHEK          CAF      PERFRQST                              #  BIT5 FOR PERFORM
062842,001073: 10,3362           70160                          MASK     TEMPOR2                               
062843,001074: 10,3363           10000                          CCS      A                                     #  IS THIS A GOPERF DISPLAY
062844,001075: 10,3364           13407                          TCF      1STOR2ND                              #  YES
062845,001076: 
062846,001077: 10,3365           34765        GOANIDLE          CAF      FLSHRQST                              
062847,001078: 10,3366           70160                          MASK     TEMPOR2                               
062848,001079: 10,3367           10000                          CCS      A                                     
062849,001080: 10,3370           13504                          TCF      FLASHSUB                              #  IT IS
062850,001081: 
062851,001082: 10,3371           40160                          CS       TEMPOR2                               #  IS THIS A GODSPRET
062852,001083: 10,3372           74763                          MASK     RETDSPY                               
062853,001084: 10,3373           10000                          CCS      A                                     
062854,001085: 10,3374           13401                          TCF      ISITN00                               
062855,001086: 
062856,001087: 10,3375           50164                          INDEX    COPINDEX                              
062857,001088: 10,3376           30371                          CA       CADRFLSH                              
062858,001089: 10,3377           54157                          TS       MPAC       +3                         
062859,001090: 10,3400           13602                          TCF      ENDIT                                 
062860,001091: 
062861,001092: 10,3401           50164        ISITN00           INDEX    COPINDEX                              #  IS THIS A PASTE
062862,001093: 10,3402           30366                          CA       NVWORD                                
062863,001094:                                                                                                 # # Page 1471
062864,001095: 10,3403           76043                          MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
062865,001096: 10,3404           00006                          EXTEND                                         
062866,001097: 10,3405           13504                          BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
062867,001098: 
062868,001099: 10,3406           15205                          TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THEREFORE EXIT
062869,001100: 
062870,001101: 10,3407           30160        1STOR2ND          CA       TEMPOR2                               
062871,001102: 10,3410           74754                          MASK     2NDPERF                               
062872,001103: 10,3411           10000                          CCS      A                                     
062873,001104: 10,3412           13365                          TCF      GOANIDLE                              #  SECOND
062874,001105: 
062875,001106: 10,3413           34754                          CA       2NDPERF                               
062876,001107: 10,3414           50164                          INDEX    COPINDEX                              
062877,001108: 10,3415           27273                          ADS      DSPFLG                                
062878,001109: 
062879,001110: 10,3416           22007                          ZL                                             
062880,001111: 10,3417           00006                          EXTEND                                         #  IS IT MARK
062881,001112: 10,3420           62677                          BZMF     MARKPERF                              #  YES
062882,001113: 
062883,001114: 10,3421           74755                          MASK     V99PSTE                               
062884,001115: 10,3422           00006                          EXTEND                                         
062885,001116: 10,3423           13427                          BZF      V50PASTE                              
062886,001117: 10,3424           40777                          CS       NVWORD1                               #  NVOWRD1= -0 IS V97.  NVWORD1= -400 IS V99
062887,001118: 10,3425           63746                          AD       V97N00                                
062888,001119: 10,3426           13350                          TCF      NV50DSP                               
062889,001120: 10,3427           33721        V50PASTE          CAF      V50N00                                
062890,001121: 10,3430           13350                          TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
062891,001122: 
062892,001123: 10,3431           44764        WITCHONE          CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
062893,001124: 10,3432           00006                          EXTEND                                         
062894,001125: 10,3433           03011                          WAND     DSALMOUT                              
062895,001126: 
062896,001127: 10,3434           30100                          CA       FLAGWRD4                              
062897,001128: 10,3435           73732                          MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
062898,001129: 10,3436           10000                          CCS      A                                     
062899,001130: 10,3437           34770                          CAF      ONE                                   
062900,001131: 10,3440           54001                          TS       L                                     
062901,001132: 10,3441           34772                          CAF      ZERO                                  
062902,001133: 10,3442           50001                          INDEX    L                                     
062903,001134: 10,3443           57245                          XCH      CADRSTOR                              
062904,001135: 
062905,001136: 10,3444           00002                          TC       Q                                     
062906,001137: 
062907,001138: 10,3445           34170        XCHTOEND          CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
062908,001139: 10,3446           56064        XCHNYLOC          XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
062909,001140: 10,3447           00006                          EXTEND                                         
062910,001141: 10,3450           63454                          BZMF     RELINTQ                               #  NO
062911,001142: 10,3451           56064                          XCH      LOCCTR                                #  YES
062912,001143: 10,3452           50064                          INDEX    LOCCTR                                
062913,001144: 10,3453           54164                          TS       LOC                                   
062914,001145: 
062915,001146:                                                                                                 # # Page 1472
062916,001147: 
062917,001148: 10,3454           15642        RELINTQ           TCF      REQ                                   #  BACK TO USER
062918,001149: 10,3455           37654        CLEANEND          CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
062919,001150: 10,3456           05135                          TC       FINDVAC                               
062920,001151: 10,3457     0370                                 EBANK=   NVSAVE                                
062921,001152: 10,3457           04247 04060                    2CADR    JAMTERM                               
062922,001153: 
062923,001154: 10,3461           13505                          TCF      FLASHSUB   +1                         
062924,001155: 
062925,001156: 10,3462           30100        ISITPRIO          CA       FLAGWRD4                              
062926,001157: 10,3463           77667                          MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
062927,001158: 10,3464           00006                          EXTEND                                         
062928,001159: 10,3465           13041                          BZF      PRIOBORT                              
062929,001160: 10,3466           15205                          TCF      ENDOFJOB                              
062930,001161: 
062931,001162: 10,3467           11245        REST              CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
062932,001163: 10,3470           15205                          TCF      ENDOFJOB                              #  YES
062933,001164: 10,3471           13473                          TCF      RESTSLEP                              
062934,001165: 
062935,001166: 10,3472           15205                          TCF      ENDOFJOB                              
062936,001167: 
062937,001168: 10,3473           30162        RESTSLEP          CA       GENMASK                               #  SET NVSLEEP BITS
062938,001169: 10,3474           73732                          MASK     NVBUSMSK                              
062939,001170: 10,3475           03755                          TC       UPENT2                                
062940,001171: 10,3476           04240        NVSUBUSY          TC       ISCADR+0                              
062941,001172: 10,3477           04356                          TC       RELDSPON                              
062942,001173: 10,3500           50164                          INDEX    COPINDEX                              
062943,001174: 10,3501           33724                          CAF      NVCADR                                
062944,001175: 10,3502           55246                          TS       DSPLIST                               
062945,001176: 10,3503           05163                          TC       JOBSLEEP                              
062946,001177: 10,3504           04360        FLASHSUB          TC       FLASHON                               
062947,001178: 
062948,001179: 10,3505           30164                 +1       CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
062949,001180: 10,3506           54157                          TS       COPMPAC                               
062950,001181: 
062951,001182: 10,3507           30162                          CA       GENMASK                               
062952,001183: 10,3510           77675                          MASK     IDLEMASK                              
062953,001184: 10,3511           03755                          TC       UPENT2                                
062954,001185: 10,3512           11245                          CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
062955,001186: 10,3513           13462                          TCF      ISITPRIO                              
062956,001187: 10,3514           13516                          TCF      +2                                    
062957,001188: 10,3515           13462                          TCF      ISITPRIO                              
062958,001189: 
062959,001190: 10,3516           04240        ENDIDLE           TC       ISCADR+0                              
062960,001191: 10,3517           33557                          CA       ENDIDRET                              
062961,001192: 10,3520           55245                          TS       CADRSTOR                              
062962,001193: 10,3521           05163                          TC       JOBSLEEP                              
062963,001194: 10,3522           44354        IDLERET1          CS       LOWLOAD                               
062964,001195: 10,3523           60154                          AD       MPAC                                  #  VERBREG
062965,001196: 10,3524           00006                          EXTEND                                         
062966,001197:                                                                                                 # # Page 1473
062967,001198: 10,3525           26000                          DIM      A                                     
062968,001199: 10,3526           00006                          EXTEND                                         
062969,001200: 10,3527           13703                          BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
062970,001201: 10,3530           30100        OKTOENT           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
062971,001202: 10,3531           74076                          MASK     BIT15/14                              
062972,001203: 10,3532           10000                          CCS      A                                     
062973,001204: 10,3533           13536                          TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
062974,001205: 10,3534           13651                          TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
062975,001206: 10,3535           13640                          TCF      MARKRET                               #  MARK ENDIDLE RETURN
062976,001207: 
062977,001208: 10,3536           30366        TIMECHEK          CA       NVWORD                                
062978,001209: 10,3537           00006                          EXTEND                                         
062979,001210: 10,3540           13651                          BZF      NORMRET                               
062980,001211: 
062981,001212: 10,3541           40025                          CS       TIME1                                 
062982,001213: 10,3542           61005                          AD       PRIOTIME                              
062983,001214: 10,3543           10000                          CCS      A                                     
062984,001215: 10,3544           40000                          COM                                            
062985,001216: 10,3545           67663                          AD       OCT37776                              
062986,001217: 10,3546           64770                          AD       ONE                                   
062987,001218: 10,3547           63774                          AD       -2SEC                                 
062988,001219: 10,3550           00006                          EXTEND                                         
062989,001220: 10,3551           63010                          BZMF     KEEPPRIO                              
062990,001221: 
062991,001222: 10,3552           13651                          TCF      NORMRET                               
062992,001223: 
062993,001224: 10,3553           34770        NORMWAKE          CAF      ONE                                   
062994,001225: 10,3554           13253                          TCF      WAKEPLAY                              
062995,001226: 
062996,001227: 
062997,001228: 10,3555           11217        ENDRET            CCS      LOADSTAT                              #  -0=V32 OR E, -1=V33 OR PRO, -2=V34
062998,001229: 10,3556           15205                          TCF      ENDOFJOB                              #  +1=ENDMARK
062999,001230: 10,3557           21522        ENDIDRET          CADR     IDLERET1                              #  CANNOT GET HERE
063000,001231: 10,3560           13561                          TCF      +1                                    
063001,001232: 10,3561           30100                          CA       FLAGWRD4                              #  IS IT A VNFLASH
063002,001233: 10,3562           74767                          MASK     VNBIT                                 #     (BIT2)
063003,001234: 10,3563           60157                          AD       COPMPAC                               #    AND A NORMAL DISPLAY
063004,001235: 10,3564           66061                          AD       NEG4                                  
063005,001236: 10,3565           00006                          EXTEND                                         
063006,001237: 10,3566           13607                          BZF      VNRET                                 
063007,001238: 10,3567           31217                          CA       LOADSTAT                              
063008,001239: 10,3570           64767                          AD       TWO                                   
063009,001240: 10,3571           50157        ENDRET1           INDEX    COPMPAC                               
063010,001241: 10,3572           60371                          AD       CADRFLSH                              
063011,001242: 10,3573           54157        ENDRET2           TS       MPAC       +3                         
063012,001243: 
063013,001244: 10,3574           30162                          CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
063014,001245: 10,3575           73751                          MASK     PINIDMSK                              
063015,001246: 10,3576           03762                          TC       DOWNENT2                              
063016,001247: 10,3577           46214                          CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
063017,001248: 10,3600           04202                          TC       NVSUB                                 
063018,001249:                                                                                                 # # Page 1474
063019,001250: 10,3601           13602                          TCF      +1                                    
063020,001251: 
063021,001252: 10,3602           30163        ENDIT             CA       USERPRIO                              #  RETURN TO USERS PRIORITY
063022,001253: 10,3603           77660                          MASK     PRIO37                                
063023,001254: 10,3604           05176                          TC       PRIOCHNG                              
063024,001255: 10,3605           30157                          CA       MPAC       +3                         
063025,001256: 10,3606           14660                          TCF      BANKJUMP                              
063026,001257: 
063027,001258: 10,3607           05561        VNRET             TC       DOWNFLAG                              
063028,001259: 10,3610           00111                          ADRES    VNFLAG                                
063029,001260: 10,3611           31217                          CA       LOADSTAT                              
063030,001261: 10,3612           64770                          AD       ONE                                   
063031,001262: 10,3613           10000                          CCS      A                                     
063032,001263: 10,3614           37700                          CAF      NEG3                                  #  LOADOSTAT.-0
063033,001264: 10,3615           13571                          TCF      ENDRET1                               #  CANNOT GET HERE VIA CCS
063034,001265: 10,3616           13621                          TCF      TERMFLSH                              #  LOADSTAT=-2
063035,001266: 10,3617           44770                          CS       ONE                                   #  COMPENSATE FOR INCREMENTED Q IN LEAD-IN
063036,001267: 10,3620           13571                          TCF      ENDRET1                               #  LOADSTAT=-1
063037,001268: 10,3621           33753        TERMFLSH          CAF      GOPOOCAD                              
063038,001269: 10,3622           13573                          TCF      ENDRET2                               
063039,001270: 
063040,001271: 
063041,001272: 10,3623           40160        LINUSCHR          CS       PLAYTEM4                              #  IS THIS A LINUS
063042,001273: 10,3624           74753                          MASK     REFLSH                                
063043,001274: 10,3625           10000                          CCS      A                                     
063044,001275: 10,3626           16706                          TCF      Q+1                                   #  NO
063045,001276: 10,3627           40157                          CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
063046,001277: 10,3630           50164                          INDEX    COPINDEX                              
063047,001278: 10,3631           60371                          AD       CADRFLSH                              
063048,001279: 10,3632           00006                          EXTEND                                         
063049,001280: 10,3633           13635                          BZF      +2                                    #  YES
063050,001281: 
063051,001282: 10,3634           00002                          TC       Q                                     #  NO
063052,001283: 10,3635           11215                          CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
063053,001284: 10,3636           05205                          TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
063054,001285: 10,3637           00002                          TC       Q                                     
063055,001286: 
063056,001287:                                                                                                 #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD.
063057,001288: 
063058,001289:                                                                                                 #  LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
063059,001290:                                                                                                 #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
063060,001291:                                                                                                 #  DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP.
063061,001292: 
063062,001293:                                                                                                 #  IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
063063,001294:                                                                                                 #  UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
063064,001295:                                                                                                 #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A
063065,001296:                                                                                                 #  PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
063066,001297: 
063067,001298: 10,3640           34766        MARKRET           CAF      MKOVBIT                               
063068,001299: 10,3641           03762                          TC       DOWNENT2                              
063069,001300:                                                                                                 # # Page 1475
063070,001301: 10,3642           13555                          TCF      ENDRET                                
063071,001302: 
063072,001303: 10,3643           34770        MARKOVER          CAF      ONE                                   
063073,001304: 10,3644           55217                          TS       LOADSTAT                              
063074,001305: 10,3645           30100                          CA       FLAGWRD4                              #  IS ENDIDFLG SET
063075,001306: 10,3646           74346                          MASK     BIT13-14                              #  IS NORMAL OR PRIO IN ENDIDLE
063076,001307: 10,3647           10000                          CCS      A                                     
063077,001308: 10,3650           13306                          TCF      NORMBNCH                              
063078,001309: 
063079,001310: 10,3651           30100        NORMRET           CA       FLAGWRD4                              #  IS MARK SLEEPING
063080,001311: 10,3652           73736                          MASK     BITS5+11                              #  OR WAITING
063081,001312: 10,3653           10000                          CCS      A                                     
063082,001313: 10,3654           13252                          TCF      MARKWAKE                              
063083,001314: 
063084,001315: 10,3655           30100                          CA       FLAGWRD4                              #  NO
063085,001316: 10,3656           73737                          MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
063086,001317: 10,3657           10000                          CCS      A                                     
063087,001318: 10,3660           13553                          TCF      NORMWAKE                              #  YES
063088,001319: 
063089,001320: 10,3661           34765                          CAF      FLSHRQST                              #  NO, WAS IT A FLASH REQUEST
063090,001321: 10,3662           64763                          AD       RETDSPY                               #  OR GODSPRET
063091,001322: 10,3663           71275                          MASK     EBANKTEM                              
063092,001323: 10,3664           10000                          CCS      A                                     
063093,001324: 10,3665           13555                          TCF      ENDRET                                #  YES
063094,001325: 10,3666           30370                          CA       NVSAVE                                
063095,001326: 10,3667           00006                          EXTEND                                         
063096,001327: 10,3670           13555                          BZF      ENDRET                                
063097,001328: 
063098,001329: 10,3671           35054                          CAF      PRIO15                                
063099,001330: 10,3672           05121                          TC       NOVAC                                 
063100,001331: 10,3673     0366                                 EBANK=   NVWORD                                
063101,001332: 10,3673           03061 20060                    2CADR    PLAYJUM1                              
063102,001333: 
063103,001334: 
063104,001335: 10,3675           13555                          TCF      ENDRET                                
063105,001336: 
063106,001337: 10,3676           30100        MARSLEEP          CA       FLAGWRD4                              #  IS MARK ALREADY ON
063107,001338: 10,3677           73736                          MASK     BITS5+11                              
063108,001339: 10,3700           10000                          CCS      A                                     
063109,001340: 10,3701           15205                          TCF      ENDOFJOB                              #  YES
063110,001341: 10,3702           13210                          TCF      GOSLEEPS                              
063111,001342: 
063112,001343: 10,3703           50157        LOADITIS          INDEX    COPMPAC                               
063113,001344: 10,3704           30366                          CA       NVWORD                                
063114,001345: 10,3705           76043                          MASK     LOW7                                  
063115,001346: 10,3706           40000                          COM                                            
063116,001347: 10,3707           60155                          AD       MPAC       +1                         #  NOUNREG
063117,001348: 10,3710           00006                          EXTEND                                         
063118,001349: 10,3711           13530                          BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
063119,001350: 10,3712           13275                          TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
063120,001351: 
063121,001352:                                                                                                 # # Page 1476
063122,001353: 10,3713           46214        ERASER            CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
063123,001354: 10,3714           04202                          TC       NVSUB                                 
063124,001355: 10,3715           15205                          TCF      ENDOFJOB                              
063125,001356: 10,3716           15205                          TCF      ENDOFJOB                              
063126,001357: 
063127,001358: 10,3717           00036        PERFMASK          OCT      0036                                  #  FLASH,PERFORM,BLANK R2 AND R3
063128,001359: 10,3720           00231        V01N25            VN       00125                                 
063129,001360: 10,3721           14400        V50N00            VN       5000                                  
063130,001361: 10,3722     5001               PERF2MSK          EQUALS   BITS4&5                               #  (OCTAL 30)   FLASH, PERFORM
063131,001362: 10,3722     5775               PERF4MSK          EQUALS   OCT14                                 #  FLASH, BLANK R3
063132,001363: 10,3722           20010        REDOMASK          OCT      20010                                 #  BITS 4 AND 14
063133,001364: 10,3723           40036        MARK4MSK          OCT      40036                                 #  MARK,PERFORM,FLASH,BLANK 2 AND 3
063134,001365: 10,3724           21006        NVCADR            CADR     REDOPRIO                              
063135,001366: 10,3725           20630        WAKECADR          CADR     MARKPLAY                              
063136,001367: 10,3726           21061                          CADR     PLAYJUM1                              
063137,001368: 
063138,001369: 10,3727           11210        NBUSMASK          OCT      11210                                 
063139,001370: 10,3730           66521        PMMASK            OCT      66521                                 
063140,001371: 10,3731     4171               VERBMASK          =        MID7                                  #  (OCT 37600)
063141,001372: 10,3731           01177        V05N00M1          OCT      1177                                  #  V05 MINUS ONE
063142,001373: 10,3732  10,2576               GOXDSPF           EQUALS   GOMARKF                               
063143,001374: 10,3732     5524               ENDEXT            EQUALS   ENDMARK                               
063144,001375: 10,3732     0165               MPAC2SAV          EQUALS   BANKSET                               
063145,001376: 10,3732           00700        NVBUSMSK          OCT      700                                   
063146,001377: 10,3733           40030        MPERFMSK          OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
063147,001378: 10,3734           34300        OCT34300          OCT      34300                                 
063148,001379: 10,3735           40100        BITS15+7          OCT      40100                                 
063149,001380: 10,3736           02020        BITS5+11          OCT      2020                                  #  * DONT MOVE
063150,001381: 10,3737           01010        BITS4+10          OCT      1010                                  #  * DONT MOVE
063151,001382: 10,3740     4354               LOWLOAD           EQUALS   VBSP2LD                               
063152,001383: 10,3740     5004               CADRMASK          EQUALS   OCT50                                 
063153,001384: 10,3740     7673               PINMASK           EQUALS   13,14,15                              
063154,001385: 10,3740  10,3315               GOPLAY            EQUALS   NVDSP                                 
063155,001386:                                                                                                 # PRIOSAVE        EQUALS  R1SAVE
063156,001387: 10,3740     0157               COPMPAC           EQUALS   MPAC       +3                         
063157,001388: 10,3740     0160               TEMPOR2           EQUALS   MPAC       +4                         
063158,001389: 10,3740     0164               COPINDEX          EQUALS   LOC                                   
063159,001390: 10,3740     0163               USERPRIO          EQUALS   MODE                                  
063160,001391: 10,3740     0162               GENMASK           EQUALS   MPAC       +6                         
063161,001392: 10,3740           20144        PRIOOCT           OCT      20144                                 #  PRIO
063162,001393: 10,3741           42424        MARKOCT           OCT      42424                                 #  MARK
063163,001394: 10,3742           11254                          OCT      11254                                 #  NORM
063164,001395: 
063165,001396: 10,3743           74700        IDLESLEP          OCT      74700                                 
063166,001397: 10,3744     5516               LINUS             EQUALS   BLANKET                               
063167,001398: 10,3744     0154               FACEREG           EQUALS   MPAC                                  
063168,001399: 10,3744     0155               PLAYTEM1          EQUALS   MPAC       +1                         
063169,001400: 10,3744     0157               PLAYTEM3          EQUALS   MPAC       +3                         
063170,001401: 10,3744     0160               PLAYTEM4          EQUALS   MPAC       +4                         
063171,001402: 10,3744           03012        MAKEGEN           GENADR   MAKEPLAY                              
063172,001403:                                                                                                 # # Page 1477
063173,001404: 10,3745           10200        BIT13+8           OCT      10200                                 
063174,001405: 10,3746           30200        V97N00            VN       09700                                 #  PASTE FOR V97 OR V99
063175,001406: 10,3747           20100        BIT14+7           OCT      20100                                 
063176,001407: 10,3750           24030        CLOCKCON          OCT      24030                                 #  FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
063177,001408: 10,3751           74040        PINIDMSK          OCT      74040                                 
063178,001409: 10,3752     7675               IDLEMASK          EQUALS   HIGH4                                 
063179,001410: 10,3752     7667               ITISMASK          EQUALS   BIT15+6                               #  *** ENDIDLE ALLOW ***
063180,001411: 10,3752     7664               MARKFMSK          EQUALS   OT40010                               
063181,001412: 10,3752           03217        XCHQADD           GENADR   XCHSLEEP                              
063182,001413: 10,3753     5045               WAITMASK          EQUALS   PRIO3                                 #  (OCTAL 3000)
063183,001414: 10,3753  10,3732               OCT700            EQUALS   NVBUSMSK                              
063184,001415: 10,3753           55772        GOPOOCAD          CADR     TCGOPOOH                              
063185,001416: 10,3754           40210        MARK3MSK          OCT      40210                                 
063186,001417: 10,3755     4752               MKRQST            =        BIT15                                 
063187,001418: 10,3755     4753               REFLSH            =        BIT14                                 
063188,001419: 10,3755     4754               2NDPERF           =        BIT13                                 
063189,001420: 10,3755     4755               V99PSTE           =        BIT12                                 
063190,001421: 10,3755     4761               DCMKPERF          =        BIT8                                  
063191,001422: 10,3755     4762               PRIODSPY          =        BIT7                                  
063192,001423: 10,3755     4763               RETDSPY           =        BIT6                                  
063193,001424: 10,3755     4764               PERFRQST          =        BIT5                                  
063194,001425: 10,3755     4765               FLSHRQST          =        BIT4                                  
063195,001426: 10,3755     4766               BLNKR3            =        BIT3                                  
063196,001427: 10,3755     4767               BLNKR2            =        BIT2                                  
063197,001428: 10,3755     4770               BLKNR1            =        BIT1                                  
063198,001429: 10,3755     4772               DSPONLY           =        ZERO                                  

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