Assembly listing generated by yaYUL

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

 057774,000002:                                                                                                  ## Copyright: 057775,000003:                                                                                                  ## Filename: 057776,000004:                                                                                                  ## Purpose: 057777,000005:                                                                                                  ## 057778,000006:                                                                                                  ## 057779,000007:                                                                                                  ## 057780,000008:                                                                                                  ## 057781,000009:                                                                                                  ## 057782,000010:                                                                                                  ## 057783,000011:                                                                                                  ## Reference: 057784,000012:                                                                                                  ## Assembler: 057785,000013:                                                                                                  ## Contact: 057786,000014:                                                                                                  ## Website: 057787,000015:                                                                                                  ## 057788,000016:                                                                                                  ## 057789,000017:                                                                                                  ## 057790,000018:                                                                                                  ## 057791,000019:                                                                                                  ## 057792,000020:                                                                                                  ## 057793,000021:                                                                                                  ## 057794,000022:                                                                                                  ## 057795,000023:                                                                                                  ## 057796,000024:                                                                                                  ## 057797,000025:                                                                                                  ## 057798,000026:                                                                                                  ## 057799,000027:

Public domain. DISPLAY_INTERFACE_ROUTINES.agc 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. pp. 1338-1370 yaYUL Ron Burkey <info@sandroid.org>. 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

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

Page 1339

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

Page 1340

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

Page 1341

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

Page 1342

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

Page 1343

057998,000226:                                                                                                  #                                CAF     VXXNYY
057999,000227:                                                                                                  #                                TC      BANKCALL
058000,000228:                                                                                                  #                                CADR    REGODSPR
058001,000229:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
058002,000230:

Page 1344

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

Page 1345

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

Page 1346

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

Page 1347

058119,000347:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058120,000348:                                                                                                  #        PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058121,000349:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
058122,000350:                                                                                                  #                                TC      BANKCALL
058123,000351:                                                                                                  #                                CADR    PRIODSPR
058124,000352:                                                                                                  #                                ...     ...             TERMINATE RETURN
058125,000353:                                                                                                  #                                ...     ...             PROCEED RETURN
058126,000354:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
058127,000355:                                                                                                  #                                ...     ...             IMMEDIATE RETURN
058128,000356:                                                                                                  #        PRIOLARM DOES A V05N09 PRIODSPR.
058129,000357: 
058130,000358:                                                                                                  #        CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE).  A RETURN IS MADE TO THE USER AFTER NORMAL
058131,000359:                                                                                                  #        DISPLAYS ARE CLEANED OUT.
058132,000360:                                                                                                  #                                TC      BANKCALL
058133,000361:                                                                                                  #                                CADR    CLEANDSP
058134,000362:                                                                                                  #                                ...     ...             RETURN TO USER
058135,000363:

Page 1348

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

Page 1349

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

Page 1350

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

Page 1351

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

Page 1352

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

Page 1353

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

Page 1354

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

Page 1355

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

Page 1356

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

Page 1357

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

Page 1358

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

Page 1359

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

Page 1360

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

Page 1361

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

Page 1362

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

Page 1363

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

Page 1364

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

Page 1365

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

Page 1366

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

Page 1367

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

Page 1368

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

Page 1369

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

Page 1370

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

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