Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

063165,000002:                                                                                                  ## Copyright:    Public domain.
063166,000003:                                                                                                  ## Filename:     DISPLAY_INTERFACE_ROUTINES.agc
063167,000004:                                                                                                  ## Purpose:      Part of the source code for Comanche, build 055. It
063168,000005:                                                                                                  ##               is part of the source code for the Command Module's
063169,000006:                                                                                                  ##               (CM) Apollo Guidance Computer (AGC), Apollo 11.
063170,000007:                                                                                                  ## Assembler:    yaYUL
063171,000008:                                                                                                  ## Reference:    pp. 1452-1484
063172,000009:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>
063173,000010:                                                                                                  ## Website:      http://www.ibiblio.org/apollo.
063174,000011:                                                                                                  ## Mod history:  2009-05-07 RSB Adapted from Colossus249 file of the same
063175,000012:                                                                                                  ##                              name, and page images. Corrected various 
063176,000013:                                                                                                  ##                              typos in the transcription of program 
063177,000014:                                                                                                  ##                              comments, and these should be back-ported  
063178,000015:                                                                                                  ##                              to Colossus249.
063179,000016:                                                                                                  ##              2010-08-29 JL   Fixed indentation, whitespace.
063180,000017:                                                                                                  ##              2016-12-22 RSB  Proofed comment text using octopus/ProoferComments
063181,000018:                                                                                                  ##                              and corrected the errors found.
063182,000019:                                                                                                  ##              2017-01-08 RSB  Fixed comment errors detected in cross-diff vs
063183,000020:                                                                                                  ##                              Colossus 249.
063184,000021:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
063185,000022:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
063186,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
063187,000024: 
063188,000025:                                                                                                  ## The contents of the "Comanche055" files, in general, are transcribed 
063189,000026:                                                                                                  ## from scanned documents. 
063190,000027:                                                                                                  ##
063191,000028:                                                                                                  ##       Assemble revision 055 of AGC program Comanche by NASA
063192,000029:                                                                                                  ##       2021113-051.  April 1, 1969.  
063193,000030:                                                                                                  ##
063194,000031:                                                                                                  ##       This AGC program shall also be referred to as Colossus 2A
063195,000032:                                                                                                  ##
063196,000033:                                                                                                  ##       Prepared by
063197,000034:                                                                                                  ##                       Massachusetts Institute of Technology
063198,000035:                                                                                                  ##                       75 Cambridge Parkway
063199,000036:                                                                                                  ##                       Cambridge, Massachusetts
063200,000037:                                                                                                  ##
063201,000038:                                                                                                  ##       under NASA contract NAS 9-4065.
063202,000039:                                                                                                  ##
063203,000040:                                                                                                  ## Refer directly to the online document mentioned above for further
063204,000041:                                                                                                  ## information.  Please report any errors to info@sandroid.org.
063205,000042: 

Page 1452

063207,000044:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
063208,000045:                                                                                                  #        1.  PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS.  USUALLY THESE DISPLAYS ARE SENT
063209,000046:                                                                                                  #            OUT UNDER CRITICAL ALARM CONDITIONS.
063210,000047:                                                                                                  #        2.  EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
063211,000048:                                                                                                  #        3.  NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
063212,000049:                                                                                                  #            SEQUENCE OF EVENTS.
063213,000050:                                                                                                  #        4.  MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES.  THESE INCLUDE SUCH DISPLAYS AS
063214,000051:                                                                                                  #            MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
063215,000052:                                                                                                  #        5.  ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
063216,000053: 
063217,000054:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
063218,000055:                                                                                                  #        1.  ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
063219,000056:                                                                                                  #            (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
063220,000057:                                                                                                  #            BUT NOT WAITING FOR A RESPONSE.
063221,000058:                                                                                                  #        2.  INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
063222,000059:                                                                                                  #            (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
063223,000060:                                                                                                  #            WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
063224,000061:                                                                                                  #            OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
063225,000062:                                                                                                  #            HAS INFO SAVED FOR RESTART PURPOSES.
063226,000063: 
063227,000064:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS-
063228,000065:                                                                                                  #        INTERRUPTS -
063229,000066:                                                                                                  #                1.  THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
063230,000067:                                                                                                  #                2.  INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
063231,000068:                                                                                                  #                3.  PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS.  A PRIORITY DISPLAY INTERRUPTING ANOTHER
063232,000069:                                                                                                  #                    PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
063233,000070:                                                                                                  #                4.  A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
063234,000071:                                                                                                  #                5.  A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
063235,000072: 
063236,000073:                                                                                                  #        ORDER OF WAITING DISPLAYS-
063237,000074:                                                                                                  #                1.  ASTRONAUT EXTERNAL USE
063238,000075:                                                                                                  #                2.  PRIORITY
063239,000076:                                                                                                  #                3.  INTERRUPTED MARK
063240,000077:                                                                                                  #                4.  INTERRUPTED NORMAL
063241,000078:                                                                                                  #                5.  MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
063242,000079:                                                                                                  #                6.  MARK WAITING
063243,000080:                                                                                                  #                7.  NORMAL WAITING
063244,000081: 

Page 1453

063246,000083:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
063247,000084:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
063248,000085:                                                                                                  #  WILL FOLLOW LATER):
063249,000086:                                                                                                  #        1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
063250,000087:                                                                                                  #            IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
063251,000088:                                                                                                  #            IS TO THE USERS CALLING LOC +1.
063252,000089:                                                                                                  #        2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
063253,000090:                                                                                                  #        3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
063254,000091:                                                                                                  #        4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
063255,000092:                                                                                                  #            USERS JOB.
063256,000093:                                                                                                  #        5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
063257,000094:                                                                                                  #        6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
063258,000095:                                                                                                  #            DESCRIPTION OF RESTARTS).
063259,000096:                                                                                                  #        7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
063260,000097:                                                                                                  #            TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
063261,000098:                                                                                                  #            (V32) BRANCHES TO THE USERS CALL CADR +3.
063262,000099:                                                                                                  #        8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
063263,000100: 
063264,000101:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
063265,000102: 
063266,000103:                                                                                                  #        GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
063267,000104:                                                                                                  #                1.  GODSP IS NOT RESTARTABLE
063268,000105:                                                                                                  #                2.  A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
063269,000106:                                                                                                  #                                CAF     VXXNYY
063270,000107:                                                                                                  #                                TC      BANKCALL
063271,000108:                                                                                                  #                                CADR    GODSP
063272,000109:                                                                                                  #                        VXXNYY  OCT     0XXYY
063273,000110: 
063274,000111:                                                                                                  #        GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
063275,000112:                                                                                                  #                                CAF     VXXNYY
063276,000113:                                                                                                  #                                TC      BANKCALL
063277,000114:                                                                                                  #                                CADR    GODSPR
063278,000115:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GODSPR
063279,000116: 
063280,000117:                                                                                                  #        GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER.  3 RETURNS ARE POSSIBLE FROM
063281,000118:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
063282,000119:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
063283,000120:                                                                                                  #                                TC      BANKCALL
063284,000121:                                                                                                  #                                CADR    GOFLASH
063285,000122:                                                                                                  #                                ...     ...             TERMINATE RETURN
063286,000123:                                                                                                  #                                ...     ...             PROCEED RETURN
063287,000124:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
063288,000125: 
063289,000126:                                                                                                  #        GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A

Page 1454

063291,000128:                                                                                                  #        V01 N25.  A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
063292,000129:                                                                                                  #        USER (SEE NO. 7 ABOVE).
063293,000130:                                                                                                  #        GOPERF1 BLANKS REGISTERS R2 AND R3
063294,000131:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX
063295,000132:                                                                                                  #                                TC      BANKCALL
063296,000133:                                                                                                  #                                CADR    GOPERF1
063297,000134:                                                                                                  #                                ...     ...             TERMINATE RETURN
063298,000135:                                                                                                  #                                ...     ...             PROCEED RETURN
063299,000136:                                                                                                  #                                ...     ...             ENTER RETURN
063300,000137:                                                                                                  #        GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
063301,000138:                                                                                                  #        REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY.  PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
063302,000139:                                                                                                  #        DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
063303,000140:                                                                                                  #        GOPERF2 DOES NOT BLANK ANY REGISTERS
063304,000141:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY. XX=00 OR 01.
063305,000142:                                                                                                  #                                TC      BANKCALL
063306,000143:                                                                                                  #                                CADR    GOPERF2
063307,000144:                                                                                                  #                                ...     ...             TERMINATE RETURN
063308,000145:                                                                                                  #                                ...     ...             PROCEED RETURN
063309,000146:                                                                                                  #                                ...     ...             ENTER RETURN
063310,000147:                                                                                                  #        GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
063311,000148:                                                                                                  #        DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM.  NO IMMEDIATE RETURN
063312,000149:                                                                                                  #        IS MADE TO THE USER (SEE NO. 7 ABOVE).
063313,000150:                                                                                                  #        GOPERF3 BLANKS REGISTERS R2 AND R3
063314,000151:                                                                                                  #                                CAF     DECXX           REQUEST PERFORM ON PXX
063315,000152:                                                                                                  #                                TC      BANKCALL
063316,000153:                                                                                                  #                                CADR    GOPERF3
063317,000154:                                                                                                  #                                ...     ...             TERMINATE RETURN
063318,000155:                                                                                                  #                                ...     ...             PROCEED RETURN
063319,000156:                                                                                                  #                                ...     ...             ENTER RETURN
063320,000157: 
063321,000158:                                                                                                  #        GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION.  THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
063322,000159:                                                                                                  #        GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM.  NO
063323,000160:                                                                                                  #        IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
063324,000161:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTION XX
063325,000162:                                                                                                  #                                TC      BANKCALL
063326,000163:                                                                                                  #                                CADR    GOPERF4
063327,000164:                                                                                                  #                                ...     ...             TERMINATE RETURN
063328,000165:                                                                                                  #                                ...     ...             PROCEED RETURN
063329,000166:                                                                                                  #                                ...     ...             ENTER RETURN
063330,000167:                                                                                                  #        GOPERF4 BLANKS REGISTER R3
063331,000168: 

Page 1455

063333,000170:                                                                                                  #        GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
063334,000171:                                                                                                  #        OUT.
063335,000172:                                                                                                  #                                CAF     VXXNYY
063336,000173:                                                                                                  #                                TC      BANKCALL
063337,000174:                                                                                                  #                                CADR    GODSPRET
063338,000175:                                                                                                  #                                ...     ...             RETURN TO USER
063339,000176: 
063340,000177:                                                                                                  #        REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
063341,000178:                                                                                                  #        ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
063342,000179:                                                                                                  #                                CAF     VXXNYY
063343,000180:                                                                                                  #                                TC      BANKCALL
063344,000181:                                                                                                  #                                CADR    REGODSP
063345,000182: 
063346,000183:                                                                                                  #        REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
063347,000184:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
063348,000185:                                                                                                  #                                TC      BANKCALL
063349,000186:                                                                                                  #                                CADR    REFLASH
063350,000187:                                                                                                  #                                ...     ...             TERMINATE RETURN
063351,000188:                                                                                                  #                                ...     ...             PROCEED RETURN
063352,000189:                                                                                                  #                                ...     ...             ENTER RETURN
063353,000190: 
063354,000191:                                                                                                  #        GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
063355,000192:                                                                                                  #                                CAF     VXXNYY
063356,000193:                                                                                                  #                                TC      BANKCALL
063357,000194:                                                                                                  #                                CADR    GOFLASHR
063358,000195:                                                                                                  #                                ...     ...             TERMINATE RETURN
063359,000196:                                                                                                  #                                ...     ...             PROCEED RETURN
063360,000197:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
063361,000198:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOFLASHR
063362,000199: 
063363,000200:                                                                                                  #        GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
063364,000201:                                                                                                  #        GOPERF1R BLANKS REGISTERS R2 AND R3
063365,000202:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX.
063366,000203:                                                                                                  #                                TC      BANKCALL
063367,000204:                                                                                                  #                                CADR    GOPERF1R
063368,000205:                                                                                                  #                                ...     ...             TERMINATE RETURN
063369,000206:                                                                                                  #                                ...     ...             PROCEED RETURN
063370,000207:                                                                                                  #                                ...     ...             ENTER RETURN
063371,000208:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOPERF1R
063372,000209: 
063373,000210:                                                                                                  #        GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.

Page 1456

063375,000212:                                                                                                  #        GOPERF2R DOES NOT BLANK ANY REGISTERS
063376,000213:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
063377,000214:                                                                                                  #                                TC      BANKCALL
063378,000215:                                                                                                  #                                CADR    GOPERF2R
063379,000216:                                                                                                  #                                ...     ...             TERMINATE RETURN
063380,000217:                                                                                                  #                                ...     ...             PROCEED RETURN
063381,000218:                                                                                                  #                                ...     ...             ENTER RETURN
063382,000219:                                                                                                  #                                ...     ...             IMMEDIATE RETURN HERE FROM GOPERF2R
063383,000220: 
063384,000221:                                                                                                  #        GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
063385,000222:                                                                                                  #        GOPERF3R BLANKS REGISTERS R2 AND R3
063386,000223:                                                                                                  #                                CAF     PROGXX          PERFORM PROGRAM XX
063387,000224:                                                                                                  #                                TC      BANKCALL
063388,000225:                                                                                                  #                                CADR    GOPERF3R
063389,000226:                                                                                                  #                                ...     ...             TERMINATE RETURN
063390,000227:                                                                                                  #                                ...     ...             PROCEED RETURN
063391,000228:                                                                                                  #                                ...     ...             ENTER RETURN
063392,000229:                                                                                                  #                                ...     ...             GOPERF3R IMMEDIATELY RETURNS HERE
063393,000230: 
063394,000231:                                                                                                  #        GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
063395,000232:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTIONXX
063396,000233:                                                                                                  #                                TC      BANKCALL
063397,000234:                                                                                                  #                                CADR    GOPERF4R
063398,000235:                                                                                                  #                                ...     ...             TERMINATE RETURN
063399,000236:                                                                                                  #                                ...     ...             PROCEED RETURN
063400,000237:                                                                                                  #                                ...     ...             ENTER RETURN
063401,000238:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
063402,000239:                                                                                                  #        GOPERF4R BLANKS REGISTER R3
063403,000240: 
063404,000241:                                                                                                  #        REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
063405,000242:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
063406,000243:                                                                                                  #                                TC      BANKCALL
063407,000244:                                                                                                  #                                CADR    REFLASHR
063408,000245:                                                                                                  #                                ...     ...             TERMINATE RETURN
063409,000246:                                                                                                  #                                ...     ...             PROCEED RETURN
063410,000247:                                                                                                  #                                ...     ...             ENTER RETURN
063411,000248:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
063412,000249: 
063413,000250:                                                                                                  #        REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.

Page 1457

063415,000252:                                                                                                  #                                CAF     VXXNYY
063416,000253:                                                                                                  #                                TC      BANKCALL
063417,000254:                                                                                                  #                                CADR    REGODSPR
063418,000255:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
063419,000256: 

Page 1458

063421,000258:                                                                                                  #        GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
063422,000259:                                                                                                  #        GOXDSP = GOMARK
063423,000260:                                                                                                  #                                CAF     VXXNYY          VXXNYY CONTAINS VERB AND NOUN
063424,000261:                                                                                                  #                                TC      BANKCALL
063425,000262:                                                                                                  #                                CADR    GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
063426,000263: 
063427,000264:                                                                                                  #        GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
063428,000265:                                                                                                  #        GOXDSPR = GOMARKR
063429,000266:                                                                                                  #                                CAF     VXXNYY
063430,000267:                                                                                                  #                                TC      BANKCALL
063431,000268:                                                                                                  #                                CADR    GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
063432,000269: 
063433,000270:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GOMARKR
063434,000271: 
063435,000272:                                                                                                  #        GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER.  3 RETURNS ARE POSSIBLE FROM
063436,000273:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
063437,000274: 
063438,000275:                                                                                                  #        GOXDSPF = GOMARKF
063439,000276: 
063440,000277:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
063441,000278:                                                                                                  #                                TC      BANKCALL
063442,000279:                                                                                                  #                                CADR    GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
063443,000280:                                                                                                  #                                ...     ...             TERMINATE RETURN
063444,000281:                                                                                                  #                                ...     ...             PROCEED RETURN
063445,000282:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
063446,000283: 
063447,000284:                                                                                                  #        GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
063448,000285:                                                                                                  #        GOXDSPFR = GOMARKFR
063449,000286:                                                                                                  #                                CAF     VXXNYY          FLASHING MARK VERB NOUN
063450,000287:                                                                                                  #                                TC      BANKCALL
063451,000288:                                                                                                  #                                CADR    GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
063452,000289:                                                                                                  #                                ...     ...             TERMINATE RETURN
063453,000290:                                                                                                  #                                ...     ...             PROCEED RETURN
063454,000291:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
063455,000292:                                                                                                  #                                
063456,000293:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
063457,000294: 
063458,000295:                                                                                                  #        GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER.  NO IMMEDIATE
063459,000296:                                                                                                  #        RETURN IS MADE.  THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A.  GOMARK1 DISPLAYS R1, R2, R
063460,000297:                                                                                                  #        MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM.  THE ASTRONAUT WILL RESPOND WITH A MARK
063461,000298:                                                                                                  #        OR MARK REJECT OR AN ENTER.  THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
063462,000299: 
063463,000300:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       Y=NOUN
063464,000301:                                                                                                  #                                TC      BANKCALL

Page 1459

063466,000303:                                                                                                  #                                CADR    GOMARK1
063467,000304:                                                                                                  #                                ...     ...             ENTER RETURN
063468,000305: 
063469,000306:                                                                                                  #        *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
063470,000307: 
063471,000308:                                                                                                  #        GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
063472,000309:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
063473,000310:                                                                                                  #                                TC      BANKCALL
063474,000311:                                                                                                  #                                CADR    GOMARK1R
063475,000312:                                                                                                  #                                ...     ...             ASTRONAUT ENTER RETURN
063476,000313:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
063477,000314: 
063478,000315:                                                                                                  #        GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
063479,000316:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
063480,000317:                                                                                                  #                                TC      BANKCALL
063481,000318:                                                                                                  #                                CADR    GOMARK2
063482,000319:                                                                                                  #                                ...     ...             TERMINATE RETURN
063483,000320:                                                                                                  #                                ...     ...             PROCEED RETURN
063484,000321:                                                                                                  #                                ...     ...             ENTER RETURN
063485,000322: 
063486,000323:                                                                                                  #        GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
063487,000324:                                                                                                  #                                CAF     V5XNYY          X=0,1,2,3,4     YY=NOUN
063488,000325:                                                                                                  #                                TC      BANKCALL
063489,000326:                                                                                                  #                                CADR    GOMARK2R
063490,000327:                                                                                                  #                                ...     ...             TERMINATE RETURN
063491,000328:                                                                                                  #                                ...     ...             PROCEED RETURN
063492,000329:                                                                                                  #                                ...     ...             ENTER RETURN
063493,000330:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
063494,000331: 
063495,000332:                                                                                                  #        GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY.  THE DESIRED MARK PLEASE
063496,000333:                                                                                                  #        PERFORM VERB AND NOUN ARE ENTERED IN A.  GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
063497,000334:                                                                                                  #        V5XNYY FOR A PLEASE PERFORM.  GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
063498,000335:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
063499,000336:                                                                                                  #                                TC      BANKCALL
063500,000337:                                                                                                  #                                CADR    GOMARK3
063501,000338:                                                                                                  #                                ...     ...             TERMINATE RETURN
063502,000339:                                                                                                  #                                ...     ...             PROCEED RETURN
063503,000340:                                                                                                  #                                ...     ...             ENTER RETURN
063504,000341: 
063505,000342:                                                                                                  #        GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
063506,000343:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
063507,000344:                                                                                                  #                                TC      BANKCALL
063508,000345:                                                                                                  #                                CADR    GOMARK4
063509,000346:                                                                                                  #                                ...     ...             TERMINATE RETURN
063510,000347:                                                                                                  #                                ...     ...             PROCEED RETURN

Page 1460

063512,000349:                                                                                                  #                        ...     ...                     ENTER RETURN
063513,000350:                                                                                                  #        EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
063514,000351:                                                                                                  #        SENT OUT.
063515,000352:                                                                                                  #                                CAF     VXXNYY
063516,000353:                                                                                                  #                                TC      BANKCALL
063517,000354:                                                                                                  #                                CADR    EXDSPRET
063518,000355:                                                                                                  #                                ...     ...             RETURN TO USER
063519,000356: 
063520,000357:                                                                                                  #        KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
063521,000358:                                                                                                  #        HAVE BEEN CLEANED OUT.
063522,000359:                                                                                                  #                                TC      BANKCALL
063523,000360:                                                                                                  #                                CADR    KLEENEX
063524,000361:                                                                                                  #                                ...     ...             RETURN TO USER
063525,000362: 
063526,000363:                                                                                                  #        MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
063527,000364:                                                                                                  #                                TC      BANKCALL
063528,000365:                                                                                                  #                                CADR    MARKBRAN
063529,000366:                                                                                                  #                                ...     ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
063530,000367:                                                                                                  #                                                        (GOOD RETURN TO IMMEDIATE RETURN LOC OF
063531,000368:                                                                                                  #                                                        LAST FLASHING MARK R ROUTINE)
063532,000369: 
063533,000370:                                                                                                  #        PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY.  IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
063534,000371:                                                                                                  #        BLANKED AND CONTROL IS SENT TO ENDOFJOB.
063535,000372:                                                                                                  #                                TC      POSTJUMP
063536,000373:                                                                                                  #                                CADR    PINBRNCH
063537,000374: 
063538,000375:                                                                                                  #        PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
063539,000376:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
063540,000377: 
063541,000378:                                                                                                  #        THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
063542,000379:                                                                                                  #        PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
063543,000380:                                                                                                  #        IS RESPONDED TO BY THE ASTRONAUT.
063544,000381: 
063545,000382:                                                                                                  #        THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
063546,000383:                                                                                                  #        PRIO DISPLAY.
063547,000384:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
063548,000385:                                                                                                  #                                TC      BANKCALL
063549,000386:                                                                                                  #                                CADR    PRIODSP
063550,000387:                                                                                                  #                                ...     ...             TERMINATE RETURN
063551,000388:                                                                                                  #                                ...     ...             PROCEED RETURN

Page 1461

063553,000390:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
063554,000391: 
063555,000392:                                                                                                  #        PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
063556,000393:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
063557,000394:                                                                                                  #                                TC      BANKCALL
063558,000395:                                                                                                  #                                CADR    PRIODSPR
063559,000396:                                                                                                  #                                ...     ...             TERMINATE RETURN
063560,000397:                                                                                                  #                                ...     ...             PROCEED RETURN
063561,000398:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
063562,000399:                                                                                                  #                                ...     ...             IMMEDIATE RETURN
063563,000400: 
063564,000401:                                                                                                  #        PRIOLARM DOES A V05N09 PRIODSPR.
063565,000402: 
063566,000403:                                                                                                  #        CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE).  A RETURN IS MADE TO THE USER AFTER NORMAL
063567,000404:                                                                                                  #        DISPLAYS ARE CLEANED OUT.
063568,000405:                                                                                                  #                                TC      BANKCALL
063569,000406:                                                                                                  #                                CADR    CLEANDSP
063570,000407:                                                                                                  #                                ...     ...             RETURN TO USER

Page 1462

063572,000409: 
063573,000410:                                                                                                  #  GENERAL INFORMATION
063574,000411:                                                                                                  #  ------- -----------
063575,000412: 
063576,000413:                                                                                                  #  ALARM OR ABORT EXIT MODES--
063577,000414:                                                                                                  #        PRIOBORT        TC      ABORT
063578,000415:                                                                                                  #                        OCT     1502
063579,000416: 
063580,000417:                                                                                                  #        PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
063581,000418:                                                                                                  #        (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
063582,000419:                                                                                                  #        ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
063583,000420: 
063584,000421:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED--
063585,000422:                                                                                                  #        ACCOMPLISHED BY FRESH START-    1.  FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
063586,000423:                                                                                                  #                                        2.  NVSAVE = NORMAL VERB AND NOUN REGISTER.
063587,000424:                                                                                                  #                                        3.  EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
063588,000425:                                                                                                  #                                        5.  R1SAVE = MARKBRAN CONTROL WORD
063589,000426:                                                                                                  #                                        4.  RESTREG = PRIORITY 30 AND SUPERBANK 3.
063590,000427: 
063591,000428:                                                                                                  #  OUTPUT--
063592,000429:                                                                                                  #        NVWORD = PRIO VERB AND NOUN
063593,000430:                                                                                                  #        NVWORD +1(MARKNV) = MARK VERB AND NOUN
063594,000431:                                                                                                  #        NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
063595,000432: 
063596,000433:                                                                                                  #        DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
063597,000434:                                                                                                  #        DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
063598,000435:                                                                                                  #        DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
063599,000436: 
063600,000437:                                                                                                  #        CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
063601,000438:                                                                                                  #        CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
063602,000439:                                                                                                  #        CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
063603,000440: 
063604,000441:                                                                                                  #        PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
063605,000442:                                                                                                  #        OPTION1 = DESIRED OPTION FROM GOPERF4
063606,000443:                                                                                                  #        FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
063607,000444:                                                                                                  #        DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
063608,000445: 
063609,000446:                                                                                                  #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
063610,000447:                                                                                                  #        JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
063611,000448: 
063612,000449:                                                                                                  #  DEBRIS-- (STORED INTO)
063613,000450:                                                                                                  #        TEMPORARY TEMPORARIES - A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
063614,000451:                                                                                                  #  EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1                        4, FACEREG
063615,000452:                                                                                                  #        ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
063616,000453:                                                                                                  #        ERASABLES (USED ONLY BY DISPLAY ROUTINES) - NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,

Page 1463

063618,000455:                                                                                                  #                R1SAVE, MARK2PAC,
063619,000456: 
063620,000457:                                                                                                  #  DEBRIS-- (USED BUT NOT STORED INTO) - NOUNREG, VERBREG, LOCCTR, MONSAVE1
063621,000458: 
063622,000459:                                                                                                  #  FLAGWORD DESCRIPTIONS--
063623,000460:                                                                                                  #        FLAGWRD4 - SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
063624,000461: 
063625,000462:                                                                                                  #        DSPFLG, DSPFLG+1, DSPFLG +2-
063626,000463:                                                                                                  #        ----------------------------
063627,000464:                                                                                                  #        BITS 1  BLANK R1
063628,000465:                                                                                                  #             2  BLANK R2
063629,000466:                                                                                                  #             3  BLANK R3
063630,000467:                                                                                                  #             4  FLASHING DISPLAY REQUESTED
063631,000468:                                                                                                  #             5  PERFORM DISPLAY REQUESTED
063632,000469:                                                                                                  #             6  -----                   EXDSPRET                GODSPRET
063633,000470:                                                                                                  #             7  PRIO DISPLAY            -----                   -----
063634,000471:                                                                                                  #             8  -----                   DEC MARK PERFORM        -----
063635,000472:                                                                                                  #             9  EBANK
063636,000473:                                                                                                  #            10  EBANK
063637,000474:                                                                                                  #            11  EBANK
063638,000475:                                                                                                  #            12  -----                   -----                   V99PASTE
063639,000476:                                                                                                  #            13  2ND PART OF PERFORM
063640,000477:                                                                                                  #            15  REFLASH OR REDO         -----                   REFLASH OR REDO
063641,000478:                                                                                                  #            15  -----                   MARK REQUEST            -----
063642,000479: 
063643,000480:                                                                                                  #  RESTARTING DISPLAYS--
063644,000481: 
063645,000482:                                                                                                  #  RULES FOR THE DSKY OPERATOR --
063646,000483:                                                                                                  #        1.  PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
063647,000484:                                                                                                  #            AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
063648,000485:                                                                                                  #            RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
063649,000486:                                                                                                  #            WITH PROCEED AND TERMINATE FOR THIS REASON.
063650,000487:                                                                                                  #        2.  THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
063651,000488:                                                                                                  #            PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
063652,000489:                                                                                                  #            DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.)  IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
063653,000490:                                                                                                  #            IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
063654,000491:                                                                                                  #            OUT.  THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
063655,000492:                                                                                                  #            CONSIDERATION.
063656,000493:                                                                                                  #        3.  KEY RELEASE BUTTON -
063657,000494:                                                                                                  #            A)  IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
063658,000495:                                                                                                  #            B)  IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
063659,000496:                                                                                                  #                AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
063660,000497:                                                                                                  #            IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
063661,000498:                                                                                                  #            KEY RELEASE BUTTON MAY BE NECESSARY.
063662,000499:                                                                                                  #        4.  IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
063663,000500:                                                                                                  #        5.  IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
063664,000501:                                                                                                  #            OVER AGAIN.
063665,000502: 
063666,000503:                                                                                                  #  SPECIAL CONSIDERATIONS--

Page 1464

063668,000505:                                                                                                  #        1.  MPAC +2 SAVED ONLY IN MARK DISPLAYS
063669,000506:                                                                                                  #        2.  GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
063670,000507:                                                                                                  #        3.  ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
063671,000508:                                                                                                  #        4.  ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
063672,000509:                                                                                                  #        5.  GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
063673,000510:                                                                                                  #            BY A .1 RESTART PHASE CHANGE.
063674,000511:                                                                                                  #        6.  IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
063675,000512:                                                                                                  #            CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
063676,000513:                                                                                                  #        7.  IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
063677,000514: 

Page 1465

063679,000516:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
063680,000517:                                                                                                  #                CAF     BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
063681,000518:                                                                                                  #                TC      BLANKET
063682,000519:                                                                                                  #                ...     ...             RETURN TO USER HERE
063683,000520:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
063684,000521:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
063685,000522:    5526                                           BLOCK    02                                    
063686,000523:    4000                                           SETLOC   FFTAG4                                
063687,000524:    4000                                           BANK                                           
063688,000525: 
063689,000526:    5526                                           COUNT    02/DSPLA                              
063690,000527: 
063691,000528:    5526           54162        BLANKET            TS       MPAC       +6                         
063692,000529:    5527           40160                           CS       PLAYTEM4                              
063693,000530:    5530           70162                           MASK     MPAC       +6                         
063694,000531:    5531           50161                           INDEX    MPAC       +5                         
063695,000532:    5532           26160                           ADS      PLAYTEM4                              
063696,000533: 
063697,000534:    5533           00002                           TC       Q                                     
063698,000535: 
063699,000536:    5534           04701        ENDMARK            TC       POSTJUMP                              
063700,000537:    5535           20553                           CADR     MARKEND                               
063701,000538: 
063702,000539:    5536           35021        CLEARMRK           CAF      ZERO                                  
063703,000540:    5537           55044                           TS       EXTVBACT                              
063704,000541: 
063705,000542:    5540           00004                           INHINT                                         
063706,000543:    5541           45017                           CS       BIT1                                  
063707,000544:    5542           70100                           MASK     FLAGWRD4                              
063708,000545:    5543           54100                           TS       FLAGWRD4                              
063709,000546: 
063710,000547:    5544           00003                           RELINT                                         
063711,000548:    5545           00002                           TC       Q                                     
063712,000549: 
063713,000550:                                                                                                  #  *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
063714,000551:                                                                                                  #  FINISHED.
063715,000552: 
063716,000553: 10,2553                                           BANK     10                                    
063717,000554: 10,2000                                           SETLOC   DISPLAYS                              
063718,000555: 10,2000                                           BANK                                           
063719,000556: 
063720,000557: 10,2553                                           COUNT    10/DSPLA                              
063721,000558: 
063722,000559:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
063723,000560:                                                                                                  #  3 RETURNS TO THE USER.  THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
063724,000561: 
063725,000562: 10,2553           05536        MARKEND            TC       CLEARMRK                              
063726,000563: 10,2554           13643                           TCF      MARKOVER                              
063727,000564: 

Page 1466

063729,000566: 10,2555           54155        GOMARK             TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP
063730,000567: 
063731,000568: 10,2556           35001        GOMARS             CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
063732,000569: 10,2557           12722                           TCF      GOFLASH2                              
063733,000570: 
063734,000571: 10,2560           35021        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
063735,000572: 10,2561           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
063736,000573: 
063737,000574: 10,2562           33253                           CAF      MARKFMSK                              #  MARK, FLASH
063738,000575: 10,2563           12722                           TCF      GOFLASH2                              
063739,000576: 
063740,000577: 10,2564           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
063741,000578: 10,2565           33742        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
063742,000579: 10,2566           12722                           TCF      GOFLASH2                              
063743,000580: 
063744,000581: 10,2567           54155        GOMARK3            TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
063745,000582: 10,2570           33727                           CAF      MARK3MSK                              
063746,000583: 10,2571           12722                           TCF      GOFLASH2                              
063747,000584: 
063748,000585: 10,2572           54155        GOMARK4            TS       PLAYTEM1                              
063749,000586: 10,2573           33730                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
063750,000587: 10,2574           12722                           TCF      GOFLASH2                              
063751,000588: 
063752,000589: 10,2575           54155        GOMARKR            TS       PLAYTEM1                              #  ENTR+NCE FOR MARK GODSPR
063753,000590: 
063754,000591: 10,2576           35001                           CAF      BIT15                                 
063755,000592: 10,2577           12700                           TCF      GODSPR2                               
063756,000593: 
063757,000594: 10,2600           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
063758,000595: 
063759,000596: 10,2601           33253                           CAF      MARKFMSK                              
063760,000597: 10,2602           13061                           TCF      GODSPRS                               
063761,000598: 
063762,000599: 10,2603           54155        GOMARK2R           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
063763,000600: 10,2604           33742                           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
063764,000601: 10,2605           13061                           TCF      GODSPRS                               
063765,000602: 
063766,000603: 10,2606           54155        GOMARK3R           TS       PLAYTEM1                              
063767,000604: 10,2607           33727                           CAF      MARK3MSK                              
063768,000605: 10,2610           13061                           TCF      GODSPRS                               
063769,000606: 
063770,000607: 10,2611           35017        MAKEMARK           CAF      ONE                                   
063771,000608: 10,2612           03157                           TC       COPIES                                
063772,000609: 
063773,000610: 10,2613           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
063774,000611: 10,2614           73743                           MASK     OCT34300                              
063775,000612: 10,2615           10000                           CCS      A                                     
063776,000613: 10,2616           12654                           TCF      CHKPRIO                               
063777,000614: 
063778,000615: 10,2617           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY

Page 1467

063780,000617: 10,2620           75007                           MASK     BIT9                                  
063781,000618: 
063782,000619: 10,2621           00006                           EXTEND                                         
063783,000620: 10,2622           12624                           BZF      MARKPLAY                              #  NO
063784,000621: 
063785,000622: 10,2623           15217                           TCF      ENDOFJOB                              
063786,000623: 
063787,000624: 10,2624           00004        MARKPLAY           INHINT                                         
063788,000625: 10,2625           45022                           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
063789,000626: 10,2626           70100                           MASK     FLAGWRD4                              
063790,000627: 10,2627           65017                           AD       ONE                                   
063791,000628: 10,2630           54100                           TS       FLAGWRD4                              
063792,000629: 10,2631           00003                           RELINT                                         
063793,000630: 
063794,000631: 10,2632           41070        GOGOMARK           CS       MARKFLAG                              #  PERFORM
063795,000632: 10,2633           75013                           MASK     BIT5                                  
063796,000633: 10,2634           10000                           CCS      A                                     
063797,000634: 10,2635           12640                           TCF      MARKCOP                               
063798,000635: 10,2636           40370                           CS       MARKNV                                
063799,000636: 10,2637           54370                           TS       MARKNV                                
063800,000637: 
063801,000638: 10,2640           35017        MARKCOP            CAF      ONE                                   #  MARK INDEX
063802,000639: 10,2641           13040                           TCF      PRIOPLAY                              
063803,000640: 
063804,000641: 10,2642           30165        COPYTOGO           CA       MPAC2SAV                              
063805,000642: 10,2643           54156                           TS       MPAC       +2                         
063806,000643: 
063807,000644: 10,2644           50164        COPYPACS           INDEX    COPINDEX                              
063808,000645: 10,2645           33753                           CAF      PRIOOCT                               
063809,000646: 10,2646           54162                           TS       GENMASK                               
063810,000647: 
063811,000648: 10,2647           50164                           INDEX    COPINDEX                              

Was CAF — RSB 2004.

063813,000650: 10,2650           31067                           CA       EBANKSAV                              
063814,000651: 10,2651           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
063815,000652: 
063816,000653: 10,2652           54003                           TS       EBANK                                 
063817,000654: 
063818,000655: 10,2653           00002                           TC       Q                                     
063819,000656: 
063820,000657:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
063821,000658:                                                                                                  #  (A NORMAL OR A PRIO).  IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
063822,000659:                                                                                                  #  REQUEST IS ENDED.  IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED.  IN THIS CASE THE NORM IS PUT TO SLEEP
063823,000660:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
063824,000661: 
063825,000662:                                                                                                  #  IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
063826,000663:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
063827,000664: 
063828,000665: 10,2654           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
063829,000666: 10,2655           73476                           MASK     OCT24100                              
063830,000667: 10,2656           10000                           CCS      A                                     
063831,000668: 10,2657           13676                           TCF      MARSLEEP                              
063832,000669: 

Page 1468

063834,000671: 10,2660           40100                           CS       FLAGWRD4                              
063835,000672: 10,2661           75015                           MASK     BIT3                                  #  SET MARK OVER NORM
063836,000673: 10,2662           00004                           INHINT                                         
063837,000674: 10,2663           26100                           ADS      FLAGWRD4                              
063838,000675: 
063839,000676: 10,2664           12756                           TCF      SETNORM                               
063840,000677: 
063841,000678: 10,2665           30370        MARKPERF           CA       MARKNV                                
063842,000679: 10,2666           74160                           MASK     VERBMASK                              
063843,000680: 10,2667           13342                           TCF      NV50DSP                               
063844,000681: 
063845,000682: 10,2670           54155        GODSP              TS       PLAYTEM1                              
063846,000683: 
063847,000684: 10,2671           35021        GODSP2             CAF      ZERO                                  
063848,000685: 10,2672           12722                           TCF      GOFLASH2                              
063849,000686: 
063850,000687: 10,2673           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
063851,000688: 
063852,000689: 10,2674           35012                           CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
063853,000690: 10,2675           12722                           TCF      GOFLASH2                              
063854,000691: 
063855,000692: 10,2676           54155        GODSPR             TS       PLAYTEM1                              
063856,000693: 
063857,000694: 10,2677           35021        GODSPR1            CAF      ZERO                                  
063858,000695: 10,2700           54160        GODSPR2            TS       PLAYTEM4                              
063859,000696: 
063860,000697: 10,2701           35021                           CAF      ZERO                                  #  * DONT MOVE
063861,000698: 10,2702           13063                           TCF      GODSPRS1                              
063862,000699: 
063863,000700:                                                                                                  #  CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
063864,000701:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
063865,000702: 
063866,000703:                                                                                                  #  NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
063867,000704:                                                                                                  #  OLD DISPLAY.
063868,000705: 
063869,000706:                                                                                                  #  CALLING SEQUENCE FOR CLEANDSP -
063870,000707: 
063871,000708:                                                                                                  #                TC      BANKCALL
063872,000709:                                                                                                  #                CADR    CLEANDSP
063873,000710: 
063874,000711: 10,2703           35021        CLEANDSP           CAF      ZERO                                  
063875,000712: 10,2704           54155        REFLASH            TS       PLAYTEM1                              
063876,000713: 
063877,000714: 10,2705           33726                           CAF      REDOMASK                              #  FLASH AND PERMIT
063878,000715: 10,2706           12722                           TCF      GOFLASH2                              
063879,000716: 
063880,000717: 10,2707           54155        REGODSP            TS       PLAYTEM1                              
063881,000718: 
063882,000719: 10,2710           35002                           CAF      BIT14                                 
063883,000720: 10,2711           12722                           TCF      GOFLASH2                              
063884,000721: 

Page 1469

063886,000723: 
063887,000724: 10,2712           54155        REGODSPR           TS       PLAYTEM1                              
063888,000725: 10,2713           35002                           CAF      BIT14                                 
063889,000726: 10,2714           12700                           TCF      GODSPR2                               
063890,000727: 
063891,000728: 10,2715           54155        CLOCPLAY           TS       PLAYTEM1                              
063892,000729: 10,2716           33765                           CAF      CLOCKCON                              
063893,000730: 10,2717           12722                           TCF      GOFLASH2                              
063894,000731: 10,2720           54155        GOFLASH            TS       PLAYTEM1                              
063895,000732: 
063896,000733: 10,2721           35014                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
063897,000734: 10,2722           54160        GOFLASH2           TS       PLAYTEM4                              
063898,000735: 
063899,000736: 10,2723           03144                           TC       SAVELOCS                              
063900,000737: 
063901,000738: 10,2724           00003                           RELINT                                         
063902,000739: 
063903,000740: 10,2725           12770                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
063904,000741: 
063905,000742: 10,2726           54155        PRIODSPR           TS       PLAYTEM1                              
063906,000743: 
063907,000744: 10,2727           33745                           CAF      BITS7+4                               
063908,000745: 10,2730           13061                           TCF      GODSPRS                               
063909,000746: 
063910,000747: 10,2731           54155        PRIODSP            TS       PLAYTEM1                              
063911,000748: 
063912,000749: 10,2732           33745        SETPRIO            CAF      BITS7+4                               
063913,000750: 10,2733           12722                           TCF      GOFLASH2                              
063914,000751: 
063915,000752: 10,2734           35021        MAKEPRIO           CAF      ZERO                                  
063916,000753: 10,2735           54164                           TS       COPINDEX                              
063917,000754: 
063918,000755: 10,2736           03616                           TC       LINUSCHR                              
063919,000756: 10,2737           12744                           TCF      HIPRIO                                #  LINUS RETURN
063920,000757: 10,2740           30100                           CA       FLAGWRD4                              
063921,000758: 10,2741           73764                           MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
063922,000759: 10,2742           10000                           CCS      A                                     
063923,000760: 10,2743           13017                           TCF      PRIOBORT                              #  YES, ABORT
063924,000761: 
063925,000762: 10,2744           30100        HIPRIO             CA       FLAGWRD4                              #  MARK ACTIVE
063926,000763: 10,2745           77765                           MASK     OCT40400                              
063927,000764: 10,2746           00006                           EXTEND                                         
063928,000765: 10,2747           12752                           BZF      ASKIFNRM                              #  NO
063929,000766: 
063930,000767: 10,2750           35021        SETMARK            CAF      ZERO                                  
063931,000768: 10,2751           13216                           TCF      JOBXCHS                               
063932,000769: 
063933,000770: 10,2752           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE
063934,000771: 10,2753           73762                           MASK     OCT10200                              #  BITS 13+8
063935,000772: 10,2754           00006                           EXTEND                                         

Page 1470

063937,000774: 10,2755           12760                           BZF      OKTOCOPY                              #  NO
063938,000775: 
063939,000776: 10,2756           35017        SETNORM            CAF      ONE                                   
063940,000777: 10,2757           13216                           TCF      JOBXCHS                               
063941,000778: 
063942,000779: 10,2760           03156        OKTOCOPY           TC       COPYNORM                              
063943,000780: 10,2761           03427                           TC       WITCHONE                              
063944,000781: 
063945,000782: 10,2762           05201                           TC       JOBWAKE                               
063946,000783: 
063947,000784: 10,2763           03444                           TC       XCHTOEND                              
063948,000785: 
063949,000786: 10,2764           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
063950,000787: 10,2765           55147                           TS       PRIOTIME                              
063951,000788: 
063952,000789: 10,2766           35021        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
063953,000790: 10,2767           13040                           TCF      PRIOPLAY                              
063954,000791: 
063955,000792: 10,2770           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
063956,000793: 10,2771           77674                           MASK     PRIO37                                
063957,000794: 10,2772           54163                           TS       USERPRIO                              
063958,000795: 
063959,000796: 10,2773           37670                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
063960,000797: 10,2774           05210                           TC       PRIOCHNG                              
063961,000798: 
063962,000799: 10,2775           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
063963,000800: 10,2776           73744                           MASK     BITS15+7                              
063964,000801: 10,2777           10000                           CCS      A                                     
063965,000802: 10,3000           12734                           TCF      MAKEPRIO                              #  ITS PRIO
063966,000803: 10,3001           13003                           TCF      IFLEGAL                               
063967,000804: 10,3002           12611                           TCF      MAKEMARK                              #  ITS MARK
063968,000805: 
063969,000806: 10,3003           35016        IFLEGAL            CAF      TWO                                   
063970,000807: 10,3004           54164                           TS       COPINDEX                              
063971,000808: 
063972,000809: 10,3005           03616                           TC       LINUSCHR                              
063973,000810: 
063974,000811: 10,3006           13021                           TCF      OKTOPLAY                              #  LINUS RETURN
063975,000812: 10,3007           41071                           CS       EBANKTEM                              
063976,000813: 10,3010           75014                           MASK     BIT4                                  
063977,000814: 10,3011           10000                           CCS      A                                     
063978,000815: 10,3012           13021                           TCF      OKTOPLAY                              #  NO
063979,000816: 
063980,000817: 10,3013           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP
063981,000818: 10,3014           73735                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
063982,000819: 10,3015           00006                           EXTEND                                         
063983,000820: 10,3016           13021                           BZF      OKTOPLAY                              #  NO
063984,000821: 
063985,000822: 10,3017           05721        PRIOBORT           TC       POODOO                                
063986,000823: 10,3020           01502                           OCT      1502                                  

Page 1471

063988,000825: 
063989,000826: 10,3021           03160        OKTOPLAY           TC       COPIES2                               
063990,000827: 
063991,000828: 10,3022           30163                           CA       USERPRIO                              
063992,000829: 10,3023           00006                           EXTEND                                         
063993,000830: 10,3024           04007                           ROR      SUPERBNK                              
063994,000831: 10,3025           54366                           TS       RESTREG                               
063995,000832: 
063996,000833: 10,3026           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
063997,000834: 10,3027           73736                           MASK     PMMASK                                
063998,000835: 10,3030           10000                           CCS      A                                     
063999,000836: 10,3031           13176                           TCF      GOSLEEPS                              #  YES
064000,000837: 
064001,000838: 10,3032           13034                           TCF      +2                                    
064002,000839: 10,3033           13176                           TCF      GOSLEEPS                              #  MARK GOING
064003,000840: 
064004,000841:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
064005,000842: 
064006,000843: 10,3034           03427                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
064007,000844: 10,3035           05201                           TC       JOBWAKE                               
064008,000845: 
064009,000846: 10,3036           03444                           TC       XCHTOEND                              
064010,000847: 
064011,000848: 10,3037           35016        PLAYJUM1           CAF      TWO                                   
064012,000849: 10,3040           54164        PRIOPLAY           TS       COPINDEX                              
064013,000850: 
064014,000851: 10,3041           13312                           TCF      GOPLAY                                
064015,000852: 
064016,000853: 10,3042           54155        EXDSPRET           TS       PLAYTEM1                              
064017,000854: 
064018,000855: 10,3043           37703                           CAF      BIT15+6                               
064019,000856: 10,3044           12722                           TCF      GOFLASH2                              
064020,000857: 
064021,000858: 10,3045           55045        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
064022,000859: 10,3046           33720                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
064023,000860: 
064024,000861: 10,3047           54155        GOPERFS            TS       PLAYTEM1                              
064025,000862: 
064026,000863: 10,3050           33717                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
064027,000864: 10,3051           12722                           TCF      GOFLASH2                              
064028,000865: 
064029,000866: 10,3052           54155        GOPERF2            TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
064030,000867: 
064031,000868: 10,3053           33723                           CAF      PERF2MSK                              
064032,000869: 10,3054           12722                           TCF      GOFLASH2                              
064033,000870: 
064034,000871: 10,3055           03137        GOPERF4            TC       PURRS4                                
064035,000872: 
064036,000873: 10,3056           12722                           TCF      GOFLASH2                              
064037,000874: 
064038,000875: 10,3057           54155        GOFLASHR           TS       PLAYTEM1                              

Page 1472

064040,000877: 10,3060           35014                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
064041,000878: 10,3061           54160        GODSPRS            TS       PLAYTEM4                              
064042,000879: 
064043,000880: 10,3062           36214                           CAF      THREE                                 
064044,000881: 
064045,000882: 10,3063           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
064046,000883: 10,3064           54072                           TS       RUPTREG3                              
064047,000884: 
064048,000885: 10,3065           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
064049,000886: 10,3066           77674                           MASK     PRIO37                                
064050,000887: 10,3067           54063                           TS       NEWPRIO                               
064051,000888: 
064052,000889: 10,3070           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
064053,000890: 10,3071           75014                           MASK     BIT4                                  
064054,000891: 10,3072           10000                           CCS      A                                     
064055,000892: 10,3073           13101                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
064056,000893: 10,3074           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
064057,000894: 10,3075           05134                           TC       NOVAC                                 
064058,000895: 10,3076  E7,1777                                  EBANK=   WHOCARES                              
064059,000896: 10,3076           02770 20067                     2CADR    MAKEPLAY                              
064060,000897: 
064061,000898: 10,3100           13107                           TCF      BOTHJOBS                              
064062,000899: 
064063,000900: 10,3101           30006        VACDSP             CA       BBANK                                 
064064,000901: 10,3102           00006                           EXTEND                                         
064065,000902: 10,3103           04007                           ROR      SUPERBNK                              
064066,000903: 10,3104           54001                           TS       L                                     
064067,000904: 10,3105           33761                           CAF      MAKEGEN                               
064068,000905: 10,3106           05160                           TC       SPVAC                                 
064069,000906: 
064070,000907: 10,3107           03144        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
064071,000908: 
064072,000909: 10,3110           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
064073,000910: 10,3111           30156                           DCA      MPAC       +1                         
064074,000911: 10,3112           50064                           INDEX    LOCCTR                                
064075,000912: 10,3113           52156                           DXCH     MPAC       +1                         
064076,000913: 
064077,000914: 10,3114           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
064078,000915: 10,3115           30160                           DCA      MPAC       +3                         
064079,000916: 10,3116           50064                           INDEX    LOCCTR                                
064080,000917: 10,3117           52160                           DXCH     MPAC       +3                         
064081,000918: 
064082,000919: 10,3120           30064                           CA       LOCCTR                                
064083,000920: 10,3121           54161                           TS       MPAC       +5                         
064084,000921: 10,3122           03151                           TC       SAVELOCR                              
064085,000922: 10,3123           00003                           RELINT                                         
064086,000923: 10,3124           14704                           TCF      BANKJUMP                              #  CALL CADR +4
064087,000924: 

Page 1473

064089,000926: 10,3125           55045        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
064090,000927: 
064091,000928: 10,3126           33720                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
064092,000929: 
064093,000930: 10,3127           54155        GOPERFRS           TS       PLAYTEM1                              
064094,000931: 
064095,000932: 10,3130           33717                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
064096,000933: 10,3131           13061                           TCF      GODSPRS                               
064097,000934: 
064098,000935: 10,3132           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
064099,000936: 
064100,000937: 10,3133           33723                           CAF      PERF2MSK                              
064101,000938: 10,3134           13061                           TCF      GODSPRS                               
064102,000939: 
064103,000940: 10,3135           03137        GOPERF4R           TC       PURRS4                                
064104,000941: 
064105,000942: 10,3136           13061                           TCF      GODSPRS                               
064106,000943: 
064107,000944: 10,3137           55131        PURRS4             TS       OPTION1                               #  DESIRED OPTION CODE
064108,000945: 
064109,000946: 10,3140           33724                           CAF      V04N06                                
064110,000947: 10,3141           54155                           TS       PLAYTEM1                              
064111,000948: 
064112,000949: 10,3142           33725                           CAF      PERF4MSK                              #  FLASH, PERFORM AND BLANK R3
064113,000950: 10,3143           00002                           TC       Q                                     
064114,000951: 
064115,000952: 10,3144           00004        SAVELOCS           INHINT                                         
064116,000953: 
064117,000954: 10,3145           43734                           CS       OCT3400                               #  EBANK BITS
064118,000955: 10,3146           70160                           MASK     PLAYTEM4                              
064119,000956: 10,3147           60003                           AD       EBANK                                 
064120,000957: 10,3150           54160                           TS       PLAYTEM4                              
064121,000958: 
064122,000959: 10,3151           22002        SAVELOCR           LXCH     Q                                     
064123,000960: 
064124,000961: 10,3152           04711                           TC       MAKECADR                              
064125,000962: 10,3153           54157                           TS       PLAYTEM3                              
064126,000963: 
064127,000964: 10,3154           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
064128,000965: 10,3155           00001                           TC       L                                     
064129,000966: 
064130,000967: 10,3156           35021        COPYNORM           CAF      ZERO                                  
064131,000968: 10,3157           54164        COPIES             TS       COPINDEX                              
064132,000969: 10,3160           00004        COPIES2            INHINT                                         
064133,000970: 10,3161           30160                           CA       PLAYTEM4                              #  FLAGWORD
064134,000971: 
064135,000972: 10,3162           50164                           INDEX    COPINDEX                              
064136,000973: 10,3163           55067                           TS       EBANKSAV                              #  EQUIV TO DSPFLG
064137,000974: 10,3164           73752                           MASK     CADRMASK                              #  FLASH AND GODSPRET
064138,000975: 10,3165           00006                           EXTEND                                         

Page 1474

064140,000977: 10,3166           13172                           BZF      SKIPADD                               
064141,000978: 
064142,000979: 10,3167           30157                           CA       PLAYTEM3                              
064143,000980: 10,3170           50164                           INDEX    COPINDEX                              
064144,000981: 10,3171           54372                           TS       CADRFLSH                              
064145,000982: 
064146,000983: 10,3172           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
064147,000984: 10,3173           50164                           INDEX    COPINDEX                              
064148,000985: 10,3174           54367                           TS       NVWORD                                
064149,000986: 
064150,000987: 10,3175           13453                           TCF      RELINTQ                               
064151,000988: 
064152,000989: 10,3176           50164        GOSLEEPS           INDEX    COPINDEX                              
064153,000990: 10,3177           33753                           CA       PRIOOCT                               
064154,000991: 10,3200           73202                           MASK     WAITMASK                              
064155,000992: 10,3201           07722                           TC       UPENT2                                
064156,000993: 10,3202           03004        WAITMASK           OCT      3004                                  
064157,000994: 10,3203           45017                           CS       ONE                                   
064158,000995: 10,3204           60164                           AD       COPINDEX                              
064159,000996: 10,3205           54154                           TS       FACEREG                               
064160,000997: 
064161,000998: 10,3206           50154        XCHSLEEP           INDEX    FACEREG                               
064162,000999: 10,3207           33732                           CAF      WAKECADR                              
064163,001000: 10,3210           00004                           INHINT                                         
064164,001001: 10,3211           05201                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
064165,001002: 
064166,001003: 10,3212           03444                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
064167,001004: 
064168,001005: 10,3213           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
064169,001006: 10,3214           33732                           CAF      WAKECADR                              
064170,001007: 10,3215           15175                           TCF      JOBSLEEP                              
064171,001008: 
064172,001009: 10,3216           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
064173,001010: 10,3217           03427                           TC       WITCHONE                              
064174,001011: 10,3220           05201                           TC       JOBWAKE                               
064175,001012: 10,3221           30154                           CA       FACEREG                               
064176,001013: 10,3222           50064                           INDEX    LOCCTR                                
064177,001014: 10,3223           54154                           TS       FACEREG                               
064178,001015: 
064179,001016: 10,3224           33237                           CAF      XCHQADD                               
064180,001017: 10,3225           03445                           TC       XCHNYLOC                              
064181,001018: 
064182,001019: 10,3226           50154                           INDEX    FACEREG                               
064183,001020: 10,3227           33754                           CA       MARKOCT                               
064184,001021: 10,3230           73756                           MASK     IDLESLEP                              
064185,001022: 
064186,001023: 10,3231           07740                           TC       DOWNENT2                              
064187,001024: 10,3232           74004        IDLEMASK           OCT      74004                                 #  * DONT MOVE
064188,001025: 10,3233           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
064189,001026: 10,3234           35013                           CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL

Page 1475

064191,001028: 10,3235           65015                           AD       FOUR                                  
064192,001029: 10,3236           07722                           TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
064193,001030: 10,3237           03206        XCHQADD            GENADR   XCHSLEEP                              #  * DONT MOVE
064194,001031: 10,3240           30100                           CA       FLAGWRD4                              
064195,001032: 10,3241           75015                           MASK     BIT3                                  #  IF BIT3 THEN MARK OVER NORM
064196,001033: 10,3242           10000                           CCS      A                                     
064197,001034: 10,3243           02624        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
064198,001035: 10,3244           12760                           TCF      OKTOCOPY                              
064199,001036: 
064200,001037: 10,3245           35021        MARKWAKE           CAF      ZERO                                  
064201,001038: 10,3246           54160        WAKEPLAY           TS       TEMPOR2                               
064202,001039: 
064203,001040: 10,3247           50160                           INDEX    TEMPOR2                               
064204,001041: 10,3250           33746                           CA       BITS5+11                              
064205,001042: 10,3251           65015                           AD       FOUR                                  
064206,001043: 10,3252           07740                           TC       DOWNENT2                              
064207,001044: 10,3253           40010        MARKFMSK           OCT      40010                                 #  *** DONT MOVE
064208,001045: 
064209,001046: 10,3254           50160                           INDEX    TEMPOR2                               
064210,001047: 10,3255           33732                           CAF      WAKECADR                              
064211,001048: 10,3256           00004                           INHINT                                         
064212,001049: 10,3257           05201                           TC       JOBWAKE                               
064213,001050: 
064214,001051: 10,3260           13557                           TCF      ENDRET                                
064215,001052: 
064216,001053:                                                                                                  #  ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP.  NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
064217,001054:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
064218,001055: 
064219,001056:                                                                                                  #  IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
064220,001057:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
064221,001058: 
064222,001059: 10,3261           31071        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
064223,001060: 10,3262           54003                           TS       EBANK                                 
064224,001061: 
064225,001062: 10,3263           30366                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
064226,001063: 10,3264           04773                           TC       SUPERSW                               #  RESTORE SUPERBANK
064227,001064: 
064228,001065: 10,3265           77674                           MASK     PRIO37                                
064229,001066: 10,3266           05210                           TC       PRIOCHNG                              
064230,001067: 
064231,001068: 10,3267           46214                           CS       THREE                                 
064232,001069: 10,3270           60374                           AD       TEMPFLSH                              
064233,001070: 10,3271           14704                           TCF      BANKJUMP                              
064234,001071: 
064235,001072: 10,3272           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
064236,001073: 10,3273           31072                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
064237,001074: 10,3274           54156                           TS       MPAC       +2                         #  ONLY
064238,001075: 
064239,001076: 10,3275           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION
064240,001077: 10,3276           77707                           MASK     PINMASK                               
064241,001078: 10,3277           10000                           CCS      A                                     

Page 1476

064243,001080: 10,3300           13303                           TCF      +3                                    
064244,001081: 10,3301           13713                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
064245,001082: 10,3302           12624                           TCF      MARKPLAY                              
064246,001083: 
064247,001084: 10,3303           05546        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
064248,001085: 10,3304           00105                           ADRES    PINBRFLG                              
064249,001086: 
064250,001087: 10,3305           35002                           CAF      BIT14                                 #  PRIO INTERRUPTED
064251,001088: 10,3306           70100                           MASK     FLAGWRD4                              
064252,001089: 10,3307           10000                           CCS      A                                     
064253,001090: 10,3310           12766                           TCF      KEEPPRIO                              
064254,001091: 
064255,001092: 10,3311           13037                           TCF      PLAYJUM1                              
064256,001093: 
064257,001094: 10,3312           02644        NVDSP              TC       COPYPACS                              
064258,001095: 
064259,001096: 10,3313           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
064260,001097: 10,3314           75023                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
064261,001098: 10,3315           54001                           TS       L                                     
064262,001099: 
064263,001100: 10,3316           45003                           CS       BIT13                                 
064264,001101: 10,3317           50164                           INDEX    COPINDEX                              
064265,001102: 10,3320           71067                           MASK     DSPFLG                                
064266,001103: 10,3321           50164                           INDEX    COPINDEX                              
064267,001104: 10,3322           55067                           TS       DSPFLG                                
064268,001105: 
064269,001106: 10,3323           75010                           MASK     BIT8                                  #  BIT8 SET IF DEC MARK PERFORM DISPLAY
064270,001107: 10,3324           54141                           TS       TEM1                                  
064271,001108: 
064272,001109: 10,3325           30156                           CA       MPAC       +2                         
064273,001110: 10,3326           54165                           TS       MPAC2SAV                              
064274,001111: 
064275,001112: 10,3327           55072                           TS       MARK2PAC                              #  * FOR DISK ONLY *
064276,001113: 10,3330           50164                           INDEX    COPINDEX                              
064277,001114: 10,3331           10367                           CCS      NVWORD                                
064278,001115: 10,3332           13341                           TCF      NVDSP1                                
064279,001116: 10,3333           13455                           TCF      CLEANEND                              
064280,001117: 10,3334           40370                           CS       MARKNV                                
064281,001118: 10,3335           54370                           TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
064282,001119: 10,3336           76043                           MASK     LOW7                                  
064283,001120: 10,3337           63737                           AD       V05N00M1                              
064284,001121: 10,3340           60141                           AD       TEM1                                  
064285,001122: 10,3341           65017        NVDSP1             AD       ONE                                   
064286,001123: 10,3342           04171        NV50DSP            TC       NVMONOPT                              
064287,001124: 10,3343           13467                           TCF      REST                                  #  IF BUSY
064288,001125: 
064289,001126: 10,3344           04447                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
064290,001127: 
064291,001128: 10,3345           02642                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
064292,001129: 10,3346           05560                           TC       DOWNFLAG                              #  UNSET SLEEPING BITS
064293,001130: 10,3347           00102                           ADRES    MRKNVFLG                              

Page 1477

064295,001132: 10,3350           05560                           TC       DOWNFLAG                              
064296,001133: 10,3351           00103                           ADRES    NRMNVFLG                              
064297,001134: 10,3352           05560                           TC       DOWNFLAG                              
064298,001135: 10,3353           00104                           ADRES    PRONVFLG                              
064299,001136: 10,3354           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
064300,001137: 10,3355           04271                           TC       BLANKSUB                              
064301,001138: 10,3356           13312                           TCF      NVDSP                                 
064302,001139: 10,3357           35013        PERFCHEK           CAF      BIT5                                  #  BIT 5 FOR PERFORM
064303,001140: 10,3360           70160                           MASK     TEMPOR2                               
064304,001141: 10,3361           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
064305,001142: 10,3362           13405                           TCF      1STOR2ND                              #  YES
064306,001143: 
064307,001144: 10,3363           35014        GOANIDLE           CAF      BIT4                                  
064308,001145: 10,3364           70160                           MASK     TEMPOR2                               
064309,001146: 10,3365           10000                           CCS      A                                     
064310,001147: 10,3366           13502                           TCF      FLASHSUB                              #  IT IS
064311,001148: 
064312,001149: 10,3367           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
064313,001150: 10,3370           75012                           MASK     BIT6                                  
064314,001151: 10,3371           10000                           CCS      A                                     
064315,001152: 10,3372           13377                           TCF      ISITN00                               
064316,001153: 
064317,001154: 10,3373           50164                           INDEX    COPINDEX                              
064318,001155: 10,3374           30372                           CA       CADRFLSH                              
064319,001156: 10,3375           54157                           TS       MPAC       +3                         
064320,001157: 10,3376           13575                           TCF      ENDIT                                 
064321,001158: 
064322,001159: 10,3377           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
064323,001160: 10,3400           30367                           CA       NVWORD                                
064324,001161: 10,3401           76043                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
064325,001162: 10,3402           00006                           EXTEND                                         
064326,001163: 10,3403           13502                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
064327,001164: 
064328,001165: 10,3404           15217                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
064329,001166: 
064330,001167: 10,3405           30160        1STOR2ND           CA       TEMPOR2                               
064331,001168: 10,3406           75003                           MASK     BIT13                                 
064332,001169: 10,3407           10000                           CCS      A                                     
064333,001170: 10,3410           13363                           TCF      GOANIDLE                              #  SECOND
064334,001171: 
064335,001172: 10,3411           35003                           CA       BIT13                                 
064336,001173: 10,3412           50164                           INDEX    COPINDEX                              
064337,001174: 10,3413           27067                           ADS      DSPFLG                                
064338,001175: 
064339,001176: 10,3414           22007                           ZL                                             
064340,001177: 10,3415           00006                           EXTEND                                         #  IS IT MARK
064341,001178: 10,3416           62665                           BZMF     MARKPERF                              #  YES
064342,001179: 10,3417           75004                           MASK     BIT12                                 
064343,001180: 10,3420           00006                           EXTEND                                         

Page 1478

064345,001182: 10,3421           13425                           BZF      V50PASTE                              
064346,001183: 10,3422           41145                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97.  NVWORD1= -400 IS V99
064347,001184: 10,3423           63763                           AD       V97N00                                
064348,001185: 10,3424           13342                           TCF      NV50DSP                               
064349,001186: 10,3425           33722        V50PASTE           CAF      V50N00                                
064350,001187: 10,3426           13342                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
064351,001188: 
064352,001189: 10,3427           45013        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
064353,001190: 10,3430           00006                           EXTEND                                         
064354,001191: 10,3431           03011                           WAND     DSALMOUT                              
064355,001192: 
064356,001193: 10,3432           30100                           CA       FLAGWRD4                              
064357,001194: 10,3433           73740                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
064358,001195: 10,3434           10000                           CCS      A                                     
064359,001196: 10,3435           35017                           CAF      ONE                                   
064360,001197: 10,3436           54001                           TS       L                                     
064361,001198: 10,3437           35021                           CAF      ZERO                                  
064362,001199: 10,3440           50001                           INDEX    L                                     
064363,001200: 10,3441           57042                           XCH      CADRSTOR                              
064364,001201: 
064365,001202: 10,3442           00004                           INHINT                                         
064366,001203: 10,3443           00002                           TC       Q                                     
064367,001204: 
064368,001205: 10,3444           34233        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
064369,001206: 10,3445           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
064370,001207: 10,3446           00006                           EXTEND                                         
064371,001208: 10,3447           63453                           BZMF     RELINTQ                               #  NO
064372,001209: 10,3450           56064                           XCH      LOCCTR                                #  YES
064373,001210: 10,3451           50064                           INDEX    LOCCTR                                
064374,001211: 10,3452           54164                           TS       LOC                                   
064375,001212: 
064376,001213: 10,3453           00003        RELINTQ            RELINT                                         
064377,001214: 10,3454           00002                           TC       Q                                     #  BACK TO USER
064378,001215: 
064379,001216: 10,3455           37667        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
064380,001217: 10,3456           05147                           TC       FINDVAC                               
064381,001218: 10,3457     0371                                  EBANK=   NVSAVE                                
064382,001219: 10,3457           04245 04060                     2CADR    JAMTERM                               
064383,001220: 
064384,001221: 10,3461           13503                           TCF      FLASHSUB   +1                         
064385,001222: 
064386,001223: 10,3462           30100        ISITPRIO           CA       FLAGWRD4                              
064387,001224: 10,3463           73510                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
064388,001225: 10,3464           00006                           EXTEND                                         
064389,001226: 10,3465           13017                           BZF      PRIOBORT                              
064390,001227: 10,3466           15217                           TCF      ENDOFJOB                              
064391,001228: 10,3467           11042        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
064392,001229: 10,3470           15217                           TCF      ENDOFJOB                              #  YES

Page 1479

064394,001231: 10,3471           13473                           TCF      RESTSLEP                              
064395,001232: 
064396,001233: 10,3472           15217                           TCF      ENDOFJOB                              
064397,001234: 
064398,001235: 10,3473           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
064399,001236: 10,3474           73741                           MASK     ASTROMSK                              
064400,001237: 10,3475           07722                           TC       UPENT2                                
064401,001238: 10,3476           24100        OCT24100           OCT      24100                                 #  *** DONT MOVE
064402,001239: 
064403,001240: 10,3477           50164                           INDEX    COPINDEX                              
064404,001241: 10,3500           33731                           CAF      NVCADR                                
064405,001242: 10,3501           04456                           TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
064406,001243: 
064407,001244: 10,3502           04443        FLASHSUB           TC       FLASHON                               
064408,001245: 
064409,001246: 10,3503           30164                           CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
064410,001247: 10,3504           54157                           TS       COPMPAC                               
064411,001248: 
064412,001249: 10,3505           30162                           CA       GENMASK                               
064413,001250: 10,3506           73232                           MASK     IDLEMASK                              
064414,001251: 10,3507           07722                           TC       UPENT2                                
064415,001252: 10,3510           40040        ITISMASK           OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
064416,001253: 
064417,001254: 10,3511           31073                           CA       R1SAVE                                #  IS THIS A REPEAT AND RETURN DISPLAY
064418,001255: 10,3512           50164                           INDEX    COPINDEX                              
064419,001256: 10,3513           75015                           MASK     BIT3                                  
064420,001257: 10,3514           10000                           CCS      A                                     
064421,001258: 10,3515           13602                           TCF      UNSETR1                               #  YES
064422,001259: 
064423,001260: 10,3516           11042                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
064424,001261: 10,3517           13462                           TCF      ISITPRIO                              
064425,001262: 10,3520           13522                           TCF      +2                                    
064426,001263: 10,3521           13462                           TCF      ISITPRIO                              
064427,001264: 
064428,001265: 10,3522           04223                           TC       ENDIDLE                               
064429,001266: 10,3523           13614        IDLERET1           TCF      TERMATE                               
064430,001267: 
064431,001268: 10,3524           13633                           TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
064432,001269: 
064433,001270: 10,3525           43750                           CS       LOWLOAD                               
064434,001271: 10,3526           60154                           AD       MPAC                                  #  VERBREG
064435,001272: 10,3527           00006                           EXTEND                                         
064436,001273: 10,3530           26000                           DIM      A                                     
064437,001274: 10,3531           00006                           EXTEND                                         
064438,001275: 10,3532           13703                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
064439,001276: 
064440,001277: 10,3533           35016        OKTOENT            CAF      TWO                                   
064441,001278: 10,3534           54161        ENDOUT             TS       OUTHERE                               
064442,001279: 10,3535           30100                           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
064443,001280: 10,3536           74105                           MASK     OCT60000                              

Page 1480

064445,001282: 10,3537           10000                           CCS      A                                     
064446,001283: 10,3540           13543                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
064447,001284: 10,3541           13651                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
064448,001285: 10,3542           13635                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
064449,001286: 
064450,001287: 10,3543           40025        TIMECHEK           CS       TIME1                                 
064451,001288: 10,3544           61147                           AD       PRIOTIME                              
064452,001289: 10,3545           10000                           CCS      A                                     
064453,001290: 10,3546           40000                           COM                                            
064454,001291: 10,3547           67700                           AD       OCT37776                              
064455,001292: 10,3550           65017                           AD       ONE                                   
064456,001293: 10,3551           63774                           AD       -2SEC                                 
064457,001294: 10,3552           00006                           EXTEND                                         
064458,001295: 10,3553           62766                           BZMF     KEEPPRIO                              
064459,001296: 
064460,001297: 10,3554           13651                           TCF      NORMRET                               
064461,001298: 
064462,001299: 10,3555           35017        NORMWAKE           CAF      ONE                                   
064463,001300: 10,3556           13246                           TCF      WAKEPLAY                              
064464,001301: 
064465,001302: 10,3557           10161        ENDRET             CCS      OUTHERE                               
064466,001303: 10,3560           65017                           AD       ONE                                   
064467,001304: 10,3561           13563                           TCF      +2                                    #  NORMAL ENDIDLE EXIT
064468,001305: 10,3562           15217                           TCF      ENDOFJOB                              
064469,001306: 10,3563           50157                           INDEX    COPMPAC                               
064470,001307: 10,3564           60372                           AD       CADRFLSH                              
064471,001308: 10,3565           54157                           TS       MPAC       +3                         
064472,001309: 
064473,001310: 10,3566           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
064474,001311: 10,3567           73571                           MASK     PINIDMSK                              
064475,001312: 10,3570           07740                           TC       DOWNENT2                              
064476,001313: 10,3571           74044        PINIDMSK           OCT      74044                                 #  *** DONT MOVE
064477,001314: 
064478,001315: 10,3572           46214                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
064479,001316: 10,3573           04170                           TC       NVSUB                                 
064480,001317: 10,3574           13575                           TCF      +1                                    
064481,001318: 
064482,001319: 10,3575           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
064483,001320: 10,3576           77674                           MASK     PRIO37                                
064484,001321: 10,3577           05210                           TC       PRIOCHNG                              
064485,001322: 10,3600           30157                           CA       MPAC       +3                         
064486,001323: 10,3601           14704                           TCF      BANKJUMP                              
064487,001324: 
064488,001325: 10,3602           50164        UNSETR1            INDEX    COPINDEX                              #  RESET REPEAT AND RETURN REQUEST
064489,001326: 10,3603           45015                           CS       BIT3                                  
064490,001327: 10,3604           71073                           MASK     R1SAVE                                
064491,001328: 10,3605           55073                           TS       R1SAVE                                
064492,001329: 10,3606           35021                           CAF      ZERO                                  #  *** 205 ONLY MARKBRAN USERS IN
064493,001330: 10,3607           04773                           TC       SUPERSW                               #  SUPERBANK 0

Page 1481

064495,001332: 
064496,001333: 10,3610           36214                 -1        CAF      THREE                                 #  RETURN TO USERS IMMEDIATE RETURN LOC
064497,001334: 10,3611           50164        IMMEDRET           INDEX    COPINDEX                              
064498,001335: 10,3612           60372                           AD       CADRFLSH                              
064499,001336: 10,3613           14704                           TCF      BANKJUMP                              
064500,001337: 
064501,001338: 10,3614           35021        TERMATE            CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
064502,001339: 10,3615           13534                           TCF      ENDOUT                                
064503,001340: 
064504,001341: 10,3616           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
064505,001342: 10,3617           75002                           MASK     BIT14                                 
064506,001343: 10,3620           10000                           CCS      A                                     
064507,001344: 10,3621           16706                           TCF      Q+1                                   #  NO
064508,001345: 10,3622           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
064509,001346: 10,3623           50164                           INDEX    COPINDEX                              
064510,001347: 10,3624           60372                           AD       CADRFLSH                              
064511,001348: 10,3625           00006                           EXTEND                                         
064512,001349: 10,3626           13630                           BZF      +2                                    #  YES
064513,001350: 
064514,001351: 10,3627           00002                           TC       Q                                     #  NO
064515,001352: 10,3630           11012                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
064516,001353: 10,3631           05217                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
064517,001354: 10,3632           00002                           TC       Q                                     
064518,001355: 
064519,001356:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
064520,001357: 
064521,001358: 10,3633           35017        PROCEED            CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
064522,001359: 10,3634           13534                           TCF      ENDOUT                                
064523,001360: 
064524,001361:                                                                                                  #  LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
064525,001362:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
064526,001363:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
064527,001364: 
064528,001365:                                                                                                  #  IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
064529,001366:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY.  IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
064530,001367:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
064531,001368:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
064532,001369: 
064533,001370: 10,3635           46211        MARKRET            CS       SIX                                   
064534,001371: 10,3636           70100                           MASK     FLAGWRD4                              
064535,001372: 10,3637           00004                           INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
064536,001373: 10,3640           54100                           TS       FLAGWRD4                              
064537,001374: 
064538,001375: 10,3641           00003                           RELINT                                         #  INHINT REALM
064539,001376: 10,3642           13557                           TCF      ENDRET                                
064540,001377: 
064541,001378: 10,3643           37716        MARKOVER           CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
064542,001379: 10,3644           54161                           TS       OUTHERE                               
064543,001380: 10,3645           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
064544,001381: 10,3646           74371                           MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
064545,001382: 10,3647           10000                           CCS      A                                     

Page 1482

064547,001384: 10,3650           13303                           TCF      NORMBNCH                              
064548,001385: 
064549,001386: 10,3651           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
064550,001387: 10,3652           73746                           MASK     BITS5+11                              #  OR WAITING
064551,001388: 10,3653           10000                           CCS      A                                     
064552,001389: 10,3654           13245                           TCF      MARKWAKE                              
064553,001390: 
064554,001391: 10,3655           30100                           CA       FLAGWRD4                              #  NO
064555,001392: 10,3656           73747                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
064556,001393: 10,3657           10000                           CCS      A                                     
064557,001394: 10,3660           13555                           TCF      NORMWAKE                              #  YES
064558,001395: 
064559,001396: 10,3661           31071                           CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST
064560,001397: 10,3662           75033                           MASK     OCT50                                 #  OR A GODSPRET
064561,001398: 10,3663           10000                           CCS      A                                     
064562,001399: 10,3664           13557                           TCF      ENDRET                                #  YES
064563,001400: 10,3665           30371                           CA       NVSAVE                                
064564,001401: 10,3666           00006                           EXTEND                                         
064565,001402: 10,3667           13557                           BZF      ENDRET                                
064566,001403: 
064567,001404: 10,3670           35067                           CAF      PRIO15                                
064568,001405: 10,3671           00004                           INHINT                                         
064569,001406: 10,3672           05134                           TC       NOVAC                                 
064570,001407: 10,3673     0367                                  EBANK=   NVWORD                                
064571,001408: 10,3673           03037 20060                     2CADR    PLAYJUM1                              
064572,001409: 
064573,001410: 10,3675           13557                           TCF      ENDRET                                
064574,001411: 
064575,001412: 10,3676           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
064576,001413: 10,3677           73746                           MASK     BITS5+11                              
064577,001414: 10,3700           10000                           CCS      A                                     
064578,001415: 10,3701           15217                           TCF      ENDOFJOB                              #  YES
064579,001416: 10,3702           13176                           TCF      GOSLEEPS                              
064580,001417: 
064581,001418: 10,3703           50157        LOADITIS           INDEX    COPMPAC                               
064582,001419: 10,3704           30367                           CA       NVWORD                                
064583,001420: 10,3705           76043                           MASK     LOW7                                  
064584,001421: 10,3706           40000                           COM                                            
064585,001422: 10,3707           60155                           AD       MPAC       +1                         #  NOUNREG
064586,001423: 10,3710           00006                           EXTEND                                         
064587,001424: 10,3711           13533                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
064588,001425: 10,3712           13272                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
064589,001426: 
064590,001427: 10,3713           46214        ERASER             CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
064591,001428: 10,3714           04170                           TC       NVSUB                                 
064592,001429: 10,3715           15217                           TCF      ENDOFJOB                              
064593,001430: 10,3716           15217                           TCF      ENDOFJOB                              
064594,001431: 
064595,001432: 10,3717           00036        PERFMASK           OCT      0036                                  #  FLASH, PERFORM, BLANK R2 AND R3

Page 1483

064597,001434: 10,3720           00231        V01N25             VN       00125                                 
064598,001435: 10,3721           01407        V06N07             VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
064599,001436: 10,3722           14400        V50N00             VN       5000                                  
064600,001437: 10,3723           00030        PERF2MSK           OCT      00030                                 #  FLASH, PERFORM
064601,001438: 10,3724           01006        V04N06             VN       00406                                 
064602,001439: 10,3725           00014        PERF4MSK           OCT      14                                    #  FLASH, BLANK R3
064603,001440: 10,3726  10,3272               GOAGIN             EQUALS   PINBRNCH                              
064604,001441: 10,3726           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
064605,001442: 10,3727           40230        MARK3MSK           OCT      40230                                 #  MARK, DECIMAL NOUN, PERFORM, FLASH
064606,001443: 10,3730           40036        MARK4MSK           OCT      40036                                 #  MARK, PERFORM, FLASH, BLANK 2 AND 3
064607,001444: 10,3731           20764        NVCADR             CADR     REDOPRIO                              
064608,001445: 10,3732           20624        WAKECADR           CADR     MARKPLAY                              
064609,001446: 10,3733           21037                           CADR     PLAYJUM1                              
064610,001447: 
064611,001448: 10,3734           03400        OCT3400            OCT      3400                                  #  EBANK MASK
064612,001449: 10,3735           11210        NBUSMASK           OCT      11210                                 
064613,001450: 10,3736           66521        PMMASK             OCT      66521                                 
064614,001451: 10,3737     4160               VERBMASK           =        MID7                                  #  (OCT 37600)
064615,001452: 10,3737           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
064616,001453: 10,3740  10,2555               GOXDSP             EQUALS   GOMARK                                
064617,001454: 10,3740  10,2575               GOXDSPR            EQUALS   GOMARKR                               
064618,001455: 10,3740  10,2561               GOXDSPF            EQUALS   GOMARKF                               
064619,001456: 10,3740  10,2600               GOXDSPFR           EQUALS   GOMARKFR                              
064620,001457: 10,3740     5534               ENDEXT             EQUALS   ENDMARK                               
064621,001458: 10,3740     0165               MPAC2SAV           EQUALS   BANKSET                               
064622,001459: 10,3740           00700        NVBUSMSK           OCT      700                                   
064623,001460: 10,3741           00704        ASTROMSK           OCT      704                                   
064624,001461: 10,3742           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
064625,001462: 10,3743           34300        OCT34300           OCT      34300                                 
064626,001463: 10,3744           40100        BITS15+7           OCT      40100                                 
064627,001464: 10,3745           00110        BITS7+4            OCT      110                                   
064628,001465: 10,3746     1067               DSPFLG             EQUALS   EBANKSAV                              
064629,001466: 10,3746     1070               MARKFLAG           EQUALS   MARKEBAN                              
064630,001467: 10,3746     1071               SAVEFLAG           EQUALS   EBANKTEM                              
064631,001468: 10,3746           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
064632,001469: 10,3747           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
064633,001470: 10,3750           00026        LOWLOAD            DEC      22         B-14                       
064634,001471: 10,3751           77730        BUSYMASK           OCT      77730                                 
064635,001472: 10,3752           00050        CADRMASK           OCT      50                                    
064636,001473: 10,3753     7707               PINMASK            EQUALS   13,14,15                              
064637,001474: 10,3753  10,3312               GOPLAY             EQUALS   NVDSP                                 
064638,001475:                                                                                                  #  PRIOSAVE      EQUALS  R1SAVE
064639,001476: 10,3753     0157               COPMPAC            EQUALS   MPAC       +3                         
064640,001477: 10,3753     0160               TEMPOR2            EQUALS   MPAC       +4                         
064641,001478: 10,3753     0161               OUTHERE            EQUALS   MPAC       +5                         
064642,001479: 10,3753     0164               COPINDEX           EQUALS   LOC                                   
064643,001480: 10,3753     0163               USERPRIO           EQUALS   MODE                                  
064644,001481: 10,3753     0162               GENMASK            EQUALS   MPAC       +6                         
064645,001482: 10,3753           20144        PRIOOCT            OCT      20144                                 #  PRIO
064646,001483: 10,3754           42424        MARKOCT            OCT      42424                                 #  MARK

Page 1484

064648,001485: 10,3755           11254                           OCT      11254                                 #  NORM
064649,001486: 
064650,001487: 10,3756           74704        IDLESLEP           OCT      74704                                 
064651,001488: 10,3757           67777        OCT67777           OCT      67777                                 
064652,001489: 10,3760     5526               LINUS              EQUALS   BLANKET                               
064653,001490: 10,3760     0154               FACEREG            EQUALS   MPAC                                  
064654,001491: 10,3760     0155               PLAYTEM1           EQUALS   MPAC       +1                         
064655,001492: 10,3760     0157               PLAYTEM3           EQUALS   MPAC       +3                         
064656,001493: 10,3760     0160               PLAYTEM4           EQUALS   MPAC       +4                         
064657,001494: 10,3760           40420        OCT40420           OCT      40420                                 
064658,001495: 10,3761           02770        MAKEGEN            GENADR   MAKEPLAY                              
064659,001496: 10,3762           10200        OCT10200           OCT      10200                                 
064660,001497: 10,3763           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
064661,001498: 10,3764           20100        OCT20100           OCT      20100                                 
064662,001499: 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