Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

060545,000002:                                                                                                  ## Copyright:   Public domain.
060546,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
060547,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
060548,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
060549,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
060550,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
060551,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
060552,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
060553,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
060554,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
060555,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
060556,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
060557,000014:                                                                                                  ##              reconstruction is correct.
060558,000015:                                                                                                  ## Assembler:   yaYUL
060559,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
060560,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
060561,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
060562,000019: 
060563,000020:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
060564,000021:                                                                                                  #        1.  PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS.  USUALLY THESE DISPLAYS ARE SENT
060565,000022:                                                                                                  #            OUT UNDER CRITICAL ALARM CONDITIONS.
060566,000023:                                                                                                  #        2.  EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
060567,000024:                                                                                                  #        3.  NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
060568,000025:                                                                                                  #            SEQUENCE OF EVENTS.
060569,000026:                                                                                                  #        4.  MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES.  THESE INCLUDE SUCH DISPLAYS AS
060570,000027:                                                                                                  #            MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
060571,000028:                                                                                                  #        5.  ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
060572,000029: 
060573,000030:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
060574,000031:                                                                                                  #        1.  ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
060575,000032:                                                                                                  #            (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
060576,000033:                                                                                                  #            BUT NOT WAITING FOR A RESPONSE.
060577,000034:                                                                                                  #        2.  INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
060578,000035:                                                                                                  #            (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
060579,000036:                                                                                                  #            WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
060580,000037:                                                                                                  #            OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
060581,000038:                                                                                                  #            HAS INFO SAVED FOR RESTART PURPOSES.
060582,000039: 
060583,000040:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS-
060584,000041:                                                                                                  #        INTERRUPTS -
060585,000042:                                                                                                  #                1.  THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
060586,000043:                                                                                                  #                2.  INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
060587,000044:                                                                                                  #                3.  PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS.  A PRIORITY DISPLAY INTERRUPTING ANOTHER
060588,000045:                                                                                                  #                    PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
060589,000046:                                                                                                  #                4.  A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
060590,000047:                                                                                                  #                5.  A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
060591,000048: 
060592,000049:                                                                                                  #        ORDER OF WAITING DISPLAYS-
060593,000050:                                                                                                  #                1.  ASTRONAUT EXTERNAL USE
060594,000051:                                                                                                  #                2.  PRIORITY
060595,000052:                                                                                                  #                3.  INTERRUPTED MARK
060596,000053:                                                                                                  #                4.  INTERRUPTED NORMAL
060597,000054:                                                                                                  #                5.  MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
060598,000055:                                                                                                  #                6.  MARK WAITING
060599,000056:                                                                                                  #                7.  NORMAL WAITING
060600,000057: 
060601,000058:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
060602,000059:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
060603,000060:                                                                                                  #  WILL FOLLOW LATER):
060604,000061:                                                                                                  #        1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
060605,000062:                                                                                                  #            IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
060606,000063:                                                                                                  #            IS TO THE USERS CALLING LOC +1.
060607,000064:                                                                                                  #        2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
060608,000065:                                                                                                  #        3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
060609,000066:                                                                                                  #        4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
060610,000067:                                                                                                  #            USERS JOB.
060611,000068:                                                                                                  #        5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
060612,000069:                                                                                                  #        6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
060613,000070:                                                                                                  #            DESCRIPTION OF RESTARTS).
060614,000071:                                                                                                  #        7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
060615,000072:                                                                                                  #            TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
060616,000073:                                                                                                  #            (V32) BRANCHES TO THE USERS CALL CADR +3.
060617,000074:                                                                                                  #        8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
060618,000075: 
060619,000076:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
060620,000077: 
060621,000078:                                                                                                  #        GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
060622,000079:                                                                                                  #                1.  GODSP IS NOT RESTARTABLE
060623,000080:                                                                                                  #                2.  A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
060624,000081:                                                                                                  #                                CAF     VXXNYY
060625,000082:                                                                                                  #                                TC      BANKCALL
060626,000083:                                                                                                  #                                CADR    GODSP
060627,000084:                                                                                                  #                        VXXNYY  OCT     0XXYY
060628,000085: 
060629,000086:                                                                                                  #        GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
060630,000087:                                                                                                  #                                CAF     VXXNYY
060631,000088:                                                                                                  #                                TC      BANKCALL
060632,000089:                                                                                                  #                                CADR    GODSPR
060633,000090:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GODSPR
060634,000091: 
060635,000092:                                                                                                  #        GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER.  3 RETURNS ARE POSSIBLE FROM
060636,000093:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
060637,000094:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
060638,000095:                                                                                                  #                                TC      BANKCALL
060639,000096:                                                                                                  #                                CADR    GOFLASH
060640,000097:                                                                                                  #                                ...     ...             TERMINATE RETURN
060641,000098:                                                                                                  #                                ...     ...             PROCEED RETURN
060642,000099:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
060643,000100: 
060644,000101:                                                                                                  #        GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
060645,000102:                                                                                                  #        V01 N25.  A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
060646,000103:                                                                                                  #        USER (SEE NO. 7 ABOVE).
060647,000104:                                                                                                  #        GOPERF1 BLANKS REGISTERS R2 AND R3
060648,000105:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX
060649,000106:                                                                                                  #                                TC      BANKCALL
060650,000107:                                                                                                  #                                CADR    GOPERF1
060651,000108:                                                                                                  #                                ...     ...             TERMINATE RETURN
060652,000109:                                                                                                  #                                ...     ...             PROCEED RETURN
060653,000110:                                                                                                  #                                ...     ...             ENTER RETURN
060654,000111:                                                                                                  #        GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
060655,000112:                                                                                                  #        REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY.  PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
060656,000113:                                                                                                  #        DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
060657,000114:                                                                                                  #        GOPERF2 DOES NOT BLANK ANY REGISTERS
060658,000115:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY. XX=00 OR 01.
060659,000116:                                                                                                  #                                TC      BANKCALL
060660,000117:                                                                                                  #                                CADR    GOPERF2
060661,000118:                                                                                                  #                                ...     ...             TERMINATE RETURN
060662,000119:                                                                                                  #                                ...     ...             PROCEED RETURN
060663,000120:                                                                                                  #                                ...     ...             ENTER RETURN
060664,000121:                                                                                                  #        GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
060665,000122:                                                                                                  #        DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM.  NO IMMEDIATE RETURN
060666,000123:                                                                                                  #        IS MADE TO THE USER (SEE NO. 7 ABOVE).
060667,000124:                                                                                                  #        GOPERF3 BLANKS REGISTERS R2 AND R3
060668,000125:                                                                                                  #                                CAF     DECXX           REQUEST PERFORM ON PXX
060669,000126:                                                                                                  #                                TC      BANKCALL
060670,000127:                                                                                                  #                                CADR    GOPERF3
060671,000128:                                                                                                  #                                ...     ...             TERMINATE RETURN
060672,000129:                                                                                                  #                                ...     ...             PROCEED RETURN
060673,000130:                                                                                                  #                                ...     ...             ENTER RETURN
060674,000131: 
060675,000132:                                                                                                  #        GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION.  THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
060676,000133:                                                                                                  #        GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM.  NO
060677,000134:                                                                                                  #        IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
060678,000135:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTION XX
060679,000136:                                                                                                  #                                TC      BANKCALL
060680,000137:                                                                                                  #                                CADR    GOPERF4
060681,000138:                                                                                                  #                                ...     ...             TERMINATE RETURN
060682,000139:                                                                                                  #                                ...     ...             PROCEED RETURN
060683,000140:                                                                                                  #                                ...     ...             ENTER RETURN
060684,000141:                                                                                                  #        GOPERF4 BLANKS REGISTER R3
060685,000142: 
060686,000143:                                                                                                  #        GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
060687,000144:                                                                                                  #        OUT.
060688,000145:                                                                                                  #                                CAF     VXXNYY
060689,000146:                                                                                                  #                                TC      BANKCALL
060690,000147:                                                                                                  #                                CADR    GODSPRET
060691,000148:                                                                                                  #                                ...     ...             RETURN TO USER
060692,000149: 
060693,000150:                                                                                                  #        REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
060694,000151:                                                                                                  #        ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
060695,000152:                                                                                                  #                                CAF     VXXNYY
060696,000153:                                                                                                  #                                TC      BANKCALL
060697,000154:                                                                                                  #                                CADR    REGODSP
060698,000155: 
060699,000156:                                                                                                  #        REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
060700,000157:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
060701,000158:                                                                                                  #                                TC      BANKCALL
060702,000159:                                                                                                  #                                CADR    REFLASH
060703,000160:                                                                                                  #                                ...     ...             TERMINATE RETURN
060704,000161:                                                                                                  #                                ...     ...             PROCEED RETURN
060705,000162:                                                                                                  #                                ...     ...             ENTER RETURN
060706,000163: 
060707,000164:                                                                                                  #        GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
060708,000165:                                                                                                  #                                CAF     VXXNYY
060709,000166:                                                                                                  #                                TC      BANKCALL
060710,000167:                                                                                                  #                                CADR    GOFLASHR
060711,000168:                                                                                                  #                                ...     ...             TERMINATE RETURN
060712,000169:                                                                                                  #                                ...     ...             PROCEED RETURN
060713,000170:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
060714,000171:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOFLASHR
060715,000172: 
060716,000173:                                                                                                  #        GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
060717,000174:                                                                                                  #        GOPERF1R BLANKS REGISTERS R2 AND R3
060718,000175:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX.
060719,000176:                                                                                                  #                                TC      BANKCALL
060720,000177:                                                                                                  #                                CADR    GOPERF1R
060721,000178:                                                                                                  #                                ...     ...             TERMINATE RETURN
060722,000179:                                                                                                  #                                ...     ...             PROCEED RETURN
060723,000180:                                                                                                  #                                ...     ...             ENTER RETURN
060724,000181:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOPERF1R
060725,000182: 
060726,000183:                                                                                                  #        GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
060727,000184:                                                                                                  #        GOPERF2R DOES NOT BLANK ANY REGISTERS
060728,000185:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
060729,000186:                                                                                                  #                                TC      BANKCALL
060730,000187:                                                                                                  #                                CADR    GOPERF2R
060731,000188:                                                                                                  #                                ...     ...             TERMINATE RETURN
060732,000189:                                                                                                  #                                ...     ...             PROCEED RETURN
060733,000190:                                                                                                  #                                ...     ...             ENTER RETURN
060734,000191:                                                                                                  #                                ...     ...             IMMEDIATE RETURN HERE FROM GOPERF2R
060735,000192: 
060736,000193:                                                                                                  #        GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
060737,000194:                                                                                                  #        GOPERF3R BLANKS REGISTERS R2 AND R3
060738,000195:                                                                                                  #                                CAF     PROGXX          PERFORM PROGRAM XX
060739,000196:                                                                                                  #                                TC      BANKCALL
060740,000197:                                                                                                  #                                CADR    GOPERF3R
060741,000198:                                                                                                  #                                ...     ...             TERMINATE RETURN
060742,000199:                                                                                                  #                                ...     ...             PROCEED RETURN
060743,000200:                                                                                                  #                                ...     ...             ENTER RETURN
060744,000201:                                                                                                  #                                ...     ...             GOPERF3R IMMEDIATELY RETURNS HERE
060745,000202: 
060746,000203:                                                                                                  #        GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
060747,000204:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTIONXX
060748,000205:                                                                                                  #                                TC      BANKCALL
060749,000206:                                                                                                  #                                CADR    GOPERF4R
060750,000207:                                                                                                  #                                ...     ...             TERMINATE RETURN
060751,000208:                                                                                                  #                                ...     ...             PROCEED RETURN
060752,000209:                                                                                                  #                                ...     ...             ENTER RETURN
060753,000210:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
060754,000211:                                                                                                  #        GOPERF4R BLANKS REGISTER R3
060755,000212: 
060756,000213:                                                                                                  #        REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
060757,000214:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
060758,000215:                                                                                                  #                                TC      BANKCALL
060759,000216:                                                                                                  #                                CADR    REFLASHR
060760,000217:                                                                                                  #                                ...     ...             TERMINATE RETURN
060761,000218:                                                                                                  #                                ...     ...             PROCEED RETURN
060762,000219:                                                                                                  #                                ...     ...             ENTER RETURN
060763,000220:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
060764,000221: 
060765,000222:                                                                                                  #        REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
060766,000223:                                                                                                  #                                CAF     VXXNYY
060767,000224:                                                                                                  #                                TC      BANKCALL
060768,000225:                                                                                                  #                                CADR    REGODSPR
060769,000226:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
060770,000227: 
060771,000228:                                                                                                  #        GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
060772,000229:                                                                                                  #        GOXDSP = GOMARK
060773,000230:                                                                                                  #                                CAF     VXXNYY          VXXNYY CONTAINS VERB AND NOUN
060774,000231:                                                                                                  #                                TC      BANKCALL
060775,000232:                                                                                                  #                                CADR    GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
060776,000233: 
060777,000234:                                                                                                  #        GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
060778,000235:                                                                                                  #        GOXDSPR = GOMARKR
060779,000236:                                                                                                  #                                CAF     VXXNYY
060780,000237:                                                                                                  #                                TC      BANKCALL
060781,000238:                                                                                                  #                                CADR    GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
060782,000239: 
060783,000240:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GOMARKR
060784,000241: 
060785,000242:                                                                                                  #        GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER.  3 RETURNS ARE POSSIBLE FROM
060786,000243:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
060787,000244: 
060788,000245:                                                                                                  #        GOXDSPF = GOMARKF
060789,000246: 
060790,000247:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
060791,000248:                                                                                                  #                                TC      BANKCALL
060792,000249:                                                                                                  #                                CADR    GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
060793,000250:                                                                                                  #                                ...     ...             TERMINATE RETURN
060794,000251:                                                                                                  #                                ...     ...             PROCEED RETURN
060795,000252:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
060796,000253: 
060797,000254:                                                                                                  #        GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
060798,000255:                                                                                                  #        GOXDSPFR = GOMARKFR
060799,000256:                                                                                                  #                                CAF     VXXNYY          FLASHING MARK VERB NOUN
060800,000257:                                                                                                  #                                TC      BANKCALL
060801,000258:                                                                                                  #                                CADR    GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
060802,000259:                                                                                                  #                                ...     ...             TERMINATE RETURN
060803,000260:                                                                                                  #                                ...     ...             PROCEED RETURN
060804,000261:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
060805,000262:                                                                                                  #                                
060806,000263:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
060807,000264: 
060808,000265:                                                                                                  #        GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER.  NO IMMEDIATE
060809,000266:                                                                                                  #        RETURN IS MADE.  THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A.  GOMARK1 DISPLAYS R1, R2, R
060810,000267:                                                                                                  #        MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM.  THE ASTRONAUT WILL RESPOND WITH A MARK
060811,000268:                                                                                                  #        OR MARK REJECT OR AN ENTER.  THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
060812,000269: 
060813,000270:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       Y=NOUN
060814,000271:                                                                                                  #                                TC      BANKCALL
060815,000272:                                                                                                  #                                CADR    GOMARK1
060816,000273:                                                                                                  #                                ...     ...             ENTER RETURN
060817,000274: 
060818,000275:                                                                                                  #        *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
060819,000276: 
060820,000277:                                                                                                  #        GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
060821,000278:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
060822,000279:                                                                                                  #                                TC      BANKCALL
060823,000280:                                                                                                  #                                CADR    GOMARK1R
060824,000281:                                                                                                  #                                ...     ...             ASTRONAUT ENTER RETURN
060825,000282:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
060826,000283: 
060827,000284:                                                                                                  #        GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
060828,000285:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
060829,000286:                                                                                                  #                                TC      BANKCALL
060830,000287:                                                                                                  #                                CADR    GOMARK2
060831,000288:                                                                                                  #                                ...     ...             TERMINATE RETURN
060832,000289:                                                                                                  #                                ...     ...             PROCEED RETURN
060833,000290:                                                                                                  #                                ...     ...             ENTER RETURN
060834,000291: 
060835,000292:                                                                                                  #        GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
060836,000293:                                                                                                  #                                CAF     V5XNYY          X=0,1,2,3,4     YY=NOUN
060837,000294:                                                                                                  #                                TC      BANKCALL
060838,000295:                                                                                                  #                                CADR    GOMARK2R
060839,000296:                                                                                                  #                                ...     ...             TERMINATE RETURN
060840,000297:                                                                                                  #                                ...     ...             PROCEED RETURN
060841,000298:                                                                                                  #                                ...     ...             ENTER RETURN
060842,000299:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
060843,000300: 
060844,000301:                                                                                                  #        GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY.  THE DESIRED MARK PLEASE
060845,000302:                                                                                                  #        PERFORM VERB AND NOUN ARE ENTERED IN A.  GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
060846,000303:                                                                                                  #        V5XNYY FOR A PLEASE PERFORM.  GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
060847,000304:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
060848,000305:                                                                                                  #                                TC      BANKCALL
060849,000306:                                                                                                  #                                CADR    GOMARK3
060850,000307:                                                                                                  #                                ...     ...             TERMINATE RETURN
060851,000308:                                                                                                  #                                ...     ...             PROCEED RETURN
060852,000309:                                                                                                  #                                ...     ...             ENTER RETURN
060853,000310: 
060854,000311:                                                                                                  #        GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
060855,000312:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
060856,000313:                                                                                                  #                                TC      BANKCALL
060857,000314:                                                                                                  #                                CADR    GOMARK4
060858,000315:                                                                                                  #                                ...     ...             TERMINATE RETURN
060859,000316:                                                                                                  #                                ...     ...             PROCEED RETURN
060860,000317:                                                                                                  #                        ...     ...                     ENTER RETURN
060861,000318:                                                                                                  #        EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
060862,000319:                                                                                                  #        SENT OUT.
060863,000320:                                                                                                  #                                CAF     VXXNYY
060864,000321:                                                                                                  #                                TC      BANKCALL
060865,000322:                                                                                                  #                                CADR    EXDSPRET
060866,000323:                                                                                                  #                                ...     ...             RETURN TO USER
060867,000324: 
060868,000325:                                                                                                  #        KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
060869,000326:                                                                                                  #        HAVE BEEN CLEANED OUT.
060870,000327:                                                                                                  #                                TC      BANKCALL
060871,000328:                                                                                                  #                                CADR    KLEENEX
060872,000329:                                                                                                  #                                ...     ...             RETURN TO USER
060873,000330: 
060874,000331:                                                                                                  #        MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
060875,000332:                                                                                                  #                                TC      BANKCALL
060876,000333:                                                                                                  #                                CADR    MARKBRAN
060877,000334:                                                                                                  #                                ...     ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
060878,000335:                                                                                                  #                                                        (GOOD RETURN TO IMMEDIATE RETURN LOC OF
060879,000336:                                                                                                  #                                                        LAST FLASHING MARK R ROUTINE)
060880,000337: 
060881,000338:                                                                                                  #        PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY.  IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
060882,000339:                                                                                                  #        BLANKED AND CONTROL IS SENT TO ENDOFJOB.
060883,000340:                                                                                                  #                                TC      POSTJUMP
060884,000341:                                                                                                  #                                CADR    PINBRNCH
060885,000342: 
060886,000343:                                                                                                  #        PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
060887,000344:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
060888,000345: 
060889,000346:                                                                                                  #        THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
060890,000347:                                                                                                  #        PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
060891,000348:                                                                                                  #        IS RESPONDED TO BY THE ASTRONAUT.
060892,000349: 
060893,000350:                                                                                                  #        THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
060894,000351:                                                                                                  #        PRIO DISPLAY.
060895,000352:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
060896,000353:                                                                                                  #                                TC      BANKCALL
060897,000354:                                                                                                  #                                CADR    PRIODSP
060898,000355:                                                                                                  #                                ...     ...             TERMINATE RETURN
060899,000356:                                                                                                  #                                ...     ...             PROCEED RETURN
060900,000357:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
060901,000358: 
060902,000359:                                                                                                  #        PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
060903,000360:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
060904,000361:                                                                                                  #                                TC      BANKCALL
060905,000362:                                                                                                  #                                CADR    PRIODSPR
060906,000363:                                                                                                  #                                ...     ...             TERMINATE RETURN
060907,000364:                                                                                                  #                                ...     ...             PROCEED RETURN
060908,000365:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
060909,000366:                                                                                                  #                                ...     ...             IMMEDIATE RETURN
060910,000367: 
060911,000368:                                                                                                  #        PRIOLARM DOES A V05N09 PRIODSPR.
060912,000369: 
060913,000370:                                                                                                  #        CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE).  A RETURN IS MADE TO THE USER AFTER NORMAL
060914,000371:                                                                                                  #        DISPLAYS ARE CLEANED OUT.
060915,000372:                                                                                                  #                                TC      BANKCALL
060916,000373:                                                                                                  #                                CADR    CLEANDSP
060917,000374:                                                                                                  #                                ...     ...             RETURN TO USER
060918,000375: 
060919,000376:                                                                                                  #  GENERAL INFORMATION
060920,000377:                                                                                                  #  ------- -----------
060921,000378: 
060922,000379:                                                                                                  #  ALARM OR ABORT EXIT MODES--
060923,000380:                                                                                                  #        PRIOBORT        TC      ABORT
060924,000381:                                                                                                  #                        OCT     1502
060925,000382: 
060926,000383:                                                                                                  #        PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
060927,000384:                                                                                                  #        (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
060928,000385:                                                                                                  #        ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
060929,000386: 
060930,000387:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED--
060931,000388:                                                                                                  #        ACCOMPLISHED BY FRESH START-    1.  FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
060932,000389:                                                                                                  #                                        2.  NVSAVE = NORMAL VERB AND NOUN REGISTER.
060933,000390:                                                                                                  #                                        3.  EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
060934,000391:                                                                                                  #                                        5.  R1SAVE = MARKBRAN CONTROL WORD
060935,000392:                                                                                                  #                                        4.  RESTREG = PRIORITY 30 AND SUPERBANK 3.
060936,000393: 
060937,000394:                                                                                                  #  OUTPUT--
060938,000395:                                                                                                  #        NVWORD = PRIO VERB AND NOUN
060939,000396:                                                                                                  #        NVWORD +1(MARKNV) = MARK VERB AND NOUN
060940,000397:                                                                                                  #        NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
060941,000398: 
060942,000399:                                                                                                  #        DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
060943,000400:                                                                                                  #        DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
060944,000401:                                                                                                  #        DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
060945,000402: 
060946,000403:                                                                                                  #        CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
060947,000404:                                                                                                  #        CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
060948,000405:                                                                                                  #        CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
060949,000406: 
060950,000407:                                                                                                  #        PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
060951,000408:                                                                                                  #        OPTION1 = DESIRED OPTION FROM GOPERF4
060952,000409:                                                                                                  #        FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
060953,000410:                                                                                                  #        DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
060954,000411: 
060955,000412:                                                                                                  #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
060956,000413:                                                                                                  #        JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
060957,000414: 
060958,000415:                                                                                                  #  DEBRIS-- (STORED INTO)
060959,000416:                                                                                                  #        TEMPORARY TEMPORARIES - A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
060960,000417:                                                                                                  #  EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1                        4, FACEREG
060961,000418:                                                                                                  #        ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
060962,000419:                                                                                                  #        ERASABLES (USED ONLY BY DISPLAY ROUTINES) - NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,
060963,000420:                                                                                                  #                R1SAVE, MARK2PAC,
060964,000421: 
060965,000422:                                                                                                  #  DEBRIS-- (USED BUT NOT STORED INTO) - NOUNREG, VERBREG, LOCCTR, MONSAVE1
060966,000423: 
060967,000424:                                                                                                  #  FLAGWORD DESCRIPTIONS--
060968,000425:                                                                                                  #        FLAGWRD4 - SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
060969,000426: 
060970,000427:                                                                                                  #        DSPFLG, DSPFLG+1, DSPFLG +2-
060971,000428:                                                                                                  #        ----------------------------
060972,000429:                                                                                                  #        BITS 1  BLANK R1
060973,000430:                                                                                                  #             2  BLANK R2
060974,000431:                                                                                                  #             3  BLANK R3
060975,000432:                                                                                                  #             4  FLASHING DISPLAY REQUESTED
060976,000433:                                                                                                  #             5  PERFORM DISPLAY REQUESTED
060977,000434:                                                                                                  #             6  -----                   EXDSPRET                GODSPRET
060978,000435:                                                                                                  #             7  PRIO DISPLAY            -----                   -----
060979,000436:                                                                                                  #             8  -----                   DEC MARK PERFORM        -----
060980,000437:                                                                                                  #             9  EBANK
060981,000438:                                                                                                  #            10  EBANK
060982,000439:                                                                                                  #            11  EBANK
060983,000440:                                                                                                  #            12  -----                   -----                   V99PASTE
060984,000441:                                                                                                  #            13  2ND PART OF PERFORM
060985,000442:                                                                                                  #            15  REFLASH OR REDO         -----                   REFLASH OR REDO
060986,000443:                                                                                                  #            15  -----                   MARK REQUEST            -----
060987,000444: 
060988,000445:                                                                                                  #  RESTARTING DISPLAYS--
060989,000446: 
060990,000447:                                                                                                  #  RULES FOR THE DSKY OPERATOR --
060991,000448:                                                                                                  #        1.  PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
060992,000449:                                                                                                  #            AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
060993,000450:                                                                                                  #            RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
060994,000451:                                                                                                  #            WITH PROCEED AND TERMINATE FOR THIS REASON.
060995,000452:                                                                                                  #        2.  THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
060996,000453:                                                                                                  #            PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
060997,000454:                                                                                                  #            DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.)  IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
060998,000455:                                                                                                  #            IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
060999,000456:                                                                                                  #            OUT.  THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
061000,000457:                                                                                                  #            CONSIDERATION.
061001,000458:                                                                                                  #        3.  KEY RELEASE BUTTON -
061002,000459:                                                                                                  #            A)  IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
061003,000460:                                                                                                  #            B)  IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
061004,000461:                                                                                                  #                AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
061005,000462:                                                                                                  #            IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
061006,000463:                                                                                                  #            KEY RELEASE BUTTON MAY BE NECESSARY.
061007,000464:                                                                                                  #        4.  IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
061008,000465:                                                                                                  #        5.  IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
061009,000466:                                                                                                  #            OVER AGAIN.
061010,000467: 
061011,000468:                                                                                                  #  SPECIAL CONSIDERATIONS--
061012,000469:                                                                                                  #        1.  MPAC +2 SAVED ONLY IN MARK DISPLAYS
061013,000470:                                                                                                  #        2.  GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
061014,000471:                                                                                                  #        3.  ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
061015,000472:                                                                                                  #        4.  ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
061016,000473:                                                                                                  #        5.  GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
061017,000474:                                                                                                  #            BY A .1 RESTART PHASE CHANGE.
061018,000475:                                                                                                  #        6.  IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
061019,000476:                                                                                                  #            CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
061020,000477:                                                                                                  #        7.  IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
061021,000478: 
061022,000479:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
061023,000480:                                                                                                  #                CAF     BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
061024,000481:                                                                                                  #                TC      BLANKET
061025,000482:                                                                                                  #                ...     ...             RETURN TO USER HERE
061026,000483:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
061027,000484:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
061028,000485:    5542                                           BLOCK    02                                    
061029,000486:    4000                                           SETLOC   FFTAG4                                
061030,000487:    4000                                           BANK                                           
061031,000488: 
061032,000489:    5542                                           COUNT    02/DSPLA                              
061033,000490: 
061034,000491:    5542           54162        BLANKET            TS       MPAC       +6                         
061035,000492:    5543           40160                           CS       PLAYTEM4                              
061036,000493:    5544           70162                           MASK     MPAC       +6                         
061037,000494:    5545           50161                           INDEX    MPAC       +5                         
061038,000495:    5546           26160                           ADS      PLAYTEM4                              
061039,000496: 
061040,000497:    5547           00002                           TC       Q                                     
061041,000498: 
061042,000499:    5550           04715        ENDMARK            TC       POSTJUMP                              
061043,000500:    5551           20553                           CADR     MARKEND                               
061044,000501: 
061045,000502:    5552           35035        CLEARMRK           CAF      ZERO                                  
061046,000503:    5553           55044                           TS       EXTVBACT                              
061047,000504: 
061048,000505:    5554           00004                           INHINT                                         
061049,000506:    5555           45033                           CS       BIT1                                  
061050,000507:    5556           70100                           MASK     FLAGWRD4                              
061051,000508:    5557           54100                           TS       FLAGWRD4                              
061052,000509: 
061053,000510:    5560           00003                           RELINT                                         
061054,000511:    5561           00002                           TC       Q                                     
061055,000512: 
061056,000513:                                                                                                  #  *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
061057,000514:                                                                                                  #  FINISHED.
061058,000515: 
061059,000516: 10,2553                                           BANK     10                                    
061060,000517: 10,2000                                           SETLOC   DISPLAYS                              
061061,000518: 10,2000                                           BANK                                           
061062,000519: 
061063,000520: 10,2553                                           COUNT    10/DSPLA                              
061064,000521: 
061065,000522:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
061066,000523:                                                                                                  #  3 RETURNS TO THE USER.  THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
061067,000524: 
061068,000525: 10,2553           05552        MARKEND            TC       CLEARMRK                              
061069,000526: 10,2554           13643                           TCF      MARKOVER                              
061070,000527: 
061071,000528: 10,2555           54155        GOMARK             TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP
061072,000529: 
061073,000530: 10,2556           35015        GOMARS             CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
061074,000531: 10,2557           12722                           TCF      GOFLASH2                              
061075,000532: 
061076,000533: 10,2560           35035        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
061077,000534: 10,2561           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
061078,000535: 
061079,000536: 10,2562           33253                           CAF      MARKFMSK                              #  MARK, FLASH
061080,000537: 10,2563           12722                           TCF      GOFLASH2                              
061081,000538: 
061082,000539: 10,2564           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
061083,000540: 10,2565           33742        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
061084,000541: 10,2566           12722                           TCF      GOFLASH2                              
061085,000542: 
061086,000543: 10,2567           54155        GOMARK3            TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
061087,000544: 10,2570           33727                           CAF      MARK3MSK                              
061088,000545: 10,2571           12722                           TCF      GOFLASH2                              
061089,000546: 
061090,000547: 10,2572           54155        GOMARK4            TS       PLAYTEM1                              
061091,000548: 10,2573           33730                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
061092,000549: 10,2574           12722                           TCF      GOFLASH2                              
061093,000550: 
061094,000551: 10,2575           54155        GOMARKR            TS       PLAYTEM1                              #  ENTR+NCE FOR MARK GODSPR
061095,000552: 
061096,000553: 10,2576           35015                           CAF      BIT15                                 
061097,000554: 10,2577           12700                           TCF      GODSPR2                               
061098,000555: 
061099,000556: 10,2600           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
061100,000557: 
061101,000558: 10,2601           33253                           CAF      MARKFMSK                              
061102,000559: 10,2602           13061                           TCF      GODSPRS                               
061103,000560: 
061104,000561: 10,2603           54155        GOMARK2R           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
061105,000562: 10,2604           33742                           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
061106,000563: 10,2605           13061                           TCF      GODSPRS                               
061107,000564: 
061108,000565: 10,2606           54155        GOMARK3R           TS       PLAYTEM1                              
061109,000566: 10,2607           33727                           CAF      MARK3MSK                              
061110,000567: 10,2610           13061                           TCF      GODSPRS                               
061111,000568: 
061112,000569: 10,2611           35033        MAKEMARK           CAF      ONE                                   
061113,000570: 10,2612           03157                           TC       COPIES                                
061114,000571: 
061115,000572: 10,2613           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
061116,000573: 10,2614           73743                           MASK     OCT34300                              
061117,000574: 10,2615           10000                           CCS      A                                     
061118,000575: 10,2616           12654                           TCF      CHKPRIO                               
061119,000576: 
061120,000577: 10,2617           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY
061121,000578: 10,2620           75023                           MASK     BIT9                                  
061122,000579: 
061123,000580: 10,2621           00006                           EXTEND                                         
061124,000581: 10,2622           12624                           BZF      MARKPLAY                              #  NO
061125,000582: 
061126,000583: 10,2623           15233                           TCF      ENDOFJOB                              
061127,000584: 
061128,000585: 10,2624           00004        MARKPLAY           INHINT                                         
061129,000586: 10,2625           45036                           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
061130,000587: 10,2626           70100                           MASK     FLAGWRD4                              
061131,000588: 10,2627           65033                           AD       ONE                                   
061132,000589: 10,2630           54100                           TS       FLAGWRD4                              
061133,000590: 10,2631           00003                           RELINT                                         
061134,000591: 
061135,000592: 10,2632           41070        GOGOMARK           CS       MARKFLAG                              #  PERFORM
061136,000593: 10,2633           75027                           MASK     BIT5                                  
061137,000594: 10,2634           10000                           CCS      A                                     
061138,000595: 10,2635           12640                           TCF      MARKCOP                               
061139,000596: 10,2636           40367                           CS       MARKNV                                
061140,000597: 10,2637           54367                           TS       MARKNV                                
061141,000598: 
061142,000599: 10,2640           35033        MARKCOP            CAF      ONE                                   #  MARK INDEX
061143,000600: 10,2641           13040                           TCF      PRIOPLAY                              
061144,000601: 
061145,000602: 10,2642           30165        COPYTOGO           CA       MPAC2SAV                              
061146,000603: 10,2643           54156                           TS       MPAC       +2                         
061147,000604: 
061148,000605: 10,2644           50164        COPYPACS           INDEX    COPINDEX                              
061149,000606: 10,2645           33753                           CAF      PRIOOCT                               
061150,000607: 10,2646           54162                           TS       GENMASK                               
061151,000608: 
061152,000609: 10,2647           50164                           INDEX    COPINDEX                              
061153,000610: 10,2650           31067                           CA       EBANKSAV                              
061154,000611: 10,2651           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
061155,000612: 
061156,000613: 10,2652           54003                           TS       EBANK                                 
061157,000614: 
061158,000615: 10,2653           00002                           TC       Q                                     
061159,000616: 
061160,000617:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
061161,000618:                                                                                                  #  (A NORMAL OR A PRIO).  IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
061162,000619:                                                                                                  #  REQUEST IS ENDED.  IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED.  IN THIS CASE THE NORM IS PUT TO SLEEP
061163,000620:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
061164,000621: 
061165,000622:                                                                                                  #  IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
061166,000623:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
061167,000624: 
061168,000625: 10,2654           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
061169,000626: 10,2655           73476                           MASK     OCT24100                              
061170,000627: 10,2656           10000                           CCS      A                                     
061171,000628: 10,2657           13676                           TCF      MARSLEEP                              
061172,000629: 
061173,000630: 10,2660           40100                           CS       FLAGWRD4                              
061174,000631: 10,2661           75031                           MASK     BIT3                                  #  SET MARK OVER NORM
061175,000632: 10,2662           00004                           INHINT                                         
061176,000633: 10,2663           26100                           ADS      FLAGWRD4                              
061177,000634: 
061178,000635: 10,2664           12756                           TCF      SETNORM                               
061179,000636: 
061180,000637: 10,2665           30367        MARKPERF           CA       MARKNV                                
061181,000638: 10,2666           74160                           MASK     VERBMASK                              
061182,000639: 10,2667           13342                           TCF      NV50DSP                               
061183,000640: 
061184,000641: 10,2670           54155        GODSP              TS       PLAYTEM1                              
061185,000642: 
061186,000643: 10,2671           35035        GODSP2             CAF      ZERO                                  
061187,000644: 10,2672           12722                           TCF      GOFLASH2                              
061188,000645: 
061189,000646: 10,2673           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
061190,000647: 
061191,000648: 10,2674           35026                           CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
061192,000649: 10,2675           12722                           TCF      GOFLASH2                              
061193,000650: 
061194,000651: 10,2676           54155        GODSPR             TS       PLAYTEM1                              
061195,000652: 
061196,000653: 10,2677           35035        GODSPR1            CAF      ZERO                                  
061197,000654: 10,2700           54160        GODSPR2            TS       PLAYTEM4                              
061198,000655: 
061199,000656: 10,2701           35035                           CAF      ZERO                                  #  * DONT MOVE
061200,000657: 10,2702           13063                           TCF      GODSPRS1                              
061201,000658: 
061202,000659:                                                                                                  #  CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
061203,000660:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
061204,000661: 
061205,000662:                                                                                                  #  NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
061206,000663:                                                                                                  #  OLD DISPLAY.
061207,000664: 
061208,000665:                                                                                                  #  CALLING SEQUENCE FOR CLEANDSP -
061209,000666: 
061210,000667:                                                                                                  #                TC      BANKCALL
061211,000668:                                                                                                  #                CADR    CLEANDSP
061212,000669: 
061213,000670: 10,2703           35035        CLEANDSP           CAF      ZERO                                  
061214,000671: 10,2704           54155        REFLASH            TS       PLAYTEM1                              
061215,000672: 
061216,000673: 10,2705           33726                           CAF      REDOMASK                              #  FLASH AND PERMIT
061217,000674: 10,2706           12722                           TCF      GOFLASH2                              
061218,000675: 
061219,000676: 10,2707           54155        REGODSP            TS       PLAYTEM1                              
061220,000677: 
061221,000678: 10,2710           35016                           CAF      BIT14                                 
061222,000679: 10,2711           12722                           TCF      GOFLASH2                              
061223,000680: 
061224,000681: 
061225,000682: 10,2712           54155        REGODSPR           TS       PLAYTEM1                              
061226,000683: 10,2713           35016                           CAF      BIT14                                 
061227,000684: 10,2714           12700                           TCF      GODSPR2                               
061228,000685: 
061229,000686: 10,2715           54155        CLOCPLAY           TS       PLAYTEM1                              
061230,000687: 10,2716           33765                           CAF      CLOCKCON                              
061231,000688: 10,2717           12722                           TCF      GOFLASH2                              
061232,000689: 10,2720           54155        GOFLASH            TS       PLAYTEM1                              
061233,000690: 
061234,000691: 10,2721           35030                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
061235,000692: 10,2722           54160        GOFLASH2           TS       PLAYTEM4                              
061236,000693: 
061237,000694: 10,2723           03144                           TC       SAVELOCS                              
061238,000695: 
061239,000696: 10,2724           00003                           RELINT                                         
061240,000697: 
061241,000698: 10,2725           12770                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
061242,000699: 
061243,000700: 10,2726           54155        PRIODSPR           TS       PLAYTEM1                              
061244,000701: 
061245,000702: 10,2727           33745                           CAF      BITS7+4                               
061246,000703: 10,2730           13061                           TCF      GODSPRS                               
061247,000704: 
061248,000705: 10,2731           54155        PRIODSP            TS       PLAYTEM1                              
061249,000706: 
061250,000707: 10,2732           33745        SETPRIO            CAF      BITS7+4                               
061251,000708: 10,2733           12722                           TCF      GOFLASH2                              
061252,000709: 
061253,000710: 10,2734           35035        MAKEPRIO           CAF      ZERO                                  
061254,000711: 10,2735           54164                           TS       COPINDEX                              
061255,000712: 
061256,000713: 10,2736           03616                           TC       LINUSCHR                              
061257,000714: 10,2737           12744                           TCF      HIPRIO                                #  LINUS RETURN
061258,000715: 10,2740           30100                           CA       FLAGWRD4                              
061259,000716: 10,2741           73764                           MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
061260,000717: 10,2742           10000                           CCS      A                                     
061261,000718: 10,2743           13017                           TCF      PRIOBORT                              #  YES, ABORT
061262,000719: 
061263,000720: 10,2744           30100        HIPRIO             CA       FLAGWRD4                              #  MARK ACTIVE
061264,000721: 10,2745           77765                           MASK     OCT40400                              
061265,000722: 10,2746           00006                           EXTEND                                         
061266,000723: 10,2747           12752                           BZF      ASKIFNRM                              #  NO
061267,000724: 
061268,000725: 10,2750           35035        SETMARK            CAF      ZERO                                  
061269,000726: 10,2751           13216                           TCF      JOBXCHS                               
061270,000727: 
061271,000728: 10,2752           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE
061272,000729: 10,2753           73762                           MASK     OCT10200                              #  BITS 13+8
061273,000730: 10,2754           00006                           EXTEND                                         
061274,000731: 10,2755           12760                           BZF      OKTOCOPY                              #  NO
061275,000732: 
061276,000733: 10,2756           35033        SETNORM            CAF      ONE                                   
061277,000734: 10,2757           13216                           TCF      JOBXCHS                               
061278,000735: 
061279,000736: 10,2760           03156        OKTOCOPY           TC       COPYNORM                              
061280,000737: 10,2761           03427                           TC       WITCHONE                              
061281,000738: 
061282,000739: 10,2762           05215                           TC       JOBWAKE                               
061283,000740: 
061284,000741: 10,2763           03444                           TC       XCHTOEND                              
061285,000742: 
061286,000743: 10,2764           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
061287,000744: 10,2765           55147                           TS       PRIOTIME                              
061288,000745: 
061289,000746: 10,2766           35035        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
061290,000747: 10,2767           13040                           TCF      PRIOPLAY                              
061291,000748: 
061292,000749: 10,2770           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
061293,000750: 10,2771           77674                           MASK     PRIO37                                
061294,000751: 10,2772           54163                           TS       USERPRIO                              
061295,000752: 
061296,000753: 10,2773           37670                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
061297,000754: 10,2774           05224                           TC       PRIOCHNG                              
061298,000755: 
061299,000756: 10,2775           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
061300,000757: 10,2776           73744                           MASK     BITS15+7                              
061301,000758: 10,2777           10000                           CCS      A                                     
061302,000759: 10,3000           12734                           TCF      MAKEPRIO                              #  ITS PRIO
061303,000760: 10,3001           13003                           TCF      IFLEGAL                               
061304,000761: 10,3002           12611                           TCF      MAKEMARK                              #  ITS MARK
061305,000762: 
061306,000763: 10,3003           35032        IFLEGAL            CAF      TWO                                   
061307,000764: 10,3004           54164                           TS       COPINDEX                              
061308,000765: 
061309,000766: 10,3005           03616                           TC       LINUSCHR                              
061310,000767: 
061311,000768: 10,3006           13021                           TCF      OKTOPLAY                              #  LINUS RETURN
061312,000769: 10,3007           41071                           CS       EBANKTEM                              
061313,000770: 10,3010           75030                           MASK     BIT4                                  
061314,000771: 10,3011           10000                           CCS      A                                     
061315,000772: 10,3012           13021                           TCF      OKTOPLAY                              #  NO
061316,000773: 
061317,000774: 10,3013           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP
061318,000775: 10,3014           73735                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
061319,000776: 10,3015           00006                           EXTEND                                         
061320,000777: 10,3016           13021                           BZF      OKTOPLAY                              #  NO
061321,000778: 
061322,000779: 10,3017           05725        PRIOBORT           TC       POODOO                                
061323,000780: 10,3020           21502                           OCT      21502                                 #  ILLEGAL FLASHING DISPLAY
061324,000781: 
061325,000782: 10,3021           03160        OKTOPLAY           TC       COPIES2                               
061326,000783: 
061327,000784: 10,3022           30163                           CA       USERPRIO                              
061328,000785: 10,3023           00006                           EXTEND                                         
061329,000786: 10,3024           04007                           ROR      SUPERBNK                              
061330,000787: 10,3025           54365                           TS       RESTREG                               
061331,000788: 
061332,000789: 10,3026           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
061333,000790: 10,3027           73736                           MASK     PMMASK                                
061334,000791: 10,3030           10000                           CCS      A                                     
061335,000792: 10,3031           13176                           TCF      GOSLEEPS                              #  YES
061336,000793: 
061337,000794: 10,3032           13034                           TCF      +2                                    
061338,000795: 10,3033           13176                           TCF      GOSLEEPS                              #  MARK GOING
061339,000796: 
061340,000797:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
061341,000798: 
061342,000799: 10,3034           03427                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
061343,000800: 10,3035           05215                           TC       JOBWAKE                               
061344,000801: 
061345,000802: 10,3036           03444                           TC       XCHTOEND                              
061346,000803: 
061347,000804: 10,3037           35032        PLAYJUM1           CAF      TWO                                   
061348,000805: 10,3040           54164        PRIOPLAY           TS       COPINDEX                              
061349,000806: 
061350,000807: 10,3041           13312                           TCF      GOPLAY                                
061351,000808: 
061352,000809: 10,3042           54155        EXDSPRET           TS       PLAYTEM1                              
061353,000810: 
061354,000811: 10,3043           37703                           CAF      BIT15+6                               
061355,000812: 10,3044           12722                           TCF      GOFLASH2                              
061356,000813: 
061357,000814: 10,3045           55045        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
061358,000815: 10,3046           33720                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
061359,000816: 
061360,000817: 10,3047           54155        GOPERFS            TS       PLAYTEM1                              
061361,000818: 
061362,000819: 10,3050           33717                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
061363,000820: 10,3051           12722                           TCF      GOFLASH2                              
061364,000821: 
061365,000822: 10,3052           54155        GOPERF2            TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
061366,000823: 
061367,000824: 10,3053           33723                           CAF      PERF2MSK                              
061368,000825: 10,3054           12722                           TCF      GOFLASH2                              
061369,000826: 
061370,000827: 10,3055           03137        GOPERF4            TC       PURRS4                                
061371,000828: 
061372,000829: 10,3056           12722                           TCF      GOFLASH2                              
061373,000830: 
061374,000831: 10,3057           54155        GOFLASHR           TS       PLAYTEM1                              
061375,000832: 10,3060           35030                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
061376,000833: 10,3061           54160        GODSPRS            TS       PLAYTEM4                              
061377,000834: 
061378,000835: 10,3062           36214                           CAF      THREE                                 
061379,000836: 
061380,000837: 10,3063           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
061381,000838: 10,3064           54072                           TS       RUPTREG3                              
061382,000839: 
061383,000840: 10,3065           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
061384,000841: 10,3066           77674                           MASK     PRIO37                                
061385,000842: 10,3067           54063                           TS       NEWPRIO                               
061386,000843: 
061387,000844: 10,3070           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
061388,000845: 10,3071           75030                           MASK     BIT4                                  
061389,000846: 10,3072           10000                           CCS      A                                     
061390,000847: 10,3073           13101                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
061391,000848: 10,3074           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
061392,000849: 10,3075           05150                           TC       NOVAC                                 
061393,000850: 10,3076  E7,1777                                  EBANK=   WHOCARES                              
061394,000851: 10,3076           02770 20067                     2CADR    MAKEPLAY                              
061395,000852: 
061396,000853: 10,3100           13107                           TCF      BOTHJOBS                              
061397,000854: 
061398,000855: 10,3101           30006        VACDSP             CA       BBANK                                 
061399,000856: 10,3102           00006                           EXTEND                                         
061400,000857: 10,3103           04007                           ROR      SUPERBNK                              
061401,000858: 10,3104           54001                           TS       L                                     
061402,000859: 10,3105           33761                           CAF      MAKEGEN                               
061403,000860: 10,3106           05174                           TC       SPVAC                                 
061404,000861: 
061405,000862: 10,3107           03144        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
061406,000863: 
061407,000864: 10,3110           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
061408,000865: 10,3111           30156                           DCA      MPAC       +1                         
061409,000866: 10,3112           50064                           INDEX    LOCCTR                                
061410,000867: 10,3113           52156                           DXCH     MPAC       +1                         
061411,000868: 
061412,000869: 10,3114           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
061413,000870: 10,3115           30160                           DCA      MPAC       +3                         
061414,000871: 10,3116           50064                           INDEX    LOCCTR                                
061415,000872: 10,3117           52160                           DXCH     MPAC       +3                         
061416,000873: 
061417,000874: 10,3120           30064                           CA       LOCCTR                                
061418,000875: 10,3121           54161                           TS       MPAC       +5                         
061419,000876: 10,3122           03151                           TC       SAVELOCR                              
061420,000877: 10,3123           00003                           RELINT                                         
061421,000878: 10,3124           14720                           TCF      BANKJUMP                              #  CALL CADR +4
061422,000879: 
061423,000880: 10,3125           55045        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
061424,000881: 
061425,000882: 10,3126           33720                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
061426,000883: 
061427,000884: 10,3127           54155        GOPERFRS           TS       PLAYTEM1                              
061428,000885: 
061429,000886: 10,3130           33717                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
061430,000887: 10,3131           13061                           TCF      GODSPRS                               
061431,000888: 
061432,000889: 10,3132           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
061433,000890: 
061434,000891: 10,3133           33723                           CAF      PERF2MSK                              
061435,000892: 10,3134           13061                           TCF      GODSPRS                               
061436,000893: 
061437,000894: 10,3135           03137        GOPERF4R           TC       PURRS4                                
061438,000895: 
061439,000896: 10,3136           13061                           TCF      GODSPRS                               
061440,000897: 
061441,000898: 10,3137           55131        PURRS4             TS       OPTION1                               #  DESIRED OPTION CODE
061442,000899: 
061443,000900: 10,3140           33724                           CAF      V04N06                                
061444,000901: 10,3141           54155                           TS       PLAYTEM1                              
061445,000902: 
061446,000903: 10,3142           33725                           CAF      PERF4MSK                              #  FLASH, PERFORM AND BLANK R3
061447,000904: 10,3143           00002                           TC       Q                                     
061448,000905: 
061449,000906: 10,3144           00004        SAVELOCS           INHINT                                         
061450,000907: 
061451,000908: 10,3145           43734                           CS       OCT3400                               #  EBANK BITS
061452,000909: 10,3146           70160                           MASK     PLAYTEM4                              
061453,000910: 10,3147           60003                           AD       EBANK                                 
061454,000911: 10,3150           54160                           TS       PLAYTEM4                              
061455,000912: 
061456,000913: 10,3151           22002        SAVELOCR           LXCH     Q                                     
061457,000914: 
061458,000915: 10,3152           04725                           TC       MAKECADR                              
061459,000916: 10,3153           54157                           TS       PLAYTEM3                              
061460,000917: 
061461,000918: 10,3154           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
061462,000919: 10,3155           00001                           TC       L                                     
061463,000920: 
061464,000921: 10,3156           35035        COPYNORM           CAF      ZERO                                  
061465,000922: 10,3157           54164        COPIES             TS       COPINDEX                              
061466,000923: 10,3160           00004        COPIES2            INHINT                                         
061467,000924: 10,3161           30160                           CA       PLAYTEM4                              #  FLAGWORD
061468,000925: 
061469,000926: 10,3162           50164                           INDEX    COPINDEX                              
061470,000927: 10,3163           55067                           TS       EBANKSAV                              #  EQUIV TO DSPFLG
061471,000928: 10,3164           73752                           MASK     CADRMASK                              #  FLASH AND GODSPRET
061472,000929: 10,3165           00006                           EXTEND                                         
061473,000930: 10,3166           13172                           BZF      SKIPADD                               
061474,000931: 
061475,000932: 10,3167           30157                           CA       PLAYTEM3                              
061476,000933: 10,3170           50164                           INDEX    COPINDEX                              
061477,000934: 10,3171           54371                           TS       CADRFLSH                              
061478,000935: 
061479,000936: 10,3172           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
061480,000937: 10,3173           50164                           INDEX    COPINDEX                              
061481,000938: 10,3174           54366                           TS       NVWORD                                
061482,000939: 
061483,000940: 10,3175           13453                           TCF      RELINTQ                               
061484,000941: 
061485,000942: 10,3176           50164        GOSLEEPS           INDEX    COPINDEX                              
061486,000943: 10,3177           33753                           CA       PRIOOCT                               
061487,000944: 10,3200           73202                           MASK     WAITMASK                              
061488,000945: 10,3201           07722                           TC       UPENT2                                
061489,000946: 10,3202           03004        WAITMASK           OCT      3004                                  
061490,000947: 10,3203           45033                           CS       ONE                                   
061491,000948: 10,3204           60164                           AD       COPINDEX                              
061492,000949: 10,3205           54154                           TS       FACEREG                               
061493,000950: 
061494,000951: 10,3206           50154        XCHSLEEP           INDEX    FACEREG                               
061495,000952: 10,3207           33732                           CAF      WAKECADR                              
061496,000953: 10,3210           00004                           INHINT                                         
061497,000954: 10,3211           05215                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
061498,000955: 
061499,000956: 10,3212           03444                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
061500,000957: 
061501,000958: 10,3213           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
061502,000959: 10,3214           33732                           CAF      WAKECADR                              
061503,000960: 10,3215           15211                           TCF      JOBSLEEP                              
061504,000961: 
061505,000962: 10,3216           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
061506,000963: 10,3217           03427                           TC       WITCHONE                              
061507,000964: 10,3220           05215                           TC       JOBWAKE                               
061508,000965: 10,3221           30154                           CA       FACEREG                               
061509,000966: 10,3222           50064                           INDEX    LOCCTR                                
061510,000967: 10,3223           54154                           TS       FACEREG                               
061511,000968: 
061512,000969: 10,3224           33237                           CAF      XCHQADD                               
061513,000970: 10,3225           03445                           TC       XCHNYLOC                              
061514,000971: 
061515,000972: 10,3226           50154                           INDEX    FACEREG                               
061516,000973: 10,3227           33754                           CA       MARKOCT                               
061517,000974: 10,3230           73756                           MASK     IDLESLEP                              
061518,000975: 
061519,000976: 10,3231           07740                           TC       DOWNENT2                              
061520,000977: 10,3232           74004        IDLEMASK           OCT      74004                                 #  * DONT MOVE
061521,000978: 10,3233           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
061522,000979: 10,3234           35027                           CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL
061523,000980: 10,3235           65031                           AD       FOUR                                  
061524,000981: 10,3236           07722                           TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
061525,000982: 10,3237           03206        XCHQADD            GENADR   XCHSLEEP                              #  * DONT MOVE
061526,000983: 10,3240           30100                           CA       FLAGWRD4                              
061527,000984: 10,3241           75031                           MASK     BIT3                                  #  IF BIT3 THEN MARK OVER NORM
061528,000985: 10,3242           10000                           CCS      A                                     
061529,000986: 10,3243           02624        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
061530,000987: 10,3244           12760                           TCF      OKTOCOPY                              
061531,000988: 
061532,000989: 10,3245           35035        MARKWAKE           CAF      ZERO                                  
061533,000990: 10,3246           54160        WAKEPLAY           TS       TEMPOR2                               
061534,000991: 
061535,000992: 10,3247           50160                           INDEX    TEMPOR2                               
061536,000993: 10,3250           33746                           CA       BITS5+11                              
061537,000994: 10,3251           65031                           AD       FOUR                                  
061538,000995: 10,3252           07740                           TC       DOWNENT2                              
061539,000996: 10,3253           40010        MARKFMSK           OCT      40010                                 #  *** DONT MOVE
061540,000997: 
061541,000998: 10,3254           50160                           INDEX    TEMPOR2                               
061542,000999: 10,3255           33732                           CAF      WAKECADR                              
061543,001000: 10,3256           00004                           INHINT                                         
061544,001001: 10,3257           05215                           TC       JOBWAKE                               
061545,001002: 
061546,001003: 10,3260           13557                           TCF      ENDRET                                
061547,001004: 
061548,001005:                                                                                                  #  ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP.  NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
061549,001006:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
061550,001007: 
061551,001008:                                                                                                  #  IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
061552,001009:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
061553,001010: 
061554,001011: 10,3261           31071        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
061555,001012: 10,3262           54003                           TS       EBANK                                 
061556,001013: 
061557,001014: 10,3263           30365                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
061558,001015: 10,3264           05007                           TC       SUPERSW                               #  RESTORE SUPERBANK
061559,001016: 
061560,001017: 10,3265           77674                           MASK     PRIO37                                
061561,001018: 10,3266           05224                           TC       PRIOCHNG                              
061562,001019: 
061563,001020: 10,3267           46214                           CS       THREE                                 
061564,001021: 10,3270           60373                           AD       TEMPFLSH                              
061565,001022: 10,3271           14720                           TCF      BANKJUMP                              
061566,001023: 
061567,001024: 10,3272           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
061568,001025: 10,3273           31072                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
061569,001026: 10,3274           54156                           TS       MPAC       +2                         #  ONLY
061570,001027: 
061571,001028: 10,3275           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION
061572,001029: 10,3276           77707                           MASK     PINMASK                               
061573,001030: 10,3277           10000                           CCS      A                                     
061574,001031: 10,3300           13303                           TCF      +3                                    
061575,001032: 10,3301           13713                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
061576,001033: 10,3302           12624                           TCF      MARKPLAY                              
061577,001034: 
061578,001035: 10,3303           05562        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
061579,001036: 10,3304           00105                           ADRES    PINBRFLG                              
061580,001037: 
061581,001038: 10,3305           35016                           CAF      BIT14                                 #  PRIO INTERRUPTED
061582,001039: 10,3306           70100                           MASK     FLAGWRD4                              
061583,001040: 10,3307           10000                           CCS      A                                     
061584,001041: 10,3310           12766                           TCF      KEEPPRIO                              
061585,001042: 
061586,001043: 10,3311           13037                           TCF      PLAYJUM1                              
061587,001044: 
061588,001045: 10,3312           02644        NVDSP              TC       COPYPACS                              
061589,001046: 
061590,001047: 10,3313           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
061591,001048: 10,3314           75037                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
061592,001049: 10,3315           54001                           TS       L                                     
061593,001050: 
061594,001051: 10,3316           45017                           CS       BIT13                                 
061595,001052: 10,3317           50164                           INDEX    COPINDEX                              
061596,001053: 10,3320           71067                           MASK     DSPFLG                                
061597,001054: 10,3321           50164                           INDEX    COPINDEX                              
061598,001055: 10,3322           55067                           TS       DSPFLG                                
061599,001056: 
061600,001057: 10,3323           75024                           MASK     BIT8                                  #  BIT8 SET IF DEC MARK PERFORM DISPLAY
061601,001058: 10,3324           54141                           TS       TEM1                                  
061602,001059: 
061603,001060: 10,3325           30156                           CA       MPAC       +2                         
061604,001061: 10,3326           54165                           TS       MPAC2SAV                              
061605,001062: 
061606,001063: 10,3327           55072                           TS       MARK2PAC                              #  * FOR DISK ONLY *
061607,001064: 10,3330           50164                           INDEX    COPINDEX                              
061608,001065: 10,3331           10366                           CCS      NVWORD                                
061609,001066: 10,3332           13341                           TCF      NVDSP1                                
061610,001067: 10,3333           13455                           TCF      CLEANEND                              
061611,001068: 10,3334           40367                           CS       MARKNV                                
061612,001069: 10,3335           54367                           TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
061613,001070: 10,3336           76043                           MASK     LOW7                                  
061614,001071: 10,3337           63737                           AD       V05N00M1                              
061615,001072: 10,3340           60141                           AD       TEM1                                  
061616,001073: 10,3341           65033        NVDSP1             AD       ONE                                   
061617,001074: 10,3342           04171        NV50DSP            TC       NVMONOPT                              
061618,001075: 10,3343           13467                           TCF      REST                                  #  IF BUSY
061619,001076: 
061620,001077: 10,3344           04447                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
061621,001078: 
061622,001079: 10,3345           02642                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
061623,001080: 10,3346           05574                           TC       DOWNFLAG                              #  UNSET SLEEPING BITS
061624,001081: 10,3347           00102                           ADRES    MRKNVFLG                              
061625,001082: 10,3350           05574                           TC       DOWNFLAG                              
061626,001083: 10,3351           00103                           ADRES    NRMNVFLG                              
061627,001084: 10,3352           05574                           TC       DOWNFLAG                              
061628,001085: 10,3353           00104                           ADRES    PRONVFLG                              
061629,001086: 10,3354           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
061630,001087: 10,3355           04271                           TC       BLANKSUB                              
061631,001088: 10,3356           13312                           TCF      NVDSP                                 
061632,001089: 10,3357           35027        PERFCHEK           CAF      BIT5                                  #  BIT 5 FOR PERFORM
061633,001090: 10,3360           70160                           MASK     TEMPOR2                               
061634,001091: 10,3361           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
061635,001092: 10,3362           13405                           TCF      1STOR2ND                              #  YES
061636,001093: 
061637,001094: 10,3363           35030        GOANIDLE           CAF      BIT4                                  
061638,001095: 10,3364           70160                           MASK     TEMPOR2                               
061639,001096: 10,3365           10000                           CCS      A                                     
061640,001097: 10,3366           13502                           TCF      FLASHSUB                              #  IT IS
061641,001098: 
061642,001099: 10,3367           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
061643,001100: 10,3370           75026                           MASK     BIT6                                  
061644,001101: 10,3371           10000                           CCS      A                                     
061645,001102: 10,3372           13377                           TCF      ISITN00                               
061646,001103: 
061647,001104: 10,3373           50164                           INDEX    COPINDEX                              
061648,001105: 10,3374           30371                           CA       CADRFLSH                              
061649,001106: 10,3375           54157                           TS       MPAC       +3                         
061650,001107: 10,3376           13575                           TCF      ENDIT                                 
061651,001108: 
061652,001109: 10,3377           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
061653,001110: 10,3400           30366                           CA       NVWORD                                
061654,001111: 10,3401           76043                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
061655,001112: 10,3402           00006                           EXTEND                                         
061656,001113: 10,3403           13502                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
061657,001114: 
061658,001115: 10,3404           15233                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
061659,001116: 
061660,001117: 10,3405           30160        1STOR2ND           CA       TEMPOR2                               
061661,001118: 10,3406           75017                           MASK     BIT13                                 
061662,001119: 10,3407           10000                           CCS      A                                     
061663,001120: 10,3410           13363                           TCF      GOANIDLE                              #  SECOND
061664,001121: 
061665,001122: 10,3411           35017                           CA       BIT13                                 
061666,001123: 10,3412           50164                           INDEX    COPINDEX                              
061667,001124: 10,3413           27067                           ADS      DSPFLG                                
061668,001125: 
061669,001126: 10,3414           22007                           ZL                                             
061670,001127: 10,3415           00006                           EXTEND                                         #  IS IT MARK
061671,001128: 10,3416           62665                           BZMF     MARKPERF                              #  YES
061672,001129: 10,3417           75020                           MASK     BIT12                                 
061673,001130: 10,3420           00006                           EXTEND                                         
061674,001131: 10,3421           13425                           BZF      V50PASTE                              
061675,001132: 10,3422           41145                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97.  NVWORD1= -400 IS V99
061676,001133: 10,3423           63763                           AD       V97N00                                
061677,001134: 10,3424           13342                           TCF      NV50DSP                               
061678,001135: 10,3425           33722        V50PASTE           CAF      V50N00                                
061679,001136: 10,3426           13342                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
061680,001137: 
061681,001138: 10,3427           45027        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
061682,001139: 10,3430           00006                           EXTEND                                         
061683,001140: 10,3431           03011                           WAND     DSALMOUT                              
061684,001141: 
061685,001142: 10,3432           30100                           CA       FLAGWRD4                              
061686,001143: 10,3433           73740                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
061687,001144: 10,3434           10000                           CCS      A                                     
061688,001145: 10,3435           35033                           CAF      ONE                                   
061689,001146: 10,3436           54001                           TS       L                                     
061690,001147: 10,3437           35035                           CAF      ZERO                                  
061691,001148: 10,3440           50001                           INDEX    L                                     
061692,001149: 10,3441           57042                           XCH      CADRSTOR                              
061693,001150: 
061694,001151: 10,3442           00004                           INHINT                                         
061695,001152: 10,3443           00002                           TC       Q                                     
061696,001153: 
061697,001154: 10,3444           34233        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
061698,001155: 10,3445           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
061699,001156: 10,3446           00006                           EXTEND                                         
061700,001157: 10,3447           63453                           BZMF     RELINTQ                               #  NO
061701,001158: 10,3450           56064                           XCH      LOCCTR                                #  YES
061702,001159: 10,3451           50064                           INDEX    LOCCTR                                
061703,001160: 10,3452           54164                           TS       LOC                                   
061704,001161: 
061705,001162: 10,3453           00003        RELINTQ            RELINT                                         
061706,001163: 10,3454           00002                           TC       Q                                     #  BACK TO USER
061707,001164: 
061708,001165: 10,3455           37667        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
061709,001166: 10,3456           05163                           TC       FINDVAC                               
061710,001167: 10,3457     0370                                  EBANK=   NVSAVE                                
061711,001168: 10,3457           04245 04060                     2CADR    JAMTERM                               
061712,001169: 
061713,001170: 10,3461           13503                           TCF      FLASHSUB   +1                         
061714,001171: 
061715,001172: 10,3462           30100        ISITPRIO           CA       FLAGWRD4                              
061716,001173: 10,3463           73510                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
061717,001174: 10,3464           00006                           EXTEND                                         
061718,001175: 10,3465           13017                           BZF      PRIOBORT                              
061719,001176: 10,3466           15233                           TCF      ENDOFJOB                              
061720,001177: 10,3467           11042        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
061721,001178: 10,3470           15233                           TCF      ENDOFJOB                              #  YES
061722,001179: 10,3471           13473                           TCF      RESTSLEP                              
061723,001180: 
061724,001181: 10,3472           15233                           TCF      ENDOFJOB                              
061725,001182: 
061726,001183: 10,3473           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
061727,001184: 10,3474           73741                           MASK     ASTROMSK                              
061728,001185: 10,3475           07722                           TC       UPENT2                                
061729,001186: 10,3476           24100        OCT24100           OCT      24100                                 #  *** DONT MOVE
061730,001187: 
061731,001188: 10,3477           50164                           INDEX    COPINDEX                              
061732,001189: 10,3500           33731                           CAF      NVCADR                                
061733,001190: 10,3501           04456                           TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
061734,001191: 
061735,001192: 10,3502           04443        FLASHSUB           TC       FLASHON                               
061736,001193: 
061737,001194: 10,3503           30164                           CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
061738,001195: 10,3504           54157                           TS       COPMPAC                               
061739,001196: 
061740,001197: 10,3505           30162                           CA       GENMASK                               
061741,001198: 10,3506           73232                           MASK     IDLEMASK                              
061742,001199: 10,3507           07722                           TC       UPENT2                                
061743,001200: 10,3510           40040        ITISMASK           OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
061744,001201: 
061745,001202: 10,3511           31073                           CA       R1SAVE                                #  IS THIS A REPEAT AND RETURN DISPLAY
061746,001203: 10,3512           50164                           INDEX    COPINDEX                              
061747,001204: 10,3513           75031                           MASK     BIT3                                  
061748,001205: 10,3514           10000                           CCS      A                                     
061749,001206: 10,3515           13602                           TCF      UNSETR1                               #  YES
061750,001207: 
061751,001208: 10,3516           11042                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
061752,001209: 10,3517           13462                           TCF      ISITPRIO                              
061753,001210: 10,3520           13522                           TCF      +2                                    
061754,001211: 10,3521           13462                           TCF      ISITPRIO                              
061755,001212: 
061756,001213: 10,3522           04223                           TC       ENDIDLE                               
061757,001214: 10,3523           13614        IDLERET1           TCF      TERMATE                               
061758,001215: 
061759,001216: 10,3524           13633                           TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
061760,001217: 
061761,001218: 10,3525           43750                           CS       LOWLOAD                               
061762,001219: 10,3526           60154                           AD       MPAC                                  #  VERBREG
061763,001220: 10,3527           00006                           EXTEND                                         
061764,001221: 10,3530           26000                           DIM      A                                     
061765,001222: 10,3531           00006                           EXTEND                                         
061766,001223: 10,3532           13703                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
061767,001224: 
061768,001225: 10,3533           35032        OKTOENT            CAF      TWO                                   
061769,001226: 10,3534           54161        ENDOUT             TS       OUTHERE                               
061770,001227: 10,3535           30100                           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
061771,001228: 10,3536           74105                           MASK     OCT60000                              
061772,001229: 10,3537           10000                           CCS      A                                     
061773,001230: 10,3540           13543                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
061774,001231: 10,3541           13651                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
061775,001232: 10,3542           13635                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
061776,001233: 
061777,001234: 10,3543           40025        TIMECHEK           CS       TIME1                                 
061778,001235: 10,3544           61147                           AD       PRIOTIME                              
061779,001236: 10,3545           10000                           CCS      A                                     
061780,001237: 10,3546           40000                           COM                                            
061781,001238: 10,3547           67700                           AD       OCT37776                              
061782,001239: 10,3550           65033                           AD       ONE                                   
061783,001240: 10,3551           63774                           AD       -2SEC                                 
061784,001241: 10,3552           00006                           EXTEND                                         
061785,001242: 10,3553           62766                           BZMF     KEEPPRIO                              
061786,001243: 
061787,001244: 10,3554           13651                           TCF      NORMRET                               
061788,001245: 
061789,001246: 10,3555           35033        NORMWAKE           CAF      ONE                                   
061790,001247: 10,3556           13246                           TCF      WAKEPLAY                              
061791,001248: 
061792,001249: 10,3557           10161        ENDRET             CCS      OUTHERE                               
061793,001250: 10,3560           65033                           AD       ONE                                   
061794,001251: 10,3561           13563                           TCF      +2                                    #  NORMAL ENDIDLE EXIT
061795,001252: 10,3562           15233                           TCF      ENDOFJOB                              
061796,001253: 10,3563           50157                           INDEX    COPMPAC                               
061797,001254: 10,3564           60371                           AD       CADRFLSH                              
061798,001255: 10,3565           54157                           TS       MPAC       +3                         
061799,001256: 
061800,001257: 10,3566           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
061801,001258: 10,3567           73571                           MASK     PINIDMSK                              
061802,001259: 10,3570           07740                           TC       DOWNENT2                              
061803,001260: 10,3571           74044        PINIDMSK           OCT      74044                                 #  *** DONT MOVE
061804,001261: 
061805,001262: 10,3572           46214                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
061806,001263: 10,3573           04170                           TC       NVSUB                                 
061807,001264: 10,3574           13575                           TCF      +1                                    
061808,001265: 
061809,001266: 10,3575           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
061810,001267: 10,3576           77674                           MASK     PRIO37                                
061811,001268: 10,3577           05224                           TC       PRIOCHNG                              
061812,001269: 10,3600           30157                           CA       MPAC       +3                         
061813,001270: 10,3601           14720                           TCF      BANKJUMP                              
061814,001271: 
061815,001272: 10,3602           50164        UNSETR1            INDEX    COPINDEX                              #  RESET REPEAT AND RETURN REQUEST
061816,001273: 10,3603           45031                           CS       BIT3                                  
061817,001274: 10,3604           71073                           MASK     R1SAVE                                
061818,001275: 10,3605           55073                           TS       R1SAVE                                
061819,001276: 10,3606           35035                           CAF      ZERO                                  #  *** 205 ONLY MARKBRAN USERS IN
061820,001277: 10,3607           05007                           TC       SUPERSW                               #  SUPERBANK 0
061821,001278: 
061822,001279: 10,3610           36214                 -1        CAF      THREE                                 #  RETURN TO USERS IMMEDIATE RETURN LOC
061823,001280: 10,3611           50164        IMMEDRET           INDEX    COPINDEX                              
061824,001281: 10,3612           60371                           AD       CADRFLSH                              
061825,001282: 10,3613           14720                           TCF      BANKJUMP                              
061826,001283: 
061827,001284: 10,3614           35035        TERMATE            CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
061828,001285: 10,3615           13534                           TCF      ENDOUT                                
061829,001286: 
061830,001287: 10,3616           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
061831,001288: 10,3617           75016                           MASK     BIT14                                 
061832,001289: 10,3620           10000                           CCS      A                                     
061833,001290: 10,3621           16706                           TCF      Q+1                                   #  NO
061834,001291: 10,3622           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
061835,001292: 10,3623           50164                           INDEX    COPINDEX                              
061836,001293: 10,3624           60371                           AD       CADRFLSH                              
061837,001294: 10,3625           00006                           EXTEND                                         
061838,001295: 10,3626           13630                           BZF      +2                                    #  YES
061839,001296: 
061840,001297: 10,3627           00002                           TC       Q                                     #  NO
061841,001298: 10,3630           11012                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
061842,001299: 10,3631           05233                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
061843,001300: 10,3632           00002                           TC       Q                                     
061844,001301: 
061845,001302:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
061846,001303: 
061847,001304: 10,3633           35033        PROCEED            CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
061848,001305: 10,3634           13534                           TCF      ENDOUT                                
061849,001306: 
061850,001307:                                                                                                  #  LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
061851,001308:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
061852,001309:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
061853,001310: 
061854,001311:                                                                                                  #  IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
061855,001312:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY.  IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
061856,001313:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
061857,001314:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
061858,001315: 
061859,001316: 10,3635           46211        MARKRET            CS       SIX                                   
061860,001317: 10,3636           70100                           MASK     FLAGWRD4                              
061861,001318: 10,3637           00004                           INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
061862,001319: 10,3640           54100                           TS       FLAGWRD4                              
061863,001320: 
061864,001321: 10,3641           00003                           RELINT                                         #  INHINT REALM
061865,001322: 10,3642           13557                           TCF      ENDRET                                
061866,001323: 
061867,001324: 10,3643           37716        MARKOVER           CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
061868,001325: 10,3644           54161                           TS       OUTHERE                               
061869,001326: 10,3645           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
061870,001327: 10,3646           74371                           MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
061871,001328: 10,3647           10000                           CCS      A                                     
061872,001329: 10,3650           13303                           TCF      NORMBNCH                              
061873,001330: 
061874,001331: 10,3651           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
061875,001332: 10,3652           73746                           MASK     BITS5+11                              #  OR WAITING
061876,001333: 10,3653           10000                           CCS      A                                     
061877,001334: 10,3654           13245                           TCF      MARKWAKE                              
061878,001335: 
061879,001336: 10,3655           30100                           CA       FLAGWRD4                              #  NO
061880,001337: 10,3656           73747                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
061881,001338: 10,3657           10000                           CCS      A                                     
061882,001339: 10,3660           13555                           TCF      NORMWAKE                              #  YES
061883,001340: 
061884,001341: 10,3661           31071                           CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST
061885,001342: 10,3662           75047                           MASK     OCT50                                 #  OR A GODSPRET
061886,001343: 10,3663           10000                           CCS      A                                     
061887,001344: 10,3664           13557                           TCF      ENDRET                                #  YES
061888,001345: 10,3665           30370                           CA       NVSAVE                                
061889,001346: 10,3666           00006                           EXTEND                                         
061890,001347: 10,3667           13557                           BZF      ENDRET                                
061891,001348: 
061892,001349: 10,3670           35103                           CAF      PRIO15                                
061893,001350: 10,3671           00004                           INHINT                                         
061894,001351: 10,3672           05150                           TC       NOVAC                                 
061895,001352: 10,3673     0366                                  EBANK=   NVWORD                                
061896,001353: 10,3673           03037 20060                     2CADR    PLAYJUM1                              
061897,001354: 
061898,001355: 10,3675           13557                           TCF      ENDRET                                
061899,001356: 
061900,001357: 10,3676           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
061901,001358: 10,3677           73746                           MASK     BITS5+11                              
061902,001359: 10,3700           10000                           CCS      A                                     
061903,001360: 10,3701           15233                           TCF      ENDOFJOB                              #  YES
061904,001361: 10,3702           13176                           TCF      GOSLEEPS                              
061905,001362: 
061906,001363: 10,3703           50157        LOADITIS           INDEX    COPMPAC                               
061907,001364: 10,3704           30366                           CA       NVWORD                                
061908,001365: 10,3705           76043                           MASK     LOW7                                  
061909,001366: 10,3706           40000                           COM                                            
061910,001367: 10,3707           60155                           AD       MPAC       +1                         #  NOUNREG
061911,001368: 10,3710           00006                           EXTEND                                         
061912,001369: 10,3711           13533                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
061913,001370: 10,3712           13272                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
061914,001371: 
061915,001372: 10,3713           46214        ERASER             CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
061916,001373: 10,3714           04170                           TC       NVSUB                                 
061917,001374: 10,3715           15233                           TCF      ENDOFJOB                              
061918,001375: 10,3716           15233                           TCF      ENDOFJOB                              
061919,001376: 
061920,001377: 10,3717           00036        PERFMASK           OCT      0036                                  #  FLASH, PERFORM, BLANK R2 AND R3
061921,001378: 10,3720           00231        V01N25             VN       00125                                 
061922,001379: 10,3721           01407        V06N07             VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
061923,001380: 10,3722           14400        V50N00             VN       5000                                  
061924,001381: 10,3723           00030        PERF2MSK           OCT      00030                                 #  FLASH, PERFORM
061925,001382: 10,3724           01006        V04N06             VN       00406                                 
061926,001383: 10,3725           00014        PERF4MSK           OCT      14                                    #  FLASH, BLANK R3
061927,001384: 10,3726  10,3272               GOAGIN             EQUALS   PINBRNCH                              
061928,001385: 10,3726           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
061929,001386: 10,3727           40230        MARK3MSK           OCT      40230                                 #  MARK, DECIMAL NOUN, PERFORM, FLASH
061930,001387: 10,3730           40036        MARK4MSK           OCT      40036                                 #  MARK, PERFORM, FLASH, BLANK 2 AND 3
061931,001388: 10,3731           20764        NVCADR             CADR     REDOPRIO                              
061932,001389: 10,3732           20624        WAKECADR           CADR     MARKPLAY                              
061933,001390: 10,3733           21037                           CADR     PLAYJUM1                              
061934,001391: 
061935,001392: 10,3734           03400        OCT3400            OCT      3400                                  #  EBANK MASK
061936,001393: 10,3735           11210        NBUSMASK           OCT      11210                                 
061937,001394: 10,3736           66521        PMMASK             OCT      66521                                 
061938,001395: 10,3737     4160               VERBMASK           =        MID7                                  #  (OCT 37600)
061939,001396: 10,3737           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
061940,001397: 10,3740  10,2555               GOXDSP             EQUALS   GOMARK                                
061941,001398: 10,3740  10,2575               GOXDSPR            EQUALS   GOMARKR                               
061942,001399: 10,3740  10,2561               GOXDSPF            EQUALS   GOMARKF                               
061943,001400: 10,3740  10,2600               GOXDSPFR           EQUALS   GOMARKFR                              
061944,001401: 10,3740     5550               ENDEXT             EQUALS   ENDMARK                               
061945,001402: 10,3740     0165               MPAC2SAV           EQUALS   BANKSET                               
061946,001403: 10,3740           00700        NVBUSMSK           OCT      700                                   
061947,001404: 10,3741           00704        ASTROMSK           OCT      704                                   
061948,001405: 10,3742           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
061949,001406: 10,3743           34300        OCT34300           OCT      34300                                 
061950,001407: 10,3744           40100        BITS15+7           OCT      40100                                 
061951,001408: 10,3745           00110        BITS7+4            OCT      110                                   
061952,001409: 10,3746     1067               DSPFLG             EQUALS   EBANKSAV                              
061953,001410: 10,3746     1070               MARKFLAG           EQUALS   MARKEBAN                              
061954,001411: 10,3746     1071               SAVEFLAG           EQUALS   EBANKTEM                              
061955,001412: 10,3746           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
061956,001413: 10,3747           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
061957,001414: 10,3750           00026        LOWLOAD            DEC      22         B-14                       
061958,001415: 10,3751           77730        BUSYMASK           OCT      77730                                 
061959,001416: 10,3752           00050        CADRMASK           OCT      50                                    
061960,001417: 10,3753     7707               PINMASK            EQUALS   13,14,15                              
061961,001418: 10,3753  10,3312               GOPLAY             EQUALS   NVDSP                                 
061962,001419:                                                                                                  #  PRIOSAVE      EQUALS  R1SAVE
061963,001420: 10,3753     0157               COPMPAC            EQUALS   MPAC       +3                         
061964,001421: 10,3753     0160               TEMPOR2            EQUALS   MPAC       +4                         
061965,001422: 10,3753     0161               OUTHERE            EQUALS   MPAC       +5                         
061966,001423: 10,3753     0164               COPINDEX           EQUALS   LOC                                   
061967,001424: 10,3753     0163               USERPRIO           EQUALS   MODE                                  
061968,001425: 10,3753     0162               GENMASK            EQUALS   MPAC       +6                         
061969,001426: 10,3753           20144        PRIOOCT            OCT      20144                                 #  PRIO
061970,001427: 10,3754           42424        MARKOCT            OCT      42424                                 #  MARK
061971,001428: 10,3755           11254                           OCT      11254                                 #  NORM
061972,001429: 
061973,001430: 10,3756           74704        IDLESLEP           OCT      74704                                 
061974,001431: 10,3757           67777        OCT67777           OCT      67777                                 
061975,001432: 10,3760     5542               LINUS              EQUALS   BLANKET                               
061976,001433: 10,3760     0154               FACEREG            EQUALS   MPAC                                  
061977,001434: 10,3760     0155               PLAYTEM1           EQUALS   MPAC       +1                         
061978,001435: 10,3760     0157               PLAYTEM3           EQUALS   MPAC       +3                         
061979,001436: 10,3760     0160               PLAYTEM4           EQUALS   MPAC       +4                         
061980,001437: 10,3760           40420        OCT40420           OCT      40420                                 
061981,001438: 10,3761           02770        MAKEGEN            GENADR   MAKEPLAY                              
061982,001439: 10,3762           10200        OCT10200           OCT      10200                                 
061983,001440: 10,3763           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
061984,001441: 10,3764           20100        OCT20100           OCT      20100                                 
061985,001442: 10,3765           24030        CLOCKCON           OCT      24030                                 #  FLASH, PERFORM, V99 OR V97 PASTE,REFLASH

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