# Copyright: Public domain.
# Filename: DISPLAY_INTERFACE_ROUTINES.agc
# Purpose:  Part of the source code for Luminary 1A build 099.
# It is part of the source code for the Lunar Module's (LM)
# Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler: yaYUL
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1341-1373
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
# 2011-05-08 JL Removed workaround.

# This source code has been transcribed or otherwise adapted from
# digitized images of a hardcopy from the MIT Museum.  The digitization
# was performed by Paul Fjeld, and arranged for by Deborah Douglas of
# the Museum.  Many thanks to both.  The images (with suitable reduction
# in storage size and consequent reduction in image quality as well) are
# available online at www.ibiblio.org/apollo.  If for some reason you
# find that the images are illegible, contact me at info@sandroid.org
# about getting access to the (much) higher-quality images which Paul
# actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
# 16:27 JULY 14, 1969

# Page 1341
# 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 INTERFACE ROUTINES.  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 INTERRUPTED BY 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 DOING, (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
# 2.  PRIORITY
# 3.  INTERRUPTED MARK
# 4.  INTERRUPTED NORMAL
# 5.  MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
# 6.  MARK WAITING
# 7.  NORMAL WAITING
#
# Page 1342
# 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 USER'S CALL CADR +4.  FOR THE ONLY NON-FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
#     IS TO THE USER'S 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 USER'S JOB PRIORITY.
# 4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
#     USER'S 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 RESPOSES.  A TERMINATE (V34) BRANCHES
#     TO THE USER'S CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2.  AN ENTER OR RECYCLE
#     (V32) BRANCHES TO THE USER'S 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 FORM
# 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 1343
#  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=0 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 IS ENTERED 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 1344
# 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 VXXXNYY
# 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 IF SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S 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 USER'S 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 USER'S CALL CADR +4.
# Page 1345
# GOPERF2R DOES NOT BLANK ANY REGISTERS
# CAF VXXXNYY # 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 USER'S 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 USER'S 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 USER'S 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 1346
# CAF VXXNYY
# TC BANKCALL
# CADR REGODSPR
# ... ... # IMMEDIATE RETURN TO USER
# Page 1347
# 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 GOMARKFR # OTHER EXTENDED VERBS USE CADR GOXDSPFR
# ... ... # 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 IS ENTERED 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 1348
# 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 USER'S 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
# TCF 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 1349
# ... ... # 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
# SEND OUT.
# CAF VXNYY
# 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 1350
# ... ... # ENTER OR RECYCLE RETURN
# PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USER'S CALL CADR +4.
# CAF VXXNYY # VXXNYY WILL BE A FLASHING VERB NOUN
# TC BANKCALL
# CADR PRIODSPR
# ... ... # TERMINATE ACTION
# ... ... # 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 1351
#
# GENERAL INFORMATION
# -------------------
#
# ALARM OR ABORT EXIT MODE --
# PRIOBORT TC ABORT
# OCT 1502
#
# PRIOBORT IS BRANCHED 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 (INCLUDING EBANK)
# CADRFLSH = PRIO USER'S CALL CADR +1 LOCATION
# CADRFLSH +1 (MARKFLSH) = MARK USER'S CALL CADR +1 LOCATION
# CADRFLSH +2 (TEMPFLSH) = NORMAL USER'S 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, RUPREG2, RUPTREG3, CYL,
# EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1, FACEREG
# ERASABLES (SHARED AND USED WITH OTHER PROGRAMS) -- CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
# ERASABLES (USED ONLY BY DISPLAY ROUTINES) -- NVWORD,+1,+2, DSPFLAG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
# Page 1352
# 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 ----- DEC MARK 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 CONSIDERATONS --
# Page 1353
# 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 1354
# 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 WITH
# 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 1355
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

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 # ENTRANCE 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

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

  CA FLAGWRD4 # IS MARK SLEEPING DUE TO ASTRO BUSY
  MASK MRKNVBIT

  EXTEND
# Page 1356
  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 INTERUPTING 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 PRESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.

CHKPRIO  CA FLAGWRD4 # MARK ATTEMPT DURING PRIO
  MASK OCT24100
  CCS A
  TCF MARSLEEP

  CS FLAGWRD4
# Page 1357
  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  # * DON'T 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

  CAF REDOMASK # FLASH AND PERMIT
  TCF GODSPRS

# Page 1358
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  CA FLAGWRD4 # MARK ACTIVE
  MASK OCT40400
  EXTEND
  BZF ASKIFNRM # NO

# Page 1359
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
  TCF PRIOPLAY

MAKEPLAY CA PRIORITY # SAVE USER'S PRIORITY
  MASK PRIO37
  TS USERPRIO

  CAF PRIO33  # RAISE PRIORITY FOR FAST JOBS AFTER WAKE
  TC PRIOCHNG

  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
# Page 1360
  MASK NBUSMASK # ARE ANY NORMS ASLEEP
  EXTEND
  BZF OKTOPLAY # NO

PRIOBORT TC POODOO
  OCT 1502

OKTOPLAY TC COPIES2

  CA USERPRIO
  EXTEND
  ROR SUPERBNK
  TS RESTREG

  CA FLAGWRD4 # PRIO OR MARK GOING
  MASK PMMASK
  CCS A
  TCF GOSLEEPS # MARK GOING

  TCF +2
  TCF GOSLEEPS

# 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

  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

# Page 1361
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
  EXTEND
  ROR SUPERBNK
  TS L
  CAF MAKEGEN
  TC SPVAC

BOTHJOBS TC SAVELOCS # COPY TEMPS INTO PERMANENT REGISTERS

  EXTEND   # SAVE NVWORD AND USER'S MPAC +2
  DCA MPAC  +1
  INDEX LOCCTR
  DXCH MPAC  +1

  EXTEND   # SAVE USER'S CADR, FLAGS AND EBANK
  DCA MPAC  +3
  INDEX  LOCCTR
  DXCH MPAC  +3

  CA LOCCTR
  TS MPAC  +5
# Page 1362
  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 EBANK R3
  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

# Page 1363
  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
  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

# Page 1364
  TC DOWNENT2
IDLEMASK OCT 74004  # * DON'T 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 # * DON'T 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  # *** DON'T MOVE

  INDEX TEMPOR2
  CAF WAKECADR
  INHINT
  TC JOBWAKE

  TCF ENDRET

# ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP.  NORMAL DISPLAYS ARE THE ONLY 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, CONTROL IS 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 RECENT 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
# Page 1365
  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  TC COPYPACS

  CA TEMPOR2  # SET UP BLANK BITS FOR NVMONOPT IN CASE
  MASK SEVEN  # USER REQUESTS BLANKING MONITOR
  TS L

  CS BIT13
  INDEX COPINDEX
  MASK DSPFLG
  INDEX COPINDEX
  TS DSPFLG

  MASK BIT8  # BIT8 SET IF DEC MARK PERFORM DISPLAY
  TS TEM1

  CA MPAC  +2
  TS MPAC2SAV

  TS MARK2PAC # * FOR DISK ONLY *
  INDEX COPINDEX
  CCS NVWORD
  TCF NVDSP1
  TCF CLEANEND
  CS MARKNV
  TS MARKNV  # IN CASE MARKPLAY AWAKENED AFTER SLEEPING
  MASK LOW7
  AD V05N00M1
  AD TEM1
NVDSP1  AD ONE
NV50DSP  TC NVMONOPT
  TCF REST  # IF BUSY

# Page 1366
  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
  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, THEREFORE EXIT

1STOR2ND CA TEMPOR2
  MASK BIT13
  CCS A
  TCF GOANIDLE # SECOND

  CA BIT13
  INDEX COPINDEX
  ADS DSPFLG

  ZL
# Page 1367
  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 ALEEP
  CCS A
  CAF ONE
  TS L
  CAF ZERO
  INDEX L
  XCH CADRSTOR

  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
# Page 1368
  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  # *** DON'T 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
  TC UPENT2
ITISMASK OCT 40040  # *** ENDIDLE ALLOW *** DON'T MOVE

  CA R1SAVE  # IS THIS A REPEAT AND RETURN DISPLAY
  INDEX COPINDEX
  MASK BIT3
  CCS A
  TCF UNSETR1  # YES

  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

# Page 1369
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

  TCF NORMRET

NORMWAKE CAF ONE
  TCF WAKEPLAY

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  # *** DON'T MOVE

  CS THREE  # BLANK EVERYTHING EXCEPT MM
  TC NVSUB
  TCF +1

ENDIT  CA USERPRIO # RETURN TO USER'S PRIORITY
  MASK PRIO37
  TC PRIOCHNG
  CA MPAC  +3
  TCF BANKJUMP

UNSETR1  INDEX COPINDEX # RESET REPEAT AND RETURN REQUEST
  CS BIT3
# Page 1370
  MASK R1SAVE
  TS R1SAVE

  CAF ZERO  # *** 205 ONLY MARKBRAN USERS IN
  TC SUPERSW  # SUPERBANK 0

 -1  CAF THREE  # RETURN TO USER'S IMMEDIATE RETURN LOC
IMMEDRET INDEX COPINDEX
  AD CADRFLSH
  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, IT'S ALREADY ACTIVE
  TC Q

# MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLE AND CONVERSELY 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
# 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
# PINBRNCH) 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

# Page 1371
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
  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

# Page 1372
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
DSPFLG  EQUALS EBANKSAV
MARKFLAG EQUALS MARKEBAN
SAVEFLAG EQUALS EBANKTEM
BITS5+11 OCT 2020  # * DON'T MOVE
BITS4+10 OCT 1010  # * DON'T 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

# Page 1373
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