Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

062119,000002:                                                                                                  ## Copyright:   Public domain.
062120,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
062121,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
062122,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
062123,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
062124,000007:                                                                                                  ## Assembler:   yaYUL
062125,000008:                                                                                                  ## Reference:   Starts on p. 1420
062126,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
062127,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
062128,000011:                                                                                                  ## Mod history: 08/30/04   RSB  Adapted from corresponding Luminary131 file.
062129,000012:                                                                                                  ##              2010-10-24 JL   Indentation fixes.
062130,000013:                                                                                                  ##              2011-05-07 JL   Removed workarounds.
062131,000014:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
062132,000015:                                                                                                  ##                              original harcopy, as opposed to the PDF page
062133,000016:                                                                                                  ##                              numbers in 1701.pdf.
062134,000017:                                                                                                  ##              2017-01-08 RSB  Cross-diff'd comment text (not whitespace)
062135,000018:                                                                                                  ##                              vs the already-proofed corresponding Colossus
062136,000019:                                                                                                  ##                              237 and Comanche 55 source-code files
062137,000020:                                                                                                  ##                              and corrected errors found.
062138,000021:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
062139,000022:                                                                                                  ##              2017-03-15 RSB  Comment-text fixes identified in 5-way
062140,000023:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
062141,000024: 
062142,000025:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
062143,000026:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
062144,000027:                                                                                                  ## document read, in part:
062145,000028:                                                                                                  ##
062146,000029:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
062147,000030:                                                                                                  ##      2021111-041.  October 28, 1968.  
062148,000031:                                                                                                  ##
062149,000032:                                                                                                  ##      This AGC program shall also be referred to as
062150,000033:                                                                                                  ##                              Colossus 1A
062151,000034:                                                                                                  ##
062152,000035:                                                                                                  ##      Prepared by
062153,000036:                                                                                                  ##                      Massachusetts Institute of Technology
062154,000037:                                                                                                  ##                      75 Cambridge Parkway
062155,000038:                                                                                                  ##                      Cambridge, Massachusetts
062156,000039:                                                                                                  ##      under NASA contract NAS 9-4065.
062157,000040:                                                                                                  ##
062158,000041:                                                                                                  ## Refer directly to the online document mentioned above for further information.
062159,000042:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
062160,000043:                                                                                                  ##
062161,000044:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
062162,000045:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
062163,000046:                                                                                                  ## source file, and then is proofed to incorporate any changes.
062164,000047: 

Page 1420

062166,000049:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
062167,000050:                                                                                                  #        1.  PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS.  USUALLY THESE DISPLAYS ARE SENT
062168,000051:                                                                                                  #            OUT UNDER CRITICAL ALARM CONDITIONS.
062169,000052:                                                                                                  #        2.  EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
062170,000053:                                                                                                  #        3.  NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
062171,000054:                                                                                                  #            SEQUENCE OF EVENTS.
062172,000055:                                                                                                  #        4.  MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES.  THESE INCLUDE SUCH DISPLAYS AS
062173,000056:                                                                                                  #            MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
062174,000057:                                                                                                  #        5.  ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
062175,000058: 
062176,000059:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
062177,000060:                                                                                                  #        1.  ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
062178,000061:                                                                                                  #            (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
062179,000062:                                                                                                  #            BUT NOT WAITING FOR A RESPONSE.
062180,000063:                                                                                                  #        2.  INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
062181,000064:                                                                                                  #            (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
062182,000065:                                                                                                  #            WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
062183,000066:                                                                                                  #            OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
062184,000067:                                                                                                  #            HAS INFO SAVED FOR RESTART PURPOSES.
062185,000068: 
062186,000069:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS-
062187,000070:                                                                                                  #        INTERRUPTS -
062188,000071:                                                                                                  #                1.  THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
062189,000072:                                                                                                  #                2.  INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
062190,000073:                                                                                                  #                3.  PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS.  A PRIORITY DISPLAY INTERRUPTING ANOTHER
062191,000074:                                                                                                  #                    PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
062192,000075:                                                                                                  #                4.  A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
062193,000076:                                                                                                  #                5.  A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
062194,000077: 
062195,000078:                                                                                                  #        ORDER OF WAITING DISPLAYS-
062196,000079:                                                                                                  #                1.  ASTRONAUT EXTERNAL USE
062197,000080:                                                                                                  #                2.  PRIORITY
062198,000081:                                                                                                  #                3.  INTERRUPTED MARK
062199,000082:                                                                                                  #                4.  INTERRUPTED NORMAL
062200,000083:                                                                                                  #                5.  MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
062201,000084:                                                                                                  #                6.  MARK WAITING
062202,000085:                                                                                                  #                7.  NORMAL WAITING
062203,000086: 

Page 1421

062205,000088:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
062206,000089:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
062207,000090:                                                                                                  #  WILL FOLLOW LATER):
062208,000091:                                                                                                  #        1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
062209,000092:                                                                                                  #            IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
062210,000093:                                                                                                  #            IS TO THE USERS CALLING LOC +1.
062211,000094:                                                                                                  #        2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
062212,000095:                                                                                                  #        3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
062213,000096:                                                                                                  #        4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
062214,000097:                                                                                                  #            USERS JOB.
062215,000098:                                                                                                  #        5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
062216,000099:                                                                                                  #        6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
062217,000100:                                                                                                  #            DESCRIPTION OF RESTARTS).
062218,000101:                                                                                                  #        7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
062219,000102:                                                                                                  #            TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
062220,000103:                                                                                                  #            (V32) BRANCHES TO THE USERS CALL CADR +3.
062221,000104:                                                                                                  #        8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
062222,000105: 
062223,000106:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
062224,000107:                                                                                                  #        GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
062225,000108:                                                                                                  #                1.  GODSP IS NOT RESTARTABLE
062226,000109:                                                                                                  #                2.  A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
062227,000110:                                                                                                  #                                CAF     VXXNYY
062228,000111:                                                                                                  #                                TC      BANKCALL
062229,000112:                                                                                                  #                                CADR    GODSP
062230,000113:                                                                                                  #                        VXXNYY  OCT     0XXYY
062231,000114:                                                                                                  #        GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
062232,000115:                                                                                                  #                                CAF     VXXNYY
062233,000116:                                                                                                  #                                TC      BANKCALL
062234,000117:                                                                                                  #                                CADR    GODSPR
062235,000118:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GODSPR
062236,000119:                                                                                                  #        GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER.  3 RETURNS ARE POSSIBLE FROM
062237,000120:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
062238,000121:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
062239,000122:                                                                                                  #                                TC      BANKCALL
062240,000123:                                                                                                  #                                CADR    GOFLASH
062241,000124:                                                                                                  #                                ...     ...             TERMINATE RETURN
062242,000125:                                                                                                  #                                ...     ...             PROCEED RETURN
062243,000126:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
062244,000127:                                                                                                  #        GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A

Page 1422

062246,000129:                                                                                                  #        V01 N25.  A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
062247,000130:                                                                                                  #        USER (SEE NO. 7 ABOVE).
062248,000131:                                                                                                  #        GOPERF1 BLANKS REGISTERS R2 AND R3
062249,000132:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX
062250,000133:                                                                                                  #                                TC      BANKCALL
062251,000134:                                                                                                  #                                CADR    GOPERF1
062252,000135:                                                                                                  #                                ...     ...             TERMINATE RETURN
062253,000136:                                                                                                  #                                ...     ...             PROCEED RETURN
062254,000137:                                                                                                  #                                ...     ...             ENTER RETURN
062255,000138:                                                                                                  #        GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 (V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
062256,000139:                                                                                                  #        REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY.  PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
062257,000140:                                                                                                  #        DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
062258,000141:                                                                                                  #        GOPERF2 DOES NOT BLANK ANY REGISTERS
062259,000142:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY. XX=00 OR 01.
062260,000143:                                                                                                  #                                TC      BANKCALL
062261,000144:                                                                                                  #                                CADR    GOPERF2
062262,000145:                                                                                                  #                                ...     ...             TERMINATE RETURN
062263,000146:                                                                                                  #                                ...     ...             PROCEED RETURN
062264,000147:                                                                                                  #                                ...     ...             ENTER RETURN
062265,000148:                                                                                                  #        GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
062266,000149:                                                                                                  #        DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM.  NO IMMEDIATE RETURN
062267,000150:                                                                                                  #        IS MADE TO THE USER (SEE NO. 7 ABOVE).
062268,000151:                                                                                                  #        GOPERF3 BLANKS REGISTERS R2 AND R3
062269,000152:                                                                                                  #                                CAF     DECXX           REQUEST PERFORM ON PXX
062270,000153:                                                                                                  #                                TC      BANKCALL
062271,000154:                                                                                                  #                                CADR    GOPERF3
062272,000155:                                                                                                  #                                ...     ...             TERMINATE RETURN
062273,000156:                                                                                                  #                                ...     ...             PROCEED RETURN
062274,000157:                                                                                                  #                                ...     ...             ENTER RETURN
062275,000158:                                                                                                  #        GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION.  THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
062276,000159:                                                                                                  #        GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM.  NO
062277,000160:                                                                                                  #        IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
062278,000161:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTION XX
062279,000162:                                                                                                  #                                TC      BANKCALL
062280,000163:                                                                                                  #                                CADR    GOPERF4
062281,000164:                                                                                                  #                                ...     ...             TERMINATE RETURN
062282,000165:                                                                                                  #                                ...     ...             PROCEED RETURN
062283,000166:                                                                                                  #                                ...     ...             ENTER RETURN
062284,000167:                                                                                                  #        GOPERF4 BLANKS REGISTER R3
062285,000168: 

Page 1423

062287,000170:                                                                                                  #        GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
062288,000171:                                                                                                  #        OUT.
062289,000172:                                                                                                  #                                CAF     VXXNYY
062290,000173:                                                                                                  #                                TC      BANKCALL
062291,000174:                                                                                                  #                                CADR    GODSPRET
062292,000175:                                                                                                  #                                ...     ...             RETURN TO USER
062293,000176:                                                                                                  #        REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
062294,000177:                                                                                                  #        ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062295,000178:                                                                                                  #                                CAF     VXXNYY
062296,000179:                                                                                                  #                                TC      BANKCALL
062297,000180:                                                                                                  #                                CADR    REGODSP
062298,000181:                                                                                                  #        REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062299,000182:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
062300,000183:                                                                                                  #                                TC      BANKCALL
062301,000184:                                                                                                  #                                CADR    REFLASH
062302,000185:                                                                                                  #                                ...     ...             TERMINATE RETURN
062303,000186:                                                                                                  #                                ...     ...             PROCEED RETURN
062304,000187:                                                                                                  #                                ...     ...             ENTER RETURN
062305,000188:                                                                                                  #        GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062306,000189:                                                                                                  #                                CAF     VXXNYY
062307,000190:                                                                                                  #                                TC      BANKCALL
062308,000191:                                                                                                  #                                CADR    GOFLASHR
062309,000192:                                                                                                  #                                ...     ...             TERMINATE RETURN
062310,000193:                                                                                                  #                                ...     ...             PROCEED RETURN
062311,000194:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
062312,000195:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOFLASHR
062313,000196:                                                                                                  #        GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
062314,000197:                                                                                                  #        GOPERF1R BLANKS REGISTERS R2 AND R3
062315,000198:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX.
062316,000199:                                                                                                  #                                TC      BANKCALL
062317,000200:                                                                                                  #                                CADR    GOPERF1R
062318,000201:                                                                                                  #                                ...     ...             TERMINATE RETURN
062319,000202:                                                                                                  #                                ...     ...             PROCEED RETURN
062320,000203:                                                                                                  #                                ...     ...             ENTER RETURN
062321,000204:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOPERF1R
062322,000205:                                                                                                  #        GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.

Page 1424

062324,000207:                                                                                                  #        GOPERF2R DOES NOT BLANK ANY REGISTERS
062325,000208:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
062326,000209:                                                                                                  #                                TC      BANKCALL
062327,000210:                                                                                                  #                                CADR    GOPERF2R
062328,000211:                                                                                                  #                                ...     ...             TERMINATE RETURN
062329,000212:                                                                                                  #                                ...     ...             PROCEED RETURN
062330,000213:                                                                                                  #                                ...     ...             ENTER RETURN
062331,000214:                                                                                                  #                                ...     ...             IMMEDIATE RETURN HERE FROM GOPERF2R
062332,000215:                                                                                                  #        GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
062333,000216:                                                                                                  #        GOPERF3R BLANKS REGISTERS R2 AND R3
062334,000217:                                                                                                  #                                CAF     PROGXX          PERFORM PROGRAM XX
062335,000218:                                                                                                  #                                TC      BANKCALL
062336,000219:                                                                                                  #                                CADR    GOPERF3R
062337,000220:                                                                                                  #                                ...     ...             TERMINATE RETURN
062338,000221:                                                                                                  #                                ...     ...             PROCEED RETURN
062339,000222:                                                                                                  #                                ...     ...             ENTER RETURN
062340,000223:                                                                                                  #                                ...     ...             GOPERF3R IMMEDIATELY RETURNS HERE
062341,000224:                                                                                                  #        GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
062342,000225:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTIONXX
062343,000226:                                                                                                  #                                TC      BANKCALL
062344,000227:                                                                                                  #                                CADR    GOPERF4R
062345,000228:                                                                                                  #                                ...     ...             TERMINATE RETURN
062346,000229:                                                                                                  #                                ...     ...             PROCEED RETURN
062347,000230:                                                                                                  #                                ...     ...             ENTER RETURN
062348,000231:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
062349,000232:                                                                                                  #        GOPERF4R BLANKS REGISTER R3
062350,000233: 
062351,000234:                                                                                                  #        REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062352,000235:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
062353,000236:                                                                                                  #                                TC      BANKCALL
062354,000237:                                                                                                  #                                CADR    REFLASHR
062355,000238:                                                                                                  #                                ...     ...             TERMINATE RETURN
062356,000239:                                                                                                  #                                ...     ...             PROCEED RETURN
062357,000240:                                                                                                  #                                ...     ...             ENTER RETURN
062358,000241:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
062359,000242:                                                                                                  #        REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.

Page 1425

062361,000244:                                                                                                  #                                CAF     VXXNYY
062362,000245:                                                                                                  #                                TC      BANKCALL
062363,000246:                                                                                                  #                                CADR    REGODSPR
062364,000247:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER

Page 1426

062366,000249:                                                                                                  #        GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
062367,000250:                                                                                                  #        GOXDSP = GOMARK
062368,000251:                                                                                                  #                                CAF     VXXNYY          VXXNYY CONTAINS VERB AND NOUN
062369,000252:                                                                                                  #                                TC      BANKCALL
062370,000253:                                                                                                  #                                CADR    GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
062371,000254:                                                                                                  #        GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
062372,000255:                                                                                                  #        GOXDSPR = GOMARKR
062373,000256:                                                                                                  #                                CAF     VXXNYY
062374,000257:                                                                                                  #                                TC      BANKCALL
062375,000258:                                                                                                  #                                CADR    GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
062376,000259:                                                                                                  #                                ...     ...             IMMEDIATE RETURN OF GOMARKR
062377,000260:                                                                                                  #        GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER.  3 RETURNS ARE POSSIBLE FROM
062378,000261:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
062379,000262:                                                                                                  #        GOXDSPF = GOMARKF
062380,000263:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
062381,000264:                                                                                                  #                                TC      BANKCALL
062382,000265:                                                                                                  #                                CADR    GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
062383,000266:                                                                                                  #                                ...     ...             TERMINATE RETURN
062384,000267:                                                                                                  #                                ...     ...             PROCEED RETURN
062385,000268:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
062386,000269:                                                                                                  #        GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
062387,000270:                                                                                                  #        GOXDSPFR = GOMARKFR
062388,000271:                                                                                                  #                                CAF     VXXNYY          FLASHING MARK VERB NOUN
062389,000272:                                                                                                  #                                TC      BANKCALL
062390,000273:                                                                                                  #                                CADR    GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
062391,000274:                                                                                                  #                                ...     ...             TERMINATE RETURN
062392,000275:                                                                                                  #                                ...     ...             PROCEED RETURN
062393,000276:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
062394,000277:                                                                                                  #                                
062395,000278:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
062396,000279:                                                                                                  #        GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER.  NO IMMEDIATE
062397,000280:                                                                                                  #        RETURN IS MADE.  THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A.  GOMARK1 DISPLAYS R1, R2, R
062398,000281:                                                                                                  #        MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM.  THE ASTRONAUT WILL RESPOND WITH A MARK
062399,000282:                                                                                                  #        OR MARK REJECT OR AN ENTER.  THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
062400,000283:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       Y=NOUN
062401,000284:                                                                                                  #                                TC      BANKCALL

Page 1427

062403,000286:                                                                                                  #                                CADR    GOMARK1
062404,000287:                                                                                                  #                                ...     ...             ENTER RETURN
062405,000288:                                                                                                  #        *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
062406,000289: 
062407,000290:                                                                                                  #        GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
062408,000291:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
062409,000292:                                                                                                  #                                TC      BANKCALL
062410,000293:                                                                                                  #                                CADR    GOMARK1R
062411,000294:                                                                                                  #                                ...     ...             ASTRONAUT ENTER RETURN
062412,000295:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
062413,000296:                                                                                                  #        GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
062414,000297:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
062415,000298:                                                                                                  #                                TC      BANKCALL
062416,000299:                                                                                                  #                                CADR    GOMARK2
062417,000300:                                                                                                  #                                ...     ...             TERMINATE RETURN
062418,000301:                                                                                                  #                                ...     ...             PROCEED RETURN
062419,000302:                                                                                                  #                                ...     ...             ENTER RETURN
062420,000303:                                                                                                  #        GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
062421,000304:                                                                                                  #                                CAF     V5XNYY          X=0,1,2,3,4     YY=NOUN
062422,000305:                                                                                                  #                                TC      BANKCALL
062423,000306:                                                                                                  #                                CADR    GOMARK2R
062424,000307:                                                                                                  #                                ...     ...             TERMINATE RETURN
062425,000308:                                                                                                  #                                ...     ...             PROCEED RETURN
062426,000309:                                                                                                  #                                ...     ...             ENTER RETURN
062427,000310:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO THE USER
062428,000311:                                                                                                  #        GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY.  THE DESIRED MARK PLEASE
062429,000312:                                                                                                  #        PERFORM VERB AND NOUN ARE ENTERED IN A.  GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
062430,000313:                                                                                                  #        V5XNYY FOR A PLEASE PERFORM.  GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
062431,000314:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
062432,000315:                                                                                                  #                                TC      BANKCALL
062433,000316:                                                                                                  #                                CADR    GOMARK3
062434,000317:                                                                                                  #                                ...     ...             TERMINATE RETURN
062435,000318:                                                                                                  #                                ...     ...             PROCEED RETURN
062436,000319:                                                                                                  #                                ...     ...             ENTER RETURN
062437,000320:                                                                                                  #        GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
062438,000321:                                                                                                  #                                CAF     V5XNYY          X=1,2,3,4       YY=NOUN
062439,000322:                                                                                                  #                                TC      BANKCALL
062440,000323:                                                                                                  #                                CADR    GOMARK4
062441,000324:                                                                                                  #                                ...     ...             TERMINATE RETURN
062442,000325:                                                                                                  #                                ...     ...             PROCEED RETURN

Page 1428

062444,000327:                                                                                                  #                        ...     ...                     ENTER RETURN
062445,000328:                                                                                                  #        EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
062446,000329:                                                                                                  #        SENT OUT.
062447,000330:                                                                                                  #                                CAF     VXXNYY
062448,000331:                                                                                                  #                                TC      BANKCALL
062449,000332:                                                                                                  #                                CADR    EXDSPRET
062450,000333:                                                                                                  #                                ...     ...             RETURN TO USER
062451,000334:                                                                                                  #        KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
062452,000335:                                                                                                  #        HAVE BEEN CLEANED OUT.
062453,000336:                                                                                                  #                                TC      BANKCALL
062454,000337:                                                                                                  #                                CADR    KLEENEX
062455,000338:                                                                                                  #                                ...     ...             RETURN TO USER
062456,000339:                                                                                                  #        MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
062457,000340:                                                                                                  #                                TC      BANKCALL
062458,000341:                                                                                                  #                                CADR    MARKBRAN
062459,000342:                                                                                                  #                                ...     ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
062460,000343:                                                                                                  #                                                        (GOOD RETURN TO IMMEDIATE RETURN LOC OF
062461,000344:                                                                                                  #                                                        LAST FLASHING MARK R ROUTINE)
062462,000345:                                                                                                  #        PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY.  IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
062463,000346:                                                                                                  #        BLANKED AND CONTROL IS SENT TO ENDOFJOB.
062464,000347:                                                                                                  #                                TC      POSTJUMP
062465,000348:                                                                                                  #                                CADR    PINBRNCH
062466,000349:                                                                                                  #        PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
062467,000350:                                                                                                  #        THE ASTRONAUT (SEE NO. 7 ABOVE).
062468,000351: 
062469,000352:                                                                                                  #        THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
062470,000353:                                                                                                  #        PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
062471,000354:                                                                                                  #        IS RESPONDED TO BY THE ASTRONAUT.
062472,000355: 
062473,000356:                                                                                                  #        THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
062474,000357:                                                                                                  #        PRIO DISPLAY.
062475,000358:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
062476,000359:                                                                                                  #                                TC      BANKCALL
062477,000360:                                                                                                  #                                CADR    PRIODSP
062478,000361:                                                                                                  #                                ...     ...             TERMINATE RETURN
062479,000362:                                                                                                  #                                ...     ...             PROCEED RETURN

Page 1429

062481,000364:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
062482,000365:                                                                                                  #        PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062483,000366:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
062484,000367:                                                                                                  #                                TC      BANKCALL
062485,000368:                                                                                                  #                                CADR    PRIODSPR
062486,000369:                                                                                                  #                                ...     ...             TERMINATE RETURN
062487,000370:                                                                                                  #                                ...     ...             PROCEED RETURN
062488,000371:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
062489,000372:                                                                                                  #                                ...     ...             IMMEDIATE RETURN
062490,000373:                                                                                                  #        PRIOLARM DOES A V05N09 PRIODSPR.
062491,000374: 
062492,000375:                                                                                                  #        CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE).  A RETURN IS MADE TO THE USER AFTER NORMAL
062493,000376:                                                                                                  #        DISPLAYS ARE CLEANED OUT.
062494,000377:                                                                                                  #                                TC      BANKCALL
062495,000378:                                                                                                  #                                CADR    CLEANDSP
062496,000379:                                                                                                  #                                ...     ...             RETURN TO USER

Page 1430

062498,000381: 
062499,000382:                                                                                                  #  GENERAL INFORMATION
062500,000383:                                                                                                  #  ------- -----------
062501,000384: 
062502,000385:                                                                                                  #  ALARM OR ABORT EXIT MODES--
062503,000386:                                                                                                  #        PRIOBORT        TC      ABORT
062504,000387:                                                                                                  #                        OCT     1502
062505,000388: 
062506,000389:                                                                                                  #        PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
062507,000390:                                                                                                  #        (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
062508,000391:                                                                                                  #        ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
062509,000392: 
062510,000393:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED--
062511,000394:                                                                                                  #        ACCOMPLISHED BY FRESH START-    1.  FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
062512,000395:                                                                                                  #                                        2.  NVSAVE = NORMAL VERB AND NOUN REGISTER.
062513,000396:                                                                                                  #                                        3.  EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
062514,000397:                                                                                                  #                                        5.  R1SAVE = MARKBRAN CONTROL WORD
062515,000398:                                                                                                  #                                        4.  RESTREG = PRIORITY 30 AND SUPERBANK 3.
062516,000399: 
062517,000400:                                                                                                  #  OUTPUT--
062518,000401:                                                                                                  #        NVWORD = PRIO VERB AND NOUN
062519,000402:                                                                                                  #        NVWORD +1(MARKNV) = MARK VERB AND NOUN
062520,000403:                                                                                                  #        NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
062521,000404:                                                                                                  #        DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
062522,000405:                                                                                                  #        DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
062523,000406:                                                                                                  #        DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
062524,000407:                                                                                                  #        CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
062525,000408:                                                                                                  #        CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
062526,000409:                                                                                                  #        CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
062527,000410:                                                                                                  #        PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
062528,000411:                                                                                                  #        OPTION1 = DESIRED OPTION FROM GOPERF4
062529,000412:                                                                                                  #        FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
062530,000413:                                                                                                  #        DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
062531,000414: 
062532,000415:                                                                                                  #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
062533,000416:                                                                                                  #        JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
062534,000417: 
062535,000418:                                                                                                  #  DEBRIS-- (STORED INTO)
062536,000419:                                                                                                  #        TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
062537,000420:                                                                                                  #  EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1                       4, FACEREG
062538,000421:                                                                                                  #        ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
062539,000422:                                                                                                  #        ERASABLES (USED ONLY BY DISPLAY ROUTINES) - NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,

Page 1431

062541,000424:                                                                                                  #                R1SAVE, MARK2PAC,
062542,000425: 
062543,000426:                                                                                                  #  DEBRIS-- (USED BUT NOT STORED INTO) - NOUNREG, VERBREG, LOCCTR, MONSAVE1
062544,000427: 
062545,000428:                                                                                                  #  FLAGWORD DESCRIPTIONS--
062546,000429:                                                                                                  #        FLAGWRD4 - SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
062547,000430: 
062548,000431:                                                                                                  #        DSPFLG, DSPFLG+1, DSPFLG +2-
062549,000432:                                                                                                  #        ----------------------------
062550,000433:                                                                                                  #        BITS 1  BLANK R1
062551,000434:                                                                                                  #             2  BLANK R2
062552,000435:                                                                                                  #             3  BLANK R3
062553,000436:                                                                                                  #             4  FLASHING DISPLAY REQUESTED
062554,000437:                                                                                                  #             5  PERFORM DISPLAY REQUESTED
062555,000438:                                                                                                  #             6  -----                   EXDSPRET                GODSPRET
062556,000439:                                                                                                  #             7  PRIO DISPLAY            -----                   -----
062557,000440:                                                                                                  #             8  -----                   DEC MARK PERFORM        -----
062558,000441:                                                                                                  #             9  EBANK
062559,000442:                                                                                                  #            10  EBANK
062560,000443:                                                                                                  #            11  EBANK
062561,000444:                                                                                                  #            12  -----                   -----                   V99PASTE
062562,000445:                                                                                                  #            13  2ND PART OF PERFORM
062563,000446:                                                                                                  #            15  REFLASH OR REDO         -----                   REFLASH OR REDO
062564,000447:                                                                                                  #            15  -----                   MARK REQUEST            -----
062565,000448: 
062566,000449:                                                                                                  #  RESTARTING DISPLAYS--
062567,000450: 
062568,000451:                                                                                                  #  RULES FOR THE DSKY OPERATOR--
062569,000452:                                                                                                  #        1.  PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
062570,000453:                                                                                                  #            AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
062571,000454:                                                                                                  #            RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
062572,000455:                                                                                                  #            WITH PROCEED AND TERMINATE FOR THIS REASON.
062573,000456:                                                                                                  #        2.  THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
062574,000457:                                                                                                  #            PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
062575,000458:                                                                                                  #            DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.)  IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
062576,000459:                                                                                                  #            IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
062577,000460:                                                                                                  #            OUT.  THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
062578,000461:                                                                                                  #            CONSIDERATION.
062579,000462:                                                                                                  #        3.  KEY RELEASE BUTTON -
062580,000463:                                                                                                  #            A)  IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
062581,000464:                                                                                                  #            B)  IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
062582,000465:                                                                                                  #                AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
062583,000466:                                                                                                  #            IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
062584,000467:                                                                                                  #            KEY RELEASE BUTTON MAY BE NECESSARY.
062585,000468:                                                                                                  #        4.  IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
062586,000469:                                                                                                  #        5.  IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
062587,000470:                                                                                                  #            OVER AGAIN.
062588,000471: 
062589,000472:                                                                                                  #  SPECIAL CONSIDERATIONS--

Page 1432

062591,000474:                                                                                                  #        1.  MPAC +2 SAVED ONLY IN MARK DISPLAYS
062592,000475:                                                                                                  #        2.  GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
062593,000476:                                                                                                  #        3.  ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
062594,000477:                                                                                                  #        4.  ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
062595,000478:                                                                                                  #        5.  GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
062596,000479:                                                                                                  #            BY A .1 RESTART PHASE CHANGE.
062597,000480:                                                                                                  #        6.  IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
062598,000481:                                                                                                  #            CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
062599,000482:                                                                                                  #        7.  IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL.
062600,000483: 

Page 1433

062602,000485:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
062603,000486:                                                                                                  #                CAF     BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
062604,000487:                                                                                                  #                TC      BLANKET
062605,000488:                                                                                                  #                ...     ...             RETURN TO USER HERE
062606,000489:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
062607,000490:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
062608,000491:    5415                                           BLOCK    02                                    
062609,000492:    4000                                           SETLOC   FFTAG4                                
062610,000493:    4000                                           BANK                                           
062611,000494: 
062612,000495:    5415                                           COUNT    02/DSPLA                              
062613,000496: 
062614,000497:    5415           54162        BLANKET            TS       MPAC       +6                         
062615,000498:    5416           40160                           CS       PLAYTEM4                              
062616,000499:    5417           70162                           MASK     MPAC       +6                         
062617,000500:    5420           50161                           INDEX    MPAC       +5                         
062618,000501:    5421           26160                           ADS      PLAYTEM4                              
062619,000502: 
062620,000503:    5422           00002                           TC       Q                                     
062621,000504: 
062622,000505:    5423           04574        ENDMARK            TC       POSTJUMP                              
062623,000506:    5424           20457                           CADR     MARKEND                               
062624,000507: 
062625,000508:    5425           34714        CLEARMRK           CAF      ZERO                                  
062626,000509:    5426           55044                           TS       EXTVBACT                              
062627,000510: 
062628,000511:    5427           00004                           INHINT                                         
062629,000512:    5430           44712                           CS       BIT1                                  
062630,000513:    5431           70100                           MASK     FLAGWRD4                              
062631,000514:    5432           54100                           TS       FLAGWRD4                              
062632,000515: 
062633,000516:    5433           00003                           RELINT                                         
062634,000517:    5434           00002                           TC       Q                                     
062635,000518: 
062636,000519:                                                                                                  #  *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
062637,000520:                                                                                                  #  FINISHED.
062638,000521: 
062639,000522: 10,2457                                           BANK     10                                    
062640,000523: 10,2000                                           SETLOC   DISPLAYS                              
062641,000524: 10,2000                                           BANK                                           
062642,000525: 
062643,000526: 10,2457                                           COUNT    10/DSPLA                              
062644,000527: 
062645,000528:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
062646,000529:                                                                                                  #  3 RETURNS TO THE USER.  THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
062647,000530: 
062648,000531: 10,2457           05425        MARKEND            TC       CLEARMRK                              
062649,000532: 10,2460           13547                           TCF      MARKOVER                              
062650,000533: 

Page 1434

062652,000535: 10,2461           54155        GOMARK             TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP
062653,000536: 
062654,000537: 10,2462           34674        GOMARS             CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
062655,000538: 10,2463           12626                           TCF      GOFLASH2                              
062656,000539: 
062657,000540: 10,2464           34714        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
062658,000541: 10,2465           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
062659,000542: 
062660,000543: 10,2466           33157                           CAF      MARKFMSK                              #  MARK, FLASH
062661,000544: 10,2467           12626                           TCF      GOFLASH2                              
062662,000545: 
062663,000546: 10,2470           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
062664,000547: 10,2471           33646        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
062665,000548: 10,2472           12626                           TCF      GOFLASH2                              
062666,000549: 
062667,000550: 10,2473           54155        GOMARK3            TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
062668,000551: 10,2474           33633                           CAF      MARK3MSK                              
062669,000552: 10,2475           12626                           TCF      GOFLASH2                              
062670,000553: 
062671,000554: 10,2476           54155        GOMARK4            TS       PLAYTEM1                              
062672,000555: 10,2477           33634                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
062673,000556: 10,2500           12626                           TCF      GOFLASH2                              
062674,000557: 
062675,000558: 10,2501           54155        GOMARKR            TS       PLAYTEM1                              #  ENTR+NCE FOR MARK GODSPR
062676,000559: 
062677,000560: 10,2502           34674                           CAF      BIT15                                 
062678,000561: 10,2503           12604                           TCF      GODSPR2                               
062679,000562: 
062680,000563: 10,2504           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
062681,000564: 
062682,000565: 10,2505           33157                           CAF      MARKFMSK                              
062683,000566: 10,2506           12765                           TCF      GODSPRS                               
062684,000567: 
062685,000568: 10,2507           54155        GOMARK2R           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
062686,000569: 10,2510           33646                           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
062687,000570: 10,2511           12765                           TCF      GODSPRS                               
062688,000571: 
062689,000572: 10,2512           54155        GOMARK3R           TS       PLAYTEM1                              
062690,000573: 10,2513           33633                           CAF      MARK3MSK                              
062691,000574: 10,2514           12765                           TCF      GODSPRS                               
062692,000575: 
062693,000576: 10,2515           34712        MAKEMARK           CAF      ONE                                   
062694,000577: 10,2516           03063                           TC       COPIES                                
062695,000578: 
062696,000579: 10,2517           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
062697,000580: 10,2520           73647                           MASK     OCT34300                              
062698,000581: 10,2521           10000                           CCS      A                                     
062699,000582: 10,2522           12560                           TCF      CHKPRIO                               
062700,000583: 
062701,000584: 10,2523           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY

Page 1435

062703,000586: 10,2524           74702                           MASK     BIT9                                  
062704,000587: 
062705,000588: 10,2525           00006                           EXTEND                                         
062706,000589: 10,2526           12530                           BZF      MARKPLAY                              #  NO
062707,000590: 
062708,000591: 10,2527           15112                           TCF      ENDOFJOB                              
062709,000592: 
062710,000593: 10,2530           00004        MARKPLAY           INHINT                                         
062711,000594: 10,2531           44715                           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
062712,000595: 10,2532           70100                           MASK     FLAGWRD4                              
062713,000596: 10,2533           64712                           AD       ONE                                   
062714,000597: 10,2534           54100                           TS       FLAGWRD4                              
062715,000598: 10,2535           00003                           RELINT                                         
062716,000599: 
062717,000600: 10,2536           41070        GOGOMARK           CS       MARKFLAG                              #  PERFORM
062718,000601: 10,2537           74706                           MASK     BIT5                                  
062719,000602: 10,2540           10000                           CCS      A                                     
062720,000603: 10,2541           12544                           TCF      MARKCOP                               
062721,000604: 10,2542           40370                           CS       MARKNV                                
062722,000605: 10,2543           54370                           TS       MARKNV                                
062723,000606: 
062724,000607: 10,2544           34712        MARKCOP            CAF      ONE                                   #  MARK INDEX
062725,000608: 10,2545           12744                           TCF      PRIOPLAY                              
062726,000609: 
062727,000610: 10,2546           30165        COPYTOGO           CA       MPAC2SAV                              
062728,000611: 10,2547           54156                           TS       MPAC       +2                         
062729,000612: 
062730,000613: 10,2550           50164        COPYPACS           INDEX    COPINDEX                              
062731,000614: 10,2551           33657                           CAF      PRIOOCT                               
062732,000615: 10,2552           54162                           TS       GENMASK                               
062733,000616: 
062734,000617: 10,2553           50164                           INDEX    COPINDEX                              
062735,000618: 10,2554           31067                           CAF      EBANKSAV                              
062736,000619: 10,2555           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
062737,000620: 
062738,000621: 10,2556           54003                           TS       EBANK                                 
062739,000622: 
062740,000623: 10,2557           00002                           TC       Q                                     
062741,000624: 
062742,000625:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
062743,000626:                                                                                                  #  (A NORMAL OR A PRIO).  IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
062744,000627:                                                                                                  #  REQUEST IS ENDED.  IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED.  IN THIS CASE THE NORM IS PUT TO SLEEP
062745,000628:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
062746,000629: 
062747,000630:                                                                                                  #  IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
062748,000631:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
062749,000632: 
062750,000633: 10,2560           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
062751,000634: 10,2561           73402                           MASK     OCT24100                              
062752,000635: 10,2562           10000                           CCS      A                                     
062753,000636: 10,2563           13602                           TCF      MARSLEEP                              
062754,000637: 

Page 1436

062756,000639: 10,2564           40100                           CS       FLAGWRD4                              
062757,000640: 10,2565           74710                           MASK     BIT3                                  #  SET MARK OVER NORM
062758,000641: 10,2566           00004                           INHINT                                         
062759,000642: 10,2567           26100                           ADS      FLAGWRD4                              
062760,000643: 
062761,000644: 10,2570           12662                           TCF      SETNORM                               
062762,000645: 
062763,000646: 10,2571           30370        MARKPERF           CA       MARKNV                                
062764,000647: 10,2572           74160                           MASK     VERBMASK                              
062765,000648: 10,2573           13246                           TCF      NV50DSP                               
062766,000649: 
062767,000650: 10,2574           54155        GODSP              TS       PLAYTEM1                              
062768,000651: 
062769,000652: 10,2575           34714        GODSP2             CAF      ZERO                                  
062770,000653: 10,2576           12626                           TCF      GOFLASH2                              
062771,000654: 
062772,000655: 10,2577           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
062773,000656: 
062774,000657: 10,2600           34705                           CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
062775,000658: 10,2601           12626                           TCF      GOFLASH2                              
062776,000659: 
062777,000660: 10,2602           54155        GODSPR             TS       PLAYTEM1                              
062778,000661: 
062779,000662: 10,2603           34714        GODSPR1            CAF      ZERO                                  
062780,000663: 10,2604           54160        GODSPR2            TS       PLAYTEM4                              
062781,000664: 
062782,000665: 10,2605           34714                           CAF      ZERO                                  #  * DONT MOVE
062783,000666: 10,2606           12767                           TCF      GODSPRS1                              
062784,000667: 
062785,000668:                                                                                                  #  CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
062786,000669:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
062787,000670: 
062788,000671:                                                                                                  #  NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
062789,000672:                                                                                                  #  OLD DISPLAY.
062790,000673: 
062791,000674:                                                                                                  #  CALLING SEQUENCE FOR CLEANDSP -
062792,000675: 
062793,000676:                                                                                                  #                TC      BANKCALL
062794,000677:                                                                                                  #                CADR    CLEANDSP
062795,000678: 
062796,000679: 10,2607           34714        CLEANDSP           CAF      ZERO                                  
062797,000680: 10,2610           54155        REFLASH            TS       PLAYTEM1                              
062798,000681: 
062799,000682: 10,2611           33632                           CAF      REDOMASK                              #  FLASH AND PERMIT
062800,000683: 10,2612           12626                           TCF      GOFLASH2                              
062801,000684: 
062802,000685: 10,2613           54155        REFLASHR           TS       PLAYTEM1                              
062803,000686: 
062804,000687: 10,2614           33632                           CAF      REDOMASK                              #  FLASH AND PERMIT
062805,000688: 10,2615           12765                           TCF      GODSPRS                               
062806,000689: 

Page 1437

062808,000691: 10,2616           54155        REGODSP            TS       PLAYTEM1                              
062809,000692: 
062810,000693: 10,2617           34675                           CAF      BIT14                                 
062811,000694: 10,2620           12626                           TCF      GOFLASH2                              
062812,000695: 
062813,000696: 10,2621           54155        REGODSPR           TS       PLAYTEM1                              
062814,000697: 
062815,000698: 10,2622           34675                           CAF      BIT14                                 
062816,000699: 10,2623           12604                           TCF      GODSPR2                               
062817,000700: 
062818,000701: 10,2624           54155        GOFLASH            TS       PLAYTEM1                              
062819,000702: 
062820,000703: 10,2625           34707                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
062821,000704: 10,2626           54160        GOFLASH2           TS       PLAYTEM4                              
062822,000705: 
062823,000706: 10,2627           03050                           TC       SAVELOCS                              
062824,000707: 
062825,000708: 10,2630           00003                           RELINT                                         
062826,000709: 
062827,000710: 10,2631           12674                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
062828,000711: 
062829,000712: 10,2632           54155        PRIODSPR           TS       PLAYTEM1                              
062830,000713: 
062831,000714: 10,2633           33651                           CAF      BITS7+4                               
062832,000715: 10,2634           12765                           TCF      GODSPRS                               
062833,000716: 
062834,000717: 10,2635           54155        PRIODSP            TS       PLAYTEM1                              
062835,000718: 
062836,000719: 10,2636           33651        SETPRIO            CAF      BITS7+4                               
062837,000720: 10,2637           12626                           TCF      GOFLASH2                              
062838,000721: 
062839,000722: 10,2640           34714        MAKEPRIO           CAF      ZERO                                  
062840,000723: 10,2641           54164                           TS       COPINDEX                              
062841,000724: 
062842,000725: 10,2642           03522                           TC       LINUSCHR                              
062843,000726: 10,2643           12650                           TCF      HIPRIO                                #  LINUS RETURN
062844,000727: 10,2644           30100                           CA       FLAGWRD4                              
062845,000728: 10,2645           73670                           MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
062846,000729: 10,2646           10000                           CCS      A                                     
062847,000730: 10,2647           12723                           TCF      PRIOBORT                              #  YES, ABORT
062848,000731: 
062849,000732: 10,2650           30100        HIPRIO             CA       FLAGWRD4                              #  MARK ACTIVE
062850,000733: 10,2651           75612                           MASK     OCT40400                              
062851,000734: 10,2652           00006                           EXTEND                                         
062852,000735: 10,2653           12656                           BZF      ASKIFNRM                              #  NO
062853,000736: 
062854,000737: 10,2654           34714        SETMARK            CAF      ZERO                                  
062855,000738: 10,2655           13122                           TCF      JOBXCHS                               
062856,000739: 
062857,000740: 10,2656           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE

Page 1438

062859,000742: 10,2657           73666                           MASK     OCT10200                              #  BITS 13+8
062860,000743: 10,2660           00006                           EXTEND                                         
062861,000744: 10,2661           12664                           BZF      OKTOCOPY                              #  NO
062862,000745: 
062863,000746: 10,2662           34712        SETNORM            CAF      ONE                                   
062864,000747: 10,2663           13122                           TCF      JOBXCHS                               
062865,000748: 
062866,000749: 10,2664           03062        OKTOCOPY           TC       COPYNORM                              
062867,000750: 10,2665           03333                           TC       WITCHONE                              
062868,000751: 
062869,000752: 10,2666           05074                           TC       JOBWAKE                               
062870,000753: 
062871,000754: 10,2667           03350                           TC       XCHTOEND                              
062872,000755: 
062873,000756: 10,2670           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
062874,000757: 10,2671           55147                           TS       PRIOTIME                              
062875,000758: 
062876,000759: 10,2672           34714        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
062877,000760: 10,2673           12744                           TCF      PRIOPLAY                              
062878,000761: 
062879,000762: 10,2674           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
062880,000763: 10,2675           77674                           MASK     PRIO37                                
062881,000764: 10,2676           54163                           TS       USERPRIO                              
062882,000765: 
062883,000766: 10,2677           37670                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
062884,000767: 10,2700           05103                           TC       PRIOCHNG                              
062885,000768: 
062886,000769: 10,2701           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
062887,000770: 10,2702           73650                           MASK     BITS15+7                              
062888,000771: 10,2703           10000                           CCS      A                                     
062889,000772: 10,2704           12640                           TCF      MAKEPRIO                              #  ITS PRIO
062890,000773: 10,2705           12707                           TCF      IFLEGAL                               
062891,000774: 10,2706           12515                           TCF      MAKEMARK                              #  ITS MARK
062892,000775: 
062893,000776: 10,2707           34711        IFLEGAL            CAF      TWO                                   
062894,000777: 10,2710           54164                           TS       COPINDEX                              
062895,000778: 
062896,000779: 10,2711           03522                           TC       LINUSCHR                              
062897,000780: 
062898,000781: 10,2712           12725                           TCF      OKTOPLAY                              #  LINUS RETURN
062899,000782: 10,2713           41071                           CS       EBANKTEM                              
062900,000783: 10,2714           74707                           MASK     BIT4                                  
062901,000784: 10,2715           10000                           CCS      A                                     
062902,000785: 10,2716           12725                           TCF      OKTOPLAY                              #  NO
062903,000786: 
062904,000787: 10,2717           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP
062905,000788: 10,2720           73641                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
062906,000789: 10,2721           00006                           EXTEND                                         
062907,000790: 10,2722           12725                           BZF      OKTOPLAY                              #  NO
062908,000791: 

Page 1439

062910,000793: 10,2723           05622        PRIOBORT           TC       POODOO                                
062911,000794: 10,2724           01502                           OCT      1502                                  
062912,000795: 
062913,000796: 10,2725           03064        OKTOPLAY           TC       COPIES2                               
062914,000797: 
062915,000798: 10,2726           30163                           CA       USERPRIO                              
062916,000799: 10,2727           00006                           EXTEND                                         
062917,000800: 10,2730           04007                           ROR      SUPERBNK                              
062918,000801: 10,2731           54366                           TS       RESTREG                               
062919,000802: 
062920,000803: 10,2732           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
062921,000804: 10,2733           73642                           MASK     PMMASK                                
062922,000805: 10,2734           10000                           CCS      A                                     
062923,000806: 10,2735           13102                           TCF      GOSLEEPS                              #  YES
062924,000807: 
062925,000808: 10,2736           12740                           TCF      +2                                    
062926,000809: 10,2737           13102                           TCF      GOSLEEPS                              #  MARK GOING
062927,000810: 
062928,000811:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
062929,000812: 
062930,000813: 10,2740           03333                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
062931,000814: 10,2741           05074                           TC       JOBWAKE                               
062932,000815: 
062933,000816: 10,2742           03350                           TC       XCHTOEND                              
062934,000817: 
062935,000818: 10,2743           34711        PLAYJUM1           CAF      TWO                                   
062936,000819: 10,2744           54164        PRIOPLAY           TS       COPINDEX                              
062937,000820: 
062938,000821: 10,2745           13216                           TCF      GOPLAY                                
062939,000822: 
062940,000823: 10,2746           54155        EXDSPRET           TS       PLAYTEM1                              
062941,000824: 
062942,000825: 10,2747           37703                           CAF      BIT15+6                               
062943,000826: 10,2750           12626                           TCF      GOFLASH2                              
062944,000827: 
062945,000828: 10,2751           55045        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
062946,000829: 10,2752           33624                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
062947,000830: 
062948,000831: 10,2753           54155        GOPERFS            TS       PLAYTEM1                              
062949,000832: 
062950,000833: 10,2754           33623                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
062951,000834: 10,2755           12626                           TCF      GOFLASH2                              
062952,000835: 
062953,000836: 10,2756           54155        GOPERF2            TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
062954,000837: 
062955,000838: 10,2757           33627                           CAF      PERF2MSK                              
062956,000839: 10,2760           12626                           TCF      GOFLASH2                              
062957,000840: 
062958,000841: 10,2761           03043        GOPERF4            TC       PURRS4                                
062959,000842: 
062960,000843: 10,2762           12626                           TCF      GOFLASH2                              
062961,000844: 

Page 1440

062963,000846: 10,2763           54155        GOFLASHR           TS       PLAYTEM1                              
062964,000847: 
062965,000848: 10,2764           34707                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
062966,000849: 10,2765           54160        GODSPRS            TS       PLAYTEM4                              
062967,000850: 
062968,000851: 10,2766           36214                           CAF      THREE                                 
062969,000852: 
062970,000853: 10,2767           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
062971,000854: 10,2770           54072                           TS       RUPTREG3                              
062972,000855: 
062973,000856: 10,2771           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
062974,000857: 10,2772           77674                           MASK     PRIO37                                
062975,000858: 10,2773           54063                           TS       NEWPRIO                               
062976,000859: 
062977,000860: 10,2774           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
062978,000861: 10,2775           74707                           MASK     BIT4                                  
062979,000862: 10,2776           10000                           CCS      A                                     
062980,000863: 10,2777           13005                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
062981,000864: 10,3000           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
062982,000865: 10,3001           05027                           TC       NOVAC                                 
062983,000866: 10,3002  E7,1777                                  EBANK=   WHOCARES                              
062984,000867: 10,3002           02674 20107                     2CADR    MAKEPLAY                              
062985,000868: 
062986,000869: 10,3004           13013                           TCF      BOTHJOBS                              
062987,000870: 
062988,000871: 10,3005           30006        VACDSP             CA       BBANK                                 
062989,000872: 10,3006           00006                           EXTEND                                         
062990,000873: 10,3007           04007                           ROR      SUPERBNK                              
062991,000874: 10,3010           54001                           TS       L                                     
062992,000875: 10,3011           33665                           CAF      MAKEGEN                               
062993,000876: 10,3012           05053                           TC       SPVAC                                 
062994,000877: 
062995,000878: 10,3013           03050        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
062996,000879: 
062997,000880: 10,3014           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
062998,000881: 10,3015           30156                           DCA      MPAC       +1                         
062999,000882: 10,3016           50064                           INDEX    LOCCTR                                
063000,000883: 10,3017           52156                           DXCH     MPAC       +1                         
063001,000884: 
063002,000885: 10,3020           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
063003,000886: 10,3021           30160                           DCA      MPAC       +3                         
063004,000887: 10,3022           50064                           INDEX    LOCCTR                                
063005,000888: 10,3023           52160                           DXCH     MPAC       +3                         
063006,000889: 
063007,000890: 10,3024           30064                           CA       LOCCTR                                
063008,000891: 10,3025           54161                           TS       MPAC       +5                         
063009,000892: 10,3026           03055                           TC       SAVELOCR                              
063010,000893: 10,3027           00003                           RELINT                                         

Page 1441

063012,000895: 10,3030           14577                           TCF      BANKJUMP                              #  CALL CADR +4
063013,000896: 
063014,000897: 10,3031           55045        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
063015,000898: 
063016,000899: 10,3032           33624                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
063017,000900: 
063018,000901: 10,3033           54155        GOPERFRS           TS       PLAYTEM1                              
063019,000902: 
063020,000903: 10,3034           33623                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
063021,000904: 10,3035           12765                           TCF      GODSPRS                               
063022,000905: 
063023,000906: 10,3036           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
063024,000907: 
063025,000908: 10,3037           33627                           CAF      PERF2MSK                              
063026,000909: 10,3040           12765                           TCF      GODSPRS                               
063027,000910: 
063028,000911: 10,3041           03043        GOPERF4R           TC       PURRS4                                
063029,000912: 
063030,000913: 10,3042           12765                           TCF      GODSPRS                               
063031,000914: 
063032,000915: 10,3043           55131        PURRS4             TS       OPTION1                               #  DESIRED OPTION CODE
063033,000916: 
063034,000917: 10,3044           33630                           CAF      V04N06                                
063035,000918: 10,3045           54155                           TS       PLAYTEM1                              
063036,000919: 
063037,000920: 10,3046           33631                           CAF      PERF4MSK                              #  FLASH, PERFORM AND BLANK R3
063038,000921: 10,3047           00002                           TC       Q                                     
063039,000922: 
063040,000923: 10,3050           00004        SAVELOCS           INHINT                                         
063041,000924: 
063042,000925: 10,3051           43640                           CS       OCT3400                               #  EBANK BITS
063043,000926: 10,3052           70160                           MASK     PLAYTEM4                              
063044,000927: 10,3053           60003                           AD       EBANK                                 
063045,000928: 10,3054           54160                           TS       PLAYTEM4                              
063046,000929: 
063047,000930: 10,3055           22002        SAVELOCR           LXCH     Q                                     
063048,000931: 
063049,000932: 10,3056           04604                           TC       MAKECADR                              
063050,000933: 10,3057           54157                           TS       PLAYTEM3                              
063051,000934: 
063052,000935: 10,3060           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
063053,000936: 10,3061           00001                           TC       L                                     
063054,000937: 
063055,000938: 10,3062           34714        COPYNORM           CAF      ZERO                                  
063056,000939: 10,3063           54164        COPIES             TS       COPINDEX                              
063057,000940: 10,3064           00004        COPIES2            INHINT                                         
063058,000941: 10,3065           30160                           CA       PLAYTEM4                              #  FLAGWORD
063059,000942: 
063060,000943: 10,3066           50164                           INDEX    COPINDEX                              
063061,000944: 10,3067           55067                           TS       EBANKSAV                              #  EQUIV TO DSPFLG

Page 1442

063063,000946: 10,3070           73656                           MASK     CADRMASK                              #  FLASH AND GODSPRET
063064,000947: 10,3071           00006                           EXTEND                                         
063065,000948: 10,3072           13076                           BZF      SKIPADD                               
063066,000949: 
063067,000950: 10,3073           30157                           CA       PLAYTEM3                              
063068,000951: 10,3074           50164                           INDEX    COPINDEX                              
063069,000952: 10,3075           54372                           TS       CADRFLSH                              
063070,000953: 
063071,000954: 10,3076           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
063072,000955: 10,3077           50164                           INDEX    COPINDEX                              
063073,000956: 10,3100           54367                           TS       NVWORD                                
063074,000957: 
063075,000958: 10,3101           13357                           TCF      RELINTQ                               
063076,000959: 
063077,000960: 10,3102           50164        GOSLEEPS           INDEX    COPINDEX                              
063078,000961: 10,3103           33657                           CA       PRIOOCT                               
063079,000962: 10,3104           73106                           MASK     WAITMASK                              
063080,000963: 10,3105           07717                           TC       UPENT2                                
063081,000964: 10,3106           03004        WAITMASK           OCT      3004                                  
063082,000965: 10,3107           44712                           CS       ONE                                   
063083,000966: 10,3110           60164                           AD       COPINDEX                              
063084,000967: 10,3111           54154                           TS       FACEREG                               
063085,000968: 
063086,000969: 10,3112           50154        XCHSLEEP           INDEX    FACEREG                               
063087,000970: 10,3113           33636                           CAF      WAKECADR                              
063088,000971: 10,3114           00004                           INHINT                                         
063089,000972: 10,3115           05074                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
063090,000973: 
063091,000974: 10,3116           03350                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
063092,000975: 
063093,000976: 10,3117           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
063094,000977: 10,3120           33636                           CAF      WAKECADR                              
063095,000978: 10,3121           15070                           TCF      JOBSLEEP                              
063096,000979: 
063097,000980: 10,3122           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
063098,000981: 10,3123           03333                           TC       WITCHONE                              
063099,000982: 10,3124           05074                           TC       JOBWAKE                               
063100,000983: 10,3125           30154                           CA       FACEREG                               
063101,000984: 10,3126           50064                           INDEX    LOCCTR                                
063102,000985: 10,3127           54154                           TS       FACEREG                               
063103,000986: 
063104,000987: 10,3130           33143                           CAF      XCHQADD                               
063105,000988: 10,3131           03351                           TC       XCHNYLOC                              
063106,000989: 
063107,000990: 10,3132           50154                           INDEX    FACEREG                               
063108,000991: 10,3133           33660                           CA       MARKOCT                               
063109,000992: 10,3134           73662                           MASK     IDLESLEP                              
063110,000993: 
063111,000994: 10,3135           07735                           TC       DOWNENT2                              
063112,000995: 10,3136           74004        IDLEMASK           OCT      74004                                 #  * DONT MOVE

Page 1443

063114,000997: 10,3137           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
063115,000998: 10,3140           34706                           CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL
063116,000999: 10,3141           64710                           AD       FOUR                                  
063117,001000: 10,3142           07717                           TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
063118,001001: 10,3143           03112        XCHQADD            GENADR   XCHSLEEP                              #  * DONT MOVE
063119,001002: 10,3144           30100                           CA       FLAGWRD4                              
063120,001003: 10,3145           74710                           MASK     BIT3                                  #  IF BIT3 THEN MARK OVER NORM
063121,001004: 10,3146           10000                           CCS      A                                     
063122,001005: 10,3147           02530        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
063123,001006: 10,3150           12664                           TCF      OKTOCOPY                              
063124,001007: 
063125,001008: 10,3151           34714        MARKWAKE           CAF      ZERO                                  
063126,001009: 10,3152           54160        WAKEPLAY           TS       TEMPOR2                               
063127,001010: 
063128,001011: 10,3153           50160                           INDEX    TEMPOR2                               
063129,001012: 10,3154           33652                           CA       BITS5+11                              
063130,001013: 10,3155           64710                           AD       FOUR                                  
063131,001014: 10,3156           07735                           TC       DOWNENT2                              
063132,001015: 10,3157           40010        MARKFMSK           OCT      40010                                 #  *** DONT MOVE
063133,001016: 
063134,001017: 10,3160           50160                           INDEX    TEMPOR2                               
063135,001018: 10,3161           33636                           CAF      WAKECADR                              
063136,001019: 10,3162           00004                           INHINT                                         
063137,001020: 10,3163           05074                           TC       JOBWAKE                               
063138,001021: 
063139,001022: 10,3164           13463                           TCF      ENDRET                                
063140,001023: 
063141,001024:                                                                                                  #  ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP.  NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
063142,001025:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
063143,001026: 
063144,001027:                                                                                                  #  IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
063145,001028:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
063146,001029: 
063147,001030: 10,3165           31071        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
063148,001031: 10,3166           54003                           TS       EBANK                                 
063149,001032: 
063150,001033: 10,3167           30366                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
063151,001034: 10,3170           04666                           TC       SUPERSW                               #  RESTORE SUPERBANK
063152,001035: 
063153,001036: 10,3171           77674                           MASK     PRIO37                                
063154,001037: 10,3172           05103                           TC       PRIOCHNG                              
063155,001038: 
063156,001039: 10,3173           46214                           CS       THREE                                 
063157,001040: 10,3174           60374                           AD       TEMPFLSH                              
063158,001041: 10,3175           14577                           TCF      BANKJUMP                              
063159,001042: 
063160,001043: 10,3176           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
063161,001044: 10,3177           31072                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
063162,001045: 10,3200           54156                           TS       MPAC       +2                         #  ONLY
063163,001046: 
063164,001047: 10,3201           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION

Page 1444

063166,001049: 10,3202           77707                           MASK     PINMASK                               
063167,001050: 10,3203           10000                           CCS      A                                     
063168,001051: 10,3204           13207                           TCF      +3                                    
063169,001052: 10,3205           13617                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
063170,001053: 10,3206           12530                           TCF      MARKPLAY                              
063171,001054: 
063172,001055: 10,3207           05435        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
063173,001056: 10,3210           00105                           ADRES    PINBRFLG                              
063174,001057: 
063175,001058: 10,3211           34675                           CAF      BIT14                                 #  PRIO INTERRUPTED
063176,001059: 10,3212           70100                           MASK     FLAGWRD4                              
063177,001060: 10,3213           10000                           CCS      A                                     
063178,001061: 10,3214           12672                           TCF      KEEPPRIO                              
063179,001062: 
063180,001063: 10,3215           12743                           TCF      PLAYJUM1                              
063181,001064: 
063182,001065: 10,3216           02550        NVDSP              TC       COPYPACS                              
063183,001066: 
063184,001067: 10,3217           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
063185,001068: 10,3220           74716                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
063186,001069: 10,3221           54001                           TS       L                                     
063187,001070: 
063188,001071: 10,3222           44676                           CS       BIT13                                 
063189,001072: 10,3223           50164                           INDEX    COPINDEX                              
063190,001073: 10,3224           71067                           MASK     DSPFLG                                
063191,001074: 10,3225           50164                           INDEX    COPINDEX                              
063192,001075: 10,3226           55067                           TS       DSPFLG                                
063193,001076: 
063194,001077: 10,3227           74703                           MASK     BIT8                                  #  BIT8 SET IF DEC MARK PERFORM DISPLAY
063195,001078: 10,3230           54141                           TS       TEM1                                  
063196,001079: 
063197,001080: 10,3231           30156                           CA       MPAC       +2                         
063198,001081: 10,3232           54165                           TS       MPAC2SAV                              
063199,001082: 
063200,001083: 10,3233           55072                           TS       MARK2PAC                              #  * FOR DISK ONLY *
063201,001084: 10,3234           50164                           INDEX    COPINDEX                              
063202,001085: 10,3235           10367                           CCS      NVWORD                                
063203,001086: 10,3236           13245                           TCF      NVDSP1                                
063204,001087: 10,3237           13361                           TCF      CLEANEND                              
063205,001088: 10,3240           40370                           CS       MARKNV                                
063206,001089: 10,3241           54370                           TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
063207,001090: 10,3242           76043                           MASK     LOW7                                  
063208,001091: 10,3243           63643                           AD       V05N00M1                              
063209,001092: 10,3244           60141                           AD       TEM1                                  
063210,001093: 10,3245           64712        NVDSP1             AD       ONE                                   
063211,001094: 10,3246           04171        NV50DSP            TC       NVMONOPT                              
063212,001095: 10,3247           13373                           TCF      REST                                  #  IF BUSY
063213,001096: 
063214,001097: 10,3250           04447                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
063215,001098: 
063216,001099: 10,3251           02546                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB

Page 1445

063218,001101: 10,3252           05447                           TC       DOWNFLAG                              #  UNSET SLEEPING BITS
063219,001102: 10,3253           00102                           ADRES    MRKNVFLG                              
063220,001103: 10,3254           05447                           TC       DOWNFLAG                              
063221,001104: 10,3255           00103                           ADRES    NRMNVFLG                              
063222,001105: 10,3256           05447                           TC       DOWNFLAG                              
063223,001106: 10,3257           00104                           ADRES    PRONVFLG                              
063224,001107: 10,3260           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
063225,001108: 10,3261           04271                           TC       BLANKSUB                              
063226,001109: 10,3262           13216                           TCF      NVDSP                                 
063227,001110: 10,3263           34706        PERFCHEK           CAF      BIT5                                  #  BIT5 FOR PERFORM
063228,001111: 10,3264           70160                           MASK     TEMPOR2                               
063229,001112: 10,3265           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
063230,001113: 10,3266           13311                           TCF      1STOR2ND                              #  YES
063231,001114: 
063232,001115: 10,3267           34707        GOANIDLE           CAF      BIT4                                  
063233,001116: 10,3270           70160                           MASK     TEMPOR2                               
063234,001117: 10,3271           10000                           CCS      A                                     
063235,001118: 10,3272           13406                           TCF      FLASHSUB                              #  IT IS
063236,001119: 
063237,001120: 10,3273           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
063238,001121: 10,3274           74705                           MASK     BIT6                                  
063239,001122: 10,3275           10000                           CCS      A                                     
063240,001123: 10,3276           13303                           TCF      ISITN00                               
063241,001124: 
063242,001125: 10,3277           50164                           INDEX    COPINDEX                              
063243,001126: 10,3300           30372                           CA       CADRFLSH                              
063244,001127: 10,3301           54157                           TS       MPAC       +3                         
063245,001128: 10,3302           13501                           TCF      ENDIT                                 
063246,001129: 
063247,001130: 10,3303           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
063248,001131: 10,3304           30367                           CA       NVWORD                                
063249,001132: 10,3305           76043                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
063250,001133: 10,3306           00006                           EXTEND                                         
063251,001134: 10,3307           13406                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
063252,001135: 
063253,001136: 10,3310           15112                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
063254,001137: 
063255,001138: 10,3311           30160        1STOR2ND           CA       TEMPOR2                               
063256,001139: 10,3312           74676                           MASK     BIT13                                 
063257,001140: 10,3313           10000                           CCS      A                                     
063258,001141: 10,3314           13267                           TCF      GOANIDLE                              #  SECOND
063259,001142: 
063260,001143: 10,3315           34676                           CA       BIT13                                 
063261,001144: 10,3316           50164                           INDEX    COPINDEX                              
063262,001145: 10,3317           27067                           ADS      DSPFLG                                
063263,001146: 
063264,001147: 10,3320           22007                           ZL                                             
063265,001148: 10,3321           00006                           EXTEND                                         #  IS IT MARK
063266,001149: 10,3322           62571                           BZMF     MARKPERF                              #  YES

Page 1446

063268,001151: 10,3323           74677                           MASK     BIT12                                 
063269,001152: 10,3324           00006                           EXTEND                                         
063270,001153: 10,3325           13331                           BZF      V50PASTE                              
063271,001154: 10,3326           41145                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97.  NVWORD1= -400 IS V99
063272,001155: 10,3327           63667                           AD       V97N00                                
063273,001156: 10,3330           13246                           TCF      NV50DSP                               
063274,001157: 10,3331           33626        V50PASTE           CAF      V50N00                                
063275,001158: 10,3332           13246                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
063276,001159: 
063277,001160: 10,3333           44706        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
063278,001161: 10,3334           00006                           EXTEND                                         
063279,001162: 10,3335           03011                           WAND     DSALMOUT                              
063280,001163: 
063281,001164: 10,3336           30100                           CA       FLAGWRD4                              
063282,001165: 10,3337           73644                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
063283,001166: 10,3340           10000                           CCS      A                                     
063284,001167: 10,3341           34712                           CAF      ONE                                   
063285,001168: 10,3342           54001                           TS       L                                     
063286,001169: 10,3343           34714                           CAF      ZERO                                  
063287,001170: 10,3344           50001                           INDEX    L                                     
063288,001171: 10,3345           57042                           XCH      CADRSTOR                              
063289,001172: 
063290,001173: 10,3346           00004                           INHINT                                         
063291,001174: 10,3347           00002                           TC       Q                                     
063292,001175: 
063293,001176: 10,3350           34233        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
063294,001177: 10,3351           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
063295,001178: 10,3352           00006                           EXTEND                                         
063296,001179: 10,3353           63357                           BZMF     RELINTQ                               #  NO
063297,001180: 10,3354           56064                           XCH      LOCCTR                                #  YES
063298,001181: 10,3355           50064                           INDEX    LOCCTR                                
063299,001182: 10,3356           54164                           TS       LOC                                   
063300,001183: 
063301,001184: 10,3357           00003        RELINTQ            RELINT                                         
063302,001185: 10,3360           00002                           TC       Q                                     #  BACK TO USER
063303,001186: 
063304,001187: 10,3361           37667        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
063305,001188: 10,3362           05042                           TC       FINDVAC                               
063306,001189: 10,3363     0371                                  EBANK=   NVSAVE                                
063307,001190: 10,3363           04245 04100                     2CADR    JAMTERM                               
063308,001191: 
063309,001192: 10,3365           13407                           TCF      FLASHSUB   +1                         
063310,001193: 
063311,001194: 10,3366           30100        ISITPRIO           CA       FLAGWRD4                              
063312,001195: 10,3367           73414                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
063313,001196: 10,3370           00006                           EXTEND                                         
063314,001197: 10,3371           12723                           BZF      PRIOBORT                              
063315,001198: 10,3372           15112                           TCF      ENDOFJOB                              

Page 1447

063317,001200: 10,3373           11042        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
063318,001201: 10,3374           15112                           TCF      ENDOFJOB                              #  YES
063319,001202: 10,3375           13377                           TCF      RESTSLEP                              
063320,001203: 
063321,001204: 10,3376           15112                           TCF      ENDOFJOB                              
063322,001205: 
063323,001206: 10,3377           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
063324,001207: 10,3400           73645                           MASK     ASTROMSK                              
063325,001208: 10,3401           07717                           TC       UPENT2                                
063326,001209: 10,3402           24100        OCT24100           OCT      24100                                 #  *** DONT MOVE
063327,001210: 
063328,001211: 10,3403           50164                           INDEX    COPINDEX                              
063329,001212: 10,3404           33635                           CAF      NVCADR                                
063330,001213: 10,3405           04456                           TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
063331,001214: 
063332,001215: 10,3406           04443        FLASHSUB           TC       FLASHON                               
063333,001216: 
063334,001217: 10,3407           30164                           CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
063335,001218: 10,3410           54157                           TS       COPMPAC                               
063336,001219: 
063337,001220: 10,3411           30162                           CA       GENMASK                               
063338,001221: 10,3412           73136                           MASK     IDLEMASK                              
063339,001222: 10,3413           07717                           TC       UPENT2                                
063340,001223: 10,3414           40040        ITISMASK           OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
063341,001224: 
063342,001225: 10,3415           31073                           CA       R1SAVE                                #  IS THIS A REPEAT AND RETURN DISPLAY
063343,001226: 10,3416           50164                           INDEX    COPINDEX                              
063344,001227: 10,3417           74710                           MASK     BIT3                                  
063345,001228: 10,3420           10000                           CCS      A                                     
063346,001229: 10,3421           13506                           TCF      UNSETR1                               #  YES
063347,001230: 
063348,001231: 10,3422           11042                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
063349,001232: 10,3423           13366                           TCF      ISITPRIO                              
063350,001233: 10,3424           13426                           TCF      +2                                    
063351,001234: 10,3425           13366                           TCF      ISITPRIO                              
063352,001235: 
063353,001236: 10,3426           04223                           TC       ENDIDLE                               
063354,001237: 10,3427           13520        IDLERET1           TCF      TERMATE                               
063355,001238: 
063356,001239: 10,3430           13537                           TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
063357,001240: 
063358,001241: 10,3431           43654                           CS       LOWLOAD                               
063359,001242: 10,3432           60154                           AD       MPAC                                  #  VERBREG
063360,001243: 10,3433           00006                           EXTEND                                         
063361,001244: 10,3434           26000                           DIM      A                                     
063362,001245: 10,3435           00006                           EXTEND                                         
063363,001246: 10,3436           13607                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
063364,001247: 
063365,001248: 10,3437           34711        OKTOENT            CAF      TWO                                   
063366,001249: 10,3440           54161        ENDOUT             TS       OUTHERE                               

Page 1448

063368,001251: 10,3441           30100                           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
063369,001252: 10,3442           74105                           MASK     OCT60000                              
063370,001253: 10,3443           10000                           CCS      A                                     
063371,001254: 10,3444           13447                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
063372,001255: 10,3445           13555                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
063373,001256: 10,3446           13541                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
063374,001257: 
063375,001258: 10,3447           40025        TIMECHEK           CS       TIME1                                 
063376,001259: 10,3450           61147                           AD       PRIOTIME                              
063377,001260: 10,3451           10000                           CCS      A                                     
063378,001261: 10,3452           40000                           COM                                            
063379,001262: 10,3453           67700                           AD       OCT37776                              
063380,001263: 10,3454           64712                           AD       ONE                                   
063381,001264: 10,3455           63677                           AD       -2SEC                                 
063382,001265: 10,3456           00006                           EXTEND                                         
063383,001266: 10,3457           62672                           BZMF     KEEPPRIO                              
063384,001267: 
063385,001268: 10,3460           13555                           TCF      NORMRET                               
063386,001269: 
063387,001270: 10,3461           34712        NORMWAKE           CAF      ONE                                   
063388,001271: 10,3462           13152                           TCF      WAKEPLAY                              
063389,001272: 
063390,001273: 10,3463           10161        ENDRET             CCS      OUTHERE                               
063391,001274: 10,3464           64712                           AD       ONE                                   
063392,001275: 10,3465           13467                           TCF      +2                                    #  NORMAL ENDIDLE EXIT
063393,001276: 10,3466           15112                           TCF      ENDOFJOB                              
063394,001277: 10,3467           50157                           INDEX    COPMPAC                               
063395,001278: 10,3470           60372                           AD       CADRFLSH                              
063396,001279: 10,3471           54157                           TS       MPAC       +3                         
063397,001280: 
063398,001281: 10,3472           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
063399,001282: 10,3473           73475                           MASK     PINIDMSK                              
063400,001283: 10,3474           07735                           TC       DOWNENT2                              
063401,001284: 10,3475           74044        PINIDMSK           OCT      74044                                 #  *** DONT MOVE
063402,001285: 
063403,001286: 10,3476           46214                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
063404,001287: 10,3477           04170                           TC       NVSUB                                 
063405,001288: 10,3500           13501                           TCF      +1                                    
063406,001289: 
063407,001290: 10,3501           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
063408,001291: 10,3502           77674                           MASK     PRIO37                                
063409,001292: 10,3503           05103                           TC       PRIOCHNG                              
063410,001293: 10,3504           30157                           CA       MPAC       +3                         
063411,001294: 10,3505           14577                           TCF      BANKJUMP                              
063412,001295: 
063413,001296: 10,3506           50164        UNSETR1            INDEX    COPINDEX                              #  RESET REPEAT AND RETURN REQUEST
063414,001297: 10,3507           44710                           CS       BIT3                                  
063415,001298: 10,3510           71073                           MASK     R1SAVE                                
063416,001299: 10,3511           55073                           TS       R1SAVE                                

Page 1449

063418,001301: 10,3512           34714                           CAF      ZERO                                  #  *** 205 ONLY MARKBRAN USERS IN
063419,001302: 10,3513           04666                           TC       SUPERSW                               #  SUPERBANK 0
063420,001303: 
063421,001304: 10,3514           36214                 -1        CAF      THREE                                 #  RETURN TO USERS IMMEDIATE RETURN LOC
063422,001305: 10,3515           50164        IMMEDRET           INDEX    COPINDEX                              
063423,001306: 10,3516           60372                           AD       CADRFLSH                              
063424,001307: 10,3517           14577                           TCF      BANKJUMP                              
063425,001308: 
063426,001309: 10,3520           34714        TERMATE            CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
063427,001310: 10,3521           13440                           TCF      ENDOUT                                
063428,001311: 
063429,001312: 10,3522           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
063430,001313: 10,3523           74675                           MASK     BIT14                                 
063431,001314: 10,3524           10000                           CCS      A                                     
063432,001315: 10,3525           16706                           TCF      Q+1                                   #  NO
063433,001316: 10,3526           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
063434,001317: 10,3527           50164                           INDEX    COPINDEX                              
063435,001318: 10,3530           60372                           AD       CADRFLSH                              
063436,001319: 10,3531           00006                           EXTEND                                         
063437,001320: 10,3532           13534                           BZF      +2                                    #  YES
063438,001321: 
063439,001322: 10,3533           00002                           TC       Q                                     #  NO
063440,001323: 10,3534           11012                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
063441,001324: 10,3535           05112                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
063442,001325: 10,3536           00002                           TC       Q                                     
063443,001326: 
063444,001327:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
063445,001328: 
063446,001329: 10,3537           34712        PROCEED            CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
063447,001330: 10,3540           13440                           TCF      ENDOUT                                
063448,001331: 
063449,001332:                                                                                                  #  LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
063450,001333:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
063451,001334:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
063452,001335: 
063453,001336:                                                                                                  #  IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
063454,001337:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY.  IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
063455,001338:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
063456,001339:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
063457,001340: 
063458,001341: 10,3541           46211        MARKRET            CS       SIX                                   
063459,001342: 10,3542           70100                           MASK     FLAGWRD4                              
063460,001343: 10,3543           00004                           INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
063461,001344: 10,3544           54100                           TS       FLAGWRD4                              
063462,001345: 
063463,001346: 10,3545           00003                           RELINT                                         #  INHINT REALM
063464,001347: 10,3546           13463                           TCF      ENDRET                                
063465,001348: 
063466,001349: 10,3547           37716        MARKOVER           CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
063467,001350: 10,3550           54161                           TS       OUTHERE                               

Page 1450

063469,001352: 10,3551           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
063470,001353: 10,3552           74371                           MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
063471,001354: 10,3553           10000                           CCS      A                                     
063472,001355: 10,3554           13207                           TCF      NORMBNCH                              
063473,001356: 
063474,001357: 10,3555           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
063475,001358: 10,3556           73652                           MASK     BITS5+11                              #  OR WAITING
063476,001359: 10,3557           10000                           CCS      A                                     
063477,001360: 10,3560           13151                           TCF      MARKWAKE                              
063478,001361: 
063479,001362: 10,3561           30100                           CA       FLAGWRD4                              #  NO
063480,001363: 10,3562           73653                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
063481,001364: 10,3563           10000                           CCS      A                                     
063482,001365: 10,3564           13461                           TCF      NORMWAKE                              #  YES
063483,001366: 
063484,001367: 10,3565           31071                           CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST
063485,001368: 10,3566           74726                           MASK     OCT50                                 #  OR A GODSPRET
063486,001369: 10,3567           10000                           CCS      A                                     
063487,001370: 10,3570           13463                           TCF      ENDRET                                #  YES
063488,001371: 10,3571           30371                           CA       NVSAVE                                
063489,001372: 10,3572           00006                           EXTEND                                         
063490,001373: 10,3573           13463                           BZF      ENDRET                                
063491,001374: 
063492,001375: 10,3574           34762                           CAF      PRIO15                                
063493,001376: 10,3575           00004                           INHINT                                         
063494,001377: 10,3576           05027                           TC       NOVAC                                 
063495,001378: 10,3577     0367                                  EBANK=   NVWORD                                
063496,001379: 10,3577           02743 20100                     2CADR    PLAYJUM1                              
063497,001380: 
063498,001381: 10,3601           13463                           TCF      ENDRET                                
063499,001382: 
063500,001383: 10,3602           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
063501,001384: 10,3603           73652                           MASK     BITS5+11                              
063502,001385: 10,3604           10000                           CCS      A                                     
063503,001386: 10,3605           15112                           TCF      ENDOFJOB                              #  YES
063504,001387: 10,3606           13102                           TCF      GOSLEEPS                              
063505,001388: 
063506,001389: 10,3607           50157        LOADITIS           INDEX    COPMPAC                               
063507,001390: 10,3610           30367                           CA       NVWORD                                
063508,001391: 10,3611           76043                           MASK     LOW7                                  
063509,001392: 10,3612           40000                           COM                                            
063510,001393: 10,3613           60155                           AD       MPAC       +1                         #  NOUNREG
063511,001394: 10,3614           00006                           EXTEND                                         
063512,001395: 10,3615           13437                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
063513,001396: 10,3616           13176                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
063514,001397: 
063515,001398: 10,3617           46214        ERASER             CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
063516,001399: 10,3620           04170                           TC       NVSUB                                 
063517,001400: 10,3621           15112                           TCF      ENDOFJOB                              

Page 1451

063519,001402: 10,3622           15112                           TCF      ENDOFJOB                              
063520,001403: 
063521,001404: 10,3623           00036        PERFMASK           OCT      0036                                  #  FLASH, PERFORM, BLANK R2 AND R3
063522,001405: 10,3624           00231        V01N25             VN       00125                                 
063523,001406: 10,3625           01407        V06N07             VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
063524,001407: 10,3626           14400        V50N00             VN       5000                                  
063525,001408: 10,3627           00030        PERF2MSK           OCT      00030                                 #  FLASH, PERFORM
063526,001409: 10,3630           01006        V04N06             VN       00406                                 
063527,001410: 10,3631           00014        PERF4MSK           OCT      14                                    #  FLASH, BLANK R3
063528,001411: 10,3632  10,3176               GOAGIN             EQUALS   PINBRNCH                              
063529,001412: 10,3632           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
063530,001413: 10,3633           40230        MARK3MSK           OCT      40230                                 #  MARK, DECIMAL NOUN, PERFORM, FLASH
063531,001414: 10,3634           40036        MARK4MSK           OCT      40036                                 #  MARK, PERFORM, FLASH, BLANK 2 AND 3
063532,001415: 10,3635           20670        NVCADR             CADR     REDOPRIO                              
063533,001416: 10,3636           20530        WAKECADR           CADR     MARKPLAY                              
063534,001417: 10,3637           20743                           CADR     PLAYJUM1                              
063535,001418: 
063536,001419: 10,3640           03400        OCT3400            OCT      3400                                  #  EBANK MASK
063537,001420: 10,3641           11210        NBUSMASK           OCT      11210                                 
063538,001421: 10,3642           66521        PMMASK             OCT      66521                                 
063539,001422: 10,3643     4160               VERBMASK           =        MID7                                  #  (OCT 37600)
063540,001423: 10,3643           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
063541,001424: 10,3644  10,2461               GOXDSP             EQUALS   GOMARK                                
063542,001425: 10,3644  10,2501               GOXDSPR            EQUALS   GOMARKR                               
063543,001426: 10,3644  10,2465               GOXDSPF            EQUALS   GOMARKF                               
063544,001427: 10,3644  10,2504               GOXDSPFR           EQUALS   GOMARKFR                              
063545,001428: 10,3644     5423               ENDEXT             EQUALS   ENDMARK                               
063546,001429: 10,3644     0165               MPAC2SAV           EQUALS   BANKSET                               
063547,001430: 10,3644           00700        NVBUSMSK           OCT      700                                   
063548,001431: 10,3645           00704        ASTROMSK           OCT      704                                   
063549,001432: 10,3646           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
063550,001433: 10,3647           34300        OCT34300           OCT      34300                                 
063551,001434: 10,3650           40100        BITS15+7           OCT      40100                                 
063552,001435: 10,3651           00110        BITS7+4            OCT      110                                   
063553,001436: 10,3652     1067               DSPFLG             EQUALS   EBANKSAV                              
063554,001437: 10,3652     1070               MARKFLAG           EQUALS   MARKEBAN                              
063555,001438: 10,3652     1071               SAVEFLAG           EQUALS   EBANKTEM                              
063556,001439: 10,3652           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
063557,001440: 10,3653           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
063558,001441: 10,3654           00026        LOWLOAD            DEC      22         B-14                       
063559,001442: 10,3655           77730        BUSYMASK           OCT      77730                                 
063560,001443: 10,3656           00050        CADRMASK           OCT      50                                    
063561,001444: 10,3657     7707               PINMASK            EQUALS   13,14,15                              
063562,001445: 10,3657  10,3216               GOPLAY             EQUALS   NVDSP                                 
063563,001446:                                                                                                  #  PRIOSAVE      EQUALS  R1SAVE
063564,001447: 10,3657     0157               COPMPAC            EQUALS   MPAC       +3                         
063565,001448: 10,3657     0160               TEMPOR2            EQUALS   MPAC       +4                         
063566,001449: 10,3657     0161               OUTHERE            EQUALS   MPAC       +5                         
063567,001450: 10,3657     0164               COPINDEX           EQUALS   LOC                                   
063568,001451: 10,3657     0163               USERPRIO           EQUALS   MODE                                  

Page 1452

063570,001453: 10,3657     0162               GENMASK            EQUALS   MPAC       +6                         
063571,001454: 10,3657           20144        PRIOOCT            OCT      20144                                 #  PRIO
063572,001455: 10,3660           42424        MARKOCT            OCT      42424                                 #  MARK
063573,001456: 10,3661           11254                           OCT      11254                                 #  NORM
063574,001457: 
063575,001458: 10,3662           74704        IDLESLEP           OCT      74704                                 
063576,001459: 10,3663           67777        OCT67777           OCT      67777                                 
063577,001460: 10,3664     5415               LINUS              EQUALS   BLANKET                               
063578,001461: 10,3664     0154               FACEREG            EQUALS   MPAC                                  
063579,001462: 10,3664     0155               PLAYTEM1           EQUALS   MPAC       +1                         
063580,001463: 10,3664     0157               PLAYTEM3           EQUALS   MPAC       +3                         
063581,001464: 10,3664     0160               PLAYTEM4           EQUALS   MPAC       +4                         
063582,001465: 10,3664           40420        OCT40420           OCT      40420                                 
063583,001466: 10,3665           02674        MAKEGEN            GENADR   MAKEPLAY                              
063584,001467: 10,3666           10200        OCT10200           OCT      10200                                 
063585,001468: 10,3667           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
063586,001469: 10,3670           20100        OCT20100           OCT      20100                                 
063587,001470: 
063588,001471: 

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