Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

057784,000002:                                                                                                  ## Copyright:   Public domain.
057785,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
057786,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
057787,000005:                                                                                                  ##              It is part of the source code for the original release
057788,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
057789,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
057790,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
057791,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
057792,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
057793,000011:                                                                                                  ##              that the code format has been changed to conform to the
057794,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
057795,000013:                                                                                                  ##              original YUL assembler.
057796,000014:                                                                                                  ## Reference:   pp. 1335-1367
057797,000015:                                                                                                  ## Assembler:   yaYUL
057798,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
057799,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
057800,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
057801,000019:                                                                                                  ##              2016-12-18 MAS  Updated from comment-proofed Luminary 99 version.
057802,000020:                                                                                                  ##              2017-01-16 MAS  Updated for Luminary 69.
057803,000021:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
057804,000022:                                                                                                  ##                              but no errors found.
057805,000023:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
057806,000024:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
057807,000025:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
057808,000026: 

Page 1335

057810,000028:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
057811,000029: 
057812,000030:                                                                                                  #      1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
057813,000031:                                                                                                  #         OUT UNDER CRITICAL ALARM CONDITIONS.
057814,000032:                                                                                                  #      2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
057815,000033:                                                                                                  #      3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
057816,000034:                                                                                                  #         SEQUENCE OF EVENTS.
057817,000035:                                                                                                  #      4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
057818,000036:                                                                                                  #         MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
057819,000037: 
057820,000038: 
057821,000039:                                                                                                  #      5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
057822,000040:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
057823,000041: 
057824,000042:                                                                                                  #      1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
057825,000043:                                                                                                  #         (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
057826,000044:                                                                                                  #         BUT NOT WAITING FOR A RESPONSE.
057827,000045:                                                                                                  #      2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
057828,000046:                                                                                                  #         (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
057829,000047:                                                                                                  #         WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
057830,000048:                                                                                                  #         OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
057831,000049:                                                                                                  #         HAS INFO SAVED FOR RESTART PURPOSES.
057832,000050: 
057833,000051: 
057834,000052:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS-
057835,000053: 
057836,000054:                                                                                                  #    INTERRUPTS-
057837,000055:                                                                                                  #      1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
057838,000056:                                                                                                  #      2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
057839,000057:                                                                                                  #      3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
057840,000058:                                                                                                  #         PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
057841,000059:                                                                                                  #      4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
057842,000060:                                                                                                  #      5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
057843,000061: 
057844,000062:                                                                                                  #    ORDER OF WAITING DISPLAYS-
057845,000063:                                                                                                  #      1. ASTRONAUT EXTERNAL USE
057846,000064:                                                                                                  #      2. PRIORITY
057847,000065:                                                                                                  #      3. INTERRUPTED MARK
057848,000066:                                                                                                  #      4. INTERRUPTED NORMAL
057849,000067: 
057850,000068:                                                                                                  #      5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
057851,000069:                                                                                                  #      6. MARK WAITING
057852,000070:                                                                                                  #      7. NORMAL WAITING
057853,000071: 

Page 1336

057855,000073:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
057856,000074:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
057857,000075:                                                                                                  #  WILL FOLLOW LATER):
057858,000076: 
057859,000077:                                                                                                  #       1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
057860,000078:                                                                                                  #           IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
057861,000079:                                                                                                  #           IS TO THE USERS CALLING LOC +1.
057862,000080:                                                                                                  #       2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
057863,000081:                                                                                                  #       3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
057864,000082:                                                                                                  #       4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
057865,000083:                                                                                                  #           USERS JOB.
057866,000084:                                                                                                  #       5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
057867,000085:                                                                                                  #       6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
057868,000086:                                                                                                  #           DESCRIPTION OF RESTARTS).
057869,000087:                                                                                                  #       7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
057870,000088:                                                                                                  #           TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
057871,000089:                                                                                                  #           (V32) BRANCHES TO THE USERS CALL CADR +3.
057872,000090:                                                                                                  #       8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
057873,000091: 
057874,000092:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
057875,000093: 
057876,000094:                                                                                                  #  GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
057877,000095: 
057878,000096:                                                                                                  #       1. GODSP IS NOT RESTARTABLE
057879,000097:                                                                                                  #       2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
057880,000098:                                                                                                  #                                                   CAF    VXXNYY
057881,000099:                                                                                                  #                                                   TC     BANKCALL
057882,000100:                                                                                                  #                                                   CADR   GODSP
057883,000101: 
057884,000102:                                                                                                  #                                          VXXNYY   OCT    0XXYY
057885,000103: 
057886,000104:                                                                                                  #  GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
057887,000105: 
057888,000106:                                                                                                  #                                                   CAF    VXXNYY
057889,000107:                                                                                                  #                                                   TC     BANKCALL
057890,000108:                                                                                                  #                                                   CADR   GODSPR
057891,000109: 
057892,000110:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN OF GODSPR
057893,000111: 
057894,000112:                                                                                                  #  GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
057895,000113:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE).
057896,000114: 
057897,000115:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
057898,000116:                                                                                                  #                                                   TC     BANKCALL
057899,000117:                                                                                                  #                                                   CADR   GOFLASH
057900,000118:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057901,000119:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057902,000120:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
057903,000121: 
057904,000122:                                                                                                  #  GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A

Page 1337

057906,000124:                                                                                                  #  V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
057907,000125:                                                                                                  #  USER (SEE NO. 7 ABOVE).
057908,000126: 
057909,000127:                                                                                                  #  GOPERF1 BLANKS REGISTERS R2 AND R3
057910,000128:                                                                                                  #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX
057911,000129:                                                                                                  #                                                   TC     BANKCALL
057912,000130:                                                                                                  #                                                   CADR   GOPERF1
057913,000131:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057914,000132:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057915,000133:                                                                                                  #                                                   ...    ...             ENTER RETURN
057916,000134: 
057917,000135:                                                                                                  #  GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
057918,000136:                                                                                                  #  REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
057919,000137:                                                                                                  #  DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057920,000138: 
057921,000139:                                                                                                  #  GOPERF2 DOES NOT BLANK ANY REGISTERS
057922,000140: 
057923,000141:                                                                                                  #                                                   CAF    VXXNYY          VARIABLE NOUN YY. XX=00 OR 01.
057924,000142:                                                                                                  #                                                   TC     BANKCALL
057925,000143:                                                                                                  #                                                   CADR   GOPERF2
057926,000144:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057927,000145:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057928,000146:                                                                                                  #                                                   ...    ...             ENTER RETURN
057929,000147: 
057930,000148:                                                                                                  #  GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
057931,000149:                                                                                                  #  DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
057932,000150:                                                                                                  #  IS MADE TO THE USER (SEE NO. 7 ABOVE).
057933,000151: 
057934,000152:                                                                                                  #  GOPERF3 BLANKS REGISTERS R2 AND R3
057935,000153: 
057936,000154:                                                                                                  #                                                   CAF    DECXX           REQUEST PERFORM ON PXX
057937,000155:                                                                                                  #                                                   TC     BANKCALL
057938,000156:                                                                                                  #                                                   CADR   GOPERF3
057939,000157:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057940,000158:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057941,000159:                                                                                                  #                                                   ...    ...             ENTER RETURN
057942,000160: 
057943,000161:                                                                                                  #  GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
057944,000162:                                                                                                  #  GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING  V50N06 FOR A PLEASE PERFORM. NO
057945,000163:                                                                                                  #  IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057946,000164: 
057947,000165:                                                                                                  #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTION XX
057948,000166:                                                                                                  #                                                   TC     BANKCALL
057949,000167:                                                                                                  #                                                   CADR   GOPERF4
057950,000168:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057951,000169:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057952,000170:                                                                                                  #                                                   ...    ...             ENTER RETURN
057953,000171: 
057954,000172:                                                                                                  #  GOPERF4 BLANKS REGISTER R3
057955,000173: 

Page 1338

057957,000175:                                                                                                  #  GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
057958,000176:                                                                                                  #  OUT.
057959,000177: 
057960,000178:                                                                                                  #                                                   CAF    VXXNYY
057961,000179:                                                                                                  #                                                   TC     BANKCALL
057962,000180:                                                                                                  #                                                   CADR   GODSPRET
057963,000181:                                                                                                  #                                                   ...    ...             RETURN TO USER
057964,000182: 
057965,000183:                                                                                                  #  REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
057966,000184:                                                                                                  #  ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057967,000185: 
057968,000186:                                                                                                  #                                                   CAF    VXXNYY
057969,000187:                                                                                                  #                                                   TC     BANKCALL
057970,000188:                                                                                                  #                                                   CADR   REGODSP
057971,000189: 
057972,000190:                                                                                                  #  REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057973,000191: 
057974,000192:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
057975,000193:                                                                                                  #                                                   TC     BANKCALL
057976,000194:                                                                                                  #                                                   CADR   REFLASH
057977,000195:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057978,000196:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057979,000197:                                                                                                  #                                                   ...    ...             ENTER RETURN
057980,000198: 
057981,000199:                                                                                                  #  GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057982,000200: 
057983,000201:                                                                                                  #                                                   CAF    VXXNYY
057984,000202:                                                                                                  #                                                   TC     BANKCALL
057985,000203:                                                                                                  #                                                   CADR   GOFLASHR
057986,000204:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
057987,000205:                                                                                                  #                                                   ...    ...             PROCEED RETURN
057988,000206:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
057989,000207: 
057990,000208:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN FROM GOFLASHR
057991,000209: 
057992,000210:                                                                                                  #  GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
057993,000211: 
057994,000212:                                                                                                  #  GOPERF1R BLANKS REGISTERS R2 AND R3
057995,000213: 
057996,000214:                                                                                                  #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX.
057997,000215:                                                                                                  #                                                   TC     BANKCALL
057998,000216:                                                                                                  #                                                   CADR   GOPERF1R
057999,000217:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058000,000218:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058001,000219:                                                                                                  #                                                   ...    ...             ENTER RETURN
058002,000220: 
058003,000221:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN FROM GOPERF1R
058004,000222: 
058005,000223:                                                                                                  #  GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058006,000224: 

Page 1339

058008,000226:                                                                                                  #  GOPERF2R DOES NOT BLANK ANY REGISTERS
058009,000227: 
058010,000228:                                                                                                  #                                                   CAF    VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
058011,000229:                                                                                                  #                                                   TC     BANKCALL
058012,000230:                                                                                                  #                                                   CADR   GOPERF2R
058013,000231:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058014,000232:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058015,000233:                                                                                                  #                                                   ...    ...             ENTER RETURN
058016,000234: 
058017,000235:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN HERE FROM GOPERF2R
058018,000236: 
058019,000237:                                                                                                  #  GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058020,000238: 
058021,000239:                                                                                                  #  GOPERF3R BLANKS REGISTERS R2 AND R3
058022,000240: 
058023,000241:                                                                                                  #                                                   CAF    PROGXX          PERFORM PROGRAM XX
058024,000242:                                                                                                  #                                                   TC     BANKCALL
058025,000243:                                                                                                  #                                                   CADR   GOPERF3R
058026,000244:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058027,000245:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058028,000246:                                                                                                  #                                                   ...    ...             ENTER RETURN
058029,000247: 
058030,000248:                                                                                                  #                                                   ...    ...             GOPERF3R IMMEDIATELY RETURNS HERE
058031,000249: 
058032,000250:                                                                                                  #  GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058033,000251: 
058034,000252:                                                                                                  #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTIONXX
058035,000253:                                                                                                  #                                                   TC     BANKCALL
058036,000254:                                                                                                  #                                                   CADR   GOPERF4R
058037,000255:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058038,000256:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058039,000257:                                                                                                  #                                                   ...    ...             ENTER RETURN
058040,000258: 
058041,000259:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
058042,000260: 
058043,000261:                                                                                                  #  GOPERF4R BLANKS REGISTER R3
058044,000262: 
058045,000263:                                                                                                  #  REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058046,000264: 
058047,000265:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
058048,000266:                                                                                                  #                                                   TC     BANKCALL
058049,000267:                                                                                                  #                                                   CADR   REFLASHR
058050,000268:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058051,000269:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058052,000270:                                                                                                  #                                                   ...    ...             ENTER RETURN
058053,000271: 
058054,000272:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
058055,000273: 
058056,000274:                                                                                                  #  REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
058057,000275: 

Page 1340

058059,000277:                                                                                                  #                                                   CAF    VXXNYY
058060,000278:                                                                                                  #                                                   TC     BANKCALL
058061,000279:                                                                                                  #                                                   CADR   REGODSPR
058062,000280:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER

Page 1341

058064,000282:                                                                                                  #  GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
058065,000283: 
058066,000284:                                                                                                  #  GOXDSP = GOMARK
058067,000285: 
058068,000286:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY CONTAINS VERB AND NOUN
058069,000287:                                                                                                  #                                                   TC     BANKCALL
058070,000288:                                                                                                  #                                                   CADR   GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
058071,000289: 
058072,000290:                                                                                                  #  GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
058073,000291: 
058074,000292:                                                                                                  #  GOXDSPR = GOMARKR
058075,000293: 
058076,000294:                                                                                                  #                                                   CAF    VXXNYY
058077,000295:                                                                                                  #                                                   TC     BANKCALL
058078,000296:                                                                                                  #                                                   CADR   GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
058079,000297: 
058080,000298:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN OF GOMARKR
058081,000299: 
058082,000300:                                                                                                  #  GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058083,000301:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE ).
058084,000302: 
058085,000303:                                                                                                  #  GOXDSPF = GOMARKF
058086,000304: 
058087,000305:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
058088,000306:                                                                                                  #                                                   TC     BANKCALL
058089,000307:                                                                                                  #                                                   CADR   GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
058090,000308:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058091,000309:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058092,000310:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058093,000311: 
058094,000312:                                                                                                  #  GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
058095,000313: 
058096,000314:                                                                                                  #  GOXDSPFR = GOMARKFR
058097,000315: 
058098,000316:                                                                                                  #                                                   CAF    VXXNYY          FLASHING MARK VERB NOUN
058099,000317:                                                                                                  #                                                   TC     BANKCALL
058100,000318:                                                                                                  #                                                   CADR   GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
058101,000319:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058102,000320:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058103,000321:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058104,000322: 
058105,000323:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
058106,000324: 
058107,000325:                                                                                                  #  GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
058108,000326:                                                                                                  #  RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
058109,000327:                                                                                                  #  MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
058110,000328:                                                                                                  #  OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
058111,000329: 
058112,000330:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4   Y=NOUN
058113,000331:                                                                                                  #                                                   TC     BANKCALL

Page 1342

058115,000333:                                                                                                  #                                                   CADR   GOMARK1
058116,000334: 
058117,000335:                                                                                                  #                                                   ...    ...             ENTER RETURN
058118,000336: 
058119,000337:                                                                                                  #  *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
058120,000338: 
058121,000339:                                                                                                  #  GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
058122,000340:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4    YY = NOUN
058123,000341:                                                                                                  #                                                   TC     BANKCALL
058124,000342:                                                                                                  #                                                   CADR   GOMARK1R
058125,000343: 
058126,000344:                                                                                                  #                                                   ...    ...             ASTRONAUT ENTER RETURN
058127,000345:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
058128,000346: 
058129,000347:                                                                                                  #  GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
058130,000348:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4   YY=NOUN
058131,000349:                                                                                                  #                                                   TC     BANKCALL
058132,000350:                                                                                                  #                                                   CADR   GOMARK2
058133,000351:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058134,000352:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058135,000353:                                                                                                  #                                                   ...    ...             ENTER RETURN
058136,000354:                                                                                                  #  GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
058137,000355: 
058138,000356:                                                                                                  #                                                   CAF    V5XNYY          X=0,1,2,3,4   YY=NOUN
058139,000357:                                                                                                  #                                                   TC     BANKCALL
058140,000358:                                                                                                  #                                                   CADR   GOMARK2R
058141,000359:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058142,000360:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058143,000361:                                                                                                  #                                                   ...    ...             ENTER RETURN
058144,000362: 
058145,000363:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
058146,000364: 
058147,000365:                                                                                                  #  GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
058148,000366:                                                                                                  #  PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
058149,000367:                                                                                                  #  V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
058150,000368: 
058151,000369:                                                                                                  #                                                   CAF    V5XNYY          X=1, 2,3,4 YY=NOUN
058152,000370:                                                                                                  #                                                   TC     BANKCALL
058153,000371:                                                                                                  #                                                   CADR   GOMARK3
058154,000372:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058155,000373:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058156,000374:                                                                                                  #                                                   ...    ...             ENTER RETURN
058157,000375: 
058158,000376:                                                                                                  #  GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
058159,000377: 
058160,000378:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4 YY=NOUN
058161,000379:                                                                                                  #                                                   TC     BANKCALL
058162,000380:                                                                                                  #                                                   CADR   GOMARK4
058163,000381:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058164,000382:                                                                                                  #                                                   ...    ...             PROCEED RETURN

Page 1343

058166,000384:                                                                                                  #                                                   ...    ...             ENTER RETURN
058167,000385: 
058168,000386:                                                                                                  #  EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
058169,000387:                                                                                                  #  SENT OUT.
058170,000388:                                                                                                  #                                                   CAF    VXXNYY
058171,000389:                                                                                                  #                                                   TC     BANKCALL
058172,000390:                                                                                                  #                                                   CADR   EXDSPRET
058173,000391: 
058174,000392:                                                                                                  #                                                   ...    ...             RETURN TO USER
058175,000393: 
058176,000394:                                                                                                  #  KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
058177,000395:                                                                                                  #  HAVE BEEN CLEANED OUT.
058178,000396: 
058179,000397:                                                                                                  #                                                   TC     BANKCALL
058180,000398:                                                                                                  #                                                   CADR   KLEENEX
058181,000399: 
058182,000400:                                                                                                  #                                                   ...    ...             RETURN TO USER
058183,000401: 
058184,000402:                                                                                                  #  MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
058185,000403: 
058186,000404:                                                                                                  #                                                   TC     BANKCALL
058187,000405:                                                                                                  #                                                   CADR   MARKBRAN
058188,000406: 
058189,000407:                                                                                                  #                                                   ...    ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
058190,000408: 
058191,000409:                                                                                                  #                                                                          (GOOD RETURN TO IMMEDIATE RETURN LOC OF
058192,000410:                                                                                                  #                                                                          LAST FLASHING MARK R ROUTINE)
058193,000411: 
058194,000412:                                                                                                  #  PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
058195,000413:                                                                                                  #  BLANKED AND CONTROL IS SENT TO ENDOFJOB.
058196,000414: 
058197,000415:                                                                                                  #                                                   TC     POSTJUMP
058198,000416:                                                                                                  #                                                   CADR   PINBRNCH
058199,000417: 
058200,000418:                                                                                                  #  PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
058201,000419:                                                                                                  #  THE ASTRONAUT(SEE NO.7 ABOVE).
058202,000420: 
058203,000421:                                                                                                  #       THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
058204,000422:                                                                                                  #  PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
058205,000423:                                                                                                  #  IS RESPONDED TO BY THE ASTRONAUT.
058206,000424: 
058207,000425:                                                                                                  #       THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
058208,000426:                                                                                                  #  PRIO DISPLAY.
058209,000427: 
058210,000428:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
058211,000429:                                                                                                  #                                                   TC     BANKCALL
058212,000430:                                                                                                  #                                                   CADR   PRIODSP
058213,000431:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058214,000432:                                                                                                  #                                                   ...    ...             PROCEED RETURN

Page 1344

058216,000434:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058217,000435: 
058218,000436:                                                                                                  #  PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058219,000437: 
058220,000438:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
058221,000439:                                                                                                  #                                                   TC     BANKCALL
058222,000440:                                                                                                  #                                                   CADR   PRIODSPR
058223,000441:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058224,000442:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058225,000443:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058226,000444: 
058227,000445:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN
058228,000446: 
058229,000447:                                                                                                  #  PRIOLARM DOES A V05N09 PRIODSPR.
058230,000448:                                                                                                  #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
058231,000449:                                                                                                  #  DISPLAYS ARE CLEANED OUT.
058232,000450:                                                                                                  #                                                   TC     BANKCALL
058233,000451:                                                                                                  #                                                   CADR   CLEANDSP
058234,000452: 
058235,000453:                                                                                                  #                                                   ...    ...             RETURN TO USER
058236,000454: 

Page 1345

058238,000456: 
058239,000457:                                                                                                  #  GENERAL INFORMATION
058240,000458:                                                                                                  #  ------- -----------
058241,000459: 
058242,000460: 
058243,000461:                                                                                                  #  ALARM OR ABORT EXIT MODES--
058244,000462: 
058245,000463:                                                                                                  #                                          PRIOBORT TC     ABORT
058246,000464:                                                                                                  #                                                   OCT    1502
058247,000465: 
058248,000466:                                                                                                  #  PRIOBORT IS BRANCED TO WHEN (1)  A NORMAL DISPLAY IS REQUESTED AND  ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
058249,000467:                                                                                                  #  (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
058250,000468:                                                                                                  #  ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
058251,000469: 
058252,000470: 
058253,000471:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED--
058254,000472: 
058255,000473:                                                                                                  #       ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
058256,000474:                                                                                                  #                                    2. NVSAVE = NORMAL VERB AND NOUN      REGISTER.
058257,000475:                                                                                                  #                                    3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
058258,000476: 
058259,000477: 
058260,000478:                                                                                                  #                                    5. R1SAVE = MARKBRAN CONTROL WORD
058261,000479:                                                                                                  #                                    4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
058262,000480: 
058263,000481:                                                                                                  #  OUTPUT --
058264,000482: 
058265,000483:                                                                                                  #       NVWORD = PRIO VERB AND NOUN
058266,000484:                                                                                                  #       NVWORD +1(MARKNV) = MARK VERB AND NOUN
058267,000485:                                                                                                  #       NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
058268,000486: 
058269,000487:                                                                                                  #       DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
058270,000488:                                                                                                  #       DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
058271,000489:                                                                                                  #       DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
058272,000490: 
058273,000491:                                                                                                  #       CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
058274,000492:                                                                                                  #       CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
058275,000493:                                                                                                  #       CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
058276,000494: 
058277,000495:                                                                                                  #       PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
058278,000496:                                                                                                  #       OPTION1 = DESIRED OPTION FROM GOPERF4
058279,000497:                                                                                                  #       FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
058280,000498:                                                                                                  #       DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
058281,000499:                                                                                                  #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
058282,000500:                                                                                                  #  JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
058283,000501:                                                                                                  #  DEBRIS-- (STORED INTO)
058284,000502: 
058285,000503:                                                                                                  #       TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
058286,000504:                                                                                                  #  EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1                      4, FACEREG
058287,000505:                                                                                                  #       ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
058288,000506: 
058289,000507:                                                                                                  #       ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,

Page 1346

058291,000509:                                                                                                  #  R1SAVE, MARK2PAC,
058292,000510: 
058293,000511: 
058294,000512:                                                                                                  #  DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
058295,000513:                                                                                                  #  FLAGWORD DESCRIPTIONS--
058296,000514:                                                                                                  #      FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
058297,000515: 
058298,000516:                                                                                                  #      DSPFLG, DSPFLG+1, DSPFLG +2-
058299,000517:                                                                                                  #      ----------------------------
058300,000518:                                                                                                  #  BITS 1 BLANK R1
058301,000519:                                                                                                  #       2 BLANK R2
058302,000520:                                                                                                  #       3 BLANK R3
058303,000521:                                                                                                  #       4 FLASHING DISPLAY REQUESTED
058304,000522:                                                                                                  #       5 PERFORM DISPLAY REQUESTED
058305,000523:                                                                                                  #       6 -----            EXDSPRET           GODSPRET
058306,000524:                                                                                                  #       7 PRIO DISPLAY     -----               -----
058307,000525:                                                                                                  #       8 -----         DEC MARK PERFORM      -----
058308,000526:                                                                                                  #       9 EBANK
058309,000527:                                                                                                  #      10 EBANK
058310,000528:                                                                                                  #      11 EBANK
058311,000529:                                                                                                  #      12 -----           -----       V99PASTE
058312,000530:                                                                                                  #      13 2ND PART OF PERFORM
058313,000531:                                                                                                  #      15 REFLASH OR REDO  -----           REFLASH OR REDO
058314,000532:                                                                                                  #      15 -----          MARK REQUEST          -----
058315,000533:                                                                                                  #  RESTARTING DISPLAYS--
058316,000534: 
058317,000535:                                                                                                  #  RULES FOR THE DSKY OPERATOR--
058318,000536: 
058319,000537:                                                                                                  #       1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
058320,000538:                                                                                                  #          AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
058321,000539:                                                                                                  #          RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
058322,000540:                                                                                                  #          WITH PROCEED AND TERMINATE FOR THIS REASON.
058323,000541:                                                                                                  #       2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO             SOONER THAN 2 SECONDS FROM THE TIME THE
058324,000542:                                                                                                  #          PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
058325,000543:                                                                                                  #          DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
058326,000544:                                                                                                  #           IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS     FROM THE TIME THE FIRST PRIORITY DISPLAY
058327,000545:                                                                                                  #          OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY  MULTIPLE OF THAT TIME DUE TO PROGRAM
058328,000546:                                                                                                  #          CONSIDERATION.
058329,000547:                                                                                                  #       3. KEY RELEASE BUTTON-
058330,000548:                                                                                                  #          A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
058331,000549:                                                                                                  #          B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
058332,000550:                                                                                                  #             AWAITING RESPONSE  THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
058333,000551:                                                                                                  #          IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
058334,000552:                                                                                                  #          KEY RELEASE BUTTON MAY BE NECESSARY.
058335,000553:                                                                                                  #       4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
058336,000554:                                                                                                  #       5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
058337,000555:                                                                                                  #          OVER AGAIN.
058338,000556: 
058339,000557: 
058340,000558:                                                                                                  #  SPECIAL CONSIDERATIONS--

Page 1347

058342,000560:                                                                                                  #       1. MPAC +2  SAVED ONLY IN MARK DISPLAYS
058343,000561:                                                                                                  #       2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
058344,000562:                                                                                                  #       3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
058345,000563:                                                                                                  #       4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
058346,000564:                                                                                                  #       5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
058347,000565:                                                                                                  #          BY A .1 RESTART PHASE CHANGE.
058348,000566:                                                                                                  #       6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
058349,000567:                                                                                                  #          CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
058350,000568:                                                                                                  #       7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED  BEFORE THE TC BANKCALL.
058351,000569: 

Page 1348

058353,000571:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
058354,000572:                                                                                                  #                                                   CAF    BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
058355,000573:                                                                                                  #                                                   TC     BLANKET
058356,000574:                                                                                                  #                                                   ...    ...             RETURN TO USER HERE
058357,000575: 
058358,000576:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
058359,000577:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
058360,000578: 
058361,000579:    5464                                           BLOCK    02                                    
058362,000580:    4000                                           SETLOC   FFTAG4                                
058363,000581:    4000                                           BANK                                           
058364,000582: 
058365,000583:    5464                                           COUNT*   $$/DSPLA                              
058366,000584:    5464           54162        BLANKET            TS       MPAC       +6                         
058367,000585:    5465           40160                           CS       PLAYTEM4                              
058368,000586:    5466           70162                           MASK     MPAC       +6                         
058369,000587:    5467           50161                           INDEX    MPAC       +5                         
058370,000588:    5470           26160                           ADS      PLAYTEM4                              
058371,000589: 
058372,000590:    5471           00002                           TC       Q                                     
058373,000591: 
058374,000592:    5472           04635        ENDMARK            TC       POSTJUMP                              
058375,000593:    5473           20204                           CADR     MARKEND                               
058376,000594: 
058377,000595:    5474           34755        CLEARMRK           CAF      ZERO                                  
058378,000596:    5475           55044                           TS       EXTVBACT                              
058379,000597: 
058380,000598:    5476           00004                           INHINT                                         
058381,000599:    5477           44753                           CS       BIT1                                  
058382,000600:    5500           70100                           MASK     FLAGWRD4                              
058383,000601:    5501           54100                           TS       FLAGWRD4                              
058384,000602: 
058385,000603:    5502           00003                           RELINT                                         
058386,000604:    5503           00002                           TC       Q                                     
058387,000605:                                                                                                  #  ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
058388,000606:                                                                                                  #  FINISHED.
058389,000607: 
058390,000608: 10,2204                                           BANK     10                                    
058391,000609: 10,2000                                           SETLOC   DISPLAYS                              
058392,000610: 10,2000                                           BANK                                           
058393,000611: 
058394,000612: 10,2204                                           COUNT*   $$/DSPLA                              
058395,000613:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
058396,000614:                                                                                                  #  3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
058397,000615: 
058398,000616: 10,2204           05474        MARKEND            TC       CLEARMRK                              
058399,000617: 10,2205           13274                           TCF      MARKOVER                              
058400,000618: 
058401,000619: 10,2206           54155        GOMARK             TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP

Page 1349

058403,000621: 10,2207           34735        GOMARS             CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
058404,000622: 10,2210           12353                           TCF      GOFLASH2                              
058405,000623: 
058406,000624: 10,2211           34755        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
058407,000625: 10,2212           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
058408,000626: 
058409,000627: 10,2213           32704                           CAF      MARKFMSK                              #  MARK,FLASH
058410,000628: 10,2214           12353                           TCF      GOFLASH2                              
058411,000629: 
058412,000630: 10,2215           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
058413,000631: 10,2216           33373        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
058414,000632: 10,2217           12353                           TCF      GOFLASH2                              
058415,000633: 
058416,000634: 10,2220           54155        GOMARK3            TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
058417,000635: 10,2221           33360                           CAF      MARK3MSK                              
058418,000636: 10,2222           12353                           TCF      GOFLASH2                              
058419,000637: 
058420,000638: 10,2223           54155        GOMARK4            TS       PLAYTEM1                              
058421,000639: 10,2224           33361                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
058422,000640: 10,2225           12353                           TCF      GOFLASH2                              
058423,000641: 
058424,000642: 10,2226           54155        GOMARKR            TS       PLAYTEM1                              #  ENTR+NCE FOR MARK GODSPR
058425,000643: 
058426,000644: 10,2227           34735                           CAF      BIT15                                 
058427,000645: 10,2230           12331                           TCF      GODSPR2                               
058428,000646: 
058429,000647: 10,2231           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
058430,000648: 
058431,000649: 10,2232           32704                           CAF      MARKFMSK                              
058432,000650: 10,2233           12512                           TCF      GODSPRS                               
058433,000651: 
058434,000652: 10,2234           54155        GOMARK2R           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
058435,000653: 10,2235           33373                           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
058436,000654: 10,2236           12512                           TCF      GODSPRS                               
058437,000655: 
058438,000656: 10,2237           54155        GOMARK3R           TS       PLAYTEM1                              
058439,000657: 10,2240           33360                           CAF      MARK3MSK                              
058440,000658: 10,2241           12512                           TCF      GODSPRS                               
058441,000659: 
058442,000660: 10,2242           34753        MAKEMARK           CAF      ONE                                   
058443,000661: 10,2243           02610                           TC       COPIES                                
058444,000662: 
058445,000663: 10,2244           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
058446,000664: 10,2245           73374                           MASK     OCT34300                              
058447,000665: 10,2246           10000                           CCS      A                                     
058448,000666: 10,2247           12305                           TCF      CHKPRIO                               
058449,000667: 
058450,000668: 10,2250           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY
058451,000669: 10,2251           74743                           MASK     MRKNVBIT                              
058452,000670: 
058453,000671: 10,2252           00006                           EXTEND                                         

Page 1350

058455,000673: 10,2253           12255                           BZF      MARKPLAY                              #  NO
058456,000674: 
058457,000675: 10,2254           15155                           TCF      ENDOFJOB                              
058458,000676: 
058459,000677: 10,2255           00004        MARKPLAY           INHINT                                         
058460,000678: 10,2256           44756                           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
058461,000679: 10,2257           70100                           MASK     FLAGWRD4                              
058462,000680: 10,2260           64753                           AD       ONE                                   
058463,000681: 10,2261           54100                           TS       FLAGWRD4                              
058464,000682: 10,2262           00003                           RELINT                                         
058465,000683: 
058466,000684: 10,2263           41071        GOGOMARK           CS       MARKFLAG                              #  PERFORM
058467,000685: 10,2264           74747                           MASK     BIT5                                  
058468,000686: 10,2265           10000                           CCS      A                                     
058469,000687: 10,2266           12271                           TCF      MARKCOP                               
058470,000688: 10,2267           40370                           CS       MARKNV                                
058471,000689: 10,2270           54370                           TS       MARKNV                                
058472,000690: 
058473,000691: 10,2271           34753        MARKCOP            CAF      ONE                                   #  MARK INDEX
058474,000692: 10,2272           12471                           TCF      PRIOPLAY                              
058475,000693: 
058476,000694: 10,2273           30165        COPYTOGO           CA       MPAC2SAV                              
058477,000695: 10,2274           54156                           TS       MPAC       +2                         
058478,000696: 
058479,000697: 10,2275           50164        COPYPACS           INDEX    COPINDEX                              
058480,000698: 10,2276           33404                           CAF      PRIOOCT                               
058481,000699: 10,2277           54162                           TS       GENMASK                               
058482,000700: 
058483,000701: 10,2300           50164                           INDEX    COPINDEX                              
058484,000702: 10,2301           31070                           CAF      EBANKSAV                              
058485,000703: 10,2302           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
058486,000704: 
058487,000705: 10,2303           54003                           TS       EBANK                                 
058488,000706: 
058489,000707: 10,2304           00002                           TC       Q                                     
058490,000708: 
058491,000709:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
058492,000710:                                                                                                  #  (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
058493,000711:                                                                                                  #  REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
058494,000712:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
058495,000713: 
058496,000714:                                                                                                  #       IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
058497,000715:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
058498,000716: 
058499,000717: 10,2305           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
058500,000718: 10,2306           73127                           MASK     OCT24100                              
058501,000719: 10,2307           10000                           CCS      A                                     
058502,000720: 10,2310           13327                           TCF      MARSLEEP                              
058503,000721: 
058504,000722: 10,2311           40100                           CS       FLAGWRD4                              

Page 1351

058506,000724: 10,2312           74751                           MASK     MKOVBIT                               #  SET MARK OVER NORM
058507,000725: 10,2313           00004                           INHINT                                         
058508,000726: 10,2314           26100                           ADS      FLAGWRD4                              
058509,000727: 
058510,000728: 10,2315           12407                           TCF      SETNORM                               
058511,000729: 
058512,000730: 10,2316           30370        MARKPERF           CA       MARKNV                                
058513,000731: 10,2317           74144                           MASK     VERBMASK                              
058514,000732: 10,2320           12773                           TCF      NV50DSP                               
058515,000733: 
058516,000734: 10,2321           54155        GODSP              TS       PLAYTEM1                              
058517,000735: 
058518,000736: 10,2322           34755        GODSP2             CAF      ZERO                                  
058519,000737: 10,2323           12353                           TCF      GOFLASH2                              
058520,000738: 
058521,000739: 10,2324           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
058522,000740: 
058523,000741: 10,2325           34746                           CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
058524,000742: 10,2326           12353                           TCF      GOFLASH2                              
058525,000743: 
058526,000744: 10,2327           54155        GODSPR             TS       PLAYTEM1                              
058527,000745: 
058528,000746: 10,2330           34755        GODSPR1            CAF      ZERO                                  
058529,000747: 10,2331           54160        GODSPR2            TS       PLAYTEM4                              
058530,000748: 
058531,000749: 10,2332           34755                           CAF      ZERO                                  #  * DONT MOVE
058532,000750: 10,2333           12514                           TCF      GODSPRS1                              
058533,000751: 
058534,000752:                                                                                                  #       CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
058535,000753:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
058536,000754: 
058537,000755:                                                                                                  #       NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
058538,000756:                                                                                                  #  OLD DISPLAY.
058539,000757: 
058540,000758:                                                                                                  #       CALLING SEQUENCE FOR CLEANDSP-
058541,000759: 
058542,000760:                                                                                                  #                TC      BANKCALL
058543,000761:                                                                                                  #                CADR    CLEANDSP
058544,000762: 
058545,000763: 10,2334           34755        CLEANDSP           CAF      ZERO                                  
058546,000764: 10,2335           54155        REFLASH            TS       PLAYTEM1                              
058547,000765: 
058548,000766: 10,2336           33357                           CAF      REDOMASK                              #  FLASH AND PERMIT
058549,000767: 10,2337           12353                           TCF      GOFLASH2                              
058550,000768: 
058551,000769: 10,2340           54155        REFLASHR           TS       PLAYTEM1                              
058552,000770: 
058553,000771: 10,2341           33357                           CAF      REDOMASK                              #  FLASH AND PERMIT
058554,000772: 10,2342           12512                           TCF      GODSPRS                               
058555,000773: 

Page 1352

058557,000775: 10,2343           54155        REGODSP            TS       PLAYTEM1                              
058558,000776: 
058559,000777: 10,2344           34736                           CAF      BIT14                                 
058560,000778: 10,2345           12353                           TCF      GOFLASH2                              
058561,000779: 
058562,000780: 10,2346           54155        REGODSPR           TS       PLAYTEM1                              
058563,000781: 
058564,000782: 10,2347           34736                           CAF      BIT14                                 
058565,000783: 10,2350           12331                           TCF      GODSPR2                               
058566,000784: 
058567,000785: 10,2351           54155        GOFLASH            TS       PLAYTEM1                              
058568,000786: 
058569,000787: 10,2352           34750                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
058570,000788: 10,2353           54160        GOFLASH2           TS       PLAYTEM4                              
058571,000789: 
058572,000790: 10,2354           02575                           TC       SAVELOCS                              
058573,000791: 
058574,000792: 10,2355           00003                           RELINT                                         
058575,000793: 
058576,000794: 10,2356           12421                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
058577,000795: 
058578,000796: 10,2357           54155        PRIODSPR           TS       PLAYTEM1                              
058579,000797: 
058580,000798: 10,2360           33376                           CAF      BITS7+4                               
058581,000799: 10,2361           12512                           TCF      GODSPRS                               
058582,000800: 
058583,000801: 10,2362           54155        PRIODSP            TS       PLAYTEM1                              
058584,000802: 
058585,000803: 10,2363           33376        SETPRIO            CAF      BITS7+4                               
058586,000804: 10,2364           12353                           TCF      GOFLASH2                              
058587,000805: 
058588,000806: 10,2365           34755        MAKEPRIO           CAF      ZERO                                  
058589,000807: 10,2366           54164                           TS       COPINDEX                              
058590,000808: 
058591,000809: 10,2367           03247                           TC       LINUSCHR                              
058592,000810: 10,2370           12375                           TCF      HIPRIO                                #  LINUS RETURN
058593,000811: 10,2371           30100                           CA       FLAGWRD4                              
058594,000812: 10,2372           73415                           MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
058595,000813: 10,2373           10000                           CCS      A                                     
058596,000814: 10,2374           12450                           TCF      PRIOBORT                              #  YES, ABORT
058597,000815: 
058598,000816: 10,2375           30100        HIPRIO             CA       FLAGWRD4                              #  MARK ACTIVE
058599,000817: 10,2376           75642                           MASK     OCT40400                              
058600,000818: 10,2377           00006                           EXTEND                                         
058601,000819: 10,2400           12403                           BZF      ASKIFNRM                              #  NO
058602,000820: 
058603,000821: 10,2401           34755        SETMARK            CAF      ZERO                                  
058604,000822: 10,2402           12647                           TCF      JOBXCHS                               
058605,000823: 
058606,000824: 10,2403           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE

Page 1353

058608,000826: 10,2404           73413                           MASK     OCT10200                              #  BITS 13+8
058609,000827: 10,2405           00006                           EXTEND                                         
058610,000828: 10,2406           12411                           BZF      OKTOCOPY                              #  NO
058611,000829: 
058612,000830: 10,2407           34753        SETNORM            CAF      ONE                                   
058613,000831: 10,2410           12647                           TCF      JOBXCHS                               
058614,000832: 
058615,000833: 10,2411           02607        OKTOCOPY           TC       COPYNORM                              
058616,000834: 10,2412           03060                           TC       WITCHONE                              
058617,000835: 
058618,000836: 10,2413           05137                           TC       JOBWAKE                               
058619,000837: 
058620,000838: 10,2414           03075                           TC       XCHTOEND                              
058621,000839: 
058622,000840: 10,2415           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
058623,000841: 10,2416           55165                           TS       PRIOTIME                              
058624,000842: 
058625,000843: 10,2417           34755        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
058626,000844: 10,2420           12471                           TCF      PRIOPLAY                              
058627,000845: 
058628,000846: 10,2421           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
058629,000847: 10,2422           77724                           MASK     PRIO37                                
058630,000848: 10,2423           54163                           TS       USERPRIO                              
058631,000849: 
058632,000850: 10,2424           37720                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
058633,000851: 10,2425           05146                           TC       PRIOCHNG                              
058634,000852: 
058635,000853: 10,2426           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
058636,000854: 10,2427           73375                           MASK     BITS15+7                              
058637,000855: 10,2430           10000                           CCS      A                                     
058638,000856: 10,2431           12365                           TCF      MAKEPRIO                              #  ITS PRIO
058639,000857: 10,2432           12434                           TCF      IFLEGAL                               
058640,000858: 10,2433           12242                           TCF      MAKEMARK                              #  ITS MARK
058641,000859: 
058642,000860: 10,2434           34752        IFLEGAL            CAF      TWO                                   
058643,000861: 10,2435           54164                           TS       COPINDEX                              
058644,000862: 
058645,000863: 10,2436           03247                           TC       LINUSCHR                              
058646,000864: 
058647,000865: 10,2437           12452                           TCF      OKTOPLAY                              #  LINUS RETURN
058648,000866: 10,2440           41072                           CS       EBANKTEM                              
058649,000867: 10,2441           74750                           MASK     BIT4                                  
058650,000868: 10,2442           10000                           CCS      A                                     
058651,000869: 10,2443           12452                           TCF      OKTOPLAY                              #  NO
058652,000870: 
058653,000871: 10,2444           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP
058654,000872: 10,2445           73366                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
058655,000873: 10,2446           00006                           EXTEND                                         
058656,000874: 10,2447           12452                           BZF      OKTOPLAY                              #  NO
058657,000875: 

Page 1354

058659,000877: 10,2450           05652        PRIOBORT           TC       POODOO                                
058660,000878: 10,2451           01502                           OCT      1502                                  
058661,000879: 
058662,000880: 10,2452           02611        OKTOPLAY           TC       COPIES2                               
058663,000881: 
058664,000882: 10,2453           30163                           CA       USERPRIO                              
058665,000883: 10,2454           00006                           EXTEND                                         
058666,000884: 10,2455           04007                           ROR      SUPERBNK                              
058667,000885: 10,2456           54366                           TS       RESTREG                               
058668,000886: 
058669,000887: 10,2457           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
058670,000888: 10,2460           73367                           MASK     PMMASK                                
058671,000889: 10,2461           10000                           CCS      A                                     
058672,000890: 10,2462           12627                           TCF      GOSLEEPS                              #  YES
058673,000891: 
058674,000892: 10,2463           12465                           TCF      +2                                    
058675,000893: 10,2464           12627                           TCF      GOSLEEPS                              #  MARK GOING
058676,000894: 
058677,000895:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
058678,000896: 10,2465           03060                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
058679,000897: 10,2466           05137                           TC       JOBWAKE                               
058680,000898: 
058681,000899: 10,2467           03075                           TC       XCHTOEND                              
058682,000900: 
058683,000901: 10,2470           34752        PLAYJUM1           CAF      TWO                                   
058684,000902: 10,2471           54164        PRIOPLAY           TS       COPINDEX                              
058685,000903: 
058686,000904: 10,2472           12743                           TCF      GOPLAY                                
058687,000905: 
058688,000906: 10,2473           54155        EXDSPRET           TS       PLAYTEM1                              
058689,000907: 
058690,000908: 10,2474           37733                           CAF      BIT15+6                               
058691,000909: 10,2475           12353                           TCF      GOFLASH2                              
058692,000910: 
058693,000911: 10,2476           55045        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
058694,000912: 10,2477           33351                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
058695,000913: 
058696,000914: 10,2500           54155        GOPERFS            TS       PLAYTEM1                              
058697,000915: 
058698,000916: 10,2501           33350                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
058699,000917: 10,2502           12353                           TCF      GOFLASH2                              
058700,000918: 
058701,000919: 10,2503           54155        GOPERF2            TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
058702,000920: 
058703,000921: 10,2504           33354                           CAF      PERF2MSK                              
058704,000922: 10,2505           12353                           TCF      GOFLASH2                              
058705,000923: 
058706,000924: 10,2506           02570        GOPERF4            TC       PURRS4                                
058707,000925: 
058708,000926: 10,2507           12353                           TCF      GOFLASH2                              
058709,000927: 

Page 1355

058711,000929: 10,2510           54155        GOFLASHR           TS       PLAYTEM1                              
058712,000930: 
058713,000931: 10,2511           34750                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
058714,000932: 10,2512           54160        GODSPRS            TS       PLAYTEM4                              
058715,000933: 
058716,000934: 10,2513           36244                           CAF      THREE                                 
058717,000935: 
058718,000936: 10,2514           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
058719,000937: 10,2515           54072                           TS       RUPTREG3                              
058720,000938: 
058721,000939: 10,2516           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
058722,000940: 10,2517           77724                           MASK     PRIO37                                
058723,000941: 10,2520           54063                           TS       NEWPRIO                               
058724,000942: 
058725,000943: 10,2521           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
058726,000944: 10,2522           74750                           MASK     BIT4                                  
058727,000945: 10,2523           10000                           CCS      A                                     
058728,000946: 10,2524           12532                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
058729,000947: 10,2525           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
058730,000948: 10,2526           05072                           TC       NOVAC                                 
058731,000949: 10,2527  E7,1467                                  EBANK=   WHOCARES                              
058732,000950: 10,2527           02421 20067                     2CADR    MAKEPLAY                              
058733,000951: 
058734,000952: 10,2531           12540                           TCF      BOTHJOBS                              
058735,000953: 
058736,000954: 10,2532           30006        VACDSP             CA       BBANK                                 
058737,000955: 10,2533           00006                           EXTEND                                         
058738,000956: 10,2534           04007                           ROR      SUPERBNK                              
058739,000957: 10,2535           54001                           TS       L                                     
058740,000958: 10,2536           33412                           CAF      MAKEGEN                               
058741,000959: 10,2537           05116                           TC       SPVAC                                 
058742,000960: 
058743,000961: 10,2540           02575        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
058744,000962: 
058745,000963: 10,2541           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
058746,000964: 10,2542           30156                           DCA      MPAC       +1                         
058747,000965: 10,2543           50064                           INDEX    LOCCTR                                
058748,000966: 10,2544           52156                           DXCH     MPAC       +1                         
058749,000967: 
058750,000968: 10,2545           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
058751,000969: 10,2546           30160                           DCA      MPAC       +3                         
058752,000970: 10,2547           50064                           INDEX    LOCCTR                                
058753,000971: 10,2550           52160                           DXCH     MPAC       +3                         
058754,000972: 
058755,000973: 10,2551           30064                           CA       LOCCTR                                
058756,000974: 10,2552           54161                           TS       MPAC       +5                         
058757,000975: 
058758,000976: 10,2553           02602                           TC       SAVELOCR                              
058759,000977: 10,2554           00003                           RELINT                                         
058760,000978: 

Page 1356

058762,000980: 10,2555           14640                           TCF      BANKJUMP                              #  CALL CADR +4
058763,000981: 
058764,000982: 10,2556           55045        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
058765,000983: 
058766,000984: 10,2557           33351                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
058767,000985: 
058768,000986: 10,2560           54155        GOPERFRS           TS       PLAYTEM1                              
058769,000987: 
058770,000988: 10,2561           33350                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
058771,000989: 10,2562           12512                           TCF      GODSPRS                               
058772,000990: 
058773,000991: 10,2563           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
058774,000992: 
058775,000993: 10,2564           33354                           CAF      PERF2MSK                              
058776,000994: 10,2565           12512                           TCF      GODSPRS                               
058777,000995: 
058778,000996: 10,2566           02570        GOPERF4R           TC       PURRS4                                
058779,000997: 
058780,000998: 10,2567           12512                           TCF      GODSPRS                               
058781,000999: 
058782,001000: 10,2570           55144        PURRS4             TS       OPTION1                               #  DESIRED OPTION CODE
058783,001001: 
058784,001002: 10,2571           33355                           CAF      V04N06                                
058785,001003: 10,2572           54155                           TS       PLAYTEM1                              
058786,001004: 
058787,001005: 10,2573           33356                           CAF      PERF4MSK                              #  FLASH,PERFORM AND BLANK R3
058788,001006: 10,2574           00002                           TC       Q                                     
058789,001007: 
058790,001008: 10,2575           00004        SAVELOCS           INHINT                                         
058791,001009: 
058792,001010: 10,2576           43365                           CS       OCT3400                               #  EBANK BITS
058793,001011: 10,2577           70160                           MASK     PLAYTEM4                              
058794,001012: 10,2600           60003                           AD       EBANK                                 
058795,001013: 10,2601           54160                           TS       PLAYTEM4                              
058796,001014: 
058797,001015: 10,2602           22002        SAVELOCR           LXCH     Q                                     
058798,001016: 
058799,001017: 10,2603           04645                           TC       MAKECADR                              
058800,001018: 10,2604           54157                           TS       PLAYTEM3                              
058801,001019: 
058802,001020: 10,2605           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
058803,001021: 10,2606           00001                           TC       L                                     
058804,001022: 
058805,001023: 10,2607           34755        COPYNORM           CAF      ZERO                                  
058806,001024: 10,2610           54164        COPIES             TS       COPINDEX                              
058807,001025: 10,2611           00004        COPIES2            INHINT                                         
058808,001026: 10,2612           30160                           CA       PLAYTEM4                              #  FLAGWORD
058809,001027: 10,2613           50164                           INDEX    COPINDEX                              
058810,001028: 10,2614           55070                           TS       EBANKSAV                              #  EQUIV TO DSPFLG
058811,001029: 

Page 1357

058813,001031: 10,2615           73403                           MASK     CADRMASK                              #  FLASH AND GODSPRET
058814,001032: 10,2616           00006                           EXTEND                                         
058815,001033: 10,2617           12623                           BZF      SKIPADD                               
058816,001034: 
058817,001035: 10,2620           30157                           CA       PLAYTEM3                              
058818,001036: 10,2621           50164                           INDEX    COPINDEX                              
058819,001037: 10,2622           54372                           TS       CADRFLSH                              
058820,001038: 
058821,001039: 10,2623           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
058822,001040: 10,2624           50164                           INDEX    COPINDEX                              
058823,001041: 10,2625           54367                           TS       NVWORD                                
058824,001042: 
058825,001043: 10,2626           13104                           TCF      RELINTQ                               
058826,001044: 
058827,001045: 10,2627           50164        GOSLEEPS           INDEX    COPINDEX                              
058828,001046: 10,2630           33404                           CA       PRIOOCT                               
058829,001047: 10,2631           72633                           MASK     WAITMASK                              
058830,001048: 10,2632           03416                           TC       UPENT2                                
058831,001049: 10,2633           03004        WAITMASK           OCT      3004                                  
058832,001050: 10,2634           44753                           CS       ONE                                   
058833,001051: 10,2635           60164                           AD       COPINDEX                              
058834,001052: 10,2636           54154                           TS       FACEREG                               
058835,001053: 
058836,001054: 10,2637           50154        XCHSLEEP           INDEX    FACEREG                               
058837,001055: 10,2640           33363                           CAF      WAKECADR                              
058838,001056: 10,2641           00004                           INHINT                                         
058839,001057: 10,2642           05137                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
058840,001058: 
058841,001059: 10,2643           03075                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
058842,001060: 
058843,001061: 10,2644           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
058844,001062: 10,2645           33363                           CAF      WAKECADR                              
058845,001063: 10,2646           15133                           TCF      JOBSLEEP                              
058846,001064: 
058847,001065: 10,2647           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
058848,001066: 10,2650           03060                           TC       WITCHONE                              
058849,001067: 10,2651           05137                           TC       JOBWAKE                               
058850,001068: 10,2652           30154                           CA       FACEREG                               
058851,001069: 10,2653           50064                           INDEX    LOCCTR                                
058852,001070: 10,2654           54154                           TS       FACEREG                               
058853,001071: 
058854,001072: 10,2655           32670                           CAF      XCHQADD                               
058855,001073: 10,2656           03076                           TC       XCHNYLOC                              
058856,001074: 
058857,001075: 10,2657           50154                           INDEX    FACEREG                               
058858,001076: 10,2660           33405                           CA       MARKOCT                               
058859,001077: 10,2661           73407                           MASK     IDLESLEP                              
058860,001078: 10,2662           03434                           TC       DOWNENT2                              
058861,001079: 10,2663           74004        IDLEMASK           OCT      74004                                 #  * DONT MOVE
058862,001080: 

Page 1358

058864,001082: 10,2664           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
058865,001083: 10,2665           34747                           CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL
058866,001084: 10,2666           64751                           AD       FOUR                                  
058867,001085: 10,2667           03416                           TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
058868,001086: 10,2670           02637        XCHQADD            GENADR   XCHSLEEP                              #  * DONT MOVE
058869,001087: 10,2671           30100                           CA       FLAGWRD4                              
058870,001088: 10,2672           74751                           MASK     MKOVBIT                               #  MARK OVER NORM ?
058871,001089: 10,2673           10000                           CCS      A                                     
058872,001090: 10,2674           02255        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
058873,001091: 10,2675           12411                           TCF      OKTOCOPY                              
058874,001092: 
058875,001093: 10,2676           34755        MARKWAKE           CAF      ZERO                                  
058876,001094: 10,2677           54160        WAKEPLAY           TS       TEMPOR2                               
058877,001095: 
058878,001096: 10,2700           50160                           INDEX    TEMPOR2                               
058879,001097: 10,2701           33377                           CA       BITS5+11                              
058880,001098: 10,2702           64751                           AD       FOUR                                  
058881,001099: 10,2703           03434                           TC       DOWNENT2                              
058882,001100: 10,2704           40010        MARKFMSK           OCT      40010                                 #  ***DONT MOVE
058883,001101: 
058884,001102: 10,2705           50160                           INDEX    TEMPOR2                               
058885,001103: 10,2706           33363                           CAF      WAKECADR                              
058886,001104: 10,2707           00004                           INHINT                                         
058887,001105: 10,2710           05137                           TC       JOBWAKE                               
058888,001106: 
058889,001107: 10,2711           13210                           TCF      ENDRET                                
058890,001108: 
058891,001109:                                                                                                  #       ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
058892,001110:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
058893,001111:                                                                                                  #       IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
058894,001112:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
058895,001113: 
058896,001114: 10,2712           31072        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
058897,001115: 10,2713           54003                           TS       EBANK                                 
058898,001116: 
058899,001117: 10,2714           30366                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
058900,001118: 10,2715           04727                           TC       SUPERSW                               #  RESTORE SUPERBANK
058901,001119: 
058902,001120: 10,2716           77724                           MASK     PRIO37                                
058903,001121: 10,2717           05146                           TC       PRIOCHNG                              
058904,001122: 
058905,001123: 10,2720           46244                           CS       THREE                                 
058906,001124: 10,2721           60374                           AD       TEMPFLSH                              
058907,001125: 10,2722           14640                           TCF      BANKJUMP                              
058908,001126: 
058909,001127: 10,2723           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
058910,001128: 10,2724           31073                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
058911,001129: 10,2725           54156                           TS       MPAC       +2                         #  ONLY
058912,001130: 
058913,001131: 10,2726           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION

Page 1359

058915,001133: 10,2727           77737                           MASK     PINMASK                               
058916,001134: 10,2730           10000                           CCS      A                                     
058917,001135: 10,2731           12734                           TCF      +3                                    
058918,001136: 10,2732           13344                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
058919,001137: 10,2733           12255                           TCF      MARKPLAY                              
058920,001138: 
058921,001139: 10,2734           05504        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
058922,001140: 10,2735           00105                           ADRES    PINBRFLG                              
058923,001141: 
058924,001142: 10,2736           34736                           CAF      PRIODBIT                              #  PRIO INTERRUPTED
058925,001143: 10,2737           70100                           MASK     FLAGWRD4                              
058926,001144: 10,2740           10000                           CCS      A                                     
058927,001145: 10,2741           12417                           TCF      KEEPPRIO                              
058928,001146: 
058929,001147: 10,2742           12470                           TCF      PLAYJUM1                              
058930,001148: 
058931,001149: 10,2743           02275        NVDSP              TC       COPYPACS                              
058932,001150: 
058933,001151: 10,2744           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
058934,001152: 10,2745           74757                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
058935,001153: 10,2746           54001                           TS       L                                     
058936,001154: 
058937,001155: 10,2747           44737                           CS       BIT13                                 
058938,001156: 10,2750           50164                           INDEX    COPINDEX                              
058939,001157: 10,2751           71070                           MASK     DSPFLG                                
058940,001158: 10,2752           50164                           INDEX    COPINDEX                              
058941,001159: 10,2753           55070                           TS       DSPFLG                                
058942,001160: 
058943,001161: 10,2754           74744                           MASK     BIT8                                  #  BIT8 SET IF DEC MARK PERFORM DISPLAY
058944,001162: 10,2755           54141                           TS       TEM1                                  
058945,001163: 
058946,001164: 10,2756           30156                           CA       MPAC       +2                         
058947,001165: 10,2757           54165                           TS       MPAC2SAV                              
058948,001166: 
058949,001167: 10,2760           55073                           TS       MARK2PAC                              #  * FOR DISK ONLY *
058950,001168: 10,2761           50164                           INDEX    COPINDEX                              
058951,001169: 10,2762           10367                           CCS      NVWORD                                
058952,001170: 10,2763           12772                           TCF      NVDSP1                                
058953,001171: 10,2764           13106                           TCF      CLEANEND                              
058954,001172: 10,2765           40370                           CS       MARKNV                                
058955,001173: 10,2766           54370                           TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
058956,001174: 10,2767           76073                           MASK     LOW7                                  
058957,001175: 10,2770           63370                           AD       V05N00M1                              
058958,001176: 10,2771           60141                           AD       TEM1                                  
058959,001177: 10,2772           64753        NVDSP1             AD       ONE                                   
058960,001178: 10,2773           04155        NV50DSP            TC       NVMONOPT                              
058961,001179: 10,2774           13120                           TCF      REST                                  #  IF BUSY
058962,001180: 10,2775           04433                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
058963,001181: 
058964,001182: 10,2776           02273                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB

Page 1360

058966,001184: 10,2777           05516                           TC       DOWNFLAG                              #  UNSET SLEEPING BITS
058967,001185: 10,3000           00102                           ADRES    MRKNVFLG                              
058968,001186: 10,3001           05516                           TC       DOWNFLAG                              
058969,001187: 10,3002           00103                           ADRES    NRMNVFLG                              
058970,001188: 10,3003           05516                           TC       DOWNFLAG                              
058971,001189: 10,3004           00104                           ADRES    PRONVFLG                              
058972,001190: 10,3005           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
058973,001191: 10,3006           04255                           TC       BLANKSUB                              
058974,001192: 10,3007           12743                           TCF      NVDSP                                 
058975,001193: 10,3010           34747        PERFCHEK           CAF      BIT5                                  #  BIT5 FOR PERFORM
058976,001194: 10,3011           70160                           MASK     TEMPOR2                               
058977,001195: 10,3012           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
058978,001196: 10,3013           13036                           TCF      1STOR2ND                              #  YES
058979,001197: 
058980,001198: 10,3014           34750        GOANIDLE           CAF      BIT4                                  
058981,001199: 10,3015           70160                           MASK     TEMPOR2                               
058982,001200: 10,3016           10000                           CCS      A                                     
058983,001201: 10,3017           13133                           TCF      FLASHSUB                              #  IT IS
058984,001202: 
058985,001203: 10,3020           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
058986,001204: 10,3021           74746                           MASK     BIT6                                  
058987,001205: 10,3022           10000                           CCS      A                                     
058988,001206: 10,3023           13030                           TCF      ISITN00                               
058989,001207: 
058990,001208: 10,3024           50164                           INDEX    COPINDEX                              
058991,001209: 10,3025           30372                           CA       CADRFLSH                              
058992,001210: 10,3026           54157                           TS       MPAC       +3                         
058993,001211: 10,3027           13226                           TCF      ENDIT                                 
058994,001212: 
058995,001213: 10,3030           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
058996,001214: 10,3031           30367                           CA       NVWORD                                
058997,001215: 10,3032           76073                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
058998,001216: 10,3033           00006                           EXTEND                                         
058999,001217: 10,3034           13133                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
059000,001218: 
059001,001219: 10,3035           15155                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
059002,001220: 
059003,001221: 10,3036           30160        1STOR2ND           CA       TEMPOR2                               
059004,001222: 10,3037           74737                           MASK     BIT13                                 
059005,001223: 10,3040           10000                           CCS      A                                     
059006,001224: 10,3041           13014                           TCF      GOANIDLE                              #  SECOND
059007,001225: 
059008,001226: 10,3042           34737                           CA       BIT13                                 
059009,001227: 10,3043           50164                           INDEX    COPINDEX                              
059010,001228: 10,3044           27070                           ADS      DSPFLG                                
059011,001229: 
059012,001230: 10,3045           22007                           ZL                                             
059013,001231: 10,3046           00006                           EXTEND                                         #  IS IT MARK
059014,001232: 10,3047           62316                           BZMF     MARKPERF                              #  YES
059015,001233: 

Page 1361

059017,001235: 10,3050           74740                           MASK     BIT12                                 
059018,001236: 10,3051           00006                           EXTEND                                         
059019,001237: 10,3052           13056                           BZF      V50PASTE                              
059020,001238: 10,3053           41067                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
059021,001239: 10,3054           63414                           AD       V97N00                                
059022,001240: 10,3055           12773                           TCF      NV50DSP                               
059023,001241: 10,3056           33353        V50PASTE           CAF      V50N00                                
059024,001242: 10,3057           12773                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
059025,001243: 
059026,001244: 10,3060           44747        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
059027,001245: 10,3061           00006                           EXTEND                                         
059028,001246: 10,3062           03011                           WAND     DSALMOUT                              
059029,001247: 
059030,001248: 10,3063           30100                           CA       FLAGWRD4                              
059031,001249: 10,3064           73371                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
059032,001250: 10,3065           10000                           CCS      A                                     
059033,001251: 10,3066           34753                           CAF      ONE                                   
059034,001252: 10,3067           54001                           TS       L                                     
059035,001253: 10,3070           34755                           CAF      ZERO                                  
059036,001254: 10,3071           50001                           INDEX    L                                     
059037,001255: 10,3072           57042                           XCH      CADRSTOR                              
059038,001256: 
059039,001257: 10,3073           00004                           INHINT                                         
059040,001258: 10,3074           00002                           TC       Q                                     
059041,001259: 
059042,001260: 10,3075           34217        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
059043,001261: 10,3076           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
059044,001262: 10,3077           00006                           EXTEND                                         
059045,001263: 10,3100           63104                           BZMF     RELINTQ                               #  NO
059046,001264: 10,3101           56064                           XCH      LOCCTR                                #  YES
059047,001265: 10,3102           50064                           INDEX    LOCCTR                                
059048,001266: 10,3103           54164                           TS       LOC                                   
059049,001267: 
059050,001268: 10,3104           00003        RELINTQ            RELINT                                         
059051,001269: 10,3105           00002                           TC       Q                                     #  BACK TO USER
059052,001270: 
059053,001271: 10,3106           37717        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
059054,001272: 10,3107           05105                           TC       FINDVAC                               
059055,001273: 10,3110     0371                                  EBANK=   NVSAVE                                
059056,001274: 10,3110           04231 04060                     2CADR    JAMTERM                               
059057,001275: 
059058,001276: 
059059,001277: 10,3112           13134                           TCF      FLASHSUB   +1                         
059060,001278: 
059061,001279: 10,3113           30100        ISITPRIO           CA       FLAGWRD4                              
059062,001280: 10,3114           73141                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
059063,001281: 10,3115           00006                           EXTEND                                         
059064,001282: 10,3116           12450                           BZF      PRIOBORT                              
059065,001283: 10,3117           15155                           TCF      ENDOFJOB                              
059066,001284: 

Page 1362

059068,001286: 10,3120           11042        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
059069,001287: 10,3121           15155                           TCF      ENDOFJOB                              #  YES
059070,001288: 10,3122           13124                           TCF      RESTSLEP                              
059071,001289: 
059072,001290: 10,3123           15155                           TCF      ENDOFJOB                              
059073,001291: 
059074,001292: 10,3124           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
059075,001293: 10,3125           73372                           MASK     ASTROMSK                              
059076,001294: 10,3126           03416                           TC       UPENT2                                
059077,001295: 10,3127           24100        OCT24100           OCT      24100                                 #  *** DONT MOVE
059078,001296: 
059079,001297: 10,3130           50164                           INDEX    COPINDEX                              
059080,001298: 10,3131           33362                           CAF      NVCADR                                
059081,001299: 10,3132           04442                           TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
059082,001300: 
059083,001301: 10,3133           04427        FLASHSUB           TC       FLASHON                               
059084,001302: 
059085,001303: 10,3134           30164                           CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
059086,001304: 10,3135           54157                           TS       COPMPAC                               
059087,001305: 
059088,001306: 10,3136           30162                           CA       GENMASK                               
059089,001307: 10,3137           72663                           MASK     IDLEMASK                              
059090,001308: 10,3140           03416                           TC       UPENT2                                
059091,001309: 10,3141           40040        ITISMASK           OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
059092,001310: 
059093,001311: 10,3142           31074                           CA       R1SAVE                                #  IS THIS A REPEAT AND RETURN DISPLAY
059094,001312: 10,3143           50164                           INDEX    COPINDEX                              
059095,001313: 10,3144           74751                           MASK     BIT3                                  
059096,001314: 10,3145           10000                           CCS      A                                     
059097,001315: 10,3146           13233                           TCF      UNSETR1                               #  YES
059098,001316: 
059099,001317: 10,3147           11042                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
059100,001318: 10,3150           13113                           TCF      ISITPRIO                              
059101,001319: 10,3151           13153                           TCF      +2                                    
059102,001320: 10,3152           13113                           TCF      ISITPRIO                              
059103,001321: 
059104,001322: 10,3153           04207                           TC       ENDIDLE                               
059105,001323: 10,3154           13245        IDLERET1           TCF      TERMATE                               
059106,001324: 
059107,001325: 10,3155           13264                           TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
059108,001326: 
059109,001327: 10,3156           43401                           CS       LOWLOAD                               
059110,001328: 10,3157           60154                           AD       MPAC                                  #  VERBREG
059111,001329: 10,3160           00006                           EXTEND                                         
059112,001330: 10,3161           26000                           DIM      A                                     
059113,001331: 10,3162           00006                           EXTEND                                         
059114,001332: 10,3163           13334                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
059115,001333: 10,3164           34752        OKTOENT            CAF      TWO                                   
059116,001334: 10,3165           54161        ENDOUT             TS       OUTHERE                               
059117,001335: 

Page 1363

059119,001337: 10,3166           30100                           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
059120,001338: 10,3167           74101                           MASK     OCT60000                              
059121,001339: 10,3170           10000                           CCS      A                                     
059122,001340: 10,3171           13174                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
059123,001341: 10,3172           13302                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
059124,001342: 10,3173           13266                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
059125,001343: 
059126,001344: 10,3174           40025        TIMECHEK           CS       TIME1                                 
059127,001345: 10,3175           61165                           AD       PRIOTIME                              
059128,001346: 10,3176           10000                           CCS      A                                     
059129,001347: 10,3177           40000                           COM                                            
059130,001348: 10,3200           67730                           AD       OCT37776                              
059131,001349: 10,3201           64753                           AD       ONE                                   
059132,001350: 10,3202           63457                           AD       -2SEC                                 
059133,001351: 10,3203           00006                           EXTEND                                         
059134,001352: 10,3204           62417                           BZMF     KEEPPRIO                              
059135,001353: 
059136,001354: 10,3205           13302                           TCF      NORMRET                               
059137,001355: 
059138,001356: 10,3206           34753        NORMWAKE           CAF      ONE                                   
059139,001357: 10,3207           12677                           TCF      WAKEPLAY                              
059140,001358: 
059141,001359: 10,3210           10161        ENDRET             CCS      OUTHERE                               
059142,001360: 10,3211           64753                           AD       ONE                                   
059143,001361: 10,3212           13214                           TCF      +2                                    #  NORMAL ENDIDLE EXIT
059144,001362: 10,3213           15155                           TCF      ENDOFJOB                              
059145,001363: 10,3214           50157                           INDEX    COPMPAC                               
059146,001364: 10,3215           60372                           AD       CADRFLSH                              
059147,001365: 10,3216           54157                           TS       MPAC       +3                         
059148,001366: 
059149,001367: 10,3217           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
059150,001368: 10,3220           73222                           MASK     PINIDMSK                              
059151,001369: 10,3221           03434                           TC       DOWNENT2                              
059152,001370: 10,3222           74044        PINIDMSK           OCT      74044                                 #  *** DONT MOVE
059153,001371: 
059154,001372: 10,3223           46244                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
059155,001373: 10,3224           04154                           TC       NVSUB                                 
059156,001374: 10,3225           13226                           TCF      +1                                    
059157,001375: 
059158,001376: 10,3226           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
059159,001377: 10,3227           77724                           MASK     PRIO37                                
059160,001378: 10,3230           05146                           TC       PRIOCHNG                              
059161,001379: 10,3231           30157                           CA       MPAC       +3                         
059162,001380: 10,3232           14640                           TCF      BANKJUMP                              
059163,001381: 
059164,001382: 10,3233           50164        UNSETR1            INDEX    COPINDEX                              #  RESET REPEAT AND RETURN REQUEST
059165,001383: 10,3234           44751                           CS       BIT3                                  
059166,001384: 10,3235           71074                           MASK     R1SAVE                                
059167,001385: 10,3236           55074                           TS       R1SAVE                                
059168,001386: 

Page 1364

059170,001388: 10,3237           34755                           CAF      ZERO                                  #  *** 205 ONLY MARKBRAN USERS IN
059171,001389: 10,3240           04727                           TC       SUPERSW                               #  SUPERBANK 0
059172,001390: 
059173,001391: 10,3241           36244                 -1        CAF      THREE                                 #  RETURN TO USERS IMMEDIATE RETURN LOC
059174,001392: 10,3242           50164        IMMEDRET           INDEX    COPINDEX                              
059175,001393: 10,3243           60372                           AD       CADRFLSH                              
059176,001394: 10,3244           14640                           TCF      BANKJUMP                              
059177,001395: 
059178,001396: 10,3245           34755        TERMATE            CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
059179,001397: 10,3246           13165                           TCF      ENDOUT                                
059180,001398: 
059181,001399: 10,3247           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
059182,001400: 10,3250           74736                           MASK     BIT14                                 
059183,001401: 10,3251           10000                           CCS      A                                     
059184,001402: 10,3252           16736                           TCF      Q+1                                   #  NO
059185,001403: 10,3253           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
059186,001404: 10,3254           50164                           INDEX    COPINDEX                              
059187,001405: 10,3255           60372                           AD       CADRFLSH                              
059188,001406: 10,3256           00006                           EXTEND                                         
059189,001407: 10,3257           13261                           BZF      +2                                    #  YES
059190,001408: 
059191,001409: 10,3260           00002                           TC       Q                                     #  NO
059192,001410: 10,3261           11012                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
059193,001411: 10,3262           05155                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
059194,001412: 10,3263           00002                           TC       Q                                     
059195,001413: 
059196,001414:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
059197,001415: 10,3264           34753        PROCEED            CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
059198,001416: 10,3265           13165                           TCF      ENDOUT                                
059199,001417: 
059200,001418:                                                                                                  #       LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
059201,001419:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
059202,001420:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
059203,001421: 
059204,001422:                                                                                                  #       IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
059205,001423:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
059206,001424:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
059207,001425:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
059208,001426: 
059209,001427: 10,3266           46241        MARKRET            CS       SIX                                   
059210,001428: 10,3267           70100                           MASK     FLAGWRD4                              
059211,001429: 10,3270           00004                           INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
059212,001430: 10,3271           54100                           TS       FLAGWRD4                              
059213,001431: 
059214,001432: 10,3272           00003                           RELINT                                         #  INHINT REALM
059215,001433: 10,3273           13210                           TCF      ENDRET                                
059216,001434: 
059217,001435: 10,3274           37746        MARKOVER           CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
059218,001436: 10,3275           54161                           TS       OUTHERE                               
059219,001437: 

Page 1365

059221,001439: 10,3276           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
059222,001440: 10,3277           74355                           MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
059223,001441: 10,3300           10000                           CCS      A                                     
059224,001442: 10,3301           12734                           TCF      NORMBNCH                              
059225,001443: 
059226,001444: 10,3302           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
059227,001445: 10,3303           73377                           MASK     BITS5+11                              #  OR WAITING
059228,001446: 10,3304           10000                           CCS      A                                     
059229,001447: 10,3305           12676                           TCF      MARKWAKE                              
059230,001448: 
059231,001449: 10,3306           30100                           CA       FLAGWRD4                              #  NO
059232,001450: 10,3307           73400                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
059233,001451: 10,3310           10000                           CCS      A                                     
059234,001452: 10,3311           13206                           TCF      NORMWAKE                              #  YES
059235,001453: 
059236,001454: 10,3312           31072                           CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST
059237,001455: 10,3313           74771                           MASK     OCT50                                 #  OR A GODSPRET
059238,001456: 10,3314           10000                           CCS      A                                     
059239,001457: 10,3315           13210                           TCF      ENDRET                                #  YES
059240,001458: 10,3316           30371                           CA       NVSAVE                                
059241,001459: 10,3317           00006                           EXTEND                                         
059242,001460: 10,3320           13210                           BZF      ENDRET                                
059243,001461: 
059244,001462: 10,3321           35025                           CAF      PRIO15                                
059245,001463: 10,3322           00004                           INHINT                                         
059246,001464: 10,3323           05072                           TC       NOVAC                                 
059247,001465: 10,3324     0367                                  EBANK=   NVWORD                                
059248,001466: 10,3324           02470 20060                     2CADR    PLAYJUM1                              
059249,001467: 
059250,001468: 
059251,001469: 10,3326           13210                           TCF      ENDRET                                
059252,001470: 
059253,001471: 10,3327           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
059254,001472: 10,3330           73377                           MASK     BITS5+11                              
059255,001473: 10,3331           10000                           CCS      A                                     
059256,001474: 10,3332           15155                           TCF      ENDOFJOB                              #  YES
059257,001475: 10,3333           12627                           TCF      GOSLEEPS                              
059258,001476: 
059259,001477: 10,3334           50157        LOADITIS           INDEX    COPMPAC                               
059260,001478: 10,3335           30367                           CA       NVWORD                                
059261,001479: 10,3336           76073                           MASK     LOW7                                  
059262,001480: 10,3337           40000                           COM                                            
059263,001481: 10,3340           60155                           AD       MPAC       +1                         #  NOUNREG
059264,001482: 10,3341           00006                           EXTEND                                         
059265,001483: 10,3342           13164                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
059266,001484: 10,3343           12723                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
059267,001485: 
059268,001486: 10,3344           46244        ERASER             CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
059269,001487: 10,3345           04154                           TC       NVSUB                                 
059270,001488: 10,3346           15155                           TCF      ENDOFJOB                              

Page 1366

059272,001490: 10,3347           15155                           TCF      ENDOFJOB                              
059273,001491: 
059274,001492: 10,3350           00036        PERFMASK           OCT      0036                                  #  FLASH,PERFORM,BLANK R2 AND R3
059275,001493: 10,3351           00231        V01N25             VN       00125                                 
059276,001494: 10,3352           01407        V06N07             VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
059277,001495: 10,3353           14400        V50N00             VN       5000                                  
059278,001496: 10,3354           00030        PERF2MSK           OCT      00030                                 #  FLASH, PERFORM
059279,001497: 10,3355           01006        V04N06             VN       00406                                 
059280,001498: 10,3356           00014        PERF4MSK           OCT      14                                    #  FLASH, BLANK R3
059281,001499: 10,3357  10,2723               GOAGIN             EQUALS   PINBRNCH                              
059282,001500: 10,3357           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
059283,001501: 10,3360           40230        MARK3MSK           OCT      40230                                 #  MARK,DECIMAL NOUN, PERFORM,FLASH
059284,001502: 10,3361           40036        MARK4MSK           OCT      40036                                 #  MARK,PERFORM,FLASH,BLANK 2 AND 3
059285,001503: 10,3362           20415        NVCADR             CADR     REDOPRIO                              
059286,001504: 10,3363           20255        WAKECADR           CADR     MARKPLAY                              
059287,001505: 10,3364           20470                           CADR     PLAYJUM1                              
059288,001506: 
059289,001507: 10,3365           03400        OCT3400            OCT      3400                                  #  EBANK MASK
059290,001508: 10,3366           11210        NBUSMASK           OCT      11210                                 
059291,001509: 10,3367           66521        PMMASK             OCT      66521                                 
059292,001510: 10,3370     4144               VERBMASK           =        MID7                                  #  (OCT 37600)
059293,001511: 10,3370           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
059294,001512: 10,3371  10,2206               GOXDSP             EQUALS   GOMARK                                
059295,001513: 10,3371  10,2226               GOXDSPR            EQUALS   GOMARKR                               
059296,001514: 10,3371  10,2212               GOXDSPF            EQUALS   GOMARKF                               
059297,001515: 10,3371  10,2231               GOXDSPFR           EQUALS   GOMARKFR                              
059298,001516: 10,3371     5472               ENDEXT             EQUALS   ENDMARK                               
059299,001517: 10,3371     0165               MPAC2SAV           EQUALS   BANKSET                               
059300,001518: 10,3371           00700        NVBUSMSK           OCT      700                                   
059301,001519: 10,3372           00704        ASTROMSK           OCT      704                                   
059302,001520: 10,3373           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
059303,001521: 10,3374           34300        OCT34300           OCT      34300                                 
059304,001522: 10,3375           40100        BITS15+7           OCT      40100                                 
059305,001523: 10,3376           00110        BITS7+4            OCT      110                                   
059306,001524: 10,3377     1070               DSPFLG             EQUALS   EBANKSAV                              
059307,001525: 10,3377     1071               MARKFLAG           EQUALS   MARKEBAN                              
059308,001526: 10,3377     1072               SAVEFLAG           EQUALS   EBANKTEM                              
059309,001527: 10,3377           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
059310,001528: 10,3400           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
059311,001529: 10,3401           00026        LOWLOAD            DEC      22         B-14                       
059312,001530: 10,3402           77730        BUSYMASK           OCT      77730                                 
059313,001531: 10,3403           00050        CADRMASK           OCT      50                                    
059314,001532: 10,3404     7737               PINMASK            EQUALS   13,14,15                              
059315,001533: 10,3404  10,2743               GOPLAY             EQUALS   NVDSP                                 
059316,001534:                                                                                                  #  PRIOSAVE      EQUALS  R1SAVE
059317,001535: 10,3404     0157               COPMPAC            EQUALS   MPAC       +3                         
059318,001536: 10,3404     0160               TEMPOR2            EQUALS   MPAC       +4                         
059319,001537: 10,3404     0161               OUTHERE            EQUALS   MPAC       +5                         
059320,001538: 10,3404     0164               COPINDEX           EQUALS   LOC                                   
059321,001539: 10,3404     0163               USERPRIO           EQUALS   MODE                                  

Page 1367

059323,001541: 10,3404     0162               GENMASK            EQUALS   MPAC       +6                         
059324,001542: 10,3404           20144        PRIOOCT            OCT      20144                                 #  PRIO
059325,001543: 10,3405           42424        MARKOCT            OCT      42424                                 #  MARK
059326,001544: 10,3406           11254                           OCT      11254                                 #  NORM
059327,001545: 
059328,001546: 10,3407           74704        IDLESLEP           OCT      74704                                 
059329,001547: 10,3410           67777        OCT67777           OCT      67777                                 
059330,001548: 10,3411     5464               LINUS              EQUALS   BLANKET                               
059331,001549: 10,3411     0154               FACEREG            EQUALS   MPAC                                  
059332,001550: 10,3411     0155               PLAYTEM1           EQUALS   MPAC       +1                         
059333,001551: 10,3411     0157               PLAYTEM3           EQUALS   MPAC       +3                         
059334,001552: 10,3411     0160               PLAYTEM4           EQUALS   MPAC       +4                         
059335,001553: 10,3411           40420        OCT40420           OCT      40420                                 
059336,001554: 10,3412           02421        MAKEGEN            GENADR   MAKEPLAY                              
059337,001555: 10,3413           10200        OCT10200           OCT      10200                                 
059338,001556: 10,3414           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
059339,001557: 10,3415           20100        OCT20100           OCT      20100                                 

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