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.

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

Page 1420

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

Page 1421

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

Page 1422

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

Page 1423

062269,000170:                                                                                                  #        GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
062270,000171:                                                                                                  #        OUT.
062271,000172:                                                                                                  #                                CAF     VXXNYY
062272,000173:                                                                                                  #                                TC      BANKCALL
062273,000174:                                                                                                  #                                CADR    GODSPRET
062274,000175:                                                                                                  #                                ...     ...             RETURN TO USER
062275,000176:                                                                                                  #        REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
062276,000177:                                                                                                  #        ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062277,000178:                                                                                                  #                                CAF     VXXNYY
062278,000179:                                                                                                  #                                TC      BANKCALL
062279,000180:                                                                                                  #                                CADR    REGODSP
062280,000181:                                                                                                  #        REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062281,000182:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
062282,000183:                                                                                                  #                                TC      BANKCALL
062283,000184:                                                                                                  #                                CADR    REFLASH
062284,000185:                                                                                                  #                                ...     ...             TERMINATE RETURN
062285,000186:                                                                                                  #                                ...     ...             PROCEED RETURN
062286,000187:                                                                                                  #                                ...     ...             ENTER RETURN
062287,000188:                                                                                                  #        GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062288,000189:                                                                                                  #                                CAF     VXXNYY
062289,000190:                                                                                                  #                                TC      BANKCALL
062290,000191:                                                                                                  #                                CADR    GOFLASHR
062291,000192:                                                                                                  #                                ...     ...             TERMINATE RETURN
062292,000193:                                                                                                  #                                ...     ...             PROCEED RETURN
062293,000194:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
062294,000195:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOFLASHR
062295,000196:                                                                                                  #        GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
062296,000197:                                                                                                  #        GOPERF1R BLANKS REGISTERS R2 AND R3
062297,000198:                                                                                                  #                                CAF     OCTXX           CODE FOR CHECKLIST VALUE XX.
062298,000199:                                                                                                  #                                TC      BANKCALL
062299,000200:                                                                                                  #                                CADR    GOPERF1R
062300,000201:                                                                                                  #                                ...     ...             TERMINATE RETURN
062301,000202:                                                                                                  #                                ...     ...             PROCEED RETURN
062302,000203:                                                                                                  #                                ...     ...             ENTER RETURN
062303,000204:                                                                                                  #                                ...     ...             IMMEDIATE RETURN FROM GOPERF1R
062304,000205:                                                                                                  #        GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.

Page 1424

062306,000207:                                                                                                  #        GOPERF2R DOES NOT BLANK ANY REGISTERS
062307,000208:                                                                                                  #                                CAF     VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
062308,000209:                                                                                                  #                                TC      BANKCALL
062309,000210:                                                                                                  #                                CADR    GOPERF2R
062310,000211:                                                                                                  #                                ...     ...             TERMINATE RETURN
062311,000212:                                                                                                  #                                ...     ...             PROCEED RETURN
062312,000213:                                                                                                  #                                ...     ...             ENTER RETURN
062313,000214:                                                                                                  #                                ...     ...             IMMEDIATE RETURN HERE FROM GOPERF2R
062314,000215:                                                                                                  #        GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
062315,000216:                                                                                                  #        GOPERF3R BLANKS REGISTERS R2 AND R3
062316,000217:                                                                                                  #                                CAF     PROGXX          PERFORM PROGRAM XX
062317,000218:                                                                                                  #                                TC      BANKCALL
062318,000219:                                                                                                  #                                CADR    GOPERF3R
062319,000220:                                                                                                  #                                ...     ...             TERMINATE RETURN
062320,000221:                                                                                                  #                                ...     ...             PROCEED RETURN
062321,000222:                                                                                                  #                                ...     ...             ENTER RETURN
062322,000223:                                                                                                  #                                ...     ...             GOPERF3R IMMEDIATELY RETURNS HERE
062323,000224:                                                                                                  #        GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
062324,000225:                                                                                                  #                                CAF     OCTXX           REQUEST PERFORM ON OPTIONXX
062325,000226:                                                                                                  #                                TC      BANKCALL
062326,000227:                                                                                                  #                                CADR    GOPERF4R
062327,000228:                                                                                                  #                                ...     ...             TERMINATE RETURN
062328,000229:                                                                                                  #                                ...     ...             PROCEED RETURN
062329,000230:                                                                                                  #                                ...     ...             ENTER RETURN
062330,000231:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
062331,000232:                                                                                                  #        GOPERF4R BLANKS REGISTER R3
062332,000233: 
062333,000234:                                                                                                  #        REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062334,000235:                                                                                                  #                                CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
062335,000236:                                                                                                  #                                TC      BANKCALL
062336,000237:                                                                                                  #                                CADR    REFLASHR
062337,000238:                                                                                                  #                                ...     ...             TERMINATE RETURN
062338,000239:                                                                                                  #                                ...     ...             PROCEED RETURN
062339,000240:                                                                                                  #                                ...     ...             ENTER RETURN
062340,000241:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER
062341,000242:                                                                                                  #        REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.

Page 1425

062343,000244:                                                                                                  #                                CAF     VXXNYY
062344,000245:                                                                                                  #                                TC      BANKCALL
062345,000246:                                                                                                  #                                CADR    REGODSPR
062346,000247:                                                                                                  #                                ...     ...             IMMEDIATE RETURN TO USER

Page 1426

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

Page 1427

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

Page 1428

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

Page 1429

062463,000364:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
062464,000365:                                                                                                  #        PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062465,000366:                                                                                                  #                                CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
062466,000367:                                                                                                  #                                TC      BANKCALL
062467,000368:                                                                                                  #                                CADR    PRIODSPR
062468,000369:                                                                                                  #                                ...     ...             TERMINATE RETURN
062469,000370:                                                                                                  #                                ...     ...             PROCEED RETURN
062470,000371:                                                                                                  #                                ...     ...             ENTER OR RECYCLE RETURN
062471,000372:                                                                                                  #                                ...     ...             IMMEDIATE RETURN
062472,000373:                                                                                                  #        PRIOLARM DOES A V05N09 PRIODSPR.
062473,000374: 
062474,000375:                                                                                                  #        CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE).  A RETURN IS MADE TO THE USER AFTER NORMAL
062475,000376:                                                                                                  #        DISPLAYS ARE CLEANED OUT.
062476,000377:                                                                                                  #                                TC      BANKCALL
062477,000378:                                                                                                  #                                CADR    CLEANDSP
062478,000379:                                                                                                  #                                ...     ...             RETURN TO USER

Page 1430

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

Page 1431

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

Page 1432

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

Page 1433

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

Page 1434

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

Page 1435

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

Page 1436

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

Page 1437

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

Page 1438

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

Page 1439

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

Page 1440

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

Page 1441

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

Page 1442

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

Page 1443

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

Page 1444

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

Page 1445

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

Page 1446

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

Page 1447

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

Page 1448

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

Page 1449

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

Page 1450

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

Page 1451

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

Page 1452

063552,001453: 10,3657     0162               GENMASK            EQUALS   MPAC       +6                         
063553,001454: 10,3657           20144        PRIOOCT            OCT      20144                                 #  PRIO
063554,001455: 10,3660           42424        MARKOCT            OCT      42424                                 #  MARK
063555,001456: 10,3661           11254                           OCT      11254                                 #  NORM
063556,001457: 
063557,001458: 10,3662           74704        IDLESLEP           OCT      74704                                 
063558,001459: 10,3663           67777        OCT67777           OCT      67777                                 
063559,001460: 10,3664     5415               LINUS              EQUALS   BLANKET                               
063560,001461: 10,3664     0154               FACEREG            EQUALS   MPAC                                  
063561,001462: 10,3664     0155               PLAYTEM1           EQUALS   MPAC       +1                         
063562,001463: 10,3664     0157               PLAYTEM3           EQUALS   MPAC       +3                         
063563,001464: 10,3664     0160               PLAYTEM4           EQUALS   MPAC       +4                         
063564,001465: 10,3664           40420        OCT40420           OCT      40420                                 
063565,001466: 10,3665           02674        MAKEGEN            GENADR   MAKEPLAY                              
063566,001467: 10,3666           10200        OCT10200           OCT      10200                                 
063567,001468: 10,3667           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
063568,001469: 10,3670           20100        OCT20100           OCT      20100                                 
063569,001470: 
063570,001471: 

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