Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

062078,000002:                                                                                                  ## Copyright:   Public domain.
062079,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
062080,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
062081,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
062082,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
062083,000007:                                                                                                  ##              Apollo 15-17.
062084,000008:                                                                                                  ## Assembler:   yaYUL
062085,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
062086,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
062087,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
062088,000012:                                                                                                  ## Mod history: 2009-08-18 JL   Adapted from corresponding Comanche 055 file.
062089,000013:                                                                                                  ##              2010-01-31 JL   Removed obsolete meta-comment.
062090,000014:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
062091,000015:                                                                                                  ##              2010-02-11 JL   Fixed error on p1465.
062092,000016:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
062093,000017:                                                                                                  ##              2017-01-21 RSB  Proofed comment text by diff'ing vs Comanche 55
062094,000018:                                                                                                  ##                              and corrected errors found.
062095,000019: 

Page 1448

062097,000021: 
062098,000022:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES -
062099,000023: 
062100,000024:                                                                                                  #        1. PRIORITY DISPLAYS - DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
062101,000025:                                                                                                  #           OUT UNDER CRITICAL ALARM CONDITIONS.
062102,000026:                                                                                                  #        2. EXTENDED VERB DISPLAYS - ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
062103,000027:                                                                                                  #        3. NORMAL DISPLAYS - ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
062104,000028:                                                                                                  #           SEQUENCE OF EVENTS.
062105,000029:                                                                                                  #        4. MISC. DISPLAYS - ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACE ROUTINES. THESE INCLUDE SUCH DISPLAYS AS
062106,000030:                                                                                                  #           MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
062107,000031:                                                                                                  #        5. ASTRONAUT INITIATED DISPLAYS - ALL DISPLAYS INITIATED EXTERNALLY.
062108,000032: 
062109,000033:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS -
062110,000034: 
062111,000035:                                                                                                  #        1. ACTIVE - THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
062112,000036:                                                                                                  #           (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
062113,000037:                                                                                                  #           BUT NOT WAITING FOR A RESPONSE.
062114,000038:                                                                                                  #        2. INACTIVE - A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTED BY A DISPLAY OF HIGHER PRIORITY,
062115,000039:                                                                                                  #           (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
062116,000040:                                                                                                  #           WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
062117,000041:                                                                                                  #           OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
062118,000042:                                                                                                  #           HAS INFO SAVED FOR RESTART PURPOSES.
062119,000043: 
062120,000044:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS -
062121,000045: 
062122,000046:                                                                                                  #        INTERRUPTS -
062123,000047:                                                                                                  #                1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
062124,000048:                                                                                                  #                2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
062125,000049:                                                                                                  #                3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
062126,000050:                                                                                                  #                   PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
062127,000051:                                                                                                  #                4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
062128,000052:                                                                                                  #                5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
062129,000053: 
062130,000054:                                                                                                  #        ORDER OF WAITING DISPLAYS -
062131,000055:                                                                                                  #                1.  ASTRONAUT EXTERNAL USE
062132,000056:                                                                                                  #                2.  PRIORITY
062133,000057:                                                                                                  #                3.  INTERRUPTED MARK
062134,000058:                                                                                                  #                4.  INTERRUPTED NORMAL
062135,000059: 
062136,000060:                                                                                                  #                5.  MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
062137,000061:                                                                                                  #                6.  MARK WAITING
062138,000062:                                                                                                  #                7.  NORMAL WAITING
062139,000063: 

Page 1449

062141,000065:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
062142,000066:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
062143,000067:                                                                                                  #  WILL FOLLOW LATER):
062144,000068: 
062145,000069:                                                                                                  #        1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
062146,000070:                                                                                                  #            IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
062147,000071:                                                                                                  #            IS TO THE USERS CALLING LOC +1.
062148,000072:                                                                                                  #        2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
062149,000073:                                                                                                  #        3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
062150,000074:                                                                                                  #        4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
062151,000075:                                                                                                  #            USERS JOB.
062152,000076:                                                                                                  #        5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
062153,000077:                                                                                                  #        6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
062154,000078:                                                                                                  #            DESCRIPTION OF RESTARTS).
062155,000079:                                                                                                  #        7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
062156,000080:                                                                                                  #            TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
062157,000081:                                                                                                  #            (V32) BRANCHES TO THE USERS CALL CADR +3.
062158,000082:                                                                                                  #        8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
062159,000083: 
062160,000084:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
062161,000085: 
062162,000086:                                                                                                  #  GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
062163,000087: 
062164,000088:                                                                                                  #                        CAF     VXXNYY
062165,000089:                                                                                                  #                        TC      BANKCALL
062166,000090:                                                                                                  #                        CADR    GODSPR
062167,000091:                                                                                                  #                        ...     ...             IMMEDIATE RETURN OF GODSPR
062168,000092: 
062169,000093:                                                                                                  #  GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
062170,000094:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE).
062171,000095: 
062172,000096:                                                                                                  #                        CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
062173,000097:                                                                                                  #                        TC      BANKCALL
062174,000098:                                                                                                  #                        CADR    GOFLASH
062175,000099:                                                                                                  #                        ...     ...             TERMINATE RETURN
062176,000100:                                                                                                  #                        ...     ...             PROCEED RETURN
062177,000101:                                                                                                  #                        ...     ...             ENTER OR RECYCLE RETURN
062178,000102: 
062179,000103:                                                                                                  #  GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A
062180,000104:                                                                                                  #  V01 N25. A FLASHING PLEASE PERFORM ON CHECKLIST (V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
062181,000105:                                                                                                  #  USER (SEE NO. 7 ABOVE).
062182,000106:                                                                                                  #  GOPERF1 BLANKS REGISTERS R2 AND R3
062183,000107: 
062184,000108:                                                                                                  #                        CAF     OCTXX           CODE FOR CHECKLIST VALUE XX
062185,000109:                                                                                                  #                        TC      BANKCALL
062186,000110:                                                                                                  #                        CADR    GOPERF1
062187,000111:                                                                                                  #                        ...     ...             TERMINATE RETURN
062188,000112:                                                                                                  #                        ...     ...             PROCEED RETURN

Page 1450

062190,000114:                                                                                                  #                        ...     ...             ENTER RETURN
062191,000115: 
062192,000116:                                                                                                  #  GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
062193,000117:                                                                                                  #  DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
062194,000118:                                                                                                  #  IS MADE TO THE USER (SEE NO. 7 ABOVE).
062195,000119:                                                                                                  #  GOPERF3 BLANKS REGISTERS R2 AND R3
062196,000120: 
062197,000121:                                                                                                  #                        CAF     DECXX           REQUEST PERFORM ON PXX
062198,000122:                                                                                                  #                        TC      BANKCALL
062199,000123:                                                                                                  #                        CADR    GOPERF3
062200,000124:                                                                                                  #                        ...     ...             TERMINATE RETURN
062201,000125:                                                                                                  #                        ...     ...             PROCEED RETURN
062202,000126:                                                                                                  #                        ...     ...             ENTER RETURN
062203,000127: 
062204,000128:                                                                                                  #  GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION IS ENTERED IN A AND STORED IN OPTION1.
062205,000129:                                                                                                  #  GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING V50N06 FOR A PLEASE PERFORM. NO
062206,000130:                                                                                                  #  IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
062207,000131: 
062208,000132:                                                                                                  #                        CAF     OCTXX           REQUEST PERFORM ON OPTION XX
062209,000133:                                                                                                  #                        TC      BANKCALL
062210,000134:                                                                                                  #                        CADR    GOPERF4
062211,000135:                                                                                                  #                        ...     ...             TERMINATE RETURN
062212,000136:                                                                                                  #                        ...     ...             PROCEED RETURN
062213,000137:                                                                                                  #                        ...     ...             ENTER RETURN
062214,000138: 
062215,000139:                                                                                                  #  GOPERF4 BLANKS REGISTER R3
062216,000140: 
062217,000141:                                                                                                  #  GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
062218,000142:                                                                                                  #  OUT.
062219,000143: 
062220,000144:                                                                                                  #                        CAF     VXXNYY
062221,000145:                                                                                                  #                        TC      BANKCALL
062222,000146:                                                                                                  #                        CADR    GODSPRET
062223,000147:                                                                                                  #                        ...     ...             RETURN TO USER
062224,000148: 
062225,000149:                                                                                                  #  REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
062226,000150:                                                                                                  #  ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062227,000151: 
062228,000152:                                                                                                  #                        CAF     VXXNYY
062229,000153:                                                                                                  #                        TC      BANKCALL
062230,000154:                                                                                                  #                        CADR    REGODSP
062231,000155: 
062232,000156:                                                                                                  #  REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
062233,000157: 
062234,000158:                                                                                                  #                        CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
062235,000159:                                                                                                  #                        TC      BANKCALL
062236,000160:                                                                                                  #                        CADR    REFLASH
062237,000161:                                                                                                  #                        ...     ...             TERMINATE RETURN

Page 1451

062239,000163:                                                                                                  #                        ...     ...             PROCEED RETURN
062240,000164:                                                                                                  #                        ...     ...             ENTER RETURN
062241,000165: 
062242,000166:                                                                                                  #  GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062243,000167: 
062244,000168:                                                                                                  #                        CAF     VXXNYY
062245,000169:                                                                                                  #                        TC      BANKCALL
062246,000170:                                                                                                  #                        CADR    GOFLASHR
062247,000171:                                                                                                  #                        ...     ...             TERMINATE RETURN
062248,000172:                                                                                                  #                        ...     ...             PROCEED RETURN
062249,000173:                                                                                                  #                        ...     ...             ENTER OR RECYCLE RETURN
062250,000174: 
062251,000175:                                                                                                  #                        ...     ...             IMMEDIATE RETURN FROM GOFLASHR
062252,000176: 
062253,000177:                                                                                                  #  GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TO USERS CALL CADR +4.
062254,000178:                                                                                                  #  GOPERF1R BLANKS REGISTERS R2 AND R3
062255,000179: 
062256,000180:                                                                                                  #                        CAF     OCTXX           CODE FOR CHECKLIST VALUE XX.
062257,000181:                                                                                                  #                        TC      BANKCALL
062258,000182:                                                                                                  #                        CADR    GOPERF1R
062259,000183:                                                                                                  #                        ...     ...             TERMINATE RETURN
062260,000184:                                                                                                  #                        ...     ...             PROCEED RETURN
062261,000185:                                                                                                  #                        ...     ...             ENTER RETURN
062262,000186: 
062263,000187:                                                                                                  #                        ...     ...             IMMEDIATE RETURN FROM GOPERF1R
062264,000188: 
062265,000189:                                                                                                  #  GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
062266,000190:                                                                                                  #  GOPERF3R BLANKS REGISTERS R2 AND R3
062267,000191: 
062268,000192:                                                                                                  #                        CAF     PROGXX          PERFORM PROGRAM XX
062269,000193:                                                                                                  #                        TC      BANKCALL
062270,000194:                                                                                                  #                        CADR    GOPERF3R
062271,000195:                                                                                                  #                        ...     ...             TERMINATE RETURN
062272,000196:                                                                                                  #                        ...     ...             PROCEED RETURN
062273,000197:                                                                                                  #                        ...     ...             ENTER RETURN
062274,000198: 
062275,000199:                                                                                                  #                        ...     ...             GOPERF3R IMMEDIATELY RETURNS HERE
062276,000200: 
062277,000201:                                                                                                  #  GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
062278,000202: 
062279,000203:                                                                                                  #                        CAF     OCTXX           REQUEST PERFORM ON OPTIONXX
062280,000204:                                                                                                  #                        TC      BANKCALL
062281,000205:                                                                                                  #                        CADR    GOPERF4R
062282,000206:                                                                                                  #                        ...     ...             TERMINATE RETURN
062283,000207:                                                                                                  #                        ...     ...             PROCEED RETURN
062284,000208:                                                                                                  #                        ...     ...             ENTER RETURN
062285,000209: 
062286,000210:                                                                                                  #                        ...     ...             IMMEDIATE RETURN TO USER
062287,000211: 

Page 1452

062289,000213:                                                                                                  #  GOPERF4R BLANKS REGISTER R3
062290,000214: 
062291,000215:                                                                                                  #  REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062292,000216: 
062293,000217:                                                                                                  #                        CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
062294,000218:                                                                                                  #                        TC      BANKCALL
062295,000219:                                                                                                  #                        CADR    REFLASHR
062296,000220:                                                                                                  #                        ...     ...             TERMINATE RETURN
062297,000221:                                                                                                  #                        ...     ...             PROCEED RETURN
062298,000222:                                                                                                  #                        ...     ...             ENTER RETURN
062299,000223: 
062300,000224:                                                                                                  #                        ...     ...             IMMEDIATE RETURN TO USER
062301,000225: 
062302,000226:                                                                                                  #  REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
062303,000227: 
062304,000228:                                                                                                  #                        CAF     VXXNYY
062305,000229:                                                                                                  #                        TC      BANKCALL
062306,000230:                                                                                                  #                        CADR    REGODSPR
062307,000231: 
062308,000232:                                                                                                  #                        ...     ...             IMMEDIATE RETURN TO USER
062309,000233: 

Page 1453

062311,000235:                                                                                                  #  GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
062312,000236: 
062313,000237:                                                                                                  #  GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
062314,000238: 
062315,000239:                                                                                                  #  GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
062316,000240:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE).
062317,000241:                                                                                                  #  GOXDSPF = GOMARKF
062318,000242: 
062319,000243:                                                                                                  #                        CAF     VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
062320,000244:                                                                                                  #                        TC      BANKCALL
062321,000245:                                                                                                  #                        CADR    GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
062322,000246:                                                                                                  #                        ...     ...             TERMINATE RETURN
062323,000247:                                                                                                  #                        ...     ...             PROCEED RETURN
062324,000248:                                                                                                  #                        ...     ...             ENTER OR RECYCLE RETURN
062325,000249: 
062326,000250:                                                                                                  #  GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
062327,000251: 
062328,000252:                                                                                                  #  GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
062329,000253:                                                                                                  #  RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN IS ENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
062330,000254:                                                                                                  #  MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
062331,000255:                                                                                                  #  OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
062332,000256: 
062333,000257:                                                                                                  #                        CAF     V5XNYY          X=1,2,3,4       Y=NOUN
062334,000258:                                                                                                  #                        TC      BANKCALL
062335,000259:                                                                                                  #                        CADR    GOMARK1
062336,000260: 
062337,000261:                                                                                                  #                        ...     ...             ENTER RETURN
062338,000262: 
062339,000263:                                                                                                  #  *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
062340,000264: 
062341,000265:                                                                                                  #  GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
062342,000266: 
062343,000267:                                                                                                  #                        CAF     V5XNYY          X=1,2,3,4       YY=NOUN
062344,000268:                                                                                                  #                        TC      BANKCALL
062345,000269:                                                                                                  #                        CADR    GOMARK1R
062346,000270: 
062347,000271:                                                                                                  #                        ...     ...             ASTRONAUT ENTER RETURN
062348,000272:                                                                                                  #                        ...     ...             IMMEDIATE RETURN TO USER
062349,000273: 
062350,000274:                                                                                                  #  GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
062351,000275: 
062352,000276:                                                                                                  #                        CAF     V5XNYY          X=1,2,3,4       YY=NOUN
062353,000277:                                                                                                  #                        TC      BANKCALL
062354,000278:                                                                                                  #                        CADR    GOMARK2
062355,000279:                                                                                                  #                        ...     ...             TERMINATE RETURN
062356,000280:                                                                                                  #                        ...     ...             PROCEED RETURN
062357,000281:                                                                                                  #                        ...     ...             ENTER RETURN
062358,000282: 
062359,000283:                                                                                                  #  GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
062360,000284: 
062361,000285:                                                                                                  #                        CAF     V5XNYY          X=1,2,3,4       YY=NOUN
062362,000286:                                                                                                  #                        TC      BANKCALL

Page 1454

062364,000288:                                                                                                  #                        CADR    GOMARK4
062365,000289:                                                                                                  #                        ...     ...             TERMINATE RETURN
062366,000290:                                                                                                  #                        ...     ...             PROCEED RETURN
062367,000291:                                                                                                  #                        ...     ...             ENTER RETURN
062368,000292: 
062369,000293:                                                                                                  #  EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
062370,000294:                                                                                                  #  SENT OUT.
062371,000295: 
062372,000296:                                                                                                  #                        CAF     VXXNYY
062373,000297:                                                                                                  #                        TC      BANKCALL
062374,000298:                                                                                                  #                        CADR    EXDSPRET
062375,000299: 
062376,000300:                                                                                                  #                        ...     ...             RETURN TO USER
062377,000301: 
062378,000302:                                                                                                  #  KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
062379,000303:                                                                                                  #  HAVE BEEN CLEANED OUT.
062380,000304: 
062381,000305:                                                                                                  #                        TC      BANKCALL
062382,000306:                                                                                                  #                        CADR    KLEENEX
062383,000307: 
062384,000308:                                                                                                  #                        ...     ...             RETURN TO USER
062385,000309: 
062386,000310:                                                                                                  #  MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
062387,000311: 
062388,000312:                                                                                                  #                        TC      BANKCALL
062389,000313:                                                                                                  #                        CADR    MARKBRAN
062390,000314: 
062391,000315:                                                                                                  #                        ...     ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
062392,000316: 
062393,000317:                                                                                                  #                                                (GOOD RETURN TO IMMEDIATE RETURN LOC OF
062394,000318:                                                                                                  #                                                LAST FLASHING MARK R ROUTINE)
062395,000319: 
062396,000320:                                                                                                  #  PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
062397,000321:                                                                                                  #  BLANKED AND CONTROL IS SENT TO ENDOFJOB.
062398,000322: 
062399,000323:                                                                                                  #                                TC      POSTJUMP
062400,000324:                                                                                                  #                                CADR    PINBRNCH
062401,000325: 
062402,000326:                                                                                                  #  PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
062403,000327:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE).
062404,000328: 
062405,000329:                                                                                                  #  THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
062406,000330:                                                                                                  #  PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
062407,000331:                                                                                                  #  IS RESPONDED TO BY THE ASTRONAUT.
062408,000332: 
062409,000333:                                                                                                  #  THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
062410,000334:                                                                                                  #  PRIO DISPLAY.
062411,000335: 
062412,000336:                                                                                                  #                        CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
062413,000337:                                                                                                  #                        TC      BANKCALL

Page 1455

062415,000339:                                                                                                  #                        CADR    PRIODSP
062416,000340:                                                                                                  #                        ...     ...             TERMINATE RETURN
062417,000341:                                                                                                  #                        ...     ...             PROCEED RETURN
062418,000342:                                                                                                  #                        ...     ...             ENTER OR RECYCLE RETURN
062419,000343: 
062420,000344:                                                                                                  #  PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062421,000345: 
062422,000346:                                                                                                  #                        CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
062423,000347:                                                                                                  #                        TC      BANKCALL
062424,000348:                                                                                                  #                        CADR    PRIODSPR
062425,000349:                                                                                                  #                        ...     ...             TERMINATE RETURN
062426,000350:                                                                                                  #                        ...     ...             PROCEED RETURN
062427,000351:                                                                                                  #                        ...     ...             ENTER OR RECYCLE RETURN
062428,000352: 
062429,000353:                                                                                                  #                        ...     ...             IMMEDIATE RETURN
062430,000354: 
062431,000355:                                                                                                  #  PRIOLARM DOES A V05N09 PRIODSPR.
062432,000356: 
062433,000357:                                                                                                  #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
062434,000358:                                                                                                  #  DISPLAYS ARE CLEANED OUT.
062435,000359: 
062436,000360:                                                                                                  #                        TC      BANKCALL
062437,000361:                                                                                                  #                        CADR    CLEANDSP
062438,000362: 
062439,000363:                                                                                                  #                        ...     ...             RETURN TO USER
062440,000364: 

Page 1456

062442,000366: 
062443,000367:                                                                                                  #  GENERAL INFORMATION
062444,000368:                                                                                                  #  ------- -----------
062445,000369: 
062446,000370:                                                                                                  #  ALARM OR ABORT EXIT MODES--
062447,000371: 
062448,000372:                                                                                                  #                PRIOBORT        TC      ABORT
062449,000373:                                                                                                  #                                OCT     1502
062450,000374: 
062451,000375:                                                                                                  #  PRIOBORT IS BRANCED TO WHEN (1) A NORMAL DISPLAY IS REQUESTED AND ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
062452,000376:                                                                                                  #  (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
062453,000377:                                                                                                  #  ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
062454,000378: 
062455,000379:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED--
062456,000380: 
062457,000381:                                                                                                  #        ACCOMPLISHED BY FRESH START-    1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
062458,000382:                                                                                                  #                                        2. NVSAVE = NORMAL VERB AND NOUN REGISTER.
062459,000383:                                                                                                  #                                        3. EBANKTEM = NORMAL INACTIVE FLAGWORD (ALSO CONTAINS NORMALS EBANK).
062460,000384: 
062461,000385:                                                                                                  #                                        5. R1SAVE = MARKBRAN CONTROL WORD
062462,000386:                                                                                                  #                                        4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
062463,000387: 
062464,000388:                                                                                                  #  OUTPUT--
062465,000389: 
062466,000390:                                                                                                  #        NVWORD = PRIO VERB AND NOUN
062467,000391:                                                                                                  #        NVWORD +1 (MARKNV) = MARK VERB AND NOUN
062468,000392:                                                                                                  #        NVWORD +2 (NVSAVE) = NORMAL VERB AND NOUN
062469,000393: 
062470,000394:                                                                                                  #        DSPFLG (EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
062471,000395:                                                                                                  #        DSPFLG +1 (MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
062472,000396:                                                                                                  #        DSPFLG +2 (EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
062473,000397: 
062474,000398:                                                                                                  #        CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
062475,000399:                                                                                                  #        CADRFLSH +1 (MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
062476,000400:                                                                                                  #        CADRFLSH +2 (TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
062477,000401: 
062478,000402:                                                                                                  #        PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
062479,000403:                                                                                                  #        OPTION1 = DESIRED OPTION FROM GOPERF4
062480,000404:                                                                                                  #        FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
062481,000405:                                                                                                  #        DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS (NORMAL)
062482,000406: 
062483,000407:                                                                                                  #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
062484,000408:                                                                                                  #  JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
062485,000409: 
062486,000410:                                                                                                  #  DEBRIS-- (STORED INTO)
062487,000411:                                                                                                  #        TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
062488,000412:                                                                                                  #                EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1      4, FACEREG
062489,000413:                                                                                                  #        ERASABES (SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
062490,000414:                                                                                                  #        ERASABLES (USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,

Page 1457

062492,000416:                                                                                                  #                R1SAVE, MARK2PAC,
062493,000417: 
062494,000418:                                                                                                  #  DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
062495,000419: 
062496,000420:                                                                                                  #  FLAGWORD DESCRIPTIONS--
062497,000421:                                                                                                  #        FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
062498,000422: 
062499,000423:                                                                                                  #        DSPFLG, DSPFLG+1, DSPFLG +2-
062500,000424:                                                                                                  #        ----------------------------
062501,000425:                                                                                                  #        BITS 1  BLANK R1
062502,000426:                                                                                                  #             2  BLANK R2
062503,000427:                                                                                                  #             3  BLANK R3
062504,000428:                                                                                                  #             4  FLASHING DISPLAY REQUESTED
062505,000429:                                                                                                  #             5  PERFORM DISPLAY REQUESTED
062506,000430:                                                                                                  #             6  -----                   EXDSPRET                GODSPRET
062507,000431:                                                                                                  #             7  PRIO DISPLAY            -----                   -----
062508,000432:                                                                                                  #             8  -----                   MARK MONITOR PERF       -----
062509,000433:                                                                                                  #             9  EBANK
062510,000434:                                                                                                  #            10  EBANK
062511,000435:                                                                                                  #            11  EBANK
062512,000436:                                                                                                  #            12  -----                   -----                   V99PASTE
062513,000437:                                                                                                  #            13  2ND PART OF PERFORM
062514,000438:                                                                                                  #            14  REFLASH OR REDO         -----                   REFLASH OR REDO
062515,000439:                                                                                                  #            15  -----                   MARK REQUEST            -----
062516,000440: 
062517,000441:                                                                                                  #  RESTARTING DISPLAYS--
062518,000442: 
062519,000443:                                                                                                  #  RULES FOR THE DSKY OPERATOR--
062520,000444: 
062521,000445:                                                                                                  #        1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
062522,000446:                                                                                                  #           AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
062523,000447:                                                                                                  #           RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
062524,000448:                                                                                                  #           WITH PROCEED AND TERMINATE FOR THIS REASON.
062525,000449:                                                                                                  #        2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO SOONER THAN 5 SECS FROM THE TIME THE MISSION
062526,000450:                                                                                                  #           PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
062527,000451:                                                                                                  #           DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.)  IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
062528,000452:                                                                                                  #           IS SENT OUT AGAIN---AND AGAIN UNTIL AN ACCUMULATED 5 SECS FROM TIME THE FIRST PRIORITY DISPLAY WAS SENT
062529,000453:                                                                                                  #           OUT. THE SAME 5 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY MULTIPLE OF THAT TIME DUE TO PROGRAM
062530,000454:                                                                                                  #           CONSIDERATION.
062531,000455:                                                                                                  #        3. KEY RELEASE BUTTON-
062532,000456:                                                                                                  #           A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
062533,000457:                                                                                                  #           B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
062534,000458:                                                                                                  #              AWAITING RESPONSE THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
062535,000459:                                                                                                  #           IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
062536,000460:                                                                                                  #           KEY RELEASE BUTTON MAY BE NECESSARY.
062537,000461:                                                                                                  #        4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
062538,000462:                                                                                                  #        5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
062539,000463:                                                                                                  #           OVER AGAIN.
062540,000464: 
062541,000465:                                                                                                  #  SPECIAL CONSIDERATIONS--

Page 1458

062543,000467:                                                                                                  #        1. MPAC +2 SAVED ONLY IN MARK DISPLAYS
062544,000468:                                                                                                  #        2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
062545,000469:                                                                                                  #        3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
062546,000470:                                                                                                  #        4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
062547,000471:                                                                                                  #        5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
062548,000472:                                                                                                  #           BY A .1 RESTART PHASE CHANGE.
062549,000473:                                                                                                  #        6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
062550,000474:                                                                                                  #           CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
062551,000475:                                                                                                  #        7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED BEFORE THE TC BANKCALL
062552,000476: 

Page 1459

062554,000478:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
062555,000479:                                                                                                  #                CAF     BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
062556,000480:                                                                                                  #                TC      BLANKET
062557,000481:                                                                                                  #                ...     ...             RETURN TO USER HERE
062558,000482: 
062559,000483:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
062560,000484:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
062561,000485: 
062562,000486:    4000                                           SETLOC   FFTAG4                                
062563,000487:    4000                                           BANK                                           
062564,000488: 
062565,000489:    5516                                           COUNT*   $$/DSPLA                              
062566,000490:    5516           54162        BLANKET            TS       MPAC       +6                         
062567,000491:    5517           40160                           CS       PLAYTEM4                              
062568,000492:    5520           70162                           MASK     MPAC       +6                         
062569,000493:    5521           50161                           INDEX    MPAC       +5                         
062570,000494:    5522           26160                           ADS      PLAYTEM4                              
062571,000495: 
062572,000496:    5523           00002                           TC       Q                                     
062573,000497: 
062574,000498:    5524           05527        ENDMARK            TC       CLEARMRK                              
062575,000499:    5525           04655                           TC       POSTJUMP                              
062576,000500:    5526           21643                           CADR     MARKOVER                              
062577,000501: 
062578,000502:    5527           34772        CLEARMRK           CAF      ZERO                                  
062579,000503:    5530           55247                           TS       EXTVBACT                              
062580,000504: 
062581,000505:    5531           44770                           CS       XDSPBIT                               
062582,000506:    5532           70100                           MASK     FLAGWRD4                              
062583,000507:    5533           54100                           TS       FLAGWRD4                              
062584,000508: 
062585,000509:    5534           00002                           TC       Q                                     
062586,000510: 
062587,000511:                                                                                                  #  *** ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
062588,000512:                                                                                                  #  FINISHED.
062589,000513: 
062590,000514:    5535           56001        VNFLASH            XCH      L                                     
062591,000515:    5536           35545                           CAF      VNCADR                                
062592,000516:    5537           15542                           TCF      VNGODSP                               
062593,000517: 
062594,000518:    5540           56001        VNFLASHR           XCH      L                                     
062595,000519:    5541           35546                           CAF      VNRCADR                               
062596,000520:    5542           24002        VNGODSP            INCR     Q                                     #  BECAUSE OF RESTARTS
062597,000521:    5543           22155                           LXCH     PLAYTEM1                              
062598,000522:    5544           14642                           TCF      SWCALL                                
062599,000523: 
062600,000524:    5545           20732        VNCADR             CADR     VNFLSH                                
062601,000525:    5546           20735        VNRCADR            CADR     VNFLSHR                               
062602,000526: 
062603,000527: 10,2000                                           SETLOC   DISPLAYS                              
062604,000528: 10,2000                                           BANK                                           

Page 1460

062606,000530: 
062607,000531: 10,2575                                           COUNT    10/DSPLA                              
062608,000532: 
062609,000533:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
062610,000534:                                                                                                  #  3 RETURNS TO THE USER.  THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
062611,000535: 
062612,000536: 10,2575           34772        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
062613,000537: 10,2576           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
062614,000538: 
062615,000539: 10,2577           37664                           CAF      MARKFMSK                              #  MARK,FLASH
062616,000540: 10,2600           12745                           TCF      GOFLASH2                              
062617,000541: 
062618,000542: 10,2601           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
062619,000543: 10,2602           33733        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
062620,000544: 10,2603           12745                           TCF      GOFLASH2                              
062621,000545: 
062622,000546: 10,2604           54155        GOMARK4            TS       PLAYTEM1                              
062623,000547: 10,2605           33723                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
062624,000548: 10,2606           12745                           TCF      GOFLASH2                              
062625,000549: 
062626,000550: 10,2607           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
062627,000551: 
062628,000552: 10,2610           37664                           CAF      MARKFMSK                              
062629,000553: 10,2611           13103                           TCF      GODSPRS                               
062630,000554: 
062631,000555: 10,2612           54155        MARKMONR           TS       PLAYTEM1                              #  USED FOR MARK MONITOR
062632,000556: 10,2613           33754                           CAF      MARK3MSK                              
062633,000557: 10,2614           12745                           TCF      GOFLASH2                              
062634,000558: 10,2615           34770        MAKEMARK           CAF      ONE                                   
062635,000559: 10,2616           03172                           TC       COPIES                                
062636,000560: 
062637,000561: 10,2617           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
062638,000562: 10,2620           73734                           MASK     OCT34300                              
062639,000563: 10,2621           10000                           CCS      A                                     
062640,000564: 10,2622           12670                           TCF      CHKPRIO                               
062641,000565: 
062642,000566: 10,2623           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY
062643,000567: 10,2624           74760                           MASK     MRKNVBIT                              
062644,000568: 10,2625           00006                           EXTEND                                         
062645,000569: 10,2626           12630                           BZF      MARKPLAY                              #  NO
062646,000570: 
062647,000571: 10,2627           15205                           TCF      ENDOFJOB                              
062648,000572: 
062649,000573: 10,2630           44773        MARKPLAY           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
062650,000574: 10,2631           70100                           MASK     FLAGWRD4                              
062651,000575: 10,2632           64770                           AD       XDSPBIT                               
062652,000576: 10,2633           54100                           TS       FLAGWRD4                              
062653,000577: 10,2634           22007        GOGOMARK           ZL                                             #  PERFORM
062654,000578: 10,2635           41274                           CS       MARKFLAG                              
062655,000579: 10,2636           74761                           MASK     DCMKPERF                              
062656,000580: 10,2637           10000                           CCS      A                                     
062657,000581: 10,2640           12645                           TCF      +5                                    

Page 1461

062659,000583: 10,2641           30367                           CA       MARKNV                                
062660,000584: 10,2642           74171                           MASK     MID7                                  
062661,000585: 10,2643           54001                           TS       L                                     
062662,000586: 10,2644           12651                           TCF      +5                                    
062663,000587: 10,2645           41274                           CS       MARKFLAG                              
062664,000588: 10,2646           74764                           MASK     PERFRQST                              
062665,000589: 10,2647           10000                           CCS      A                                     
062666,000590: 10,2650           12653                           TCF      MARKCOP                               
062667,000591: 10,2651           40367                           CS       MARKNV                                
062668,000592: 10,2652           54367                           TS       MARKNV                                
062669,000593: 
062670,000594: 10,2653           34770        MARKCOP            CAF      ONE                                   #  MARK INDEX
062671,000595: 10,2654           54164                           TS       COPINDEX                              
062672,000596: 10,2655           13316                           TCF      NVDSP      +1                         
062673,000597: 10,2656           30165        COPYTOGO           CA       MPAC2SAV                              
062674,000598: 10,2657           54156                           TS       MPAC       +2                         
062675,000599: 
062676,000600: 10,2660           50164        COPYPACS           INDEX    COPINDEX                              
062677,000601: 10,2661           33740                           CAF      PRIOOCT                               
062678,000602: 10,2662           54162                           TS       GENMASK                               
062679,000603: 
062680,000604: 10,2663           50164                           INDEX    COPINDEX                              
062681,000605: 10,2664           31273                           CAF      EBANKSAV                              
062682,000606: 10,2665           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
062683,000607: 
062684,000608: 10,2666           54003                           TS       EBANK                                 
062685,000609: 
062686,000610: 10,2667           00002                           TC       Q                                     
062687,000611: 
062688,000612:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
062689,000613:                                                                                                  #  (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
062690,000614:                                                                                                  #  REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
062691,000615:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
062692,000616: 
062693,000617:                                                                                                  #  IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
062694,000618:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
062695,000619: 
062696,000620: 10,2670           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
062697,000621: 10,2671           77646                           MASK     14,12,7                               
062698,000622: 10,2672           10000                           CCS      A                                     
062699,000623: 10,2673           13676                           TCF      MARSLEEP                              
062700,000624: 
062701,000625: 10,2674           34766                           CAF      MKOVBIT                               #  SET MARK OVER NORM
062702,000626: 10,2675           03755                           TC       UPENT2                                
062703,000627: 
062704,000628: 10,2676           13000                           TCF      SETNORM                               
062705,000629: 
062706,000630: 10,2677           30367        MARKPERF           CA       MARKNV                                
062707,000631: 10,2700           74171                           MASK     VERBMASK                              
062708,000632: 10,2701           13350                           TCF      NV50DSP                               
062709,000633: 

Page 1462

062711,000635: 10,2702           54155        GODSP              TS       PLAYTEM1                              
062712,000636: 
062713,000637: 10,2703           34772        GODSP2             CAF      DSPONLY                               
062714,000638: 10,2704           12745                           TCF      GOFLASH2                              
062715,000639: 
062716,000640: 10,2705           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
062717,000641: 
062718,000642: 10,2706           34763                           CAF      RETDSPY                               #  SET BIT6 TO RETURN TO USER AFTER NVSUB
062719,000643: 10,2707           12745                           TCF      GOFLASH2                              
062720,000644: 
062721,000645: 10,2710           54155        GODSPR             TS       PLAYTEM1                              
062722,000646: 
062723,000647: 10,2711           34772        GODSPR1            CAF      DSPONLY                               
062724,000648: 10,2712           54160        GODSPR2            TS       PLAYTEM4                              
062725,000649: 
062726,000650: 10,2713           34772                           CAF      ZERO                                  #  * DONT MOVE
062727,000651: 10,2714           13105                           TCF      GODSPRS1                              
062728,000652: 
062729,000653:                                                                                                  #  CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
062730,000654:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
062731,000655: 
062732,000656:                                                                                                  #  NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
062733,000657:                                                                                                  #  OLD DISPLAY.
062734,000658: 
062735,000659:                                                                                                  #  CALLING SEQUENCE FOR CLEANDSP-
062736,000660: 
062737,000661:                                                                                                  #                TC      BANKCALL
062738,000662:                                                                                                  #                CADR    CLEANDSP
062739,000663: 
062740,000664: 10,2715           34772        CLEANDSP           CAF      ZERO                                  
062741,000665: 10,2716           54155        REFLASH            TS       PLAYTEM1                              
062742,000666: 
062743,000667: 10,2717           33722                           CAF      REDOMASK                              #  FLASH AND PERMIT
062744,000668: 10,2720           12745                           TCF      GOFLASH2                              
062745,000669: 
062746,000670: 10,2721           54155        REGODSP            TS       PLAYTEM1                              
062747,000671: 
062748,000672: 10,2722           34753                           CAF      REFLSH                                
062749,000673: 10,2723           12745                           TCF      GOFLASH2                              
062750,000674: 
062751,000675: 10,2724           54155        REGODSPR           TS       PLAYTEM1                              
062752,000676: 
062753,000677: 10,2725           34753                           CAF      REFLSH                                
062754,000678: 10,2726           12712                           TCF      GODSPR2                               
062755,000679: 
062756,000680: 10,2727           54155        CLOCPLAY           TS       PLAYTEM1                              
062757,000681: 10,2730           33750                           CAF      CLOCKCON                              
062758,000682: 10,2731           12745                           TCF      GOFLASH2                              
062759,000683: 10,2732           05547        VNFLSH             TC       UPFLAG                                
062760,000684: 10,2733           00111                           ADRES    VNFLAG                                

Page 1463

062762,000686: 10,2734           12744                           TCF      GOFLASH    +1                         
062763,000687: 
062764,000688: 10,2735           05547        VNFLSHR            TC       UPFLAG                                
062765,000689: 10,2736           00111                           ADRES    VNFLAG                                
062766,000690: 10,2737           34765                           CAF      FLSHRQST                              
062767,000691: 10,2740           54160                           TS       PLAYTEM4                              #  IT'S A FLASHING DISPLAY
062768,000692: 10,2741           34772                           CAF      ZERO                                  #  RETURN TO CALLER'S Q +1
062769,000693: 10,2742           13105                           TCF      GODSPRS1                              
062770,000694: 
062771,000695: 10,2743           54155        GOFLASH            TS       PLAYTEM1                              
062772,000696: 
062773,000697: 10,2744           34765                 +1        CAF      FLSHRQST                              #  LEAVE ONLY FLASH BIT SET
062774,000698: 10,2745           54160        GOFLASH2           TS       PLAYTEM4                              
062775,000699: 
062776,000700: 10,2746           03157                           TC       SAVELOCS                              
062777,000701: 
062778,000702: 10,2747           13012                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
062779,000703: 
062780,000704: 10,2750           54155        PRIODSPR           TS       PLAYTEM1                              
062781,000705: 
062782,000706: 10,2751           35013                           CAF      BITS7+4                               
062783,000707: 10,2752           13103                           TCF      GODSPRS                               
062784,000708: 
062785,000709: 10,2753           54155        PRIODSP            TS       PLAYTEM1                              
062786,000710: 
062787,000711: 10,2754           35013        SETPRIO            CAF      BITS7+4                               
062788,000712: 10,2755           12745                           TCF      GOFLASH2                              
062789,000713: 
062790,000714: 10,2756           34772        MAKEPRIO           CAF      ZERO                                  
062791,000715: 10,2757           54164                           TS       COPINDEX                              
062792,000716: 
062793,000717: 10,2760           03623                           TC       LINUSCHR                              
062794,000718: 10,2761           12766                           TCF      HIPRIO                                #  LINUS RETURN
062795,000719: 10,2762           30100                           CA       FLAGWRD4                              
062796,000720: 10,2763           73747                           MASK     BIT14+7                               #  IS PRIO IN ENDIDLE OR BUSY
062797,000721: 10,2764           10000                           CCS      A                                     
062798,000722: 10,2765           13041                           TCF      PRIOBORT                              #  YES, ABORT
062799,000723: 
062800,000724: 10,2766           30100        HIPRIO             CA       FLAGWRD4                              #  MARK ACTIVE
062801,000725: 10,2767           77716                           MASK     BIT15+9                               
062802,000726: 10,2770           00006                           EXTEND                                         
062803,000727: 10,2771           12774                           BZF      ASKIFNRM                              #  NO
062804,000728: 
062805,000729: 10,2772           34772        SETMARK            CAF      ZERO                                  
062806,000730: 10,2773           13226                           TCF      JOBXCHS                               
062807,000731: 
062808,000732: 10,2774           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE
062809,000733: 10,2775           73745                           MASK     BIT13+8                               
062810,000734: 10,2776           00006                           EXTEND                                         
062811,000735: 10,2777           13002                           BZF      OKTOCOPY                              #  NO

Page 1464

062813,000737: 
062814,000738: 10,3000           34770        SETNORM            CAF      ONE                                   
062815,000739: 10,3001           13226                           TCF      JOBXCHS                               
062816,000740: 
062817,000741: 10,3002           03171        OKTOCOPY           TC       COPYNORM                              
062818,000742: 10,3003           03431                           TC       WITCHONE                              
062819,000743: 
062820,000744: 10,3004           05167                           TC       JOBWAKE                               
062821,000745: 
062822,000746: 10,3005           03445                           TC       XCHTOEND                              
062823,000747: 
062824,000748: 10,3006           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
062825,000749: 10,3007           55005                           TS       PRIOTIME                              
062826,000750: 
062827,000751: 10,3010           34772        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
062828,000752: 10,3011           13062                           TCF      PRIOPLAY                              
062829,000753: 
062830,000754: 10,3012           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
062831,000755: 10,3013           77660                           MASK     PRIO37                                
062832,000756: 10,3014           54163                           TS       USERPRIO                              
062833,000757: 
062834,000758: 10,3015           37655                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
062835,000759: 10,3016           05176                           TC       PRIOCHNG                              
062836,000760: 
062837,000761: 10,3017           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
062838,000762: 10,3020           73735                           MASK     BITS15+7                              
062839,000763: 10,3021           10000                           CCS      A                                     
062840,000764: 10,3022           12756                           TCF      MAKEPRIO                              #  ITS PRIO
062841,000765: 10,3023           13025                           TCF      IFLEGAL                               
062842,000766: 10,3024           12615                           TCF      MAKEMARK                              #  ITS MARK
062843,000767: 
062844,000768: 10,3025           34767        IFLEGAL            CAF      TWO                                   
062845,000769: 10,3026           54164                           TS       COPINDEX                              
062846,000770: 
062847,000771: 10,3027           03623                           TC       LINUSCHR                              
062848,000772: 
062849,000773: 10,3030           13043                           TCF      OKTOPLAY                              #  LINUS RETURN
062850,000774: 10,3031           41275                           CS       EBANKTEM                              
062851,000775: 10,3032           74765                           MASK     FLSHRQST                              
062852,000776: 10,3033           10000                           CCS      A                                     
062853,000777: 10,3034           13043                           TCF      OKTOPLAY                              #  NO
062854,000778: 
062855,000779: 10,3035           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP
062856,000780: 10,3036           73727                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
062857,000781: 10,3037           00006                           EXTEND                                         
062858,000782: 10,3040           13043                           BZF      OKTOPLAY                              #  NO
062859,000783: 
062860,000784: 10,3041           05726        PRIOBORT           TC       POODOO                                
062861,000785: 10,3042           21502                           OCT      21502                                 #  ILLEGAL FLASHING DISPLAY
062862,000786: 
062863,000787: 10,3043           03173        OKTOPLAY           TC       COPIES2                               

Page 1465

062865,000789: 10,3044           30163                           CA       USERPRIO                              
062866,000790: 10,3045           00006                           EXTEND                                         
062867,000791: 10,3046           04007                           ROR      SUPERBNK                              
062868,000792: 10,3047           54365                           TS       RESTREG                               
062869,000793: 
062870,000794: 10,3050           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
062871,000795: 10,3051           73730                           MASK     PMMASK                                
062872,000796: 10,3052           10000                           CCS      A                                     
062873,000797: 10,3053           13210                           TCF      GOSLEEPS                              #  YES
062874,000798: 
062875,000799: 10,3054           13056                           TCF      +2                                    
062876,000800: 10,3055           13210                           TCF      GOSLEEPS                              #  MARK GOING
062877,000801: 
062878,000802:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
062879,000803: 
062880,000804: 10,3056           03431                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
062881,000805: 10,3057           05167                           TC       JOBWAKE                               
062882,000806: 
062883,000807: 10,3060           03445                           TC       XCHTOEND                              
062884,000808: 
062885,000809: 10,3061           34767        PLAYJUM1           CAF      TWO                                   
062886,000810: 10,3062           54164        PRIOPLAY           TS       COPINDEX                              
062887,000811: 
062888,000812: 10,3063           13315                           TCF      GOPLAY                                
062889,000813: 
062890,000814: 10,3064           54155        EXDSPRET           TS       PLAYTEM1                              
062891,000815: 
062892,000816: 10,3065           37667                           CAF      BIT15+6                               
062893,000817: 10,3066           12745                           TCF      GOFLASH2                              
062894,000818: 
062895,000819: 10,3067           55250        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
062896,000820: 10,3070           33720                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
062897,000821: 
062898,000822: 10,3071           54155        GOPERFS            TS       PLAYTEM1                              
062899,000823: 
062900,000824: 10,3072           33717                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
062901,000825: 10,3073           12745                           TCF      GOFLASH2                              
062902,000826: 
062903,000827: 10,3074           54775        GOPERF4            TS       OPTION1                               #  DESIRED OPTION CODE
062904,000828: 
062905,000829: 10,3075           34537                           CAF      V04N06                                
062906,000830: 10,3076           54155                           TS       PLAYTEM1                              
062907,000831: 
062908,000832: 10,3077           35775                           CAF      PERF4MSK                              #  FLASH, PERFORM, AND BLANK R3
062909,000833: 10,3100           12745                           TCF      GOFLASH2                              
062910,000834: 
062911,000835: 10,3101           54155        GOFLASHR           TS       PLAYTEM1                              
062912,000836: 
062913,000837: 10,3102           34765                           CAF      FLSHRQST                              #  LEAVE ONLY FLASH BIT SET
062914,000838: 10,3103           54160        GODSPRS            TS       PLAYTEM4                              

Page 1466

062916,000840: 10,3104           36214                           CAF      THREE                                 
062917,000841: 
062918,000842: 10,3105           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
062919,000843: 10,3106           54072                           TS       RUPTREG3                              
062920,000844: 
062921,000845: 10,3107           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
062922,000846: 10,3110           77660                           MASK     PRIO37                                
062923,000847: 10,3111           54063                           TS       NEWPRIO                               
062924,000848: 
062925,000849: 10,3112           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
062926,000850: 10,3113           74765                           MASK     FLSHRQST                              
062927,000851: 10,3114           10000                           CCS      A                                     
062928,000852: 10,3115           13123                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
062929,000853: 10,3116           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
062930,000854: 10,3117           05121                           TC       NOVAC                                 
062931,000855: 10,3120  0003777                                  EBANK=   WHOCARES                              
062932,000856: 10,3120           03012 20067                     2CADR    MAKEPLAY                              
062933,000857: 
062934,000858: 10,3122           13131                           TCF      BOTHJOBS                              
062935,000859: 
062936,000860: 10,3123           30006        VACDSP             CA       BBANK                                 
062937,000861: 10,3124           00006                           EXTEND                                         
062938,000862: 10,3125           04007                           ROR      SUPERBNK                              
062939,000863: 10,3126           54001                           TS       L                                     
062940,000864: 10,3127           33744                           CAF      MAKEGEN                               
062941,000865: 10,3130           05146                           TC       SPVAC                                 
062942,000866: 
062943,000867: 10,3131           03157        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
062944,000868: 
062945,000869: 10,3132           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
062946,000870: 10,3133           30156                           DCA      MPAC       +1                         
062947,000871: 10,3134           50064                           INDEX    LOCCTR                                
062948,000872: 10,3135           52156                           DXCH     MPAC       +1                         
062949,000873: 
062950,000874: 10,3136           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
062951,000875: 10,3137           30160                           DCA      MPAC       +3                         
062952,000876: 10,3140           50064                           INDEX    LOCCTR                                
062953,000877: 10,3141           52160                           DXCH     MPAC       +3                         
062954,000878: 
062955,000879: 10,3142           30064                           CA       LOCCTR                                
062956,000880: 10,3143           54161                           TS       MPAC       +5                         
062957,000881: 
062958,000882: 10,3144           03164                           TC       SAVELOCR                              
062959,000883: 10,3145           00003                           RELINT                                         
062960,000884: 
062961,000885: 10,3146           14660                           TCF      BANKJUMP                              #  CALL CADR +4
062962,000886: 
062963,000887: 10,3147           55250        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
062964,000888: 
062965,000889: 10,3150           33720                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
062966,000890: 

Page 1467

062968,000892: 
062969,000893: 10,3151           54155        GOPERFRS           TS       PLAYTEM1                              
062970,000894: 
062971,000895: 10,3152           33717                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
062972,000896: 10,3153           13103                           TCF      GODSPRS                               
062973,000897: 
062974,000898: 10,3154           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
062975,000899: 
062976,000900: 10,3155           35001                           CAF      PERF2MSK                              
062977,000901: 10,3156           13103                           TCF      GODSPRS                               
062978,000902: 
062979,000903: 10,3157           00004        SAVELOCS           INHINT                                         
062980,000904: 
062981,000905: 10,3160           45046                           CS       EBANK7                                #  GETS ALL EBANK BITS OFF
062982,000906: 10,3161           70160                           MASK     PLAYTEM4                              
062983,000907: 10,3162           60003                           AD       EBANK                                 
062984,000908: 10,3163           54160                           TS       PLAYTEM4                              
062985,000909: 
062986,000910: 10,3164           22002        SAVELOCR           LXCH     Q                                     
062987,000911: 
062988,000912: 10,3165           04665                           TC       MAKECADR                              
062989,000913: 10,3166           54157                           TS       PLAYTEM3                              
062990,000914: 
062991,000915: 10,3167           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
062992,000916: 10,3170           00001                           TC       L                                     
062993,000917: 
062994,000918: 10,3171           34772        COPYNORM           CAF      ZERO                                  
062995,000919: 10,3172           54164        COPIES             TS       COPINDEX                              
062996,000920: 10,3173           30160        COPIES2            CA       PLAYTEM4                              #  FLAGWORD
062997,000921: 10,3174           50164                           INDEX    COPINDEX                              
062998,000922: 10,3175           55273                           TS       EBANKSAV                              #  EQUIV TO DSPFLG
062999,000923: 
063000,000924: 10,3176           75004                           MASK     CADRMASK                              #  FLASH AND GODSPRET
063001,000925: 10,3177           00006                           EXTEND                                         
063002,000926: 10,3200           13204                           BZF      SKIPADD                               
063003,000927: 
063004,000928: 10,3201           30157                           CA       PLAYTEM3                              
063005,000929: 10,3202           50164                           INDEX    COPINDEX                              
063006,000930: 10,3203           54371                           TS       CADRFLSH                              
063007,000931: 
063008,000932: 10,3204           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
063009,000933: 10,3205           50164                           INDEX    COPINDEX                              
063010,000934: 10,3206           54366                           TS       NVWORD                                
063011,000935: 
063012,000936: 10,3207           13454                           TCF      RELINTQ                               
063013,000937: 
063014,000938: 10,3210           50164        GOSLEEPS           INDEX    COPINDEX                              
063015,000939: 10,3211           33740                           CA       PRIOOCT                               
063016,000940: 10,3212           75045                           MASK     WAITMASK                              
063017,000941: 10,3213           03755                           TC       UPENT2                                
063018,000942: 10,3214           44770                           CS       ONE                                   

Page 1468

063020,000944: 10,3215           60164                           AD       COPINDEX                              
063021,000945: 10,3216           54154                           TS       FACEREG                               
063022,000946: 
063023,000947: 10,3217           50154        XCHSLEEP           INDEX    FACEREG                               
063024,000948: 10,3220           33725                           CAF      WAKECADR                              
063025,000949: 10,3221           05167                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
063026,000950: 
063027,000951: 10,3222           03445                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
063028,000952: 
063029,000953: 10,3223           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
063030,000954: 10,3224           33725                           CAF      WAKECADR                              
063031,000955: 10,3225           15163                           TCF      JOBSLEEP                              
063032,000956: 
063033,000957: 10,3226           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
063034,000958: 10,3227           03431                           TC       WITCHONE                              
063035,000959: 10,3230           05167                           TC       JOBWAKE                               
063036,000960: 10,3231           30154                           CA       FACEREG                               
063037,000961: 10,3232           50064                           INDEX    LOCCTR                                
063038,000962: 10,3233           54154                           TS       FACEREG                               
063039,000963: 
063040,000964: 10,3234           33752                           CAF      XCHQADD                               
063041,000965: 10,3235           03446                           TC       XCHNYLOC                              
063042,000966: 
063043,000967: 10,3236           50154                           INDEX    FACEREG                               
063044,000968: 10,3237           33741                           CA       MARKOCT                               
063045,000969: 10,3240           73743                           MASK     IDLESLEP                              
063046,000970: 10,3241           03762                           TC       DOWNENT2                              
063047,000971: 10,3242           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
063048,000972: 10,3243           34764                           CA       MRUPTBIT                              #  BIT5 FOR MARK, BIT4 FOR NORMAL
063049,000973: 10,3244           03755                           TC       UPENT2                                
063050,000974: 10,3245           30100                           CA       FLAGWRD4                              
063051,000975: 10,3246           74766                           MASK     MKOVBIT                               #  IF BIT 3 THEN MARK OVER NORM
063052,000976: 10,3247           10000                           CCS      A                                     
063053,000977: 10,3250           02630        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
063054,000978: 10,3251           13002                           TCF      OKTOCOPY                              
063055,000979: 
063056,000980: 10,3252           34772        MARKWAKE           CAF      ZERO                                  
063057,000981: 10,3253           54160        WAKEPLAY           TS       TEMPOR2                               
063058,000982: 
063059,000983: 10,3254           50160                           INDEX    TEMPOR2                               
063060,000984: 10,3255           33736                           CA       BITS5+11                              
063061,000985: 10,3256           03762                           TC       DOWNENT2                              
063062,000986: 10,3257           50160                           INDEX    TEMPOR2                               
063063,000987: 10,3260           33725                           CAF      WAKECADR                              
063064,000988: 10,3261           05167                           TC       JOBWAKE                               
063065,000989: 
063066,000990: 10,3262           13555                           TCF      ENDRET                                
063067,000991: 
063068,000992:                                                                                                  #  ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THE ONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
063069,000993:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.

Page 1469

063071,000995:                                                                                                  #  IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROL IS SENT BACK TO THE LAST NORMAL USER.
063072,000996:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
063073,000997: 
063074,000998: 10,3263           31275        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
063075,000999: 10,3264           54003                           TS       EBANK                                 
063076,001000: 
063077,001001: 10,3265           30365                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
063078,001002: 10,3266           00006                           EXTEND                                         #  RESTORE SUPERBANK
063079,001003: 10,3267           01007                           WRITE    SUPERBNK                              #  CHAN 07
063080,001004: 10,3270           77660                           MASK     PRIO37                                
063081,001005: 10,3271           05176                           TC       PRIOCHNG                              
063082,001006: 
063083,001007: 10,3272           46214                           CS       THREE                                 
063084,001008: 10,3273           60373                           AD       TEMPFLSH                              
063085,001009: 10,3274           14660                           TCF      BANKJUMP                              
063086,001010: 
063087,001011: 10,3275           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
063088,001012: 10,3276           31276                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS
063089,001013: 10,3277           54156                           TS       MPAC       +2                         #  ONLY
063090,001014: 
063091,001015: 10,3300           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION
063092,001016: 10,3301           77673                           MASK     PINMASK                               
063093,001017: 10,3302           10000                           CCS      A                                     
063094,001018: 10,3303           13306                           TCF      +3                                    
063095,001019: 10,3304           13713                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
063096,001020: 10,3305           12630                           TCF      MARKPLAY                              
063097,001021: 
063098,001022: 10,3306           05547        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
063099,001023: 10,3307           00105                           ADRES    PINBRFLG                              
063100,001024: 
063101,001025: 10,3310           34753                           CAF      PRIODBIT                              #  PRIO INTERRUPTED
063102,001026: 10,3311           70100                           MASK     FLAGWRD4                              
063103,001027: 10,3312           10000                           CCS      A                                     
063104,001028: 10,3313           13010                           TCF      KEEPPRIO                              
063105,001029: 
063106,001030: 10,3314           13061                           TCF      PLAYJUM1                              
063107,001031: 
063108,001032: 10,3315           22007        NVDSP              ZL                                             
063109,001033: 10,3316           02660                           TC       COPYPACS                              
063110,001034: 10,3317           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
063111,001035: 10,3320           74774                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
063112,001036: 10,3321           26001                           ADS      L                                     
063113,001037: 10,3322           44754                           CS       2NDPERF                               
063114,001038: 10,3323           50164                           INDEX    COPINDEX                              
063115,001039: 10,3324           71273                           MASK     DSPFLG                                
063116,001040: 10,3325           50164                           INDEX    COPINDEX                              
063117,001041: 10,3326           55273                           TS       DSPFLG                                
063118,001042: 
063119,001043: 10,3327           74761                           MASK     DCMKPERF                              
063120,001044: 10,3330           10000                           CCS      A                                     

Page 1470

063122,001046: 10,3331           35044                           CA       OCT2600                               
063123,001047: 10,3332           54141                           TS       TEM1                                  
063124,001048: 
063125,001049: 10,3333           30156                           CA       MPAC       +2                         
063126,001050: 10,3334           54165                           TS       MPAC2SAV                              
063127,001051: 
063128,001052: 10,3335           55276                           TS       MARK2PAC                              #  * FOR DISK ONLY *
063129,001053: 10,3336           50164                           INDEX    COPINDEX                              
063130,001054: 10,3337           10366                           CCS      NVWORD                                
063131,001055: 10,3340           13347                           TCF      NVDSP1                                
063132,001056: 10,3341           13455                           TCF      CLEANEND                              
063133,001057: 10,3342           40367                           CS       MARKNV                                
063134,001058: 10,3343           54367                           TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
063135,001059: 10,3344           76043                           MASK     LOW7                                  
063136,001060: 10,3345           63731                           AD       V05N00M1                              
063137,001061: 10,3346           60141                           AD       TEM1                                  
063138,001062: 10,3347           64770        NVDSP1             AD       ONE                                   
063139,001063: 10,3350           04203        NV50DSP            TC       NVMONOPT                              
063140,001064: 10,3351           13467                           TCF      REST                                  #  IF BUSY
063141,001065: 10,3352           04417                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
063142,001066: 
063143,001067: 10,3353           02656                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
063144,001068: 10,3354           33732                           CAF      OCT700                                
063145,001069: 10,3355           03762                           TC       DOWNENT2                              
063146,001070: 
063147,001071: 10,3356           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
063148,001072: 10,3357           04264                           TC       BLANKSUB                              
063149,001073: 10,3360           13315                           TCF      NVDSP                                 
063150,001074: 10,3361           34764        PERFCHEK           CAF      PERFRQST                              #  BIT5 FOR PERFORM
063151,001075: 10,3362           70160                           MASK     TEMPOR2                               
063152,001076: 10,3363           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
063153,001077: 10,3364           13407                           TCF      1STOR2ND                              #  YES
063154,001078: 
063155,001079: 10,3365           34765        GOANIDLE           CAF      FLSHRQST                              
063156,001080: 10,3366           70160                           MASK     TEMPOR2                               
063157,001081: 10,3367           10000                           CCS      A                                     
063158,001082: 10,3370           13504                           TCF      FLASHSUB                              #  IT IS
063159,001083: 
063160,001084: 10,3371           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
063161,001085: 10,3372           74763                           MASK     RETDSPY                               
063162,001086: 10,3373           10000                           CCS      A                                     
063163,001087: 10,3374           13401                           TCF      ISITN00                               
063164,001088: 
063165,001089: 10,3375           50164                           INDEX    COPINDEX                              
063166,001090: 10,3376           30371                           CA       CADRFLSH                              
063167,001091: 10,3377           54157                           TS       MPAC       +3                         
063168,001092: 10,3400           13602                           TCF      ENDIT                                 
063169,001093: 
063170,001094: 10,3401           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
063171,001095: 10,3402           30366                           CA       NVWORD                                

Page 1471

063173,001097: 10,3403           76043                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
063174,001098: 10,3404           00006                           EXTEND                                         
063175,001099: 10,3405           13504                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
063176,001100: 
063177,001101: 10,3406           15205                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
063178,001102: 
063179,001103: 10,3407           30160        1STOR2ND           CA       TEMPOR2                               
063180,001104: 10,3410           74754                           MASK     2NDPERF                               
063181,001105: 10,3411           10000                           CCS      A                                     
063182,001106: 10,3412           13365                           TCF      GOANIDLE                              #  SECOND
063183,001107: 
063184,001108: 10,3413           34754                           CA       2NDPERF                               
063185,001109: 10,3414           50164                           INDEX    COPINDEX                              
063186,001110: 10,3415           27273                           ADS      DSPFLG                                
063187,001111: 
063188,001112: 10,3416           22007                           ZL                                             
063189,001113: 10,3417           00006                           EXTEND                                         #  IS IT MARK
063190,001114: 10,3420           62677                           BZMF     MARKPERF                              #  YES
063191,001115: 
063192,001116: 10,3421           74755                           MASK     V99PSTE                               
063193,001117: 10,3422           00006                           EXTEND                                         
063194,001118: 10,3423           13427                           BZF      V50PASTE                              
063195,001119: 10,3424           40777                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97.  NVWORD1= -400 IS V99
063196,001120: 10,3425           63746                           AD       V97N00                                
063197,001121: 10,3426           13350                           TCF      NV50DSP                               
063198,001122: 10,3427           33721        V50PASTE           CAF      V50N00                                
063199,001123: 10,3430           13350                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
063200,001124: 
063201,001125: 10,3431           44764        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
063202,001126: 10,3432           00006                           EXTEND                                         
063203,001127: 10,3433           03011                           WAND     DSALMOUT                              
063204,001128: 
063205,001129: 10,3434           30100                           CA       FLAGWRD4                              
063206,001130: 10,3435           73732                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
063207,001131: 10,3436           10000                           CCS      A                                     
063208,001132: 10,3437           34770                           CAF      ONE                                   
063209,001133: 10,3440           54001                           TS       L                                     
063210,001134: 10,3441           34772                           CAF      ZERO                                  
063211,001135: 10,3442           50001                           INDEX    L                                     
063212,001136: 10,3443           57245                           XCH      CADRSTOR                              
063213,001137: 
063214,001138: 10,3444           00002                           TC       Q                                     
063215,001139: 
063216,001140: 10,3445           34170        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
063217,001141: 10,3446           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
063218,001142: 10,3447           00006                           EXTEND                                         
063219,001143: 10,3450           63454                           BZMF     RELINTQ                               #  NO
063220,001144: 10,3451           56064                           XCH      LOCCTR                                #  YES
063221,001145: 10,3452           50064                           INDEX    LOCCTR                                
063222,001146: 10,3453           54164                           TS       LOC                                   
063223,001147: 

Page 1472

063225,001149: 
063226,001150: 10,3454           15642        RELINTQ            TCF      REQ                                   #  BACK TO USER
063227,001151: 10,3455           37654        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
063228,001152: 10,3456           05135                           TC       FINDVAC                               
063229,001153: 10,3457     0370                                  EBANK=   NVSAVE                                
063230,001154: 10,3457           04247 04060                     2CADR    JAMTERM                               
063231,001155: 
063232,001156: 10,3461           13505                           TCF      FLASHSUB   +1                         
063233,001157: 
063234,001158: 10,3462           30100        ISITPRIO           CA       FLAGWRD4                              
063235,001159: 10,3463           77667                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
063236,001160: 10,3464           00006                           EXTEND                                         
063237,001161: 10,3465           13041                           BZF      PRIOBORT                              
063238,001162: 10,3466           15205                           TCF      ENDOFJOB                              
063239,001163: 
063240,001164: 10,3467           11245        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
063241,001165: 10,3470           15205                           TCF      ENDOFJOB                              #  YES
063242,001166: 10,3471           13473                           TCF      RESTSLEP                              
063243,001167: 
063244,001168: 10,3472           15205                           TCF      ENDOFJOB                              
063245,001169: 
063246,001170: 10,3473           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
063247,001171: 10,3474           73732                           MASK     NVBUSMSK                              
063248,001172: 10,3475           03755                           TC       UPENT2                                
063249,001173: 10,3476           04240        NVSUBUSY           TC       ISCADR+0                              
063250,001174: 10,3477           04356                           TC       RELDSPON                              
063251,001175: 10,3500           50164                           INDEX    COPINDEX                              
063252,001176: 10,3501           33724                           CAF      NVCADR                                
063253,001177: 10,3502           55246                           TS       DSPLIST                               
063254,001178: 10,3503           05163                           TC       JOBSLEEP                              
063255,001179: 10,3504           04360        FLASHSUB           TC       FLASHON                               
063256,001180: 
063257,001181: 10,3505           30164                 +1        CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
063258,001182: 10,3506           54157                           TS       COPMPAC                               
063259,001183: 
063260,001184: 10,3507           30162                           CA       GENMASK                               
063261,001185: 10,3510           77675                           MASK     IDLEMASK                              
063262,001186: 10,3511           03755                           TC       UPENT2                                
063263,001187: 10,3512           11245                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
063264,001188: 10,3513           13462                           TCF      ISITPRIO                              
063265,001189: 10,3514           13516                           TCF      +2                                    
063266,001190: 10,3515           13462                           TCF      ISITPRIO                              
063267,001191: 
063268,001192: 10,3516           04240        ENDIDLE            TC       ISCADR+0                              
063269,001193: 10,3517           33557                           CA       ENDIDRET                              
063270,001194: 10,3520           55245                           TS       CADRSTOR                              
063271,001195: 10,3521           05163                           TC       JOBSLEEP                              
063272,001196: 10,3522           44354        IDLERET1           CS       LOWLOAD                               
063273,001197: 10,3523           60154                           AD       MPAC                                  #  VERBREG
063274,001198: 10,3524           00006                           EXTEND                                         

Page 1473

063276,001200: 10,3525           26000                           DIM      A                                     
063277,001201: 10,3526           00006                           EXTEND                                         
063278,001202: 10,3527           13703                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
063279,001203: 10,3530           30100        OKTOENT            CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
063280,001204: 10,3531           74076                           MASK     BIT15/14                              
063281,001205: 10,3532           10000                           CCS      A                                     
063282,001206: 10,3533           13536                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
063283,001207: 10,3534           13651                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
063284,001208: 10,3535           13640                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
063285,001209: 
063286,001210: 10,3536           30366        TIMECHEK           CA       NVWORD                                
063287,001211: 10,3537           00006                           EXTEND                                         
063288,001212: 10,3540           13651                           BZF      NORMRET                               
063289,001213: 
063290,001214: 10,3541           40025                           CS       TIME1                                 
063291,001215: 10,3542           61005                           AD       PRIOTIME                              
063292,001216: 10,3543           10000                           CCS      A                                     
063293,001217: 10,3544           40000                           COM                                            
063294,001218: 10,3545           67663                           AD       OCT37776                              
063295,001219: 10,3546           64770                           AD       ONE                                   
063296,001220: 10,3547           63774                           AD       -2SEC                                 
063297,001221: 10,3550           00006                           EXTEND                                         
063298,001222: 10,3551           63010                           BZMF     KEEPPRIO                              
063299,001223: 
063300,001224: 10,3552           13651                           TCF      NORMRET                               
063301,001225: 
063302,001226: 10,3553           34770        NORMWAKE           CAF      ONE                                   
063303,001227: 10,3554           13253                           TCF      WAKEPLAY                              
063304,001228: 
063305,001229: 
063306,001230: 10,3555           11217        ENDRET             CCS      LOADSTAT                              #  -0=V32 OR E, -1=V33 OR PRO, -2=V34
063307,001231: 10,3556           15205                           TCF      ENDOFJOB                              #  +1=ENDMARK
063308,001232: 10,3557           21522        ENDIDRET           CADR     IDLERET1                              #  CANNOT GET HERE
063309,001233: 10,3560           13561                           TCF      +1                                    
063310,001234: 10,3561           30100                           CA       FLAGWRD4                              #  IS IT A VNFLASH
063311,001235: 10,3562           74767                           MASK     VNBIT                                 #     (BIT2)
063312,001236: 10,3563           60157                           AD       COPMPAC                               #    AND A NORMAL DISPLAY
063313,001237: 10,3564           66061                           AD       NEG4                                  
063314,001238: 10,3565           00006                           EXTEND                                         
063315,001239: 10,3566           13607                           BZF      VNRET                                 
063316,001240: 10,3567           31217                           CA       LOADSTAT                              
063317,001241: 10,3570           64767                           AD       TWO                                   
063318,001242: 10,3571           50157        ENDRET1            INDEX    COPMPAC                               
063319,001243: 10,3572           60371                           AD       CADRFLSH                              
063320,001244: 10,3573           54157        ENDRET2            TS       MPAC       +3                         
063321,001245: 
063322,001246: 10,3574           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
063323,001247: 10,3575           73751                           MASK     PINIDMSK                              
063324,001248: 10,3576           03762                           TC       DOWNENT2                              
063325,001249: 10,3577           46214                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
063326,001250: 10,3600           04202                           TC       NVSUB                                 

Page 1474

063328,001252: 10,3601           13602                           TCF      +1                                    
063329,001253: 
063330,001254: 10,3602           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
063331,001255: 10,3603           77660                           MASK     PRIO37                                
063332,001256: 10,3604           05176                           TC       PRIOCHNG                              
063333,001257: 10,3605           30157                           CA       MPAC       +3                         
063334,001258: 10,3606           14660                           TCF      BANKJUMP                              
063335,001259: 
063336,001260: 10,3607           05561        VNRET              TC       DOWNFLAG                              
063337,001261: 10,3610           00111                           ADRES    VNFLAG                                
063338,001262: 10,3611           31217                           CA       LOADSTAT                              
063339,001263: 10,3612           64770                           AD       ONE                                   
063340,001264: 10,3613           10000                           CCS      A                                     
063341,001265: 10,3614           37700                           CAF      NEG3                                  #  LOADOSTAT.-0
063342,001266: 10,3615           13571                           TCF      ENDRET1                               #  CANNOT GET HERE VIA CCS
063343,001267: 10,3616           13621                           TCF      TERMFLSH                              #  LOADSTAT=-2
063344,001268: 10,3617           44770                           CS       ONE                                   #  COMPENSATE FOR INCREMENTED Q IN LEAD-IN
063345,001269: 10,3620           13571                           TCF      ENDRET1                               #  LOADSTAT=-1
063346,001270: 10,3621           33753        TERMFLSH           CAF      GOPOOCAD                              
063347,001271: 10,3622           13573                           TCF      ENDRET2                               
063348,001272: 
063349,001273: 
063350,001274: 10,3623           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
063351,001275: 10,3624           74753                           MASK     REFLSH                                
063352,001276: 10,3625           10000                           CCS      A                                     
063353,001277: 10,3626           16706                           TCF      Q+1                                   #  NO
063354,001278: 10,3627           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE
063355,001279: 10,3630           50164                           INDEX    COPINDEX                              
063356,001280: 10,3631           60371                           AD       CADRFLSH                              
063357,001281: 10,3632           00006                           EXTEND                                         
063358,001282: 10,3633           13635                           BZF      +2                                    #  YES
063359,001283: 
063360,001284: 10,3634           00002                           TC       Q                                     #  NO
063361,001285: 10,3635           11215                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
063362,001286: 10,3636           05205                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
063363,001287: 10,3637           00002                           TC       Q                                     
063364,001288: 
063365,001289:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
063366,001290: 
063367,001291:                                                                                                  #  LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
063368,001292:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
063369,001293:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
063370,001294: 
063371,001295:                                                                                                  #  IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS, THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
063372,001296:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
063373,001297:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE (DURING A
063374,001298:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
063375,001299: 
063376,001300: 10,3640           34766        MARKRET            CAF      MKOVBIT                               
063377,001301: 10,3641           03762                           TC       DOWNENT2                              

Page 1475

063379,001303: 10,3642           13555                           TCF      ENDRET                                
063380,001304: 
063381,001305: 10,3643           34770        MARKOVER           CAF      ONE                                   
063382,001306: 10,3644           55217                           TS       LOADSTAT                              
063383,001307: 10,3645           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
063384,001308: 10,3646           74346                           MASK     BIT13-14                              #  IS NORMAL OR PRIO IN ENDIDLE
063385,001309: 10,3647           10000                           CCS      A                                     
063386,001310: 10,3650           13306                           TCF      NORMBNCH                              
063387,001311: 
063388,001312: 10,3651           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
063389,001313: 10,3652           73736                           MASK     BITS5+11                              #  OR WAITING
063390,001314: 10,3653           10000                           CCS      A                                     
063391,001315: 10,3654           13252                           TCF      MARKWAKE                              
063392,001316: 
063393,001317: 10,3655           30100                           CA       FLAGWRD4                              #  NO
063394,001318: 10,3656           73737                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
063395,001319: 10,3657           10000                           CCS      A                                     
063396,001320: 10,3660           13553                           TCF      NORMWAKE                              #  YES
063397,001321: 
063398,001322: 10,3661           34765                           CAF      FLSHRQST                              #  NO, WAS IT A FLASH REQUEST
063399,001323: 10,3662           64763                           AD       RETDSPY                               #  OR GODSPRET
063400,001324: 10,3663           71275                           MASK     EBANKTEM                              
063401,001325: 10,3664           10000                           CCS      A                                     
063402,001326: 10,3665           13555                           TCF      ENDRET                                #  YES
063403,001327: 10,3666           30370                           CA       NVSAVE                                
063404,001328: 10,3667           00006                           EXTEND                                         
063405,001329: 10,3670           13555                           BZF      ENDRET                                
063406,001330: 
063407,001331: 10,3671           35054                           CAF      PRIO15                                
063408,001332: 10,3672           05121                           TC       NOVAC                                 
063409,001333: 10,3673     0366                                  EBANK=   NVWORD                                
063410,001334: 10,3673           03061 20060                     2CADR    PLAYJUM1                              
063411,001335: 
063412,001336: 
063413,001337: 10,3675           13555                           TCF      ENDRET                                
063414,001338: 
063415,001339: 10,3676           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
063416,001340: 10,3677           73736                           MASK     BITS5+11                              
063417,001341: 10,3700           10000                           CCS      A                                     
063418,001342: 10,3701           15205                           TCF      ENDOFJOB                              #  YES
063419,001343: 10,3702           13210                           TCF      GOSLEEPS                              
063420,001344: 
063421,001345: 10,3703           50157        LOADITIS           INDEX    COPMPAC                               
063422,001346: 10,3704           30366                           CA       NVWORD                                
063423,001347: 10,3705           76043                           MASK     LOW7                                  
063424,001348: 10,3706           40000                           COM                                            
063425,001349: 10,3707           60155                           AD       MPAC       +1                         #  NOUNREG
063426,001350: 10,3710           00006                           EXTEND                                         
063427,001351: 10,3711           13530                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
063428,001352: 10,3712           13275                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
063429,001353: 

Page 1476

063431,001355: 10,3713           46214        ERASER             CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
063432,001356: 10,3714           04202                           TC       NVSUB                                 
063433,001357: 10,3715           15205                           TCF      ENDOFJOB                              
063434,001358: 10,3716           15205                           TCF      ENDOFJOB                              
063435,001359: 
063436,001360: 10,3717           00036        PERFMASK           OCT      0036                                  #  FLASH,PERFORM,BLANK R2 AND R3
063437,001361: 10,3720           00231        V01N25             VN       00125                                 
063438,001362: 10,3721           14400        V50N00             VN       5000                                  
063439,001363: 10,3722     5001               PERF2MSK           EQUALS   BITS4&5                               #  (OCTAL 30)   FLASH, PERFORM
063440,001364: 10,3722     5775               PERF4MSK           EQUALS   OCT14                                 #  FLASH, BLANK R3
063441,001365: 10,3722           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
063442,001366: 10,3723           40036        MARK4MSK           OCT      40036                                 #  MARK,PERFORM,FLASH,BLANK 2 AND 3
063443,001367: 10,3724           21006        NVCADR             CADR     REDOPRIO                              
063444,001368: 10,3725           20630        WAKECADR           CADR     MARKPLAY                              
063445,001369: 10,3726           21061                           CADR     PLAYJUM1                              
063446,001370: 
063447,001371: 10,3727           11210        NBUSMASK           OCT      11210                                 
063448,001372: 10,3730           66521        PMMASK             OCT      66521                                 
063449,001373: 10,3731     4171               VERBMASK           =        MID7                                  #  (OCT 37600)
063450,001374: 10,3731           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
063451,001375: 10,3732  10,2576               GOXDSPF            EQUALS   GOMARKF                               
063452,001376: 10,3732     5524               ENDEXT             EQUALS   ENDMARK                               
063453,001377: 10,3732     0165               MPAC2SAV           EQUALS   BANKSET                               
063454,001378: 10,3732           00700        NVBUSMSK           OCT      700                                   
063455,001379: 10,3733           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
063456,001380: 10,3734           34300        OCT34300           OCT      34300                                 
063457,001381: 10,3735           40100        BITS15+7           OCT      40100                                 
063458,001382: 10,3736           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
063459,001383: 10,3737           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
063460,001384: 10,3740     4354               LOWLOAD            EQUALS   VBSP2LD                               
063461,001385: 10,3740     5004               CADRMASK           EQUALS   OCT50                                 
063462,001386: 10,3740     7673               PINMASK            EQUALS   13,14,15                              
063463,001387: 10,3740  10,3315               GOPLAY             EQUALS   NVDSP                                 
063464,001388:                                                                                                  # PRIOSAVE       EQUALS  R1SAVE
063465,001389: 10,3740     0157               COPMPAC            EQUALS   MPAC       +3                         
063466,001390: 10,3740     0160               TEMPOR2            EQUALS   MPAC       +4                         
063467,001391: 10,3740     0164               COPINDEX           EQUALS   LOC                                   
063468,001392: 10,3740     0163               USERPRIO           EQUALS   MODE                                  
063469,001393: 10,3740     0162               GENMASK            EQUALS   MPAC       +6                         
063470,001394: 10,3740           20144        PRIOOCT            OCT      20144                                 #  PRIO
063471,001395: 10,3741           42424        MARKOCT            OCT      42424                                 #  MARK
063472,001396: 10,3742           11254                           OCT      11254                                 #  NORM
063473,001397: 
063474,001398: 10,3743           74700        IDLESLEP           OCT      74700                                 
063475,001399: 10,3744     5516               LINUS              EQUALS   BLANKET                               
063476,001400: 10,3744     0154               FACEREG            EQUALS   MPAC                                  
063477,001401: 10,3744     0155               PLAYTEM1           EQUALS   MPAC       +1                         
063478,001402: 10,3744     0157               PLAYTEM3           EQUALS   MPAC       +3                         
063479,001403: 10,3744     0160               PLAYTEM4           EQUALS   MPAC       +4                         
063480,001404: 10,3744           03012        MAKEGEN            GENADR   MAKEPLAY                              

Page 1477

063482,001406: 10,3745           10200        BIT13+8            OCT      10200                                 
063483,001407: 10,3746           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
063484,001408: 10,3747           20100        BIT14+7            OCT      20100                                 
063485,001409: 10,3750           24030        CLOCKCON           OCT      24030                                 #  FLASH, PERFORM, V99 OR V97 PASTE,REFLASH
063486,001410: 10,3751           74040        PINIDMSK           OCT      74040                                 
063487,001411: 10,3752     7675               IDLEMASK           EQUALS   HIGH4                                 
063488,001412: 10,3752     7667               ITISMASK           EQUALS   BIT15+6                               #  *** ENDIDLE ALLOW ***
063489,001413: 10,3752     7664               MARKFMSK           EQUALS   OT40010                               
063490,001414: 10,3752           03217        XCHQADD            GENADR   XCHSLEEP                              
063491,001415: 10,3753     5045               WAITMASK           EQUALS   PRIO3                                 #  (OCTAL 3000)
063492,001416: 10,3753  10,3732               OCT700             EQUALS   NVBUSMSK                              
063493,001417: 10,3753           55772        GOPOOCAD           CADR     TCGOPOOH                              
063494,001418: 10,3754           40210        MARK3MSK           OCT      40210                                 
063495,001419: 10,3755     4752               MKRQST             =        BIT15                                 
063496,001420: 10,3755     4753               REFLSH             =        BIT14                                 
063497,001421: 10,3755     4754               2NDPERF            =        BIT13                                 
063498,001422: 10,3755     4755               V99PSTE            =        BIT12                                 
063499,001423: 10,3755     4761               DCMKPERF           =        BIT8                                  
063500,001424: 10,3755     4762               PRIODSPY           =        BIT7                                  
063501,001425: 10,3755     4763               RETDSPY            =        BIT6                                  
063502,001426: 10,3755     4764               PERFRQST           =        BIT5                                  
063503,001427: 10,3755     4765               FLSHRQST           =        BIT4                                  
063504,001428: 10,3755     4766               BLNKR3             =        BIT3                                  
063505,001429: 10,3755     4767               BLNKR2             =        BIT2                                  
063506,001430: 10,3755     4770               BLKNR1             =        BIT1                                  
063507,001431: 10,3755     4772               DSPONLY            =        ZERO                                  

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