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.

061797,000002:                                                                                                 #  Copyright:     Public domain.
061798,000003:                                                                                                 #  Filename:      DISPLAY_INTERFACE_ROUTINES.agc
061799,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
061800,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
061801,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
061802,000007:                                                                                                 #                 Apollo 15-17.
061803,000008:                                                                                                 #  Assembler:     yaYUL
061804,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
061805,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
061806,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
061807,000012:                                                                                                 #  Mod history:   2009-08-18 JL   Adapted from corresponding Comanche 055 file.
061808,000013:                                                                                                 #                 2010-01-31 JL   Removed obsolete meta-comment.
061809,000014:                                                                                                 #                 2010-02-01 JL   Fixed build errors.
061810,000015:                                                                                                 #                 2010-02-11 JL   Fixed error on p1465.
061811,000016:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
061812,000017: 

Page 1448

061814,000019: 
061815,000020:                                                                                                 #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -
061816,000021: 
061817,000022:                                                                                                 #         1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
061818,000023:                                                                                                 #            OUT UNDER CRITICAL ALARM CONDITIONS.
061819,000024:                                                                                                 #         2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
061820,000025:                                                                                                 #         3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
061821,000026:                                                                                                 #            SEQUENCE OF EVENTS.
061822,000027:                                                                                                 #         4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
061823,000028:                                                                                                 #            MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
061824,000029:                                                                                                 #         5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
061825,000030: 
061826,000031:                                                                                                 #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -
061827,000032: 
061828,000033:                                                                                                 #         1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
061829,000034:                                                                                                 #            (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
061830,000035:                                                                                                 #            BUT NOT WAITING FOR A RESPONSE.
061831,000036:                                                                                                 #         2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
061832,000037:                                                                                                 #            (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
061833,000038:                                                                                                 #            WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
061834,000039:                                                                                                 #            OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
061835,000040:                                                                                                 #            HAS INFO SAVED FOR RESTART PURPOSES.
061836,000041: 
061837,000042:                                                                                                 #  DISPLAY PRIORITIES WORK AS FOLLOWS -
061838,000043: 
061839,000044:                                                                                                 #         INTERRUPTS -
061840,000045:                                                                                                 #                 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
061841,000046:                                                                                                 #                 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
061842,000047:                                                                                                 #                 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
061843,000048:                                                                                                 #                    PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
061844,000049:                                                                                                 #                 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
061845,000050:                                                                                                 #                 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
061846,000051: 
061847,000052:                                                                                                 #         ORDER OF WAITING DISPLAYS -
061848,000053:                                                                                                 #                 1.  ASTRONAUT EXTERNAL USE
061849,000054:                                                                                                 #                 2.  PRIORITY
061850,000055:                                                                                                 #                 3.  INTERRUPTED MARK
061851,000056:                                                                                                 #                 4.  INTERRUPTED NORMAL
061852,000057: 
061853,000058:                                                                                                 #                 5.  MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
061854,000059:                                                                                                 #                 6.  MARK WAITING
061855,000060:                                                                                                 #                 7.  NORMAL WAITING
061856,000061: 

Page 1449

061858,000063:                                                                                                 #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
061859,000064:                                                                                                 #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
061860,000065:                                                                                                 #  WILL FOLLOW LATER):
061861,000066: 
061862,000067:                                                                                                 #         1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
061863,000068:                                                                                                 #             IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
061864,000069:                                                                                                 #             IS TO THE USERS CALLING LOC +1.
061865,000070:                                                                                                 #         2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
061866,000071:                                                                                                 #         3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
061867,000072:                                                                                                 #         4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
061868,000073:                                                                                                 #             USERS JOB.
061869,000074:                                                                                                 #         5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
061870,000075:                                                                                                 #         6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
061871,000076:                                                                                                 #             DESCRIPTION OF RESTARTS).
061872,000077:                                                                                                 #         7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES.  A TERMINATE (V34) BRANCHES
061873,000078:                                                                                                 #             TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
061874,000079:                                                                                                 #             (V32) BRANCHES TO THE USERS CALL CADR +3.
061875,000080:                                                                                                 #         8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL
061876,000081: 
061877,000082:                                                                                                 #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
061878,000083: 
061879,000084:                                                                                                 #  GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
061880,000085: 
061881,000086:                                                                                                 #                         CAF     VXXNYY
061882,000087:                                                                                                 #                         TC      BANKCALL
061883,000088:                                                                                                 #                         CADR    GODSPR
061884,000089:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN OF GODSPR
061885,000090: 
061886,000091:                                                                                                 #  GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
061887,000092:                                                                                                 #  THE ASTRONAUT (SEE NO. 7 ABOVE).
061888,000093: 
061889,000094:                                                                                                 #                         CAF     VXXNYY          # VXX NYY WILL BE A FLASHING VERB NOUN.
061890,000095:                                                                                                 #                         TC      BANKCALL
061891,000096:                                                                                                 #                         CADR    GOFLASH
061892,000097:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061893,000098:                                                                                                 #                         ...     ...             # PROCEED RETURN
061894,000099:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
061895,000100: 
061896,000101:                                                                                                 #  GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
061897,000102:                                                                                                 #  V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
061898,000103:                                                                                                 #  USER (SEE NO. 7 ABOVE).
061899,000104:                                                                                                 #  GOPERF1 BLANKS REGISTERS R2 AND R3
061900,000105: 
061901,000106:                                                                                                 #                         CAF     OCTXX           # CODE FOR CHECKLIST VALUE XX
061902,000107:                                                                                                 #                         TC      BANKCALL
061903,000108:                                                                                                 #                         CADR    GOPERF1
061904,000109:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061905,000110:                                                                                                 #                         ...     ...             # PROCEED RETURN

Page 1450

061907,000112:                                                                                                 #                         ...     ...             # ENTER RETURN
061908,000113: 
061909,000114:                                                                                                 #  GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
061910,000115:                                                                                                 #  DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
061911,000116:                                                                                                 #  IS MADE TO THE USER (SEE NO. 7 ABOVE).
061912,000117:                                                                                                 #  GOPERF3 BLANKS REGISTERS R2 AND R3
061913,000118: 
061914,000119:                                                                                                 #                         CAF     DECXX           # REQUEST PERFORM ON PXX
061915,000120:                                                                                                 #                         TC      BANKCALL
061916,000121:                                                                                                 #                         CADR    GOPERF3
061917,000122:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061918,000123:                                                                                                 #                         ...     ...             # PROCEED RETURN
061919,000124:                                                                                                 #                         ...     ...             # ENTER RETURN
061920,000125: 
061921,000126:                                                                                                 #  GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
061922,000127:                                                                                                 #  GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
061923,000128:                                                                                                 #  IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
061924,000129: 
061925,000130:                                                                                                 #                         CAF     OCTXX           # REQUEST PERFORM ON OPTION XX
061926,000131:                                                                                                 #                         TC      BANKCALL
061927,000132:                                                                                                 #                         CADR    GOPERF4
061928,000133:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061929,000134:                                                                                                 #                         ...     ...             # PROCEED RETURN
061930,000135:                                                                                                 #                         ...     ...             # ENTER RETURN
061931,000136: 
061932,000137:                                                                                                 #  GOPERF4 BLANKS REGISTER R3.
061933,000138: 
061934,000139:                                                                                                 #  GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
061935,000140:                                                                                                 #  OUT.
061936,000141: 
061937,000142:                                                                                                 #                         CAF     VXXNYY
061938,000143:                                                                                                 #                         TC      BANKCALL
061939,000144:                                                                                                 #                         CADR    GODSPRET
061940,000145:                                                                                                 #                         ...     ...             # RETURN TO USER.
061941,000146: 
061942,000147:                                                                                                 #  REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
061943,000148:                                                                                                 #  ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
061944,000149: 
061945,000150:                                                                                                 #                         CAF     VXXNYY
061946,000151:                                                                                                 #                         TC      BANKCALL
061947,000152:                                                                                                 #                         CADR    REGODSP
061948,000153: 
061949,000154:                                                                                                 #  REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
061950,000155: 
061951,000156:                                                                                                 #                         CAF     VXXNYY          # VXX NYY WILL BE A FLASHING VERB NOUN
061952,000157:                                                                                                 #                         TC      BANKCALL
061953,000158:                                                                                                 #                         CADR    REFLASH
061954,000159:                                                                                                 #                         ...     ...             # TERMINATE RETURN

Page 1451

061956,000161:                                                                                                 #                         ...     ...             # PROCEED RETURN
061957,000162:                                                                                                 #                         ...     ...             # ENTER RETURN
061958,000163: 
061959,000164:                                                                                                 #  GOFLASHR IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
061960,000165: 
061961,000166:                                                                                                 #                         CAF     VXXNYY
061962,000167:                                                                                                 #                         TC      BANKCALL
061963,000168:                                                                                                 #                         CADR    GOFLASHR
061964,000169:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061965,000170:                                                                                                 #                         ...     ...             # PROCEED RETURN
061966,000171:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
061967,000172: 
061968,000173:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN FROM GOFLASHR
061969,000174: 
061970,000175:                                                                                                 #  GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
061971,000176:                                                                                                 #  GOPERF1R BLANKS REGISTERS R2 AND R3
061972,000177: 
061973,000178:                                                                                                 #                         CAF     OCTXX           # CODE FOR CHECKLIST VALUE XX.
061974,000179:                                                                                                 #                         TC      BANKCALL
061975,000180:                                                                                                 #                         CADR    GOPERF1R
061976,000181:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061977,000182:                                                                                                 #                         ...     ...             # PROCEED RETURN
061978,000183:                                                                                                 #                         ...     ...             # ENTER RETURN
061979,000184: 
061980,000185:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN FROM GOPERF1R
061981,000186: 
061982,000187:                                                                                                 #  GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
061983,000188:                                                                                                 #  GOPERF3R BLANKS REGISTERS R2 AND R3
061984,000189: 
061985,000190:                                                                                                 #                         CAF     PROGXX          # PERFORM PROGRAM XX
061986,000191:                                                                                                 #                         TC      BANKCALL
061987,000192:                                                                                                 #                         CADR    GOPERF3R
061988,000193:                                                                                                 #                         ...     ...             # TERMINATE RETURN
061989,000194:                                                                                                 #                         ...     ...             # PROCEED RETURN
061990,000195:                                                                                                 #                         ...     ...             # ENTER RETURN
061991,000196: 
061992,000197:                                                                                                 #                         ...     ...             # GOPERF3R IMMEDIATELY RETURNS HERE
061993,000198: 
061994,000199:                                                                                                 #  GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
061995,000200: 
061996,000201:                                                                                                 #                         CAF     OCTXX           # REQUEST PERFORM ON OPTIONXX
061997,000202:                                                                                                 #                         TC      BANKCALL
061998,000203:                                                                                                 #                         CADR    GOPERF4R
061999,000204:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062000,000205:                                                                                                 #                         ...     ...             # PROCEED RETURN
062001,000206:                                                                                                 #                         ...     ...             # ENTER RETURN
062002,000207: 
062003,000208:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN TO USER
062004,000209: 

Page 1452

062006,000211:                                                                                                 #  GOPERF4R BLANKS REGISTER R3.
062007,000212: 
062008,000213:                                                                                                 #  REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062009,000214: 
062010,000215:                                                                                                 #                         CAF     VXXNYY          # VXX NYY WILL BE A FLASHING VERB NOUN
062011,000216:                                                                                                 #                         TC      BANKCALL
062012,000217:                                                                                                 #                         CADR    REFLASHR
062013,000218:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062014,000219:                                                                                                 #                         ...     ...             # PROCEED RETURN
062015,000220:                                                                                                 #                         ...     ...             # ENTER RETURN
062016,000221: 
062017,000222:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN TO USER
062018,000223: 
062019,000224:                                                                                                 #  REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
062020,000225: 
062021,000226:                                                                                                 #                         CAF     VXXNYY
062022,000227:                                                                                                 #                         TC      BANKCALL
062023,000228:                                                                                                 #                         CADR    REGODSPR
062024,000229: 
062025,000230:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN TO USER
062026,000231: 

Page 1453

062028,000233:                                                                                                 #  GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
062029,000234: 
062030,000235:                                                                                                 #  GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
062031,000236: 
062032,000237:                                                                                                 #  GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FORM
062033,000238:                                                                                                 #  THE ASTRONAUT (SEE NO. 7 ABOVE).
062034,000239:                                                                                                 #  GOXDSPF = GOMARKF
062035,000240: 
062036,000241:                                                                                                 #                         CAF     VXXNYY          # VXXNYY WILL BE A FLASHING MARK VERB NOUN
062037,000242:                                                                                                 #                         TC      BANKCALL
062038,000243:                                                                                                 #                         CADR    GOMARKF         # OTHER EXTENDED VERBS USE CADR GOXDSPF
062039,000244:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062040,000245:                                                                                                 #                         ...     ...             # PROCEED RETURN
062041,000246:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
062042,000247: 
062043,000248:                                                                                                 #  GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
062044,000249: 
062045,000250:                                                                                                 #  GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
062046,000251:                                                                                                 #  RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
062047,000252:                                                                                                 #  MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
062048,000253:                                                                                                 #  OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
062049,000254: 
062050,000255:                                                                                                 #                         CAF     V5XNYY          # X=1,2,3,4     Y=NOUN
062051,000256:                                                                                                 #                         TC      BANKCALL
062052,000257:                                                                                                 #                         CADR    GOMARK1
062053,000258: 
062054,000259:                                                                                                 #                         ...     ...             # ENTER RETURN
062055,000260: 
062056,000261:                                                                                                 #  *** IF BLANKING DESIRED ON NON-R ROUTINES, NOTIFY DISPLAYER.
062057,000262: 
062058,000263:                                                                                                 #  GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
062059,000264: 
062060,000265:                                                                                                 #                         CAF     V5XNYY          # X=1,2,3,4     YY=NOUN
062061,000266:                                                                                                 #                         TC      BANKCALL
062062,000267:                                                                                                 #                         CADR    GOMARK1R
062063,000268: 
062064,000269:                                                                                                 #                         ...     ...             # ASTRONAUT ENTER RETURN
062065,000270:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN TO USER
062066,000271: 
062067,000272:                                                                                                 #  GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
062068,000273: 
062069,000274:                                                                                                 #                         CAF     V5XNYY          # X=1,2,3,4     YY=NOUN
062070,000275:                                                                                                 #                         TC      BANKCALL
062071,000276:                                                                                                 #                         CADR    GOMARK2
062072,000277:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062073,000278:                                                                                                 #                         ...     ...             # PROCEED RETURN
062074,000279:                                                                                                 #                         ...     ...             # ENTER RETURN
062075,000280: 
062076,000281:                                                                                                 #  GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
062077,000282: 
062078,000283:                                                                                                 #                         CAF     V5XNYY          # X=1,2,3,4     YY=NOUN
062079,000284:                                                                                                 #                         TC      BANKCALL

Page 1454

062081,000286:                                                                                                 #                         CADR    GOMARK4
062082,000287:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062083,000288:                                                                                                 #                         ...     ...             # PROCEED RETURN
062084,000289:                                                                                                 #                         ...     ...             # ENTER RETURN
062085,000290: 
062086,000291:                                                                                                 #  EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
062087,000292:                                                                                                 #  SENT OUT.
062088,000293: 
062089,000294:                                                                                                 #                         CAF     VXXNYY
062090,000295:                                                                                                 #                         TC      BANKCALL
062091,000296:                                                                                                 #                         CADR    EXDSPRET
062092,000297: 
062093,000298:                                                                                                 #                         ...     ...             # RETURN TO USER
062094,000299: 
062095,000300:                                                                                                 #  KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
062096,000301:                                                                                                 #  HAVE BEEN CLEANED OUT.
062097,000302: 
062098,000303:                                                                                                 #                         TC      BANKCALL
062099,000304:                                                                                                 #                         CADR    KLEENEX
062100,000305: 
062101,000306:                                                                                                 #                         ...     ...             # RETURN TO USER
062102,000307: 
062103,000308:                                                                                                 #  MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
062104,000309: 
062105,000310:                                                                                                 #                         TC      BANKCALL
062106,000311:                                                                                                 #                         CADR    MARKBRAN
062107,000312: 
062108,000313:                                                                                                 #                         ...     ...             # BAD RETURN IF MARK DISPLAY NOT ACTIVE
062109,000314: 
062110,000315:                                                                                                 #                                                 # (GOOD RETURN TO IMMEDIATE RETURN LOC OF
062111,000316:                                                                                                 #                                                 # LAST FLASHING MARK R ROUTINE)
062112,000317: 
062113,000318:                                                                                                 #  PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
062114,000319:                                                                                                 #  BLANKED AND CONTROL IS SENT TO ENDOFJOB.
062115,000320: 
062116,000321:                                                                                                 #                                 TC      POSTJUMP
062117,000322:                                                                                                 #                                 CADR    PINBRNCH
062118,000323: 
062119,000324:                                                                                                 #  PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
062120,000325:                                                                                                 #  THE ASTRONAUT (SEE NO. 7 ABOVE).
062121,000326: 
062122,000327:                                                                                                 #  THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
062123,000328:                                                                                                 #  PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
062124,000329:                                                                                                 #  IS RESPONDED TO BY THE ASTRONAUT.
062125,000330: 
062126,000331:                                                                                                 #  THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
062127,000332:                                                                                                 #  PRIO DISPLAY.
062128,000333: 
062129,000334:                                                                                                 #                         CAF     VXXNYY          # VXXNYY WILL BE A FLASHING VERB NOUN
062130,000335:                                                                                                 #                         TC      BANKCALL

Page 1455

062132,000337:                                                                                                 #                         CADR    PRIODSP
062133,000338:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062134,000339:                                                                                                 #                         ...     ...             # PROCEED RETURN
062135,000340:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
062136,000341: 
062137,000342:                                                                                                 #  PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062138,000343: 
062139,000344:                                                                                                 #                         CAF     VXXNYY          # VXXNYY WILL BE A FLASHING VERB NOUN
062140,000345:                                                                                                 #                         TC      BANKCALL
062141,000346:                                                                                                 #                         CADR    PRIODSPR
062142,000347:                                                                                                 #                         ...     ...             # TERMINATE RETURN
062143,000348:                                                                                                 #                         ...     ...             # PROCEED RETURN
062144,000349:                                                                                                 #                         ...     ...             # ENTER OR RECYCLE RETURN
062145,000350: 
062146,000351:                                                                                                 #                         ...     ...             # IMMEDIATE RETURN
062147,000352: 
062148,000353:                                                                                                 #  PRIOLARM DOES A V05N09 PRIODSPR.
062149,000354: 
062150,000355:                                                                                                 #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
062151,000356:                                                                                                 #  DISPLAYS ARE CLEANED OUT.
062152,000357: 
062153,000358:                                                                                                 #                         TC      BANKCALL
062154,000359:                                                                                                 #                         CADR    CLEANDSP
062155,000360: 
062156,000361:                                                                                                 #                         ...     ...             # RETURN TO USER
062157,000362: 

Page 1456

062159,000364: 
062160,000365:                                                                                                 #  GENERAL INFORMATION
062161,000366:                                                                                                 #  ------- -----------
062162,000367: 
062163,000368:                                                                                                 #  ALARM OR ABORT EXIT MODES--
062164,000369: 
062165,000370:                                                                                                 #                 PRIOBORT        TC      ABORT
062166,000371:                                                                                                 #                                 OCT     1502
062167,000372: 
062168,000373:                                                                                                 #  PRIOBORT IS BRANCHED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
062169,000374:                                                                                                 #  (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
062170,000375:                                                                                                 #  ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
062171,000376: 
062172,000377:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED--
062173,000378: 
062174,000379:                                                                                                 #         ACCOMPLISHED BY FRESH START-    1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
062175,000380:                                                                                                 #                                         2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
062176,000381:                                                                                                 #                                         3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
062177,000382: 
062178,000383:                                                                                                 #                                         5. R1SAVE = MARKBRAN CONTROL WORD
062179,000384:                                                                                                 #                                         4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
062180,000385: 
062181,000386:                                                                                                 #  OUTPUT--
062182,000387: 
062183,000388:                                                                                                 #         NVWORD = PRIO VERB AND NOUN
062184,000389:                                                                                                 #         NVWORD +1 (MARKNV) = MARK VERB AND NOUN
062185,000390:                                                                                                 #         NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
062186,000391: 
062187,000392:                                                                                                 #         DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
062188,000393:                                                                                                 #         DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
062189,000394:                                                                                                 #         DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDING EBANK)
062190,000395: 
062191,000396:                                                                                                 #         CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION
062192,000397:                                                                                                 #         CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION
062193,000398:                                                                                                 #         CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S CALL CADR +1 LOCATION
062194,000399: 
062195,000400:                                                                                                 #         PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
062196,000401:                                                                                                 #         OPTION1 = DESIRED OPTION FROM GOPERF4
062197,000402:                                                                                                 #         FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
062198,000403:                                                                                                 #         DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
062199,000404: 
062200,000405:                                                                                                 #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
062201,000406:                                                                                                 #  JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
062202,000407: 
062203,000408:                                                                                                 #  DEBRIS-- (STORED INTO)
062204,000409:                                                                                                 #         TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPREG2, RUPTREG3, CYL,
062205,000410:                                                                                                 #                 EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1      4, FACEREG
062206,000411:                                                                                                 #         ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
062207,000412:                                                                                                 #         ERASABLES (USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,

Page 1457

062209,000414:                                                                                                 #                 R1SAVE, MARK2PAC,
062210,000415: 
062211,000416:                                                                                                 #  DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
062212,000417: 
062213,000418:                                                                                                 #  FLAGWORD DESCRIPTIONS--
062214,000419:                                                                                                 #         FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
062215,000420: 
062216,000421:                                                                                                 #         DSPFLG, DSPFLG+1, DSPFLG+2-
062217,000422:                                                                                                 #         ---------------------------
062218,000423:                                                                                                 #         BITS 1  BLANK R1
062219,000424:                                                                                                 #              2  BLANK R2
062220,000425:                                                                                                 #              3  BLANK R3
062221,000426:                                                                                                 #              4  FLASHING DISPLAY REQUESTED
062222,000427:                                                                                                 #              5  PERFORM DISPLAY REQUESTED
062223,000428:                                                                                                 #              6  -----                   EXDSPRET                GODSPRET
062224,000429:                                                                                                 #              7  PRIO DISPLAY            -----                   -----
062225,000430:                                                                                                 #              8  -----                   MARK MONITOR PERF       -----
062226,000431:                                                                                                 #              9  EBANK
062227,000432:                                                                                                 #             10  EBANK
062228,000433:                                                                                                 #             11  EBANK
062229,000434:                                                                                                 #             12  -----                   -----                   V99PASTE
062230,000435:                                                                                                 #             13  2ND PART OF PERFORM
062231,000436:                                                                                                 #             14  REFLASH OR REDO         -----                   REFLASH OR REDO
062232,000437:                                                                                                 #             15  -----                   MARK REQUEST            -----
062233,000438: 
062234,000439:                                                                                                 #  RESTARTING DISPLAYS--
062235,000440: 
062236,000441:                                                                                                 #  RULES FOR THE DSKY OPERATOR--
062237,000442: 
062238,000443:                                                                                                 #         1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING Y/N).  AS LONG
062239,000444:                                                                                                 #            AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
062240,000445:                                                                                                 #            RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
062241,000446:                                                                                                 #            WITH PROCEED AND TERMINATE FOR THIS REASON.
062242,000447:                                                                                                 #         2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECONDS FROM THE TIME THE MISSION
062243,000448:                                                                                                 #            PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
062244,000449:                                                                                                 #            DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.)  IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
062245,000450:                                                                                                 #            IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
062246,000451:                                                                                                 #            OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
062247,000452:                                                                                                 #            CONSIDERATION.
062248,000453:                                                                                                 #         3. KEY RELEASE BUTTON-
062249,000454:                                                                                                 #            A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
062250,000455:                                                                                                 #            B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
062251,000456:                                                                                                 #               AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
062252,000457:                                                                                                 #            IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
062253,000458:                                                                                                 #            KEY RELEASE BUTTON MAY BE NECESSARY.
062254,000459:                                                                                                 #         4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
062255,000460:                                                                                                 #         5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
062256,000461:                                                                                                 #            OVER AGAIN.
062257,000462: 
062258,000463:                                                                                                 #  SPECIAL CONSIDERATONS -

Page 1458

062260,000465:                                                                                                 #         1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
062261,000466:                                                                                                 #         2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
062262,000467:                                                                                                 #         3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
062263,000468:                                                                                                 #         4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
062264,000469:                                                                                                 #         5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
062265,000470:                                                                                                 #            BY A .1 RESTART PHASE CHANGE.
062266,000471:                                                                                                 #         6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
062267,000472:                                                                                                 #            CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
062268,000473:                                                                                                 #         7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL
062269,000474: 

Page 1459

062271,000476:                                                                                                 #  CALLING SEQUENCE FOR BLANKING
062272,000477:                                                                                                 #                 CAF     BITX            # X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
062273,000478:                                                                                                 #                 TC      BLANKET
062274,000479:                                                                                                 #                 ...     ...             # RETURN TO USER HERE
062275,000480: 
062276,000481:                                                                                                 #  IN ORDER TO USE BLANKET CORRECTLY, THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
062277,000482:                                                                                                 #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
062278,000483: 
062279,000484:    4000                                          SETLOC   FFTAG4                                
062280,000485:    4000                                          BANK                                           
062281,000486: 
062282,000487:    5516                                          COUNT*   $$/DSPLA                              
062283,000488:    5516           54162        BLANKET           TS       MPAC       +6                         
062284,000489:    5517           40160                          CS       PLAYTEM4                              
062285,000490:    5520           70162                          MASK     MPAC       +6                         
062286,000491:    5521           50161                          INDEX    MPAC       +5                         
062287,000492:    5522           26160                          ADS      PLAYTEM4                              
062288,000493: 
062289,000494:    5523           00002                          TC       Q                                     
062290,000495: 
062291,000496:    5524           05527        ENDMARK           TC       CLEARMRK                              
062292,000497:    5525           04655                          TC       POSTJUMP                              
062293,000498:    5526           21643                          CADR     MARKOVER                              
062294,000499: 
062295,000500:    5527           34772        CLEARMRK          CAF      ZERO                                  
062296,000501:    5530           55247                          TS       EXTVBACT                              
062297,000502: 
062298,000503:    5531           44770                          CS       XDSPBIT                               
062299,000504:    5532           70100                          MASK     FLAGWRD4                              
062300,000505:    5533           54100                          TS       FLAGWRD4                              
062301,000506: 
062302,000507:    5534           00002                          TC       Q                                     
062303,000508: 
062304,000509:                                                                                                 #  *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
062305,000510:                                                                                                 #  FINISHED.
062306,000511: 
062307,000512:    5535           56001        VNFLASH           XCH      L                                     
062308,000513:    5536           35545                          CAF      VNCADR                                
062309,000514:    5537           15542                          TCF      VNGODSP                               
062310,000515: 
062311,000516:    5540           56001        VNFLASHR          XCH      L                                     
062312,000517:    5541           35546                          CAF      VNRCADR                               
062313,000518:    5542           24002        VNGODSP           INCR     Q                                     #  BECAUSE OF RESTARTS
062314,000519:    5543           22155                          LXCH     PLAYTEM1                              
062315,000520:    5544           14642                          TCF      SWCALL                                
062316,000521: 
062317,000522:    5545           20732        VNCADR            CADR     VNFLSH                                
062318,000523:    5546           20735        VNRCADR           CADR     VNFLSHR                               
062319,000524: 
062320,000525: 10,2000                                          SETLOC   DISPLAYS                              
062321,000526: 10,2000                                          BANK                                           

Page 1460

062323,000528: 
062324,000529: 10,2575                                          COUNT    10/DSPLA                              
062325,000530: 
062326,000531:                                                                                                 #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WITH
062327,000532:                                                                                                 #  3 RETURNS TO THE USER.  THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
062328,000533: 
062329,000534: 10,2575           34772        KLEENEX           CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
062330,000535: 10,2576           54155        GOMARKF           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
062331,000536: 
062332,000537: 10,2577           37664                          CAF      MARKFMSK                              #  MARK,FLASH
062333,000538: 10,2600           12745                          TCF      GOFLASH2                              
062334,000539: 
062335,000540: 10,2601           54155        GOMARK2           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
062336,000541: 10,2602           33733        MARKFORM          CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
062337,000542: 10,2603           12745                          TCF      GOFLASH2                              
062338,000543: 
062339,000544: 10,2604           54155        GOMARK4           TS       PLAYTEM1                              
062340,000545: 10,2605           33723                          CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
062341,000546: 10,2606           12745                          TCF      GOFLASH2                              
062342,000547: 
062343,000548: 10,2607           54155        GOMARKFR          TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
062344,000549: 
062345,000550: 10,2610           37664                          CAF      MARKFMSK                              
062346,000551: 10,2611           13103                          TCF      GODSPRS                               
062347,000552: 
062348,000553: 10,2612           54155        MARKMONR          TS       PLAYTEM1                              #  USED FOR MARK MONITOR
062349,000554: 10,2613           33754                          CAF      MARK3MSK                              
062350,000555: 10,2614           12745                          TCF      GOFLASH2                              
062351,000556: 10,2615           34770        MAKEMARK          CAF      ONE                                   
062352,000557: 10,2616           03172                          TC       COPIES                                
062353,000558: 
062354,000559: 10,2617           30100                          CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
062355,000560: 10,2620           73734                          MASK     OCT34300                              
062356,000561: 10,2621           10000                          CCS      A                                     
062357,000562: 10,2622           12670                          TCF      CHKPRIO                               
062358,000563: 
062359,000564: 10,2623           30100                          CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY?
062360,000565: 10,2624           74760                          MASK     MRKNVBIT                              
062361,000566: 10,2625           00006                          EXTEND                                         
062362,000567: 10,2626           12630                          BZF      MARKPLAY                              #  NO
062363,000568: 
062364,000569: 10,2627           15205                          TCF      ENDOFJOB                              
062365,000570: 
062366,000571: 10,2630           44773        MARKPLAY          CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
062367,000572: 10,2631           70100                          MASK     FLAGWRD4                              
062368,000573: 10,2632           64770                          AD       XDSPBIT                               
062369,000574: 10,2633           54100                          TS       FLAGWRD4                              
062370,000575: 10,2634           22007        GOGOMARK          ZL                                             #  PERFORM
062371,000576: 10,2635           41274                          CS       MARKFLAG                              
062372,000577: 10,2636           74761                          MASK     DCMKPERF                              
062373,000578: 10,2637           10000                          CCS      A                                     
062374,000579: 10,2640           12645                          TCF      +5                                    

Page 1461

062376,000581: 10,2641           30367                          CA       MARKNV                                
062377,000582: 10,2642           74171                          MASK     MID7                                  
062378,000583: 10,2643           54001                          TS       L                                     
062379,000584: 10,2644           12651                          TCF      +5                                    
062380,000585: 10,2645           41274                          CS       MARKFLAG                              
062381,000586: 10,2646           74764                          MASK     PERFRQST                              
062382,000587: 10,2647           10000                          CCS      A                                     
062383,000588: 10,2650           12653                          TCF      MARKCOP                               
062384,000589: 10,2651           40367                          CS       MARKNV                                
062385,000590: 10,2652           54367                          TS       MARKNV                                
062386,000591: 
062387,000592: 10,2653           34770        MARKCOP           CAF      ONE                                   #  MARK INDEX
062388,000593: 10,2654           54164                          TS       COPINDEX                              
062389,000594: 10,2655           13316                          TCF      NVDSP      +1                         
062390,000595: 10,2656           30165        COPYTOGO          CA       MPAC2SAV                              
062391,000596: 10,2657           54156                          TS       MPAC       +2                         
062392,000597: 
062393,000598: 10,2660           50164        COPYPACS          INDEX    COPINDEX                              
062394,000599: 10,2661           33740                          CAF      PRIOOCT                               
062395,000600: 10,2662           54162                          TS       GENMASK                               
062396,000601: 
062397,000602: 10,2663           50164                          INDEX    COPINDEX                              
062398,000603: 10,2664           31273                          CAF      EBANKSAV                              
062399,000604: 10,2665           54160                          TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
062400,000605: 
062401,000606: 10,2666           54003                          TS       EBANK                                 
062402,000607: 
062403,000608: 10,2667           00002                          TC       Q                                     
062404,000609: 
062405,000610:                                                                                                 #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY
062406,000611:                                                                                                 #  (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
062407,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
062408,000613:                                                                                                 #  UNTIL ALL MARKING IS FINISHED.
062409,000614: 
062410,000615:                                                                                                 #  IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
062411,000616:                                                                                                 #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
062412,000617: 
062413,000618: 10,2670           30100        CHKPRIO           CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
062414,000619: 10,2671           77646                          MASK     14,12,7                               
062415,000620: 10,2672           10000                          CCS      A                                     
062416,000621: 10,2673           13676                          TCF      MARSLEEP                              
062417,000622: 
062418,000623: 10,2674           34766                          CAF      MKOVBIT                               #  SET MARK OVER NORM
062419,000624: 10,2675           03755                          TC       UPENT2                                
062420,000625: 
062421,000626: 10,2676           13000                          TCF      SETNORM                               
062422,000627: 
062423,000628: 10,2677           30367        MARKPERF          CA       MARKNV                                
062424,000629: 10,2700           74171                          MASK     VERBMASK                              
062425,000630: 10,2701           13350                          TCF      NV50DSP                               
062426,000631: 

Page 1462

062428,000633: 10,2702           54155        GODSP             TS       PLAYTEM1                              
062429,000634: 
062430,000635: 10,2703           34772        GODSP2            CAF      DSPONLY                               
062431,000636: 10,2704           12745                          TCF      GOFLASH2                              
062432,000637: 
062433,000638: 10,2705           54155        GODSPRET          TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
062434,000639: 
062435,000640: 10,2706           34763                          CAF      RETDSPY                               #  SET BIT6 TO RETURN TO USER AFTER NVSUB
062436,000641: 10,2707           12745                          TCF      GOFLASH2                              
062437,000642: 
062438,000643: 10,2710           54155        GODSPR            TS       PLAYTEM1                              
062439,000644: 
062440,000645: 10,2711           34772        GODSPR1           CAF      DSPONLY                               
062441,000646: 10,2712           54160        GODSPR2           TS       PLAYTEM4                              
062442,000647: 
062443,000648: 10,2713           34772                          CAF      ZERO                                  #  * DONT MOVE
062444,000649: 10,2714           13105                          TCF      GODSPRS1                              
062445,000650: 
062446,000651:                                                                                                 #  CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
062447,000652:                                                                                                 #  SET UP TO BE STARTED OR RESTARTED.
062448,000653: 
062449,000654:                                                                                                 #  NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
062450,000655:                                                                                                 #  OLD DISPLAY.
062451,000656: 
062452,000657:                                                                                                 #  CALLING SEQUENCE FOR CLEANDSP-
062453,000658: 
062454,000659:                                                                                                 #                 TC      BANKCALL
062455,000660:                                                                                                 #                 CADR    CLEANDSP
062456,000661: 
062457,000662: 10,2715           34772        CLEANDSP          CAF      ZERO                                  
062458,000663: 10,2716           54155        REFLASH           TS       PLAYTEM1                              
062459,000664: 
062460,000665: 10,2717           33722                          CAF      REDOMASK                              #  FLASH AND PERMIT
062461,000666: 10,2720           12745                          TCF      GOFLASH2                              
062462,000667: 
062463,000668: 10,2721           54155        REGODSP           TS       PLAYTEM1                              
062464,000669: 
062465,000670: 10,2722           34753                          CAF      REFLSH                                
062466,000671: 10,2723           12745                          TCF      GOFLASH2                              
062467,000672: 
062468,000673: 10,2724           54155        REGODSPR          TS       PLAYTEM1                              
062469,000674: 
062470,000675: 10,2725           34753                          CAF      REFLSH                                
062471,000676: 10,2726           12712                          TCF      GODSPR2                               
062472,000677: 
062473,000678: 10,2727           54155        CLOCPLAY          TS       PLAYTEM1                              
062474,000679: 10,2730           33750                          CAF      CLOCKCON                              
062475,000680: 10,2731           12745                          TCF      GOFLASH2                              
062476,000681: 10,2732           05547        VNFLSH            TC       UPFLAG                                
062477,000682: 10,2733           00111                          ADRES    VNFLAG                                

Page 1463

062479,000684: 10,2734           12744                          TCF      GOFLASH    +1                         
062480,000685: 
062481,000686: 10,2735           05547        VNFLSHR           TC       UPFLAG                                
062482,000687: 10,2736           00111                          ADRES    VNFLAG                                
062483,000688: 10,2737           34765                          CAF      FLSHRQST                              
062484,000689: 10,2740           54160                          TS       PLAYTEM4                              #  IT'S A FLASHING DISPLAY
062485,000690: 10,2741           34772                          CAF      ZERO                                  #  RETURN TO CALLER'S Q +1
062486,000691: 10,2742           13105                          TCF      GODSPRS1                              
062487,000692: 
062488,000693: 10,2743           54155        GOFLASH           TS       PLAYTEM1                              
062489,000694: 
062490,000695: 10,2744           34765                 +1       CAF      FLSHRQST                              #  LEAVE ONLY FLASH BIT SET
062491,000696: 10,2745           54160        GOFLASH2          TS       PLAYTEM4                              
062492,000697: 
062493,000698: 10,2746           03157                          TC       SAVELOCS                              
062494,000699: 
062495,000700: 10,2747           13012                          TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
062496,000701: 
062497,000702: 10,2750           54155        PRIODSPR          TS       PLAYTEM1                              
062498,000703: 
062499,000704: 10,2751           35013                          CAF      BITS7+4                               
062500,000705: 10,2752           13103                          TCF      GODSPRS                               
062501,000706: 
062502,000707: 10,2753           54155        PRIODSP           TS       PLAYTEM1                              
062503,000708: 
062504,000709: 10,2754           35013        SETPRIO           CAF      BITS7+4                               
062505,000710: 10,2755           12745                          TCF      GOFLASH2                              
062506,000711: 
062507,000712: 10,2756           34772        MAKEPRIO          CAF      ZERO                                  
062508,000713: 10,2757           54164                          TS       COPINDEX                              
062509,000714: 
062510,000715: 10,2760           03623                          TC       LINUSCHR                              
062511,000716: 10,2761           12766                          TCF      HIPRIO                                #  LINUS RETURN
062512,000717: 10,2762           30100                          CA       FLAGWRD4                              
062513,000718: 10,2763           73747                          MASK     BIT14+7                               #  IS PRIO IN ENDIDLE OR BUSY
062514,000719: 10,2764           10000                          CCS      A                                     
062515,000720: 10,2765           13041                          TCF      PRIOBORT                              #  YES, ABORT
062516,000721: 
062517,000722: 10,2766           30100        HIPRIO            CA       FLAGWRD4                              #  MARK ACTIVE
062518,000723: 10,2767           77716                          MASK     BIT15+9                               
062519,000724: 10,2770           00006                          EXTEND                                         
062520,000725: 10,2771           12774                          BZF      ASKIFNRM                              #  NO
062521,000726: 
062522,000727: 10,2772           34772        SETMARK           CAF      ZERO                                  
062523,000728: 10,2773           13226                          TCF      JOBXCHS                               
062524,000729: 
062525,000730: 10,2774           30100        ASKIFNRM          CA       FLAGWRD4                              #  NORMAL ACTIVE
062526,000731: 10,2775           73745                          MASK     BIT13+8                               
062527,000732: 10,2776           00006                          EXTEND                                         
062528,000733: 10,2777           13002                          BZF      OKTOCOPY                              #  NO

Page 1464

062530,000735: 
062531,000736: 10,3000           34770        SETNORM           CAF      ONE                                   
062532,000737: 10,3001           13226                          TCF      JOBXCHS                               
062533,000738: 
062534,000739: 10,3002           03171        OKTOCOPY          TC       COPYNORM                              
062535,000740: 10,3003           03431                          TC       WITCHONE                              
062536,000741: 
062537,000742: 10,3004           05167                          TC       JOBWAKE                               
062538,000743: 
062539,000744: 10,3005           03445                          TC       XCHTOEND                              
062540,000745: 
062541,000746: 10,3006           30025        REDOPRIO          CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
062542,000747: 10,3007           55005                          TS       PRIOTIME                              
062543,000748: 
062544,000749: 10,3010           34772        KEEPPRIO          CAF      ZERO                                  #  START UP PRIO DISPLAY
062545,000750: 10,3011           13062                          TCF      PRIOPLAY                              
062546,000751: 
062547,000752: 10,3012           30167        MAKEPLAY          CA       PRIORITY                              #  SAVE USERS PRIORITY
062548,000753: 10,3013           77660                          MASK     PRIO37                                
062549,000754: 10,3014           54163                          TS       USERPRIO                              
062550,000755: 
062551,000756: 10,3015           37655                          CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
062552,000757: 10,3016           05176                          TC       PRIOCHNG                              
062553,000758: 
062554,000759: 10,3017           30160                          CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
062555,000760: 10,3020           73735                          MASK     BITS15+7                              
062556,000761: 10,3021           10000                          CCS      A                                     
062557,000762: 10,3022           12756                          TCF      MAKEPRIO                              #  ITS PRIO
062558,000763: 10,3023           13025                          TCF      IFLEGAL                               
062559,000764: 10,3024           12615                          TCF      MAKEMARK                              #  ITS MARK
062560,000765: 
062561,000766: 10,3025           34767        IFLEGAL           CAF      TWO                                   
062562,000767: 10,3026           54164                          TS       COPINDEX                              
062563,000768: 
062564,000769: 10,3027           03623                          TC       LINUSCHR                              
062565,000770: 
062566,000771: 10,3030           13043                          TCF      OKTOPLAY                              #  LINUS RETURN
062567,000772: 10,3031           41275                          CS       EBANKTEM                              
062568,000773: 10,3032           74765                          MASK     FLSHRQST                              
062569,000774: 10,3033           10000                          CCS      A                                     
062570,000775: 10,3034           13043                          TCF      OKTOPLAY                              #  NO
062571,000776: 
062572,000777: 10,3035           30100                          CA       FLAGWRD4                              #  WAS NORM ASLEEP
062573,000778: 10,3036           73727                          MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
062574,000779: 10,3037           00006                          EXTEND                                         
062575,000780: 10,3040           13043                          BZF      OKTOPLAY                              #  NO
062576,000781: 
062577,000782: 10,3041           05726        PRIOBORT          TC       POODOO                                
062578,000783: 10,3042           21502                          OCT      21502                                 #  ILLEGAL FLASHING DISPLAY
062579,000784: 
062580,000785: 10,3043           03173        OKTOPLAY          TC       COPIES2                               

Page 1465

062582,000787: 10,3044           30163                          CA       USERPRIO                              
062583,000788: 10,3045           00006                          EXTEND                                         
062584,000789: 10,3046           04007                          ROR      SUPERBNK                              
062585,000790: 10,3047           54365                          TS       RESTREG                               
062586,000791: 
062587,000792: 10,3050           30100                          CA       FLAGWRD4                              #  PRIO OR MARK GOING
062588,000793: 10,3051           73730                          MASK     PMMASK                                
062589,000794: 10,3052           10000                          CCS      A                                     
062590,000795: 10,3053           13210                          TCF      GOSLEEPS                              #  YES
062591,000796: 
062592,000797: 10,3054           13056                          TCF      +2                                    
062593,000798: 10,3055           13210                          TCF      GOSLEEPS                              #  MARK GOING
062594,000799: 
062595,000800:                                                                                                 #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
062596,000801: 
062597,000802: 10,3056           03431                          TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
062598,000803: 10,3057           05167                          TC       JOBWAKE                               
062599,000804: 
062600,000805: 10,3060           03445                          TC       XCHTOEND                              
062601,000806: 
062602,000807: 10,3061           34767        PLAYJUM1          CAF      TWO                                   
062603,000808: 10,3062           54164        PRIOPLAY          TS       COPINDEX                              
062604,000809: 
062605,000810: 10,3063           13315                          TCF      GOPLAY                                
062606,000811: 
062607,000812: 10,3064           54155        EXDSPRET          TS       PLAYTEM1                              
062608,000813: 
062609,000814: 10,3065           37667                          CAF      BIT15+6                               
062610,000815: 10,3066           12745                          TCF      GOFLASH2                              
062611,000816: 
062612,000817: 10,3067           55250        GOPERF1           TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
062613,000818: 10,3070           33720                          CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
062614,000819: 
062615,000820: 10,3071           54155        GOPERFS           TS       PLAYTEM1                              
062616,000821: 
062617,000822: 10,3072           33717                          CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
062618,000823: 10,3073           12745                          TCF      GOFLASH2                              
062619,000824: 
062620,000825: 10,3074           54775        GOPERF4           TS       OPTION1                               #  DESIRED OPTION CODE
062621,000826: 
062622,000827: 10,3075           34537                          CAF      V04N06                                
062623,000828: 10,3076           54155                          TS       PLAYTEM1                              
062624,000829: 
062625,000830: 10,3077           35775                          CAF      PERF4MSK                              #  FLASH, PERFORM, AND BLANK R3
062626,000831: 10,3100           12745                          TCF      GOFLASH2                              
062627,000832: 
062628,000833: 10,3101           54155        GOFLASHR          TS       PLAYTEM1                              
062629,000834: 
062630,000835: 10,3102           34765                          CAF      FLSHRQST                              #  LEAVE ONLY FLASH BIT SET
062631,000836: 10,3103           54160        GODSPRS           TS       PLAYTEM4                              

Page 1466

062633,000838: 10,3104           36214                          CAF      THREE                                 
062634,000839: 
062635,000840: 10,3105           00004        GODSPRS1          INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
062636,000841: 10,3106           54072                          TS       RUPTREG3                              
062637,000842: 
062638,000843: 10,3107           30167                          CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
062639,000844: 10,3110           77660                          MASK     PRIO37                                
062640,000845: 10,3111           54063                          TS       NEWPRIO                               
062641,000846: 
062642,000847: 10,3112           30160                          CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
062643,000848: 10,3113           74765                          MASK     FLSHRQST                              
062644,000849: 10,3114           10000                          CCS      A                                     
062645,000850: 10,3115           13123                          TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
062646,000851: 10,3116           30063                          CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
062647,000852: 10,3117           05121                          TC       NOVAC                                 
062648,000853: 10,3120  E7,1777                                 EBANK=   WHOCARES                              
062649,000854: 10,3120           03012 20067                    2CADR    MAKEPLAY                              
062650,000855: 
062651,000856: 10,3122           13131                          TCF      BOTHJOBS                              
062652,000857: 
062653,000858: 10,3123           30006        VACDSP            CA       BBANK                                 
062654,000859: 10,3124           00006                          EXTEND                                         
062655,000860: 10,3125           04007                          ROR      SUPERBNK                              
062656,000861: 10,3126           54001                          TS       L                                     
062657,000862: 10,3127           33744                          CAF      MAKEGEN                               
062658,000863: 10,3130           05146                          TC       SPVAC                                 
062659,000864: 
062660,000865: 10,3131           03157        BOTHJOBS          TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
062661,000866: 
062662,000867: 10,3132           00006                          EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
062663,000868: 10,3133           30156                          DCA      MPAC       +1                         
062664,000869: 10,3134           50064                          INDEX    LOCCTR                                
062665,000870: 10,3135           52156                          DXCH     MPAC       +1                         
062666,000871: 
062667,000872: 10,3136           00006                          EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
062668,000873: 10,3137           30160                          DCA      MPAC       +3                         
062669,000874: 10,3140           50064                          INDEX    LOCCTR                                
062670,000875: 10,3141           52160                          DXCH     MPAC       +3                         
062671,000876: 
062672,000877: 10,3142           30064                          CA       LOCCTR                                
062673,000878: 10,3143           54161                          TS       MPAC       +5                         
062674,000879: 
062675,000880: 10,3144           03164                          TC       SAVELOCR                              
062676,000881: 10,3145           00003                          RELINT                                         
062677,000882: 
062678,000883: 10,3146           14660                          TCF      BANKJUMP                              #  CALL CADR +4
062679,000884: 
062680,000885: 10,3147           55250        GOPERF1R          TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
062681,000886: 
062682,000887: 10,3150           33720                          CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
062683,000888: 

Page 1467

062685,000890: 
062686,000891: 10,3151           54155        GOPERFRS          TS       PLAYTEM1                              
062687,000892: 
062688,000893: 10,3152           33717                          CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
062689,000894: 10,3153           13103                          TCF      GODSPRS                               
062690,000895: 
062691,000896: 10,3154           54155        GOPERF2R          TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
062692,000897: 
062693,000898: 10,3155           35001                          CAF      PERF2MSK                              
062694,000899: 10,3156           13103                          TCF      GODSPRS                               
062695,000900: 
062696,000901: 10,3157           00004        SAVELOCS          INHINT                                         
062697,000902: 
062698,000903: 10,3160           45046                          CS       EBANK7                                #  GETS ALL EBANK BITS OFF
062699,000904: 10,3161           70160                          MASK     PLAYTEM4                              
062700,000905: 10,3162           60003                          AD       EBANK                                 
062701,000906: 10,3163           54160                          TS       PLAYTEM4                              
062702,000907: 
062703,000908: 10,3164           22002        SAVELOCR          LXCH     Q                                     
062704,000909: 
062705,000910: 10,3165           04665                          TC       MAKECADR                              
062706,000911: 10,3166           54157                          TS       PLAYTEM3                              
062707,000912: 
062708,000913: 10,3167           60072                          AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
062709,000914: 10,3170           00001                          TC       L                                     
062710,000915: 
062711,000916: 10,3171           34772        COPYNORM          CAF      ZERO                                  
062712,000917: 10,3172           54164        COPIES            TS       COPINDEX                              
062713,000918: 10,3173           30160        COPIES2           CA       PLAYTEM4                              #  FLAGWORD
062714,000919: 10,3174           50164                          INDEX    COPINDEX                              
062715,000920: 10,3175           55273                          TS       EBANKSAV                              #  EQUIV TO DSPFLG
062716,000921: 
062717,000922: 10,3176           75004                          MASK     CADRMASK                              #  FLASH AND GODSPRET
062718,000923: 10,3177           00006                          EXTEND                                         
062719,000924: 10,3200           13204                          BZF      SKIPADD                               
062720,000925: 
062721,000926: 10,3201           30157                          CA       PLAYTEM3                              
062722,000927: 10,3202           50164                          INDEX    COPINDEX                              
062723,000928: 10,3203           54371                          TS       CADRFLSH                              
062724,000929: 
062725,000930: 10,3204           30155        SKIPADD           CA       PLAYTEM1                              #  VERB NOUN
062726,000931: 10,3205           50164                          INDEX    COPINDEX                              
062727,000932: 10,3206           54366                          TS       NVWORD                                
062728,000933: 
062729,000934: 10,3207           13454                          TCF      RELINTQ                               
062730,000935: 
062731,000936: 10,3210           50164        GOSLEEPS          INDEX    COPINDEX                              
062732,000937: 10,3211           33740                          CA       PRIOOCT                               
062733,000938: 10,3212           75045                          MASK     WAITMASK                              
062734,000939: 10,3213           03755                          TC       UPENT2                                
062735,000940: 10,3214           44770                          CS       ONE                                   

Page 1468

062737,000942: 10,3215           60164                          AD       COPINDEX                              
062738,000943: 10,3216           54154                          TS       FACEREG                               
062739,000944: 
062740,000945: 10,3217           50154        XCHSLEEP          INDEX    FACEREG                               
062741,000946: 10,3220           33725                          CAF      WAKECADR                              
062742,000947: 10,3221           05167                          TC       JOBWAKE                               #  FIND CADR IN JOB AREA
062743,000948: 
062744,000949: 10,3222           03445                          TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
062745,000950: 
062746,000951: 10,3223           50154                          INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
062747,000952: 10,3224           33725                          CAF      WAKECADR                              
062748,000953: 10,3225           15163                          TCF      JOBSLEEP                              
062749,000954: 
062750,000955: 10,3226           54154        JOBXCHS           TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
062751,000956: 10,3227           03431                          TC       WITCHONE                              
062752,000957: 10,3230           05167                          TC       JOBWAKE                               
062753,000958: 10,3231           30154                          CA       FACEREG                               
062754,000959: 10,3232           50064                          INDEX    LOCCTR                                
062755,000960: 10,3233           54154                          TS       FACEREG                               
062756,000961: 
062757,000962: 10,3234           33752                          CAF      XCHQADD                               
062758,000963: 10,3235           03446                          TC       XCHNYLOC                              
062759,000964: 
062760,000965: 10,3236           50154                          INDEX    FACEREG                               
062761,000966: 10,3237           33741                          CA       MARKOCT                               
062762,000967: 10,3240           73743                          MASK     IDLESLEP                              
062763,000968: 10,3241           03762                          TC       DOWNENT2                              
062764,000969: 10,3242           50154                          INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
062765,000970: 10,3243           34764                          CA       MRUPTBIT                              #  BIT5 FOR MARK, BIT4 FOR NORMAL
062766,000971: 10,3244           03755                          TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
062767,000972: 10,3245           30100                          CA       FLAGWRD4                              
062768,000973: 10,3246           74766                          MASK     MKOVBIT                               #  IF BIT 3 THEN MARK OVER NORM
062769,000974: 10,3247           10000                          CCS      A                                     
062770,000975: 10,3250           02630        GENMARK           TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
062771,000976: 10,3251           13002                          TCF      OKTOCOPY                              
062772,000977: 
062773,000978: 10,3252           34772        MARKWAKE          CAF      ZERO                                  
062774,000979: 10,3253           54160        WAKEPLAY          TS       TEMPOR2                               
062775,000980: 
062776,000981: 10,3254           50160                          INDEX    TEMPOR2                               
062777,000982: 10,3255           33736                          CA       BITS5+11                              
062778,000983: 10,3256           03762                          TC       DOWNENT2                              
062779,000984: 10,3257           50160                          INDEX    TEMPOR2                               
062780,000985: 10,3260           33725                          CAF      WAKECADR                              
062781,000986: 10,3261           05167                          TC       JOBWAKE                               
062782,000987: 
062783,000988: 10,3262           13555                          TCF      ENDRET                                
062784,000989: 
062785,000990:                                                                                                 #  ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
062786,000991:                                                                                                 #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.

Page 1469

062788,000993:                                                                                                 #  IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
062789,000994:                                                                                                 #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
062790,000995: 
062791,000996: 10,3263           31275        INITDSP           CA       EBANKTEM                              #  RESTORE MOST RECENT NORMAL EBANK
062792,000997: 10,3264           54003                          TS       EBANK                                 
062793,000998: 
062794,000999: 10,3265           30365                          CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
062795,001000: 10,3266           00006                          EXTEND                                         #  RESTORE SUPERBANK
062796,001001: 10,3267           01007                          WRITE    SUPERBNK                              #  CHAN 07
062797,001002: 10,3270           77660                          MASK     PRIO37                                
062798,001003: 10,3271           05176                          TC       PRIOCHNG                              
062799,001004: 
062800,001005: 10,3272           46214                          CS       THREE                                 
062801,001006: 10,3273           60373                          AD       TEMPFLSH                              
062802,001007: 10,3274           14660                          TCF      BANKJUMP                              
062803,001008: 
062804,001009: 10,3275           00003        PINBRNCH          RELINT                                         #  FOR GOPIN USERS
062805,001010: 10,3276           31276                          CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
062806,001011: 10,3277           54156                          TS       MPAC       +2                         #  ONLY
062807,001012: 
062808,001013: 10,3300           30100                          CA       FLAGWRD4                              #  PINBRANCH CONDITION
062809,001014: 10,3301           77673                          MASK     PINMASK                               
062810,001015: 10,3302           10000                          CCS      A                                     
062811,001016: 10,3303           13306                          TCF      +3                                    
062812,001017: 10,3304           13713                          TCF      ERASER                                #  ** NOTHING IN ENDIDLE
062813,001018: 10,3305           12630                          TCF      MARKPLAY                              
062814,001019: 
062815,001020: 10,3306           05547        NORMBNCH          TC       UPFLAG                                #  SET PINBRANCH BIT
062816,001021: 10,3307           00105                          ADRES    PINBRFLG                              
062817,001022: 
062818,001023: 10,3310           34753                          CAF      PRIODBIT                              #  PRIO INTERRUPTED
062819,001024: 10,3311           70100                          MASK     FLAGWRD4                              
062820,001025: 10,3312           10000                          CCS      A                                     
062821,001026: 10,3313           13010                          TCF      KEEPPRIO                              
062822,001027: 
062823,001028: 10,3314           13061                          TCF      PLAYJUM1                              
062824,001029: 
062825,001030: 10,3315           22007        NVDSP             ZL                                             
062826,001031: 10,3316           02660                          TC       COPYPACS                              
062827,001032: 10,3317           30160                          CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
062828,001033: 10,3320           74774                          MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
062829,001034: 10,3321           26001                          ADS      L                                     
062830,001035: 10,3322           44754                          CS       2NDPERF                               
062831,001036: 10,3323           50164                          INDEX    COPINDEX                              
062832,001037: 10,3324           71273                          MASK     DSPFLG                                
062833,001038: 10,3325           50164                          INDEX    COPINDEX                              
062834,001039: 10,3326           55273                          TS       DSPFLG                                
062835,001040: 
062836,001041: 10,3327           74761                          MASK     DCMKPERF                              
062837,001042: 10,3330           10000                          CCS      A                                     

Page 1470

062839,001044: 10,3331           35044                          CA       OCT2600                               
062840,001045: 10,3332           54141                          TS       TEM1                                  
062841,001046: 
062842,001047: 10,3333           30156                          CA       MPAC       +2                         
062843,001048: 10,3334           54165                          TS       MPAC2SAV                              
062844,001049: 
062845,001050: 10,3335           55276                          TS       MARK2PAC                              #  * FOR DISK ONLY *
062846,001051: 10,3336           50164                          INDEX    COPINDEX                              
062847,001052: 10,3337           10366                          CCS      NVWORD                                
062848,001053: 10,3340           13347                          TCF      NVDSP1                                
062849,001054: 10,3341           13455                          TCF      CLEANEND                              
062850,001055: 10,3342           40367                          CS       MARKNV                                
062851,001056: 10,3343           54367                          TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
062852,001057: 10,3344           76043                          MASK     LOW7                                  
062853,001058: 10,3345           63731                          AD       V05N00M1                              
062854,001059: 10,3346           60141                          AD       TEM1                                  
062855,001060: 10,3347           64770        NVDSP1            AD       ONE                                   
062856,001061: 10,3350           04203        NV50DSP           TC       NVMONOPT                              
062857,001062: 10,3351           13467                          TCF      REST                                  #  IF BUSY
062858,001063: 10,3352           04417                          TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
062859,001064: 
062860,001065: 10,3353           02656                          TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
062861,001066: 10,3354           33732                          CAF      OCT700                                
062862,001067: 10,3355           03762                          TC       DOWNENT2                              
062863,001068: 
062864,001069: 10,3356           30160        BLANKCHK          CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
062865,001070: 10,3357           04264                          TC       BLANKSUB                              
062866,001071: 10,3360           13315                          TCF      NVDSP                                 
062867,001072: 10,3361           34764        PERFCHEK          CAF      PERFRQST                              #  BIT5 FOR PERFORM
062868,001073: 10,3362           70160                          MASK     TEMPOR2                               
062869,001074: 10,3363           10000                          CCS      A                                     #  IS THIS A GOPERF DISPLAY
062870,001075: 10,3364           13407                          TCF      1STOR2ND                              #  YES
062871,001076: 
062872,001077: 10,3365           34765        GOANIDLE          CAF      FLSHRQST                              
062873,001078: 10,3366           70160                          MASK     TEMPOR2                               
062874,001079: 10,3367           10000                          CCS      A                                     
062875,001080: 10,3370           13504                          TCF      FLASHSUB                              #  IT IS
062876,001081: 
062877,001082: 10,3371           40160                          CS       TEMPOR2                               #  IS THIS A GODSPRET
062878,001083: 10,3372           74763                          MASK     RETDSPY                               
062879,001084: 10,3373           10000                          CCS      A                                     
062880,001085: 10,3374           13401                          TCF      ISITN00                               
062881,001086: 
062882,001087: 10,3375           50164                          INDEX    COPINDEX                              
062883,001088: 10,3376           30371                          CA       CADRFLSH                              
062884,001089: 10,3377           54157                          TS       MPAC       +3                         
062885,001090: 10,3400           13602                          TCF      ENDIT                                 
062886,001091: 
062887,001092: 10,3401           50164        ISITN00           INDEX    COPINDEX                              #  IS THIS A PASTE
062888,001093: 10,3402           30366                          CA       NVWORD                                

Page 1471

062890,001095: 10,3403           76043                          MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
062891,001096: 10,3404           00006                          EXTEND                                         
062892,001097: 10,3405           13504                          BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
062893,001098: 
062894,001099: 10,3406           15205                          TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THEREFORE EXIT
062895,001100: 
062896,001101: 10,3407           30160        1STOR2ND          CA       TEMPOR2                               
062897,001102: 10,3410           74754                          MASK     2NDPERF                               
062898,001103: 10,3411           10000                          CCS      A                                     
062899,001104: 10,3412           13365                          TCF      GOANIDLE                              #  SECOND
062900,001105: 
062901,001106: 10,3413           34754                          CA       2NDPERF                               
062902,001107: 10,3414           50164                          INDEX    COPINDEX                              
062903,001108: 10,3415           27273                          ADS      DSPFLG                                
062904,001109: 
062905,001110: 10,3416           22007                          ZL                                             
062906,001111: 10,3417           00006                          EXTEND                                         #  IS IT MARK
062907,001112: 10,3420           62677                          BZMF     MARKPERF                              #  YES
062908,001113: 
062909,001114: 10,3421           74755                          MASK     V99PSTE                               
062910,001115: 10,3422           00006                          EXTEND                                         
062911,001116: 10,3423           13427                          BZF      V50PASTE                              
062912,001117: 10,3424           40777                          CS       NVWORD1                               #  NVOWRD1= -0 IS V97.  NVWORD1= -400 IS V99
062913,001118: 10,3425           63746                          AD       V97N00                                
062914,001119: 10,3426           13350                          TCF      NV50DSP                               
062915,001120: 10,3427           33721        V50PASTE          CAF      V50N00                                
062916,001121: 10,3430           13350                          TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
062917,001122: 
062918,001123: 10,3431           44764        WITCHONE          CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
062919,001124: 10,3432           00006                          EXTEND                                         
062920,001125: 10,3433           03011                          WAND     DSALMOUT                              
062921,001126: 
062922,001127: 10,3434           30100                          CA       FLAGWRD4                              
062923,001128: 10,3435           73732                          MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
062924,001129: 10,3436           10000                          CCS      A                                     
062925,001130: 10,3437           34770                          CAF      ONE                                   
062926,001131: 10,3440           54001                          TS       L                                     
062927,001132: 10,3441           34772                          CAF      ZERO                                  
062928,001133: 10,3442           50001                          INDEX    L                                     
062929,001134: 10,3443           57245                          XCH      CADRSTOR                              
062930,001135: 
062931,001136: 10,3444           00002                          TC       Q                                     
062932,001137: 
062933,001138: 10,3445           34170        XCHTOEND          CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
062934,001139: 10,3446           56064        XCHNYLOC          XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
062935,001140: 10,3447           00006                          EXTEND                                         
062936,001141: 10,3450           63454                          BZMF     RELINTQ                               #  NO
062937,001142: 10,3451           56064                          XCH      LOCCTR                                #  YES
062938,001143: 10,3452           50064                          INDEX    LOCCTR                                
062939,001144: 10,3453           54164                          TS       LOC                                   
062940,001145: 

Page 1472

062942,001147: 
062943,001148: 10,3454           15642        RELINTQ           TCF      REQ                                   #  BACK TO USER
062944,001149: 10,3455           37654        CLEANEND          CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
062945,001150: 10,3456           05135                          TC       FINDVAC                               
062946,001151: 10,3457     0370                                 EBANK=   NVSAVE                                
062947,001152: 10,3457           04247 04060                    2CADR    JAMTERM                               
062948,001153: 
062949,001154: 10,3461           13505                          TCF      FLASHSUB   +1                         
062950,001155: 
062951,001156: 10,3462           30100        ISITPRIO          CA       FLAGWRD4                              
062952,001157: 10,3463           77667                          MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
062953,001158: 10,3464           00006                          EXTEND                                         
062954,001159: 10,3465           13041                          BZF      PRIOBORT                              
062955,001160: 10,3466           15205                          TCF      ENDOFJOB                              
062956,001161: 
062957,001162: 10,3467           11245        REST              CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
062958,001163: 10,3470           15205                          TCF      ENDOFJOB                              #  YES
062959,001164: 10,3471           13473                          TCF      RESTSLEP                              
062960,001165: 
062961,001166: 10,3472           15205                          TCF      ENDOFJOB                              
062962,001167: 
062963,001168: 10,3473           30162        RESTSLEP          CA       GENMASK                               #  SET NVSLEEP BITS
062964,001169: 10,3474           73732                          MASK     NVBUSMSK                              
062965,001170: 10,3475           03755                          TC       UPENT2                                
062966,001171: 10,3476           04240        NVSUBUSY          TC       ISCADR+0                              
062967,001172: 10,3477           04356                          TC       RELDSPON                              
062968,001173: 10,3500           50164                          INDEX    COPINDEX                              
062969,001174: 10,3501           33724                          CAF      NVCADR                                
062970,001175: 10,3502           55246                          TS       DSPLIST                               
062971,001176: 10,3503           05163                          TC       JOBSLEEP                              
062972,001177: 10,3504           04360        FLASHSUB          TC       FLASHON                               
062973,001178: 
062974,001179: 10,3505           30164                 +1       CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
062975,001180: 10,3506           54157                          TS       COPMPAC                               
062976,001181: 
062977,001182: 10,3507           30162                          CA       GENMASK                               
062978,001183: 10,3510           77675                          MASK     IDLEMASK                              
062979,001184: 10,3511           03755                          TC       UPENT2                                
062980,001185: 10,3512           11245                          CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
062981,001186: 10,3513           13462                          TCF      ISITPRIO                              
062982,001187: 10,3514           13516                          TCF      +2                                    
062983,001188: 10,3515           13462                          TCF      ISITPRIO                              
062984,001189: 
062985,001190: 10,3516           04240        ENDIDLE           TC       ISCADR+0                              
062986,001191: 10,3517           33557                          CA       ENDIDRET                              
062987,001192: 10,3520           55245                          TS       CADRSTOR                              
062988,001193: 10,3521           05163                          TC       JOBSLEEP                              
062989,001194: 10,3522           44354        IDLERET1          CS       LOWLOAD                               
062990,001195: 10,3523           60154                          AD       MPAC                                  #  VERBREG
062991,001196: 10,3524           00006                          EXTEND                                         

Page 1473

062993,001198: 10,3525           26000                          DIM      A                                     
062994,001199: 10,3526           00006                          EXTEND                                         
062995,001200: 10,3527           13703                          BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
062996,001201: 10,3530           30100        OKTOENT           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
062997,001202: 10,3531           74076                          MASK     BIT15/14                              
062998,001203: 10,3532           10000                          CCS      A                                     
062999,001204: 10,3533           13536                          TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
063000,001205: 10,3534           13651                          TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
063001,001206: 10,3535           13640                          TCF      MARKRET                               #  MARK ENDIDLE RETURN
063002,001207: 
063003,001208: 10,3536           30366        TIMECHEK          CA       NVWORD                                
063004,001209: 10,3537           00006                          EXTEND                                         
063005,001210: 10,3540           13651                          BZF      NORMRET                               
063006,001211: 
063007,001212: 10,3541           40025                          CS       TIME1                                 
063008,001213: 10,3542           61005                          AD       PRIOTIME                              
063009,001214: 10,3543           10000                          CCS      A                                     
063010,001215: 10,3544           40000                          COM                                            
063011,001216: 10,3545           67663                          AD       OCT37776                              
063012,001217: 10,3546           64770                          AD       ONE                                   
063013,001218: 10,3547           63774                          AD       -2SEC                                 
063014,001219: 10,3550           00006                          EXTEND                                         
063015,001220: 10,3551           63010                          BZMF     KEEPPRIO                              
063016,001221: 
063017,001222: 10,3552           13651                          TCF      NORMRET                               
063018,001223: 
063019,001224: 10,3553           34770        NORMWAKE          CAF      ONE                                   
063020,001225: 10,3554           13253                          TCF      WAKEPLAY                              
063021,001226: 
063022,001227: 
063023,001228: 10,3555           11217        ENDRET            CCS      LOADSTAT                              #  -0=V32 OR E, -1=V33 OR PRO, -2=V34
063024,001229: 10,3556           15205                          TCF      ENDOFJOB                              #  +1=ENDMARK
063025,001230: 10,3557           21522        ENDIDRET          CADR     IDLERET1                              #  CANNOT GET HERE
063026,001231: 10,3560           13561                          TCF      +1                                    
063027,001232: 10,3561           30100                          CA       FLAGWRD4                              #  IS IT A VNFLASH
063028,001233: 10,3562           74767                          MASK     VNBIT                                 #     (BIT2)
063029,001234: 10,3563           60157                          AD       COPMPAC                               #    AND A NORMAL DISPLAY
063030,001235: 10,3564           66061                          AD       NEG4                                  
063031,001236: 10,3565           00006                          EXTEND                                         
063032,001237: 10,3566           13607                          BZF      VNRET                                 
063033,001238: 10,3567           31217                          CA       LOADSTAT                              
063034,001239: 10,3570           64767                          AD       TWO                                   
063035,001240: 10,3571           50157        ENDRET1           INDEX    COPMPAC                               
063036,001241: 10,3572           60371                          AD       CADRFLSH                              
063037,001242: 10,3573           54157        ENDRET2           TS       MPAC       +3                         
063038,001243: 
063039,001244: 10,3574           30162                          CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
063040,001245: 10,3575           73751                          MASK     PINIDMSK                              
063041,001246: 10,3576           03762                          TC       DOWNENT2                              
063042,001247: 10,3577           46214                          CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
063043,001248: 10,3600           04202                          TC       NVSUB                                 

Page 1474

063045,001250: 10,3601           13602                          TCF      +1                                    
063046,001251: 
063047,001252: 10,3602           30163        ENDIT             CA       USERPRIO                              #  RETURN TO USERS PRIORITY
063048,001253: 10,3603           77660                          MASK     PRIO37                                
063049,001254: 10,3604           05176                          TC       PRIOCHNG                              
063050,001255: 10,3605           30157                          CA       MPAC       +3                         
063051,001256: 10,3606           14660                          TCF      BANKJUMP                              
063052,001257: 
063053,001258: 10,3607           05561        VNRET             TC       DOWNFLAG                              
063054,001259: 10,3610           00111                          ADRES    VNFLAG                                
063055,001260: 10,3611           31217                          CA       LOADSTAT                              
063056,001261: 10,3612           64770                          AD       ONE                                   
063057,001262: 10,3613           10000                          CCS      A                                     
063058,001263: 10,3614           37700                          CAF      NEG3                                  #  LOADOSTAT.-0
063059,001264: 10,3615           13571                          TCF      ENDRET1                               #  CANNOT GET HERE VIA CCS
063060,001265: 10,3616           13621                          TCF      TERMFLSH                              #  LOADSTAT=-2
063061,001266: 10,3617           44770                          CS       ONE                                   #  COMPENSATE FOR INCREMENTED Q IN LEAD-IN
063062,001267: 10,3620           13571                          TCF      ENDRET1                               #  LOADSTAT=-1
063063,001268: 10,3621           33753        TERMFLSH          CAF      GOPOOCAD                              
063064,001269: 10,3622           13573                          TCF      ENDRET2                               
063065,001270: 
063066,001271: 
063067,001272: 10,3623           40160        LINUSCHR          CS       PLAYTEM4                              #  IS THIS A LINUS
063068,001273: 10,3624           74753                          MASK     REFLSH                                
063069,001274: 10,3625           10000                          CCS      A                                     
063070,001275: 10,3626           16706                          TCF      Q+1                                   #  NO
063071,001276: 10,3627           40157                          CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
063072,001277: 10,3630           50164                          INDEX    COPINDEX                              
063073,001278: 10,3631           60371                          AD       CADRFLSH                              
063074,001279: 10,3632           00006                          EXTEND                                         
063075,001280: 10,3633           13635                          BZF      +2                                    #  YES
063076,001281: 
063077,001282: 10,3634           00002                          TC       Q                                     #  NO
063078,001283: 10,3635           11215                          CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
063079,001284: 10,3636           05205                          TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
063080,001285: 10,3637           00002                          TC       Q                                     
063081,001286: 
063082,001287:                                                                                                 #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY THAT A LOAD IS A LOAD.
063083,001288: 
063084,001289:                                                                                                 #  LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
063085,001290:                                                                                                 #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
063086,001291:                                                                                                 #  DISPLAY WAS GOING, RESULTING IN THE NORMAL BEING PUT TO SLEEP.
063087,001292: 
063088,001293:                                                                                                 #  IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
063089,001294:                                                                                                 #  UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
063090,001295:                                                                                                 #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN ENDIDLE (DURING A
063091,001296:                                                                                                 #  PINBRNCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
063092,001297: 
063093,001298: 10,3640           34766        MARKRET           CAF      MKOVBIT                               
063094,001299: 10,3641           03762                          TC       DOWNENT2                              

Page 1475

063096,001301: 10,3642           13555                          TCF      ENDRET                                
063097,001302: 
063098,001303: 10,3643           34770        MARKOVER          CAF      ONE                                   
063099,001304: 10,3644           55217                          TS       LOADSTAT                              
063100,001305: 10,3645           30100                          CA       FLAGWRD4                              #  IS ENDIDFLG SET
063101,001306: 10,3646           74346                          MASK     BIT13-14                              #  IS NORMAL OR PRIO IN ENDIDLE
063102,001307: 10,3647           10000                          CCS      A                                     
063103,001308: 10,3650           13306                          TCF      NORMBNCH                              
063104,001309: 
063105,001310: 10,3651           30100        NORMRET           CA       FLAGWRD4                              #  IS MARK SLEEPING
063106,001311: 10,3652           73736                          MASK     BITS5+11                              #  OR WAITING
063107,001312: 10,3653           10000                          CCS      A                                     
063108,001313: 10,3654           13252                          TCF      MARKWAKE                              
063109,001314: 
063110,001315: 10,3655           30100                          CA       FLAGWRD4                              #  NO
063111,001316: 10,3656           73737                          MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
063112,001317: 10,3657           10000                          CCS      A                                     
063113,001318: 10,3660           13553                          TCF      NORMWAKE                              #  YES
063114,001319: 
063115,001320: 10,3661           34765                          CAF      FLSHRQST                              #  NO, WAS IT A FLASH REQUEST
063116,001321: 10,3662           64763                          AD       RETDSPY                               #  OR GODSPRET
063117,001322: 10,3663           71275                          MASK     EBANKTEM                              
063118,001323: 10,3664           10000                          CCS      A                                     
063119,001324: 10,3665           13555                          TCF      ENDRET                                #  YES
063120,001325: 10,3666           30370                          CA       NVSAVE                                
063121,001326: 10,3667           00006                          EXTEND                                         
063122,001327: 10,3670           13555                          BZF      ENDRET                                
063123,001328: 
063124,001329: 10,3671           35054                          CAF      PRIO15                                
063125,001330: 10,3672           05121                          TC       NOVAC                                 
063126,001331: 10,3673     0366                                 EBANK=   NVWORD                                
063127,001332: 10,3673           03061 20060                    2CADR    PLAYJUM1                              
063128,001333: 
063129,001334: 
063130,001335: 10,3675           13555                          TCF      ENDRET                                
063131,001336: 
063132,001337: 10,3676           30100        MARSLEEP          CA       FLAGWRD4                              #  IS MARK ALREADY ON
063133,001338: 10,3677           73736                          MASK     BITS5+11                              
063134,001339: 10,3700           10000                          CCS      A                                     
063135,001340: 10,3701           15205                          TCF      ENDOFJOB                              #  YES
063136,001341: 10,3702           13210                          TCF      GOSLEEPS                              
063137,001342: 
063138,001343: 10,3703           50157        LOADITIS          INDEX    COPMPAC                               
063139,001344: 10,3704           30366                          CA       NVWORD                                
063140,001345: 10,3705           76043                          MASK     LOW7                                  
063141,001346: 10,3706           40000                          COM                                            
063142,001347: 10,3707           60155                          AD       MPAC       +1                         #  NOUNREG
063143,001348: 10,3710           00006                          EXTEND                                         
063144,001349: 10,3711           13530                          BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
063145,001350: 10,3712           13275                          TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
063146,001351: 

Page 1476

063148,001353: 10,3713           46214        ERASER            CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
063149,001354: 10,3714           04202                          TC       NVSUB                                 
063150,001355: 10,3715           15205                          TCF      ENDOFJOB                              
063151,001356: 10,3716           15205                          TCF      ENDOFJOB                              
063152,001357: 
063153,001358: 10,3717           00036        PERFMASK          OCT      0036                                  #  FLASH,PERFORM,BLANK R2 AND R3
063154,001359: 10,3720           00231        V01N25            VN       00125                                 
063155,001360: 10,3721           14400        V50N00            VN       5000                                  
063156,001361: 10,3722     5001               PERF2MSK          EQUALS   BITS4&5                               #  (OCTAL 30)   FLASH, PERFORM
063157,001362: 10,3722     5775               PERF4MSK          EQUALS   OCT14                                 #  FLASH, BLANK R3
063158,001363: 10,3722           20010        REDOMASK          OCT      20010                                 #  BITS 4 AND 14
063159,001364: 10,3723           40036        MARK4MSK          OCT      40036                                 #  MARK,PERFORM,FLASH,BLANK 2 AND 3
063160,001365: 10,3724           21006        NVCADR            CADR     REDOPRIO                              
063161,001366: 10,3725           20630        WAKECADR          CADR     MARKPLAY                              
063162,001367: 10,3726           21061                          CADR     PLAYJUM1                              
063163,001368: 
063164,001369: 10,3727           11210        NBUSMASK          OCT      11210                                 
063165,001370: 10,3730           66521        PMMASK            OCT      66521                                 
063166,001371: 10,3731     4171               VERBMASK          =        MID7                                  #  (OCT 37600)
063167,001372: 10,3731           01177        V05N00M1          OCT      1177                                  #  V05 MINUS ONE
063168,001373: 10,3732  10,2576               GOXDSPF           EQUALS   GOMARKF                               
063169,001374: 10,3732     5524               ENDEXT            EQUALS   ENDMARK                               
063170,001375: 10,3732     0165               MPAC2SAV          EQUALS   BANKSET                               
063171,001376: 10,3732           00700        NVBUSMSK          OCT      700                                   
063172,001377: 10,3733           40030        MPERFMSK          OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
063173,001378: 10,3734           34300        OCT34300          OCT      34300                                 
063174,001379: 10,3735           40100        BITS15+7          OCT      40100                                 
063175,001380: 10,3736           02020        BITS5+11          OCT      2020                                  #  * DONT MOVE
063176,001381: 10,3737           01010        BITS4+10          OCT      1010                                  #  * DONT MOVE
063177,001382: 10,3740     4354               LOWLOAD           EQUALS   VBSP2LD                               
063178,001383: 10,3740     5004               CADRMASK          EQUALS   OCT50                                 
063179,001384: 10,3740     7673               PINMASK           EQUALS   13,14,15                              
063180,001385: 10,3740  10,3315               GOPLAY            EQUALS   NVDSP                                 
063181,001386:                                                                                                 # PRIOSAVE        EQUALS  R1SAVE
063182,001387: 10,3740     0157               COPMPAC           EQUALS   MPAC       +3                         
063183,001388: 10,3740     0160               TEMPOR2           EQUALS   MPAC       +4                         
063184,001389: 10,3740     0164               COPINDEX          EQUALS   LOC                                   
063185,001390: 10,3740     0163               USERPRIO          EQUALS   MODE                                  
063186,001391: 10,3740     0162               GENMASK           EQUALS   MPAC       +6                         
063187,001392: 10,3740           20144        PRIOOCT           OCT      20144                                 #  PRIO
063188,001393: 10,3741           42424        MARKOCT           OCT      42424                                 #  MARK
063189,001394: 10,3742           11254                          OCT      11254                                 #  NORM
063190,001395: 
063191,001396: 10,3743           74700        IDLESLEP          OCT      74700                                 
063192,001397: 10,3744     5516               LINUS             EQUALS   BLANKET                               
063193,001398: 10,3744     0154               FACEREG           EQUALS   MPAC                                  
063194,001399: 10,3744     0155               PLAYTEM1          EQUALS   MPAC       +1                         
063195,001400: 10,3744     0157               PLAYTEM3          EQUALS   MPAC       +3                         
063196,001401: 10,3744     0160               PLAYTEM4          EQUALS   MPAC       +4                         
063197,001402: 10,3744           03012        MAKEGEN           GENADR   MAKEPLAY                              

Page 1477

063199,001404: 10,3745           10200        BIT13+8           OCT      10200                                 
063200,001405: 10,3746           30200        V97N00            VN       09700                                 #  PASTE FOR V97 OR V99
063201,001406: 10,3747           20100        BIT14+7           OCT      20100                                 
063202,001407: 10,3750           24030        CLOCKCON          OCT      24030                                 #  FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
063203,001408: 10,3751           74040        PINIDMSK          OCT      74040                                 
063204,001409: 10,3752     7675               IDLEMASK          EQUALS   HIGH4                                 
063205,001410: 10,3752     7667               ITISMASK          EQUALS   BIT15+6                               #  *** ENDIDLE ALLOW ***
063206,001411: 10,3752     7664               MARKFMSK          EQUALS   OT40010                               
063207,001412: 10,3752           03217        XCHQADD           GENADR   XCHSLEEP                              
063208,001413: 10,3753     5045               WAITMASK          EQUALS   PRIO3                                 #  (OCTAL 3000)
063209,001414: 10,3753  10,3732               OCT700            EQUALS   NVBUSMSK                              
063210,001415: 10,3753           55772        GOPOOCAD          CADR     TCGOPOOH                              
063211,001416: 10,3754           40210        MARK3MSK          OCT      40210                                 
063212,001417: 10,3755     4752               MKRQST            =        BIT15                                 
063213,001418: 10,3755     4753               REFLSH            =        BIT14                                 
063214,001419: 10,3755     4754               2NDPERF           =        BIT13                                 
063215,001420: 10,3755     4755               V99PSTE           =        BIT12                                 
063216,001421: 10,3755     4761               DCMKPERF          =        BIT8                                  
063217,001422: 10,3755     4762               PRIODSPY          =        BIT7                                  
063218,001423: 10,3755     4763               RETDSPY           =        BIT6                                  
063219,001424: 10,3755     4764               PERFRQST          =        BIT5                                  
063220,001425: 10,3755     4765               FLSHRQST          =        BIT4                                  
063221,001426: 10,3755     4766               BLNKR3            =        BIT3                                  
063222,001427: 10,3755     4767               BLNKR2            =        BIT2                                  
063223,001428: 10,3755     4770               BLKNR1            =        BIT1                                  
063224,001429: 10,3755     4772               DSPONLY           =        ZERO                                  

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