Source Code

### FILE="DISPLAY_INTERFACE_ROUTINES.agc" ## Copyright: Public domain. ## Filename: DISPLAY_INTERFACE_ROUTINES.agc ## Purpose: A section of Luminary revision 210. ## It is part of the source code for the Lunar Module's (LM) ## Apollo Guidance Computer (AGC) for Apollo 15-17. ## This file is intended to be a faithful transcription, except ## that the code format has been changed to conform to the ## requirements of the yaYUL assembler rather than the ## original YUL assembler. ## Reference: pp. 1338-1370 ## Assembler: yaYUL ## Contact: Ron Burkey . ## Website: www.ibiblio.org/apollo/index.html ## Mod history: 2016-11-17 JL Created from Luminary131 version. ## 2016-12-08 JS Compared to Luminary210 images. Updated where needed. ## 2016-12-10 HG Add missing operator ZL (label NVDSP) ## 2016-12-11 HG fix operand NVDISP -> NVDSP ## 2016-12-12 HG add [WORKAROUND] with SBANK= ## 2016-12-12 MAS "PRIOSAVE EQUALS R1SAVE" is sneakily a comment. ## 2016-12-26 RSB Comment-text proofed using ProoferComments ## and corrected errors found. ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116. ## 2017-03-15 RSB Comment-text fixes identified in 5-way ## side-by-side diff of Luminary 69/99/116/131/210. ## 2017-06-17 MAS Globally removed all SBANK= workarounds. ## Page 1338 # DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES- # 1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT # OUT UNDER CRITICAL ALARM CONDITIONS. # 2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS. # 3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL # SEQUENCE OF EVENTS. # 4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS # MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL. # 5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY. # # THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS- # 1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR # (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY # BUT NOT WAITING FOR A RESPONSE. # 2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY, # (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY # WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE # OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL # HAS INFO SAVED FOR RESTART PURPOSES. # # DISPLAY PRIORITIES WORK AS FOLLOWS- # INTERRUPTS- # 1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST. # 2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY. # 3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER # PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE. # 4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY. # 5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT. # # ORDER OF WAITING DISPLAYS- # 1. ASTRONAUT EXTERNAL USE # 2. PRIORITY # 3. INTERRUPTED MARK # 4. INTERRUPTED NORMAL # 5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK) # 6. MARK WAITING # 7. NORMAL WAITING ## Page 1339 # THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL. THE # FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES # WILL FOLLOW LATER): # 1. ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER. FOR ALL FLASHING DISPLAYS THIS RETURN # IS TO THE USERS CALL CADR +4. FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN # IS TO THE USERS CALLING LOC +1. # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER. # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY. # 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE # USERS JOB. # 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL. # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE # DESCRIPTION OF RESTARTS). # 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES # TO THE USERS CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2. AN ENTER OR RECYCLE # (V32) BRANCHES TO THE USERS CALL CADR +3. # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL. # # A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS: # GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. # 1. GODSP IS NOT RESTARTABLE # 2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH. # CAF VXXNYY # TC BANKCALL # CADR GODSP # VXXNYY OCT 0XXYY # GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER. # CAF VXXNYY # TC BANKCALL # CADR GODSPR # ... ... IMMEDIATE RETURN OF GODSPR # GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM # THE ASTRONAUT (SEE NO. 7 ABOVE). # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN. # TC BANKCALL # CADR GOFLASH # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER OR RECYCLE RETURN # GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A. GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A ## Page 1340 # V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED. NO IMMEDIATE RETURN IS MADE TO # USER (SEE NO. 7 ABOVE). # GOPERF1 BLANKS REGISTERS R2 AND R3 # CAF OCTXX CODE FOR CHECKLIST VALUE XX # TC BANKCALL # CADR GOPERF1 # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A. GOPERF2 WILL FIRST DISPLAY THE # REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING # DISPLAY. NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). # GOPERF2 DOES NOT BLANK ANY REGISTERS # CAF VXXNYY VARIABLE NOUN YY. XX=00 OR 01. # TC BANKCALL # CADR GOPERF2 # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER. THE DESIRED PROGRAM NO. IS ENTERED IN A. GOPERF3 # DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN # IS MADE TO THE USER (SEE NO. 7 ABOVE). # GOPERF3 BLANKS REGISTERS R2 AND R3 # CAF DECXX REQUEST PERFORM ON PXX # TC BANKCALL # CADR GOPERF3 # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1. # GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO # IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE). # CAF OCTXX REQUEST PERFORM ON OPTION XX # TC BANKCALL # CADR GOPERF4 # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # GOPERF4 BLANKS REGISTER R3 ## Page 1341 # GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT # OUT. # CAF VXXNYY # TC BANKCALL # CADR GODSPRET # ... ... RETURN TO USER # REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A. REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY # ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. # CAF VXXNYY # TC BANKCALL # CADR REGODSP # REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE. # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN # TC BANKCALL # CADR REFLASH # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4. # CAF VXXNYY # TC BANKCALL # CADR GOFLASHR # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER OR RECYCLE RETURN # ... ... IMMEDIATE RETURN FROM GOFLASHR # GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4. # GOPERF1R BLANKS REGISTERS R2 AND R3 # CAF OCTXX CODE FOR CHECKLIST VALUE XX. # TC BANKCALL # CADR GOPERF1R # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # ... ... IMMEDIATE RETURN FROM GOPERF1R # GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4. ## Page 1342 # GOPERF2R DOES NOT BLANK ANY REGISTERS # CAF VXXNYY VARIABLE NOUN YY REQUESTED. XX=00 OR 01 # TC BANKCALL # CADR GOPERF2R # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # ... ... IMMEDIATE RETURN HERE FROM GOPERF2R # GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4. # GOPERF3R BLANKS REGISTERS R2 AND R3 # CAF PROGXX PERFORM PROGRAM XX # TC BANKCALL # CADR GOPERF3R # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # ... ... GOPERF3R IMMEDIATELY RETURNS HERE # GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4. # CAF OCTXX REQUEST PERFORM ON OPTIONXX # TC BANKCALL # CADR GOPERF4R # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # ... ... IMMEDIATE RETURN TO USER # GOPERF4R BLANKS REGISTER R3 # REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4. # CAF VXXNYY VXX NYY WILL BE A FLASHING VERB NOUN # TC BANKCALL # CADR REFLASHR # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # ... ... IMMEDIATE RETURN TO USER # REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER. ## Page 1343 # CAF VXXNYY # TC BANKCALL # CADR REGODSPR # ... ... IMMEDIATE RETURN TO USER ## Page 1344 # GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER. # GOXDSP = GOMARK # CAF VXXNYY VXXNYY CONTAINS VERB AND NOUN # TC BANKCALL # CADR GOMARK OTHER EXTENDED VERBS USE CADR GOXDSP # GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER. # GOXDSPR = GOMARKR # CAF VXXNYY # TC BANKCALL # CADR GOMARKR OTHER EXTENDED VERBS USE CADR GOXDSPR # ... ... IMMEDIATE RETURN OF GOMARKR # GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM # THE ASTRONAUT (SEE NO. 7 ABOVE). # GOXDSPF = GOMARKF # CAF VXXNYY VXXNYY WILL BE A FLASHING MARK VERB NOUN # TC BANKCALL # CADR GOMARKF OTHER EXTENDED VERBS USE CADR GOXDSPF # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER OR RECYCLE RETURN # GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4. # GOXDSPFR = GOMARKFR # CAF VXXNYY FLASHING MARK VERB NOUN # TC BANKCALL # CADR GOMARKFR OTHER EXTENDED VERBS USE CADR GOXDSPFR # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER OR RECYCLE RETURN # ... ... IMMEDIATE RETURN TO THE USER # GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE # RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R # MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK # OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER. # CAF V5XNYY X=1,2,3,4 Y= NOUN # TC BANKCALL ## Page 1345 # CADR GOMARK1 # ... ... ENTER RETURN # *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER. # # GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2. # CAF V5XNYY X=1,2,3,4 YY = NOUN # TC BANKCALL # CADR GOMARK1R # ... ... ASTRONAUT ENTER RETURN # ... ... IMMEDIATE RETURN TO USER # GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT. # CAF V5XNYY X=1,2,3,4 YY=NOUN # TC BANKCALL # CADR GOMARK2 # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER. # CAF V5XNYY X=0,1,2,3,4 YY=NOUN # TC BANKCALL # CADR GOMARK2R # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # ... ... IMMEDIATE RETURN TO THE USER # GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE # PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING # V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN. # CAF V5XNYY X=1, 2,3,4 YY=NOUN # TC BANKCALL # CADR GOMARK3 # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER RETURN # GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL. # CAF V5XNYY X=1,2,3,4 YY=NOUN # TC BANKCALL # CADR GOMARK4 # ... ... TERMINATE RETURN # ... ... PROCEED RETURN ## Page 1346 # ... ... ENTER RETURN # EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN # SENT OUT. # CAF VXXNYY # TC BANKCALL # CADR EXDSPRET # ... ... RETURN TO USER # KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS # HAVE BEEN CLEANED OUT. # TC BANKCALL # CADR KLEENEX # ... ... RETURN TO USER # MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW). # TC BANKCALL # CADR MARKBRAN # ... ... BAD RETURN IF MARK DISPLAY NOT ACTIVE # (GOOD RETURN TO IMMEDIATE RETURN LOC OF # LAST FLASHING MARK R ROUTINE) # PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS # BLANKED AND CONTROL IS SENT TO ENDOFJOB. # TC POSTJUMP # CADR PINBRNCH # PRIODSP IS USED AS A PRIORITY DISPLAY. IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM # THE ASTRONAUT (SEE NO.7 ABOVE). # THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO # PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY # IS RESPONDED TO BY THE ASTRONAUT. # THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE # PRIO DISPLAY. # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN # TC BANKCALL # CADR PRIODSP # ... ... TERMINATE RETURN # ... ... PROCEED RETURN ## Page 1347 # ... ... ENTER OR RECYCLE RETURN # PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4. # CAF VXXNYY VXXNYY WILL BE A FLASHING VERB NOUN # TC BANKCALL # CADR PRIODSPR # ... ... TERMINATE RETURN # ... ... PROCEED RETURN # ... ... ENTER OR RECYCLE RETURN # ... ... IMMEDIATE RETURN # PRIOLARM DOES A V05N09 PRIODSPR. # # CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL # DISPLAYS ARE CLEANED OUT. # TC BANKCALL # CADR CLEANDSP # ... ... RETURN TO USER ## Page 1348 # # GENERAL INFORMATION # ------- ----------- # # ALARM OR ABORT EXIT MODES-- # PRIOBORT TC ABORT # OCT 1502 # # PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE # (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS # ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION). # # ERASABLE INITIALIZATION REQUIRED-- # ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES) # 2. NVSAVE = NORMAL VERB AND NOUN REGISTER. # 3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK). # 5. R1SAVE = MARKBRAN CONTROL WORD # 4. RESTREG = PRIORITY 30 AND SUPERBANK 3. # # OUTPUT-- # NVWORD = PRIO VERB AND NOUN # NVWORD +1(MARKNV) = MARK VERB AND NOUN # NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN # DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK) # DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK) # DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK) # CADRFLSH = PRIO USERS CALL CADR +1 LOCATION # CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION # CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION # PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT # OPTION1 = DESIRED OPTION FROM GOPERF4 # FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES # DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL) # # SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG, # JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC, # DEBRIS-- (STORED INTO) # TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL, # EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1 4,FACEREG # ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1 # ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4, ## Page 1349 # R1SAVE, MARK2PAC, # DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1 # # FLAGWORD DESCRIPTIONS-- # FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS # # DSPFLG, DSPFLG+1, DSPFLG +2- # ---------------------------- # BITS 1 BLANK R1 # 2 BLANK R2 # 3 BLANK R3 # 4 FLASHING DISPLAY REQUESTED # 5 PERFORM DISPLAY REQUESTED # 6 ----- EXDSPRET GODSPRET # 7 PRIO DISPLAY ----- ----- # 8 MONITOR-PASTE DEC PERFORM ----- # 9 EBANK # 10 EBANK # 11 EBANK # 12 ----- ----- V99PASTE # 13 2ND PART OF PERFORM # 14 REFLASH OR REDO ----- REFLASH OR REDO # 15 ----- MARK REQUEST ----- # # RESTARTING DISPLAYS-- # # RULES FOR THE DSKY OPERATOR-- # 1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N). AS LONG # AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS # RESPONSES TO THAT REQUEST. CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR # WITH PROCEED AND TERMINATE FOR THIS REASON. # 2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE # PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME # DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY # IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY # OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM # CONSIDERATION. # 3. KEY RELEASE BUTTON- # A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE. # B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL # AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE. # IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF # KEY RELEASE BUTTON MAY BE NECESSARY. # 4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE. # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE # OVER AGAIN. # # SPECIAL CONSIDERATIONS-- ## Page 1350 # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS # 2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST. # 3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R) # 4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT. # 5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED # BY A .1 RESTART PHASE CHANGE. # 6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE # CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO # 7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL. ## Page 1351 # CALLING SEQUENCE FOR BLANKING # CAF BITX X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY # TC BLANKET # ... ... RETURN TO USER HERE # IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL # TO BLANKET AT THE IMMEDIATE RETURN LOC. BLOCK 02 SETLOC FFTAG4 BANK COUNT* $$/DSPLA BLANKET TS MPAC +6 CS PLAYTEM4 MASK MPAC +6 INDEX MPAC +5 ADS PLAYTEM4 TC Q ENDMARK TC POSTJUMP CADR MARKEND CLEARMRK CAF ZERO TS EXTVBACT +2 INHINT CS XDSPBIT MASK FLAGWRD4 TS FLAGWRD4 RELINT TC Q # ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN # FINISHED. BANK 10 SETLOC DISPLAYS BANK COUNT* $$/DSPLA # NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT # 3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R. MARKEND TC CLEARMRK TCF MARKOVER GOMARK TS PLAYTEM1 # ENTRANCE FOR MARK GODSP ## Page 1352 GOMARS CAF BIT15 # BIT15 SET FOR ALL MARK REQUESTS TCF GOFLASH2 KLEENEX CAF ZERO # CLEAN OUT EXTENDED VERBS GOMARKF TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASH CAF MARKFMSK # MARK,FLASH TCF GOFLASH2 PRIOMONR TS PLAYTEM1 CAF PRIMNMSK # PRIORITY,MONITOR,FLASHING DISPLAY TCF GOFLASH2 GOMARK2 TS PLAYTEM1 # MARK GOPERFS-3 AST. RETURNS MARKFORM CAF MPERFMSK # MARK, PERFORM, FLASH TCF GOFLASH2 GOMARK3 TS PLAYTEM1 # USED FOR 3COMP DECIMAL PERFORM CAF MARK3MSK TCF GOFLASH2 GOMARK4 TS PLAYTEM1 CAF MARK4MSK # MARK,PERFORM,FLASH,BLANK TCF GOFLASH2 GOMARKR TS PLAYTEM1 # ENTR+NCE FOR MARK GODSPR CAF BIT15 TCF GODSPR2 GOMARKFR TS PLAYTEM1 # ENTRANCE FOR MARK GOFLASHR CAF MARKFMSK TCF GODSPRS GOMARK2R TS PLAYTEM1 # MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET. CAF MPERFMSK # MARK, PERFORM, FLASH TCF GODSPRS -1 AD PRIO13 GOMARK3R TS PLAYTEM1 CAF MARK3MSK TCF GODSPRS MAKEMARK CAF ONE TC COPIES CA FLAGWRD4 # IS NORM OR PRIO BUSY OR WAITING MASK OCT34300 CCS A TCF CHKPRIO ## Page 1353 CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY MASK MRKNVBIT EXTEND BZF MARKPLAY # NO TCF ENDOFJOB MARKPLAY INHINT CS FIVE # RESET MARK OVER NORM, SET MARK MASK FLAGWRD4 AD ONE TS FLAGWRD4 RELINT GOGOMARK CS MARKFLAG # PERFORM MASK BIT5 CCS A TCF MARKCOP CS MARKNV TS MARKNV MARKCOP CAF ONE # MARK INDEX TCF PRIOPLAY COPYTOGO CA MPAC2SAV TS MPAC +2 COPYPACS INDEX COPINDEX CAF PRIOOCT TS GENMASK INDEX COPINDEX CAF EBANKSAV TS TEMPOR2 # ACTIVE EBANK AND FLAG TS EBANK TC Q # PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP # UNTIL ALL MARKING IS FINISHED. # # IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A # PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT. CHKPRIO CA FLAGWRD4 # MARK ATTEMPT DURING PRIO MASK OCT24100 CCS A ## Page 1354 TCF MARSLEEP CS FLAGWRD4 MASK MKOVBIT # SET MARK OVER NORM INHINT ADS FLAGWRD4 TCF SETNORM MARKPERF CA MARKNV MASK VERBMASK TCF NV50DSP GODSP TS PLAYTEM1 GODSP2 CAF ZERO TCF GOFLASH2 GODSPRET TS PLAYTEM1 # ENTRANCE FOR A GODSP WITH A PASTE CAF BIT6 # SET BIT6 TO GO BACK TO USER AFTER NVSUB TCF GOFLASH2 GODSPR TS PLAYTEM1 GODSPR1 CAF ZERO GODSPR2 TS PLAYTEM4 CAF ZERO # * DONT MOVE TCF GODSPRS1 # CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS # SET UP TO BE STARTED OR RESTARTED. # # NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN # OLD DISPLAY. # # CALLING SEQUENCE FOR CLEANDSP- # # TC BANKCALL # CADR CLEANDSP CLEANDSP CAF ZERO REFLASH TS PLAYTEM1 CAF REDOMASK # FLASH AND PERMIT TCF GOFLASH2 REFLASHR TS PLAYTEM1 ## Page 1355 CAF REDOMASK # FLASH AND PERMIT TCF GODSPRS REGODSP TS PLAYTEM1 CAF BIT14 TCF GOFLASH2 REGODSPR TS PLAYTEM1 CAF BIT14 TCF GODSPR2 CLOCPLAY TS PLAYTEM1 CAF CLOCKCON TCF GOFLASH2 GOFLASH TS PLAYTEM1 CAF BIT4 # LEAVE ONLY FLASH BIT SET GOFLASH2 TS PLAYTEM4 TC SAVELOCS RELINT TCF MAKEPLAY # BRANCH DIRECT WITH NO SEPARATE JOB CALL PRIODSPR TS PLAYTEM1 CAF BITS7+4 TCF GODSPRS PRIODSP TS PLAYTEM1 SETPRIO CAF BITS7+4 TCF GOFLASH2 MAKEPRIO CAF ZERO TS COPINDEX TC LINUSCHR TCF HIPRIO # LINUS RETURN CA FLAGWRD4 MASK OCT20100 # IS PRIO IN ENDIDLE OR BUSY CCS A TCF PRIOBORT # YES, ABORT HIPRIO INHINT CS DSPTAB +11D # SET BITS 15 AND 1 ## Page 1356 MASK OCT40001 # (WHATEVER THEIR PREVIOUS STATE) ADS DSPTAB +11D # TO TURN ON SUPER-KEYRELEASE LIGHT RELINT CA FLAGWRD4 # MARK ACTIVE MASK OCT40400 EXTEND BZF ASKIFNRM # NO SETMARK CAF ZERO TCF JOBXCHS ASKIFNRM CA FLAGWRD4 # NORMAL ACTIVE MASK OCT10200 # BITS 13+8 EXTEND BZF OKTOCOPY # NO SETNORM CAF ONE TCF JOBXCHS OKTOCOPY TC COPYNORM TC WITCHONE TC JOBWAKE TC XCHTOEND REDOPRIO CA TIME1 # SAVE TIME PRIODSP SENT OUT TS PRIOTIME KEEPPRIO CAF ZERO # START UP PRIO DISPLAY TS COPINDEX CS DSPFLG MASK BIT8 CCS A TCF NVDSP CA NVWORD MASK MID7 TS L CS NVWORD TS NVWORD TCF NVDSP +1 MAKEPLAY CA PRIORITY # SAVE USERS PRIORITY MASK PRIO37 TS USERPRIO CAF PRIO33 # RAISE PRIORITY FOR FAST JOBS AFTER WAKE TC PRIOCHNG ## Page 1357 CA PLAYTEM4 # IS IT MARK OR PRIO OR NORM MASK BITS15+7 CCS A TCF MAKEPRIO # ITS PRIO TCF IFLEGAL TCF MAKEMARK # ITS MARK IFLEGAL CAF TWO TS COPINDEX TC LINUSCHR TCF OKTOPLAY # LINUS RETURN CS EBANKTEM MASK BIT4 CCS A TCF OKTOPLAY # NO CA FLAGWRD4 # WAS NORM ASLEEP MASK NBUSMASK # ARE ANY NORMS ASLEEP EXTEND BZF OKTOPLAY # NO PRIOBORT TC BAILOUT OCT 31502 OKTOPLAY TC COPIES2 CA USERPRIO EXTEND ROR SUPERBNK TS RESTREG CA FLAGWRD4 # PRIO OR MARK GOING MASK PMMASK CCS A TCF GOSLEEPS # YES TCF +2 TCF GOSLEEPS # MARK GOING # COULD PUT NORM BUSY CHECK HERE TO SAVE TIME TC WITCHONE # IS IT NVSUB BUSY, ENDIDLE OR NOONE TC JOBWAKE TC XCHTOEND PLAYJUM1 CAF TWO PRIOPLAY TS COPINDEX ## Page 1358 TCF GOPLAY EXDSPRET TS PLAYTEM1 CAF BIT15+6 TCF GOFLASH2 GOPERF1 TS NORMTEM1 # STORE DESIRED CHECKLIST VALUE CAF V01N25 # USED TO DISPLAY CHECKLIST VALUE IN R1 GOPERFS TS PLAYTEM1 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING TCF GOFLASH2 GOPERF2 TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 CAF PERF2MSK TCF GOFLASH2 GOPERF4 TC PURRS4 TCF GOFLASH2 GOFLASHR TS PLAYTEM1 CAF BIT4 # LEAVE ONLY FLASH BIT SET GODSPRS TS PLAYTEM4 CAF THREE GODSPRS1 INHINT # IMMEDIATE RETURN IS CALL CADR +4 TS RUPTREG3 CA PRIORITY # MAKE DISPLAY ONE HIGHER THAN USER MASK PRIO37 TS NEWPRIO CA PLAYTEM4 # IS THIS A FLASHING R DISPLAY MASK BIT4 CCS A TCF VACDSP # YES, MAKE DSPLAY JOB A VAC CA NEWPRIO # NO, MAKE DSPLAY JOB A NOVAC TC NOVAC EBANK= WHOCARES 2CADR MAKEPLAY TCF BOTHJOBS VACDSP CA BBANK ## Page 1359 EXTEND ROR SUPERBNK TS L CAF MAKEGEN TC SPVAC BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS EXTEND # SAVE NVWORD AND USERS MPAC +2 DCA MPAC +1 INDEX LOCCTR DXCH MPAC +1 EXTEND # SAVE USERS CADR, FLAGS AND EBANK DCA MPAC +3 INDEX LOCCTR DXCH MPAC +3 CA LOCCTR TS MPAC +5 TC SAVELOCR RELINT TCF BANKJUMP # CALL CADR +4 GOPERF1R TS NORMTEM1 # DESIRED CHECKLIST VALUE CAF V01N25 # DISPLAYS CHECKLIST VALUE IN R1 GOPERFRS TS PLAYTEM1 CAF PERFMASK # LEAVE ONLY FLASH, PERFORM, BLANKING TCF GODSPRS GOPERF2R TS PLAYTEM1 # DESIRED VERB-NOUN TO DISPLAY R1,R2,R3 CAF PERF2MSK TCF GODSPRS GOPERF4R TC PURRS4 TCF GODSPRS PURRS4 TS OPTION1 # DESIRED OPTION CODE CAF V04N06 TS PLAYTEM1 CAF PERF4MSK # FLASH,PERFORM AND BLANK R3 ## Page 1360 TC Q SAVELOCS INHINT CS OCT3400 # EBANK BITS MASK PLAYTEM4 AD EBANK TS PLAYTEM4 SAVELOCR LXCH Q TC MAKECADR TS PLAYTEM3 AD RUPTREG3 # NOT USED FOR NON R ROUTINES TC L COPYNORM CAF ZERO COPIES TS COPINDEX COPIES2 INHINT CA PLAYTEM4 # FLAGWORD INDEX COPINDEX TS EBANKSAV # EQUIV TO DSPFLG MASK CADRMASK # FLASH AND GODSPRET EXTEND BZF SKIPADD CA PLAYTEM3 INDEX COPINDEX TS CADRFLSH SKIPADD CA PLAYTEM1 # VERB NOUN INDEX COPINDEX TS NVWORD TCF RELINTQ GOSLEEPS INDEX COPINDEX CA PRIOOCT MASK WAITMASK TC UPENT2 WAITMASK OCT 3004 CS ONE AD COPINDEX TS FACEREG XCHSLEEP INDEX FACEREG CAF WAKECADR INHINT ## Page 1361 TC JOBWAKE # FIND CADR IN JOB AREA TC XCHTOEND # CAUSES AWAKENED JOB TO GO TO ENDOFJOB INDEX FACEREG # REPLACE SAME CADR BUT NEW JOB AREA CAF WAKECADR TCF JOBSLEEP JOBXCHS TS FACEREG # CONTROLS TYPE OF DISPLAY PUT TO SLEEP TC WITCHONE TC JOBWAKE CA FACEREG INDEX LOCCTR TS FACEREG CAF XCHQADD TC XCHNYLOC INDEX FACEREG CA MARKOCT MASK IDLESLEP TC DOWNENT2 IDLEMASK OCT 74004 # * DONT MOVE INDEX FACEREG # BIT SHOWS PRIO INTERRUPTED NORM OR MARK CA BIT5 # BIT5 FOR MARK, BIT4 FOR NORMAL AD FOUR TC UPENT2 # FLAG ROUTINE DOES RELINT XCHQADD GENADR XCHSLEEP # * DONT MOVE CA FLAGWRD4 MASK MKOVBIT # MARK OVER NORM ? CCS A GENMARK TC MARKPLAY # USED AS GENADR FOR JOBWAKE TCF OKTOCOPY MARKWAKE CAF ZERO WAKEPLAY TS TEMPOR2 INDEX TEMPOR2 CA BITS5+11 AD FOUR TC DOWNENT2 MARKFMSK OCT 40010 # ***DONT MOVE INDEX TEMPOR2 CAF WAKECADR INHINT TC JOBWAKE TCF ENDRET ## Page 1362 # ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS # INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK. # # IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER. # OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY. INITDSP CA EBANKTEM # RESTORE MOST RECECT NORMAL EBANK TS EBANK CA RESTREG # SUPERBANK AND JOB PRIORITY TC SUPERSW # RESTORE SUPERBANK MASK PRIO37 TC PRIOCHNG CS THREE AD TEMPFLSH TCF BANKJUMP PINBRNCH RELINT # FOR GOPIN USERS CA MARK2PAC # NEEDED TO SAVE MPAC +2 FOR MARK USERS TS MPAC +2 # ONLY CA FLAGWRD4 # PINBRANCH CONDITION MASK PINMASK CCS A TCF +3 TCF ERASER # ** NOTHING IN ENDIDLE TCF MARKPLAY NORMBNCH TC UPFLAG # SET PINBRANCH BIT ADRES PINBRFLG CAF PRIODBIT # PRIO INTERRUPTED MASK FLAGWRD4 CCS A TCF KEEPPRIO TCF PLAYJUM1 NVDSP ZL TC COPYPACS CA TEMPOR2 # SET UP BLANK BITS FOR NVMONOPT IN CASE MASK SEVEN # USER REQUESTS BLANKING MONITOR ADS L CS BIT13 INDEX COPINDEX MASK DSPFLG INDEX COPINDEX ## Page 1363 TS DSPFLG MASK BIT8 # BIT 8 SET IF PRIO MONITOR OR DEC MARK INDEX COPINDEX TCF +1 CA OCT2600 # CAUSES V16 TO BE IN A AT NVMONOPT TS TEM1 # SET, BIT 8 IN TEM1 IF DEC MARK CA MPAC +2 TS MPAC2SAV TS MARK2PAC # * FOR DISK ONLY * INDEX COPINDEX CCS NVWORD TCF NVDSP1 TCF CLEANEND INDEX COPINDEX CS NVWORD INDEX COPINDEX TS NVWORD MASK LOW7 AD V05N00M1 AD TEM1 NVDSP1 AD ONE NV50DSP TC NVMONOPT TCF REST # IF BUSY TC FLASHOFF # IN CASE OF EXTENDED VERB NON FLASH TC COPYTOGO # MPACS DESTROYED BY NVSUB TC DOWNFLAG # UNSET SLEEPING BITS ADRES MRKNVFLG TC DOWNFLAG ADRES NRMNVFLG TC DOWNFLAG ADRES PRONVFLG BLANKCHK CA TEMPOR2 # BLANK BITS 1,2,3 IF SET TC BLANKSUB TCF NVDSP PERFCHEK CAF BIT5 # BIT5 FOR PERFORM MASK TEMPOR2 CCS A # IS THIS A GOPERF DISPLAY TCF 1STOR2ND # YES GOANIDLE CAF BIT4 MASK TEMPOR2 CCS A TCF FLASHSUB # IT IS CS TEMPOR2 # IS THIS A GODSPRET MASK BIT6 CCS A ## Page 1364 TCF ISITN00 INDEX COPINDEX CA CADRFLSH TS MPAC +3 TCF ENDIT ISITN00 INDEX COPINDEX # IS THIS A PASTE CA NVWORD MASK LOW7 # CHECK MADE FOR PINBRNCH AND PRIO ON MARK EXTEND BZF FLASHSUB # YES, ASSUME PASTE ALWAYS ON FLASH TCF ENDOFJOB # NOT FLASH, NOT GOPERF, THERFORE EXIT 1STOR2ND CA TEMPOR2 MASK BIT13 CCS A TCF GOANIDLE # SECOND CA BIT13 INDEX COPINDEX ADS DSPFLG ZL EXTEND # IS IT MARK BZMF MARKPERF # YES MASK BIT12 EXTEND BZF V50PASTE CS NVWORD1 # NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99 AD V97N00 TCF NV50DSP V50PASTE CAF V50N00 TCF NV50DSP # DISPLAY SECOND PART OF GOPERF WITCHONE CS BIT5 # TURN OFF KEY RELEASE LIGHT EXTEND WAND DSALMOUT CA FLAGWRD4 MASK NVBUSMSK # IS IT NVSUB ASLEEP CCS A CAF ONE TS L CAF ZERO INDEX L XCH CADRSTOR ## Page 1365 INHINT TC Q XCHTOEND CAF ENDINST # TC ENDOFJOB REPLACES GENADR IN LOC FOR XCHNYLOC XCH LOCCTR # WAS THIS ADDRESS SLEEPING EXTEND BZMF RELINTQ # NO XCH LOCCTR # YES INDEX LOCCTR TS LOC RELINTQ RELINT TC Q # BACK TO USER CLEANEND CAF PRIO32 # ONE LOWER THAN DISPLAYS SLEEPING TC FINDVAC EBANK= NVSAVE 2CADR JAMTERM TCF FLASHSUB +1 ISITPRIO CA FLAGWRD4 MASK ITISMASK # IS PINBRFLG, MARKIDFLG SET EXTEND BZF PRIOBORT TCF ENDOFJOB REST CCS CADRSTOR # IS SOMEONE IN ENDIDLE TCF ENDOFJOB # YES TCF RESTSLEP TCF ENDOFJOB RESTSLEP CA GENMASK # SET NVSLEEP BITS MASK ASTROMSK TC UPENT2 OCT24100 OCT 24100 # *** DONT MOVE INDEX COPINDEX CAF NVCADR TC NVSUBUSY # BUSY OR ABORT IF ILLEGAL FLASHSUB TC FLASHON CA COPINDEX # COPINDEX DESTROYED BY ENDIDLE TS COPMPAC CA GENMASK MASK IDLEMASK ## Page 1366 TC UPENT2 ITISMASK OCT 40040 # *** ENDIDLE ALLOW *** DONT MOVE CCS CADRSTOR # SEE IF SOMEONE ALREADY IN ENDIDLE TCF ISITPRIO TCF +2 TCF ISITPRIO TC ENDIDLE IDLERET1 TCF TERMATE TCF PROCEED # ENDIDLE RETURNS HERE ON PROCEED CS LOWLOAD AD MPAC # VERBREG EXTEND DIM A EXTEND BZF LOADITIS # V21 OR V22 OR V23 ON DSKY OKTOENT CAF TWO ENDOUT TS OUTHERE CA FLAGWRD4 # CHECK NATURE OF ENDIDLE RETURN MASK OCT60000 CCS A TCF TIMECHEK # PRIO ENDIDLE RETURN TCF NORMRET # NORMAL ENDIDLE RETURN TCF MARKRET # MARK ENDIDLE RETURN TIMECHEK CS TIME1 AD PRIOTIME CCS A COM AD OCT37776 AD ONE AD -2SEC EXTEND BZMF KEEPPRIO INHINT CS OCT40001 # TURN OFF SUPER-KEYRELEASE LIGHT MASK DSPTAB +11D AD BIT15 TS DSPTAB +11D TCF NORMRET NORMWAKE CAF ONE TCF WAKEPLAY ## Page 1367 ENDRET CCS OUTHERE AD ONE TCF +2 # NORMAL ENDIDLE EXIT TCF ENDOFJOB INDEX COPMPAC AD CADRFLSH TS MPAC +3 CA GENMASK # REMOVE ENDIDLE AND PINBRANCH BITS MASK PINIDMSK TC DOWNENT2 PINIDMSK OCT 74044 # *** DONT MOVE CS THREE # BLANK EVERYTHING EXCEPT MM TC NVSUB TCF +1 ENDIT CA USERPRIO # RETURN TO USERS PRIORITY MASK PRIO37 TC PRIOCHNG CA MPAC +3 TCF BANKJUMP TERMATE CAF ZERO # ASTRONAUT TERMINATE (V34) RETURNS TO TCF ENDOUT LINUSCHR CS PLAYTEM4 # IS THIS A LINUS MASK BIT14 CCS A TCF Q+1 # NO CS PLAYTEM3 # YES, IS IT ALREADY IN ENDIDLE INDEX COPINDEX AD CADRFLSH EXTEND BZF +2 # YES TC Q # NO CCS DSPLOCK # IS THE ASTRONAUT BUSY TC ENDOFJOB # END THE NEW DISPLAY, ITS ALREADY ACTIVE TC Q # MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD. PROCEED CAF ONE # ASTRONAUT PROCEED (V33) RETURNS TCF ENDOUT # LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK # COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY # DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP. # # IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS ## Page 1368 # UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS # STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A # PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART. MARKRET CS SIX MASK FLAGWRD4 INHINT # *** MAY MOVE DISPLAY FLAGWORD OUT OF TS FLAGWRD4 RELINT # INHINT REALM TCF ENDRET MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET TS OUTHERE CA FLAGWRD4 # IS ENDIDFLG SET MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE CCS A TCF NORMBNCH NORMRET CA FLAGWRD4 # IS MARK SLEEPING MASK BITS5+11 # OR WAITING CCS A TCF MARKWAKE CA FLAGWRD4 # NO MASK BITS4+10 # IS NORMAL INTERRUPTED OR WAITING CCS A TCF NORMWAKE # YES CA EBANKTEM # NO, WAS IT A FLASH REQUEST MASK OCT50 # OR A GODSPRET CCS A TCF ENDRET # YES CA NVSAVE EXTEND BZF ENDRET CAF PRIO15 INHINT TC NOVAC EBANK= NVWORD 2CADR PLAYJUM1 TCF ENDRET MARSLEEP CA FLAGWRD4 # IS MARK ALREADY IN MASK BITS5+11 CCS A ## Page 1369 TCF ENDOFJOB # YES TCF GOSLEEPS LOADITIS INDEX COPMPAC CA NVWORD MASK LOW7 COM AD MPAC +1 # NOUNREG EXTEND BZF OKTOENT # NO, THEN LOAD IS VALID TCF PINBRNCH # YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN ERASER CS THREE # BLANK EVERYTHING EXCEPT MM TC NVSUB TCF ENDOFJOB TCF ENDOFJOB PERFMASK OCT 0036 # FLASH,PERFORM,BLANK R2 AND R3 V01N25 VN 00125 V06N07 VN 00607 # GOPERF3 VN DISPLAY BEFORE V50 V50N00 VN 5000 PERF2MSK OCT 00030 # FLASH, PERFORM V04N06 VN 00406 PERF4MSK OCT 14 # FLASH, BLANK R3 GOAGIN EQUALS PINBRNCH REDOMASK OCT 20010 # BITS 4 AND 14 MARK3MSK OCT 40230 # MARK,DECIMAL NOUN, PERFORM,FLASH MARK4MSK OCT 40036 # MARK,PERFORM,FLASH,BLANK 2 AND 3 NVCADR CADR REDOPRIO WAKECADR CADR MARKPLAY CADR PLAYJUM1 OCT3400 OCT 3400 # EBANK MASK NBUSMASK OCT 11210 PMMASK OCT 66521 VERBMASK = MID7 # (OCT 37600) V05N00M1 OCT 1177 # V05 MINUS ONE GOXDSP EQUALS GOMARK GOXDSPR EQUALS GOMARKR GOXDSPF EQUALS GOMARKF GOXDSPFR EQUALS GOMARKFR ENDEXT EQUALS ENDMARK MPAC2SAV EQUALS BANKSET NVBUSMSK OCT 700 ASTROMSK OCT 704 MPERFMSK OCT 40030 # BIT 15,5,4 FOR MARK,PERFORM,FLASH OCT34300 OCT 34300 BITS15+7 OCT 40100 BITS7+4 OCT 110 BITS5+11 OCT 2020 # * DONT MOVE ## Page 1370 BITS4+10 OCT 1010 # * DONT MOVE LOWLOAD DEC 22 BUSYMASK OCT 77730 CADRMASK OCT 50 PINMASK EQUALS 13,14,15 GOPLAY EQUALS NVDSP #PRIOSAVE EQUALS R1SAVE COPMPAC EQUALS MPAC +3 TEMPOR2 EQUALS MPAC +4 OUTHERE EQUALS MPAC +5 COPINDEX EQUALS LOC USERPRIO EQUALS MODE GENMASK EQUALS MPAC +6 PRIOOCT OCT 20144 # PRIO MARKOCT OCT 42424 # MARK OCT 11254 # NORM IDLESLEP OCT 74704 OCT67777 OCT 67777 LINUS EQUALS BLANKET FACEREG EQUALS MPAC PLAYTEM1 EQUALS MPAC +1 PLAYTEM3 EQUALS MPAC +3 PLAYTEM4 EQUALS MPAC +4 OCT40420 OCT 40420 MAKEGEN GENADR MAKEPLAY OCT10200 OCT 10200 V97N00 VN 09700 # PASTE FOR V97 OR V99 OCT20100 OCT 20100 CLOCKCON OCT 24030 # FLASH, PERFORM, V99 OR V97 PASTE,REFLASH OCT2600 OCT 02600 PRIMNMSK OCT 00310 # MONITOR PASTE, PRIO, FLASH

057761,000002:                                                                                                  ## Copyright:   Public domain.
057762,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
057763,000004:                                                                                                  ## Purpose:     A section of Luminary revision 210.
057764,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
057765,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 15-17.
057766,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
057767,000008:                                                                                                  ##              that the code format has been changed to conform to the
057768,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
057769,000010:                                                                                                  ##              original YUL assembler.
057770,000011:                                                                                                  ## Reference:   pp. 1338-1370
057771,000012:                                                                                                  ## Assembler:   yaYUL
057772,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
057773,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
057774,000015:                                                                                                  ## Mod history: 2016-11-17 JL   Created from Luminary131 version.
057775,000016:                                                                                                  ##              2016-12-08 JS   Compared to Luminary210 images. Updated where needed.
057776,000017:                                                                                                  ##              2016-12-10 HG   Add missing operator ZL (label NVDSP)
057777,000018:                                                                                                  ##              2016-12-11 HG   fix operand NVDISP -> NVDSP
057778,000019:                                                                                                  ##              2016-12-12 HG   add [WORKAROUND] with SBANK=
057779,000020:                                                                                                  ##              2016-12-12 MAS  "PRIOSAVE EQUALS R1SAVE" is sneakily a comment.
057780,000021:                                                                                                  ##              2016-12-26 RSB  Comment-text proofed using ProoferComments
057781,000022:                                                                                                  ##                              and corrected errors found.
057782,000023:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
057783,000024:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
057784,000025:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
057785,000026:                                                                                                  ##              2017-06-17 MAS  Globally removed all SBANK= workarounds.
057786,000027: 

Page 1338

057788,000029:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
057789,000030:                                                                                                  #        1.  PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS.  USUALLY THESE DISPLAYS ARE SENT
057790,000031:                                                                                                  #            OUT UNDER CRITICAL ALARM CONDITIONS.
057791,000032:                                                                                                  #        2.  EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
057792,000033:                                                                                                  #        3.  NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
057793,000034:                                                                                                  #            SEQUENCE OF EVENTS.
057794,000035:                                                                                                  #        4.  MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
057795,000036:                                                                                                  #            MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
057796,000037:                                                                                                  #        5.  ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
057797,000038: 
057798,000039:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
057799,000040:                                                                                                  #        1.  ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
057800,000041:                                                                                                  #            (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
057801,000042:                                                                                                  #            BUT NOT WAITING FOR A RESPONSE.
057802,000043:                                                                                                  #        2.  INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
057803,000044:                                                                                                  #            (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
057804,000045:                                                                                                  #            WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
057805,000046:                                                                                                  #            OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
057806,000047:                                                                                                  #            HAS INFO SAVED FOR RESTART PURPOSES.
057807,000048: 
057808,000049:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS-
057809,000050:                                                                                                  #        INTERRUPTS-
057810,000051:                                                                                                  #                1.  THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
057811,000052:                                                                                                  #                2.  INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
057812,000053:                                                                                                  #                3.  PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
057813,000054:                                                                                                  #                    PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
057814,000055:                                                                                                  #                4.  A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
057815,000056:                                                                                                  #                5.  A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
057816,000057: 
057817,000058:                                                                                                  #        ORDER OF WAITING DISPLAYS-
057818,000059:                                                                                                  #                1.  ASTRONAUT EXTERNAL USE
057819,000060:                                                                                                  #                2.  PRIORITY
057820,000061:                                                                                                  #                3.  INTERRUPTED MARK
057821,000062:                                                                                                  #                4.  INTERRUPTED NORMAL
057822,000063:                                                                                                  #                5.  MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
057823,000064:                                                                                                  #                6.  MARK WAITING
057824,000065:                                                                                                  #                7.  NORMAL WAITING
057825,000066: 

Page 1339

057827,000068:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
057828,000069:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
057829,000070:                                                                                                  #  WILL FOLLOW LATER):
057830,000071:                                                                                                  #        1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
057831,000072:                                                                                                  #            IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
057832,000073:                                                                                                  #            IS TO THE USERS CALLING LOC +1.
057833,000074:                                                                                                  #        2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
057834,000075:                                                                                                  #        3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
057835,000076:                                                                                                  #        4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
057836,000077:                                                                                                  #            USERS JOB.
057837,000078:                                                                                                  #        5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
057838,000079:                                                                                                  #        6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
057839,000080:                                                                                                  #            DESCRIPTION OF RESTARTS).
057840,000081:                                                                                                  #        7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
057841,000082:                                                                                                  #            TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
057842,000083:                                                                                                  #            (V32) BRANCHES TO THE USERS CALL CADR +3.
057843,000084:                                                                                                  #        8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
057844,000085: 
057845,000086:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
057846,000087:                                                                                                  #        GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
057847,000088:                                                                                                  #                1.  GODSP IS NOT RESTARTABLE
057848,000089:                                                                                                  #                2.  A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
057849,000090:                                                                                                  #                                CAF     VXXNYY
057850,000091:                                                                                                  #                                TC      BANKCALL
057851,000092:                                                                                                  #                                CADR    GODSP
057852,000093:                                                                                                  #                        VXXNYY  OCT     0XXYY
057853,000094:                                                                                                  #        GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
057854,000095:                                                                                                  #                                CAF     VXXNYY
057855,000096:                                                                                                  #                                TC      BANKCALL
057856,000097:                                                                                                  #                                CADR    GODSPR
057857,000098:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GODSPR
057858,000099:                                                                                                  #        GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER.  3 RETURNS ARE POSSIBLE FROM
057859,000100:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
057860,000101:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
057861,000102:                                                                                                  #                                TC      BANKCALL
057862,000103:                                                                                                  #                                CADR    GOFLASH
057863,000104:                                                                                                  #                                ...     ...             TERMINATE RETURN
057864,000105:                                                                                                  #                                ...     ...             PROCEED RETURN
057865,000106:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
057866,000107:                                                                                                  #        GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
057867,000108: 

Page 1340

057869,000110:                                                                                                  #        V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
057870,000111:                                                                                                  #        USER (SEE NO. 7 ABOVE).
057871,000112:                                                                                                  #        GOPERF1 BLANKS REGISTERS R2 AND R3
057872,000113:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX
057873,000114:                                                                                                  #                                TC      BANKCALL
057874,000115:                                                                                                  #                                CADR    GOPERF1
057875,000116:                                                                                                  #                                ...     ...             TERMINATE RETURN
057876,000117:                                                                                                  #                                ...     ...             PROCEED RETURN
057877,000118:                                                                                                  #                                ...     ...             ENTER RETURN
057878,000119:                                                                                                  #        GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
057879,000120:                                                                                                  #        REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
057880,000121:                                                                                                  #        DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057881,000122:                                                                                                  #        GOPERF2 DOES NOT BLANK ANY REGISTERS
057882,000123:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY. XX=00 OR 01.
057883,000124:                                                                                                  #                                TC      BANKCALL
057884,000125:                                                                                                  #                                CADR    GOPERF2
057885,000126:                                                                                                  #                                ...     ...             TERMINATE RETURN
057886,000127:                                                                                                  #                                ...     ...             PROCEED RETURN
057887,000128:                                                                                                  #                                ...     ...             ENTER RETURN
057888,000129:                                                                                                  #        GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
057889,000130:                                                                                                  #        DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
057890,000131:                                                                                                  #        IS MADE TO THE USER (SEE NO. 7 ABOVE).
057891,000132:                                                                                                  #        GOPERF3 BLANKS REGISTERS R2 AND R3
057892,000133:                                                                                                  #                                CAF     DECXX           REQUEST PERFORM ON PXX
057893,000134:                                                                                                  #                                TC      BANKCALL
057894,000135:                                                                                                  #                                CADR    GOPERF3
057895,000136:                                                                                                  #                                ...     ...             TERMINATE RETURN
057896,000137:                                                                                                  #                                ...     ...             PROCEED RETURN
057897,000138:                                                                                                  #                                ...     ...             ENTER RETURN
057898,000139:                                                                                                  #        GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
057899,000140:                                                                                                  #        GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING  V50N06 FOR A PLEASE PERFORM. NO
057900,000141:                                                                                                  #        IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
057901,000142:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTION XX
057902,000143:                                                                                                  #                                TC      BANKCALL
057903,000144:                                                                                                  #                                CADR    GOPERF4
057904,000145:                                                                                                  #                                ...     ...             TERMINATE RETURN
057905,000146:                                                                                                  #                                ...     ...             PROCEED RETURN
057906,000147:                                                                                                  #                                ...     ...             ENTER RETURN
057907,000148:                                                                                                  #        GOPERF4 BLANKS REGISTER R3
057908,000149: 

Page 1341

057910,000151:                                                                                                  #        GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
057911,000152:                                                                                                  #        OUT.
057912,000153:                                                                                                  #                                CAF     VXXNYY
057913,000154:                                                                                                  #                                TC      BANKCALL
057914,000155:                                                                                                  #                                CADR    GODSPRET
057915,000156:                                                                                                  #                                ...     ...             RETURN TO USER
057916,000157:                                                                                                  #        REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
057917,000158:                                                                                                  #        ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057918,000159:                                                                                                  #                                CAF     VXXNYY
057919,000160:                                                                                                  #                                TC      BANKCALL
057920,000161:                                                                                                  #                                CADR    REGODSP
057921,000162:                                                                                                  #        REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
057922,000163:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
057923,000164:                                                                                                  #                                TC      BANKCALL
057924,000165:                                                                                                  #                                CADR    REFLASH
057925,000166:                                                                                                  #                                ...     ...             TERMINATE RETURN
057926,000167:                                                                                                  #                                ...     ...             PROCEED RETURN
057927,000168:                                                                                                  #                                ...     ...             ENTER RETURN
057928,000169:                                                                                                  #        GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057929,000170:                                                                                                  #                                CAF     VXXNYY
057930,000171:                                                                                                  #                                TC      BANKCALL
057931,000172:                                                                                                  #                                CADR    GOFLASHR
057932,000173:                                                                                                  #                                ...     ...             TERMINATE RETURN
057933,000174:                                                                                                  #                                ...     ...             PROCEED RETURN
057934,000175:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
057935,000176:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOFLASHR
057936,000177:                                                                                                  #        GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
057937,000178:                                                                                                  #        GOPERF1R BLANKS REGISTERS R2 AND R3
057938,000179:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX.
057939,000180:                                                                                                  #                                TC      BANKCALL
057940,000181:                                                                                                  #                                CADR    GOPERF1R
057941,000182:                                                                                                  #                                ...     ...             TERMINATE RETURN
057942,000183:                                                                                                  #                                ...     ...             PROCEED RETURN
057943,000184:                                                                                                  #                                ...     ...             ENTER RETURN
057944,000185:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOPERF1R
057945,000186:                                                                                                  #        GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057946,000187: 

Page 1342

057948,000189:                                                                                                  #        GOPERF2R DOES NOT BLANK ANY REGISTERS
057949,000190:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
057950,000191:                                                                                                  #                                TC      BANKCALL
057951,000192:                                                                                                  #                                CADR    GOPERF2R
057952,000193:                                                                                                  #                                ...     ...             TERMINATE RETURN
057953,000194:                                                                                                  #                                ...     ...             PROCEED RETURN
057954,000195:                                                                                                  #                                ...     ...             ENTER RETURN
057955,000196:                                                                                                  #                                ...     ...             IMMEDIATE RETURN HERE FROM GOPERF2R
057956,000197:                                                                                                  #        GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057957,000198:                                                                                                  #        GOPERF3R BLANKS REGISTERS R2 AND R3
057958,000199:                                                                                                  #                                CAF     PROGXX          PERFORM PROGRAM XX
057959,000200:                                                                                                  #                                TC      BANKCALL
057960,000201:                                                                                                  #                                CADR    GOPERF3R
057961,000202:                                                                                                  #                                ...     ...             TERMINATE RETURN
057962,000203:                                                                                                  #                                ...     ...             PROCEED RETURN
057963,000204:                                                                                                  #                                ...     ...             ENTER RETURN
057964,000205:                                                                                                  #                                ...     ...             GOPERF3R IMMEDIATELY RETURNS HERE
057965,000206:                                                                                                  #        GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
057966,000207:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTIONXX
057967,000208:                                                                                                  #                                TC      BANKCALL
057968,000209:                                                                                                  #                                CADR    GOPERF4R
057969,000210:                                                                                                  #                                ...     ...             TERMINATE RETURN
057970,000211:                                                                                                  #                                ...     ...             PROCEED RETURN
057971,000212:                                                                                                  #                                ...     ...             ENTER RETURN
057972,000213:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
057973,000214:                                                                                                  #        GOPERF4R BLANKS REGISTER R3
057974,000215:                                                                                                  #        REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
057975,000216:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
057976,000217:                                                                                                  #                                TC      BANKCALL
057977,000218:                                                                                                  #                                CADR    REFLASHR
057978,000219:                                                                                                  #                                ...     ...             TERMINATE RETURN
057979,000220:                                                                                                  #                                ...     ...             PROCEED RETURN
057980,000221:                                                                                                  #                                ...     ...             ENTER RETURN
057981,000222:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
057982,000223:                                                                                                  #        REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
057983,000224: 

Page 1343

057985,000226:                                                                                                  #                                CAF     VXXNYY
057986,000227:                                                                                                  #                                TC      BANKCALL
057987,000228:                                                                                                  #                                CADR    REGODSPR
057988,000229:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
057989,000230: 

Page 1344

057991,000232:                                                                                                  #        GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
057992,000233:                                                                                                  #        GOXDSP = GOMARK
057993,000234:                                                                                                  #                                CAF     VXXNYY          VXXNYY CONTAINS VERB AND NOUN
057994,000235:                                                                                                  #                                TC      BANKCALL
057995,000236:                                                                                                  #                                CADR    GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
057996,000237:                                                                                                  #        GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
057997,000238:                                                                                                  #        GOXDSPR = GOMARKR
057998,000239:                                                                                                  #                                CAF     VXXNYY
057999,000240:                                                                                                  #                                TC      BANKCALL
058000,000241:                                                                                                  #                                CADR    GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
058001,000242:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GOMARKR
058002,000243:                                                                                                  #        GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058003,000244:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
058004,000245:                                                                                                  #        GOXDSPF = GOMARKF
058005,000246:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
058006,000247:                                                                                                  #                                TC      BANKCALL
058007,000248:                                                                                                  #                                CADR    GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
058008,000249:                                                                                                  #                                ...     ...             TERMINATE RETURN
058009,000250:                                                                                                  #                                ...     ...             PROCEED RETURN
058010,000251:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058011,000252:                                                                                                  #        GOMARKFR IS THE SAME AS GOMARKF ONLY AN  IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
058012,000253:                                                                                                  #        GOXDSPFR = GOMARKFR
058013,000254:                                                                                                  #                                CAF     VXXNYY          FLASHING MARK VERB NOUN
058014,000255:                                                                                                  #                                TC      BANKCALL
058015,000256:                                                                                                  #                                CADR    GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
058016,000257:                                                                                                  #                                ...     ...             TERMINATE RETURN
058017,000258:                                                                                                  #                                ...     ...             PROCEED RETURN
058018,000259:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058019,000260:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
058020,000261:                                                                                                  #        GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
058021,000262:                                                                                                  #        RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
058022,000263:                                                                                                  #        MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
058023,000264:                                                                                                  #        OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
058024,000265:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       Y= NOUN
058025,000266:                                                                                                  #                                TC      BANKCALL
058026,000267: 

Page 1345

058028,000269:                                                                                                  #                                CADR    GOMARK1
058029,000270:                                                                                                  #                                ...     ...             ENTER RETURN
058030,000271:                                                                                                  #        *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
058031,000272: 
058032,000273:                                                                                                  #        GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
058033,000274:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY = NOUN
058034,000275:                                                                                                  #                                TC      BANKCALL
058035,000276:                                                                                                  #                                CADR    GOMARK1R
058036,000277:                                                                                                  #                                ...     ...             ASTRONAUT ENTER RETURN
058037,000278:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
058038,000279:                                                                                                  #        GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
058039,000280:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
058040,000281:                                                                                                  #                                TC      BANKCALL
058041,000282:                                                                                                  #                                CADR    GOMARK2
058042,000283:                                                                                                  #                                ...     ...             TERMINATE RETURN
058043,000284:                                                                                                  #                                ...     ...             PROCEED RETURN
058044,000285:                                                                                                  #                                ...     ...             ENTER RETURN
058045,000286:                                                                                                  #        GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
058046,000287:                                                                                                  #                                CAF     V5XNYY          X=0,1,2,3,4     YY=NOUN
058047,000288:                                                                                                  #                                TC      BANKCALL
058048,000289:                                                                                                  #                                CADR    GOMARK2R
058049,000290:                                                                                                  #                                ...     ...             TERMINATE RETURN
058050,000291:                                                                                                  #                                ...     ...             PROCEED RETURN
058051,000292:                                                                                                  #                                ...     ...             ENTER RETURN
058052,000293:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
058053,000294:                                                                                                  #        GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
058054,000295:                                                                                                  #        PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
058055,000296:                                                                                                  #        V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
058056,000297:                                                                                                  #                                CAF     V5XNYY          X=1, 2,3,4 YY=NOUN
058057,000298:                                                                                                  #                                TC      BANKCALL
058058,000299:                                                                                                  #                                CADR    GOMARK3
058059,000300:                                                                                                  #                                ...     ...             TERMINATE RETURN
058060,000301:                                                                                                  #                                ...     ...             PROCEED RETURN
058061,000302:                                                                                                  #                                ...     ...             ENTER RETURN
058062,000303:                                                                                                  #        GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
058063,000304:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4 YY=NOUN
058064,000305:                                                                                                  #                                TC      BANKCALL
058065,000306:                                                                                                  #                                CADR    GOMARK4
058066,000307:                                                                                                  #                                ...     ...             TERMINATE RETURN
058067,000308:                                                                                                  #                                ...     ...             PROCEED RETURN
058068,000309: 

Page 1346

058070,000311:                                                                                                  #                                ...     ...             ENTER RETURN
058071,000312:                                                                                                  #        EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
058072,000313:                                                                                                  #        SENT OUT.
058073,000314:                                                                                                  #                                CAF     VXXNYY
058074,000315:                                                                                                  #                                TC      BANKCALL
058075,000316:                                                                                                  #                                CADR    EXDSPRET
058076,000317:                                                                                                  #                                ...     ...             RETURN TO USER
058077,000318:                                                                                                  #        KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
058078,000319:                                                                                                  #        HAVE BEEN CLEANED OUT.
058079,000320:                                                                                                  #                                TC      BANKCALL
058080,000321:                                                                                                  #                                CADR    KLEENEX
058081,000322:                                                                                                  #                                ...     ...             RETURN TO USER
058082,000323:                                                                                                  #        MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
058083,000324:                                                                                                  #                                TC      BANKCALL
058084,000325:                                                                                                  #                                CADR    MARKBRAN
058085,000326:                                                                                                  #                                ...     ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
058086,000327:                                                                                                  #                                                        (GOOD RETURN TO IMMEDIATE RETURN LOC OF
058087,000328:                                                                                                  #                                                        LAST FLASHING MARK R ROUTINE)
058088,000329:                                                                                                  #        PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY.  IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
058089,000330:                                                                                                  #        BLANKED AND CONTROL IS SENT TO ENDOFJOB.
058090,000331:                                                                                                  #                                TC      POSTJUMP
058091,000332:                                                                                                  #                                CADR    PINBRNCH
058092,000333:                                                                                                  #        PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
058093,000334:                                                                                                  #        THE ASTRONAUT (SEE NO.7 ABOVE).
058094,000335:                                                                                                  #                THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
058095,000336:                                                                                                  #        PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
058096,000337:                                                                                                  #        IS RESPONDED TO BY THE ASTRONAUT.
058097,000338:                                                                                                  #                THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
058098,000339:                                                                                                  #        PRIO DISPLAY.
058099,000340:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
058100,000341:                                                                                                  #                                TC      BANKCALL
058101,000342:                                                                                                  #                                CADR    PRIODSP
058102,000343:                                                                                                  #                                ...     ...             TERMINATE RETURN
058103,000344:                                                                                                  #                                ...     ...             PROCEED RETURN
058104,000345: 

Page 1347

058106,000347:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058107,000348:                                                                                                  #        PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058108,000349:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
058109,000350:                                                                                                  #                                TC      BANKCALL
058110,000351:                                                                                                  #                                CADR    PRIODSPR
058111,000352:                                                                                                  #                                ...     ...             TERMINATE RETURN
058112,000353:                                                                                                  #                                ...     ...             PROCEED RETURN
058113,000354:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058114,000355:                                                                                                  #                                ...     ...             IMMEDIATE RETURN
058115,000356:                                                                                                  #        PRIOLARM DOES A V05N09 PRIODSPR.
058116,000357: 
058117,000358:                                                                                                  #        CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE).  A RETURN IS MADE TO THE USER AFTER NORMAL
058118,000359:                                                                                                  #        DISPLAYS ARE CLEANED OUT.
058119,000360:                                                                                                  #                                TC      BANKCALL
058120,000361:                                                                                                  #                                CADR    CLEANDSP
058121,000362:                                                                                                  #                                ...     ...             RETURN TO USER
058122,000363: 

Page 1348

058124,000365: 
058125,000366:                                                                                                  #  GENERAL INFORMATION
058126,000367:                                                                                                  #  ------- -----------
058127,000368: 
058128,000369:                                                                                                  #  ALARM OR ABORT EXIT MODES--
058129,000370:                                                                                                  #        PRIOBORT        TC      ABORT
058130,000371:                                                                                                  #                        OCT     1502
058131,000372: 
058132,000373:                                                                                                  #        PRIOBORT IS BRANCED TO WHEN (1)  A NORMAL DISPLAY IS REQUESTED AND  ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
058133,000374:                                                                                                  #        (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
058134,000375:                                                                                                  #        ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
058135,000376: 
058136,000377:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED--
058137,000378:                                                                                                  #        ACCOMPLISHED BY FRESH START-    1.  FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
058138,000379:                                                                                                  #                                        2.  NVSAVE = NORMAL VERB AND NOUN REGISTER.
058139,000380:                                                                                                  #                                        3.  EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
058140,000381:                                                                                                  #                                        5.  R1SAVE = MARKBRAN CONTROL WORD
058141,000382:                                                                                                  #                                        4.  RESTREG = PRIORITY 30 AND SUPERBANK 3.
058142,000383: 
058143,000384:                                                                                                  #  OUTPUT--
058144,000385:                                                                                                  #        NVWORD = PRIO VERB AND NOUN
058145,000386:                                                                                                  #        NVWORD +1(MARKNV) = MARK VERB AND NOUN
058146,000387:                                                                                                  #        NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
058147,000388:                                                                                                  #        DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
058148,000389:                                                                                                  #        DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
058149,000390:                                                                                                  #        DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
058150,000391:                                                                                                  #        CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
058151,000392:                                                                                                  #        CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
058152,000393:                                                                                                  #        CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
058153,000394:                                                                                                  #        PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
058154,000395:                                                                                                  #        OPTION1 = DESIRED OPTION FROM GOPERF4
058155,000396:                                                                                                  #        FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
058156,000397:                                                                                                  #        DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
058157,000398: 
058158,000399:                                                                                                  #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
058159,000400:                                                                                                  #        JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
058160,000401:                                                                                                  #        DEBRIS-- (STORED INTO)
058161,000402:                                                                                                  #        TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
058162,000403:                                                                                                  #                EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1         4,FACEREG
058163,000404:                                                                                                  #        ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
058164,000405:                                                                                                  #        ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
058165,000406: 

Page 1349

058167,000408:                                                                                                  #        R1SAVE, MARK2PAC,
058168,000409:                                                                                                  #        DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
058169,000410: 
058170,000411:                                                                                                  #  FLAGWORD DESCRIPTIONS--
058171,000412:                                                                                                  #        FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
058172,000413: 
058173,000414:                                                                                                  #        DSPFLG, DSPFLG+1, DSPFLG +2-
058174,000415:                                                                                                  #        ----------------------------
058175,000416:                                                                                                  #        BITS 1  BLANK R1
058176,000417:                                                                                                  #             2  BLANK R2
058177,000418:                                                                                                  #             3  BLANK R3
058178,000419:                                                                                                  #             4  FLASHING DISPLAY REQUESTED
058179,000420:                                                                                                  #             5  PERFORM DISPLAY REQUESTED
058180,000421:                                                                                                  #             6  -----                   EXDSPRET                GODSPRET
058181,000422:                                                                                                  #             7  PRIO DISPLAY            -----                    -----
058182,000423:                                                                                                  #             8  MONITOR-PASTE           DEC PERFORM             -----
058183,000424:                                                                                                  #             9  EBANK
058184,000425:                                                                                                  #            10  EBANK
058185,000426:                                                                                                  #            11  EBANK
058186,000427:                                                                                                  #            12  -----                   -----                   V99PASTE
058187,000428:                                                                                                  #            13  2ND PART OF PERFORM
058188,000429:                                                                                                  #            14  REFLASH OR REDO         -----                   REFLASH OR REDO
058189,000430:                                                                                                  #            15  -----                   MARK REQUEST            -----
058190,000431: 
058191,000432:                                                                                                  #  RESTARTING DISPLAYS--
058192,000433: 
058193,000434:                                                                                                  #  RULES FOR THE DSKY OPERATOR--
058194,000435:                                                                                                  #        1.  PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
058195,000436:                                                                                                  #            AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
058196,000437:                                                                                                  #            RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
058197,000438:                                                                                                  #            WITH PROCEED AND TERMINATE FOR THIS REASON.
058198,000439:                                                                                                  #        2.  THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 2 SECONDS FROM THE TIME THE
058199,000440:                                                                                                  #            PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
058200,000441:                                                                                                  #            DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
058201,000442:                                                                                                  #            IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS FROM THE TIME THE FIRST PRIORITY DISPLAY
058202,000443:                                                                                                  #            OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
058203,000444:                                                                                                  #            CONSIDERATION.
058204,000445:                                                                                                  #        3.  KEY RELEASE BUTTON-
058205,000446:                                                                                                  #            A)  IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
058206,000447:                                                                                                  #            B)  IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
058207,000448:                                                                                                  #                AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
058208,000449:                                                                                                  #            IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
058209,000450:                                                                                                  #            KEY RELEASE BUTTON MAY BE NECESSARY.
058210,000451:                                                                                                  #        4.  IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
058211,000452:                                                                                                  #        5.  IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
058212,000453:                                                                                                  #            OVER AGAIN.
058213,000454: 
058214,000455:                                                                                                  #  SPECIAL CONSIDERATIONS--
058215,000456: 

Page 1350

058217,000458:                                                                                                  #        1.  MPAC +2  SAVED ONLY IN MARK DISPLAYS
058218,000459:                                                                                                  #        2.  GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
058219,000460:                                                                                                  #        3.  ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
058220,000461:                                                                                                  #        4.  ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
058221,000462:                                                                                                  #        5.  GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
058222,000463:                                                                                                  #            BY A .1 RESTART PHASE CHANGE.
058223,000464:                                                                                                  #        6.  IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
058224,000465:                                                                                                  #            CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
058225,000466:                                                                                                  #        7.  IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
058226,000467: 

Page 1351

058228,000469:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
058229,000470:                                                                                                  #                CAF     BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
058230,000471:                                                                                                  #                TC      BLANKET
058231,000472:                                                                                                  #                ...     ...             RETURN TO USER HERE
058232,000473:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
058233,000474:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
058234,000475:    5466                                           BLOCK    02                                    
058235,000476:    4000                                           SETLOC   FFTAG4                                
058236,000477:    4000                                           BANK                                           
058237,000478: 
058238,000479:    5466                                           COUNT*   $$/DSPLA                              
058239,000480:    5466           54162        BLANKET            TS       MPAC       +6                         
058240,000481:    5467           40160                           CS       PLAYTEM4                              
058241,000482:    5470           70162                           MASK     MPAC       +6                         
058242,000483:    5471           50161                           INDEX    MPAC       +5                         
058243,000484:    5472           26160                           ADS      PLAYTEM4                              
058244,000485: 
058245,000486:    5473           00002                           TC       Q                                     
058246,000487: 
058247,000488:    5474           04626        ENDMARK            TC       POSTJUMP                              
058248,000489:    5475           20315                           CADR     MARKEND                               
058249,000490: 
058250,000491:    5476           34746        CLEARMRK           CAF      ZERO                                  
058251,000492:    5477           55043                           TS       EXTVBACT                              
058252,000493: 
058253,000494:    5500           00004                 +2        INHINT                                         
058254,000495:    5501           44744                           CS       XDSPBIT                               
058255,000496:    5502           70100                           MASK     FLAGWRD4                              
058256,000497:    5503           54100                           TS       FLAGWRD4                              
058257,000498: 
058258,000499:    5504           00003                           RELINT                                         
058259,000500:    5505           00002                           TC       Q                                     
058260,000501: 
058261,000502:                                                                                                  #  ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
058262,000503:                                                                                                  #  FINISHED.
058263,000504: 
058264,000505: 10,2315                                           BANK     10                                    
058265,000506: 10,2000                                           SETLOC   DISPLAYS                              
058266,000507: 10,2000                                           BANK                                           
058267,000508: 
058268,000509: 10,2315                                           COUNT*   $$/DSPLA                              
058269,000510: 
058270,000511:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
058271,000512:                                                                                                  #  3 RETURNS TO THE USER.  THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
058272,000513: 
058273,000514: 10,2315           05476        MARKEND            TC       CLEARMRK                              
058274,000515: 10,2316           13427                           TCF      MARKOVER                              
058275,000516: 
058276,000517: 10,2317           54155        GOMARK             TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP
058277,000518: 

Page 1352

058279,000520: 10,2320           34726        GOMARS             CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
058280,000521: 10,2321           12473                           TCF      GOFLASH2                              
058281,000522: 
058282,000523: 10,2322           34746        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
058283,000524: 10,2323           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
058284,000525: 
058285,000526: 10,2324           33043                           CAF      MARKFMSK                              #  MARK,FLASH
058286,000527: 10,2325           12473                           TCF      GOFLASH2                              
058287,000528: 
058288,000529: 10,2326           54155        PRIOMONR           TS       PLAYTEM1                              
058289,000530: 10,2327           33553                           CAF      PRIMNMSK                              #  PRIORITY,MONITOR,FLASHING DISPLAY
058290,000531: 10,2330           12473                           TCF      GOFLASH2                              
058291,000532: 
058292,000533: 10,2331           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
058293,000534: 10,2332           33526        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
058294,000535: 10,2333           12473                           TCF      GOFLASH2                              
058295,000536: 10,2334           54155        GOMARK3            TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
058296,000537: 10,2335           33513                           CAF      MARK3MSK                              
058297,000538: 10,2336           12473                           TCF      GOFLASH2                              
058298,000539: 
058299,000540: 10,2337           54155        GOMARK4            TS       PLAYTEM1                              
058300,000541: 10,2340           33514                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
058301,000542: 10,2341           12473                           TCF      GOFLASH2                              
058302,000543: 
058303,000544: 10,2342           54155        GOMARKR            TS       PLAYTEM1                              #  ENTR+NCE FOR MARK GODSPR
058304,000545: 
058305,000546: 10,2343           34726                           CAF      BIT15                                 
058306,000547: 10,2344           12446                           TCF      GODSPR2                               
058307,000548: 
058308,000549: 10,2345           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
058309,000550: 
058310,000551: 10,2346           33043                           CAF      MARKFMSK                              
058311,000552: 10,2347           12651                           TCF      GODSPRS                               
058312,000553: 
058313,000554: 10,2350           54155        GOMARK2R           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
058314,000555: 10,2351           33526                           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
058315,000556: 10,2352           12651                           TCF      GODSPRS                               
058316,000557: 10,2353           65014                 -1        AD       PRIO13                                
058317,000558: 10,2354           54155        GOMARK3R           TS       PLAYTEM1                              
058318,000559: 10,2355           33513                           CAF      MARK3MSK                              
058319,000560: 10,2356           12651                           TCF      GODSPRS                               
058320,000561: 
058321,000562: 10,2357           34744        MAKEMARK           CAF      ONE                                   
058322,000563: 10,2360           02747                           TC       COPIES                                
058323,000564: 
058324,000565: 10,2361           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
058325,000566: 10,2362           73527                           MASK     OCT34300                              
058326,000567: 10,2363           10000                           CCS      A                                     
058327,000568: 10,2364           12422                           TCF      CHKPRIO                               
058328,000569: 

Page 1353

058330,000571: 10,2365           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY
058331,000572: 10,2366           74734                           MASK     MRKNVBIT                              
058332,000573: 10,2367           00006                           EXTEND                                         
058333,000574: 10,2370           12372                           BZF      MARKPLAY                              #  NO
058334,000575: 
058335,000576: 10,2371           15146                           TCF      ENDOFJOB                              
058336,000577: 
058337,000578: 10,2372           00004        MARKPLAY           INHINT                                         
058338,000579: 10,2373           44747                           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
058339,000580: 10,2374           70100                           MASK     FLAGWRD4                              
058340,000581: 10,2375           64744                           AD       ONE                                   
058341,000582: 10,2376           54100                           TS       FLAGWRD4                              
058342,000583: 10,2377           00003                           RELINT                                         
058343,000584: 
058344,000585: 10,2400           41070        GOGOMARK           CS       MARKFLAG                              #  PERFORM
058345,000586: 10,2401           74740                           MASK     BIT5                                  
058346,000587: 10,2402           10000                           CCS      A                                     
058347,000588: 10,2403           12406                           TCF      MARKCOP                               
058348,000589: 10,2404           40367                           CS       MARKNV                                
058349,000590: 10,2405           54367                           TS       MARKNV                                
058350,000591: 
058351,000592: 10,2406           34744        MARKCOP            CAF      ONE                                   #  MARK INDEX
058352,000593: 10,2407           12630                           TCF      PRIOPLAY                              
058353,000594: 
058354,000595: 10,2410           30165        COPYTOGO           CA       MPAC2SAV                              
058355,000596: 10,2411           54156                           TS       MPAC       +2                         
058356,000597: 
058357,000598: 10,2412           50164        COPYPACS           INDEX    COPINDEX                              
058358,000599: 10,2413           33537                           CAF      PRIOOCT                               
058359,000600: 10,2414           54162                           TS       GENMASK                               
058360,000601: 
058361,000602: 10,2415           50164                           INDEX    COPINDEX                              
058362,000603: 10,2416           31067                           CAF      EBANKSAV                              
058363,000604: 10,2417           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
058364,000605: 
058365,000606: 10,2420           54003                           TS       EBANK                                 
058366,000607: 
058367,000608: 10,2421           00002                           TC       Q                                     
058368,000609: 
058369,000610:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
058370,000611:                                                                                                  #  (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
058371,000612:                                                                                                  #  REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
058372,000613:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
058373,000614: 
058374,000615:                                                                                                  #  IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
058375,000616:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
058376,000617: 
058377,000618: 10,2422           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
058378,000619: 10,2423           73274                           MASK     OCT24100                              
058379,000620: 10,2424           10000                           CCS      A                                     
058380,000621: 

Page 1354

058382,000623: 10,2425           13462                           TCF      MARSLEEP                              
058383,000624: 
058384,000625: 10,2426           40100                           CS       FLAGWRD4                              
058385,000626: 10,2427           74742                           MASK     MKOVBIT                               #  SET MARK OVER NORM
058386,000627: 10,2430           00004                           INHINT                                         
058387,000628: 10,2431           26100                           ADS      FLAGWRD4                              
058388,000629: 
058389,000630: 10,2432           12534                           TCF      SETNORM                               
058390,000631: 
058391,000632: 10,2433           30367        MARKPERF           CA       MARKNV                                
058392,000633: 10,2434           74144                           MASK     VERBMASK                              
058393,000634: 10,2435           13140                           TCF      NV50DSP                               
058394,000635: 
058395,000636: 10,2436           54155        GODSP              TS       PLAYTEM1                              
058396,000637: 
058397,000638: 10,2437           34746        GODSP2             CAF      ZERO                                  
058398,000639: 10,2440           12473                           TCF      GOFLASH2                              
058399,000640: 
058400,000641: 10,2441           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
058401,000642: 
058402,000643: 10,2442           34737                           CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
058403,000644: 10,2443           12473                           TCF      GOFLASH2                              
058404,000645: 
058405,000646: 10,2444           54155        GODSPR             TS       PLAYTEM1                              
058406,000647: 
058407,000648: 10,2445           34746        GODSPR1            CAF      ZERO                                  
058408,000649: 10,2446           54160        GODSPR2            TS       PLAYTEM4                              
058409,000650: 
058410,000651: 10,2447           34746                           CAF      ZERO                                  #  * DONT MOVE
058411,000652: 10,2450           12653                           TCF      GODSPRS1                              
058412,000653: 
058413,000654:                                                                                                  #  CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
058414,000655:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
058415,000656: 
058416,000657:                                                                                                  #  NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
058417,000658:                                                                                                  #  OLD DISPLAY.
058418,000659: 
058419,000660:                                                                                                  #  CALLING SEQUENCE FOR CLEANDSP-
058420,000661: 
058421,000662:                                                                                                  #                TC      BANKCALL
058422,000663:                                                                                                  #                CADR    CLEANDSP
058423,000664: 
058424,000665: 10,2451           34746        CLEANDSP           CAF      ZERO                                  
058425,000666: 10,2452           54155        REFLASH            TS       PLAYTEM1                              
058426,000667: 
058427,000668: 10,2453           33512                           CAF      REDOMASK                              #  FLASH AND PERMIT
058428,000669: 10,2454           12473                           TCF      GOFLASH2                              
058429,000670: 
058430,000671: 10,2455           54155        REFLASHR           TS       PLAYTEM1                              
058431,000672: 

Page 1355

058433,000674: 10,2456           33512                           CAF      REDOMASK                              #  FLASH AND PERMIT
058434,000675: 10,2457           12651                           TCF      GODSPRS                               
058435,000676: 
058436,000677: 10,2460           54155        REGODSP            TS       PLAYTEM1                              
058437,000678: 
058438,000679: 10,2461           34727                           CAF      BIT14                                 
058439,000680: 10,2462           12473                           TCF      GOFLASH2                              
058440,000681: 
058441,000682: 10,2463           54155        REGODSPR           TS       PLAYTEM1                              
058442,000683: 
058443,000684: 10,2464           34727                           CAF      BIT14                                 
058444,000685: 10,2465           12446                           TCF      GODSPR2                               
058445,000686: 
058446,000687: 10,2466           54155        CLOCPLAY           TS       PLAYTEM1                              
058447,000688: 10,2467           33551                           CAF      CLOCKCON                              
058448,000689: 10,2470           12473                           TCF      GOFLASH2                              
058449,000690: 
058450,000691: 10,2471           54155        GOFLASH            TS       PLAYTEM1                              
058451,000692: 
058452,000693: 10,2472           34741                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
058453,000694: 10,2473           54160        GOFLASH2           TS       PLAYTEM4                              
058454,000695: 
058455,000696: 10,2474           02734                           TC       SAVELOCS                              
058456,000697: 
058457,000698: 10,2475           00003                           RELINT                                         
058458,000699: 
058459,000700: 10,2476           12560                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
058460,000701: 
058461,000702: 10,2477           54155        PRIODSPR           TS       PLAYTEM1                              
058462,000703: 
058463,000704: 10,2500           33531                           CAF      BITS7+4                               
058464,000705: 10,2501           12651                           TCF      GODSPRS                               
058465,000706: 
058466,000707: 10,2502           54155        PRIODSP            TS       PLAYTEM1                              
058467,000708: 
058468,000709: 10,2503           33531        SETPRIO            CAF      BITS7+4                               
058469,000710: 10,2504           12473                           TCF      GOFLASH2                              
058470,000711: 
058471,000712: 10,2505           34746        MAKEPRIO           CAF      ZERO                                  
058472,000713: 10,2506           54164                           TS       COPINDEX                              
058473,000714: 
058474,000715: 10,2507           03402                           TC       LINUSCHR                              
058475,000716: 10,2510           12515                           TCF      HIPRIO                                #  LINUS RETURN
058476,000717: 10,2511           30100                           CA       FLAGWRD4                              
058477,000718: 10,2512           73550                           MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
058478,000719: 10,2513           10000                           CCS      A                                     
058479,000720: 10,2514           12607                           TCF      PRIOBORT                              #  YES, ABORT
058480,000721: 
058481,000722: 10,2515           00004        HIPRIO             INHINT                                         
058482,000723: 10,2516           41035                           CS       DSPTAB     +11D                       #  SET BITS 15 AND 1
058483,000724: 

Page 1356

058485,000726: 10,2517           76130                           MASK     OCT40001                              #  (WHATEVER THEIR PREVIOUS STATE)
058486,000727: 10,2520           27035                           ADS      DSPTAB     +11D                       #    TO TURN ON SUPER-KEYRELEASE LIGHT
058487,000728: 
058488,000729: 10,2521           00003                           RELINT                                         
058489,000730: 10,2522           30100                           CA       FLAGWRD4                              #  MARK ACTIVE
058490,000731: 10,2523           75634                           MASK     OCT40400                              
058491,000732: 10,2524           00006                           EXTEND                                         
058492,000733: 10,2525           12530                           BZF      ASKIFNRM                              #  NO
058493,000734: 
058494,000735: 10,2526           34746        SETMARK            CAF      ZERO                                  
058495,000736: 10,2527           13006                           TCF      JOBXCHS                               
058496,000737: 
058497,000738: 10,2530           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE
058498,000739: 10,2531           73546                           MASK     OCT10200                              #  BITS 13+8
058499,000740: 10,2532           00006                           EXTEND                                         
058500,000741: 10,2533           12536                           BZF      OKTOCOPY                              #  NO
058501,000742: 
058502,000743: 10,2534           34744        SETNORM            CAF      ONE                                   
058503,000744: 10,2535           13006                           TCF      JOBXCHS                               
058504,000745: 
058505,000746: 10,2536           02746        OKTOCOPY           TC       COPYNORM                              
058506,000747: 10,2537           03225                           TC       WITCHONE                              
058507,000748: 
058508,000749: 10,2540           05130                           TC       JOBWAKE                               
058509,000750: 
058510,000751: 10,2541           03242                           TC       XCHTOEND                              
058511,000752: 
058512,000753: 10,2542           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
058513,000754: 10,2543           55164                           TS       PRIOTIME                              
058514,000755: 
058515,000756: 10,2544           34746        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
058516,000757: 10,2545           54164                           TS       COPINDEX                              
058517,000758: 10,2546           41067                           CS       DSPFLG                                
058518,000759: 10,2547           74735                           MASK     BIT8                                  
058519,000760: 10,2550           10000                           CCS      A                                     
058520,000761: 10,2551           13102                           TCF      NVDSP                                 
058521,000762: 10,2552           30366                           CA       NVWORD                                
058522,000763: 10,2553           74144                           MASK     MID7                                  
058523,000764: 10,2554           54001                           TS       L                                     
058524,000765: 10,2555           40366                           CS       NVWORD                                
058525,000766: 10,2556           54366                           TS       NVWORD                                
058526,000767: 10,2557           13103                           TCF      NVDSP      +1                         
058527,000768: 
058528,000769: 10,2560           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
058529,000770: 10,2561           77746                           MASK     PRIO37                                
058530,000771: 10,2562           54163                           TS       USERPRIO                              
058531,000772: 
058532,000773: 10,2563           37742                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
058533,000774: 10,2564           05137                           TC       PRIOCHNG                              
058534,000775: 

Page 1357

058536,000777: 10,2565           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
058537,000778: 10,2566           73530                           MASK     BITS15+7                              
058538,000779: 10,2567           10000                           CCS      A                                     
058539,000780: 10,2570           12505                           TCF      MAKEPRIO                              #  ITS PRIO
058540,000781: 10,2571           12573                           TCF      IFLEGAL                               
058541,000782: 10,2572           12357                           TCF      MAKEMARK                              #  ITS MARK
058542,000783: 
058543,000784: 10,2573           34743        IFLEGAL            CAF      TWO                                   
058544,000785: 10,2574           54164                           TS       COPINDEX                              
058545,000786: 
058546,000787: 10,2575           03402                           TC       LINUSCHR                              
058547,000788: 
058548,000789: 10,2576           12611                           TCF      OKTOPLAY                              #  LINUS RETURN
058549,000790: 10,2577           41071                           CS       EBANKTEM                              
058550,000791: 10,2600           74741                           MASK     BIT4                                  
058551,000792: 10,2601           10000                           CCS      A                                     
058552,000793: 10,2602           12611                           TCF      OKTOPLAY                              #  NO
058553,000794: 
058554,000795: 10,2603           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP
058555,000796: 10,2604           73521                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
058556,000797: 10,2605           00006                           EXTEND                                         
058557,000798: 10,2606           12611                           BZF      OKTOPLAY                              #  NO
058558,000799: 
058559,000800: 10,2607           05626        PRIOBORT           TC       BAILOUT                               
058560,000801: 10,2610           31502                           OCT      31502                                 
058561,000802: 
058562,000803: 10,2611           02750        OKTOPLAY           TC       COPIES2                               
058563,000804: 
058564,000805: 10,2612           30163                           CA       USERPRIO                              
058565,000806: 10,2613           00006                           EXTEND                                         
058566,000807: 10,2614           04007                           ROR      SUPERBNK                              
058567,000808: 10,2615           55264                           TS       RESTREG                               
058568,000809: 
058569,000810: 10,2616           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
058570,000811: 10,2617           73522                           MASK     PMMASK                                
058571,000812: 10,2620           10000                           CCS      A                                     
058572,000813: 10,2621           12766                           TCF      GOSLEEPS                              #  YES
058573,000814: 
058574,000815: 10,2622           12624                           TCF      +2                                    
058575,000816: 10,2623           12766                           TCF      GOSLEEPS                              #  MARK GOING
058576,000817: 
058577,000818:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
058578,000819: 10,2624           03225                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
058579,000820: 10,2625           05130                           TC       JOBWAKE                               
058580,000821: 
058581,000822: 10,2626           03242                           TC       XCHTOEND                              
058582,000823: 
058583,000824: 10,2627           34743        PLAYJUM1           CAF      TWO                                   
058584,000825: 10,2630           54164        PRIOPLAY           TS       COPINDEX                              
058585,000826: 

Page 1358

058587,000828: 10,2631           13102                           TCF      GOPLAY                                
058588,000829: 
058589,000830: 10,2632           54155        EXDSPRET           TS       PLAYTEM1                              
058590,000831: 
058591,000832: 10,2633           37755                           CAF      BIT15+6                               
058592,000833: 10,2634           12473                           TCF      GOFLASH2                              
058593,000834: 
058594,000835: 10,2635           55044        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
058595,000836: 10,2636           33504                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
058596,000837: 
058597,000838: 10,2637           54155        GOPERFS            TS       PLAYTEM1                              
058598,000839: 
058599,000840: 10,2640           33503                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
058600,000841: 10,2641           12473                           TCF      GOFLASH2                              
058601,000842: 
058602,000843: 10,2642           54155        GOPERF2            TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
058603,000844: 
058604,000845: 10,2643           33507                           CAF      PERF2MSK                              
058605,000846: 10,2644           12473                           TCF      GOFLASH2                              
058606,000847: 
058607,000848: 10,2645           02727        GOPERF4            TC       PURRS4                                
058608,000849: 
058609,000850: 10,2646           12473                           TCF      GOFLASH2                              
058610,000851: 
058611,000852: 10,2647           54155        GOFLASHR           TS       PLAYTEM1                              
058612,000853: 
058613,000854: 10,2650           34741                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
058614,000855: 10,2651           54160        GODSPRS            TS       PLAYTEM4                              
058615,000856: 
058616,000857: 10,2652           36266                           CAF      THREE                                 
058617,000858: 
058618,000859: 10,2653           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
058619,000860: 10,2654           54072                           TS       RUPTREG3                              
058620,000861: 
058621,000862: 10,2655           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
058622,000863: 10,2656           77746                           MASK     PRIO37                                
058623,000864: 10,2657           54063                           TS       NEWPRIO                               
058624,000865: 
058625,000866: 10,2660           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
058626,000867: 10,2661           74741                           MASK     BIT4                                  
058627,000868: 10,2662           10000                           CCS      A                                     
058628,000869: 10,2663           12671                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
058629,000870: 10,2664           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
058630,000871: 10,2665           05063                           TC       NOVAC                                 
058631,000872: 10,2666  E7,1471                                  EBANK=   WHOCARES                              
058632,000873: 10,2666           02560 20067                     2CADR    MAKEPLAY                              
058633,000874: 
058634,000875: 10,2670           12677                           TCF      BOTHJOBS                              
058635,000876: 
058636,000877: 10,2671           30006        VACDSP             CA       BBANK                                 
058637,000878: 

Page 1359

058639,000880: 10,2672           00006                           EXTEND                                         
058640,000881: 10,2673           04007                           ROR      SUPERBNK                              
058641,000882: 10,2674           54001                           TS       L                                     
058642,000883: 10,2675           33545                           CAF      MAKEGEN                               
058643,000884: 10,2676           05107                           TC       SPVAC                                 
058644,000885: 
058645,000886: 10,2677           02734        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
058646,000887: 
058647,000888: 10,2700           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
058648,000889: 10,2701           30156                           DCA      MPAC       +1                         
058649,000890: 10,2702           50064                           INDEX    LOCCTR                                
058650,000891: 10,2703           52156                           DXCH     MPAC       +1                         
058651,000892: 
058652,000893: 10,2704           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
058653,000894: 10,2705           30160                           DCA      MPAC       +3                         
058654,000895: 10,2706           50064                           INDEX    LOCCTR                                
058655,000896: 10,2707           52160                           DXCH     MPAC       +3                         
058656,000897: 
058657,000898: 10,2710           30064                           CA       LOCCTR                                
058658,000899: 10,2711           54161                           TS       MPAC       +5                         
058659,000900: 
058660,000901: 10,2712           02741                           TC       SAVELOCR                              
058661,000902: 10,2713           00003                           RELINT                                         
058662,000903: 
058663,000904: 10,2714           14631                           TCF      BANKJUMP                              #  CALL CADR +4
058664,000905: 
058665,000906: 10,2715           55044        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
058666,000907: 
058667,000908: 10,2716           33504                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
058668,000909: 
058669,000910: 10,2717           54155        GOPERFRS           TS       PLAYTEM1                              
058670,000911: 
058671,000912: 10,2720           33503                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
058672,000913: 10,2721           12651                           TCF      GODSPRS                               
058673,000914: 
058674,000915: 10,2722           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
058675,000916: 
058676,000917: 10,2723           33507                           CAF      PERF2MSK                              
058677,000918: 10,2724           12651                           TCF      GODSPRS                               
058678,000919: 
058679,000920: 10,2725           02727        GOPERF4R           TC       PURRS4                                
058680,000921: 
058681,000922: 10,2726           12651                           TCF      GODSPRS                               
058682,000923: 
058683,000924: 10,2727           55143        PURRS4             TS       OPTION1                               #  DESIRED OPTION CODE
058684,000925: 
058685,000926: 10,2730           33510                           CAF      V04N06                                
058686,000927: 10,2731           54155                           TS       PLAYTEM1                              
058687,000928: 
058688,000929: 10,2732           33511                           CAF      PERF4MSK                              #  FLASH,PERFORM AND BLANK R3
058689,000930: 

Page 1360

058691,000932: 10,2733           00002                           TC       Q                                     
058692,000933: 
058693,000934: 10,2734           00004        SAVELOCS           INHINT                                         
058694,000935: 
058695,000936: 10,2735           43520                           CS       OCT3400                               #  EBANK BITS
058696,000937: 10,2736           70160                           MASK     PLAYTEM4                              
058697,000938: 10,2737           60003                           AD       EBANK                                 
058698,000939: 10,2740           54160                           TS       PLAYTEM4                              
058699,000940: 
058700,000941: 10,2741           22002        SAVELOCR           LXCH     Q                                     
058701,000942: 
058702,000943: 10,2742           04636                           TC       MAKECADR                              
058703,000944: 10,2743           54157                           TS       PLAYTEM3                              
058704,000945: 
058705,000946: 10,2744           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
058706,000947: 10,2745           00001                           TC       L                                     
058707,000948: 
058708,000949: 10,2746           34746        COPYNORM           CAF      ZERO                                  
058709,000950: 10,2747           54164        COPIES             TS       COPINDEX                              
058710,000951: 10,2750           00004        COPIES2            INHINT                                         
058711,000952: 10,2751           30160                           CA       PLAYTEM4                              #  FLAGWORD
058712,000953: 10,2752           50164                           INDEX    COPINDEX                              
058713,000954: 10,2753           55067                           TS       EBANKSAV                              #  EQUIV TO DSPFLG
058714,000955: 
058715,000956: 10,2754           73536                           MASK     CADRMASK                              #  FLASH AND GODSPRET
058716,000957: 10,2755           00006                           EXTEND                                         
058717,000958: 10,2756           12762                           BZF      SKIPADD                               
058718,000959: 
058719,000960: 10,2757           30157                           CA       PLAYTEM3                              
058720,000961: 10,2760           50164                           INDEX    COPINDEX                              
058721,000962: 10,2761           54371                           TS       CADRFLSH                              
058722,000963: 
058723,000964: 10,2762           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
058724,000965: 10,2763           50164                           INDEX    COPINDEX                              
058725,000966: 10,2764           54366                           TS       NVWORD                                
058726,000967: 
058727,000968: 10,2765           13251                           TCF      RELINTQ                               
058728,000969: 
058729,000970: 10,2766           50164        GOSLEEPS           INDEX    COPINDEX                              
058730,000971: 10,2767           33537                           CA       PRIOOCT                               
058731,000972: 10,2770           72772                           MASK     WAITMASK                              
058732,000973: 10,2771           03554                           TC       UPENT2                                
058733,000974: 10,2772           03004        WAITMASK           OCT      3004                                  
058734,000975: 10,2773           44744                           CS       ONE                                   
058735,000976: 10,2774           60164                           AD       COPINDEX                              
058736,000977: 10,2775           54154                           TS       FACEREG                               
058737,000978: 
058738,000979: 10,2776           50154        XCHSLEEP           INDEX    FACEREG                               
058739,000980: 10,2777           33516                           CAF      WAKECADR                              
058740,000981: 10,3000           00004                           INHINT                                         
058741,000982: 

Page 1361

058743,000984: 10,3001           05130                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
058744,000985: 
058745,000986: 10,3002           03242                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
058746,000987: 
058747,000988: 10,3003           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
058748,000989: 10,3004           33516                           CAF      WAKECADR                              
058749,000990: 10,3005           15124                           TCF      JOBSLEEP                              
058750,000991: 
058751,000992: 10,3006           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
058752,000993: 10,3007           03225                           TC       WITCHONE                              
058753,000994: 10,3010           05130                           TC       JOBWAKE                               
058754,000995: 10,3011           30154                           CA       FACEREG                               
058755,000996: 10,3012           50064                           INDEX    LOCCTR                                
058756,000997: 10,3013           54154                           TS       FACEREG                               
058757,000998: 
058758,000999: 10,3014           33027                           CAF      XCHQADD                               
058759,001000: 10,3015           03243                           TC       XCHNYLOC                              
058760,001001: 
058761,001002: 10,3016           50154                           INDEX    FACEREG                               
058762,001003: 10,3017           33540                           CA       MARKOCT                               
058763,001004: 10,3020           73542                           MASK     IDLESLEP                              
058764,001005: 10,3021           03564                           TC       DOWNENT2                              
058765,001006: 10,3022           74004        IDLEMASK           OCT      74004                                 #  * DONT MOVE
058766,001007: 
058767,001008: 10,3023           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
058768,001009: 10,3024           34740                           CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL
058769,001010: 10,3025           64742                           AD       FOUR                                  
058770,001011: 10,3026           03554                           TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
058771,001012: 10,3027           02776        XCHQADD            GENADR   XCHSLEEP                              #  * DONT MOVE
058772,001013: 10,3030           30100                           CA       FLAGWRD4                              
058773,001014: 10,3031           74742                           MASK     MKOVBIT                               #  MARK OVER NORM ?
058774,001015: 10,3032           10000                           CCS      A                                     
058775,001016: 10,3033           02372        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
058776,001017: 10,3034           12536                           TCF      OKTOCOPY                              
058777,001018: 
058778,001019: 10,3035           34746        MARKWAKE           CAF      ZERO                                  
058779,001020: 10,3036           54160        WAKEPLAY           TS       TEMPOR2                               
058780,001021: 
058781,001022: 10,3037           50160                           INDEX    TEMPOR2                               
058782,001023: 10,3040           33532                           CA       BITS5+11                              
058783,001024: 10,3041           64742                           AD       FOUR                                  
058784,001025: 10,3042           03564                           TC       DOWNENT2                              
058785,001026: 10,3043           40010        MARKFMSK           OCT      40010                                 #  ***DONT MOVE
058786,001027: 
058787,001028: 10,3044           50160                           INDEX    TEMPOR2                               
058788,001029: 10,3045           33516                           CAF      WAKECADR                              
058789,001030: 10,3046           00004                           INHINT                                         
058790,001031: 10,3047           05130                           TC       JOBWAKE                               
058791,001032: 
058792,001033: 10,3050           13355                           TCF      ENDRET                                
058793,001034: 

Page 1362

058795,001036:                                                                                                  #        ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
058796,001037:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
058797,001038: 
058798,001039:                                                                                                  #        IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
058799,001040:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
058800,001041: 
058801,001042: 10,3051           31071        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
058802,001043: 10,3052           54003                           TS       EBANK                                 
058803,001044: 
058804,001045: 10,3053           31264                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
058805,001046: 10,3054           04720                           TC       SUPERSW                               #  RESTORE SUPERBANK
058806,001047: 
058807,001048: 10,3055           77746                           MASK     PRIO37                                
058808,001049: 10,3056           05137                           TC       PRIOCHNG                              
058809,001050: 
058810,001051: 10,3057           46266                           CS       THREE                                 
058811,001052: 10,3060           60373                           AD       TEMPFLSH                              
058812,001053: 10,3061           14631                           TCF      BANKJUMP                              
058813,001054: 
058814,001055: 10,3062           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
058815,001056: 10,3063           31072                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
058816,001057: 10,3064           54156                           TS       MPAC       +2                         #  ONLY
058817,001058: 
058818,001059: 10,3065           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION
058819,001060: 10,3066           77761                           MASK     PINMASK                               
058820,001061: 10,3067           10000                           CCS      A                                     
058821,001062: 10,3070           13073                           TCF      +3                                    
058822,001063: 10,3071           13477                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
058823,001064: 10,3072           12372                           TCF      MARKPLAY                              
058824,001065: 
058825,001066: 10,3073           05506        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
058826,001067: 10,3074           00105                           ADRES    PINBRFLG                              
058827,001068: 
058828,001069: 10,3075           34727                           CAF      PRIODBIT                              #  PRIO INTERRUPTED
058829,001070: 10,3076           70100                           MASK     FLAGWRD4                              
058830,001071: 10,3077           10000                           CCS      A                                     
058831,001072: 10,3100           12544                           TCF      KEEPPRIO                              
058832,001073: 
058833,001074: 10,3101           12627                           TCF      PLAYJUM1                              
058834,001075: 
058835,001076: 10,3102           22007        NVDSP              ZL                                             
058836,001077: 10,3103           02412                           TC       COPYPACS                              
058837,001078: 
058838,001079: 10,3104           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
058839,001080: 10,3105           74750                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
058840,001081: 10,3106           26001                           ADS      L                                     
058841,001082: 
058842,001083: 10,3107           44730                           CS       BIT13                                 
058843,001084: 10,3110           50164                           INDEX    COPINDEX                              
058844,001085: 10,3111           71067                           MASK     DSPFLG                                
058845,001086: 10,3112           50164                           INDEX    COPINDEX                              
058846,001087: 

Page 1363

058848,001089: 10,3113           55067                           TS       DSPFLG                                
058849,001090: 
058850,001091: 10,3114           74735                           MASK     BIT8                                  #  BIT 8 SET IF PRIO MONITOR OR DEC MARK
058851,001092: 10,3115           50164                           INDEX    COPINDEX                              
058852,001093: 10,3116           13117                           TCF      +1                                    
058853,001094: 10,3117           33552                           CA       OCT2600                               #  CAUSES V16 TO BE IN A AT NVMONOPT
058854,001095: 10,3120           54141                           TS       TEM1                                  #  SET, BIT 8 IN TEM1 IF DEC MARK
058855,001096: 10,3121           30156                           CA       MPAC       +2                         
058856,001097: 10,3122           54165                           TS       MPAC2SAV                              
058857,001098: 
058858,001099: 10,3123           55072                           TS       MARK2PAC                              #  * FOR DISK ONLY *
058859,001100: 10,3124           50164                           INDEX    COPINDEX                              
058860,001101: 10,3125           10366                           CCS      NVWORD                                
058861,001102: 10,3126           13137                           TCF      NVDSP1                                
058862,001103: 10,3127           13253                           TCF      CLEANEND                              
058863,001104: 10,3130           50164                           INDEX    COPINDEX                              
058864,001105: 10,3131           40366                           CS       NVWORD                                
058865,001106: 10,3132           50164                           INDEX    COPINDEX                              
058866,001107: 10,3133           54366                           TS       NVWORD                                
058867,001108: 10,3134           76115                           MASK     LOW7                                  
058868,001109: 10,3135           63523                           AD       V05N00M1                              
058869,001110: 10,3136           60141                           AD       TEM1                                  
058870,001111: 10,3137           64744        NVDSP1             AD       ONE                                   
058871,001112: 10,3140           04146        NV50DSP            TC       NVMONOPT                              
058872,001113: 10,3141           13265                           TCF      REST                                  #  IF BUSY
058873,001114: 10,3142           04424                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
058874,001115: 
058875,001116: 10,3143           02410                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
058876,001117: 10,3144           05520                           TC       DOWNFLAG                              #  UNSET SLEEPING BITS
058877,001118: 10,3145           00102                           ADRES    MRKNVFLG                              
058878,001119: 10,3146           05520                           TC       DOWNFLAG                              
058879,001120: 10,3147           00103                           ADRES    NRMNVFLG                              
058880,001121: 10,3150           05520                           TC       DOWNFLAG                              
058881,001122: 10,3151           00104                           ADRES    PRONVFLG                              
058882,001123: 10,3152           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
058883,001124: 10,3153           04246                           TC       BLANKSUB                              
058884,001125: 10,3154           13102                           TCF      NVDSP                                 
058885,001126: 10,3155           34740        PERFCHEK           CAF      BIT5                                  #  BIT5 FOR PERFORM
058886,001127: 10,3156           70160                           MASK     TEMPOR2                               
058887,001128: 10,3157           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
058888,001129: 10,3160           13203                           TCF      1STOR2ND                              #  YES
058889,001130: 
058890,001131: 10,3161           34741        GOANIDLE           CAF      BIT4                                  
058891,001132: 10,3162           70160                           MASK     TEMPOR2                               
058892,001133: 10,3163           10000                           CCS      A                                     
058893,001134: 10,3164           13300                           TCF      FLASHSUB                              #  IT IS
058894,001135: 
058895,001136: 10,3165           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
058896,001137: 10,3166           74737                           MASK     BIT6                                  
058897,001138: 10,3167           10000                           CCS      A                                     
058898,001139: 

Page 1364

058900,001141: 10,3170           13175                           TCF      ISITN00                               
058901,001142: 
058902,001143: 10,3171           50164                           INDEX    COPINDEX                              
058903,001144: 10,3172           30371                           CA       CADRFLSH                              
058904,001145: 10,3173           54157                           TS       MPAC       +3                         
058905,001146: 10,3174           13373                           TCF      ENDIT                                 
058906,001147: 
058907,001148: 10,3175           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
058908,001149: 10,3176           30366                           CA       NVWORD                                
058909,001150: 10,3177           76115                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
058910,001151: 10,3200           00006                           EXTEND                                         
058911,001152: 10,3201           13300                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
058912,001153: 
058913,001154: 10,3202           15146                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
058914,001155: 
058915,001156: 10,3203           30160        1STOR2ND           CA       TEMPOR2                               
058916,001157: 10,3204           74730                           MASK     BIT13                                 
058917,001158: 10,3205           10000                           CCS      A                                     
058918,001159: 10,3206           13161                           TCF      GOANIDLE                              #  SECOND
058919,001160: 
058920,001161: 10,3207           34730                           CA       BIT13                                 
058921,001162: 10,3210           50164                           INDEX    COPINDEX                              
058922,001163: 10,3211           27067                           ADS      DSPFLG                                
058923,001164: 
058924,001165: 10,3212           22007                           ZL                                             
058925,001166: 10,3213           00006                           EXTEND                                         #  IS IT MARK
058926,001167: 10,3214           62433                           BZMF     MARKPERF                              #  YES
058927,001168: 
058928,001169: 10,3215           74731                           MASK     BIT12                                 
058929,001170: 10,3216           00006                           EXTEND                                         
058930,001171: 10,3217           13223                           BZF      V50PASTE                              
058931,001172: 10,3220           41066                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97.  NVWORD1= -400 IS V99
058932,001173: 10,3221           63547                           AD       V97N00                                
058933,001174: 10,3222           13140                           TCF      NV50DSP                               
058934,001175: 10,3223           33506        V50PASTE           CAF      V50N00                                
058935,001176: 10,3224           13140                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
058936,001177: 
058937,001178: 10,3225           44740        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
058938,001179: 10,3226           00006                           EXTEND                                         
058939,001180: 10,3227           03011                           WAND     DSALMOUT                              
058940,001181: 
058941,001182: 10,3230           30100                           CA       FLAGWRD4                              
058942,001183: 10,3231           73524                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
058943,001184: 10,3232           10000                           CCS      A                                     
058944,001185: 10,3233           34744                           CAF      ONE                                   
058945,001186: 10,3234           54001                           TS       L                                     
058946,001187: 10,3235           34746                           CAF      ZERO                                  
058947,001188: 10,3236           50001                           INDEX    L                                     
058948,001189: 10,3237           57041                           XCH      CADRSTOR                              
058949,001190: 

Page 1365

058951,001192: 10,3240           00004                           INHINT                                         
058952,001193: 10,3241           00002                           TC       Q                                     
058953,001194: 
058954,001195: 10,3242           34210        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
058955,001196: 10,3243           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
058956,001197: 10,3244           00006                           EXTEND                                         
058957,001198: 10,3245           63251                           BZMF     RELINTQ                               #  NO
058958,001199: 10,3246           56064                           XCH      LOCCTR                                #  YES
058959,001200: 10,3247           50064                           INDEX    LOCCTR                                
058960,001201: 10,3250           54164                           TS       LOC                                   
058961,001202: 
058962,001203: 10,3251           00003        RELINTQ            RELINT                                         
058963,001204: 10,3252           00002                           TC       Q                                     #  BACK TO USER
058964,001205: 
058965,001206: 10,3253           37741        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
058966,001207: 10,3254           05076                           TC       FINDVAC                               
058967,001208: 10,3255     0370                                  EBANK=   NVSAVE                                
058968,001209: 10,3255           04222 04060                     2CADR    JAMTERM                               
058969,001210: 
058970,001211: 10,3257           13301                           TCF      FLASHSUB   +1                         
058971,001212: 
058972,001213: 10,3260           30100        ISITPRIO           CA       FLAGWRD4                              
058973,001214: 10,3261           73306                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
058974,001215: 10,3262           00006                           EXTEND                                         
058975,001216: 10,3263           12607                           BZF      PRIOBORT                              
058976,001217: 10,3264           15146                           TCF      ENDOFJOB                              
058977,001218: 
058978,001219: 10,3265           11041        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
058979,001220: 10,3266           15146                           TCF      ENDOFJOB                              #  YES
058980,001221: 10,3267           13271                           TCF      RESTSLEP                              
058981,001222: 
058982,001223: 10,3270           15146                           TCF      ENDOFJOB                              
058983,001224: 
058984,001225: 10,3271           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
058985,001226: 10,3272           73525                           MASK     ASTROMSK                              
058986,001227: 10,3273           03554                           TC       UPENT2                                
058987,001228: 10,3274           24100        OCT24100           OCT      24100                                 #  *** DONT MOVE
058988,001229: 
058989,001230: 10,3275           50164                           INDEX    COPINDEX                              
058990,001231: 10,3276           33515                           CAF      NVCADR                                
058991,001232: 10,3277           04433                           TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
058992,001233: 
058993,001234: 10,3300           04420        FLASHSUB           TC       FLASHON                               
058994,001235: 
058995,001236: 10,3301           30164                           CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
058996,001237: 10,3302           54157                           TS       COPMPAC                               
058997,001238: 
058998,001239: 10,3303           30162                           CA       GENMASK                               
058999,001240: 10,3304           73022                           MASK     IDLEMASK                              
059000,001241: 

Page 1366

059002,001243: 10,3305           03554                           TC       UPENT2                                
059003,001244: 10,3306           40040        ITISMASK           OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
059004,001245: 
059005,001246: 10,3307           11041                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
059006,001247: 10,3310           13260                           TCF      ISITPRIO                              
059007,001248: 10,3311           13313                           TCF      +2                                    
059008,001249: 10,3312           13260                           TCF      ISITPRIO                              
059009,001250: 
059010,001251: 10,3313           04200                           TC       ENDIDLE                               
059011,001252: 10,3314           13400        IDLERET1           TCF      TERMATE                               
059012,001253: 
059013,001254: 10,3315           13417                           TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
059014,001255: 
059015,001256: 10,3316           43534                           CS       LOWLOAD                               
059016,001257: 10,3317           60154                           AD       MPAC                                  #  VERBREG
059017,001258: 10,3320           00006                           EXTEND                                         
059018,001259: 10,3321           26000                           DIM      A                                     
059019,001260: 10,3322           00006                           EXTEND                                         
059020,001261: 10,3323           13467                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
059021,001262: 10,3324           34743        OKTOENT            CAF      TWO                                   
059022,001263: 10,3325           54161        ENDOUT             TS       OUTHERE                               
059023,001264: 
059024,001265: 10,3326           30100                           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
059025,001266: 10,3327           74101                           MASK     OCT60000                              
059026,001267: 10,3330           10000                           CCS      A                                     
059027,001268: 10,3331           13334                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
059028,001269: 10,3332           13435                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
059029,001270: 10,3333           13421                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
059030,001271: 
059031,001272: 10,3334           40025        TIMECHEK           CS       TIME1                                 
059032,001273: 10,3335           61164                           AD       PRIOTIME                              
059033,001274: 10,3336           10000                           CCS      A                                     
059034,001275: 10,3337           40000                           COM                                            
059035,001276: 10,3340           67752                           AD       OCT37776                              
059036,001277: 10,3341           64744                           AD       ONE                                   
059037,001278: 10,3342           63600                           AD       -2SEC                                 
059038,001279: 10,3343           00006                           EXTEND                                         
059039,001280: 10,3344           62544                           BZMF     KEEPPRIO                              
059040,001281: 
059041,001282: 10,3345           00004                           INHINT                                         
059042,001283: 10,3346           46130                           CS       OCT40001                              #  TURN OFF SUPER-KEYRELEASE LIGHT
059043,001284: 10,3347           71035                           MASK     DSPTAB     +11D                       
059044,001285: 10,3350           64726                           AD       BIT15                                 
059045,001286: 10,3351           55035                           TS       DSPTAB     +11D                       
059046,001287: 
059047,001288: 10,3352           13435                           TCF      NORMRET                               
059048,001289: 
059049,001290: 10,3353           34744        NORMWAKE           CAF      ONE                                   
059050,001291: 10,3354           13036                           TCF      WAKEPLAY                              
059051,001292: 

Page 1367

059053,001294: 10,3355           10161        ENDRET             CCS      OUTHERE                               
059054,001295: 10,3356           64744                           AD       ONE                                   
059055,001296: 10,3357           13361                           TCF      +2                                    #  NORMAL ENDIDLE EXIT
059056,001297: 10,3360           15146                           TCF      ENDOFJOB                              
059057,001298: 10,3361           50157                           INDEX    COPMPAC                               
059058,001299: 10,3362           60371                           AD       CADRFLSH                              
059059,001300: 10,3363           54157                           TS       MPAC       +3                         
059060,001301: 
059061,001302: 10,3364           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
059062,001303: 10,3365           73367                           MASK     PINIDMSK                              
059063,001304: 10,3366           03564                           TC       DOWNENT2                              
059064,001305: 10,3367           74044        PINIDMSK           OCT      74044                                 #  *** DONT MOVE
059065,001306: 
059066,001307: 10,3370           46266                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
059067,001308: 10,3371           04145                           TC       NVSUB                                 
059068,001309: 10,3372           13373                           TCF      +1                                    
059069,001310: 
059070,001311: 10,3373           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
059071,001312: 10,3374           77746                           MASK     PRIO37                                
059072,001313: 10,3375           05137                           TC       PRIOCHNG                              
059073,001314: 10,3376           30157                           CA       MPAC       +3                         
059074,001315: 10,3377           14631                           TCF      BANKJUMP                              
059075,001316: 
059076,001317: 10,3400           34746        TERMATE            CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
059077,001318: 10,3401           13325                           TCF      ENDOUT                                
059078,001319: 
059079,001320: 10,3402           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
059080,001321: 10,3403           74727                           MASK     BIT14                                 
059081,001322: 10,3404           10000                           CCS      A                                     
059082,001323: 10,3405           16760                           TCF      Q+1                                   #  NO
059083,001324: 10,3406           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
059084,001325: 10,3407           50164                           INDEX    COPINDEX                              
059085,001326: 10,3410           60371                           AD       CADRFLSH                              
059086,001327: 10,3411           00006                           EXTEND                                         
059087,001328: 10,3412           13414                           BZF      +2                                    #  YES
059088,001329: 
059089,001330: 10,3413           00002                           TC       Q                                     #  NO
059090,001331: 10,3414           11011                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
059091,001332: 10,3415           05146                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
059092,001333: 10,3416           00002                           TC       Q                                     
059093,001334: 
059094,001335:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
059095,001336: 
059096,001337: 10,3417           34744        PROCEED            CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
059097,001338: 10,3420           13325                           TCF      ENDOUT                                
059098,001339: 
059099,001340:                                                                                                  #        LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
059100,001341:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
059101,001342:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
059102,001343: 
059103,001344:                                                                                                  #        IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
059104,001345: 

Page 1368

059106,001347:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
059107,001348:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
059108,001349:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
059109,001350: 
059110,001351: 10,3421           46263        MARKRET            CS       SIX                                   
059111,001352: 10,3422           70100                           MASK     FLAGWRD4                              
059112,001353: 10,3423           00004                           INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
059113,001354: 10,3424           54100                           TS       FLAGWRD4                              
059114,001355: 
059115,001356: 10,3425           00003                           RELINT                                         #  INHINT REALM
059116,001357: 10,3426           13355                           TCF      ENDRET                                
059117,001358: 
059118,001359: 10,3427           37770        MARKOVER           CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
059119,001360: 10,3430           54161                           TS       OUTHERE                               
059120,001361: 
059121,001362: 10,3431           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
059122,001363: 10,3432           74346                           MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
059123,001364: 10,3433           10000                           CCS      A                                     
059124,001365: 10,3434           13073                           TCF      NORMBNCH                              
059125,001366: 
059126,001367: 10,3435           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
059127,001368: 10,3436           73532                           MASK     BITS5+11                              #  OR WAITING
059128,001369: 10,3437           10000                           CCS      A                                     
059129,001370: 10,3440           13035                           TCF      MARKWAKE                              
059130,001371: 
059131,001372: 10,3441           30100                           CA       FLAGWRD4                              #  NO
059132,001373: 10,3442           73533                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
059133,001374: 10,3443           10000                           CCS      A                                     
059134,001375: 10,3444           13353                           TCF      NORMWAKE                              #  YES
059135,001376: 
059136,001377: 10,3445           31071                           CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST
059137,001378: 10,3446           74762                           MASK     OCT50                                 #  OR A GODSPRET
059138,001379: 10,3447           10000                           CCS      A                                     
059139,001380: 10,3450           13355                           TCF      ENDRET                                #  YES
059140,001381: 10,3451           30370                           CA       NVSAVE                                
059141,001382: 10,3452           00006                           EXTEND                                         
059142,001383: 10,3453           13355                           BZF      ENDRET                                
059143,001384: 
059144,001385: 10,3454           35016                           CAF      PRIO15                                
059145,001386: 10,3455           00004                           INHINT                                         
059146,001387: 10,3456           05063                           TC       NOVAC                                 
059147,001388: 10,3457     0366                                  EBANK=   NVWORD                                
059148,001389: 10,3457           02627 20060                     2CADR    PLAYJUM1                              
059149,001390: 
059150,001391: 10,3461           13355                           TCF      ENDRET                                
059151,001392: 
059152,001393: 10,3462           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
059153,001394: 10,3463           73532                           MASK     BITS5+11                              
059154,001395: 10,3464           10000                           CCS      A                                     
059155,001396: 

Page 1369

059157,001398: 10,3465           15146                           TCF      ENDOFJOB                              #  YES
059158,001399: 10,3466           12766                           TCF      GOSLEEPS                              
059159,001400: 
059160,001401: 10,3467           50157        LOADITIS           INDEX    COPMPAC                               
059161,001402: 10,3470           30366                           CA       NVWORD                                
059162,001403: 10,3471           76115                           MASK     LOW7                                  
059163,001404: 10,3472           40000                           COM                                            
059164,001405: 10,3473           60155                           AD       MPAC       +1                         #  NOUNREG
059165,001406: 10,3474           00006                           EXTEND                                         
059166,001407: 10,3475           13324                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
059167,001408: 10,3476           13062                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
059168,001409: 
059169,001410: 10,3477           46266        ERASER             CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
059170,001411: 10,3500           04145                           TC       NVSUB                                 
059171,001412: 10,3501           15146                           TCF      ENDOFJOB                              
059172,001413: 10,3502           15146                           TCF      ENDOFJOB                              
059173,001414: 
059174,001415: 10,3503           00036        PERFMASK           OCT      0036                                  #  FLASH,PERFORM,BLANK R2 AND R3
059175,001416: 10,3504           00231        V01N25             VN       00125                                 
059176,001417: 10,3505           01407        V06N07             VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
059177,001418: 10,3506           14400        V50N00             VN       5000                                  
059178,001419: 10,3507           00030        PERF2MSK           OCT      00030                                 #  FLASH, PERFORM
059179,001420: 10,3510           01006        V04N06             VN       00406                                 
059180,001421: 10,3511           00014        PERF4MSK           OCT      14                                    #  FLASH, BLANK R3
059181,001422: 10,3512  10,3062               GOAGIN             EQUALS   PINBRNCH                              
059182,001423: 10,3512           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
059183,001424: 10,3513           40230        MARK3MSK           OCT      40230                                 #  MARK,DECIMAL NOUN, PERFORM,FLASH
059184,001425: 10,3514           40036        MARK4MSK           OCT      40036                                 #  MARK,PERFORM,FLASH,BLANK 2 AND 3
059185,001426: 10,3515           20542        NVCADR             CADR     REDOPRIO                              
059186,001427: 10,3516           20372        WAKECADR           CADR     MARKPLAY                              
059187,001428: 10,3517           20627                           CADR     PLAYJUM1                              
059188,001429: 
059189,001430: 10,3520           03400        OCT3400            OCT      3400                                  #  EBANK MASK
059190,001431: 10,3521           11210        NBUSMASK           OCT      11210                                 
059191,001432: 10,3522           66521        PMMASK             OCT      66521                                 
059192,001433: 10,3523     4144               VERBMASK           =        MID7                                  #  (OCT 37600)
059193,001434: 10,3523           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
059194,001435: 10,3524  10,2317               GOXDSP             EQUALS   GOMARK                                
059195,001436: 10,3524  10,2342               GOXDSPR            EQUALS   GOMARKR                               
059196,001437: 10,3524  10,2323               GOXDSPF            EQUALS   GOMARKF                               
059197,001438: 10,3524  10,2345               GOXDSPFR           EQUALS   GOMARKFR                              
059198,001439: 10,3524     5474               ENDEXT             EQUALS   ENDMARK                               
059199,001440: 10,3524     0165               MPAC2SAV           EQUALS   BANKSET                               
059200,001441: 10,3524           00700        NVBUSMSK           OCT      700                                   
059201,001442: 10,3525           00704        ASTROMSK           OCT      704                                   
059202,001443: 10,3526           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
059203,001444: 10,3527           34300        OCT34300           OCT      34300                                 
059204,001445: 10,3530           40100        BITS15+7           OCT      40100                                 
059205,001446: 10,3531           00110        BITS7+4            OCT      110                                   
059206,001447: 10,3532           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
059207,001448: 

Page 1370

059209,001450: 10,3533           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
059210,001451: 10,3534           00026        LOWLOAD            DEC      22         B-14                       
059211,001452: 10,3535           77730        BUSYMASK           OCT      77730                                 
059212,001453: 10,3536           00050        CADRMASK           OCT      50                                    
059213,001454: 10,3537     7761               PINMASK            EQUALS   13,14,15                              
059214,001455: 10,3537  10,3102               GOPLAY             EQUALS   NVDSP                                 
059215,001456:                                                                                                  # PRIOSAVE       EQUALS  R1SAVE
059216,001457: 10,3537     0157               COPMPAC            EQUALS   MPAC       +3                         
059217,001458: 10,3537     0160               TEMPOR2            EQUALS   MPAC       +4                         
059218,001459: 10,3537     0161               OUTHERE            EQUALS   MPAC       +5                         
059219,001460: 10,3537     0164               COPINDEX           EQUALS   LOC                                   
059220,001461: 10,3537     0163               USERPRIO           EQUALS   MODE                                  
059221,001462: 10,3537     0162               GENMASK            EQUALS   MPAC       +6                         
059222,001463: 10,3537           20144        PRIOOCT            OCT      20144                                 #  PRIO
059223,001464: 10,3540           42424        MARKOCT            OCT      42424                                 #  MARK
059224,001465: 10,3541           11254                           OCT      11254                                 #  NORM
059225,001466: 
059226,001467: 10,3542           74704        IDLESLEP           OCT      74704                                 
059227,001468: 10,3543           67777        OCT67777           OCT      67777                                 
059228,001469: 10,3544     5466               LINUS              EQUALS   BLANKET                               
059229,001470: 10,3544     0154               FACEREG            EQUALS   MPAC                                  
059230,001471: 10,3544     0155               PLAYTEM1           EQUALS   MPAC       +1                         
059231,001472: 10,3544     0157               PLAYTEM3           EQUALS   MPAC       +3                         
059232,001473: 10,3544     0160               PLAYTEM4           EQUALS   MPAC       +4                         
059233,001474: 10,3544           40420        OCT40420           OCT      40420                                 
059234,001475: 10,3545           02560        MAKEGEN            GENADR   MAKEPLAY                              
059235,001476: 10,3546           10200        OCT10200           OCT      10200                                 
059236,001477: 10,3547           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
059237,001478: 10,3550           20100        OCT20100           OCT      20100                                 
059238,001479: 10,3551           24030        CLOCKCON           OCT      24030                                 #  FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
059239,001480: 10,3552           02600        OCT2600            OCT      02600                                 
059240,001481: 10,3553           00310        PRIMNMSK           OCT      00310                                 #  MONITOR PASTE, PRIO, FLASH

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