Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

058592,000002:                                                                                                  ## Copyright:   Public domain.
058593,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
058594,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
058595,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the third release
058596,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
058597,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
058598,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
058599,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
058600,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
058601,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
058602,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
058603,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
058604,000014:                                                                                                  ##              the original YUL assembler.
058605,000015:                                                                                                  ##
058606,000016:                                                                                                  ## Assembler:   yaYUL
058607,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
058608,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
058609,000019:                                                                                                  ## Pages:       1341-1373
058610,000020:                                                                                                  ## Mod history: 2009-05-27 RSB  Adapted from the corresponding 
058611,000021:                                                                                                  ##                              Luminary131 file, using page 
058612,000022:                                                                                                  ##                              images from Luminary 1A.
058613,000023:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
058614,000024:                                                                                                  ##              2011-05-08 JL   Removed workaround.
058615,000025:                                                                                                  ##              2016-12-18 RSB  Proofed text comments with octopus/ProoferComments
058616,000026:                                                                                                  ##                              and corrected the errors found.
058617,000027:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
058618,000028:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
058619,000029:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
058620,000030:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
058621,000031: 
058622,000032:                                                                                                  ## This source code has been transcribed or otherwise adapted from
058623,000033:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
058624,000034:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
058625,000035:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
058626,000036:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
058627,000037:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
058628,000038:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
058629,000039:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
058630,000040:                                                                                                  ## actually created.
058631,000041:                                                                                                  ##
058632,000042:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
058633,000043:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
058634,000044:                                                                                                  ## the listing from which it was transcribed. It has been verified to
058635,000045:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
058636,000046:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
058637,000047:                                                                                                  ##
058638,000048:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
058639,000049:                                                                                                  ##
058640,000050:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
058641,000051: 

Page 1341

058643,000053:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -
058644,000054:                                                                                                  #        1.  PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS.  USUALLY THESE DISPLAYS ARE SENT
058645,000055:                                                                                                  #            OUT UNDER CRITICAL ALARM CONDITIONS.
058646,000056:                                                                                                  #        2.  EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
058647,000057:                                                                                                  #        3.  NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
058648,000058:                                                                                                  #            SEQUENCE OF EVENTS.
058649,000059:                                                                                                  #        4.  MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES.  THESE INCLUDE SUCH DISPLAYS AS
058650,000060:                                                                                                  #            MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
058651,000061:                                                                                                  #        5.  ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
058652,000062: 
058653,000063:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -
058654,000064:                                                                                                  #        1.  ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
058655,000065:                                                                                                  #            (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
058656,000066:                                                                                                  #            BUT NOT WAITING FOR A RESPONSE.
058657,000067:                                                                                                  #        2.  INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
058658,000068:                                                                                                  #            (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
058659,000069:                                                                                                  #            WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
058660,000070:                                                                                                  #            OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
058661,000071:                                                                                                  #            HAS INFO SAVED FOR RESTART PURPOSES.
058662,000072: 
058663,000073:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS -
058664,000074:                                                                                                  #        INTERRUPTS -
058665,000075:                                                                                                  #                1.  THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
058666,000076:                                                                                                  #                2.  INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
058667,000077:                                                                                                  #                3.  PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS.  A PRIORITY DISPLAY INTERRUPTING ANOTHER
058668,000078:                                                                                                  #                    PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
058669,000079:                                                                                                  #                4.  A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
058670,000080:                                                                                                  #                5.  A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
058671,000081: 
058672,000082:                                                                                                  #        ORDER OF WAITING DISPLAYS -
058673,000083:                                                                                                  #                1.  ASTRONAUT EXTERNAL USE
058674,000084:                                                                                                  #                2.  PRIORITY
058675,000085:                                                                                                  #                3.  INTERRUPTED MARK
058676,000086:                                                                                                  #                4.  INTERRUPTED NORMAL
058677,000087:                                                                                                  #                5.  MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
058678,000088:                                                                                                  #                6.  MARK WAITING
058679,000089:                                                                                                  #                7.  NORMAL WAITING
058680,000090: 

Page 1342

058682,000092:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
058683,000093:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
058684,000094:                                                                                                  #  WILL FOLLOW LATER):
058685,000095:                                                                                                  #        1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
058686,000096:                                                                                                  #            IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
058687,000097:                                                                                                  #            IS TO THE USERS CALLING LOC +1.
058688,000098:                                                                                                  #        2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
058689,000099:                                                                                                  #        3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
058690,000100:                                                                                                  #        4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
058691,000101:                                                                                                  #            USERS JOB.
058692,000102:                                                                                                  #        5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
058693,000103:                                                                                                  #        6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
058694,000104:                                                                                                  #            DESCRIPTION OF RESTARTS).
058695,000105:                                                                                                  #        7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
058696,000106:                                                                                                  #            TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
058697,000107:                                                                                                  #            (V32) BRANCHES TO THE USERS CALL CADR +3.
058698,000108:                                                                                                  #        8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
058699,000109: 
058700,000110:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
058701,000111:                                                                                                  #        GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
058702,000112:                                                                                                  #                1.  GODSP IS NOT RESTARTABLE
058703,000113:                                                                                                  #                2.  A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
058704,000114:                                                                                                  #                                CAF     VXXNYY
058705,000115:                                                                                                  #                                TC      BANKCALL
058706,000116:                                                                                                  #                                CADR    GODSP
058707,000117:                                                                                                  #                        VXXNYY  OCT     0XXYY
058708,000118:                                                                                                  #        GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
058709,000119:                                                                                                  #                                CAF     VXXNYY
058710,000120:                                                                                                  #                                TC      BANKCALL
058711,000121:                                                                                                  #                                CADR    GODSPR
058712,000122:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GODSPR
058713,000123:                                                                                                  #        GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER.  3 RETURNS ARE POSSIBLE FROM
058714,000124:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
058715,000125:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
058716,000126:                                                                                                  #                                TC      BANKCALL
058717,000127:                                                                                                  #                                CADR    GOFLASH
058718,000128:                                                                                                  #                                ...     ...             TERMINATE RETURN
058719,000129:                                                                                                  #                                ...     ...             PROCEED RETURN
058720,000130:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058721,000131:                                                                                                  #        GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A

Page 1343

058723,000133:                                                                                                  #        V01 N25.  A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
058724,000134:                                                                                                  #        USER (SEE NO. 7 ABOVE).
058725,000135:                                                                                                  #        GOPERF1 BLANKS REGISTERS R2 AND R3
058726,000136:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX
058727,000137:                                                                                                  #                                TC      BANKCALL
058728,000138:                                                                                                  #                                CADR    GOPERF1
058729,000139:                                                                                                  #                                ...     ...             TERMINATE RETURN
058730,000140:                                                                                                  #                                ...     ...             PROCEED RETURN
058731,000141:                                                                                                  #                                ...     ...             ENTER RETURN
058732,000142:                                                                                                  #        GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
058733,000143:                                                                                                  #        REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY.  PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
058734,000144:                                                                                                  #        DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
058735,000145:                                                                                                  #        GOPERF2 DOES NOT BLANK ANY REGISTERS
058736,000146:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY. XX=00 OR 01.
058737,000147:                                                                                                  #                                TC      BANKCALL
058738,000148:                                                                                                  #                                CADR    GOPERF2
058739,000149:                                                                                                  #                                ...     ...             TERMINATE RETURN
058740,000150:                                                                                                  #                                ...     ...             PROCEED RETURN
058741,000151:                                                                                                  #                                ...     ...             ENTER RETURN
058742,000152:                                                                                                  #        GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
058743,000153:                                                                                                  #        DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM.  NO IMMEDIATE RETURN
058744,000154:                                                                                                  #        IS MADE TO THE USER (SEE NO. 7 ABOVE).
058745,000155:                                                                                                  #        GOPERF3 BLANKS REGISTERS R2 AND R3
058746,000156:                                                                                                  #                                CAF     DECXX           REQUEST PERFORM ON PXX
058747,000157:                                                                                                  #                                TC      BANKCALL
058748,000158:                                                                                                  #                                CADR    GOPERF3
058749,000159:                                                                                                  #                                ...     ...             TERMINATE RETURN
058750,000160:                                                                                                  #                                ...     ...             PROCEED RETURN
058751,000161:                                                                                                  #                                ...     ...             ENTER RETURN
058752,000162:                                                                                                  #        GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION.  THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
058753,000163:                                                                                                  #        GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM.  NO
058754,000164:                                                                                                  #        IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
058755,000165:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTION XX
058756,000166:                                                                                                  #                                TC      BANKCALL
058757,000167:                                                                                                  #                                CADR    GOPERF4
058758,000168:                                                                                                  #                                ...     ...             TERMINATE RETURN
058759,000169:                                                                                                  #                                ...     ...             PROCEED RETURN
058760,000170:                                                                                                  #                                ...     ...             ENTER RETURN
058761,000171:                                                                                                  #        GOPERF4 BLANKS REGISTER R3

Page 1344

058763,000173:                                                                                                  #        GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
058764,000174:                                                                                                  #        OUT.
058765,000175:                                                                                                  #                                CAF     VXXNYY
058766,000176:                                                                                                  #                                TC      BANKCALL
058767,000177:                                                                                                  #                                CADR    GODSPRET
058768,000178:                                                                                                  #                                ...     ...             RETURN TO USER
058769,000179:                                                                                                  #        REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
058770,000180:                                                                                                  #        ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058771,000181:                                                                                                  #                                CAF     VXXNYY
058772,000182:                                                                                                  #                                TC      BANKCALL
058773,000183:                                                                                                  #                                CADR    REGODSP
058774,000184:                                                                                                  #        REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058775,000185:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
058776,000186:                                                                                                  #                                TC      BANKCALL
058777,000187:                                                                                                  #                                CADR    REFLASH
058778,000188:                                                                                                  #                                ...     ...             TERMINATE RETURN
058779,000189:                                                                                                  #                                ...     ...             PROCEED RETURN
058780,000190:                                                                                                  #                                ...     ...             ENTER RETURN
058781,000191:                                                                                                  #        GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058782,000192:                                                                                                  #                                CAF     VXXNYY
058783,000193:                                                                                                  #                                TC      BANKCALL
058784,000194:                                                                                                  #                                CADR    GOFLASHR
058785,000195:                                                                                                  #                                ...     ...             TERMINATE RETURN
058786,000196:                                                                                                  #                                ...     ...             PROCEED RETURN
058787,000197:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058788,000198:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOFLASHR
058789,000199:                                                                                                  #        GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
058790,000200:                                                                                                  #        GOPERF1R BLANKS REGISTERS R2 AND R3
058791,000201:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX.
058792,000202:                                                                                                  #                                TC      BANKCALL
058793,000203:                                                                                                  #                                CADR    GOPERF1R
058794,000204:                                                                                                  #                                ...     ...             TERMINATE RETURN
058795,000205:                                                                                                  #                                ...     ...             PROCEED RETURN
058796,000206:                                                                                                  #                                ...     ...             ENTER RETURN
058797,000207:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOPERF1R
058798,000208:                                                                                                  #        GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.

Page 1345

058800,000210:                                                                                                  #        GOPERF2R DOES NOT BLANK ANY REGISTERS
058801,000211:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
058802,000212:                                                                                                  #                                TC      BANKCALL
058803,000213:                                                                                                  #                                CADR    GOPERF2R
058804,000214:                                                                                                  #                                ...     ...             TERMINATE RETURN
058805,000215:                                                                                                  #                                ...     ...             PROCEED RETURN
058806,000216:                                                                                                  #                                ...     ...             ENTER RETURN
058807,000217:                                                                                                  #                                ...     ...             IMMEDIATE RETURN HERE FROM GOPERF2R
058808,000218:                                                                                                  #        GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058809,000219:                                                                                                  #        GOPERF3R BLANKS REGISTERS R2 AND R3
058810,000220:                                                                                                  #                                CAF     PROGXX          PERFORM PROGRAM XX
058811,000221:                                                                                                  #                                TC      BANKCALL
058812,000222:                                                                                                  #                                CADR    GOPERF3R
058813,000223:                                                                                                  #                                ...     ...             TERMINATE RETURN
058814,000224:                                                                                                  #                                ...     ...             PROCEED RETURN
058815,000225:                                                                                                  #                                ...     ...             ENTER RETURN
058816,000226:                                                                                                  #                                ...     ...             GOPERF3R IMMEDIATELY RETURNS HERE
058817,000227:                                                                                                  #        GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058818,000228:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTIONXX
058819,000229:                                                                                                  #                                TC      BANKCALL
058820,000230:                                                                                                  #                                CADR    GOPERF4R
058821,000231:                                                                                                  #                                ...     ...             TERMINATE RETURN
058822,000232:                                                                                                  #                                ...     ...             PROCEED RETURN
058823,000233:                                                                                                  #                                ...     ...             ENTER RETURN
058824,000234:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
058825,000235:                                                                                                  #        GOPERF4R BLANKS REGISTER R3
058826,000236:                                                                                                  #        REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058827,000237:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
058828,000238:                                                                                                  #                                TC      BANKCALL
058829,000239:                                                                                                  #                                CADR    REFLASHR
058830,000240:                                                                                                  #                                ...     ...             TERMINATE RETURN
058831,000241:                                                                                                  #                                ...     ...             PROCEED RETURN
058832,000242:                                                                                                  #                                ...     ...             ENTER RETURN
058833,000243:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
058834,000244:                                                                                                  #        REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.

Page 1346

058836,000246:                                                                                                  #                                CAF     VXXNYY
058837,000247:                                                                                                  #                                TC      BANKCALL
058838,000248:                                                                                                  #                                CADR    REGODSPR
058839,000249:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER

Page 1347

058841,000251:                                                                                                  #        GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
058842,000252:                                                                                                  #        GOXDSP = GOMARK
058843,000253:                                                                                                  #                                CAF     VXXNYY          VXXNYY CONTAINS VERB AND NOUN
058844,000254:                                                                                                  #                                TC      BANKCALL
058845,000255:                                                                                                  #                                CADR    GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
058846,000256:                                                                                                  #        GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
058847,000257:                                                                                                  #        GOXDSPR = GOMARKR
058848,000258:                                                                                                  #                                CAF     VXXNYY
058849,000259:                                                                                                  #                                TC      BANKCALL
058850,000260:                                                                                                  #                                CADR    GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
058851,000261:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GOMARKR
058852,000262:                                                                                                  #        GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER.  3 RETURNS ARE POSSIBLE FROM
058853,000263:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
058854,000264:                                                                                                  #        GOXDSPF = GOMARKF
058855,000265:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
058856,000266:                                                                                                  #                                TC      BANKCALL
058857,000267:                                                                                                  #                                CADR    GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
058858,000268:                                                                                                  #                                ...     ...             TERMINATE RETURN
058859,000269:                                                                                                  #                                ...     ...             PROCEED RETURN
058860,000270:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058861,000271:                                                                                                  #        GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
058862,000272:                                                                                                  #        GOXDSPFR = GOMARKFR
058863,000273:                                                                                                  #                                CAF     VXXNYY          FLASHING MARK VERB NOUN
058864,000274:                                                                                                  #                                TC      BANKCALL
058865,000275:                                                                                                  #                                CADR    GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
058866,000276:                                                                                                  #                                ...     ...             TERMINATE RETURN
058867,000277:                                                                                                  #                                ...     ...             PROCEED RETURN
058868,000278:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058869,000279:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
058870,000280:                                                                                                  #        GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER.  NO IMMEDIATE
058871,000281:                                                                                                  #        RETURN IS MADE.  THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A.  GOMARK1 DISPLAYS R1, R2, R
058872,000282:                                                                                                  #        MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM.  THE ASTRONAUT WILL RESPOND WITH A MARK
058873,000283:                                                                                                  #        OR MARK REJECT OR AN ENTER.  THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
058874,000284:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       Y=NOUN
058875,000285:                                                                                                  #                                TC      BANKCALL

Page 1348

058877,000287:                                                                                                  #                                CADR    GOMARK1
058878,000288:                                                                                                  #                                ...     ...             ENTER RETURN
058879,000289:                                                                                                  #        *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
058880,000290: 
058881,000291:                                                                                                  #        GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
058882,000292:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
058883,000293:                                                                                                  #                                TC      BANKCALL
058884,000294:                                                                                                  #                                CADR    GOMARK1R
058885,000295:                                                                                                  #                                ...     ...             ASTRONAUT ENTER RETURN
058886,000296:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
058887,000297:                                                                                                  #        GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
058888,000298:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
058889,000299:                                                                                                  #                                TC      BANKCALL
058890,000300:                                                                                                  #                                CADR    GOMARK2
058891,000301:                                                                                                  #                                ...     ...             TERMINATE RETURN
058892,000302:                                                                                                  #                                ...     ...             PROCEED RETURN
058893,000303:                                                                                                  #                                ...     ...             ENTER RETURN
058894,000304:                                                                                                  #        GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
058895,000305:                                                                                                  #                                CAF     V5XNYY          X=0,1,2,3,4     YY=NOUN
058896,000306:                                                                                                  #                                TC      BANKCALL
058897,000307:                                                                                                  #                                CADR    GOMARK2R
058898,000308:                                                                                                  #                                ...     ...             TERMINATE RETURN
058899,000309:                                                                                                  #                                ...     ...             PROCEED RETURN
058900,000310:                                                                                                  #                                ...     ...             ENTER RETURN
058901,000311:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
058902,000312:                                                                                                  #        GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY.  THE DESIRED MARK PLEASE
058903,000313:                                                                                                  #        PERFORM VERB AND NOUN ARE ENTERED IN A.  GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
058904,000314:                                                                                                  #        V5XNYY FOR A PLEASE PERFORM.  GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
058905,000315:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
058906,000316:                                                                                                  #                                TC      BANKCALL
058907,000317:                                                                                                  #                                CADR    GOMARK3
058908,000318:                                                                                                  #                                ...     ...             TERMINATE RETURN
058909,000319:                                                                                                  #                                ...     ...             PROCEED RETURN
058910,000320:                                                                                                  #                                ...     ...             ENTER RETURN
058911,000321:                                                                                                  #        GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
058912,000322:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
058913,000323:                                                                                                  #                                TC      BANKCALL
058914,000324:                                                                                                  #                                CADR    GOMARK4
058915,000325:                                                                                                  #                                ...     ...             TERMINATE RETURN
058916,000326:                                                                                                  #                                ...     ...             PROCEED RETURN

Page 1349

058918,000328:                                                                                                  #                        ...     ...                     ENTER RETURN
058919,000329:                                                                                                  #        EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
058920,000330:                                                                                                  #        SENT OUT.
058921,000331:                                                                                                  #                                CAF     VXXNYY
058922,000332:                                                                                                  #                                TC      BANKCALL
058923,000333:                                                                                                  #                                CADR    EXDSPRET
058924,000334:                                                                                                  #                                ...     ...             RETURN TO USER
058925,000335:                                                                                                  #        KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
058926,000336:                                                                                                  #        HAVE BEEN CLEANED OUT.
058927,000337:                                                                                                  #                                TC      BANKCALL
058928,000338:                                                                                                  #                                CADR    KLEENEX
058929,000339:                                                                                                  #                                ...     ...             RETURN TO USER
058930,000340:                                                                                                  #        MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
058931,000341:                                                                                                  #                                TC      BANKCALL
058932,000342:                                                                                                  #                                CADR    MARKBRAN
058933,000343:                                                                                                  #                                ...     ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
058934,000344:                                                                                                  #                                                        (GOOD RETURN TO IMMEDIATE RETURN LOC OF
058935,000345:                                                                                                  #                                                        LAST FLASHING MARK R ROUTINE)
058936,000346:                                                                                                  #        PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY.  IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
058937,000347:                                                                                                  #        BLANKED AND CONTROL IS SENT TO ENDOFJOB.
058938,000348:                                                                                                  #                                TC      POSTJUMP
058939,000349:                                                                                                  #                                CADR    PINBRNCH
058940,000350:                                                                                                  #        PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
058941,000351:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
058942,000352:                                                                                                  #        THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
058943,000353:                                                                                                  #        PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
058944,000354:                                                                                                  #        IS RESPONDED TO BY THE ASTRONAUT.
058945,000355:                                                                                                  #        THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
058946,000356:                                                                                                  #        PRIO DISPLAY.
058947,000357:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
058948,000358:                                                                                                  #                                TC      BANKCALL
058949,000359:                                                                                                  #                                CADR    PRIODSP
058950,000360:                                                                                                  #                                ...     ...             TERMINATE RETURN
058951,000361:                                                                                                  #                                ...     ...             PROCEED RETURN

Page 1350

058953,000363:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058954,000364:                                                                                                  #        PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058955,000365:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
058956,000366:                                                                                                  #                                TC      BANKCALL
058957,000367:                                                                                                  #                                CADR    PRIODSPR
058958,000368:                                                                                                  #                                ...     ...             TERMINATE RETURN
058959,000369:                                                                                                  #                                ...     ...             PROCEED RETURN
058960,000370:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058961,000371:                                                                                                  #                                ...     ...             IMMEDIATE RETURN
058962,000372:                                                                                                  #        PRIOLARM DOES A V05N09 PRIODSPR.
058963,000373: 
058964,000374:                                                                                                  #        CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE).  A RETURN IS MADE TO THE USER AFTER NORMAL
058965,000375:                                                                                                  #        DISPLAYS ARE CLEANED OUT.
058966,000376:                                                                                                  #                                TC      BANKCALL
058967,000377:                                                                                                  #                                CADR    CLEANDSP
058968,000378:                                                                                                  #                                ...     ...             RETURN TO USER

Page 1351

058970,000380: 
058971,000381:                                                                                                  #  GENERAL INFORMATION
058972,000382:                                                                                                  #  ------- -----------
058973,000383: 
058974,000384:                                                                                                  #  ALARM OR ABORT EXIT MODES --
058975,000385:                                                                                                  #        PRIOBORT        TC      ABORT
058976,000386:                                                                                                  #                        OCT     1502
058977,000387: 
058978,000388:                                                                                                  #        PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
058979,000389:                                                                                                  #        (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
058980,000390:                                                                                                  #        ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
058981,000391: 
058982,000392:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED --
058983,000393:                                                                                                  #        ACCOMPLISHED BY FRESH START -   1.  FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
058984,000394:                                                                                                  #                                        2.  NVSAVE = NORMAL VERB AND NOUN REGISTER.
058985,000395:                                                                                                  #                                        3.  EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
058986,000396:                                                                                                  #                                        5.  R1SAVE = MARKBRAN CONTROL WORD
058987,000397:                                                                                                  #                                        4.  RESTREG = PRIORITY 30 AND SUPERBANK 3.
058988,000398: 
058989,000399:                                                                                                  #  OUTPUT --
058990,000400:                                                                                                  #        NVWORD = PRIO VERB AND NOUN
058991,000401:                                                                                                  #        NVWORD +1 (MARKNV) = MARK VERB AND NOUN
058992,000402:                                                                                                  #        NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
058993,000403:                                                                                                  #        DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
058994,000404:                                                                                                  #        DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
058995,000405:                                                                                                  #        DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
058996,000406: 
058997,000407:                                                                                                  #        CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
058998,000408:                                                                                                  #        CADRFLSH +1 (MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
058999,000409:                                                                                                  #        CADRFLSH +2 (TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
059000,000410:                                                                                                  #        PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
059001,000411:                                                                                                  #        OPTION1 = DESIRED OPTION FROM GOPERF4
059002,000412:                                                                                                  #        FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
059003,000413:                                                                                                  #        DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
059004,000414: 
059005,000415:                                                                                                  #  SUBROUTINES USED -- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
059006,000416:                                                                                                  #        JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
059007,000417: 
059008,000418:                                                                                                  #  DEBRIS -- (STORED INTO)
059009,000419:                                                                                                  #        TEMPORARY TEMPORARIES - A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
059010,000420:                                                                                                  #                EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1          4, FACEREG
059011,000421:                                                                                                  #        ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
059012,000422:                                                                                                  #        ERASABLES (USED ONLY BY DISPLAY ROUTINES) - NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,

Page 1352

059014,000424:                                                                                                  #                R1SAVE, MARK2PAC,
059015,000425: 
059016,000426:                                                                                                  #  DEBRIS -- (USED BUT NOT STORED INTO) - NOUNREG, VERBREG, LOCCTR, MONSAVE1
059017,000427: 
059018,000428:                                                                                                  #  FLAGWORD DESCRIPTIONS --
059019,000429:                                                                                                  #        FLAGWRD4 - SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
059020,000430: 
059021,000431:                                                                                                  #        DSPFLG, DSPFLG+1, DSPFLG +2-
059022,000432:                                                                                                  #        ----------------------------
059023,000433:                                                                                                  #        BITS 1  BLANK R1
059024,000434:                                                                                                  #             2  BLANK R2
059025,000435:                                                                                                  #             3  BLANK R3
059026,000436:                                                                                                  #             4  FLASHING DISPLAY REQUESTED
059027,000437:                                                                                                  #             5  PERFORM DISPLAY REQUESTED
059028,000438:                                                                                                  #             6  -----                   EXDSPRET                GODSPRET
059029,000439:                                                                                                  #             7  PRIO DISPLAY            -----                   -----
059030,000440:                                                                                                  #             8  -----                   DEC MARK PERFORM        -----
059031,000441:                                                                                                  #             9  EBANK
059032,000442:                                                                                                  #            10  EBANK
059033,000443:                                                                                                  #            11  EBANK
059034,000444:                                                                                                  #            12  -----                   -----                   V99PASTE
059035,000445:                                                                                                  #            13  2ND PART OF PERFORM
059036,000446:                                                                                                  #            15  REFLASH OR REDO         -----                   REFLASH OR REDO
059037,000447:                                                                                                  #            15  -----                   MARK REQUEST            -----
059038,000448: 
059039,000449:                                                                                                  #  RESTARTING DISPLAYS --
059040,000450: 
059041,000451:                                                                                                  #  RULES FOR THE DSKY OPERATOR --
059042,000452:                                                                                                  #        1.  PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
059043,000453:                                                                                                  #            AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
059044,000454:                                                                                                  #            RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
059045,000455:                                                                                                  #            WITH PROCEED AND TERMINATE FOR THIS REASON.
059046,000456:                                                                                                  #        2.  THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
059047,000457:                                                                                                  #            PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
059048,000458:                                                                                                  #            DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.)  IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
059049,000459:                                                                                                  #             IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS      FROM THE TIME THE FIRST PRIORITY DISPLAY
059050,000460:                                                                                                  #            OUT.  THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
059051,000461:                                                                                                  #            CONSIDERATION.
059052,000462:                                                                                                  #        3.  KEY RELEASE BUTTON -
059053,000463:                                                                                                  #            A)  IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
059054,000464:                                                                                                  #            B)  IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
059055,000465:                                                                                                  #                AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
059056,000466:                                                                                                  #            IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
059057,000467:                                                                                                  #            KEY RELEASE BUTTON MAY BE NECESSARY.
059058,000468:                                                                                                  #        4.  IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
059059,000469:                                                                                                  #        5.  IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
059060,000470:                                                                                                  #            OVER AGAIN.
059061,000471: 
059062,000472:                                                                                                  #  SPECIAL CONSIDERATIONS--

Page 1353

059064,000474:                                                                                                  #        1.  MPAC +2 SAVED ONLY IN MARK DISPLAYS
059065,000475:                                                                                                  #        2.  GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
059066,000476:                                                                                                  #        3.  ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
059067,000477:                                                                                                  #        4.  ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
059068,000478:                                                                                                  #        5.  GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
059069,000479:                                                                                                  #            BY A .1 RESTART PHASE CHANGE.
059070,000480:                                                                                                  #        6.  IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
059071,000481:                                                                                                  #            CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
059072,000482:                                                                                                  #        7.  IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
059073,000483: 

Page 1354

059075,000485:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
059076,000486:                                                                                                  #                CAF     BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
059077,000487:                                                                                                  #                TC      BLANKET
059078,000488:                                                                                                  #                ...     ...             RETURN TO USER HERE
059079,000489:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
059080,000490:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
059081,000491:    5464                                           BLOCK    02                                    
059082,000492:    4000                                           SETLOC   FFTAG4                                
059083,000493:    4000                                           BANK                                           
059084,000494: 
059085,000495:    5464                                           COUNT*   $$/DSPLA                              
059086,000496:    5464           54162        BLANKET            TS       MPAC       +6                         
059087,000497:    5465           40160                           CS       PLAYTEM4                              
059088,000498:    5466           70162                           MASK     MPAC       +6                         
059089,000499:    5467           50161                           INDEX    MPAC       +5                         
059090,000500:    5470           26160                           ADS      PLAYTEM4                              
059091,000501: 
059092,000502:    5471           00002                           TC       Q                                     
059093,000503: 
059094,000504:    5472           04635        ENDMARK            TC       POSTJUMP                              
059095,000505:    5473           20326                           CADR     MARKEND                               
059096,000506: 
059097,000507:    5474           34755        CLEARMRK           CAF      ZERO                                  
059098,000508:    5475           55044                           TS       EXTVBACT                              
059099,000509: 
059100,000510:    5476           00004                 +2        INHINT                                         
059101,000511:    5477           44753                           CS       XDSPBIT                               
059102,000512:    5500           70100                           MASK     FLAGWRD4                              
059103,000513:    5501           54100                           TS       FLAGWRD4                              
059104,000514: 
059105,000515:    5502           00003                           RELINT                                         
059106,000516:    5503           00002                           TC       Q                                     
059107,000517: 
059108,000518:                                                                                                  #  *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
059109,000519:                                                                                                  #  FINISHED.
059110,000520: 
059111,000521: 10,2326                                           BANK     10                                    
059112,000522: 10,2000                                           SETLOC   DISPLAYS                              
059113,000523: 10,2000                                           BANK                                           
059114,000524: 
059115,000525: 10,2326                                           COUNT*   $$/DSPLA                              
059116,000526: 
059117,000527:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
059118,000528:                                                                                                  #  3 RETURNS TO THE USER.  THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
059119,000529: 
059120,000530: 10,2326           05474        MARKEND            TC       CLEARMRK                              
059121,000531: 10,2327           13421                           TCF      MARKOVER                              
059122,000532: 
059123,000533: 10,2330           54155        GOMARK             TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP

Page 1355

059125,000535: 10,2331           34735        GOMARS             CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
059126,000536: 10,2332           12500                           TCF      GOFLASH2                              
059127,000537: 
059128,000538: 10,2333           34755        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
059129,000539: 10,2334           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
059130,000540: 
059131,000541: 10,2335           33031                           CAF      MARKFMSK                              #  MARK, FLASH
059132,000542: 10,2336           12500                           TCF      GOFLASH2                              
059133,000543: 
059134,000544: 10,2337           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
059135,000545: 10,2340           33520        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
059136,000546: 10,2341           12500                           TCF      GOFLASH2                              
059137,000547: 
059138,000548: 10,2342           54155        GOMARK3            TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
059139,000549: 10,2343           33505                           CAF      MARK3MSK                              
059140,000550: 10,2344           12500                           TCF      GOFLASH2                              
059141,000551: 
059142,000552: 10,2345           54155        GOMARK4            TS       PLAYTEM1                              
059143,000553: 10,2346           33506                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
059144,000554: 10,2347           12500                           TCF      GOFLASH2                              
059145,000555: 
059146,000556: 10,2350           54155        GOMARKR            TS       PLAYTEM1                              #  ENTR+NCE FOR MARK GODSPR
059147,000557: 
059148,000558: 10,2351           34735                           CAF      BIT15                                 
059149,000559: 10,2352           12453                           TCF      GODSPR2                               
059150,000560: 
059151,000561: 10,2353           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
059152,000562: 
059153,000563: 10,2354           33031                           CAF      MARKFMSK                              
059154,000564: 10,2355           12637                           TCF      GODSPRS                               
059155,000565: 
059156,000566: 10,2356           54155        GOMARK2R           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
059157,000567: 10,2357           33520                           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
059158,000568: 10,2360           12637                           TCF      GODSPRS                               
059159,000569: 
059160,000570: 10,2361           54155        GOMARK3R           TS       PLAYTEM1                              
059161,000571: 10,2362           33505                           CAF      MARK3MSK                              
059162,000572: 10,2363           12637                           TCF      GODSPRS                               
059163,000573: 
059164,000574: 10,2364           34753        MAKEMARK           CAF      ONE                                   
059165,000575: 10,2365           02735                           TC       COPIES                                
059166,000576: 
059167,000577: 10,2366           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
059168,000578: 10,2367           73521                           MASK     OCT34300                              
059169,000579: 10,2370           10000                           CCS      A                                     
059170,000580: 10,2371           12427                           TCF      CHKPRIO                               
059171,000581: 
059172,000582: 10,2372           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY
059173,000583: 10,2373           74743                           MASK     MRKNVBIT                              
059174,000584: 
059175,000585: 10,2374           00006                           EXTEND                                         

Page 1356

059177,000587: 10,2375           12377                           BZF      MARKPLAY                              #  NO
059178,000588: 
059179,000589: 10,2376           15155                           TCF      ENDOFJOB                              
059180,000590: 
059181,000591: 10,2377           00004        MARKPLAY           INHINT                                         
059182,000592: 10,2400           44756                           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
059183,000593: 10,2401           70100                           MASK     FLAGWRD4                              
059184,000594: 10,2402           64753                           AD       ONE                                   
059185,000595: 10,2403           54100                           TS       FLAGWRD4                              
059186,000596: 10,2404           00003                           RELINT                                         
059187,000597: 
059188,000598: 10,2405           41071        GOGOMARK           CS       MARKFLAG                              #  PERFORM
059189,000599: 10,2406           74747                           MASK     BIT5                                  
059190,000600: 10,2407           10000                           CCS      A                                     
059191,000601: 10,2410           12413                           TCF      MARKCOP                               
059192,000602: 10,2411           40370                           CS       MARKNV                                
059193,000603: 10,2412           54370                           TS       MARKNV                                
059194,000604: 
059195,000605: 10,2413           34753        MARKCOP            CAF      ONE                                   #  MARK INDEX
059196,000606: 10,2414           12616                           TCF      PRIOPLAY                              
059197,000607: 
059198,000608: 10,2415           30165        COPYTOGO           CA       MPAC2SAV                              
059199,000609: 10,2416           54156                           TS       MPAC       +2                         
059200,000610: 
059201,000611: 10,2417           50164        COPYPACS           INDEX    COPINDEX                              
059202,000612: 10,2420           33531                           CAF      PRIOOCT                               
059203,000613: 10,2421           54162                           TS       GENMASK                               
059204,000614: 
059205,000615: 10,2422           50164                           INDEX    COPINDEX                              
059206,000616: 10,2423           31070                           CAF      EBANKSAV                              
059207,000617: 10,2424           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
059208,000618: 
059209,000619: 10,2425           54003                           TS       EBANK                                 
059210,000620: 
059211,000621: 10,2426           00002                           TC       Q                                     
059212,000622: 
059213,000623:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
059214,000624:                                                                                                  #  (A NORMAL OR A PRIO).  IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
059215,000625:                                                                                                  #  REQUEST IS ENDED.  IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED.  IN THIS CASE THE NORM IS PUT TO SLEEP
059216,000626:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
059217,000627: 
059218,000628:                                                                                                  #  IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
059219,000629:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
059220,000630: 
059221,000631: 10,2427           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
059222,000632: 10,2430           73254                           MASK     OCT24100                              
059223,000633: 10,2431           10000                           CCS      A                                     
059224,000634: 10,2432           13454                           TCF      MARSLEEP                              
059225,000635: 
059226,000636: 10,2433           40100                           CS       FLAGWRD4                              

Page 1357

059228,000638: 10,2434           74751                           MASK     MKOVBIT                               #  SET MARK OVER NORM
059229,000639: 10,2435           00004                           INHINT                                         
059230,000640: 10,2436           26100                           ADS      FLAGWRD4                              
059231,000641: 
059232,000642: 10,2437           12534                           TCF      SETNORM                               
059233,000643: 
059234,000644: 10,2440           30370        MARKPERF           CA       MARKNV                                
059235,000645: 10,2441           74144                           MASK     VERBMASK                              
059236,000646: 10,2442           13120                           TCF      NV50DSP                               
059237,000647: 
059238,000648: 10,2443           54155        GODSP              TS       PLAYTEM1                              
059239,000649: 
059240,000650: 10,2444           34755        GODSP2             CAF      ZERO                                  
059241,000651: 10,2445           12500                           TCF      GOFLASH2                              
059242,000652: 
059243,000653: 10,2446           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
059244,000654: 
059245,000655: 10,2447           34746                           CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
059246,000656: 10,2450           12500                           TCF      GOFLASH2                              
059247,000657: 
059248,000658: 10,2451           54155        GODSPR             TS       PLAYTEM1                              
059249,000659: 
059250,000660: 10,2452           34755        GODSPR1            CAF      ZERO                                  
059251,000661: 10,2453           54160        GODSPR2            TS       PLAYTEM4                              
059252,000662: 
059253,000663: 10,2454           34755                           CAF      ZERO                                  #  * DONT MOVE
059254,000664: 10,2455           12641                           TCF      GODSPRS1                              
059255,000665: 
059256,000666:                                                                                                  #  CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
059257,000667:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
059258,000668: 
059259,000669:                                                                                                  #  NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
059260,000670:                                                                                                  #  OLD DISPLAY.
059261,000671: 
059262,000672:                                                                                                  #  CALLING SEQUENCE FOR CLEANDSP -
059263,000673: 
059264,000674:                                                                                                  #                TC      BANKCALL
059265,000675:                                                                                                  #                CADR    CLEANDSP
059266,000676: 
059267,000677: 10,2456           34755        CLEANDSP           CAF      ZERO                                  
059268,000678: 10,2457           54155        REFLASH            TS       PLAYTEM1                              
059269,000679: 
059270,000680: 10,2460           33504                           CAF      REDOMASK                              #  FLASH AND PERMIT
059271,000681: 10,2461           12500                           TCF      GOFLASH2                              
059272,000682: 
059273,000683: 10,2462           54155        REFLASHR           TS       PLAYTEM1                              
059274,000684: 
059275,000685: 10,2463           33504                           CAF      REDOMASK                              #  FLASH AND PERMIT
059276,000686: 10,2464           12637                           TCF      GODSPRS                               
059277,000687: 

Page 1358

059279,000689: 10,2465           54155        REGODSP            TS       PLAYTEM1                              
059280,000690: 
059281,000691: 10,2466           34736                           CAF      BIT14                                 
059282,000692: 10,2467           12500                           TCF      GOFLASH2                              
059283,000693: 
059284,000694: 10,2470           54155        REGODSPR           TS       PLAYTEM1                              
059285,000695: 
059286,000696: 10,2471           34736                           CAF      BIT14                                 
059287,000697: 10,2472           12453                           TCF      GODSPR2                               
059288,000698: 
059289,000699: 10,2473           54155        CLOCPLAY           TS       PLAYTEM1                              
059290,000700: 10,2474           33543                           CAF      CLOCKCON                              
059291,000701: 10,2475           12500                           TCF      GOFLASH2                              
059292,000702: 
059293,000703: 10,2476           54155        GOFLASH            TS       PLAYTEM1                              
059294,000704: 
059295,000705: 10,2477           34750                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
059296,000706: 10,2500           54160        GOFLASH2           TS       PLAYTEM4                              
059297,000707: 
059298,000708: 10,2501           02722                           TC       SAVELOCS                              
059299,000709: 
059300,000710: 10,2502           00003                           RELINT                                         
059301,000711: 
059302,000712: 10,2503           12546                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
059303,000713: 
059304,000714: 10,2504           54155        PRIODSPR           TS       PLAYTEM1                              
059305,000715: 
059306,000716: 10,2505           33523                           CAF      BITS7+4                               
059307,000717: 10,2506           12637                           TCF      GODSPRS                               
059308,000718: 
059309,000719: 10,2507           54155        PRIODSP            TS       PLAYTEM1                              
059310,000720: 
059311,000721: 10,2510           33523        SETPRIO            CAF      BITS7+4                               
059312,000722: 10,2511           12500                           TCF      GOFLASH2                              
059313,000723: 
059314,000724: 10,2512           34755        MAKEPRIO           CAF      ZERO                                  
059315,000725: 10,2513           54164                           TS       COPINDEX                              
059316,000726: 
059317,000727: 10,2514           03374                           TC       LINUSCHR                              
059318,000728: 10,2515           12522                           TCF      HIPRIO                                #  LINUS RETURN
059319,000729: 10,2516           30100                           CA       FLAGWRD4                              
059320,000730: 10,2517           73542                           MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
059321,000731: 10,2520           10000                           CCS      A                                     
059322,000732: 10,2521           12575                           TCF      PRIOBORT                              #  YES, ABORT
059323,000733: 
059324,000734: 10,2522           30100        HIPRIO             CA       FLAGWRD4                              #  MARK ACTIVE
059325,000735: 10,2523           75642                           MASK     OCT40400                              
059326,000736: 10,2524           00006                           EXTEND                                         
059327,000737: 10,2525           12530                           BZF      ASKIFNRM                              #  NO
059328,000738: 

Page 1359

059330,000740: 10,2526           34755        SETMARK            CAF      ZERO                                  
059331,000741: 10,2527           12774                           TCF      JOBXCHS                               
059332,000742: 
059333,000743: 10,2530           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE
059334,000744: 10,2531           73540                           MASK     OCT10200                              #  BITS 13+8
059335,000745: 10,2532           00006                           EXTEND                                         
059336,000746: 10,2533           12536                           BZF      OKTOCOPY                              #  NO
059337,000747: 
059338,000748: 10,2534           34753        SETNORM            CAF      ONE                                   
059339,000749: 10,2535           12774                           TCF      JOBXCHS                               
059340,000750: 
059341,000751: 10,2536           02734        OKTOCOPY           TC       COPYNORM                              
059342,000752: 10,2537           03205                           TC       WITCHONE                              
059343,000753: 
059344,000754: 10,2540           05137                           TC       JOBWAKE                               
059345,000755: 
059346,000756: 10,2541           03222                           TC       XCHTOEND                              
059347,000757: 
059348,000758: 10,2542           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
059349,000759: 10,2543           55165                           TS       PRIOTIME                              
059350,000760: 
059351,000761: 10,2544           34755        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
059352,000762: 10,2545           12616                           TCF      PRIOPLAY                              
059353,000763: 
059354,000764: 10,2546           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
059355,000765: 10,2547           77725                           MASK     PRIO37                                
059356,000766: 10,2550           54163                           TS       USERPRIO                              
059357,000767: 
059358,000768: 10,2551           37721                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
059359,000769: 10,2552           05146                           TC       PRIOCHNG                              
059360,000770: 
059361,000771: 10,2553           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
059362,000772: 10,2554           73522                           MASK     BITS15+7                              
059363,000773: 10,2555           10000                           CCS      A                                     
059364,000774: 10,2556           12512                           TCF      MAKEPRIO                              #  ITS PRIO
059365,000775: 10,2557           12561                           TCF      IFLEGAL                               
059366,000776: 10,2560           12364                           TCF      MAKEMARK                              #  ITS MARK
059367,000777: 
059368,000778: 10,2561           34752        IFLEGAL            CAF      TWO                                   
059369,000779: 10,2562           54164                           TS       COPINDEX                              
059370,000780: 
059371,000781: 10,2563           03374                           TC       LINUSCHR                              
059372,000782: 
059373,000783: 10,2564           12577                           TCF      OKTOPLAY                              #  LINUS RETURN
059374,000784: 10,2565           41072                           CS       EBANKTEM                              
059375,000785: 10,2566           74750                           MASK     BIT4                                  
059376,000786: 10,2567           10000                           CCS      A                                     
059377,000787: 10,2570           12577                           TCF      OKTOPLAY                              #  NO
059378,000788: 
059379,000789: 10,2571           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP

Page 1360

059381,000791: 10,2572           73513                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
059382,000792: 10,2573           00006                           EXTEND                                         
059383,000793: 10,2574           12577                           BZF      OKTOPLAY                              #  NO
059384,000794: 
059385,000795: 10,2575           05652        PRIOBORT           TC       POODOO                                
059386,000796: 10,2576           01502                           OCT      1502                                  
059387,000797: 
059388,000798: 10,2577           02736        OKTOPLAY           TC       COPIES2                               
059389,000799: 
059390,000800: 10,2600           30163                           CA       USERPRIO                              
059391,000801: 10,2601           00006                           EXTEND                                         
059392,000802: 10,2602           04007                           ROR      SUPERBNK                              
059393,000803: 10,2603           54366                           TS       RESTREG                               
059394,000804: 
059395,000805: 10,2604           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
059396,000806: 10,2605           73514                           MASK     PMMASK                                
059397,000807: 10,2606           10000                           CCS      A                                     
059398,000808: 10,2607           12754                           TCF      GOSLEEPS                              #  YES
059399,000809: 
059400,000810: 10,2610           12612                           TCF      +2                                    
059401,000811: 10,2611           12754                           TCF      GOSLEEPS                              #  MARK GOING
059402,000812: 
059403,000813:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
059404,000814: 
059405,000815: 10,2612           03205                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
059406,000816: 10,2613           05137                           TC       JOBWAKE                               
059407,000817: 
059408,000818: 10,2614           03222                           TC       XCHTOEND                              
059409,000819: 
059410,000820: 10,2615           34752        PLAYJUM1           CAF      TWO                                   
059411,000821: 10,2616           54164        PRIOPLAY           TS       COPINDEX                              
059412,000822: 
059413,000823: 10,2617           13070                           TCF      GOPLAY                                
059414,000824: 
059415,000825: 10,2620           54155        EXDSPRET           TS       PLAYTEM1                              
059416,000826: 
059417,000827: 10,2621           37734                           CAF      BIT15+6                               
059418,000828: 10,2622           12500                           TCF      GOFLASH2                              
059419,000829: 
059420,000830: 10,2623           55045        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
059421,000831: 10,2624           33476                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
059422,000832: 
059423,000833: 10,2625           54155        GOPERFS            TS       PLAYTEM1                              
059424,000834: 
059425,000835: 10,2626           33475                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
059426,000836: 10,2627           12500                           TCF      GOFLASH2                              
059427,000837: 
059428,000838: 10,2630           54155        GOPERF2            TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
059429,000839: 
059430,000840: 10,2631           33501                           CAF      PERF2MSK                              
059431,000841: 10,2632           12500                           TCF      GOFLASH2                              
059432,000842: 

Page 1361

059434,000844: 10,2633           02715        GOPERF4            TC       PURRS4                                
059435,000845: 
059436,000846: 10,2634           12500                           TCF      GOFLASH2                              
059437,000847: 
059438,000848: 10,2635           54155        GOFLASHR           TS       PLAYTEM1                              
059439,000849: 
059440,000850: 10,2636           34750                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
059441,000851: 10,2637           54160        GODSPRS            TS       PLAYTEM4                              
059442,000852: 
059443,000853: 10,2640           36245                           CAF      THREE                                 
059444,000854: 
059445,000855: 10,2641           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
059446,000856: 10,2642           54072                           TS       RUPTREG3                              
059447,000857: 
059448,000858: 10,2643           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
059449,000859: 10,2644           77725                           MASK     PRIO37                                
059450,000860: 10,2645           54063                           TS       NEWPRIO                               
059451,000861: 
059452,000862: 10,2646           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
059453,000863: 10,2647           74750                           MASK     BIT4                                  
059454,000864: 10,2650           10000                           CCS      A                                     
059455,000865: 10,2651           12657                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
059456,000866: 10,2652           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
059457,000867: 10,2653           05072                           TC       NOVAC                                 
059458,000868: 10,2654  E7,1471                                  EBANK=   WHOCARES                              
059459,000869: 10,2654           02546 20067                     2CADR    MAKEPLAY                              
059460,000870: 
059461,000871: 10,2656           12665                           TCF      BOTHJOBS                              
059462,000872: 
059463,000873: 10,2657           30006        VACDSP             CA       BBANK                                 
059464,000874: 10,2660           00006                           EXTEND                                         
059465,000875: 10,2661           04007                           ROR      SUPERBNK                              
059466,000876: 10,2662           54001                           TS       L                                     
059467,000877: 10,2663           33537                           CAF      MAKEGEN                               
059468,000878: 10,2664           05116                           TC       SPVAC                                 
059469,000879: 
059470,000880: 10,2665           02722        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
059471,000881: 
059472,000882: 10,2666           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
059473,000883: 10,2667           30156                           DCA      MPAC       +1                         
059474,000884: 10,2670           50064                           INDEX    LOCCTR                                
059475,000885: 10,2671           52156                           DXCH     MPAC       +1                         
059476,000886: 
059477,000887: 10,2672           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
059478,000888: 10,2673           30160                           DCA      MPAC       +3                         
059479,000889: 10,2674           50064                           INDEX    LOCCTR                                
059480,000890: 10,2675           52160                           DXCH     MPAC       +3                         
059481,000891: 
059482,000892: 10,2676           30064                           CA       LOCCTR                                
059483,000893: 10,2677           54161                           TS       MPAC       +5                         

Page 1362

059485,000895: 10,2700           02727                           TC       SAVELOCR                              
059486,000896: 10,2701           00003                           RELINT                                         
059487,000897: 
059488,000898: 10,2702           14640                           TCF      BANKJUMP                              #  CALL CADR +4
059489,000899: 
059490,000900: 10,2703           55045        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
059491,000901: 
059492,000902: 10,2704           33476                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
059493,000903: 
059494,000904: 10,2705           54155        GOPERFRS           TS       PLAYTEM1                              
059495,000905: 
059496,000906: 10,2706           33475                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
059497,000907: 10,2707           12637                           TCF      GODSPRS                               
059498,000908: 
059499,000909: 10,2710           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
059500,000910: 
059501,000911: 10,2711           33501                           CAF      PERF2MSK                              
059502,000912: 10,2712           12637                           TCF      GODSPRS                               
059503,000913: 
059504,000914: 10,2713           02715        GOPERF4R           TC       PURRS4                                
059505,000915: 
059506,000916: 10,2714           12637                           TCF      GODSPRS                               
059507,000917: 
059508,000918: 10,2715           55144        PURRS4             TS       OPTION1                               #  DESIRED OPTION CODE
059509,000919: 
059510,000920: 10,2716           33502                           CAF      V04N06                                
059511,000921: 10,2717           54155                           TS       PLAYTEM1                              
059512,000922: 
059513,000923: 10,2720           33503                           CAF      PERF4MSK                              #  FLASH, PERFORM AND BLANK R3
059514,000924: 10,2721           00002                           TC       Q                                     
059515,000925: 
059516,000926: 10,2722           00004        SAVELOCS           INHINT                                         
059517,000927: 
059518,000928: 10,2723           43512                           CS       OCT3400                               #  EBANK BITS
059519,000929: 10,2724           70160                           MASK     PLAYTEM4                              
059520,000930: 10,2725           60003                           AD       EBANK                                 
059521,000931: 10,2726           54160                           TS       PLAYTEM4                              
059522,000932: 
059523,000933: 10,2727           22002        SAVELOCR           LXCH     Q                                     
059524,000934: 
059525,000935: 10,2730           04645                           TC       MAKECADR                              
059526,000936: 10,2731           54157                           TS       PLAYTEM3                              
059527,000937: 
059528,000938: 10,2732           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
059529,000939: 10,2733           00001                           TC       L                                     
059530,000940: 
059531,000941: 10,2734           34755        COPYNORM           CAF      ZERO                                  
059532,000942: 10,2735           54164        COPIES             TS       COPINDEX                              
059533,000943: 10,2736           00004        COPIES2            INHINT                                         
059534,000944: 10,2737           30160                           CA       PLAYTEM4                              #  FLAGWORD
059535,000945: 

Page 1363

059537,000947: 10,2740           50164                           INDEX    COPINDEX                              
059538,000948: 10,2741           55070                           TS       EBANKSAV                              #  EQUIV TO DSPFLG
059539,000949: 
059540,000950: 10,2742           73530                           MASK     CADRMASK                              #  FLASH AND GODSPRET
059541,000951: 10,2743           00006                           EXTEND                                         
059542,000952: 10,2744           12750                           BZF      SKIPADD                               
059543,000953: 
059544,000954: 10,2745           30157                           CA       PLAYTEM3                              
059545,000955: 10,2746           50164                           INDEX    COPINDEX                              
059546,000956: 10,2747           54372                           TS       CADRFLSH                              
059547,000957: 
059548,000958: 10,2750           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
059549,000959: 10,2751           50164                           INDEX    COPINDEX                              
059550,000960: 10,2752           54367                           TS       NVWORD                                
059551,000961: 
059552,000962: 10,2753           13231                           TCF      RELINTQ                               
059553,000963: 
059554,000964: 10,2754           50164        GOSLEEPS           INDEX    COPINDEX                              
059555,000965: 10,2755           33531                           CA       PRIOOCT                               
059556,000966: 10,2756           72760                           MASK     WAITMASK                              
059557,000967: 10,2757           03544                           TC       UPENT2                                
059558,000968: 10,2760           03004        WAITMASK           OCT      3004                                  
059559,000969: 10,2761           44753                           CS       ONE                                   
059560,000970: 10,2762           60164                           AD       COPINDEX                              
059561,000971: 10,2763           54154                           TS       FACEREG                               
059562,000972: 
059563,000973: 10,2764           50154        XCHSLEEP           INDEX    FACEREG                               
059564,000974: 10,2765           33510                           CAF      WAKECADR                              
059565,000975: 10,2766           00004                           INHINT                                         
059566,000976: 10,2767           05137                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
059567,000977: 
059568,000978: 10,2770           03222                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
059569,000979: 
059570,000980: 10,2771           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
059571,000981: 10,2772           33510                           CAF      WAKECADR                              
059572,000982: 10,2773           15133                           TCF      JOBSLEEP                              
059573,000983: 
059574,000984: 10,2774           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
059575,000985: 10,2775           03205                           TC       WITCHONE                              
059576,000986: 10,2776           05137                           TC       JOBWAKE                               
059577,000987: 10,2777           30154                           CA       FACEREG                               
059578,000988: 10,3000           50064                           INDEX    LOCCTR                                
059579,000989: 10,3001           54154                           TS       FACEREG                               
059580,000990: 
059581,000991: 10,3002           33015                           CAF      XCHQADD                               
059582,000992: 10,3003           03223                           TC       XCHNYLOC                              
059583,000993: 
059584,000994: 10,3004           50154                           INDEX    FACEREG                               
059585,000995: 10,3005           33532                           CA       MARKOCT                               
059586,000996: 10,3006           73534                           MASK     IDLESLEP                              
059587,000997: 

Page 1364

059589,000999: 10,3007           03554                           TC       DOWNENT2                              
059590,001000: 10,3010           74004        IDLEMASK           OCT      74004                                 #  * DONT MOVE
059591,001001: 
059592,001002: 10,3011           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
059593,001003: 10,3012           34747                           CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL
059594,001004: 10,3013           64751                           AD       FOUR                                  
059595,001005: 10,3014           03544                           TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
059596,001006: 10,3015           02764        XCHQADD            GENADR   XCHSLEEP                              #  * DONT MOVE
059597,001007: 10,3016           30100                           CA       FLAGWRD4                              
059598,001008: 10,3017           74751                           MASK     MKOVBIT                               #  MARK OVER NORM?
059599,001009: 10,3020           10000                           CCS      A                                     
059600,001010: 10,3021           02377        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
059601,001011: 10,3022           12536                           TCF      OKTOCOPY                              
059602,001012: 
059603,001013: 10,3023           34755        MARKWAKE           CAF      ZERO                                  
059604,001014: 10,3024           54160        WAKEPLAY           TS       TEMPOR2                               
059605,001015: 
059606,001016: 10,3025           50160                           INDEX    TEMPOR2                               
059607,001017: 10,3026           33524                           CA       BITS5+11                              
059608,001018: 10,3027           64751                           AD       FOUR                                  
059609,001019: 10,3030           03554                           TC       DOWNENT2                              
059610,001020: 10,3031           40010        MARKFMSK           OCT      40010                                 #  ***DONT MOVE
059611,001021: 
059612,001022: 10,3032           50160                           INDEX    TEMPOR2                               
059613,001023: 10,3033           33510                           CAF      WAKECADR                              
059614,001024: 10,3034           00004                           INHINT                                         
059615,001025: 10,3035           05137                           TC       JOBWAKE                               
059616,001026: 
059617,001027: 10,3036           13335                           TCF      ENDRET                                
059618,001028: 
059619,001029:                                                                                                  #  ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP.  NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
059620,001030:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
059621,001031: 
059622,001032:                                                                                                  #  IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
059623,001033:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
059624,001034: 
059625,001035: 10,3037           31072        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
059626,001036: 10,3040           54003                           TS       EBANK                                 
059627,001037: 
059628,001038: 10,3041           30366                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
059629,001039: 10,3042           04727                           TC       SUPERSW                               #  RESTORE SUPERBANK
059630,001040: 
059631,001041: 10,3043           77725                           MASK     PRIO37                                
059632,001042: 10,3044           05146                           TC       PRIOCHNG                              
059633,001043: 
059634,001044: 10,3045           46245                           CS       THREE                                 
059635,001045: 10,3046           60374                           AD       TEMPFLSH                              
059636,001046: 10,3047           14640                           TCF      BANKJUMP                              
059637,001047: 
059638,001048: 10,3050           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
059639,001049: 10,3051           31073                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS

Page 1365

059641,001051: 10,3052           54156                           TS       MPAC       +2                         #  ONLY
059642,001052: 
059643,001053: 10,3053           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION
059644,001054: 10,3054           77740                           MASK     PINMASK                               
059645,001055: 10,3055           10000                           CCS      A                                     
059646,001056: 10,3056           13061                           TCF      +3                                    
059647,001057: 10,3057           13471                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
059648,001058: 10,3060           12377                           TCF      MARKPLAY                              
059649,001059: 
059650,001060: 10,3061           05504        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
059651,001061: 10,3062           00105                           ADRES    PINBRFLG                              
059652,001062: 
059653,001063: 10,3063           34736                           CAF      PRIODBIT                              #  PRIO INTERRUPTED
059654,001064: 10,3064           70100                           MASK     FLAGWRD4                              
059655,001065: 10,3065           10000                           CCS      A                                     
059656,001066: 10,3066           12544                           TCF      KEEPPRIO                              
059657,001067: 
059658,001068: 10,3067           12615                           TCF      PLAYJUM1                              
059659,001069: 
059660,001070: 10,3070           02417        NVDSP              TC       COPYPACS                              
059661,001071: 
059662,001072: 10,3071           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
059663,001073: 10,3072           74757                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
059664,001074: 10,3073           54001                           TS       L                                     
059665,001075: 
059666,001076: 10,3074           44737                           CS       BIT13                                 
059667,001077: 10,3075           50164                           INDEX    COPINDEX                              
059668,001078: 10,3076           71070                           MASK     DSPFLG                                
059669,001079: 10,3077           50164                           INDEX    COPINDEX                              
059670,001080: 10,3100           55070                           TS       DSPFLG                                
059671,001081: 
059672,001082: 10,3101           74744                           MASK     BIT8                                  #  BIT8 SET IF DEC MARK PERFORM DISPLAY
059673,001083: 10,3102           54141                           TS       TEM1                                  
059674,001084: 
059675,001085: 10,3103           30156                           CA       MPAC       +2                         
059676,001086: 10,3104           54165                           TS       MPAC2SAV                              
059677,001087: 
059678,001088: 10,3105           55073                           TS       MARK2PAC                              #  * FOR DISK ONLY *
059679,001089: 10,3106           50164                           INDEX    COPINDEX                              
059680,001090: 10,3107           10367                           CCS      NVWORD                                
059681,001091: 10,3110           13117                           TCF      NVDSP1                                
059682,001092: 10,3111           13233                           TCF      CLEANEND                              
059683,001093: 10,3112           40370                           CS       MARKNV                                
059684,001094: 10,3113           54370                           TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
059685,001095: 10,3114           76074                           MASK     LOW7                                  
059686,001096: 10,3115           63515                           AD       V05N00M1                              
059687,001097: 10,3116           60141                           AD       TEM1                                  
059688,001098: 10,3117           64753        NVDSP1             AD       ONE                                   
059689,001099: 10,3120           04155        NV50DSP            TC       NVMONOPT                              
059690,001100: 10,3121           13245                           TCF      REST                                  #  IF BUSY
059691,001101: 

Page 1366

059693,001103: 10,3122           04433                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
059694,001104: 
059695,001105: 10,3123           02415                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
059696,001106: 10,3124           05516                           TC       DOWNFLAG                              #  UNSET SLEEPING BITS
059697,001107: 10,3125           00102                           ADRES    MRKNVFLG                              
059698,001108: 10,3126           05516                           TC       DOWNFLAG                              
059699,001109: 10,3127           00103                           ADRES    NRMNVFLG                              
059700,001110: 10,3130           05516                           TC       DOWNFLAG                              
059701,001111: 10,3131           00104                           ADRES    PRONVFLG                              
059702,001112: 10,3132           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
059703,001113: 10,3133           04255                           TC       BLANKSUB                              
059704,001114: 10,3134           13070                           TCF      NVDSP                                 
059705,001115: 10,3135           34747        PERFCHEK           CAF      BIT5                                  #  BIT5 FOR PERFORM
059706,001116: 10,3136           70160                           MASK     TEMPOR2                               
059707,001117: 10,3137           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
059708,001118: 10,3140           13163                           TCF      1STOR2ND                              #  YES
059709,001119: 
059710,001120: 10,3141           34750        GOANIDLE           CAF      BIT4                                  
059711,001121: 10,3142           70160                           MASK     TEMPOR2                               
059712,001122: 10,3143           10000                           CCS      A                                     
059713,001123: 10,3144           13260                           TCF      FLASHSUB                              #  IT IS
059714,001124: 
059715,001125: 10,3145           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
059716,001126: 10,3146           74746                           MASK     BIT6                                  
059717,001127: 10,3147           10000                           CCS      A                                     
059718,001128: 10,3150           13155                           TCF      ISITN00                               
059719,001129: 
059720,001130: 10,3151           50164                           INDEX    COPINDEX                              
059721,001131: 10,3152           30372                           CA       CADRFLSH                              
059722,001132: 10,3153           54157                           TS       MPAC       +3                         
059723,001133: 10,3154           13353                           TCF      ENDIT                                 
059724,001134: 
059725,001135: 10,3155           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
059726,001136: 10,3156           30367                           CA       NVWORD                                
059727,001137: 10,3157           76074                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
059728,001138: 10,3160           00006                           EXTEND                                         
059729,001139: 10,3161           13260                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
059730,001140: 
059731,001141: 10,3162           15155                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
059732,001142: 
059733,001143: 10,3163           30160        1STOR2ND           CA       TEMPOR2                               
059734,001144: 10,3164           74737                           MASK     BIT13                                 
059735,001145: 10,3165           10000                           CCS      A                                     
059736,001146: 10,3166           13141                           TCF      GOANIDLE                              #  SECOND
059737,001147: 
059738,001148: 10,3167           34737                           CA       BIT13                                 
059739,001149: 10,3170           50164                           INDEX    COPINDEX                              
059740,001150: 10,3171           27070                           ADS      DSPFLG                                
059741,001151: 
059742,001152: 10,3172           22007                           ZL                                             

Page 1367

059744,001154: 10,3173           00006                           EXTEND                                         #  IS IT MARK
059745,001155: 10,3174           62440                           BZMF     MARKPERF                              #  YES
059746,001156: 
059747,001157: 10,3175           74740                           MASK     BIT12                                 
059748,001158: 10,3176           00006                           EXTEND                                         
059749,001159: 10,3177           13203                           BZF      V50PASTE                              
059750,001160: 10,3200           41067                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97.  NVWORD1= -400 IS V99
059751,001161: 10,3201           63541                           AD       V97N00                                
059752,001162: 10,3202           13120                           TCF      NV50DSP                               
059753,001163: 10,3203           33500        V50PASTE           CAF      V50N00                                
059754,001164: 10,3204           13120                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
059755,001165: 
059756,001166: 10,3205           44747        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
059757,001167: 10,3206           00006                           EXTEND                                         
059758,001168: 10,3207           03011                           WAND     DSALMOUT                              
059759,001169: 
059760,001170: 10,3210           30100                           CA       FLAGWRD4                              
059761,001171: 10,3211           73516                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
059762,001172: 10,3212           10000                           CCS      A                                     
059763,001173: 10,3213           34753                           CAF      ONE                                   
059764,001174: 10,3214           54001                           TS       L                                     
059765,001175: 10,3215           34755                           CAF      ZERO                                  
059766,001176: 10,3216           50001                           INDEX    L                                     
059767,001177: 10,3217           57042                           XCH      CADRSTOR                              
059768,001178: 
059769,001179: 10,3220           00004                           INHINT                                         
059770,001180: 10,3221           00002                           TC       Q                                     
059771,001181: 
059772,001182: 10,3222           34217        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
059773,001183: 10,3223           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
059774,001184: 10,3224           00006                           EXTEND                                         
059775,001185: 10,3225           63231                           BZMF     RELINTQ                               #  NO
059776,001186: 10,3226           56064                           XCH      LOCCTR                                #  YES
059777,001187: 10,3227           50064                           INDEX    LOCCTR                                
059778,001188: 10,3230           54164                           TS       LOC                                   
059779,001189: 
059780,001190: 10,3231           00003        RELINTQ            RELINT                                         
059781,001191: 10,3232           00002                           TC       Q                                     #  BACK TO USER
059782,001192: 
059783,001193: 10,3233           37720        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
059784,001194: 10,3234           05105                           TC       FINDVAC                               
059785,001195: 10,3235     0371                                  EBANK=   NVSAVE                                
059786,001196: 10,3235           04231 04060                     2CADR    JAMTERM                               
059787,001197: 
059788,001198: 10,3237           13261                           TCF      FLASHSUB   +1                         
059789,001199: 
059790,001200: 10,3240           30100        ISITPRIO           CA       FLAGWRD4                              
059791,001201: 10,3241           73266                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
059792,001202: 10,3242           00006                           EXTEND                                         

Page 1368

059794,001204: 10,3243           12575                           BZF      PRIOBORT                              
059795,001205: 10,3244           15155                           TCF      ENDOFJOB                              
059796,001206: 
059797,001207: 10,3245           11042        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
059798,001208: 10,3246           15155                           TCF      ENDOFJOB                              #  YES
059799,001209: 10,3247           13251                           TCF      RESTSLEP                              
059800,001210: 
059801,001211: 10,3250           15155                           TCF      ENDOFJOB                              
059802,001212: 
059803,001213: 10,3251           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
059804,001214: 10,3252           73517                           MASK     ASTROMSK                              
059805,001215: 10,3253           03544                           TC       UPENT2                                
059806,001216: 10,3254           24100        OCT24100           OCT      24100                                 #  ***DONT MOVE
059807,001217: 
059808,001218: 10,3255           50164                           INDEX    COPINDEX                              
059809,001219: 10,3256           33507                           CAF      NVCADR                                
059810,001220: 10,3257           04442                           TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
059811,001221: 
059812,001222: 10,3260           04427        FLASHSUB           TC       FLASHON                               
059813,001223: 
059814,001224: 10,3261           30164                           CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
059815,001225: 10,3262           54157                           TS       COPMPAC                               
059816,001226: 
059817,001227: 10,3263           30162                           CA       GENMASK                               
059818,001228: 10,3264           73010                           MASK     IDLEMASK                              
059819,001229: 10,3265           03544                           TC       UPENT2                                
059820,001230: 10,3266           40040        ITISMASK           OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
059821,001231: 
059822,001232: 10,3267           31074                           CA       R1SAVE                                #  IS THIS A REPEAT AND RETURN DISPLAY
059823,001233: 10,3270           50164                           INDEX    COPINDEX                              
059824,001234: 10,3271           74751                           MASK     BIT3                                  
059825,001235: 10,3272           10000                           CCS      A                                     
059826,001236: 10,3273           13360                           TCF      UNSETR1                               #  YES
059827,001237: 
059828,001238: 10,3274           11042                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
059829,001239: 10,3275           13240                           TCF      ISITPRIO                              
059830,001240: 10,3276           13300                           TCF      +2                                    
059831,001241: 10,3277           13240                           TCF      ISITPRIO                              
059832,001242: 
059833,001243: 10,3300           04207                           TC       ENDIDLE                               
059834,001244: 10,3301           13372        IDLERET1           TCF      TERMATE                               
059835,001245: 
059836,001246: 10,3302           13411                           TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
059837,001247: 
059838,001248: 10,3303           43526                           CS       LOWLOAD                               
059839,001249: 10,3304           60154                           AD       MPAC                                  #  VERBREG
059840,001250: 10,3305           00006                           EXTEND                                         
059841,001251: 10,3306           26000                           DIM      A                                     
059842,001252: 10,3307           00006                           EXTEND                                         
059843,001253: 10,3310           13461                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
059844,001254: 

Page 1369

059846,001256: 10,3311           34752        OKTOENT            CAF      TWO                                   
059847,001257: 10,3312           54161        ENDOUT             TS       OUTHERE                               
059848,001258: 
059849,001259: 10,3313           30100                           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
059850,001260: 10,3314           74101                           MASK     OCT60000                              
059851,001261: 10,3315           10000                           CCS      A                                     
059852,001262: 10,3316           13321                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
059853,001263: 10,3317           13427                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
059854,001264: 10,3320           13413                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
059855,001265: 
059856,001266: 10,3321           40025        TIMECHEK           CS       TIME1                                 
059857,001267: 10,3322           61165                           AD       PRIOTIME                              
059858,001268: 10,3323           10000                           CCS      A                                     
059859,001269: 10,3324           40000                           COM                                            
059860,001270: 10,3325           67731                           AD       OCT37776                              
059861,001271: 10,3326           64753                           AD       ONE                                   
059862,001272: 10,3327           63570                           AD       -2SEC                                 
059863,001273: 10,3330           00006                           EXTEND                                         
059864,001274: 10,3331           62544                           BZMF     KEEPPRIO                              
059865,001275: 
059866,001276: 10,3332           13427                           TCF      NORMRET                               
059867,001277: 
059868,001278: 10,3333           34753        NORMWAKE           CAF      ONE                                   
059869,001279: 10,3334           13024                           TCF      WAKEPLAY                              
059870,001280: 
059871,001281: 10,3335           10161        ENDRET             CCS      OUTHERE                               
059872,001282: 10,3336           64753                           AD       ONE                                   
059873,001283: 10,3337           13341                           TCF      +2                                    #  NORMAL ENDIDLE EXIT
059874,001284: 10,3340           15155                           TCF      ENDOFJOB                              
059875,001285: 10,3341           50157                           INDEX    COPMPAC                               
059876,001286: 10,3342           60372                           AD       CADRFLSH                              
059877,001287: 10,3343           54157                           TS       MPAC       +3                         
059878,001288: 
059879,001289: 10,3344           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
059880,001290: 10,3345           73347                           MASK     PINIDMSK                              
059881,001291: 10,3346           03554                           TC       DOWNENT2                              
059882,001292: 10,3347           74044        PINIDMSK           OCT      74044                                 #  *** DONT MOVE
059883,001293: 
059884,001294: 10,3350           46245                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
059885,001295: 10,3351           04154                           TC       NVSUB                                 
059886,001296: 10,3352           13353                           TCF      +1                                    
059887,001297: 
059888,001298: 10,3353           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
059889,001299: 10,3354           77725                           MASK     PRIO37                                
059890,001300: 10,3355           05146                           TC       PRIOCHNG                              
059891,001301: 10,3356           30157                           CA       MPAC       +3                         
059892,001302: 10,3357           14640                           TCF      BANKJUMP                              
059893,001303: 
059894,001304: 10,3360           50164        UNSETR1            INDEX    COPINDEX                              #  RESET REPEAT AND RETURN REQUEST
059895,001305: 10,3361           44751                           CS       BIT3                                  

Page 1370

059897,001307: 10,3362           71074                           MASK     R1SAVE                                
059898,001308: 10,3363           55074                           TS       R1SAVE                                
059899,001309: 
059900,001310: 10,3364           34755                           CAF      ZERO                                  #  *** 205 ONLY MARKBRAN USERS IN
059901,001311: 10,3365           04727                           TC       SUPERSW                               #  SUPERBANK 0
059902,001312: 
059903,001313: 10,3366           36245                 -1        CAF      THREE                                 #  RETURN TO USERS IMMEDIATE RETURN LOC
059904,001314: 10,3367           50164        IMMEDRET           INDEX    COPINDEX                              
059905,001315: 10,3370           60372                           AD       CADRFLSH                              
059906,001316: 10,3371           14640                           TCF      BANKJUMP                              
059907,001317: 
059908,001318: 10,3372           34755        TERMATE            CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
059909,001319: 10,3373           13312                           TCF      ENDOUT                                
059910,001320: 
059911,001321: 10,3374           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
059912,001322: 10,3375           74736                           MASK     BIT14                                 
059913,001323: 10,3376           10000                           CCS      A                                     
059914,001324: 10,3377           16737                           TCF      Q+1                                   #  NO
059915,001325: 10,3400           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
059916,001326: 10,3401           50164                           INDEX    COPINDEX                              
059917,001327: 10,3402           60372                           AD       CADRFLSH                              
059918,001328: 10,3403           00006                           EXTEND                                         
059919,001329: 10,3404           13406                           BZF      +2                                    #  YES
059920,001330: 
059921,001331: 10,3405           00002                           TC       Q                                     #  NO
059922,001332: 10,3406           11012                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
059923,001333: 10,3407           05155                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
059924,001334: 10,3410           00002                           TC       Q                                     
059925,001335: 
059926,001336:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
059927,001337: 
059928,001338: 10,3411           34753        PROCEED            CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
059929,001339: 10,3412           13312                           TCF      ENDOUT                                
059930,001340: 
059931,001341:                                                                                                  #  LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
059932,001342:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
059933,001343:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
059934,001344: 
059935,001345:                                                                                                  #  IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
059936,001346:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY.  IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
059937,001347:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE (DURING A
059938,001348:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
059939,001349: 
059940,001350: 10,3413           46242        MARKRET            CS       SIX                                   
059941,001351: 10,3414           70100                           MASK     FLAGWRD4                              
059942,001352: 10,3415           00004                           INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
059943,001353: 10,3416           54100                           TS       FLAGWRD4                              
059944,001354: 
059945,001355: 10,3417           00003                           RELINT                                         #  INHINT REALM
059946,001356: 10,3420           13335                           TCF      ENDRET                                
059947,001357: 

Page 1371

059949,001359: 10,3421           37747        MARKOVER           CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
059950,001360: 10,3422           54161                           TS       OUTHERE                               
059951,001361: 
059952,001362: 10,3423           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
059953,001363: 10,3424           74355                           MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
059954,001364: 10,3425           10000                           CCS      A                                     
059955,001365: 10,3426           13061                           TCF      NORMBNCH                              
059956,001366: 
059957,001367: 10,3427           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
059958,001368: 10,3430           73524                           MASK     BITS5+11                              #  OR WAITING
059959,001369: 10,3431           10000                           CCS      A                                     
059960,001370: 10,3432           13023                           TCF      MARKWAKE                              
059961,001371: 
059962,001372: 10,3433           30100                           CA       FLAGWRD4                              #  NO
059963,001373: 10,3434           73525                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
059964,001374: 10,3435           10000                           CCS      A                                     
059965,001375: 10,3436           13333                           TCF      NORMWAKE                              #  YES
059966,001376: 
059967,001377: 10,3437           31072                           CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST
059968,001378: 10,3440           74771                           MASK     OCT50                                 #  OR A GODSPRET
059969,001379: 10,3441           10000                           CCS      A                                     
059970,001380: 10,3442           13335                           TCF      ENDRET                                #  YES
059971,001381: 10,3443           30371                           CA       NVSAVE                                
059972,001382: 10,3444           00006                           EXTEND                                         
059973,001383: 10,3445           13335                           BZF      ENDRET                                
059974,001384: 
059975,001385: 10,3446           35025                           CAF      PRIO15                                
059976,001386: 10,3447           00004                           INHINT                                         
059977,001387: 10,3450           05072                           TC       NOVAC                                 
059978,001388: 10,3451     0367                                  EBANK=   NVWORD                                
059979,001389: 10,3451           02615 20060                     2CADR    PLAYJUM1                              
059980,001390: 
059981,001391: 10,3453           13335                           TCF      ENDRET                                
059982,001392: 
059983,001393: 10,3454           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
059984,001394: 10,3455           73524                           MASK     BITS5+11                              
059985,001395: 10,3456           10000                           CCS      A                                     
059986,001396: 10,3457           15155                           TCF      ENDOFJOB                              #  YES
059987,001397: 10,3460           12754                           TCF      GOSLEEPS                              
059988,001398: 
059989,001399: 10,3461           50157        LOADITIS           INDEX    COPMPAC                               
059990,001400: 10,3462           30367                           CA       NVWORD                                
059991,001401: 10,3463           76074                           MASK     LOW7                                  
059992,001402: 10,3464           40000                           COM                                            
059993,001403: 10,3465           60155                           AD       MPAC       +1                         #  NOUNREG
059994,001404: 10,3466           00006                           EXTEND                                         
059995,001405: 10,3467           13311                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
059996,001406: 10,3470           13050                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
059997,001407: 

Page 1372

059999,001409: 10,3471           46245        ERASER             CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
060000,001410: 10,3472           04154                           TC       NVSUB                                 
060001,001411: 10,3473           15155                           TCF      ENDOFJOB                              
060002,001412: 10,3474           15155                           TCF      ENDOFJOB                              
060003,001413: 
060004,001414: 10,3475           00036        PERFMASK           OCT      0036                                  #  FLASH, PERFORM, BLANK R2 AND R3
060005,001415: 10,3476           00231        V01N25             VN       00125                                 
060006,001416: 10,3477           01407        V06N07             VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
060007,001417: 10,3500           14400        V50N00             VN       5000                                  
060008,001418: 10,3501           00030        PERF2MSK           OCT      00030                                 #  FLASH, PERFORM
060009,001419: 10,3502           01006        V04N06             VN       00406                                 
060010,001420: 10,3503           00014        PERF4MSK           OCT      14                                    #  FLASH, BLANK R3
060011,001421: 10,3504  10,3050               GOAGIN             EQUALS   PINBRNCH                              
060012,001422: 10,3504           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
060013,001423: 10,3505           40230        MARK3MSK           OCT      40230                                 #  MARK, DECIMAL NOUN, PERFORM, FLASH
060014,001424: 10,3506           40036        MARK4MSK           OCT      40036                                 #  MARK, PERFORM, FLASH, BLANK 2 AND 3
060015,001425: 10,3507           20542        NVCADR             CADR     REDOPRIO                              
060016,001426: 10,3510           20377        WAKECADR           CADR     MARKPLAY                              
060017,001427: 10,3511           20615                           CADR     PLAYJUM1                              
060018,001428: 
060019,001429: 10,3512           03400        OCT3400            OCT      3400                                  #  EBANK MASK
060020,001430: 10,3513           11210        NBUSMASK           OCT      11210                                 
060021,001431: 10,3514           66521        PMMASK             OCT      66521                                 
060022,001432: 10,3515     4144               VERBMASK           =        MID7                                  #  (OCT 37600)
060023,001433: 10,3515           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
060024,001434: 10,3516  10,2330               GOXDSP             EQUALS   GOMARK                                
060025,001435: 10,3516  10,2350               GOXDSPR            EQUALS   GOMARKR                               
060026,001436: 10,3516  10,2334               GOXDSPF            EQUALS   GOMARKF                               
060027,001437: 10,3516  10,2353               GOXDSPFR           EQUALS   GOMARKFR                              
060028,001438: 10,3516     5472               ENDEXT             EQUALS   ENDMARK                               
060029,001439: 10,3516     0165               MPAC2SAV           EQUALS   BANKSET                               
060030,001440: 10,3516           00700        NVBUSMSK           OCT      700                                   
060031,001441: 10,3517           00704        ASTROMSK           OCT      704                                   
060032,001442: 10,3520           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
060033,001443: 10,3521           34300        OCT34300           OCT      34300                                 
060034,001444: 10,3522           40100        BITS15+7           OCT      40100                                 
060035,001445: 10,3523           00110        BITS7+4            OCT      110                                   
060036,001446: 10,3524     1070               DSPFLG             EQUALS   EBANKSAV                              
060037,001447: 10,3524     1071               MARKFLAG           EQUALS   MARKEBAN                              
060038,001448: 10,3524     1072               SAVEFLAG           EQUALS   EBANKTEM                              
060039,001449: 10,3524           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
060040,001450: 10,3525           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
060041,001451: 10,3526           00026        LOWLOAD            DEC      22         B-14                       
060042,001452: 10,3527           77730        BUSYMASK           OCT      77730                                 
060043,001453: 10,3530           00050        CADRMASK           OCT      50                                    
060044,001454: 10,3531     7740               PINMASK            EQUALS   13,14,15                              
060045,001455: 10,3531  10,3070               GOPLAY             EQUALS   NVDSP                                 
060046,001456:                                                                                                  #  PRIOSAVE      EQUALS  R1SAVE
060047,001457: 10,3531     0157               COPMPAC            EQUALS   MPAC       +3                         
060048,001458: 10,3531     0160               TEMPOR2            EQUALS   MPAC       +4                         
060049,001459: 

Page 1373

060051,001461: 10,3531     0161               OUTHERE            EQUALS   MPAC       +5                         
060052,001462: 10,3531     0164               COPINDEX           EQUALS   LOC                                   
060053,001463: 10,3531     0163               USERPRIO           EQUALS   MODE                                  
060054,001464: 10,3531     0162               GENMASK            EQUALS   MPAC       +6                         
060055,001465: 10,3531           20144        PRIOOCT            OCT      20144                                 #  PRIO
060056,001466: 10,3532           42424        MARKOCT            OCT      42424                                 #  MARK
060057,001467: 10,3533           11254                           OCT      11254                                 #  NORM
060058,001468: 
060059,001469: 10,3534           74704        IDLESLEP           OCT      74704                                 
060060,001470: 10,3535           67777        OCT67777           OCT      67777                                 
060061,001471: 10,3536     5464               LINUS              EQUALS   BLANKET                               
060062,001472: 10,3536     0154               FACEREG            EQUALS   MPAC                                  
060063,001473: 10,3536     0155               PLAYTEM1           EQUALS   MPAC       +1                         
060064,001474: 10,3536     0157               PLAYTEM3           EQUALS   MPAC       +3                         
060065,001475: 10,3536     0160               PLAYTEM4           EQUALS   MPAC       +4                         
060066,001476: 10,3536           40420        OCT40420           OCT      40420                                 
060067,001477: 10,3537           02546        MAKEGEN            GENADR   MAKEPLAY                              
060068,001478: 10,3540           10200        OCT10200           OCT      10200                                 
060069,001479: 10,3541           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
060070,001480: 10,3542           20100        OCT20100           OCT      20100                                 
060071,001481: 10,3543           24030        CLOCKCON           OCT      24030                                 #  FLASH, PERFORM, V99 OR V97 PASTE, REFLASH

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