Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

058119,000002:                                                                                                  ## Copyright:   Public domain.
058120,000003:                                                                                                  ## Filename:    DISPLAY_INTERFACE_ROUTINES.agc
058121,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
058122,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
058123,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
058124,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
058125,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
058126,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
058127,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
058128,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
058129,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
058130,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
058131,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
058132,000015:                                                                                                  ## Reference:   pp. 1330-1361
058133,000016:                                                                                                  ## Assembler:   yaYUL
058134,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
058135,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
058136,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
058137,000020:                                                                                                  ##              2017-08-23 MAS  Updated for Zerlina 56.
058138,000021:                                                                                                  ##              2017-08-24 MAS  Replaced an incorrect ADS with a TS.
058139,000022: 

Page 1330

058141,000024:                                                                                                  #  DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES-
058142,000025: 
058143,000026:                                                                                                  #      1. PRIORITY DISPLAYS- DISPLAYS WHICH TAKE PRIORITY OVER ALL OTHER DISPLAYS. USUALLY THESE DISPLAYS ARE SENT
058144,000027:                                                                                                  #         OUT UNDER CRITICAL ALARM CONDITIONS.
058145,000028:                                                                                                  #      2. EXTENDED VERB DISPLAYS- ALL EXTENDED VERBS AND MARK ROUTINES SHOULD USE EXTENDED VERB (MARK) DISPLAYS.
058146,000029:                                                                                                  #      3. NORMAL DISPLAYS- ALL MISSION PROGRAM DISPLAYS WHICH INTERFACE WITH THE ASTRONAUT DURING THE NORMAL
058147,000030:                                                                                                  #         SEQUENCE OF EVENTS.
058148,000031:                                                                                                  #      4. MISC. DISPLAYS- ALL DISPLAYS NOT HANDLED BY THE DISPLAY INTERFACEROUTINES. THESE INCLUDE SUCH DISPLAYS AS
058149,000032:                                                                                                  #         MM DISPLAYS AND SPECIAL PURPOSE DISPLAYS HANDLED BY PINBALL.
058150,000033: 
058151,000034: 
058152,000035:                                                                                                  #      5. ASTRONAUT INITIATED DISPLAYS- ALL DISPLAYS INITIATED EXTERNALLY.
058153,000036:                                                                                                  #  THE FOLLOWING TERMS ARE USED TO DESCRIBE THE STATUS OF DISPLAYS-
058154,000037: 
058155,000038:                                                                                                  #      1. ACTIVE-THE DISPLAY WHICH IS (1) BEING DISPLAYED TO THE ASTRONAUT AND WAITING FOR A RESPONSE OR
058156,000039:                                                                                                  #         (2) WAITING FIRST IN LINE FOR THE ASTRONAUT TO FINISH USING THE DSKY OR (3) BEING DISPLAYED ON THE DSKY
058157,000040:                                                                                                  #         BUT NOT WAITING FOR A RESPONSE.
058158,000041:                                                                                                  #      2. INACTIVE -A DISPLAY WHICH HAS (1) BEEN ACTIVE BUT WAS INTERRUPTEDBY A DISPLAY OF HIGHER PRIORITY,
058159,000042:                                                                                                  #         (2) BEEN PUT INTO THE WAITING LIST AT TIME IT WAS REQUESTED DUE TO THE FACT A HIGHER PRIORITY DISPLAY
058160,000043:                                                                                                  #         WAS ALREADY GOING, (3) BEEN INTERRUPTED BY THE ASTRONAUT (CALLED A PINBRANCH CONDITION, SINCE THIS TYPE
058161,000044:                                                                                                  #         OF INACTIVE DISPLAY IS USUALLY REACTIVATED ONLY BY PINBALL) OR (4) A DISPLAY WHICH HAS FINISHED BUT STILL
058162,000045:                                                                                                  #         HAS INFO SAVED FOR RESTART PURPOSES.
058163,000046: 
058164,000047: 
058165,000048:                                                                                                  #  DISPLAY PRIORITIES WORK AS FOLLOWS-
058166,000049: 
058167,000050:                                                                                                  #    INTERRUPTS-
058168,000051:                                                                                                  #      1. THE ASTRONAUT CAN INTERRUPT ANY DISPLAY WITH AN EXTERNAL DISPLAY REQUEST.
058169,000052:                                                                                                  #      2. INTERNAL DISPLAYS CAN NOT BE SENT OUT WHEN THE ASTRONAUT IS USING THE DSKY.
058170,000053:                                                                                                  #      3. PRIORITY DISPLAYS INTERRUPT ALL OTHER TYPES OF INTERNAL DISPLAYS. A PRIORITY DISPLAY INTERRUPTING ANOTHER
058171,000054:                                                                                                  #         PRIORITY DISPLAY WILL CAUSE AN ABORT UNLESS BIT14 IS SET FOR THE LINUS ROUTINE.
058172,000055:                                                                                                  #      4. A MARK DISPLAY INTERRUPTS ANY NORMAL DISPLAY.
058173,000056:                                                                                                  #      5. A MARK THAT INTERRUPTS A MARK COMPLETELY REPLACES IT.
058174,000057: 
058175,000058:                                                                                                  #    ORDER OF WAITING DISPLAYS-
058176,000059:                                                                                                  #      1. ASTRONAUT EXTERNAL USE
058177,000060:                                                                                                  #      2. PRIORITY
058178,000061:                                                                                                  #      3. INTERRUPTED MARK
058179,000062:                                                                                                  #      4. INTERRUPTED NORMAL
058180,000063: 
058181,000064:                                                                                                  #      5. MARK TO BE REQUESTED (SEE DESCRIPTION OF ENDMARK)
058182,000065:                                                                                                  #      6. MARK WAITING
058183,000066:                                                                                                  #      7. NORMAL WAITING
058184,000067: 

Page 1331

058186,000069:                                                                                                  #  THE DISPLAY ROUTINES ARE INTENDED TO SERVE AS AN INTERFACE BETWEEN THE USER AND PINBALL.  THE
058187,000070:                                                                                                  #  FOLLOWING STATEMENTS CAN BE MADE ABOUT NORMAL DISPLAYS AND PRIORITY DISPLAYS (A DESCRIPTION OF MARK ROUTINES
058188,000071:                                                                                                  #  WILL FOLLOW LATER):
058189,000072: 
058190,000073:                                                                                                  #       1.  ALL ROUTINES THAT END IN R HAVE AN IMMEDIATE RETURN TO THE USER.  FOR ALL FLASHING DISPLAYS THIS RETURN
058191,000074:                                                                                                  #           IS TO THE USERS CALL CADR +4.  FOR THE ONLY NON FLASHING IMMEDIATE RETURN DISPLAY (GODSPR) THIS RETURN
058192,000075:                                                                                                  #           IS TO THE USERS CALLING LOC +1.
058193,000076:                                                                                                  #       2.  ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER.
058194,000077:                                                                                                  #       3.  ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USERS JOB PRIORITY.
058195,000078:                                                                                                  #       4.  ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE
058196,000079:                                                                                                  #           USERS JOB.
058197,000080:                                                                                                  #       5.  ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL.
058198,000081:                                                                                                  #       6.  TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
058199,000082:                                                                                                  #           DESCRIPTION OF RESTARTS).
058200,000083:                                                                                                  #       7.  ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES.  A TERMINATE (V34) BRANCHES
058201,000084:                                                                                                  #           TO THE USERS CALL CADR +1.  A PROCEED (V33) BRANCHES TO THE USERS CALL CADR +2.  AN ENTER OR RECYCLE
058202,000085:                                                                                                  #           (V32) BRANCHES TO THE USERS CALL CADR +3.
058203,000086:                                                                                                  #       8.  ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL.
058204,000087: 
058205,000088:                                                                                                  #  A DESCRIPTION OF EACH ROUTINE WITH AN EXAMPLE FOLLOWS:
058206,000089: 
058207,000090:                                                                                                  #  GODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  NO RETURN IS MADE TO THE USER.
058208,000091: 
058209,000092:                                                                                                  #       1. GODSP IS NOT RESTARTABLE
058210,000093:                                                                                                  #       2. A VERB PASTE WITH GODSP ALWAYS TURNS ON THE FLASH.
058211,000094:                                                                                                  #                                                   CAF    VXXNYY
058212,000095:                                                                                                  #                                                   TC     BANKCALL
058213,000096:                                                                                                  #                                                   CADR   GODSP
058214,000097: 
058215,000098:                                                                                                  #                                          VXXNYY   OCT    0XXYY
058216,000099:                                                                                                  #  GODSPR IS THE SAME AS GODSP ONLY RETURN IS TO THE USER.
058217,000100: 
058218,000101:                                                                                                  #                                                   CAF    VXXNYY
058219,000102:                                                                                                  #                                                   TC     BANKCALL
058220,000103:                                                                                                  #                                                   CADR   GODSPR
058221,000104: 
058222,000105:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN OF GODSPR
058223,000106: 
058224,000107:                                                                                                  #  GOFLASH DISPLAYS A FLASHING VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058225,000108:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE).
058226,000109: 
058227,000110:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN.
058228,000111:                                                                                                  #                                                   TC     BANKCALL
058229,000112:                                                                                                  #                                                   CADR   GOFLASH
058230,000113:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058231,000114:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058232,000115:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058233,000116:                                                                                                  #  GOPERF1 IS ENTERED WITH DESIRED CHECKLIST VALUE IN A.  GOPERF1 WILL DISPLAY THIS VALUE IN R1 BY MEANS OF A

Page 1332

058235,000118:                                                                                                  #  V01 N25.A FLASHING PLEASE PERFORM ON CHECKLIST ( V50 N25) IS THEN DISPLAYED.  NO IMMEDIATE RETURN IS MADE TO
058236,000119:                                                                                                  #  USER (SEE NO. 7 ABOVE).
058237,000120: 
058238,000121:                                                                                                  #  GOPERF1 BLANKS REGISTERS R2 AND R3
058239,000122: 
058240,000123:                                                                                                  #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX
058241,000124:                                                                                                  #                                                   TC     BANKCALL
058242,000125:                                                                                                  #                                                   CADR   GOPERF1
058243,000126:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058244,000127:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058245,000128:                                                                                                  #                                                   ...    ...             ENTER RETURN
058246,000129: 
058247,000130:                                                                                                  #  GOPERF2 IS ENTERED WITH A VARIABLE NOUN AND V01 ( V00 FOR N10 OR N11) IN A.  GOPERF2 WILL FIRST DISPLAY THE
058248,000131:                                                                                                  #  REQUESTED NOUN BY MEANS OF A V01NYY OR A V00NYY. PLEASE PERFORM ON NOUN (V50 NYY) THEN BECOMES A FLASHING
058249,000132:                                                                                                  #  DISPLAY.  NO IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
058250,000133: 
058251,000134:                                                                                                  #  GOPERF2 DOES NOT BLANK ANY REGISTERS
058252,000135: 
058253,000136:                                                                                                  #                                                   CAF    VXXNYY          VARIABLE NOUN YY. XX=00 OR 01.
058254,000137:                                                                                                  #                                                   TC     BANKCALL
058255,000138:                                                                                                  #                                                   CADR   GOPERF2
058256,000139:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058257,000140:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058258,000141:                                                                                                  #                                                   ...    ...             ENTER RETURN
058259,000142: 
058260,000143:                                                                                                  #  GOPERF3 IS USED FOR A PLEASE PERFORM ON A PROGRAM NUMBER.  THE DESIRED PROGRAM NO. IS ENTERED IN A.  GOPERF3
058261,000144:                                                                                                  #  DISPLAYS THE NO. BY MEANS OF A V06 N07 FOLLOWED BY A FLASHING V50 N07 FOR A PLEASE PERFORM. NO IMMEDIATE RETURN
058262,000145:                                                                                                  #  IS MADE TO THE USER (SEE NO. 7 ABOVE).
058263,000146: 
058264,000147:                                                                                                  #  GOPERF3 BLANKS REGISTERS R2 AND R3
058265,000148: 
058266,000149:                                                                                                  #                                                   CAF    DECXX           REQUEST PERFORM ON PXX
058267,000150:                                                                                                  #                                                   TC     BANKCALL
058268,000151:                                                                                                  #                                                   CADR   GOPERF3
058269,000152:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058270,000153:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058271,000154:                                                                                                  #                                                   ...    ...             ENTER RETURN
058272,000155: 
058273,000156:                                                                                                  #  GOPERF4 IS USED FOR A PLEASE PERFORM ON AN OPTION. THE DESIRED OPTION ISENTERED IN A AND STORED IN OPTION1.
058274,000157:                                                                                                  #  GOPERF4 DISPLAYS R1 AND R2 BY MEANS OF A V04N06 FOLLOWED BY A FLASHING  V50N06 FOR A PLEASE PERFORM. NO
058275,000158:                                                                                                  #  IMMEDIATE RETURN IS MADE TO THE USER (SEE NO. 7 ABOVE).
058276,000159: 
058277,000160:                                                                                                  #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTION XX
058278,000161:                                                                                                  #                                                   TC     BANKCALL
058279,000162:                                                                                                  #                                                   CADR   GOPERF4
058280,000163:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058281,000164:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058282,000165:                                                                                                  #                                                   ...    ...             ENTER RETURN
058283,000166:                                                                                                  #  GOPERF4 BLANKS REGISTER R3
058284,000167: 

Page 1333

058286,000169:                                                                                                  #  GODSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN TO THE USER AFTER THE DISPLAY HAS BEEN SENT
058287,000170:                                                                                                  #  OUT.
058288,000171: 
058289,000172:                                                                                                  #                                                   CAF    VXXNYY
058290,000173:                                                                                                  #                                                   TC     BANKCALL
058291,000174:                                                                                                  #                                                   CADR   GODSPRET
058292,000175:                                                                                                  #                                                   ...    ...             RETURN TO USER
058293,000176: 
058294,000177:                                                                                                  #  REGODSP IS USED TO DISPLAY A VERB NOUN ARRIVING IN A.  REGODSP IS THE SAME AS GODSP ONLY REGODSP REPLACES ANY
058295,000178:                                                                                                  #  ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058296,000179: 
058297,000180:                                                                                                  #                                                   CAF    VXXNYY
058298,000181:                                                                                                  #                                                   TC     BANKCALL
058299,000182:                                                                                                  #                                                   CADR   REGODSP
058300,000183: 
058301,000184:                                                                                                  #  REFLASH IS THE SAME AS GOFLASH ONLY REFLASH REPLACES ANY ACTIVE NORMAL DISPLAY IF ONE WAS ACTIVE.
058302,000185: 
058303,000186:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
058304,000187:                                                                                                  #                                                   TC     BANKCALL
058305,000188:                                                                                                  #                                                   CADR   REFLASH
058306,000189:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058307,000190:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058308,000191:                                                                                                  #                                                   ...    ...             ENTER RETURN
058309,000192: 
058310,000193:                                                                                                  #  GOFLASHR IS SAME AS GOFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058311,000194: 
058312,000195:                                                                                                  #                                                   CAF    VXXNYY
058313,000196:                                                                                                  #                                                   TC     BANKCALL
058314,000197:                                                                                                  #                                                   CADR   GOFLASHR
058315,000198:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058316,000199:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058317,000200:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058318,000201: 
058319,000202:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN FROM GOFLASHR
058320,000203: 
058321,000204:                                                                                                  #  GOPERF1R IS THE SAME AS GOPERF1 ONLY GOPERF1R HAS AN IMMEDIATE RETURN TOUSERS CALL CADR +4.
058322,000205: 
058323,000206:                                                                                                  #  GOPERF1R BLANKS REGISTERS R2 AND R3
058324,000207: 
058325,000208:                                                                                                  #                                                   CAF    OCTXX           CODE FOR CHECKLIST VALUE XX.
058326,000209:                                                                                                  #                                                   TC     BANKCALL
058327,000210:                                                                                                  #                                                   CADR   GOPERF1R
058328,000211:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058329,000212:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058330,000213:                                                                                                  #                                                   ...    ...             ENTER RETURN
058331,000214: 
058332,000215:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN FROM GOPERF1R
058333,000216: 
058334,000217:                                                                                                  #  GOPERF2R IS THE SAME AS GOPERF2 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058335,000218: 

Page 1334

058337,000220:                                                                                                  #  GOPERF2R DOES NOT BLANK ANY REGISTERS
058338,000221: 
058339,000222:                                                                                                  #                                                   CAF    VXXNYY          VARIABLE NOUN YY REQUESTED.  XX=00 OR 01
058340,000223:                                                                                                  #                                                   TC     BANKCALL
058341,000224:                                                                                                  #                                                   CADR   GOPERF2R
058342,000225:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058343,000226:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058344,000227:                                                                                                  #                                                   ...    ...             ENTER RETURN
058345,000228: 
058346,000229:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN HERE FROM GOPERF2R
058347,000230: 
058348,000231:                                                                                                  #  GOPERF3R IS THE SAME AS GOPERF3 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058349,000232: 
058350,000233:                                                                                                  #  GOPERF3R BLANKS REGISTERS R2 AND R3
058351,000234: 
058352,000235:                                                                                                  #                                                   CAF    PROGXX          PERFORM PROGRAM XX
058353,000236:                                                                                                  #                                                   TC     BANKCALL
058354,000237:                                                                                                  #                                                   CADR   GOPERF3R
058355,000238:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058356,000239:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058357,000240:                                                                                                  #                                                   ...    ...             ENTER RETURN
058358,000241: 
058359,000242:                                                                                                  #                                                   ...    ...             GOPERF3R IMMEDIATELY RETURNS HERE
058360,000243: 
058361,000244:                                                                                                  #  GOPERF4R IS THE SAME AS GOPERF4 ONLY AN IMMEDIATE RETURN IS MADE TO USERS CALL CADR +4.
058362,000245: 
058363,000246:                                                                                                  #                                                   CAF    OCTXX           REQUEST PERFORM ON OPTIONXX
058364,000247:                                                                                                  #                                                   TC     BANKCALL
058365,000248:                                                                                                  #                                                   CADR   GOPERF4R
058366,000249:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058367,000250:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058368,000251:                                                                                                  #                                                   ...    ...             ENTER RETURN
058369,000252: 
058370,000253:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
058371,000254: 
058372,000255:                                                                                                  #  GOPERF4R BLANKS REGISTER R3
058373,000256: 
058374,000257:                                                                                                  #  REFLASHR IS THE SAME AS REFLASH ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +4.
058375,000258: 
058376,000259:                                                                                                  #                                                   CAF    VXXNYY          VXX NYY WILL BE A FLASHING VERB NOUN
058377,000260:                                                                                                  #                                                   TC     BANKCALL
058378,000261:                                                                                                  #                                                   CADR   REFLASHR
058379,000262:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058380,000263:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058381,000264:                                                                                                  #                                                   ...    ...             ENTER RETURN
058382,000265: 
058383,000266:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
058384,000267: 
058385,000268:                                                                                                  #  REGODSPR IS THE SAME AS REGODSP ONLY A RETURN (IMMEDIATE) IS MADE TO THE USER.
058386,000269: 

Page 1335

058388,000271:                                                                                                  #                                                   CAF    VXXNYY
058389,000272:                                                                                                  #                                                   TC     BANKCALL
058390,000273:                                                                                                  #                                                   CADR   REGODSPR
058391,000274: 
058392,000275:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
058393,000276: 

Page 1336

058395,000278:                                                                                                  #  GOMARK IS USED TO DISPLAY A MARK VERB NOUN ARRIVING IN A. NO RETURN IS MADE TO THE USER.
058396,000279: 
058397,000280:                                                                                                  #  GOXDSP = GOMARK
058398,000281: 
058399,000282:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY CONTAINS VERB AND NOUN
058400,000283:                                                                                                  #                                                   TC     BANKCALL
058401,000284:                                                                                                  #                                                   CADR   GOMARK          OTHER EXTENDED VERBS USE CADR GOXDSP
058402,000285: 
058403,000286:                                                                                                  #  GOMARKR IS THE SAME AS GOMARK ONLY RETURN IS TO THE USER.
058404,000287: 
058405,000288:                                                                                                  #  GOXDSPR = GOMARKR
058406,000289: 
058407,000290:                                                                                                  #                                                   CAF    VXXNYY
058408,000291:                                                                                                  #                                                   TC     BANKCALL
058409,000292:                                                                                                  #                                                   CADR   GOMARKR         OTHER EXTENDED VERBS USE CADR GOXDSPR
058410,000293: 
058411,000294:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN OF GOMARKR
058412,000295: 
058413,000296:                                                                                                  #  GOMARKF DISPLAYS A FLASHING MARK VERB NOUN WITH NO IMMEDIATE RETURN TO THE USER. 3 RETURNS ARE POSSIBLE FROM
058414,000297:                                                                                                  #  THE ASTRONAUT (SEE NO. 7 ABOVE ).
058415,000298: 
058416,000299:                                                                                                  #  GOXDSPF = GOMARKF
058417,000300: 
058418,000301:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING MARK VERB NOUN
058419,000302:                                                                                                  #                                                   TC     BANKCALL
058420,000303:                                                                                                  #                                                   CADR   GOMARKF         OTHER EXTENDED VERBS USE CADR GOXDSPF
058421,000304:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058422,000305:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058423,000306:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058424,000307: 
058425,000308:                                                                                                  #  GOMARKFR IS THE SAME AS GOMARKF ONLY AN IMMEDIATE RETURN IS MADE TO THE USER CALL CADR +4.
058426,000309: 
058427,000310:                                                                                                  #  GOXDSPFR = GOMARKFR
058428,000311: 
058429,000312:                                                                                                  #                                                   CAF    VXXNYY          FLASHING MARK VERB NOUN
058430,000313:                                                                                                  #                                                   TC     BANKCALL
058431,000314:                                                                                                  #                                                   CADR   GOMARKFR        OTHER EXTENDED VERBS USE CADR GOXDSPFR
058432,000315:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058433,000316:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058434,000317:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058435,000318: 
058436,000319:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
058437,000320: 
058438,000321:                                                                                                  #  GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
058439,000322:                                                                                                  #  RETURN IS MADE. THE DESIRED MARK PLEASE PERFORM VERB AND DESIRED NOUN ISENTERED IN A. GOMARK1 DISPLAYS R1, R2, R
058440,000323:                                                                                                  #  MEANS OF A V05NYY FOLLOWED BY A FLASHING V5XNYY FOR A PLEASE PERFORM. THE ASTRONAUT WILL RESPOND WITH A MARK
058441,000324:                                                                                                  #  OR MARK REJECT OR AN ENTER. THE ENTER IS THE ONLY ASTRONAUT RESPONSE THAT WILL COME BACK TO THE USER.
058442,000325: 
058443,000326:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4   Y= NOUN
058444,000327:                                                                                                  #                                                   TC     BANKCALL

Page 1337

058446,000329:                                                                                                  #                                                   CADR   GOMARK1
058447,000330: 
058448,000331:                                                                                                  #                                                   ...    ...             ENTER RETURN
058449,000332: 
058450,000333:                                                                                                  #  *** IF BLANKING DESIRED ON NON R ROUTINES, NOTIFY DISPLAYER.
058451,000334: 
058452,000335: 
058453,000336:                                                                                                  #  GOMARK1R IS THE SAME AS A GOMARK1 ONLY AN IMMEDIATE RETURN IS MADE TO THE USERS CALL CADR +2.
058454,000337:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4    YY = NOUN
058455,000338:                                                                                                  #                                                   TC     BANKCALL
058456,000339:                                                                                                  #                                                   CADR   GOMARK1R
058457,000340: 
058458,000341:                                                                                                  #                                                   ...    ...             ASTRONAUT ENTER RETURN
058459,000342:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO USER
058460,000343: 
058461,000344:                                                                                                  #  GOMARK2 IS THE SAME AS GOMARK1 ONLY 3 RETURNS ARE MADE TO THE USER FROM THE ASTRONAUT.
058462,000345:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4   YY=NOUN
058463,000346:                                                                                                  #                                                   TC     BANKCALL
058464,000347:                                                                                                  #                                                   CADR   GOMARK2
058465,000348:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058466,000349:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058467,000350:                                                                                                  #                                                   ...    ...             ENTER RETURN
058468,000351:                                                                                                  #  GOMARK2R IS THE SAME AS GOMARK1R ONLY 3 ASTRONAUT RETURNS ARE MADE TO THE USER.
058469,000352: 
058470,000353:                                                                                                  #                                                   CAF    V5XNYY          X=0,1,2,3,4   YY=NOUN
058471,000354:                                                                                                  #                                                   TC     BANKCALL
058472,000355:                                                                                                  #                                                   CADR   GOMARK2R
058473,000356:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058474,000357:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058475,000358:                                                                                                  #                                                   ...    ...             ENTER RETURN
058476,000359: 
058477,000360:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN TO THE USER
058478,000361: 
058479,000362:                                                                                                  #  GOMARK3 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH A 3 COMP. DEC DISPLAY. THE DESIRED MARK PLEASE
058480,000363:                                                                                                  #  PERFORM VERB AND NOUN ARE ENTERED IN A. GOMARK3 DISPLAYS R1, R2, R3 BY MEANS OF A V06NYY FOLLOWED BY A FLASHING
058481,000364:                                                                                                  #  V5XNYY FOR A PLEASE PERFORM. GOMARK3 HAS 3 ASTRONAUT RETURNS TO THE USER WITH NO IMMEDIATE RETURN.
058482,000365: 
058483,000366:                                                                                                  #                                                   CAF    V5XNYY          X=1, 2,3,4 YY=NOUN
058484,000367:                                                                                                  #                                                   TC     BANKCALL
058485,000368:                                                                                                  #                                                   CADR   GOMARK3
058486,000369:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058487,000370:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058488,000371:                                                                                                  #                                                   ...    ...             ENTER RETURN
058489,000372: 
058490,000373:                                                                                                  #  GOMARK4 IS THE SAME AS GOMARK3 ONLY R2 AND R3 ARE BLANKED AND R1 IS DISPLAYED IN OCTAL.
058491,000374: 
058492,000375:                                                                                                  #                                                   CAF    V5XNYY          X=1,2,3,4 YY=NOUN
058493,000376:                                                                                                  #                                                   TC     BANKCALL
058494,000377:                                                                                                  #                                                   CADR   GOMARK4
058495,000378:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058496,000379:                                                                                                  #                                                   ...    ...             PROCEED RETURN

Page 1338

058498,000381:                                                                                                  #                                                   ...    ...             ENTER RETURN
058499,000382: 
058500,000383:                                                                                                  #  EXDSPRET IS USED TO DISPLAY A VERB NOUN ARRIVING IN A WITH A RETURN MADE TO THE USER AFTER THE DISPLAY HAS BEEN
058501,000384:                                                                                                  #  SENT OUT.
058502,000385: 
058503,000386:                                                                                                  #                                                   CAF    VXXNYY
058504,000387:                                                                                                  #                                                   TC     BANKCALL
058505,000388:                                                                                                  #                                                   CADR   EXDSPRET
058506,000389: 
058507,000390:                                                                                                  #                                                   ...    ...             RETURN TO USER
058508,000391: 
058509,000392:                                                                                                  #  KLEENEX CLEANS OUT ALL MARK DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER THE MARK DISPLAYS
058510,000393:                                                                                                  #  HAVE BEEN CLEANED OUT.
058511,000394: 
058512,000395:                                                                                                  #                                                   TC     BANKCALL
058513,000396:                                                                                                  #                                                   CADR   KLEENEX
058514,000397: 
058515,000398:                                                                                                  #                                                   ...    ...             RETURN TO USER
058516,000399: 
058517,000400:                                                                                                  #  MARKBRAN IS A SPECIAL PURPOSE ROUTINE USED FOR SAVING JOB VAC AREAS (SEE DESCRIPTION OF MARKBRAN BELOW).
058518,000401: 
058519,000402:                                                                                                  #                                                   TC     BANKCALL
058520,000403:                                                                                                  #                                                   CADR   MARKBRAN
058521,000404: 
058522,000405:                                                                                                  #                                                   ...    ...             BAD RETURN IF MARK DISPLAY NOT ACTIVE
058523,000406: 
058524,000407:                                                                                                  #                                                                          (GOOD RETURN TO IMMEDIATE RETURN LOC OF
058525,000408:                                                                                                  #                                                                          LAST FLASHING MARK R ROUTINE)
058526,000409: 
058527,000410:                                                                                                  #  PINBRNCH REESTABLISHES THE LAST ACTIVE FLASHING DISPLAY. IF THERE IS NO ACTIVE FLASHING DISPLAY, THE DSKY IS
058528,000411:                                                                                                  #  BLANKED AND CONTROL IS SENT TO ENDOFJOB.
058529,000412: 
058530,000413:                                                                                                  #                                                   TC     POSTJUMP
058531,000414:                                                                                                  #                                                   CADR   PINBRNCH
058532,000415: 
058533,000416:                                                                                                  #  PRIODSP IS USED AS A PRIORITY DISPLAY.  IT WILL DISPLAY A GOFLASH TYPE DISPLAY WITH THREE POSSIBLE RETURNS FROM
058534,000417:                                                                                                  #  THE ASTRONAUT(SEE NO.7 ABOVE).
058535,000418: 
058536,000419:                                                                                                  #       THE MAIN PURPOSE OF PRIODSP IS TO REPLACE THE PRESENT DISPLAY WITH A DISPLAY OF HIGHER PRIORITY AND TO
058537,000420:                                                                                                  #  PROVIDE A MEANS FOR RESTORING THE OLD DISPLAY WHEN THE PRIORITY DISPLAY
058538,000421:                                                                                                  #  IS RESPONDED TO BY THE ASTRONAUT.
058539,000422: 
058540,000423:                                                                                                  #       THE FORMER DISPLAY IS RESTORED BY AN AUTOMATIC BRANCH TO WAKE UP THE DISPLAY THAT WAS INTERRUPTED BY THE
058541,000424:                                                                                                  #  PRIO DISPLAY.
058542,000425: 
058543,000426:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
058544,000427:                                                                                                  #                                                   TC     BANKCALL
058545,000428:                                                                                                  #                                                   CADR   PRIODSP
058546,000429:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058547,000430:                                                                                                  #                                                   ...    ...             PROCEED RETURN

Page 1339

058549,000432:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058550,000433: 
058551,000434:                                                                                                  #  PRIODSPR IS THE SAME AS PRIODSPONLY AN IMMEDIATE RETURN IS MADE TO THE  USERS CALL CADR +4.
058552,000435: 
058553,000436:                                                                                                  #                                                   CAF    VXXNYY          VXXNYY WILL BE A FLASHING VERB NOUN
058554,000437:                                                                                                  #                                                   TC     BANKCALL
058555,000438:                                                                                                  #                                                   CADR   PRIODSPR
058556,000439:                                                                                                  #                                                   ...    ...             TERMINATE RETURN
058557,000440:                                                                                                  #                                                   ...    ...             PROCEED RETURN
058558,000441:                                                                                                  #                                                   ...    ...             ENTER OR RECYCLE RETURN
058559,000442: 
058560,000443:                                                                                                  #                                                   ...    ...             IMMEDIATE RETURN
058561,000444: 
058562,000445:                                                                                                  #  PRIOLARM DOES A V05N09 PRIODSPR.
058563,000446:                                                                                                  #  CLEANDSP CLEANS OUT ALL NORMAL DISPLAYS (ACTIVE AND INACTIVE). A RETURN IS MADE TO THE USER AFTER NORMAL
058564,000447:                                                                                                  #  DISPLAYS ARE CLEANED OUT.
058565,000448: 
058566,000449:                                                                                                  #                                                   TC      BANKCALL
058567,000450:                                                                                                  #                                                   CADR    CLEANDSP
058568,000451: 
058569,000452:                                                                                                  #                                                   ...     ...             RETURN TO USER
058570,000453: 

Page 1340

058572,000455:                                                                                                  #  GENERAL INFORMATION
058573,000456:                                                                                                  #  ------- -----------
058574,000457: 
058575,000458: 
058576,000459:                                                                                                  #  ALARM OR ABORT EXIT MODES--
058577,000460:                                                                                                  #                                          PRIOBORT TC     ABORT
058578,000461:                                                                                                  #                                                   OCT    1502
058579,000462: 
058580,000463:                                                                                                  #  PRIOBORT IS BRANCED TO WHEN (1)  A NORMAL DISPLAY IS REQUESTED AND  ANOTHER NORMAL DISPLAY IS ALREADY ACTIVE
058581,000464:                                                                                                  #  (REFLASH AND REGODSP ARE EXCEPTIONS) OR (2) A PRIORITY DISPLAY IS REQUESTED WHEN ANOTHER PRIORITY DISPLAY IS
058582,000465:                                                                                                  #  ALREADY ACTIVE (A PRIORITY WITH LINUS BIT14 IS AN EXCEPTION).
058583,000466: 
058584,000467: 
058585,000468:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED--
058586,000469: 
058587,000470:                                                                                                  #       ACCOMPLISHED BY FRESH START- 1. FLAGWRD4 (USED EXCLUSIVELY BY DISPLAY INTERFACE ROUTINES)
058588,000471:                                                                                                  #                                    2. NVSAVE = NORMAL VERB AND NOUN      REGISTER.
058589,000472:                                                                                                  #                                    3. EBANKTEM = NORMAL INACTIVE FLAGWORD(ALSO CONTAINS NORMALS EBANK).
058590,000473: 
058591,000474: 
058592,000475:                                                                                                  #                                    5. R1SAVE = MARKBRAN CONTROL WORD
058593,000476:                                                                                                  #                                    4. RESTREG = PRIORITY 30 AND SUPERBANK 3.
058594,000477:                                                                                                  #  OUTPUT--
058595,000478: 
058596,000479:                                                                                                  #       NVWORD = PRIO VERB AND NOUN
058597,000480:                                                                                                  #       NVWORD +1(MARKNV) = MARK VERB AND NOUN
058598,000481:                                                                                                  #       NVWORD +2(NVSAVE) = NORMAL VERB AND NOUN
058599,000482: 
058600,000483:                                                                                                  #       DSPFLG(EBANKSAV) = PRIO FLAGWORD (INCLUDING EBANK)
058601,000484:                                                                                                  #       DSPFLG +1(MARKEBAN) = MARK FLAGWORD (INCLUDING EBANK)
058602,000485:                                                                                                  #       DSPFLG +2(EBANKTEM) = NORMAL FLAGWORD (INCLUDIG EBANK)
058603,000486: 
058604,000487:                                                                                                  #       CADRFLSH = PRIO USERS CALL CADR +1 LOCATION
058605,000488:                                                                                                  #       CADRFLSH +1(MARKFLSH) = MARK USERS CALL CADR +1 LOCATION
058606,000489:                                                                                                  #       CADRFLSH +2(TEMPFLSH) = NORMAL USERS CALL CADR +1 LOCATION
058607,000490: 
058608,000491:                                                                                                  #       PRIOTIME = TIME EACH PRIO REQUEST FIRST SENT OUT
058609,000492:                                                                                                  #       OPTION1 = DESIRED OPTION FROM GOPERF4
058610,000493:                                                                                                  #       FLAGWRD4 = BIT INFO FOR CONTROL OF ALL DISPLAY ROUTINES
058611,000494:                                                                                                  #       DSPTEM1 = R1 INFO FOR ASTRONAUT FROM PERFORM DISPLAYS(NORMAL)
058612,000495:                                                                                                  #  SUBROUTINES USED-- NVSUB, FLAGUP, FLAGDOWN, ENDOFJOB, BLANKSUB, ABORT, JOBWAKE, JOBSLEEP, FINDVAC, PRIOCHNG,
058613,000496:                                                                                                  #  JAMTERM, NVSUBUSY, FLASHON, ENDIDLE, CHANG1, BANKJUMP, MAKECADR, NOVAC,
058614,000497:                                                                                                  #  DEBRIS-- (STORED INTO)
058615,000498: 
058616,000499:                                                                                                  #       TEMPORARY TEMPORARIES- A, Q, L, MPAC +2, MPAC +3, MPAC +4, MPAC +5, MPAC +6, RUPTREG2, RUPTREG3, CYL,
058617,000500:                                                                                                  #  EBANK, RUPTREG4, LOC, BANKSET, MODE, MPAC, MPAC +1                      4, FACEREG
058618,000501:                                                                                                  #       ERASABES(SHARED AND USED WITH OTHER PROGRAMS) CADRSTOR, DSPLIST, LOC, DSPTEM1, OPTION1
058619,000502: 
058620,000503:                                                                                                  #       ERASABLES(USED ONLY BY DISPLAY ROUTINES)- NVWORD,+1,+2, DSPFLG,+1,+2, CADRFLSH,+1,+2, PRIOTIME, FLAGWRD4,

Page 1341

058622,000505:                                                                                                  #  R1SAVE, MARK2PAC,
058623,000506: 
058624,000507: 
058625,000508:                                                                                                  #  DEBRIS-- (USED BUT NOT STORED INTO)- NOUNREG, VERBREG, LOCCTR, MONSAVE1
058626,000509:                                                                                                  #  FLAGWORD DESCRIPTIONS--
058627,000510:                                                                                                  #      FLAGWRD4- SEE DESCRIPTION UNDER LOG SECTION ERASABLE ASSIGNMENTS
058628,000511: 
058629,000512:                                                                                                  #      DSPFLG, DSPFLG+1, DSPFLG +2-
058630,000513:                                                                                                  #      ----------------------------
058631,000514:                                                                                                  #  BITS 1 BLANK R1
058632,000515:                                                                                                  #       2 BLANK R2
058633,000516:                                                                                                  #       3 BLANK R3
058634,000517:                                                                                                  #       4 FLASHING DISPLAY REQUESTED
058635,000518:                                                                                                  #       5 PERFORM DISPLAY REQUESTED
058636,000519:                                                                                                  #       6 -----            EXDSPRET           GODSPRET
058637,000520:                                                                                                  #       7 PRIO DISPLAY     -----               -----
058638,000521:                                                                                                  #       8 -----         DEC MARK PERFORM      -----
058639,000522:                                                                                                  #       9 EBANK
058640,000523:                                                                                                  #      10 EBANK
058641,000524:                                                                                                  #      11 EBANK
058642,000525:                                                                                                  #      12 -----           -----       V99PASTE
058643,000526:                                                                                                  #      13 2ND PART OF PERFORM
058644,000527:                                                                                                  #      14 REFLASH OR REDO  -----           REFLASH OR REDO
058645,000528:                                                                                                  #      15 -----          MARK REQUEST          -----
058646,000529:                                                                                                  #  RESTARTING DISPLAYS--
058647,000530: 
058648,000531:                                                                                                  #  RULES FOR THE DSKY OPERATOR--
058649,000532: 
058650,000533:                                                                                                  #       1. PROCEED AND TERMINATE SERVE AS RESPONSES TO REQUESTS FOR OPERATOR RESPONSE (FLASHING V/N).  AS LONG
058651,000534:                                                                                                  #          AS THERE IS ANY REQUEST AWAITING OPERATOR RESPONSE, ANY USE OF PROCEED OR TERMINATE WILL SERVE AS
058652,000535:                                                                                                  #          RESPONSES TO THAT REQUEST.  CARE SHOULD BE EXERCISED IN ATTEMPTING TO KILL AN OPERATOR INITIATED MONITOR
058653,000536:                                                                                                  #          WITH PROCEED AND TERMINATE FOR THIS REASON.
058654,000537:                                                                                                  #       2. THE ASTRONAUT MUST RESPOND TO A PRIORITY DISPLAY NO             SOONER THAN 2 SECONDS FROM THE TIME THE
058655,000538:                                                                                                  #          PROGRAM SENT OUT THE REQUEST FOR OPERATOR RESPONSE (THE ASTRONAUT WOULD SEE THIS DISPLAY FOR LESS TIME
058656,000539:                                                                                                  #          DUE TO TIME IT TAKES TO GET DISPLAY SENT OUT.) IF THE ASTRONAUT RESPONDS TOO SOON, THE PRIORITY DISPLAY
058657,000540:                                                                                                  #           IS SENT OUT AGAIN -- AND AGAIN UNTIL AN ACCUMULATED 2 SECS     FROM THE TIME THE FIRST PRIORITY DISPLAY
058658,000541:                                                                                                  #          OUT. THE SAME 2 SEC. DELAY WILL OCCUR AT 163.84 SECS OR IN ANY  MULTIPLE OF THAT TIME DUE TO PROGRAM
058659,000542:                                                                                                  #          CONSIDERATION.
058660,000543:                                                                                                  #       3. KEY RELEASE BUTTON-
058661,000544:                                                                                                  #          A) IF THE KEY RELEASE LIGHT IS ON, IT SIMPLY RELEASES THE KEYBOARD AND DISPLAY FOR INTERNAL USE.
058662,000545:                                                                                                  #          B) IF THE KEY RELEASE LIGHT IS OFF, AND IF SOME REQUEST FOR OPERATOR RESPONSE (FLASHING V/N) IS STILL
058663,000546:                                                                                                  #             AWAITING RESPONSE  THEN IT RE-ESTABLISHES THE DISPLAYS THAT ORIGINALLY REQUESTED RESPONSE.
058664,000547:                                                                                                  #          IF AN OPERATOR WANTS THEREFORE TO RE-ESTABLISH BUT CONDITION (A) IS ENCOUNTERED, A SECOND DEPRESSION OF
058665,000548:                                                                                                  #          KEY RELEASE BUTTON MAY BE NECESSARY.
058666,000549:                                                                                                  #       4. IT IS IMPORTANT TO ANSWER ALL REQUESTS FOR OPERATOR RESPONSE.
058667,000550:                                                                                                  #       5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
058668,000551:                                                                                                  #          OVER AGAIN.
058669,000552: 
058670,000553: 
058671,000554:                                                                                                  #  SPECIAL CONSIDERATIONS--
058672,000555: 

Page 1342

058674,000557:                                                                                                  #       1. MPAC +2  SAVED ONLY IN MARK DISPLAYS
058675,000558:                                                                                                  #       2. GODSP(R),REGODSP(R),GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST.
058676,000559:                                                                                                  #       3. ALL NORMAL DISPLAYS ARE RESTARTABLE EXCEPT GODSP(R), REGODSP(R)
058677,000560:                                                                                                  #       4. ALL EXTENDED VERBS WITH DISPLAYS SHOULD START WITH A TC TESTXACT AND FINISH WITH A TC ENDEXT.
058678,000561:                                                                                                  #       5. GODSP(R) AND REGODSP(R) MUST BE IN THE SAME EBANK AND SUPERBANK AS THE LAST NORMAL DISPLAY RESTARTED
058679,000562:                                                                                                  #          BY A .1 RESTART PHASE CHANGE.
058680,000563:                                                                                                  #       6. IN ORDER TO SET UP A NON DISPLAY .1 RESTART POINT, THE USER MUST MAKE CERTAIN THAT RESTREG CONTAINS THE
058681,000564:                                                                                                  #          CORRECT PRIORITY AND SUPERBANK AND THAT EBANKTEM CONTAINS THE CO
058682,000565:                                                                                                  #       7. IF CLEANDSP IS RESTARTED VIA A .1 PHASE CHANGE, CAF ZERO SHOULD BE EXECUTED  BEFORE THE TC BANKCALL.
058683,000566: 

Page 1343

058685,000568:                                                                                                  #  CALLING SEQUENCE FOR BLANKING
058686,000569:                                                                                                  #                                                   CAF    BITX            X=1,2,3 BLANK R1,R2,R3 RESPECTIVELY
058687,000570:                                                                                                  #                                                   TC     BLANKET
058688,000571:                                                                                                  #                                                   ...    ...             RETURN TO USER HERE
058689,000572: 
058690,000573:                                                                                                  #  IN ORDER TO USE BLANKET CORRECTLY THE USER MUST USE A DISPLAY ROUTINE THAT ENDS IN R FIRST FOLLOWED BY THE CALL
058691,000574:                                                                                                  #  TO BLANKET AT THE IMMEDIATE RETURN LOC.
058692,000575: 
058693,000576:    5475                                           BLOCK    02                                    
058694,000577:    4000                                           SETLOC   FFTAG4                                
058695,000578:    4000                                           BANK                                           
058696,000579: 
058697,000580:    5475                                           COUNT*   $$/DSPLA                              
058698,000581:    5475           54162        BLANKET            TS       MPAC       +6                         
058699,000582:    5476           40160                           CS       PLAYTEM4                              
058700,000583:    5477           70162                           MASK     MPAC       +6                         
058701,000584:    5500           50161                           INDEX    MPAC       +5                         
058702,000585:    5501           26160                           ADS      PLAYTEM4                              
058703,000586: 
058704,000587:    5502           00002                           TC       Q                                     
058705,000588: 
058706,000589:    5503           04635        ENDMARK            TC       POSTJUMP                              
058707,000590:    5504           20326                           CADR     MARKEND                               
058708,000591: 
058709,000592:    5505           34755        CLEARMRK           CAF      ZERO                                  
058710,000593:    5506           55043                           TS       EXTVBACT                              
058711,000594: 
058712,000595:    5507           00004                 +2        INHINT                                         
058713,000596:    5510           44753                           CS       XDSPBIT                               
058714,000597:    5511           70100                           MASK     FLAGWRD4                              
058715,000598:    5512           54100                           TS       FLAGWRD4                              
058716,000599: 
058717,000600:    5513           00003                           RELINT                                         
058718,000601:    5514           00002                           TC       Q                                     
058719,000602:                                                                                                  #  ***ALL EXTENDED VERB ROUTINES THAT HAVE AT LEAST ONE FLASHING DISPLAY MUST TCF ENDMARK OR TCF ENDEXT WHEN
058720,000603:                                                                                                  #  FINISHED.
058721,000604: 
058722,000605: 10,2326                                           BANK     10                                    
058723,000606: 10,2000                                           SETLOC   DISPLAYS                              
058724,000607: 10,2000                                           BANK                                           
058725,000608: 
058726,000609: 10,2326                                           COUNT*   $$/DSPLA                              
058727,000610:                                                                                                  #  NTERONLY IS USED TO DIFFERENTIATE THE MARK ROUTINE WITH ONLY ONE RETURN TO THE USER FROM THE MARKING ROUTINE WIT
058728,000611:                                                                                                  #  3 RETURNS TO THE USER. THIS ROUTINE IS ONLY USED BY GOMARK1 AND GOMARK1R.
058729,000612: 
058730,000613: 10,2326           05505        MARKEND            TC       CLEARMRK                              
058731,000614: 10,2327           13403                           TCF      MARKOVER                              
058732,000615: 
058733,000616: 10,2330           54155        GOMARK             TS       PLAYTEM1                              #  ENTRANCE FOR MARK GODSP

Page 1344

058735,000618: 10,2331           34735        GOMARS             CAF      BIT15                                 #  BIT15 SET FOR ALL MARK REQUESTS
058736,000619: 10,2332           12501                           TCF      GOFLASH2                              
058737,000620: 
058738,000621: 10,2333           34755        KLEENEX            CAF      ZERO                                  #  CLEAN OUT EXTENDED VERBS
058739,000622: 10,2334           54155        GOMARKF            TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASH
058740,000623: 
058741,000624: 10,2335           33032                           CAF      MARKFMSK                              #  MARK,FLASH
058742,000625: 10,2336           12501                           TCF      GOFLASH2                              
058743,000626: 
058744,000627: 10,2337           54155        GOMARK2            TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETURNS
058745,000628: 10,2340           33502        MARKFORM           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
058746,000629: 10,2341           12501                           TCF      GOFLASH2                              
058747,000630: 
058748,000631: 10,2342           54155        GOMARK3            TS       PLAYTEM1                              #  USED FOR 3COMP DECIMAL PERFORM
058749,000632: 10,2343           33467                           CAF      MARK3MSK                              
058750,000633: 10,2344           12501                           TCF      GOFLASH2                              
058751,000634: 
058752,000635: 10,2345           54155        GOMARK4            TS       PLAYTEM1                              
058753,000636: 10,2346           33470                           CAF      MARK4MSK                              #  MARK,PERFORM,FLASH,BLANK
058754,000637: 10,2347           12501                           TCF      GOFLASH2                              
058755,000638: 
058756,000639: 10,2350           54155        GOMARKR            TS       PLAYTEM1                              #  ENTR+NCE FOR MARK GODSPR
058757,000640: 
058758,000641: 10,2351           34735                           CAF      BIT15                                 
058759,000642: 10,2352           12454                           TCF      GODSPR2                               
058760,000643: 
058761,000644: 10,2353           54155        GOMARKFR           TS       PLAYTEM1                              #  ENTRANCE FOR MARK GOFLASHR
058762,000645: 
058763,000646: 10,2354           33032                           CAF      MARKFMSK                              
058764,000647: 10,2355           12640                           TCF      GODSPRS                               
058765,000648: 
058766,000649: 10,2356           54155        GOMARK2R           TS       PLAYTEM1                              #  MARK GOPERFS-3 AST. RETS+ IMMEDIATE RET.
058767,000650: 10,2357           33502                           CAF      MPERFMSK                              #  MARK, PERFORM, FLASH
058768,000651: 10,2360           12640                           TCF      GODSPRS                               
058769,000652: 
058770,000653: 10,2361           65023                 -1        AD       PRIO13                                
058771,000654: 10,2362           54155        GOMARK3R           TS       PLAYTEM1                              
058772,000655: 10,2363           33467                           CAF      MARK3MSK                              
058773,000656: 10,2364           12640                           TCF      GODSPRS                               
058774,000657: 
058775,000658: 10,2365           34753        MAKEMARK           CAF      ONE                                   
058776,000659: 10,2366           02736                           TC       COPIES                                
058777,000660: 
058778,000661: 10,2367           30100                           CA       FLAGWRD4                              #  IS NORM OR PRIO BUSY OR WAITING
058779,000662: 10,2370           73503                           MASK     OCT34300                              
058780,000663: 10,2371           10000                           CCS      A                                     
058781,000664: 10,2372           12430                           TCF      CHKPRIO                               
058782,000665: 
058783,000666: 10,2373           30100                           CA       FLAGWRD4                              #  IS MARK SLEEPING DUE TO ASTRO BUSY
058784,000667: 10,2374           74743                           MASK     MRKNVBIT                              

Page 1345

058786,000669: 10,2375           00006                           EXTEND                                         
058787,000670: 10,2376           12400                           BZF      MARKPLAY                              #  NO
058788,000671: 
058789,000672: 10,2377           15155                           TCF      ENDOFJOB                              
058790,000673: 
058791,000674: 10,2400           00004        MARKPLAY           INHINT                                         
058792,000675: 10,2401           44756                           CS       FIVE                                  #  RESET MARK OVER NORM, SET MARK
058793,000676: 10,2402           70100                           MASK     FLAGWRD4                              
058794,000677: 10,2403           64753                           AD       ONE                                   
058795,000678: 10,2404           54100                           TS       FLAGWRD4                              
058796,000679: 10,2405           00003                           RELINT                                         
058797,000680: 
058798,000681: 10,2406           41070        GOGOMARK           CS       MARKFLAG                              #  PERFORM
058799,000682: 10,2407           74747                           MASK     BIT5                                  
058800,000683: 10,2410           10000                           CCS      A                                     
058801,000684: 10,2411           12414                           TCF      MARKCOP                               
058802,000685: 10,2412           40370                           CS       MARKNV                                
058803,000686: 10,2413           54370                           TS       MARKNV                                
058804,000687: 
058805,000688: 10,2414           34753        MARKCOP            CAF      ONE                                   #  MARK INDEX
058806,000689: 10,2415           12617                           TCF      PRIOPLAY                              
058807,000690: 
058808,000691: 10,2416           30165        COPYTOGO           CA       MPAC2SAV                              
058809,000692: 10,2417           54156                           TS       MPAC       +2                         
058810,000693: 
058811,000694: 10,2420           50164        COPYPACS           INDEX    COPINDEX                              
058812,000695: 10,2421           33513                           CAF      PRIOOCT                               
058813,000696: 10,2422           54162                           TS       GENMASK                               
058814,000697: 
058815,000698: 10,2423           50164                           INDEX    COPINDEX                              
058816,000699: 10,2424           31067                           CAF      EBANKSAV                              
058817,000700: 10,2425           54160                           TS       TEMPOR2                               #  ACTIVE EBANK AND FLAG
058818,000701: 
058819,000702: 10,2426           54003                           TS       EBANK                                 
058820,000703: 
058821,000704: 10,2427           00002                           TC       Q                                     
058822,000705: 
058823,000706:                                                                                                  #  PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY
058824,000707:                                                                                                  #  (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK
058825,000708:                                                                                                  #  REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP
058826,000709:                                                                                                  #  UNTIL ALL MARKING IS FINISHED.
058827,000710: 
058828,000711:                                                                                                  #       IF THE MARK REQUEST COMES FROM THE PROGRAM DURING A TIME THE ASTRONAUT IS NOT INTERRUPTING A NORMAL OR A
058829,000712:                                                                                                  #  PRIO, THE MARK REQUEST IS PUT TO SLEEP UNTIL THE +RESENT ACTIVE DISPLAY IS RESPONDED TO BY THE ASTRONAUT.
058830,000713: 
058831,000714: 10,2430           30100        CHKPRIO            CA       FLAGWRD4                              #  MARK ATTEMPT DURING PRIO
058832,000715: 10,2431           73255                           MASK     OCT24100                              
058833,000716: 10,2432           10000                           CCS      A                                     
058834,000717: 10,2433           13436                           TCF      MARSLEEP                              
058835,000718: 

Page 1346

058837,000720: 10,2434           40100                           CS       FLAGWRD4                              
058838,000721: 10,2435           74751                           MASK     MKOVBIT                               #  SET MARK OVER NORM
058839,000722: 10,2436           00004                           INHINT                                         
058840,000723: 10,2437           26100                           ADS      FLAGWRD4                              
058841,000724: 
058842,000725: 10,2440           12535                           TCF      SETNORM                               
058843,000726: 
058844,000727: 10,2441           30370        MARKPERF           CA       MARKNV                                
058845,000728: 10,2442           74144                           MASK     VERBMASK                              
058846,000729: 10,2443           13121                           TCF      NV50DSP                               
058847,000730: 
058848,000731: 10,2444           54155        GODSP              TS       PLAYTEM1                              
058849,000732: 
058850,000733: 10,2445           34755        GODSP2             CAF      ZERO                                  
058851,000734: 10,2446           12501                           TCF      GOFLASH2                              
058852,000735: 
058853,000736: 10,2447           54155        GODSPRET           TS       PLAYTEM1                              #  ENTRANCE FOR A GODSP WITH A PASTE
058854,000737: 
058855,000738: 10,2450           34746                           CAF      BIT6                                  #  SET BIT6 TO GO BACK TO USER AFTER NVSUB
058856,000739: 10,2451           12501                           TCF      GOFLASH2                              
058857,000740: 
058858,000741: 10,2452           54155        GODSPR             TS       PLAYTEM1                              
058859,000742: 
058860,000743: 10,2453           34755        GODSPR1            CAF      ZERO                                  
058861,000744: 10,2454           54160        GODSPR2            TS       PLAYTEM4                              
058862,000745: 
058863,000746: 10,2455           34755                           CAF      ZERO                                  #  * DONT MOVE
058864,000747: 10,2456           12642                           TCF      GODSPRS1                              
058865,000748: 
058866,000749:                                                                                                  #       CLEANDSP IS USED FOR CLEARING OUT A NORMAL DISPLAY THAT IS PRESENTLY ACTIVE OR A NORMAL DISPLAY THAT IS
058867,000750:                                                                                                  #  SET UP TO BE STARTED OR RESTARTED.
058868,000751: 
058869,000752:                                                                                                  #       NORMALLY THE USER WILL NOT NEED TO USE THIS ROUTINE SINCE A NEW NORMAL DISPLAY AUTOMATICALLY CLEARS OUT AN
058870,000753:                                                                                                  #  OLD DISPLAY.
058871,000754: 
058872,000755:                                                                                                  #       CALLING SEQUENCE FOR CLEANDSP-
058873,000756: 
058874,000757:                                                                                                  #                                                   TC     BANKCALL
058875,000758:                                                                                                  #                                                   CADR   CLEANDSP
058876,000759: 
058877,000760: 10,2457           34755        CLEANDSP           CAF      ZERO                                  
058878,000761: 10,2460           54155        REFLASH            TS       PLAYTEM1                              
058879,000762: 
058880,000763: 10,2461           33466                           CAF      REDOMASK                              #  FLASH AND PERMIT
058881,000764: 10,2462           12501                           TCF      GOFLASH2                              
058882,000765: 
058883,000766: 10,2463           54155        REFLASHR           TS       PLAYTEM1                              
058884,000767: 
058885,000768: 10,2464           33466                           CAF      REDOMASK                              #  FLASH AND PERMIT
058886,000769: 10,2465           12640                           TCF      GODSPRS                               
058887,000770: 

Page 1347

058889,000772: 10,2466           54155        REGODSP            TS       PLAYTEM1                              
058890,000773: 
058891,000774: 10,2467           34736                           CAF      BIT14                                 
058892,000775: 10,2470           12501                           TCF      GOFLASH2                              
058893,000776: 
058894,000777: 10,2471           54155        REGODSPR           TS       PLAYTEM1                              
058895,000778: 
058896,000779: 10,2472           34736                           CAF      BIT14                                 
058897,000780: 10,2473           12454                           TCF      GODSPR2                               
058898,000781: 
058899,000782: 10,2474           54155        CLOCPLAY           TS       PLAYTEM1                              
058900,000783: 10,2475           33525                           CAF      CLOCKCON                              
058901,000784: 10,2476           12501                           TCF      GOFLASH2                              
058902,000785: 
058903,000786: 10,2477           54155        GOFLASH            TS       PLAYTEM1                              
058904,000787: 
058905,000788: 10,2500           34750                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
058906,000789: 10,2501           54160        GOFLASH2           TS       PLAYTEM4                              
058907,000790: 
058908,000791: 10,2502           02723                           TC       SAVELOCS                              
058909,000792: 
058910,000793: 10,2503           00003                           RELINT                                         
058911,000794: 
058912,000795: 10,2504           12547                           TCF      MAKEPLAY                              #  BRANCH DIRECT WITH NO SEPARATE JOB CALL
058913,000796: 
058914,000797: 10,2505           54155        PRIODSPR           TS       PLAYTEM1                              
058915,000798: 
058916,000799: 10,2506           33505                           CAF      BITS7+4                               
058917,000800: 10,2507           12640                           TCF      GODSPRS                               
058918,000801: 
058919,000802: 10,2510           54155        PRIODSP            TS       PLAYTEM1                              
058920,000803: 
058921,000804: 10,2511           33505        SETPRIO            CAF      BITS7+4                               
058922,000805: 10,2512           12501                           TCF      GOFLASH2                              
058923,000806: 
058924,000807: 10,2513           34755        MAKEPRIO           CAF      ZERO                                  
058925,000808: 10,2514           54164                           TS       COPINDEX                              
058926,000809: 
058927,000810: 10,2515           03356                           TC       LINUSCHR                              
058928,000811: 10,2516           12523                           TCF      HIPRIO                                #  LINUS RETURN
058929,000812: 10,2517           30100                           CA       FLAGWRD4                              
058930,000813: 10,2520           73524                           MASK     OCT20100                              #  IS PRIO IN ENDIDLE OR BUSY
058931,000814: 10,2521           10000                           CCS      A                                     
058932,000815: 10,2522           12576                           TCF      PRIOBORT                              #  YES, ABORT
058933,000816: 
058934,000817: 10,2523           30100        HIPRIO             CA       FLAGWRD4                              #  MARK ACTIVE
058935,000818: 10,2524           75643                           MASK     OCT40400                              
058936,000819: 10,2525           00006                           EXTEND                                         
058937,000820: 10,2526           12531                           BZF      ASKIFNRM                              #  NO
058938,000821: 

Page 1348

058940,000823: 10,2527           34755        SETMARK            CAF      ZERO                                  
058941,000824: 10,2530           12775                           TCF      JOBXCHS                               
058942,000825: 
058943,000826: 10,2531           30100        ASKIFNRM           CA       FLAGWRD4                              #  NORMAL ACTIVE
058944,000827: 10,2532           73522                           MASK     OCT10200                              #  BITS 13+8
058945,000828: 10,2533           00006                           EXTEND                                         
058946,000829: 10,2534           12537                           BZF      OKTOCOPY                              #  NO
058947,000830: 
058948,000831: 10,2535           34753        SETNORM            CAF      ONE                                   
058949,000832: 10,2536           12775                           TCF      JOBXCHS                               
058950,000833: 
058951,000834: 10,2537           02735        OKTOCOPY           TC       COPYNORM                              
058952,000835: 10,2540           03206                           TC       WITCHONE                              
058953,000836: 
058954,000837: 10,2541           05137                           TC       JOBWAKE                               
058955,000838: 
058956,000839: 10,2542           03223                           TC       XCHTOEND                              
058957,000840: 
058958,000841: 10,2543           30025        REDOPRIO           CA       TIME1                                 #  SAVE TIME PRIODSP SENT OUT
058959,000842: 10,2544           55164                           TS       PRIOTIME                              
058960,000843: 
058961,000844: 10,2545           34755        KEEPPRIO           CAF      ZERO                                  #  START UP PRIO DISPLAY
058962,000845: 10,2546           12617                           TCF      PRIOPLAY                              
058963,000846: 
058964,000847: 10,2547           30167        MAKEPLAY           CA       PRIORITY                              #  SAVE USERS PRIORITY
058965,000848: 10,2550           77737                           MASK     PRIO37                                
058966,000849: 10,2551           54163                           TS       USERPRIO                              
058967,000850: 
058968,000851: 10,2552           37733                           CAF      PRIO33                                #  RAISE PRIORITY FOR FAST JOBS AFTER WAKE
058969,000852: 10,2553           05146                           TC       PRIOCHNG                              
058970,000853: 
058971,000854: 10,2554           30160                           CA       PLAYTEM4                              #  IS IT MARK OR PRIO OR NORM
058972,000855: 10,2555           73504                           MASK     BITS15+7                              
058973,000856: 10,2556           10000                           CCS      A                                     
058974,000857: 10,2557           12513                           TCF      MAKEPRIO                              #  ITS PRIO
058975,000858: 10,2560           12562                           TCF      IFLEGAL                               
058976,000859: 10,2561           12365                           TCF      MAKEMARK                              #  ITS MARK
058977,000860: 
058978,000861: 10,2562           34752        IFLEGAL            CAF      TWO                                   
058979,000862: 10,2563           54164                           TS       COPINDEX                              
058980,000863: 
058981,000864: 10,2564           03356                           TC       LINUSCHR                              
058982,000865: 
058983,000866: 10,2565           12600                           TCF      OKTOPLAY                              #  LINUS RETURN
058984,000867: 10,2566           41071                           CS       EBANKTEM                              
058985,000868: 10,2567           74750                           MASK     BIT4                                  
058986,000869: 10,2570           10000                           CCS      A                                     
058987,000870: 10,2571           12600                           TCF      OKTOPLAY                              #  NO
058988,000871: 
058989,000872: 10,2572           30100                           CA       FLAGWRD4                              #  WAS NORM ASLEEP

Page 1349

058991,000874: 10,2573           73475                           MASK     NBUSMASK                              #  ARE ANY NORMS ASLEEP
058992,000875: 10,2574           00006                           EXTEND                                         
058993,000876: 10,2575           12600                           BZF      OKTOPLAY                              #  NO
058994,000877: 
058995,000878: 10,2576           05635        PRIOBORT           TC       BAILOUT                               
058996,000879: 10,2577           31502                           OCT      31502                                 
058997,000880: 
058998,000881: 10,2600           02737        OKTOPLAY           TC       COPIES2                               
058999,000882: 
059000,000883: 10,2601           30163                           CA       USERPRIO                              
059001,000884: 10,2602           00006                           EXTEND                                         
059002,000885: 10,2603           04007                           ROR      SUPERBNK                              
059003,000886: 10,2604           54366                           TS       RESTREG                               
059004,000887: 
059005,000888: 10,2605           30100                           CA       FLAGWRD4                              #  PRIO OR MARK GOING
059006,000889: 10,2606           73476                           MASK     PMMASK                                
059007,000890: 10,2607           10000                           CCS      A                                     
059008,000891: 10,2610           12755                           TCF      GOSLEEPS                              #  YES
059009,000892: 
059010,000893: 10,2611           12613                           TCF      +2                                    
059011,000894: 10,2612           12755                           TCF      GOSLEEPS                              #  MARK GOING
059012,000895: 
059013,000896:                                                                                                  #  COULD PUT NORM BUSY CHECK HERE TO SAVE TIME
059014,000897: 10,2613           03206                           TC       WITCHONE                              #  IS IT NVSUB BUSY, ENDIDLE OR NOONE
059015,000898: 10,2614           05137                           TC       JOBWAKE                               
059016,000899: 
059017,000900: 10,2615           03223                           TC       XCHTOEND                              
059018,000901: 
059019,000902: 10,2616           34752        PLAYJUM1           CAF      TWO                                   
059020,000903: 10,2617           54164        PRIOPLAY           TS       COPINDEX                              
059021,000904: 
059022,000905: 10,2620           13071                           TCF      GOPLAY                                
059023,000906: 
059024,000907: 10,2621           54155        EXDSPRET           TS       PLAYTEM1                              
059025,000908: 
059026,000909: 10,2622           37746                           CAF      BIT15+6                               
059027,000910: 10,2623           12501                           TCF      GOFLASH2                              
059028,000911: 
059029,000912: 10,2624           55044        GOPERF1            TS       NORMTEM1                              #  STORE DESIRED CHECKLIST VALUE
059030,000913: 10,2625           33460                           CAF      V01N25                                #  USED TO DISPLAY CHECKLIST VALUE IN R1
059031,000914: 
059032,000915: 10,2626           54155        GOPERFS            TS       PLAYTEM1                              
059033,000916: 
059034,000917: 10,2627           33457                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
059035,000918: 10,2630           12501                           TCF      GOFLASH2                              
059036,000919: 
059037,000920: 10,2631           54155        GOPERF2            TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
059038,000921: 
059039,000922: 10,2632           33463                           CAF      PERF2MSK                              
059040,000923: 10,2633           12501                           TCF      GOFLASH2                              
059041,000924: 

Page 1350

059043,000926: 10,2634           02716        GOPERF4            TC       PURRS4                                
059044,000927: 
059045,000928: 10,2635           12501                           TCF      GOFLASH2                              
059046,000929: 
059047,000930: 10,2636           54155        GOFLASHR           TS       PLAYTEM1                              
059048,000931: 
059049,000932: 10,2637           34750                           CAF      BIT4                                  #  LEAVE ONLY FLASH BIT SET
059050,000933: 10,2640           54160        GODSPRS            TS       PLAYTEM4                              
059051,000934: 
059052,000935: 10,2641           36257                           CAF      THREE                                 
059053,000936: 
059054,000937: 10,2642           00004        GODSPRS1           INHINT                                         #  IMMEDIATE RETURN IS CALL CADR +4
059055,000938: 10,2643           54072                           TS       RUPTREG3                              
059056,000939: 
059057,000940: 10,2644           30167                           CA       PRIORITY                              #  MAKE DISPLAY ONE HIGHER THAN USER
059058,000941: 10,2645           77737                           MASK     PRIO37                                
059059,000942: 10,2646           54063                           TS       NEWPRIO                               
059060,000943: 
059061,000944: 10,2647           30160                           CA       PLAYTEM4                              #  IS THIS A FLASHING R DISPLAY
059062,000945: 10,2650           74750                           MASK     BIT4                                  
059063,000946: 10,2651           10000                           CCS      A                                     
059064,000947: 10,2652           12660                           TCF      VACDSP                                #  YES, MAKE DSPLAY JOB A VAC
059065,000948: 10,2653           30063                           CA       NEWPRIO                               #  NO, MAKE DSPLAY JOB A NOVAC
059066,000949: 10,2654           05072                           TC       NOVAC                                 
059067,000950: 10,2655  E7,1471                                  EBANK=   WHOCARES                              
059068,000951: 10,2655           02547 20067                     2CADR    MAKEPLAY                              
059069,000952: 
059070,000953: 10,2657           12666                           TCF      BOTHJOBS                              
059071,000954: 
059072,000955: 10,2660           30006        VACDSP             CA       BBANK                                 
059073,000956: 10,2661           00006                           EXTEND                                         
059074,000957: 10,2662           04007                           ROR      SUPERBNK                              
059075,000958: 10,2663           54001                           TS       L                                     
059076,000959: 10,2664           33521                           CAF      MAKEGEN                               
059077,000960: 10,2665           05116                           TC       SPVAC                                 
059078,000961: 
059079,000962: 10,2666           02723        BOTHJOBS           TC       SAVELOCS                              #  COPY TEMPS INTO PERMANENT REGISTERS
059080,000963: 
059081,000964: 10,2667           00006                           EXTEND                                         #  SAVE NVWORD AND USERS MPAC +2
059082,000965: 10,2670           30156                           DCA      MPAC       +1                         
059083,000966: 10,2671           50064                           INDEX    LOCCTR                                
059084,000967: 10,2672           52156                           DXCH     MPAC       +1                         
059085,000968: 
059086,000969: 10,2673           00006                           EXTEND                                         #  SAVE USERS CADR, FLAGS AND EBANK
059087,000970: 10,2674           30160                           DCA      MPAC       +3                         
059088,000971: 10,2675           50064                           INDEX    LOCCTR                                
059089,000972: 10,2676           52160                           DXCH     MPAC       +3                         
059090,000973: 
059091,000974: 10,2677           30064                           CA       LOCCTR                                
059092,000975: 10,2700           54161                           TS       MPAC       +5                         
059093,000976: 

Page 1351

059095,000978: 10,2701           02730                           TC       SAVELOCR                              
059096,000979: 10,2702           00003                           RELINT                                         
059097,000980: 
059098,000981: 10,2703           14640                           TCF      BANKJUMP                              #  CALL CADR +4
059099,000982: 
059100,000983: 10,2704           55044        GOPERF1R           TS       NORMTEM1                              #  DESIRED CHECKLIST VALUE
059101,000984: 
059102,000985: 10,2705           33460                           CAF      V01N25                                #  DISPLAYS CHECKLIST VALUE IN R1
059103,000986: 
059104,000987: 10,2706           54155        GOPERFRS           TS       PLAYTEM1                              
059105,000988: 
059106,000989: 10,2707           33457                           CAF      PERFMASK                              #  LEAVE ONLY FLASH, PERFORM, BLANKING
059107,000990: 10,2710           12640                           TCF      GODSPRS                               
059108,000991: 
059109,000992: 10,2711           54155        GOPERF2R           TS       PLAYTEM1                              #  DESIRED VERB-NOUN TO DISPLAY R1,R2,R3
059110,000993: 
059111,000994: 10,2712           33463                           CAF      PERF2MSK                              
059112,000995: 10,2713           12640                           TCF      GODSPRS                               
059113,000996: 
059114,000997: 10,2714           02716        GOPERF4R           TC       PURRS4                                
059115,000998: 
059116,000999: 10,2715           12640                           TCF      GODSPRS                               
059117,001000: 
059118,001001: 10,2716           55143        PURRS4             TS       OPTION1                               #  DESIRED OPTION CODE
059119,001002: 
059120,001003: 10,2717           33464                           CAF      V04N06                                
059121,001004: 10,2720           54155                           TS       PLAYTEM1                              
059122,001005: 
059123,001006: 10,2721           33465                           CAF      PERF4MSK                              #  FLASH,PERFORM AND BLANK R3
059124,001007: 10,2722           00002                           TC       Q                                     
059125,001008: 
059126,001009: 10,2723           00004        SAVELOCS           INHINT                                         
059127,001010: 
059128,001011: 10,2724           43474                           CS       OCT3400                               #  EBANK BITS
059129,001012: 10,2725           70160                           MASK     PLAYTEM4                              
059130,001013: 10,2726           60003                           AD       EBANK                                 
059131,001014: 10,2727           54160                           TS       PLAYTEM4                              
059132,001015: 
059133,001016: 10,2730           22002        SAVELOCR           LXCH     Q                                     
059134,001017: 
059135,001018: 10,2731           04645                           TC       MAKECADR                              
059136,001019: 10,2732           54157                           TS       PLAYTEM3                              
059137,001020: 
059138,001021: 10,2733           60072                           AD       RUPTREG3                              #  NOT USED FOR NON R ROUTINES
059139,001022: 10,2734           00001                           TC       L                                     
059140,001023: 
059141,001024: 10,2735           34755        COPYNORM           CAF      ZERO                                  
059142,001025: 10,2736           54164        COPIES             TS       COPINDEX                              
059143,001026: 10,2737           00004        COPIES2            INHINT                                         
059144,001027: 10,2740           30160                           CA       PLAYTEM4                              #  FLAGWORD

Page 1352

059146,001029: 10,2741           50164                           INDEX    COPINDEX                              
059147,001030: 10,2742           55067                           TS       EBANKSAV                              #  EQUIV TO DSPFLG
059148,001031: 
059149,001032: 10,2743           73512                           MASK     CADRMASK                              #  FLASH AND GODSPRET
059150,001033: 10,2744           00006                           EXTEND                                         
059151,001034: 10,2745           12751                           BZF      SKIPADD                               
059152,001035: 
059153,001036: 10,2746           30157                           CA       PLAYTEM3                              
059154,001037: 10,2747           50164                           INDEX    COPINDEX                              
059155,001038: 10,2750           54372                           TS       CADRFLSH                              
059156,001039: 
059157,001040: 10,2751           30155        SKIPADD            CA       PLAYTEM1                              #  VERB NOUN
059158,001041: 10,2752           50164                           INDEX    COPINDEX                              
059159,001042: 10,2753           54367                           TS       NVWORD                                
059160,001043: 
059161,001044: 10,2754           13232                           TCF      RELINTQ                               
059162,001045: 
059163,001046: 10,2755           50164        GOSLEEPS           INDEX    COPINDEX                              
059164,001047: 10,2756           33513                           CA       PRIOOCT                               
059165,001048: 10,2757           72761                           MASK     WAITMASK                              
059166,001049: 10,2760           03526                           TC       UPENT2                                
059167,001050: 10,2761           03004        WAITMASK           OCT      3004                                  
059168,001051: 10,2762           44753                           CS       ONE                                   
059169,001052: 10,2763           60164                           AD       COPINDEX                              
059170,001053: 10,2764           54154                           TS       FACEREG                               
059171,001054: 
059172,001055: 10,2765           50154        XCHSLEEP           INDEX    FACEREG                               
059173,001056: 10,2766           33472                           CAF      WAKECADR                              
059174,001057: 10,2767           00004                           INHINT                                         
059175,001058: 10,2770           05137                           TC       JOBWAKE                               #  FIND CADR IN JOB AREA
059176,001059: 
059177,001060: 10,2771           03223                           TC       XCHTOEND                              #  CAUSES AWAKENED JOB TO GO TO ENDOFJOB
059178,001061: 
059179,001062: 10,2772           50154                           INDEX    FACEREG                               #  REPLACE SAME CADR BUT NEW JOB AREA
059180,001063: 10,2773           33472                           CAF      WAKECADR                              
059181,001064: 10,2774           15133                           TCF      JOBSLEEP                              
059182,001065: 
059183,001066: 10,2775           54154        JOBXCHS            TS       FACEREG                               #  CONTROLS TYPE OF DISPLAY PUT TO SLEEP
059184,001067: 10,2776           03206                           TC       WITCHONE                              
059185,001068: 10,2777           05137                           TC       JOBWAKE                               
059186,001069: 10,3000           30154                           CA       FACEREG                               
059187,001070: 10,3001           50064                           INDEX    LOCCTR                                
059188,001071: 10,3002           54154                           TS       FACEREG                               
059189,001072: 
059190,001073: 10,3003           33016                           CAF      XCHQADD                               
059191,001074: 10,3004           03224                           TC       XCHNYLOC                              
059192,001075: 
059193,001076: 10,3005           50154                           INDEX    FACEREG                               
059194,001077: 10,3006           33514                           CA       MARKOCT                               
059195,001078: 10,3007           73516                           MASK     IDLESLEP                              

Page 1353

059197,001080: 10,3010           03536                           TC       DOWNENT2                              
059198,001081: 10,3011           74004        IDLEMASK           OCT      74004                                 #  * DONT MOVE
059199,001082: 
059200,001083: 10,3012           50154                           INDEX    FACEREG                               #  BIT SHOWS PRIO INTERRUPTED NORM OR MARK
059201,001084: 10,3013           34747                           CA       BIT5                                  #  BIT5 FOR MARK, BIT4 FOR NORMAL
059202,001085: 10,3014           64751                           AD       FOUR                                  
059203,001086: 10,3015           03526                           TC       UPENT2                                #  FLAG ROUTINE DOES RELINT
059204,001087: 10,3016           02765        XCHQADD            GENADR   XCHSLEEP                              #  * DONT MOVE
059205,001088: 10,3017           30100                           CA       FLAGWRD4                              
059206,001089: 10,3020           74751                           MASK     MKOVBIT                               #  MARK OVER NORM ?
059207,001090: 10,3021           10000                           CCS      A                                     
059208,001091: 10,3022           02400        GENMARK            TC       MARKPLAY                              #  USED AS GENADR FOR JOBWAKE
059209,001092: 10,3023           12537                           TCF      OKTOCOPY                              
059210,001093: 
059211,001094: 10,3024           34755        MARKWAKE           CAF      ZERO                                  
059212,001095: 10,3025           54160        WAKEPLAY           TS       TEMPOR2                               
059213,001096: 
059214,001097: 10,3026           50160                           INDEX    TEMPOR2                               
059215,001098: 10,3027           33506                           CA       BITS5+11                              
059216,001099: 10,3030           64751                           AD       FOUR                                  
059217,001100: 10,3031           03536                           TC       DOWNENT2                              
059218,001101: 10,3032           40010        MARKFMSK           OCT      40010                                 #  ***DONT MOVE
059219,001102: 
059220,001103: 10,3033           50160                           INDEX    TEMPOR2                               
059221,001104: 10,3034           33472                           CAF      WAKECADR                              
059222,001105: 10,3035           00004                           INHINT                                         
059223,001106: 10,3036           05137                           TC       JOBWAKE                               
059224,001107: 
059225,001108: 10,3037           13331                           TCF      ENDRET                                
059226,001109: 
059227,001110:                                                                                                  #       ALL .1 RESTARTS BRANCH DIRECTLY TO INITDSP. NORMAL DISPLAYS ARE THEONLY DISPLAYS ALLOWED TO USE .1 RESTARTS
059228,001111:                                                                                                  #  INITDSP FIRST RESTORES THE EBANK AND THE SUPERBANK TO THE MOST RECENT NORMAL EBANK AND SUPERBANK.
059229,001112:                                                                                                  #       IF THE MOST RECENT NORMAL DISPLAY REQUEST WAS NOT FINISHED, CONTROLIS SENT BACK TO THE LAST NORMAL USER.
059230,001113:                                                                                                  #  OTHERWISE THE NORMAL DISPLAY SET UP IN THE NORMAL DISPLAY REGS IS STARTED UP IMMEDIATELY.
059231,001114: 
059232,001115: 10,3040           31071        INITDSP            CA       EBANKTEM                              #  RESTORE MOST RECECT NORMAL EBANK
059233,001116: 10,3041           54003                           TS       EBANK                                 
059234,001117: 
059235,001118: 10,3042           30366                           CA       RESTREG                               #  SUPERBANK AND JOB PRIORITY
059236,001119: 10,3043           04727                           TC       SUPERSW                               #  RESTORE SUPERBANK
059237,001120: 
059238,001121: 10,3044           77737                           MASK     PRIO37                                
059239,001122: 10,3045           05146                           TC       PRIOCHNG                              
059240,001123: 
059241,001124: 10,3046           46257                           CS       THREE                                 
059242,001125: 10,3047           60374                           AD       TEMPFLSH                              
059243,001126: 10,3050           14640                           TCF      BANKJUMP                              
059244,001127: 
059245,001128: 10,3051           00003        PINBRNCH           RELINT                                         #  FOR GOPIN USERS
059246,001129: 10,3052           31072                           CA       MARK2PAC                              #  NEEDED TO SAVE MPAC +2 FOR MARK USERS

Page 1354

059248,001131: 10,3053           54156                           TS       MPAC       +2                         #  ONLY
059249,001132: 
059250,001133: 10,3054           30100                           CA       FLAGWRD4                              #  PINBRANCH CONDITION
059251,001134: 10,3055           77752                           MASK     PINMASK                               
059252,001135: 10,3056           10000                           CCS      A                                     
059253,001136: 10,3057           13062                           TCF      +3                                    
059254,001137: 10,3060           13453                           TCF      ERASER                                #  ** NOTHING IN ENDIDLE
059255,001138: 10,3061           12400                           TCF      MARKPLAY                              
059256,001139: 
059257,001140: 10,3062           05515        NORMBNCH           TC       UPFLAG                                #  SET PINBRANCH BIT
059258,001141: 10,3063           00105                           ADRES    PINBRFLG                              
059259,001142: 
059260,001143: 10,3064           34736                           CAF      PRIODBIT                              #  PRIO INTERRUPTED
059261,001144: 10,3065           70100                           MASK     FLAGWRD4                              
059262,001145: 10,3066           10000                           CCS      A                                     
059263,001146: 10,3067           12545                           TCF      KEEPPRIO                              
059264,001147: 
059265,001148: 10,3070           12616                           TCF      PLAYJUM1                              
059266,001149: 
059267,001150: 10,3071           02420        NVDSP              TC       COPYPACS                              
059268,001151: 
059269,001152: 10,3072           30160                           CA       TEMPOR2                               #  SET UP BLANK BITS FOR NVMONOPT IN CASE
059270,001153: 10,3073           74757                           MASK     SEVEN                                 #  USER REQUESTS BLANKING MONITOR
059271,001154: 10,3074           54001                           TS       L                                     
059272,001155: 
059273,001156: 10,3075           44737                           CS       BIT13                                 
059274,001157: 10,3076           50164                           INDEX    COPINDEX                              
059275,001158: 10,3077           71067                           MASK     DSPFLG                                
059276,001159: 10,3100           50164                           INDEX    COPINDEX                              
059277,001160: 10,3101           55067                           TS       DSPFLG                                
059278,001161: 
059279,001162: 10,3102           74744                           MASK     BIT8                                  #  BIT8 SET IF DEC MARK PERFORM DISPLAY
059280,001163: 10,3103           54141                           TS       TEM1                                  
059281,001164: 
059282,001165: 10,3104           30156                           CA       MPAC       +2                         
059283,001166: 10,3105           54165                           TS       MPAC2SAV                              
059284,001167: 
059285,001168: 10,3106           55072                           TS       MARK2PAC                              #  * FOR DISK ONLY *
059286,001169: 10,3107           50164                           INDEX    COPINDEX                              
059287,001170: 10,3110           10367                           CCS      NVWORD                                
059288,001171: 10,3111           13120                           TCF      NVDSP1                                
059289,001172: 10,3112           13234                           TCF      CLEANEND                              
059290,001173: 10,3113           40370                           CS       MARKNV                                
059291,001174: 10,3114           54370                           TS       MARKNV                                #  IN CASE MARKPLAY AWAKENED AFTER SLEEPING
059292,001175: 10,3115           76106                           MASK     LOW7                                  
059293,001176: 10,3116           63477                           AD       V05N00M1                              
059294,001177: 10,3117           60141                           AD       TEM1                                  
059295,001178: 10,3120           64753        NVDSP1             AD       ONE                                   
059296,001179: 10,3121           04155        NV50DSP            TC       NVMONOPT                              
059297,001180: 10,3122           13246                           TCF      REST                                  #  IF BUSY

Page 1355

059299,001182: 10,3123           04433                           TC       FLASHOFF                              #  IN CASE OF EXTENDED VERB NON FLASH
059300,001183: 
059301,001184: 10,3124           02416                           TC       COPYTOGO                              #  MPACS DESTROYED BY NVSUB
059302,001185: 10,3125           05527                           TC       DOWNFLAG                              #  UNSET SLEEPING BITS
059303,001186: 10,3126           00102                           ADRES    MRKNVFLG                              
059304,001187: 10,3127           05527                           TC       DOWNFLAG                              
059305,001188: 10,3130           00103                           ADRES    NRMNVFLG                              
059306,001189: 10,3131           05527                           TC       DOWNFLAG                              
059307,001190: 10,3132           00104                           ADRES    PRONVFLG                              
059308,001191: 10,3133           30160        BLANKCHK           CA       TEMPOR2                               #  BLANK BITS 1,2,3 IF SET
059309,001192: 10,3134           04255                           TC       BLANKSUB                              
059310,001193: 10,3135           13071                           TCF      NVDSP                                 
059311,001194: 10,3136           34747        PERFCHEK           CAF      BIT5                                  #  BIT5 FOR PERFORM
059312,001195: 10,3137           70160                           MASK     TEMPOR2                               
059313,001196: 10,3140           10000                           CCS      A                                     #  IS THIS A GOPERF DISPLAY
059314,001197: 10,3141           13164                           TCF      1STOR2ND                              #  YES
059315,001198: 
059316,001199: 10,3142           34750        GOANIDLE           CAF      BIT4                                  
059317,001200: 10,3143           70160                           MASK     TEMPOR2                               
059318,001201: 10,3144           10000                           CCS      A                                     
059319,001202: 10,3145           13261                           TCF      FLASHSUB                              #  IT IS
059320,001203: 
059321,001204: 10,3146           40160                           CS       TEMPOR2                               #  IS THIS A GODSPRET
059322,001205: 10,3147           74746                           MASK     BIT6                                  
059323,001206: 10,3150           10000                           CCS      A                                     
059324,001207: 10,3151           13156                           TCF      ISITN00                               
059325,001208: 
059326,001209: 10,3152           50164                           INDEX    COPINDEX                              
059327,001210: 10,3153           30372                           CA       CADRFLSH                              
059328,001211: 10,3154           54157                           TS       MPAC       +3                         
059329,001212: 10,3155           13347                           TCF      ENDIT                                 
059330,001213: 
059331,001214: 10,3156           50164        ISITN00            INDEX    COPINDEX                              #  IS THIS A PASTE
059332,001215: 10,3157           30367                           CA       NVWORD                                
059333,001216: 10,3160           76106                           MASK     LOW7                                  #  CHECK MADE FOR PINBRNCH AND PRIO ON MARK
059334,001217: 10,3161           00006                           EXTEND                                         
059335,001218: 10,3162           13261                           BZF      FLASHSUB                              #  YES, ASSUME PASTE ALWAYS ON FLASH
059336,001219: 
059337,001220: 10,3163           15155                           TCF      ENDOFJOB                              #  NOT FLASH, NOT GOPERF, THERFORE EXIT
059338,001221: 
059339,001222: 10,3164           30160        1STOR2ND           CA       TEMPOR2                               
059340,001223: 10,3165           74737                           MASK     BIT13                                 
059341,001224: 10,3166           10000                           CCS      A                                     
059342,001225: 10,3167           13142                           TCF      GOANIDLE                              #  SECOND
059343,001226: 
059344,001227: 10,3170           34737                           CA       BIT13                                 
059345,001228: 10,3171           50164                           INDEX    COPINDEX                              
059346,001229: 10,3172           27067                           ADS      DSPFLG                                
059347,001230: 
059348,001231: 10,3173           22007                           ZL                                             

Page 1356

059350,001233: 10,3174           00006                           EXTEND                                         #  IS IT MARK
059351,001234: 10,3175           62441                           BZMF     MARKPERF                              #  YES
059352,001235: 
059353,001236: 10,3176           74740                           MASK     BIT12                                 
059354,001237: 10,3177           00006                           EXTEND                                         
059355,001238: 10,3200           13204                           BZF      V50PASTE                              
059356,001239: 10,3201           41066                           CS       NVWORD1                               #  NVOWRD1= -0 IS V97. NVWORD1= -400 IS V99
059357,001240: 10,3202           63523                           AD       V97N00                                
059358,001241: 10,3203           13121                           TCF      NV50DSP                               
059359,001242: 10,3204           33462        V50PASTE           CAF      V50N00                                
059360,001243: 10,3205           13121                           TCF      NV50DSP                               #  DISPLAY SECOND PART OF GOPERF
059361,001244: 
059362,001245: 10,3206           44747        WITCHONE           CS       BIT5                                  #  TURN OFF KEY RELEASE LIGHT
059363,001246: 10,3207           00006                           EXTEND                                         
059364,001247: 10,3210           03011                           WAND     DSALMOUT                              
059365,001248: 
059366,001249: 10,3211           30100                           CA       FLAGWRD4                              
059367,001250: 10,3212           73500                           MASK     NVBUSMSK                              #  IS IT NVSUB ASLEEP
059368,001251: 10,3213           10000                           CCS      A                                     
059369,001252: 10,3214           34753                           CAF      ONE                                   
059370,001253: 10,3215           54001                           TS       L                                     
059371,001254: 10,3216           34755                           CAF      ZERO                                  
059372,001255: 10,3217           50001                           INDEX    L                                     
059373,001256: 10,3220           57041                           XCH      CADRSTOR                              
059374,001257: 
059375,001258: 10,3221           00004                           INHINT                                         
059376,001259: 10,3222           00002                           TC       Q                                     
059377,001260: 
059378,001261: 10,3223           34217        XCHTOEND           CAF      ENDINST                               #  TC ENDOFJOB REPLACES GENADR IN LOC FOR
059379,001262: 10,3224           56064        XCHNYLOC           XCH      LOCCTR                                #  WAS THIS ADDRESS SLEEPING
059380,001263: 10,3225           00006                           EXTEND                                         
059381,001264: 10,3226           63232                           BZMF     RELINTQ                               #  NO
059382,001265: 10,3227           56064                           XCH      LOCCTR                                #  YES
059383,001266: 10,3230           50064                           INDEX    LOCCTR                                
059384,001267: 10,3231           54164                           TS       LOC                                   
059385,001268: 
059386,001269: 10,3232           00003        RELINTQ            RELINT                                         
059387,001270: 10,3233           00002                           TC       Q                                     #  BACK TO USER
059388,001271: 
059389,001272: 10,3234           37732        CLEANEND           CAF      PRIO32                                #  ONE LOWER THAN DISPLAYS SLEEPING
059390,001273: 10,3235           05105                           TC       FINDVAC                               
059391,001274: 10,3236     0371                                  EBANK=   NVSAVE                                
059392,001275: 10,3236           04231 04060                     2CADR    JAMTERM                               
059393,001276: 
059394,001277: 
059395,001278: 10,3240           13262                           TCF      FLASHSUB   +1                         
059396,001279: 
059397,001280: 10,3241           30100        ISITPRIO           CA       FLAGWRD4                              
059398,001281: 10,3242           73267                           MASK     ITISMASK                              #  IS PINBRFLG, MARKIDFLG SET
059399,001282: 10,3243           00006                           EXTEND                                         

Page 1357

059401,001284: 10,3244           12576                           BZF      PRIOBORT                              
059402,001285: 10,3245           15155                           TCF      ENDOFJOB                              
059403,001286: 
059404,001287: 10,3246           11041        REST               CCS      CADRSTOR                              #  IS SOMEONE IN ENDIDLE
059405,001288: 10,3247           15155                           TCF      ENDOFJOB                              #  YES
059406,001289: 10,3250           13252                           TCF      RESTSLEP                              
059407,001290: 
059408,001291: 10,3251           15155                           TCF      ENDOFJOB                              
059409,001292: 
059410,001293: 10,3252           30162        RESTSLEP           CA       GENMASK                               #  SET NVSLEEP BITS
059411,001294: 10,3253           73501                           MASK     ASTROMSK                              
059412,001295: 10,3254           03526                           TC       UPENT2                                
059413,001296: 10,3255           24100        OCT24100           OCT      24100                                 #  *** DONT MOVE
059414,001297: 
059415,001298: 10,3256           50164                           INDEX    COPINDEX                              
059416,001299: 10,3257           33471                           CAF      NVCADR                                
059417,001300: 10,3260           04442                           TC       NVSUBUSY                              #  BUSY OR ABORT IF ILLEGAL
059418,001301: 
059419,001302: 10,3261           04427        FLASHSUB           TC       FLASHON                               
059420,001303: 
059421,001304: 10,3262           30164                           CA       COPINDEX                              #  COPINDEX DESTROYED BY ENDIDLE
059422,001305: 10,3263           54157                           TS       COPMPAC                               
059423,001306: 
059424,001307: 10,3264           30162                           CA       GENMASK                               
059425,001308: 10,3265           73011                           MASK     IDLEMASK                              
059426,001309: 10,3266           03526                           TC       UPENT2                                
059427,001310: 10,3267           40040        ITISMASK           OCT      40040                                 #  *** ENDIDLE ALLOW *** DONT MOVE
059428,001311: 
059429,001312: 10,3270           11041                           CCS      CADRSTOR                              #  SEE IF SOMEONE ALREADY IN ENDIDLE
059430,001313: 10,3271           13241                           TCF      ISITPRIO                              
059431,001314: 10,3272           13274                           TCF      +2                                    
059432,001315: 10,3273           13241                           TCF      ISITPRIO                              
059433,001316: 
059434,001317: 10,3274           04207                           TC       ENDIDLE                               
059435,001318: 10,3275           13354        IDLERET1           TCF      TERMATE                               
059436,001319: 
059437,001320: 10,3276           13373                           TCF      PROCEED                               #  ENDIDLE RETURNS HERE ON PROCEED
059438,001321: 
059439,001322: 10,3277           43510                           CS       LOWLOAD                               
059440,001323: 10,3300           60154                           AD       MPAC                                  #  VERBREG
059441,001324: 10,3301           00006                           EXTEND                                         
059442,001325: 10,3302           26000                           DIM      A                                     
059443,001326: 10,3303           00006                           EXTEND                                         
059444,001327: 10,3304           13443                           BZF      LOADITIS                              #  V21 OR V22 OR V23 ON DSKY
059445,001328: 10,3305           34752        OKTOENT            CAF      TWO                                   
059446,001329: 10,3306           54161        ENDOUT             TS       OUTHERE                               
059447,001330: 
059448,001331: 10,3307           30100                           CA       FLAGWRD4                              #  CHECK NATURE OF ENDIDLE RETURN
059449,001332: 10,3310           74101                           MASK     OCT60000                              
059450,001333: 10,3311           10000                           CCS      A                                     

Page 1358

059452,001335: 10,3312           13315                           TCF      TIMECHEK                              #  PRIO ENDIDLE RETURN
059453,001336: 10,3313           13411                           TCF      NORMRET                               #  NORMAL ENDIDLE RETURN
059454,001337: 10,3314           13375                           TCF      MARKRET                               #  MARK ENDIDLE RETURN
059455,001338: 
059456,001339: 10,3315           40025        TIMECHEK           CS       TIME1                                 
059457,001340: 10,3316           61164                           AD       PRIOTIME                              
059458,001341: 10,3317           10000                           CCS      A                                     
059459,001342: 10,3320           40000                           COM                                            
059460,001343: 10,3321           67743                           AD       OCT37776                              
059461,001344: 10,3322           64753                           AD       ONE                                   
059462,001345: 10,3323           63552                           AD       -2SEC                                 
059463,001346: 10,3324           00006                           EXTEND                                         
059464,001347: 10,3325           62545                           BZMF     KEEPPRIO                              
059465,001348: 
059466,001349: 10,3326           13411                           TCF      NORMRET                               
059467,001350: 
059468,001351: 10,3327           34753        NORMWAKE           CAF      ONE                                   
059469,001352: 10,3330           13025                           TCF      WAKEPLAY                              
059470,001353: 
059471,001354: 10,3331           10161        ENDRET             CCS      OUTHERE                               
059472,001355: 10,3332           64753                           AD       ONE                                   
059473,001356: 10,3333           13335                           TCF      +2                                    #  NORMAL ENDIDLE EXIT
059474,001357: 10,3334           15155                           TCF      ENDOFJOB                              
059475,001358: 10,3335           50157                           INDEX    COPMPAC                               
059476,001359: 10,3336           60372                           AD       CADRFLSH                              
059477,001360: 10,3337           54157                           TS       MPAC       +3                         
059478,001361: 
059479,001362: 10,3340           30162                           CA       GENMASK                               #  REMOVE ENDIDLE AND PINBRANCH BITS
059480,001363: 10,3341           73343                           MASK     PINIDMSK                              
059481,001364: 10,3342           03536                           TC       DOWNENT2                              
059482,001365: 10,3343           74044        PINIDMSK           OCT      74044                                 #  *** DONT MOVE
059483,001366: 
059484,001367: 10,3344           46257                           CS       THREE                                 #  BLANK EVERYTHING EXCEPT MM
059485,001368: 10,3345           04154                           TC       NVSUB                                 
059486,001369: 10,3346           13347                           TCF      +1                                    
059487,001370: 
059488,001371: 10,3347           30163        ENDIT              CA       USERPRIO                              #  RETURN TO USERS PRIORITY
059489,001372: 10,3350           77737                           MASK     PRIO37                                
059490,001373: 10,3351           05146                           TC       PRIOCHNG                              
059491,001374: 10,3352           30157                           CA       MPAC       +3                         
059492,001375: 10,3353           14640                           TCF      BANKJUMP                              
059493,001376: 
059494,001377: 10,3354           34755        TERMATE            CAF      ZERO                                  #  ASTRONAUT TERMINATE (V34) RETURNS TO
059495,001378: 10,3355           13306                           TCF      ENDOUT                                
059496,001379: 
059497,001380: 10,3356           40160        LINUSCHR           CS       PLAYTEM4                              #  IS THIS A LINUS
059498,001381: 10,3357           74736                           MASK     BIT14                                 
059499,001382: 10,3360           10000                           CCS      A                                     
059500,001383: 10,3361           16751                           TCF      Q+1                                   #  NO
059501,001384: 10,3362           40157                           CS       PLAYTEM3                              #  YES, IS IT ALREADY IN ENDIDLE

Page 1359

059503,001386: 10,3363           50164                           INDEX    COPINDEX                              
059504,001387: 10,3364           60372                           AD       CADRFLSH                              
059505,001388: 10,3365           00006                           EXTEND                                         
059506,001389: 10,3366           13370                           BZF      +2                                    #  YES
059507,001390: 
059508,001391: 10,3367           00002                           TC       Q                                     #  NO
059509,001392: 10,3370           11011                           CCS      DSPLOCK                               #  IS THE ASTRONAUT BUSY
059510,001393: 10,3371           05155                           TC       ENDOFJOB                              #  END THE NEW DISPLAY, ITS ALREADY ACTIVE
059511,001394: 10,3372           00002                           TC       Q                                     
059512,001395: 
059513,001396:                                                                                                  #  MORE LOGIC COULD BE INCORPORATED HERE TO MAKE SURE A RECYCLE IS A RECYCLAND CONVERSLY THAT A LOAD IS A LOAD.
059514,001397: 10,3373           34753        PROCEED            CAF      ONE                                   #  ASTRONAUT PROCEED (V33) RETURNS
059515,001398: 10,3374           13306                           TCF      ENDOUT                                
059516,001399: 
059517,001400:                                                                                                  #       LASTPLAY CHECKS TO SEE IF (1) THE LAST NORMAL DISPLAY WAS EITHER INTERRUPTED BY A PRIO OR A MARK (MARK
059518,001401:                                                                                                  #  COULD ONLY HAPPEN DURING PINBRANCH) OR IF (2) THE LAST NORMAL DISPLAY WAS REQUESTED WHILE A HIGHER PRIORITY
059519,001402:                                                                                                  #  DISPLAY WAS GOING RESULTING IN THE NORMAL BEING PUT TO SLEEP.
059520,001403: 
059521,001404:                                                                                                  #       IF EITHER OF THE ABOVE 2 CONDITIONS EXISTS , THE NORMAL DISPLAY IS AWAKENED TO GO TO PLAYJUM1 WHICH STARTS
059522,001405:                                                                                                  #  UP THE MOST RECENT VALID NORMAL DISPLAY. IF THESE 2 CONDITIONS DO NOT EXIST, CONTROL GOES TO PLAYJUM1 WHICH IS
059523,001406:                                                                                                  #  STARTED IMMEDIATELY WITH THE ASSUMPTION THAT THE MOST RECENT NORMAL DISPLAY IS ALREADY IN-ENDIDLE(DURING A
059524,001407:                                                                                                  #  PINBRANCH) OR THAT A RESTART HAS OCCURRED AND THE DISPLAY CAN BE STARTED AS A .1 RESTART.
059525,001408: 
059526,001409: 10,3375           46254        MARKRET            CS       SIX                                   
059527,001410: 10,3376           70100                           MASK     FLAGWRD4                              
059528,001411: 10,3377           00004                           INHINT                                         #  *** MAY MOVE DISPLAY FLAGWORD OUT OF
059529,001412: 10,3400           54100                           TS       FLAGWRD4                              
059530,001413: 
059531,001414: 10,3401           00003                           RELINT                                         #  INHINT REALM
059532,001415: 10,3402           13331                           TCF      ENDRET                                
059533,001416: 
059534,001417: 10,3403           37761        MARKOVER           CAF      MINUS1                                #  RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
059535,001418: 10,3404           54161                           TS       OUTHERE                               
059536,001419: 
059537,001420: 10,3405           30100                           CA       FLAGWRD4                              #  IS ENDIDFLG SET
059538,001421: 10,3406           74355                           MASK     PRIO30                                #  IS NORMAL OR PRIO IN ENDIDLE
059539,001422: 10,3407           10000                           CCS      A                                     
059540,001423: 10,3410           13062                           TCF      NORMBNCH                              
059541,001424: 
059542,001425: 10,3411           30100        NORMRET            CA       FLAGWRD4                              #  IS MARK SLEEPING
059543,001426: 10,3412           73506                           MASK     BITS5+11                              #  OR WAITING
059544,001427: 10,3413           10000                           CCS      A                                     
059545,001428: 10,3414           13024                           TCF      MARKWAKE                              
059546,001429: 
059547,001430: 10,3415           30100                           CA       FLAGWRD4                              #  NO
059548,001431: 10,3416           73507                           MASK     BITS4+10                              #  IS NORMAL INTERRUPTED OR WAITING
059549,001432: 10,3417           10000                           CCS      A                                     
059550,001433: 10,3420           13327                           TCF      NORMWAKE                              #  YES
059551,001434: 
059552,001435: 10,3421           31071                           CA       EBANKTEM                              #  NO, WAS IT A FLASH REQUEST

Page 1360

059554,001437: 10,3422           74771                           MASK     OCT50                                 #  OR A GODSPRET
059555,001438: 10,3423           10000                           CCS      A                                     
059556,001439: 10,3424           13331                           TCF      ENDRET                                #  YES
059557,001440: 10,3425           30371                           CA       NVSAVE                                
059558,001441: 10,3426           00006                           EXTEND                                         
059559,001442: 10,3427           13331                           BZF      ENDRET                                
059560,001443: 
059561,001444: 10,3430           35025                           CAF      PRIO15                                
059562,001445: 10,3431           00004                           INHINT                                         
059563,001446: 10,3432           05072                           TC       NOVAC                                 
059564,001447: 10,3433     0367                                  EBANK=   NVWORD                                
059565,001448: 10,3433           02616 20060                     2CADR    PLAYJUM1                              
059566,001449: 
059567,001450: 
059568,001451: 10,3435           13331                           TCF      ENDRET                                
059569,001452: 
059570,001453: 10,3436           30100        MARSLEEP           CA       FLAGWRD4                              #  IS MARK ALREADY IN
059571,001454: 10,3437           73506                           MASK     BITS5+11                              
059572,001455: 10,3440           10000                           CCS      A                                     
059573,001456: 10,3441           15155                           TCF      ENDOFJOB                              #  YES
059574,001457: 10,3442           12755                           TCF      GOSLEEPS                              
059575,001458: 
059576,001459: 10,3443           50157        LOADITIS           INDEX    COPMPAC                               
059577,001460: 10,3444           30367                           CA       NVWORD                                
059578,001461: 10,3445           76106                           MASK     LOW7                                  
059579,001462: 10,3446           40000                           COM                                            
059580,001463: 10,3447           60155                           AD       MPAC       +1                         #  NOUNREG
059581,001464: 10,3450           00006                           EXTEND                                         
059582,001465: 10,3451           13305                           BZF      OKTOENT                               #  NO, THEN LOAD IS VALID
059583,001466: 10,3452           13051                           TCF      PINBRNCH                              #  YES, ACCEPT LOAD BUT ASK FOR LAST AGAIN
059584,001467: 
059585,001468: 10,3453           46257        ERASER             CS       THREE                                 #  BLANK EVERYTHINGEXCEPT MM
059586,001469: 10,3454           04154                           TC       NVSUB                                 
059587,001470: 10,3455           15155                           TCF      ENDOFJOB                              
059588,001471: 10,3456           15155                           TCF      ENDOFJOB                              
059589,001472: 
059590,001473: 10,3457           00036        PERFMASK           OCT      0036                                  #  FLASH,PERFORM,BLANK R2 AND R3
059591,001474: 10,3460           00231        V01N25             VN       00125                                 
059592,001475: 10,3461           01407        V06N07             VN       00607                                 #  GOPERF3 VN DISPLAY BEFORE V50
059593,001476: 10,3462           14400        V50N00             VN       5000                                  
059594,001477: 10,3463           00030        PERF2MSK           OCT      00030                                 #  FLASH, PERFORM
059595,001478: 10,3464           01006        V04N06             VN       00406                                 
059596,001479: 10,3465           00014        PERF4MSK           OCT      14                                    #  FLASH, BLANK R3
059597,001480: 10,3466  10,3051               GOAGIN             EQUALS   PINBRNCH                              
059598,001481: 10,3466           20010        REDOMASK           OCT      20010                                 #  BITS 4 AND 14
059599,001482: 10,3467           40230        MARK3MSK           OCT      40230                                 #  MARK,DECIMAL NOUN, PERFORM,FLASH
059600,001483: 10,3470           40036        MARK4MSK           OCT      40036                                 #  MARK,PERFORM,FLASH,BLANK 2 AND 3
059601,001484: 10,3471           20543        NVCADR             CADR     REDOPRIO                              
059602,001485: 10,3472           20400        WAKECADR           CADR     MARKPLAY                              
059603,001486: 10,3473           20616                           CADR     PLAYJUM1                              
059604,001487: 

Page 1361

059606,001489: 10,3474           03400        OCT3400            OCT      3400                                  #  EBANK MASK
059607,001490: 10,3475           11210        NBUSMASK           OCT      11210                                 
059608,001491: 10,3476           66521        PMMASK             OCT      66521                                 
059609,001492: 10,3477     4144               VERBMASK           =        MID7                                  #  (OCT 37600)
059610,001493: 10,3477           01177        V05N00M1           OCT      1177                                  #  V05 MINUS ONE
059611,001494: 10,3500  10,2330               GOXDSP             EQUALS   GOMARK                                
059612,001495: 10,3500  10,2350               GOXDSPR            EQUALS   GOMARKR                               
059613,001496: 10,3500  10,2334               GOXDSPF            EQUALS   GOMARKF                               
059614,001497: 10,3500  10,2353               GOXDSPFR           EQUALS   GOMARKFR                              
059615,001498: 10,3500     5503               ENDEXT             EQUALS   ENDMARK                               
059616,001499: 10,3500     0165               MPAC2SAV           EQUALS   BANKSET                               
059617,001500: 10,3500           00700        NVBUSMSK           OCT      700                                   
059618,001501: 10,3501           00704        ASTROMSK           OCT      704                                   
059619,001502: 10,3502           40030        MPERFMSK           OCT      40030                                 #  BIT 15,5,4 FOR MARK,PERFORM,FLASH
059620,001503: 10,3503           34300        OCT34300           OCT      34300                                 
059621,001504: 10,3504           40100        BITS15+7           OCT      40100                                 
059622,001505: 10,3505           00110        BITS7+4            OCT      110                                   
059623,001506: 10,3506           02020        BITS5+11           OCT      2020                                  #  * DONT MOVE
059624,001507: 10,3507           01010        BITS4+10           OCT      1010                                  #  * DONT MOVE
059625,001508: 10,3510           00026        LOWLOAD            DEC      22         B-14                       
059626,001509: 10,3511           77730        BUSYMASK           OCT      77730                                 
059627,001510: 10,3512           00050        CADRMASK           OCT      50                                    
059628,001511: 10,3513     7752               PINMASK            EQUALS   13,14,15                              
059629,001512: 10,3513  10,3071               GOPLAY             EQUALS   NVDSP                                 
059630,001513:                                                                                                  # PRIOSAVE       EQUALS  R1SAVE
059631,001514: 10,3513     0157               COPMPAC            EQUALS   MPAC       +3                         
059632,001515: 10,3513     0160               TEMPOR2            EQUALS   MPAC       +4                         
059633,001516: 10,3513     0161               OUTHERE            EQUALS   MPAC       +5                         
059634,001517: 10,3513     0164               COPINDEX           EQUALS   LOC                                   
059635,001518: 10,3513     0163               USERPRIO           EQUALS   MODE                                  
059636,001519: 10,3513     0162               GENMASK            EQUALS   MPAC       +6                         
059637,001520: 10,3513           20144        PRIOOCT            OCT      20144                                 #  PRIO
059638,001521: 10,3514           42424        MARKOCT            OCT      42424                                 #  MARK
059639,001522: 10,3515           11254                           OCT      11254                                 #  NORM
059640,001523: 
059641,001524: 10,3516           74704        IDLESLEP           OCT      74704                                 
059642,001525: 10,3517           67777        OCT67777           OCT      67777                                 
059643,001526: 10,3520     5475               LINUS              EQUALS   BLANKET                               
059644,001527: 10,3520     0154               FACEREG            EQUALS   MPAC                                  
059645,001528: 10,3520     0155               PLAYTEM1           EQUALS   MPAC       +1                         
059646,001529: 10,3520     0157               PLAYTEM3           EQUALS   MPAC       +3                         
059647,001530: 10,3520     0160               PLAYTEM4           EQUALS   MPAC       +4                         
059648,001531: 10,3520           40420        OCT40420           OCT      40420                                 
059649,001532: 10,3521           02547        MAKEGEN            GENADR   MAKEPLAY                              
059650,001533: 10,3522           10200        OCT10200           OCT      10200                                 
059651,001534: 10,3523           30200        V97N00             VN       09700                                 #  PASTE FOR V97 OR V99
059652,001535: 10,3524           20100        OCT20100           OCT      20100                                 
059653,001536: 10,3525           24030        CLOCKCON           OCT      24030                                 #  FLASH, PERFORM, V99 OR V97 PASTE,REFLASH

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