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.

062091,000002:                                                                                                  ## Copyright:   Public domain.
062092,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
062093,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
062094,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
062095,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
062096,000007:                                                                                                  ##              Apollo 15-17.
062097,000008:                                                                                                  ## Assembler:   yaYUL
062098,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
062099,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
062100,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
062101,000012:                                                                                                  ## Mod history: 2009-08-18 JL   Adapted from corresponding Comanche 055 file.
062102,000013:                                                                                                  ##              2010-01-31 JL   Removed obsolete meta-comment.
062103,000014:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
062104,000015:                                                                                                  ##              2010-02-11 JL   Fixed error on p1465.
062105,000016:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
062106,000017:                                                                                                  ##              2017-01-21 RSB  Proofed comment text by diff'ing vs Comanche 55
062107,000018:                                                                                                  ##                              and corrected errors found.
062108,000019:                                                                                                  ##              2021-05-30 ABS  BLKNR1 -> BLNKR1
062109,000020: 

Page 1448

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

Page 1449

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

Page 1450

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

Page 1451

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

Page 1452

062303,000214:                                                                                                  #  GOPERF4R BLANKS REGISTER R3
062304,000215: 
062305,000216:                                                                                                  #  REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062306,000217: 
062307,000218:                                                                                                  #                        CAF     VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
062308,000219:                                                                                                  #                        TC      BANKCALL
062309,000220:                                                                                                  #                        CADR    REFLASHR
062310,000221:                                                                                                  #                        ...     ...             TERMINATE RETURN
062311,000222:                                                                                                  #                        ...     ...             PROCEED RETURN
062312,000223:                                                                                                  #                        ...     ...             ENTER RETURN
062313,000224: 
062314,000225:                                                                                                  #                        ...     ...             IMMEDIATE RETURN TO USER
062315,000226: 
062316,000227:                                                                                                  #  REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
062317,000228: 
062318,000229:                                                                                                  #                        CAF     VXXNYY
062319,000230:                                                                                                  #                        TC      BANKCALL
062320,000231:                                                                                                  #                        CADR    REGODSPR
062321,000232: 
062322,000233:                                                                                                  #                        ...     ...             IMMEDIATE RETURN TO USER
062323,000234: 

Page 1453

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

Page 1454

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

Page 1455

062429,000340:                                                                                                  #                        CADR    PRIODSP
062430,000341:                                                                                                  #                        ...     ...             TERMINATE RETURN
062431,000342:                                                                                                  #                        ...     ...             PROCEED RETURN
062432,000343:                                                                                                  #                        ...     ...             ENTER OR RECYCLE RETURN
062433,000344: 
062434,000345:                                                                                                  #  PRIODSPR IS THE SAME AS PRIODSP ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
062435,000346: 
062436,000347:                                                                                                  #                        CAF     VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
062437,000348:                                                                                                  #                        TC      BANKCALL
062438,000349:                                                                                                  #                        CADR    PRIODSPR
062439,000350:                                                                                                  #                        ...     ...             TERMINATE RETURN
062440,000351:                                                                                                  #                        ...     ...             PROCEED RETURN
062441,000352:                                                                                                  #                        ...     ...             ENTER OR RECYCLE RETURN
062442,000353: 
062443,000354:                                                                                                  #                        ...     ...             IMMEDIATE RETURN
062444,000355: 
062445,000356:                                                                                                  #  PRIOLARM DOES A V05N09 PRIODSPR.
062446,000357: 
062447,000358:                                                                                                  #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
062448,000359:                                                                                                  #  DISPLAYS ARE CLEANED OUT.
062449,000360: 
062450,000361:                                                                                                  #                        TC      BANKCALL
062451,000362:                                                                                                  #                        CADR    CLEANDSP
062452,000363: 
062453,000364:                                                                                                  #                        ...     ...             RETURN TO USER
062454,000365: 

Page 1456

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

Page 1457

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

Page 1458

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

Page 1459

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

Page 1460

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

Page 1461

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

Page 1462

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

Page 1463

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

Page 1464

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

Page 1465

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

Page 1466

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

Page 1467

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

Page 1468

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

Page 1469

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

Page 1470

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

Page 1471

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

Page 1472

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

Page 1473

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

Page 1474

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

Page 1475

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

Page 1476

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

Page 1477

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

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